summaryrefslogtreecommitdiff
path: root/support/rnototex/rnototex.pas
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /support/rnototex/rnototex.pas
Initial commit
Diffstat (limited to 'support/rnototex/rnototex.pas')
-rw-r--r--support/rnototex/rnototex.pas60
1 files changed, 60 insertions, 0 deletions
diff --git a/support/rnototex/rnototex.pas b/support/rnototex/rnototex.pas
new file mode 100644
index 0000000000..804ce4d7a7
--- /dev/null
+++ b/support/rnototex/rnototex.pas
@@ -0,0 +1,60 @@
+[INHERIT('BASICFILEOPS','CONVERSION',
+'LATEXOPS','TREEANDLISTOPS','FLAGOPS','DSROPS','INIOPS')]
+
+PROGRAM RNOTOTEX( INPUT, OUTPUT);
+
+{ PROGRAM TO CONVERT A RUNOFF FORMAT FILE TO TEX FORMAT }
+{ DEVELOPED BY RANDALL VENHOLA, SUMMER 1987 ON CCRS SMOKE:: }
+{ USING VAX PASCAL }
+
+LABEL
+
+ ENDOFPROGRAM;
+
+CONST
+ DEFAULTFONT = 10;
+ DEFAULTSTYLE = 'report';
+
+VAR
+
+ RNO, TEX, INI : TEXT;
+ RUNOFFTREE : ARGTREE;
+ CURRENTDATE, CURRENTTIME : DATETIMETYPE;
+ INPUTFID, OUTPUTFID : FIDTYPE;
+ LASTINPUTCHAR, CURRENTCHAR : [GLOBAL] CHAR;
+ TOTALLINES, TOTALCHARS : [GLOBAL] INTEGER;
+ TOTALGOODDSRCOMMANDS : [GLOBAL] INTEGER;
+ TOTALBADDSRCOMMANDS : [GLOBAL] INTEGER;
+ TABRECORD : [GLOBAL] TABRECORDTYPE;
+ LOG : [GLOBAL] TEXT;
+ COLUMNCOUNTER : [GLOBAL] INTEGER;
+
+{emergency exit procedure}
+[GLOBAL] PROCEDURE GOTOENDOFPROGRAM;
+BEGIN
+ GOTO ENDOFPROGRAM
+END;
+
+
+BEGIN
+
+ OPENLOGFILE;
+ GREETUSER( CURRENTDATE, CURRENTTIME );
+ USERINTERFACE( INPUTFID, OUTPUTFID, RNO, TEX );
+ SETUPTREE( INI, RUNOFFTREE );
+ PUTCOMMENTSTOOUTPUT( TEX, INPUTFID, CURRENTDATE, CURRENTTIME);
+ STARTLATEX( TEX, DEFAULTFONT, DEFAULTSTYLE );
+ INITFLAGTABLE;
+ INITGLOBALVARS;
+ INITCHARREADER( RNO );
+ PARSEFILE(RNO, TEX, RUNOFFTREE );
+ ENDLATEX( TEX );
+
+ENDOFPROGRAM:
+
+ WRITELN(LOG,'[TOTAL GOOD DSR COMMANDS = ',TOTALGOODDSRCOMMANDS,']');
+ WRITELN(LOG,'[TOTAL BAD DSR COMMANDS = ',TOTALBADDSRCOMMANDS,']');
+ CLOSEFILES( RNO, TEX );
+ CLOSELOGFILE
+
+END.