… | |
… | |
9 | push @syms, $1 if /(^\w+)/; |
9 | push @syms, $1 if /(^\w+)/; |
10 | } |
10 | } |
11 | print "/* DO NOT EDIT, automatically generated by update_ev_wrap */\n", |
11 | print "/* DO NOT EDIT, automatically generated by update_ev_wrap */\n", |
12 | "#ifndef EV_WRAP_H\n", |
12 | "#ifndef EV_WRAP_H\n", |
13 | "#define EV_WRAP_H\n", |
13 | "#define EV_WRAP_H\n", |
14 | (map "#define $_ ((loop)->$_)\n", @syms), |
14 | (map "#define $_ ((loop)->$_)\n", sort @syms), |
15 | "#else\n", |
15 | "#else\n", |
16 | "#undef EV_WRAP_H\n", |
16 | "#undef EV_WRAP_H\n", |
17 | (map "#undef $_\n", @syms), |
17 | (map "#undef $_\n", @syms), |
18 | "#endif\n"; |
18 | "#endif\n"; |
19 | ' >ev_wrap.h |
19 | ' >ev_wrap.h |