X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=interpreters%2Fnitfol%2Fy2help.pl;fp=interpreters%2Fnitfol%2Fy2help.pl;h=f5d0b538894335c6d4aff0aadac645a7c5aef4c3;hb=b1f1dc50b22b30c4d7176e1ff7c0805e80fe0724;hp=0000000000000000000000000000000000000000;hpb=50176172d18ae72d019181725c5629d45d21c548;p=projects%2Fchimara%2Fchimara.git

diff --git a/interpreters/nitfol/y2help.pl b/interpreters/nitfol/y2help.pl
new file mode 100644
index 0000000..f5d0b53
--- /dev/null
+++ b/interpreters/nitfol/y2help.pl
@@ -0,0 +1,86 @@
+#!/usr/bin/perl -w
+use strict;
+
+# Generate help (both C and texinfo) from inform.y
+#
+# This one doesn't even pretend to be nitfol-independant.
+
+my $helptext;
+my $helpcommand;
+my $helpargs;
+my @helpentry;
+my %helptable;
+
+# command => [ [ argtype1, argtype2, ... ], helptext [ helpname, ... ] ]
+
+while(<>) {
+    if(/^\/\* :: (.*) \*\//) {
+	$helptext = $1;
+	$_ = <>;
+	/\| (\S+)\s *(.*?(\/\*.*?\*\/)?.*?)\{/;
+	$helpcommand = $1;
+	$_ = $2;
+	s/\/\*(.*?)\*\//$1/;
+	s/\'(.)\'/$1/;
+	s/NUM/\@var\{num\}/g;
+	s/FILE/\@var\{file\}/g;
+	s/commaexp/\@var\{exp\}/g;
+	s/linespec/\@var\{linespec\}/g;
+	s/IF/if/g;               # Ugly, but oh well...
+	s/TO/to/g;
+	$helpargs = $_;
+	if($helptable{$helpcommand}[0]) {
+	    push @{ $helptable{$helpcommand}[0] }, $helpargs;
+	    $helptable{$helpcommand}[1] = $helptable{$helpcommand}[1] . "\\n" . $helptext;
+	} else {
+	    @{ $helptable{$helpcommand}[0] } = ( $helpargs );
+	    $helptable{$helpcommand}[1] = $helptext;
+	}
+    } elsif(/static name_token infix_commands/) {
+	while(<> =~ /\{\s*(\S+)\,\s*\"(.*?)\"\s*\}/) {
+	    $helpcommand = $1; $helptext = $2;
+	    push @{ $helptable{$helpcommand}[2] }, $helptext;
+	}
+    }
+}
+
+open("MYTEXINFO", ">dbg_help.texi") || die "Unable to write to dbg_help.texi";
+select "MYTEXINFO";
+
+foreach $helpcommand ( keys %helptable) {
+    my $tag = "\@item ";
+    foreach my $helparg (@{ $helptable{$helpcommand}[0] }) {
+	print $tag, @{$helptable{$helpcommand}[2]}[0], " $helparg\n";
+	$tag = "\@itemx ";
+    }
+    $_ = $helptable{$helpcommand}[1];
+    s/\\n/  /g;
+    print "$_\n\n";
+}
+
+close "MYTEXINFO";
+
+open("MYCHELP",   ">dbg_help.h")    || die "Unable to write to dbg_help.c";
+select "MYCHELP";
+
+print "static name_token command_help[] = {\n";
+
+my $flag = 0;
+foreach $helpcommand ( keys %helptable) {
+    if($flag) {
+	print ",\n";
+    }
+    $flag = 1;
+    print "  { $helpcommand, \"", texi2txt($helptable{$helpcommand}[1]), "\" }";
+}
+print "\n};\n";
+close "MYCHELP";
+
+sub texi2txt
+{
+    $_ = $_[0];
+    s/\@code\{(.*?)\}/\'$1\'/g;
+    s/\@file\{(.*?)\}/\'$1\'/g;
+    s/\@\@/\@/g;
+    return $_;
+}