1 | print qq(/* THIS FILE WAS AUTOGENERATED BY STUBGEN.PL --- DO NOT EDIT BY HAND!!! */\n\n); |
---|
2 | print qq(#include "owl.h"); |
---|
3 | |
---|
4 | foreach $file (@ARGV) { |
---|
5 | open(FILE, $file); |
---|
6 | |
---|
7 | print "/* -------------------------------- $file -------------------------------- */\n"; |
---|
8 | while (<FILE>) { |
---|
9 | if (m|^\s*OWLVAR_([A-Z_0-9]+)\s*\(\s*"([^"]+)"\s*/\*\s*%OwlVarStub:?([a-z0-9_]+)?\s*\*/|) { # " |
---|
10 | my $vartype = $1; |
---|
11 | my $varname = $2; |
---|
12 | my $altvarname = $2; |
---|
13 | $altvarname = $3 if ($3); |
---|
14 | my $detailname = $altvarname; |
---|
15 | $detailname =~ s/[^a-zA-Z0-9]/-/g; |
---|
16 | $detailname =~ s/^[^a-zA-Z]+//; |
---|
17 | if ($vartype =~ /^BOOL/) { |
---|
18 | print <<EOT; |
---|
19 | void owl_global_set_${altvarname}_on(owl_global *g) { |
---|
20 | owl_variable_set_bool_on(&g->vars, "$altvarname"); |
---|
21 | } |
---|
22 | void owl_global_set_${altvarname}_off(owl_global *g) { |
---|
23 | owl_variable_set_bool_off(&g->vars, "$altvarname"); |
---|
24 | } |
---|
25 | int owl_global_is_$altvarname(const owl_global *g) { |
---|
26 | return owl_variable_get_bool(&g->vars, "$varname"); |
---|
27 | } |
---|
28 | EOT |
---|
29 | } elsif ($vartype =~ /^PATH/ or $vartype =~ /^STRING/) { |
---|
30 | print <<EOT; |
---|
31 | void owl_global_set_${altvarname}(owl_global *g, const char *text) { |
---|
32 | owl_variable_set_string(&g->vars, "$altvarname", text); |
---|
33 | } |
---|
34 | const char *owl_global_get_$altvarname(const owl_global *g) { |
---|
35 | return owl_variable_get_string(&g->vars, "$varname"); |
---|
36 | } |
---|
37 | EOT |
---|
38 | } elsif ($vartype =~ /^INT/ or $vartype =~ /^ENUM/) { |
---|
39 | print <<EOT; |
---|
40 | void owl_global_set_${altvarname}(owl_global *g, int n) { |
---|
41 | owl_variable_set_int(&g->vars, "$altvarname", n); |
---|
42 | } |
---|
43 | int owl_global_get_$altvarname(const owl_global *g) { |
---|
44 | return owl_variable_get_int(&g->vars, "$varname"); |
---|
45 | } |
---|
46 | EOT |
---|
47 | } |
---|
48 | } |
---|
49 | } |
---|
50 | close(FILE); |
---|
51 | print "\n"; |
---|
52 | } |
---|