txt2c.pl

plc软件的源代码 支持PIC ATMEGA单片机

#!/usr/bin/perl

print <<EOT;
// generated by txt2c.pl from $ARGV[0]
#include <stdlib.h>
EOT

for $manual (<manual*txt>) {

    if($manual eq 'manual.txt') {
        $name = "HelpText";
        # Spanish manual isn't translated yet.
        $ifdef = "#if defined(LDLANG_EN) || defined(LDLANG_ES)";
    } elsif($manual =~ /manual-(.)(.)\.txt/) {
        $p = uc($1) . lc($2);
        $ifdef = "#ifdef LDLANG_" . uc($1 . $2);
        $name = "HelpText$p";
    } else {
        die;
    }

    print <<EOT;
$ifdef
char *$name\[] = {
EOT

    open(IN, $manual) or die;
    while(<IN>) {
        chomp;
        s/\\/\\\\/g;
        s/"/\\"/g;

        print qq{    "$_",\n};
    }
    close IN;

    print <<EOT;
    NULL
};
#endif

EOT

}