3 # Combine klibc.config, klcc.in to produce a klcc script
5 # Usage: makeklcc klcc.in klibc.config perlpath
8 ($klccin, $klibcconf, $perlpath) = @ARGV;
10 # This should probably handle quotes and escapes...
16 return "(\'".$s."\')";
19 print "#!${perlpath}\n";
21 open(KLIBCCONF, '<', $klibcconf) or die "$0: cannot open $klibcconf: $!\n";
22 while ( defined($l = <KLIBCCONF>) ) {
25 print "\$$` = \"\Q$'\E\";\n";
26 print "\@$` = ", string2list("$'"), ";\n";
31 open(KLCCIN, '<', $klccin) or die "$0: cannot open $klccin: $!\n";
32 while ( defined($l = <KLCCIN>) ) {