| … | |
… | |
| 583 | |
583 | |
| 584 | PROTOTYPES: ENABLE |
584 | PROTOTYPES: ENABLE |
| 585 | |
585 | |
| 586 | BOOT: |
586 | BOOT: |
| 587 | { |
587 | { |
|
|
588 | HV *stash = gv_stashpv ("urxvt", 1); |
| 588 | # define export_const(name) newCONSTSUB (gv_stashpv ("urxvt", 1), # name, newSViv (name)); |
589 | # define export_const_iv(name) newCONSTSUB (stash, # name, newSViv (name)); |
|
|
590 | |
| 589 | AV *hookname = get_av ("urxvt::HOOKNAME", 1); |
591 | AV *hookname = get_av ("urxvt::HOOKNAME", 1); |
| 590 | # define def(sym) av_store (hookname, HOOK_ ## sym, newSVpv (# sym, 0)); |
592 | # define def(sym) av_store (hookname, HOOK_ ## sym, newSVpv (# sym, 0)); |
| 591 | # include "hookinc.h" |
593 | # include "hookinc.h" |
| 592 | # undef def |
594 | # undef def |
| 593 | |
595 | |
|
|
596 | |
| 594 | export_const (DEFAULT_RSTYLE); |
597 | export_const_iv (DEFAULT_RSTYLE); |
| 595 | export_const (OVERLAY_RSTYLE); |
598 | export_const_iv (OVERLAY_RSTYLE); |
| 596 | export_const (RS_Bold); |
599 | export_const_iv (RS_Bold); |
| 597 | export_const (RS_Italic); |
600 | export_const_iv (RS_Italic); |
| 598 | export_const (RS_Blink); |
601 | export_const_iv (RS_Blink); |
| 599 | export_const (RS_RVid); |
602 | export_const_iv (RS_RVid); |
| 600 | export_const (RS_Uline); |
603 | export_const_iv (RS_Uline); |
| 601 | export_const (CurrentTime); |
604 | export_const_iv (CurrentTime); |
| 602 | |
605 | |
| 603 | sv_setpv (get_sv ("urxvt::LIBDIR", 1), LIBDIR); |
606 | sv_setsv (get_sv ("urxvt::LIBDIR", 1), newSVpvn (LIBDIR, sizeof (LIBDIR) - 1)); |
| 604 | } |
607 | } |
| 605 | |
608 | |
| 606 | SV * |
609 | SV * |
| 607 | new (...) |
610 | new (...) |
| 608 | CODE: |
611 | CODE: |
