[Changeset]: Re: Again error with graphics.h

[David Bateman]

David Bateman wrote:

> In fact the change is fairly easy, just replace
> 
>    dval = gensub (/^.*\{(.*)\}.*$/, "\"\\1\"", "g", dval);
> 
> with
> 
>    gsub (^.*\{(.*)\}.*$/, "\"\\1\"", dval);
> 
> at line 413 and
> 
>   class_name = gensub (/^.*BEGIN_PROPERTIES\((.*)\)/, "\\1", "g");
> 
> with
> 
>   class_name = $0;
>   gsub (/^.*BEGIN_PROPERTIES\((.*)\)/, "\\1", class_name);
> 
> at line 439. I believe gsub is compatible with awk.
> 
> D.

and here is this change as a mercurial changeset

D.

# HG changeset patch
# User David Bateman <address@hidden>
# Date 1211992939 -7200
# Node ID 25f1b4c878e19f1b48c9f20a8328c69033fda0d2
# Parent  bb3e6e3268db2c98736f776b561c40dcf1cdadee
Remove gawk dependency from genprops.awk

diff --git a/src/ChangeLog b/src/ChangeLog
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@ 2008-05-28  David Bateman  <address@hidden
 2008-05-28  David Bateman  <address@hidden>
 
+       * genprops.awk: Replace uses of gensub with gsub.
+       
        * DLD-FUNCTIONS/betainc.cc: Move test code here. Add test code for
        single precision type.
        * DLD-FUNCTIONS/gammainc.cc: Ditto.
diff --git a/src/genprops.awk b/src/genprops.awk
--- a/src/genprops.awk
+++ b/src/genprops.awk
@@ -410,7 +410,7 @@ function emit_source ()
     {
       dval = defval[i];
       if (type[i] == "radio_property" || type[i] == "color_property")
-        dval = gensub (/^.*\{(.*)\}.*$/, "\"\\1\"", "g", dval);
+        gsub (/^.*\{(.*)\}.*$/, "\"\\1\"", dval);
       if (! dval)
         dval = "octave_value ()";
       if (name[i] !~ /__.*/)
@@ -436,7 +436,8 @@ BEGIN {
 /BEGIN_PROPERTIES\(.*\)/ {
   gather = 1;
   idx = 0;
-  class_name = gensub (/^.*BEGIN_PROPERTIES\((.*)\)/, "\\1", "g");
+  class_name = $0;
+  gsub (/^.*BEGIN_PROPERTIES\((.*)\)/, "\\1", class_name);
   next;
 }