| … | |
… | |
| 584 | |
584 | |
| 585 | PROTOTYPES: ENABLE |
585 | PROTOTYPES: ENABLE |
| 586 | |
586 | |
| 587 | BOOT: |
587 | BOOT: |
| 588 | { |
588 | { |
| 589 | HV *stash = gv_stashpv ("urxvt", 1); |
589 | sv_setsv (get_sv ("urxvt::LIBDIR", 1), newSVpvn (LIBDIR, sizeof (LIBDIR) - 1)); |
| 590 | # define export_const_iv(name) newCONSTSUB (stash, # name, newSViv (name)); |
|
|
| 591 | |
590 | |
| 592 | AV *hookname = get_av ("urxvt::HOOKNAME", 1); |
591 | AV *hookname = get_av ("urxvt::HOOKNAME", 1); |
| 593 | # define def(sym) av_store (hookname, HOOK_ ## sym, newSVpv (# sym, 0)); |
592 | # define def(sym) av_store (hookname, HOOK_ ## sym, newSVpv (# sym, 0)); |
| 594 | # include "hookinc.h" |
593 | # include "hookinc.h" |
| 595 | # undef def |
594 | # undef def |
| 596 | |
595 | |
| 597 | |
596 | HV *option = get_hv ("urxvt::OPTION", 1); |
|
|
597 | # define def(name,val) hv_store (option, # name, sizeof (# name) - 1, newSVuv (Opt_ ## name), 0); |
|
|
598 | # define nodef(name) |
|
|
599 | # include "optinc.h" |
|
|
600 | # undef nodef |
|
|
601 | # undef def |
|
|
602 | |
|
|
603 | HV *stash = gv_stashpv ("urxvt", 1); |
|
|
604 | # define export_const_iv(name) newCONSTSUB (stash, # name, newSViv (name)); |
| 598 | export_const_iv (DEFAULT_RSTYLE); |
605 | export_const_iv (DEFAULT_RSTYLE); |
| 599 | export_const_iv (OVERLAY_RSTYLE); |
606 | export_const_iv (OVERLAY_RSTYLE); |
| 600 | export_const_iv (RS_Bold); |
607 | export_const_iv (RS_Bold); |
| 601 | export_const_iv (RS_Italic); |
608 | export_const_iv (RS_Italic); |
| 602 | export_const_iv (RS_Blink); |
609 | export_const_iv (RS_Blink); |
| … | |
… | |
| 616 | export_const_iv (Button2Mask); |
623 | export_const_iv (Button2Mask); |
| 617 | export_const_iv (Button3Mask); |
624 | export_const_iv (Button3Mask); |
| 618 | export_const_iv (Button4Mask); |
625 | export_const_iv (Button4Mask); |
| 619 | export_const_iv (Button5Mask); |
626 | export_const_iv (Button5Mask); |
| 620 | export_const_iv (AnyModifier); |
627 | export_const_iv (AnyModifier); |
| 621 | |
|
|
| 622 | sv_setsv (get_sv ("urxvt::LIBDIR", 1), newSVpvn (LIBDIR, sizeof (LIBDIR) - 1)); |
|
|
| 623 | } |
628 | } |
| 624 | |
629 | |
| 625 | SV * |
630 | SV * |
| 626 | new (...) |
631 | new (...) |
| 627 | CODE: |
632 | CODE: |
