GitHub Viewer
#!/usr/bin/env perl
use warnings;
sub generateErrorsList
{
my $sourceFile = $_[0];
my $name = $_[1];
my $array = "const char * ${name} = \n";
open SOURCE, "$outputFile"
or die "Could not open output file \"$outputFile\": $!";
print OUTPUT $output;
close OUTPUT;