blob: cd3bb40b12ff818662a3f51a3cd718f1850dd15a [file] [log] [blame]
Kamil Rytarowskib7d5a9c2017-04-26 15:16:04 +02001#!/usr/bin/env perl
Gerd Hoffmannd98bc0b2015-01-16 13:59:17 +01002use 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;