Mercurial > hg > octave-lyh

comparison src/genprops.awk @ 7865:b74039822fd2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add support for hggroup
author Michael Goffioul <michael.goffioul@gmail.com>
date Fri, 25 Apr 2008 16:44:59 +0200
parents 8f3459a90bf3
children f1a1f6dd7fac
comparison
equal deleted inserted replaced
7864:56f781f38f0b 7865:b74039822fd2
389 ## set method 389 ## set method
390 390
391 printf ("void\n%s::properties::set (const caseless_str& pname, const octave_value& val)\n{\n", 391 printf ("void\n%s::properties::set (const caseless_str& pname, const octave_value& val)\n{\n",
392 class_name) >> filename; 392 class_name) >> filename;
393 393
394 first = 1;
395
394 for (i = 1; i <= idx; i++) 396 for (i = 1; i <= idx; i++)
395 { 397 {
396 if (! readonly[i]) 398 if (! readonly[i])
399 {
397 printf (" %sif (pname.compare (\"%s\"))\n set_%s (val);\n", 400 printf (" %sif (pname.compare (\"%s\"))\n set_%s (val);\n",
398 (i > 1 ? "else " : ""), name[i], name[i]) >> filename; 401 (first == 0 ? "else " : ""), name[i], name[i]) >> filename;
402 first = 0;
403 }
399 } 404 }
400 405
401 printf (" else\n base_properties::set (pname, val);\n}\n\n") >> filename; 406 printf (" else\n base_properties::set (pname, val);\n}\n\n") >> filename;
402 407
403 ## get "all" method 408 ## get "all" method