File: typemap

package info (click to toggle)
libunicode-map8-perl 0.08-1
  • links: PTS
  • area: main
  • in suites: potato
  • size: 1,108 kB
  • ctags: 57
  • sloc: perl: 495; ansic: 429; makefile: 44; sh: 6
file content (19 lines) | stat: -rw-r--r-- 402 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Map8*       T_MAP8

INPUT
T_MAP8
        $var = find_map8($arg);

OUTPUT
T_MAP8
        /* Make a HASH object, and attach the map to it */
	if ($var) {
	    HV* stash = gv_stashpv(\"Unicode::Map8\", TRUE);
	    sv_upgrade($arg, SVt_RV);
	    SvRV($arg) = (SV*)newHV();
	    SvROK_on($arg);
	    (void)sv_bless($arg, stash);
	    attach_map8($arg, $var);
        } else {
	    SvOK_off($arg);
        }