octave-jordi: mk-opts.pl comparison

[project @ 2002-08-16 08:54:31 by jwe]

comparison

equal deleted inserted replaced

-:c9991c59cf5c
+:a35a3c5d4740
 $s =~ s/\n\s*/\n      /g;
 print "$s\n";
 }
 }
-print "    }\n";
+print "      reset = true;
+}\n";
 print "\n  void copy (const ${class_name}& opt)\n    {\n";
 for ($i = 0; $i < $opt_num; $i++)
 {
 print "      $optvar[$i] = opt.$optvar[$i];\n";
 }
-print "    }\n";
+print "      reset = opt.reset;
+}\n";
 print "\n  void set_default_options (void) { init (); }\n";
 for ($i = 0; $i < $opt_num; $i++)
 {
 if ($set_expr[$i])
 {
 &emit_set_decl ($i);
-print "\n    { $optvar[$i] = $set_expr[$i]; }\n";
+print "\n    { $optvar[$i] = $set_expr[$i]; reset = true; }\n";
 }
 elsif ($set_body[$i])
 {
 &emit_set_decl ($i);
 $s = &substopt ($set_body[$i], $optvar[$i], $opt[$i], $type[$i]);
 chop ($s);
 $s =~ s/^/  /g;
 $s =~ s/\n/\n  /g;
-print "\n    {\n$s\n    }\n";
+print "\n    {\n$s\n      reset = true;\n    }\n";
 }
 elsif ($set_code[$i])
 {
 $s = &substopt ($set_code[$i], $optvar[$i], $opt[$i], $type[$i]);
 chop ($s);
 for ($i = 0; $i < $opt_num; $i++)
 {
 print "  $type[$i] $optvar[$i];\n";
 }
-print "};\n\n#endif\n";
+print "\nprotected:\n\n  bool reset;\n};\n\n#endif\n";
 }
 sub emit_set_decl
 {
 local ($i) = @_;

Mercurial > hg > octave-jordi