prindiville%ccrs.CDN@ean.ubc.ca (John Edgecombe) (08/08/88)
Sorry for the confusion. And the delay in responding, I have just returned
from vacation. The compile .COM should default to /ENVIRONMENT, as noted;
and the link should refer to P1. These were due to the developer always
specifying a parameter. The missing .INI file was due to inaccuracies in
putting the sources under CMS (the .INI was inadvertantly missed).
Corrected .COM files and the missing RNOtoTeX.INI file are included below.
..................... Cut between dotted lines and save. .....................
$!.............................................................................
$! VAX/VMS archive file created by VMS_SHARE V06.00 26-May-1988.
$!
$! VMS_SHARE was written by James Gray (Gray:OSBUSouth@Xerox.COM) from
$! VMS_SHAR by Michael Bednarek (U3369429@ucsvc.dn.mu.oz.au).
$!
$! To unpack, simply save, concatinate all parts into one file and
$! execute (@) that file.
$!
$! This archive was created by user EDGECOMBE
$! on 6-APR-1866 20:07:23.76.
$!
$! It contains the following 4 files:
$! COMPILE_RNOTOTEX.COM
$! LINK_RNOTOTEX.COM
$! SETUP.COM
$! RNOTOTEX.INI
$!
$!==============================================================================
$ SET SYMBOL/SCOPE=( NOLOCAL, NOGLOBAL )
$ VERSION = F$GETSYI( "VERSION" )
$ IF VERSION .GES "V4.4" THEN GOTO VERSION_OK
$ WRITE SYS$OUTPUT "You are running VMS ''VERSION'; ", -
"VMS_SHARE V06.00 26-May-1988 requires VMS V4.4 or higher."
$ EXIT 44
$VERSION_OK:
$ GOTO START
$
$UNPACK_FILE:
$ WRITE SYS$OUTPUT "Creating ''FILE_IS'"
$ DEFINE/USER_MODE SYS$OUTPUT NL:
$ EDIT/TPU/COMMAND=SYS$INPUT/NODISPLAY/OUTPUT='FILE_IS'/NOSECTION -
VMS_SHARE_DUMMY.DUMMY
b_part := CREATE_BUFFER( "{Part}", GET_INFO( COMMAND_LINE, "file_name" ) )
; s_file_spec := GET_INFO( COMMAND_LINE, "output_file" ); SET( OUTPUT_FILE
, b_part, s_file_spec ); b_errors := CREATE_BUFFER( "{Errors}" ); i_errors
:= 0; pat_beg_1 := ANCHOR & "-+-+-+ Beginning"; pat_beg_2 := LINE_BEGIN
& "+-+-+-+ Beginning"; pat_end := ANCHOR & "+-+-+-+-+ End"; POSITION
( BEGINNING_OF( b_part ) ); i_append_line := 0; LOOP EXITIF MARK( NONE
) = END_OF( b_part ); s_x := ERASE_CHARACTER( 1 ); IF s_x = "+" THEN r_skip
:= SEARCH( pat_beg_1, FORWARD, EXACT ); IF r_skip <> 0 THEN s_x := ""
; MOVE_HORIZONTAL( -CURRENT_OFFSET ); ERASE_LINE; ENDIF; ENDIF
; IF s_x = "-" THEN r_skip := SEARCH( pat_end, FORWARD, EXACT ); IF r_skip <
> 0 THEN s_x := ""; MOVE_HORIZONTAL( -CURRENT_OFFSET ); m_skip := MARK( NONE )
; r_skip := SEARCH( pat_beg_2, FORWARD, EXACT ); IF r_skip <> 0 THEN POSITION
( END_OF( r_skip ) ); MOVE_HORIZONTAL( -CURRENT_OFFSET ); MOVE_VERTICAL( 1 )
; MOVE_HORIZONTAL( -1 ); ELSE POSITION( END_OF( b_part ) ); ENDIF; ERASE
( CREATE_RANGE( m_skip, MARK( NONE ), NONE ) ); ENDIF; ENDIF
; IF s_x = "V" THEN s_x := ""; IF i_append_line <> 0 THEN APPEND_LINE
; MOVE_HORIZONTAL( -CURRENT_OFFSET ); ENDIF; i_append_line := 1; MOVE_VERTICAL
( 1 ); ENDIF; IF s_x = "X" THEN s_x := ""; IF i_append_line <
> 0 THEN APPEND_LINE; MOVE_HORIZONTAL( -CURRENT_OFFSET ); ENDIF
; i_append_line := 0; MOVE_VERTICAL( 1 ); ENDIF; IF s_x <> "" THEN i_errors
:= i_errors + 1; s_text := CURRENT_LINE; POSITION( b_errors ); COPY_TEXT
( "The following line could not be unpacked properly:" ); SPLIT_LINE
; COPY_TEXT( s_x ); COPY_TEXT( s_text ); POSITION( b_part ); MOVE_VERTICAL( 1
); ENDIF; ENDLOOP; POSITION( BEGINNING_OF( b_part ) ); LOOP r_x := SEARCH( "`"
, FORWARD, EXACT ); EXITIF r_x = 0; POSITION( r_x ); ERASE_CHARACTER( 1 )
; IF CURRENT_CHARACTER = "`" THEN MOVE_HORIZONTAL( 1 ); ELSE COPY_TEXT( ASCII
( INT( ERASE_CHARACTER( 3 ) ) ) ); ENDIF; ENDLOOP; IF i_errors = 0 THEN SET
( NO_WRITE, b_errors, ON ); ELSE POSITION( BEGINNING_OF( b_errors ) )
; COPY_TEXT( FAO( "The following !UL errors were detected while unpacking !AS"
, i_errors, s_file_spec ) ); SPLIT_LINE; SET( OUTPUT_FILE, b_errors
, "SYS$COMMAND" ); ENDIF; EXIT;
$ DELETE VMS_SHARE_DUMMY.DUMMY;*
$ CHECKSUM 'FILE_IS
$ WRITE SYS$OUTPUT " CHECKSUM ", -
F$ELEMENT( CHECKSUM_IS .EQ. CHECKSUM$CHECKSUM, ",", "failed!,passed." )
$ RETURN
$
$START:
$ FILE_IS = "COMPILE_RNOTOTEX.COM"
$ CHECKSUM_IS = 1635150220
$ COPY SYS$INPUT VMS_SHARE_DUMMY.DUMMY
X$ IF ("''P1'" .EQS. "") THEN $ P1="PASCAL/OPTIMIZE/NOCHECK/ENVIRONMENT"
X$ 'P1' SCREENHANDLERS
X$ 'P1' UTILITYOPS
X$ 'P1' ARGOPS
X$ 'P1' BASICFILEOPS
X$ 'P1' TREEANDLISTOPS
X$ 'P1' FLAGOPS
X$ 'P1' LATEXOPS
X$ 'P1' INIOPS
X$ 'P1' CONVERSION
X$ 'P1' DSROPS
X$ 'P1' RNOTOTEX
X$ FORTRAN GETCLI
$ GOSUB UNPACK_FILE
$ FILE_IS = "LINK_RNOTOTEX.COM"
$ CHECKSUM_IS = 1462906451
$ COPY SYS$INPUT VMS_SHARE_DUMMY.DUMMY
X$ PI = 'P1
X$ IF ("''P1'" .EQS. "") THEN $ PI="NODEBUG"
X$ LINK/'PI' RNOTOTEX,-
X`009 UTILITYOPS,-
X`009 SCREENHANDLERS,-
X`009 ARGOPS,-
X`009 BASICFILEOPS,-
X`009 FLAGOPS,-
X`009 TREEANDLISTOPS,-
X`009 LATEXOPS,-
X`009 INIOPS,-
X`009 CONVERSION,-
X`009 DSROPS,-
X`009 GETCLI
$ GOSUB UNPACK_FILE
$ FILE_IS = "SETUP.COM"
$ CHECKSUM_IS = 1043937621
$ COPY SYS$INPUT VMS_SHARE_DUMMY.DUMMY
X$ set command rnototex
X$ define init$rnototex rnototex.ini
$ GOSUB UNPACK_FILE
$ FILE_IS = "RNOTOTEX.INI"
$ CHECKSUM_IS = 1110335497
$ COPY SYS$INPUT VMS_SHARE_DUMMY.DUMMY
X130 X$[T]
X099 VR$[T]$[T]
X099 VARIABLE$[T]$[T] !VARIABLE COMMAND
X026 UPPER$CASE !FORCE UPPER CASE TEXT
X026 UC
X041 TS$[N]$[N]$[N]$[N]$[N]
X039 TP$[N]
X021 TITLE$[T] !TITLE COMMAND
X039 TEST$PAGE$[N] !TEST FOR A PAGE BREAK
X041 TAB$STOPS$[N]$[N]$[N]$[N]$[N] !SET TAB STOPS
X021 T$[T]
X022 SUBTITLE$[T] !SUBTITLE COMMAND
X016 SUBPAGE`009 !CREATE SUBPAGE
X130 SUBINDEX$[T]
X085 STYLE$HEADERS$[N]$[N]$[N] !SET STYLE OF HEADERS
X101 STM$[N]$[N]$[N]
X085 STHL$[N]$[N]$[N]
X090 STANDARD$[N] !RESET TO STANDARD MODE
X022 ST$[T]
X049 SPR$[N]$[N]$[N]
X016 SPG`009
X035 SPACING$[N] !SET SPACING VALUE
X035 SP$[N]
X036 SKIP$[N] !SKIP SOME SPACES
X101 SET$TIME$[N]$[N]$[N] !SET TIME
X049 SET$PARAGRAPH$[N]$[N]$[N] !SET PARAGRAPH DEFAULT VALUES
X100 SET$DATE$[N]$[N]$[N] !SET DATE
X100 SDT$[N]$[N]$[N]
X090 SD$[N]
X036 S$[N]
X070 RPT$[N]$[Q]
X029 RM$[N]
X044 RIGHT$[N] !RIGHT FLUSH
X029 RIGHT$MARGIN$[N] !SETR RIGHT MARGIN
X092 REQUIRE$[Q] !GET A FILE
X070 REPEAT$[N]$[Q] !REPEAT CHARACTER
X044 R$[N]
X001 PS$[N]$[N]
X046 PR
X038 PG
X046 PERIOD`009 !ENABLE PERIOD FLAG
X048 PARAGRAPH$[N]$[N]$[N] !NEW PAR
X001 PAPER$SIZE$[N]$[N] !PAPER SIZE [LENGTH] [WIDTH]
X015 PAGING`009 !ENABLE PAGING MODE
X001 PAGE$SIZE$[N]$[N]
X038 PAGE `009 !FORCE A PAGE BREAK
X015 PA`009
X048 P$[N]$[N]$[N]$[N]
X018 NUMBER$SUBPAGE$[C] !NUMBER SUBPAGE
X012 NUMBER$RUNNING$[C] !NUMBER RUNNING COUNTER
X011 NUMBER$PAGE$[C] !ENABLE PAGE NUMBERING
X074 NUMBER$LIST$[N]$[N] !NUMBER LIST
X084 NUMBER$LEVEL$[N]$[N]$[N]$[N]$[N]$[N] !SET SECTION NUMBERING LEVELS
X081 NUMBER$CHAPTER$[C] !SET CHAPTER NUMBERING STYLE
X088 NUMBER$APPENDIX$[C] !SET APPENDIX NUMBERING
X076 NT$[T]
X023 NST
X047 NSP
X045 NPR
X014 NPA
X076 NOTE$[T] !BEGIN NOTES
X032 NOJUST
X030 NOFILL
X023 NO$SUBTITLE !DISABLE SUBTITLE
X047 NO$SPACE !FRENCH SPACING
X045 NO$PERIOD !DISABLE PERIOD FLAG
X014 NO$PAGING !STOP PAGING MODE
X010 NO$NUMBER !DISABLE PAGE NUMBERING
X032 NO$JUSTIFY !STOP JUSTIFICATION
X032 NO$JUST
X056 NO$HYPHENATION !DISABLE HYNPHENATION
X002 NO$HEADERS !TURN HEADER WRITING OFF
X106 NO$FLAGS$UPPERCASE
X114 NO$FLAGS$UNDERLINE
X128 NO$FLAGS$SUBSTITUTE
X112 NO$FLAGS$SPACE
X110 NO$FLAGS$QUOTE
X118 NO$FLAGS$OVERSTRIKE
X108 NO$FLAGS$LOWERCASE
X120 NO$FLAGS$HYPHENATE
X124 NO$FLAGS$FOOTNOTE
X104 NO$FLAGS$CONTROL !NO CONTROL FLAGS
X126 NO$FLAGS$COMMENT
X122 NO$FLAGS$CAPTIALIZE
X103 NO$FLAGS$ALL !TURN OFF ALL FLAGS
X103 NO$FLAGS
X030 NO$FILL`009 !DIABLE FILL
X008 NO$DATE !DISABLE DATE ON PAGE
X094 NO$CONTROL$CHARACTERS !NO CONTROL CHARACTERS ALLOWED
X053 NO$AUTOTABLE !DISABLE AUTOTABLE
X024 NO$AUTOSUBTITLE !DISABLE AUTOSUBTITLE
X051 NO$AUTOPARAGRAPH !DISABLE AUTOPARAGRAPHING
X010 NNM
X018 NMSPG$[C]
X012 NMR$[C]
X011 NMPG$[C]
X084 NMLV$[N]$[N]$[N]$[N]$[N]$[N]
X074 NMLS$[N]$[N]
X081 NMCH$[C]
X088 NMAX$[C]
X103 NLF
X032 NJ
X056 NHY
X002 NHD
X106 NFL$UPPERCASE
X114 NFL$UNDERLINE
X128 NFL$SUBSTITUTE
X112 NFL$SPACE
X110 NFL$QUOTE
X118 NFL$OVERSTRIKE
X108 NFL$LOWERCASE
X120 NFL$HYPHENATE
X124 NFL$FOOTNOTE
X104 NFL$CONTROL
X126 NFL$COMMENT
X122 NFL$CAPTIALIZE
X116 NFL$BOLD
X030 NF `009
X008 ND
X094 NCC
X053 NAT
X024 NAST`009
X051 NAP
X071 LS$[N]$[Q]
X027 LOWER$CASE !FORCE LOWER CASE TEXT
X009 LO$[N]$[N]
X028 LM$[N]
X068 LITERAL$[N] !LITERAL
X068 LIT
X071 LIST$[N]$[Q] !LIST COMMAND
X073 LIST$ELEMENT !LIST ELEMENT
X043 LEFT$[N] !SAME AS INDENT
X028 LEFT$MARGIN$[N] !SET LEFT MARGIN
X073 LE
X027 LC
X009 LAYOUT$[N]$[N] !SETUP LAYOUT
X043 L$[N]
X068 L
X033 JUSTIFY !ENABLEJUSTIFICATION
X033 J
X130 IX$[T]
X130 INDEX$[T]
X042 INDENT$[N] !INDENT TEXT
X098 IFNOT$[T] !IF NOT COMMAND
X095 IF$[T]`009 !IF COMMAND
X042 I$[N]`009
X057 HYPHENATION !ENABLE HYNPHENATION
X057 HY
X083 HL$[N]$[T]
X004 HEADERS$UPPER !PAGE NUMBERING CASE
X003 HEADERS$ON !TURN HEADER WRITING ON
X006 HEADERS$MIXED
X005 HEADERS$LOWER
X083 HEADER$LEVEL$[N]$[T] !SECTIONING COMMAND
X003 HD$ON
X003 HD
X020 FT
X078 FOOTNOTE$[N] !BEGIN FOOTNOTE
X078 FN$[N]`009
X107 FLAGS$UPPERCASE$[C]
X115 FLAGS$UNDERLINE$[C]
X129 FLAGS$SUBSTITUTE$[C]
X113 FLAGS$SPACE$[C]
X111 FLAGS$QUOTE$[C]
X119 FLAGS$OVERSTRIKE$[C]
X109 FLAGS$LOWERCASE$[C]
X121 FLAGS$HYPHENATE$[C]
X125 FLAGS$FOOTNOTE$[C]
X105 FLAGS$CONTROL$[C] !TURN ON CONTROL FLAGS
X127 FLAGS$COMMENT
X123 FLAGS$CAPITALIZE$[C]
X117 FLAGS$BOLD$[C]
X102 FLAGS$ALL !TURN ON ALL FLAGS
X102 FLAGS
X107 FL$UPPERCASE$[C]
X115 FL$UNDERLINE$[C]
X129 FL$SUBSTITUTE$[C]
X113 FL$SPACE$[C]
X111 FL$QUOTE$[C]
X119 FL$OVERSTRIKE$[C]
X116 FL$NO$FLAGS$BOLD
X109 FL$LOWERCASE$[C]
X121 FL$HYNPHENATE$[C]
X125 FL$FOOTNOTE$[C]
X105 FL$CONTROL$[C]
X127 FL$COMMENT
X123 FL$CAPTIALIZE$[C]
X117 FL$BOLD$[C]
X102 FL
X020 FIRST$TITLE !ENABLE FIRST TITLE
X031 FILL `009 !ENABLE FILL
X066 FIGURE$[N] !FIGURE COMMAND
X067 FIGURE$DEFERRED$[N] !FIGURE DEFERRED
X067 FGD$[N]
X066 FG$[N]
X031 F
X055 EUN
X017 ES
X061 EOV
X097 ENDIF$[T] !END IF COMMAND
X017 END$SUBPAGE !END SUBPAGE
X077 END$NOTE !END NOTES
X069 END$LITERAL !END LITERAL
X072 END$LIST !END LIST
X079 END$FOOTNOTE !END FOOTNOTE
X064 END$BAR`009 !END BAR
X055 ENABLE$UNDERLINING !ENABLE CHARACTER UNDERLINING
X061 ENABLE$OVERSTRIKE !ENABLE OVERSTRIKING
X059 ENABLE$BOLDING !ENABLE BOLDING
X062 ENABLE$BAR !ENABLE BAR
X077 EN
X096 ELSE$[T] !ELSE
X072 ELS
X069 EL
X059 EBO
X062 EBB
X064 EB
X054 DUL
X019 DSP$[Y]`009
X060 DOV
X013 DNM$[Y]`009
X075 DLE$[Q]$[Y]$[Q]
X019 DISPLAY$SUBPAGE$[Y] !DISPLAY SUBPAGE
X013 DISPLAY$NUMBER$[Y] !DISPLAY NUMBER RUNNING
X086 DISPLAY$LEVELS$[Y]$[Y]$[Y]$[Y]$[Y]$[Y] !DISPLAY LEVELS COMMAND
X075 DISPLAY$ELEMENTS$[Q]$[Y]$[Q] !DISPLAY LIST ELEMENTS
X082 DISPLAY$CHAPTER$[Y] !DISPLAY CHAPTER STYLE
X089 DISPLAY$APPENDIX$[Y] !DISPLAY APPENDIS
X054 DISABLE$UNDERLINING !DISABLE CHARACTER UNDERLINING
X060 DISABLE$OVERSTRIKING !DISABLE OVERSTRIKING
X058 DISABLE$BOLDING !DISABLE BOLDING OF CHARACTERS
X065 DISABLE$BAR !DISABLE BAR
X086 DHL$[Y]$[Y]$[Y]$[Y]$[Y]$[Y]
X082 DCH$[Y]
X058 DBO
X065 DBB
X089 DAX$[Y]
X007 DATE !ENABLE DATE ON PAGE
X007 D
X093 CONTROL$CHARACTERS !ENABLE CONTROL CHARACTERS
X091 COMMENT$[T] !DSR COMMENT
X080 CHAPTER$[T] !NEW CHAPTER
X080 CH$[T]
X040 CENTRE$[N]
X040 CENTER$[N] !CENTRE A LINE OF TEXT
X093 CC
X040 C$[N]
X034 BREAK !CAUSE A BREAK
X034 BR
X037 BLANK$[N] !LEAVE BLANK LINES
X063 BEGIN$BAR !BEGIN BAR
X063 BB
X037 B$[N]
X087 AX$[T]
X052 AUTOTABLE !ENABLE AUTOTABLE
X025 AUTOSUBTITLE$[N] !ENABLE AUTOSUBTITLING
X050 AUTOPARAGRAPH !ENABLE AUTOPARGRAPHING
X052 AT
X025 AST$[N]
X087 APPENDIX$[T] !APPENDIX
X050 AP
$ GOSUB UNPACK_FILE
$ EXIT