… | |
… | |
11 | * Copyright (c) 1997 mj olesen <olesen@me.QueensU.CA> |
11 | * Copyright (c) 1997 mj olesen <olesen@me.QueensU.CA> |
12 | * - extensive modifications |
12 | * - extensive modifications |
13 | * Copyright (c) 1997,1998 Oezguer Kesim <kesim@math.fu-berlin.de> |
13 | * Copyright (c) 1997,1998 Oezguer Kesim <kesim@math.fu-berlin.de> |
14 | * Copyright (c) 1998-2001 Geoff Wing <gcw@pobox.com> |
14 | * Copyright (c) 1998-2001 Geoff Wing <gcw@pobox.com> |
15 | * - extensive modifications |
15 | * - extensive modifications |
16 | * Copyright (c) 2003-2004 Marc Lehmann <pcg@goof.com> |
16 | * Copyright (c) 2003-2006 Marc Lehmann <pcg@goof.com> |
17 | * |
17 | * |
18 | * This program is free software; you can redistribute it and/or modify |
18 | * This program is free software; you can redistribute it and/or modify |
19 | * it under the terms of the GNU General Public License as published by |
19 | * it under the terms of the GNU General Public License as published by |
20 | * the Free Software Foundation; either version 2 of the License, or |
20 | * the Free Software Foundation; either version 2 of the License, or |
21 | * (at your option) any later version. |
21 | * (at your option) any later version. |
… | |
… | |
206 | pty.put (); |
206 | pty.put (); |
207 | } |
207 | } |
208 | |
208 | |
209 | rxvt_term::~rxvt_term () |
209 | rxvt_term::~rxvt_term () |
210 | { |
210 | { |
211 | PERL_INVOKE ((this, HOOK_DESTROY, DT_END)); |
211 | HOOK_INVOKE ((this, HOOK_DESTROY, DT_END)); |
212 | |
212 | |
213 | termlist.erase (find (termlist.begin (), termlist.end(), this)); |
213 | termlist.erase (find (termlist.begin (), termlist.end(), this)); |
214 | |
214 | |
215 | emergency_cleanup (); |
215 | emergency_cleanup (); |
216 | |
216 | |
… | |
… | |
492 | if ((rs[Rs_perl_ext_1] && *rs[Rs_perl_ext_1]) |
492 | if ((rs[Rs_perl_ext_1] && *rs[Rs_perl_ext_1]) |
493 | || (rs[Rs_perl_ext_2] && *rs[Rs_perl_ext_2]) |
493 | || (rs[Rs_perl_ext_2] && *rs[Rs_perl_ext_2]) |
494 | || (rs[Rs_perl_eval] && *rs[Rs_perl_eval])) |
494 | || (rs[Rs_perl_eval] && *rs[Rs_perl_eval])) |
495 | { |
495 | { |
496 | rxvt_perl.init (); |
496 | rxvt_perl.init (); |
497 | PERL_INVOKE ((this, HOOK_INIT, DT_END)); |
497 | HOOK_INVOKE ((this, HOOK_INIT, DT_END)); |
498 | } |
498 | } |
499 | #endif |
499 | #endif |
500 | |
500 | |
501 | create_windows (argc, argv); |
501 | create_windows (argc, argv); |
502 | |
502 | |
… | |
… | |
534 | |
534 | |
535 | init_command (cmd_argv); |
535 | init_command (cmd_argv); |
536 | |
536 | |
537 | free (cmd_argv); |
537 | free (cmd_argv); |
538 | |
538 | |
|
|
539 | if (pty.pty >= 0) |
539 | pty_ev.start (pty.pty, EVENT_READ); |
540 | pty_ev.start (pty.pty, EVENT_READ); |
540 | |
541 | |
541 | check_ev.start (); |
542 | check_ev.start (); |
542 | |
543 | |
543 | PERL_INVOKE ((this, HOOK_START, DT_END)); |
544 | HOOK_INVOKE ((this, HOOK_START, DT_END)); |
544 | |
545 | |
545 | return true; |
546 | return true; |
546 | } |
547 | } |
547 | |
548 | |
548 | static struct sig_handlers |
549 | static struct sig_handlers |