diff options
Diffstat (limited to '3rdparty/openpgm-svn-r1135/pgm/htdocs/convert_to_macro.pl')
-rwxr-xr-x | 3rdparty/openpgm-svn-r1135/pgm/htdocs/convert_to_macro.pl | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/3rdparty/openpgm-svn-r1135/pgm/htdocs/convert_to_macro.pl b/3rdparty/openpgm-svn-r1135/pgm/htdocs/convert_to_macro.pl new file mode 100755 index 0000000..bea44af --- /dev/null +++ b/3rdparty/openpgm-svn-r1135/pgm/htdocs/convert_to_macro.pl @@ -0,0 +1,20 @@ +#!/usr/bin/perl + +use strict; +use File::Basename; + +die "usage: $0 [text file]\n" unless ($ARGV[0]); +open(MOO, $ARGV[0]) or die "cannot open $ARGV[0]: $!"; +my $all = do { local $/; <MOO> }; +close(MOO); +$all =~ s/"/\\"/g; +$all =~ s/\n/\\n/mg; +$all =~ s/\r/\\r/mg; + +my $var = uc (basename($ARGV[0])); +$var =~ s/\s+/_/g; +$var =~ s/\./_/g; + +print<<MOO; +#define WWW_$var "$all" +MOO |