#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
my $file = shift; | |
open FILE, "<", $file or die "open $file: $!"; | |
my $name = $file; | |
$name =~ s|.*/||; | |
$name =~ s/[-.]/_/g; | |
print "static GLchar ${name}_src[] =\n"; | |
while (<FILE>) { | |
chomp; | |
printf " \"%s\\n\"\n", $_; | |
} | |
print " \"\\n\";\n"; | |
close FILE; |