chiark / gitweb /
Most of intro section
[disorder] / scripts / text2c
CommitLineData
460b9539 1#! /usr/bin/perl -w
5aff007d
RK
2#
3# This file is part of DisOrder.
4# Copyright (C) 2004-2008 Richard Kettlewell
5#
e7eb3a27 6# This program is free software: you can redistribute it and/or modify
5aff007d 7# it under the terms of the GNU General Public License as published by
e7eb3a27 8# the Free Software Foundation, either version 3 of the License, or
5aff007d 9# (at your option) any later version.
e7eb3a27
RK
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#
5aff007d 16# You should have received a copy of the GNU General Public License
e7eb3a27 17# along with this program. If not, see <http://www.gnu.org/licenses/>.
5aff007d 18#
a05e4467
RK
19my $class = "static";
20if($ARGV[0] eq '-extern') {
21 $class = "";
22 shift;
23}
460b9539 24my $name = shift;
25push(@out, "/* autogenerated file, do not edit */\n\n");
a05e4467 26push(@out, "$class const char $name\[] = \n");
460b9539 27while(<>) {
28 next if /arch-tag/;
29 s/[\\\"\?]/\\$&/g;
30 s/\n/\\n/g;
31 push(@out, " \"$_\"\n");
32}
33push(@out, ";\n");
34((print @out)
35 and (close STDOUT))
36 or die "$0: stdout: $!\n";