Changeset 8742840 for stubgen.pl
- Timestamp:
- Aug 15, 2009, 7:08:21 PM (15 years ago)
- Branches:
- master, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
- Children:
- 369a7f0
- Parents:
- 6249e137
- git-author:
- Anders Kaseorg <andersk@mit.edu> (08/04/09 02:38:16)
- git-committer:
- Anders Kaseorg <andersk@mit.edu> (08/15/09 19:08:21)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
stubgen.pl
re19eb97 r8742840 25 25 print "void owl_global_set_${altvarname}_off(owl_global *g) {\n"; 26 26 print " owl_variable_set_bool_off(&g->vars, \"$varname\");\n}\n"; 27 print "int owl_global_is_$altvarname( owl_global *g) {\n";27 print "int owl_global_is_$altvarname(const owl_global *g) {\n"; 28 28 print " return owl_variable_get_bool(&g->vars, \"$varname\");\n}\n"; 29 29 } elsif ($vartype =~ /^PATH/ or $vartype =~ /^STRING/) { 30 30 print "void owl_global_set_$altvarname(owl_global *g, const char *text) {\n"; 31 31 print " owl_variable_set_string(&g->vars, \"$varname\", text);\n}\n"; 32 print "const char *owl_global_get_$altvarname( owl_global *g) {\n";32 print "const char *owl_global_get_$altvarname(const owl_global *g) {\n"; 33 33 print " return owl_variable_get_string(&g->vars, \"$varname\");\n}\n"; 34 34 } elsif ($vartype =~ /^INT/ or $vartype =~ /^ENUM/) { 35 35 print "void owl_global_set_$altvarname(owl_global *g, int n) {\n"; 36 36 print " owl_variable_set_int(&g->vars, \"$varname\", n);\n}\n"; 37 print "int owl_global_get_$altvarname( owl_global *g) {\n";37 print "int owl_global_get_$altvarname(const owl_global *g) {\n"; 38 38 print " return owl_variable_get_int(&g->vars, \"$varname\");\n}\n"; 39 39 }
Note: See TracChangeset
for help on using the changeset viewer.