303 lines
10 KiB
Plaintext
303 lines
10 KiB
Plaintext
|
|
;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>)>>
|
|
***************
|
|
|