1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
#!/usr/bin/perl
die "Usage: gri2html file.gri file.html" if ($#ARGV !=1);
$filename_gri = $ARGV[0];
$filename_html = $ARGV[1];
open(IN, "$filename_gri") || die "Can't open `$filename_gri' for input\n";
open(OUT, ">$filename_html") || die "Can't open `$filename_html' for output\n";
print OUT "<html>\n";
print OUT "<head>\n";
print OUT "<title>$ARGV[0]</title>\n";
print OUT "</head>\n";
print OUT "<body bgcolor=\"#FFFFFF\">\n";
print OUT "<i># This html document was prepared by gri2html based on the Gri script named</i>\n";
print OUT "<br><i># <a href=\"$ARGV[0]\">$ARGV[0]</a></i>\n";
print OUT "<br># <i>Gri is available for free at <a href=\"http://gri.sourceforge.net\">http://gri.sourceforge.net</a></i>\n";
print OUT "<pre>\n";
while(<IN>) {
s,<,<,g;
s,>,>,g;
s,//(.*),<i>//$1</i>,;
if (/^[ ]*\#/) {
s,(\#.*),<font color=\#B22222>$1</font>,;
print OUT "$_";
next;
}
# #Comments
s,(\#.*),<font color=\#B22222>$1</font>,;
# \.factor. =
s,(\\\.[^.]+\. [\+\*/^-]?=),<font color=\#0000EE>$1</font>,;
# .gulf_emphasisGSL. =
s,(\.[^.]+\. [\+\*/^-]?=),<font color=\#0000EE>$1</font>,;
# \xl =
s,(\\[^\\]+ [\+\*/^-]?=),<font color=\#0000EE>$1</font>,;
# \.factor.
s,(\\\.[^ .]+\.),<font color=\#CDAD00>$1</font>,g;
# .factor.
s,( \.[^ .]+\.),<font color=\#CDAD00>$1</font>,g;
# ..ysize..
s,(\.\.[^ .]+\.\.),<font color=\#006400>$1</font>,g;
# \xl
s,( \\[^\ ]+),<font color=\#0000EE>$1</font>,g;
# `newcommand'
s,^(\`.*\')$,<font color=\#0000EE>$1</font>,;
# system stuff
s,system (.*),<font color=\#9400D3>system</font> <font color=\#FF0000>$1</font>,;
# "strings"
s,(".*"),<font color=\#2F4F4F>$1</font>,g;
s,\b(quit|return|if|else( if)?|end (if|while)|break|while|rpn)\b,<font color=\#9400D3>$1</font>,g;
# s,"(.*)",<u>"$1"</u>,g;
print OUT "$_";
}
print OUT "</pre>\n";
print OUT "</body>\n";
print OUT "</html>\n";
|
