| … | |
… | |
| 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 |
