1#!/usr/bin/env perl
2use strict;
3use warnings;
4
5my $file = shift;
6open FILE, "<", $file or die "open $file: $!";
7my $name = $file;
8$name =~ s|.*/||;
9$name =~ s/[-.]/_/g;
10print "static GLchar ${name}_src[] =\n";
11while (<FILE>) {
12    chomp;
13    printf "    \"%s\\n\"\n", $_;
14}
15print "    \"\\n\";\n";
16close FILE;
17