chiark / gitweb /
Oldstabe version gets a ~-based version number.
[disorder] / scripts / text2c
1 #! /usr/bin/perl -w
2 #
3 # This file is part of DisOrder.
4 # Copyright (C) 2004-2008 Richard Kettlewell
5 #
6 # This program is free software: you can redistribute it and/or modify
7 # it under the terms of the GNU General Public License as published by
8 # the Free Software Foundation, either version 3 of the License, or
9 # (at your option) any later version.
10
11 # This program is distributed in the hope that it will be useful,
12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14 # GNU General Public License for more details.
15
16 # You should have received a copy of the GNU General Public License
17 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
18 #
19 my $class = "static";
20 if($ARGV[0] eq '-extern') {
21     $class = "";
22     shift;
23 }
24 my $name = shift;
25 push(@out, "/* autogenerated file, do not edit */\n\n");
26 push(@out, "$class const char $name\[] = \n");
27 while(<>) {
28     next if /arch-tag/;
29     s/[\\\"\?]/\\$&/g;
30     s/\n/\\n/g;
31     push(@out, "  \"$_\"\n");
32 }
33 push(@out, ";\n");
34 ((print @out)
35  and (close STDOUT))
36     or die "$0: stdout: $!\n";