mirror of
https://github.com/cc65/cc65.git
synced 2024-06-11 05:29:33 +00:00
76 lines
1.5 KiB
Perl
Executable File
76 lines
1.5 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
# Check number of params
|
|
die "Usage: cvt-cfg.pl input output varname\n" unless ($#ARGV == 2);
|
|
|
|
# Get the parameters
|
|
$InputName = shift (@ARGV);
|
|
$OutputName = shift (@ARGV);
|
|
$VarName = shift (@ARGV);
|
|
|
|
# Open both files
|
|
open (IN, "<$InputName") or die "Cannot open $InputName\n";
|
|
open (OUT, ">$OutputName") or die "Cannot open $OutputName\n";
|
|
|
|
# Print the header to the output file
|
|
print OUT "static char $VarName" . "[] = \n";
|
|
|
|
# Read from input, print to output
|
|
while ($Line = <IN>) {
|
|
|
|
# Remove the newline
|
|
chomp $Line;
|
|
|
|
# Separate an existing comment. No need to be overly clever, just ignore
|
|
# semicolons in strings.
|
|
if ($Line =~ /(.*?)(\s*)(;\s*)(.*?)\s*$/) {
|
|
$Line = $1;
|
|
$CommentSpace = $2;
|
|
$Comment = $4;
|
|
} else {
|
|
$CommentSpace = "";
|
|
$Comment = "";
|
|
}
|
|
|
|
# Remove leading and trailing spaces
|
|
$Line =~ s/^\s*|\s*$//g;
|
|
|
|
# Ignore empty lines
|
|
if ($Line eq "") {
|
|
if ($Comment ne "") {
|
|
print OUT "/* $Comment */\n";
|
|
}
|
|
next;
|
|
}
|
|
|
|
# Replace control chars
|
|
$Line =~ s/\\/\\\\/g;
|
|
$Line =~ s/\"/\\\"/g;
|
|
$Line =~ s/\'/\\\'/g;
|
|
|
|
# Print to output
|
|
print OUT "\"$Line\\n\"";
|
|
|
|
# Add a comment if we have one
|
|
if ($Comment ne "") {
|
|
print OUT "$CommentSpace/* $Comment */";
|
|
}
|
|
|
|
# Terminate the line
|
|
print OUT "\n";
|
|
}
|
|
|
|
# Terminate the variable declaration
|
|
print OUT ";\n";
|
|
|
|
# Close the files
|
|
close IN;
|
|
close OUT;
|
|
|
|
# Done
|
|
exit 0;
|
|
|
|
|
|
|
|
|