http://slackware.bholcomb.com/slackware/slackware-11.0/source/xap/xscreensaver/xscree...

[xscreensaver] / hacks / glx / dxf2gl.pl

diff --git a/hacks/glx/dxf2gl.pl b/hacks/glx/dxf2gl.pl
index 69e9a4c3ef4454e05598f1b27e930383a8bc8528..b2d334bdef1c79490a6c2dd9e1a3d967ce1cfd87 100755 (executable)
--- a/hacks/glx/dxf2gl.pl
+++ b/hacks/glx/dxf2gl.pl
@@ -29,7 +29,7 @@ use diagnostics;
 use strict;
 
 my $progname = $0; $progname =~ s@.*/@@g;
-my $version = q{ $Revision: 1.1 $ }; $version =~ s/^[^0-9]+([0-9.]+).*$/$1/;
+my $version = q{ $Revision: 1.2 $ }; $version =~ s/^[^0-9]+([0-9.]+).*$/$1/;
 
 my $verbose = 0;
 
@@ -335,7 +335,7 @@ sub generate_c {
   my $code = '';
 
   $code .= "#include \"gllist.h\"\n";
-  $code .= "static float data[]={\n";
+  $code .= "static const float data[]={\n";
 
   my $npoints = ($#points + 1) / 3;
   my $nfaces = $npoints / 3;
@@ -422,9 +422,9 @@ sub generate_c {
 
   $code =~ s/,\n$//s;
   $code .= "\n};\n";
-  $code .= "static struct gllist frame={";
+  $code .= "static const struct gllist frame={";
   $code .= "$format,$primitive,$npoints,data,NULL};\n";
-  $code .= "struct gllist *$token=&frame;\n";
+  $code .= "const struct gllist *$token=&frame;\n";
 
   print STDERR "$progname: $filename: " .
                (($#points+1)/3) . " points, " .