historicalsource/moonmist
1
0
Fork 0
mirror of https://github.com/historicalsource/moonmist synced 2024-06-29 05:05:09 +03:00
Code Issues Releases Wiki Activity
moonmist/parser.cmp
historicalsource a2025f6d6c Final Revision
2019-04-14 13:37:43 -04:00

303 lines
10 KiB
Plaintext
Raw Blame History

;COMPARISON OF SS:<MOONMIST>PARSER.ZIL.466 AND SS:<MOONMIST>PARSER.ZIL.467
;OPTIONS ARE /1
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-2 (55185)
<ROUTINE ORPHAN-MERGE ("AUX" (CNT -1) TEMP VERB BEG END (ADJ <>) WRD)
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-2 (55185)
<ROUTINE ORPHAN-MERGE ("AUX" (CNT -1) TEMP VERB BEG END
(ADJ <>) (ADJB <>) (VRB <>) (NOUN <>) ADJE WRD)
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-4 (55279)
<COND (<OR <EQUAL? <WT? <SET WRD <GET <GET ,P-ITBL ,P-VERBN> 0>>
,PS?VERB ,P1?VERB>
<GET ,P-OTBL ,P-VERB>>
<WT? .WRD ,PS?ADJECTIVE>>
<SET ADJ T>)
(<AND <WT? .WRD ,PS?OBJECT ,P1?OBJECT>
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-5 (55323)
<COND (<SET WRD <GET <GET ,P-ITBL ,P-VERBN> 0>>
<COND (<EQUAL? <WT? .WRD ,PS?VERB ,P1?VERB>
<GET ,P-OTBL ,P-VERB>>
<SET VRB T>)>
<COND (<WT? .WRD ,PS?ADJECTIVE>
<SET ADJ T>)>
<COND (<WT? .WRD ,PS?OBJECT>
<SET NOUN T>)>)>
<COND (<AND <NOT .VRB> ;"convert apparent verb into noun clause"
<NOT .ADJ>
<WT? .WRD ,PS?OBJECT ,P1?OBJECT>
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-13 (55584)
<PUT ,P-ITBL ,P-NC1 <REST ,P-LEXV 2>>
<PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV 6>>
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-19 (55793)
<PUT ,P-ITBL ,P-NC1 <REST ,P-LEXV <* 2 ,P-LEXSTART>>>
<PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV <+ ,P-WORDLEN <* 2 ,P-LEXSTART>>>>
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-18 (55773)
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-24 (56029)
<NOT .VRB>
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-22 (55908)
<COND (<OR <ZERO? <SET TEMP <GET ,P-ITBL ,P-PREP1>>>
<EQUAL? .TEMP <GET ,P-OTBL ,P-PREP1>>>
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-29 (56184)
<COND (<EQUAL? <GET ,P-ITBL ,P-PREP1>
0
<GET ,P-OTBL ,P-PREP1>>
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-25 (56028)
<PUT ,P-OTBL ,P-NC1 <REST ,P-LEXV 2>>
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-33 (56278)
<PUT ,P-ITBL ,P-NC1 <REST ,P-LEXV <* 2 ,P-LEXSTART>>>
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-27 (56111)
<PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV 6>>)>
<COND (<ZERO? ,P-NCN> <SETG P-NCN 1>)>)
(T
<PUT ,P-OTBL ,P-NC1 <GET ,P-ITBL ,P-NC1>>
;<PUT ,P-OTBL ,P-NC1L <GET ,P-ITBL ,P-NC1L>>)>
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-35 (56377)
<PUT ,P-ITBL ,P-NC1L
<REST ,P-LEXV <+ ,P-WORDLEN
<* 2 ,P-LEXSTART>>>>)>
<COND (<ZERO? ,P-NCN> <SETG P-NCN 1>)>)>
<PUT ,P-OTBL ,P-NC1 <GET ,P-ITBL ,P-NC1>>
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-35 (56420)
<COND (<OR <ZERO? <SET TEMP <GET ,P-ITBL ,P-PREP1>>>
<EQUAL? .TEMP <GET ,P-OTBL ,P-PREP2>>>
<COND (.ADJ
<PUT ,P-ITBL ,P-NC1 <REST ,P-LEXV 2>>
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-43 (56675)
<COND (<EQUAL? <GET ,P-ITBL ,P-PREP1>
<>
<GET ,P-OTBL ,P-PREP2>>
<COND (<OR .ADJ
<AND <ZERO? ,P-NCN> .NOUN>>
<PUT ,P-ITBL ,P-NC1 <REST ,P-LEXV <* 2 ,P-LEXSTART>>>
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-40 (56623)
<PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV 6>>)>)>
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-50 (56909)
<PUT ,P-ITBL ,P-NC1L
<REST ,P-LEXV <+ ,P-WORDLEN
<* 2 ,P-LEXSTART>>>>)>)>
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-51 (56955)
<COND (.ADJ <SET BEG <REST ,P-LEXV 2>> <SET ADJ <>>)>
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-63 (57293)
<COND (.ADJ
<SET BEG <REST ,P-LEXV <* 2 ,P-LEXSTART>>>
<PUT ,P-ITBL ,P-NC1 .BEG>
<SET ADJ <>>)>
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-54 (57064)
<SET WRD <GET .BEG 0>>
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-69 (57456)
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-56 (57123)
<COND (.ADJ <CLAUSE-WIN .ADJ> <RETURN>)
(T <SETG P-ACLAUSE <>> <RFALSE>)>)
(<OR <EQUAL? .WRD ,W?ALL ;,W?EVERYT ,W?ONE>
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-70 (57487)
<COND (.ADJB <CLAUSE-WIN .ADJB .ADJE> <RETURN>)
(T
<SETG P-ACLAUSE <>>
<RFALSE>)>)>
<SET WRD <GET .BEG 0>>
<COND (<OR <EQUAL? .WRD ,W?ALL ,W?ONE>
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-62 (57390)
<SET ADJ .WRD>)
(<EQUAL? .WRD ,W?ONE>
<CLAUSE-WIN .ADJ>
<RETURN>)
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-79 (57804)
<COND (<NOT .ADJB> <SET ADJB .BEG>)>
<SET ADJ .WRD>
<SET ADJE <REST .BEG ,P-WORDLEN>>)
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-68 (57583)
<COND (<EQUAL? .WRD ,P-ANAM>
<CLAUSE-WIN .ADJ>)
(T
<CLAUSE-WIN>)>
<RETURN>)>
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-84 (58007)
<COND (<AND ,P-ANAM
<NOT <EQUAL? .WRD ,P-ANAM>>>
<SETG P-ANAM <>>
<SET ADJB <GET ,P-ITBL ,P-NC1>>
<SET ADJE .END>)>)>
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-77 (57811)
<PUT ,P-ITBL ,P-NC1 <BACK .BEG 4>>
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-93 (58282)
<PUT ,P-ITBL ,P-NC1 <BACK .BEG ,P-WORDLEN>>
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-92 (58285)
<ROUTINE CLAUSE-WIN ("OPT" (ADJ <>))
<COND (.ADJ
<PUT ,P-ITBL ,P-VERB <GET ,P-OTBL ,P-VERB>>)
(ELSE <SET ADJ T>)>
<PUT ,P-CCTBL ,CC-SBPTR ,P-ACLAUSE>
<PUT ,P-CCTBL ,CC-SEPTR <+ ,P-ACLAUSE 1>>
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-108 (58765)
<ROUTINE CLAUSE-WIN ("OPT" (ADJB <>) (ADJE <>))
<COND (.ADJB
<PUT ,P-ITBL ,P-VERB <GET ,P-OTBL ,P-VERB>>)>
<PUT ,P-CCTBL ,CC-BEG ,P-ACLAUSE>
<PUT ,P-CCTBL ,CC-END <+ ,P-ACLAUSE 1>>
<PUT ,P-CCTBL ,CC-IBEG .ADJB>
<PUT ,P-CCTBL ,CC-IEND .ADJE>
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-99 (58538)
<PUT ,P-CCTBL ,CC-OCLAUSE ,P-OCL1>)
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-116 (59063)
<PUT ,P-CCTBL ,CC-CLAUSE ,P-OCL1>)
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 7-101 (58597)
<PUT ,P-CCTBL ,CC-OCLAUSE ,P-OCL2>)>
<CLAUSE-COPY ,P-OTBL ,P-OTBL .ADJ>
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 7-118 (59121)
<PUT ,P-CCTBL ,CC-CLAUSE ,P-OCL2>)>
<CLAUSE-COPY ,P-OTBL ,P-OTBL>
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 10-13 (65387)
<PUT ,P-CCTBL ,CC-SBPTR ,P-NC2>
<PUT ,P-CCTBL ,CC-SEPTR ,P-NC2L>
<PUT ,P-CCTBL ,CC-OCLAUSE ,P-OCL2>
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 10-13 (65905)
<PUT ,P-CCTBL ,CC-BEG ,P-NC2>
<PUT ,P-CCTBL ,CC-END ,P-NC2L>
<PUT ,P-CCTBL ,CC-CLAUSE ,P-OCL2>
<PUT ,P-CCTBL ,CC-IBEG <>>
<PUT ,P-CCTBL ,CC-IEND <>>
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 10-18 (65584)
<PUT ,P-CCTBL ,CC-SBPTR ,P-NC1>
<PUT ,P-CCTBL ,CC-SEPTR ,P-NC1L>
<PUT ,P-CCTBL ,CC-OCLAUSE ,P-OCL1>
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 10-20 (66169)
<PUT ,P-CCTBL ,CC-BEG ,P-NC1>
<PUT ,P-CCTBL ,CC-END ,P-NC1L>
<PUT ,P-CCTBL ,CC-CLAUSE ,P-OCL1>
<PUT ,P-CCTBL ,CC-IBEG <>>
<PUT ,P-CCTBL ,CC-IEND <>>
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 10-157 (70200)
"pointers used by CLAUSE-COPY (source/destination beginning/end pointers):"
<CONSTANT CC-SBPTR 0>
<CONSTANT CC-SEPTR 1>
<CONSTANT CC-OCLAUSE 2>
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 11-2 (70853)
"CLAUSE-COPY"
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 10-164 (70388)
<ROUTINE CLAUSE-COPY (SRC DEST "OPT" (INSRT <>)
"AUX" OCL BEG END BB EE OBEG CNT B E)
<SET BB <GET ,P-CCTBL ,CC-SBPTR>>
<SET EE <GET ,P-CCTBL ,CC-SEPTR>>
<SET OCL <GET ,P-CCTBL ,CC-OCLAUSE>>
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 11-6 (70908)
"pointers used by CLAUSE-COPY (source/destination beginning/end pointers)"
<CONSTANT CC-BEG 0> "slot in source to start from"
<CONSTANT CC-END 1> "slot in source to end at"
<CONSTANT CC-CLAUSE 2> "which orphan table to use"
<CONSTANT CC-IBEG 3> "insertion beginning (from lexv)"
<CONSTANT CC-IEND 4> "insertion ending"
"do something about duplicate words in clause?"
<ROUTINE CLAUSE-COPY (SRC DEST
"AUX" (IBEG <>) IEND OCL BEG END BB EE OBEG CNT B E)
<SET BB <GET ,P-CCTBL ,CC-BEG>>
<SET EE <GET ,P-CCTBL ,CC-END>>
<SET OCL <GET ,P-CCTBL ,CC-CLAUSE>>
<SET IBEG <GET ,P-CCTBL ,CC-IBEG>>
<SET IEND <GET ,P-CCTBL ,CC-IEND>>
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 10-173 (70698)
<COND (<EQUAL? .BEG .END> <RETURN>)>
<COND (<AND .INSRT
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 11-26 (71663)
<COND (<EQUAL? .BEG .END>
<COND (<AND .IBEG <NOT ,P-ANAM>>
<CLAUSE-SUBSTRUC .IBEG .IEND>)>
<RETURN>)>
<COND (<AND .IBEG
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 10-176 (70799)
<COND (<EQUAL? .INSRT T>
<SET B <GET ,P-ITBL ,P-NC1>>
<SET E <GET ,P-ITBL ,P-NC1L>>
<REPEAT ()
<COND (<EQUAL? .B .E> <RETURN>)>
<CLAUSE-ADD <GET .B 0>>
<SET B <REST .B ,P-WORDLEN>>>)
(ELSE
<COND (<NOT <EQUAL? .INSRT <GET .OCL 1>>>
<CLAUSE-ADD .INSRT>)>
<CLAUSE-ADD ,P-ANAM>)>)
(ELSE
<CLAUSE-ADD <GET .BEG 0>>)>
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 11-32 (71858)
<CLAUSE-SUBSTRUC .IBEG .IEND>)>
<CLAUSE-ADD <GET .BEG 0>>
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 10-190 (71278)
<COND (<AND <EQUAL? .SRC .DEST>
<G? .OBEG 0>
<L? 0 <SET CNT <- <GET .OCL ,P-MATCHLEN> .OBEG>>>>
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 11-35 (71966)
<COND (<AND <G? .OBEG 0>
<G? <SET CNT <- <GET .OCL ,P-MATCHLEN> .OBEG>> 0>>
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 10-209 (71811)
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 11-53 (72472)
<ROUTINE CLAUSE-SUBSTRUC (B E)
<REPEAT ()
<COND (<EQUAL? .B .E> <RETURN>)>
<CLAUSE-ADD <GET .B 0>>
<SET B <REST .B ,P-WORDLEN>>>>
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 10-210 (71870)
<SET OCL <GET ,P-CCTBL ,CC-OCLAUSE>>
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 11-60 (72679)
<SET OCL <GET ,P-CCTBL ,CC-CLAUSE>>
***************
**** FILE SS:<MOONMIST>PARSER.ZIL.466, 10-218 (72130)
<PUT .OCL ,P-MATCHLEN .PTR>)>>
**** FILE SS:<MOONMIST>PARSER.ZIL.467, 11-68 (72938)
<PUT .OCL ,P-MATCHLEN .PTR>)>>
***************
Reference in a new issue View git blame Copy permalink