DIRECTORY Asserting, AssertingIO, Basics, FS, IO, Rope, RoseCreate, RoseTranslateTypes, RoseTranslateInsides, RoseTypes;RopePorts: CEDAR PROGRAMIMPORTS AssertingIO, FS, IO, RoseTranslateInsidesEXPORTS RoseCreate =BEGIN OPEN RoseTypes, RoseTranslateTypes, RoseTranslateInsides;PortsFromROPE: PUBLIC PROC [asRope: ROPE] RETURNS [ports: Ports] ={ports _ PortsFromStream[IO.RIS[asRope]]};PortsFromFile: PUBLIC PROC [fileName: ROPE] RETURNS [ports: Ports] ={ports _ PortsFromStream[FS.StreamOpen[fileName]]};PortsFromStream: PUBLIC PROC [stream: STREAM] RETURNS [ports: Ports] =BEGINlength: CARDINAL _ stream.GetCard[];ports _ NEW [PortsRep[length]];FOR portIndex: CARDINAL IN [0 .. length) DOsimple: Field _ GetField[stream];switch: Field _ GetField[stream];name: ROPE _ stream.GetRopeLiteral[];typeAsRope: ROPE _ stream.GetRopeLiteral[];job: Job _ NEW [JobRep _ [exec: NIL,rootName: NIL,from: IO.RIS[typeAsRope],log: viewerLog,type: Other]];any: REF ANY _ ParseExpression[job];type: NodeType _ WITH any SELECT FROMsti: SignalTypeInvocation => sti.st,id: ID => InstantiateSignalType[job, id.rope, NIL].st,ENDCASE => ERROR;flags: [0 .. 16) _ stream.GetCard[];other: Assertions _ AssertingIO.Read[stream];ports[portIndex] _ [simple: simple,switch: switch,name: name,type: type,input: (flags MOD 2) >= 1,output: (flags MOD 4) >= 2,XPhobic: (flags MOD 8) >= 4,instructionsSimple: (flags MOD 16) >= 8,other: other];ENDLOOP;[] _ stream.SkipWhitespace[flushComments: FALSE];IF NOT stream.EndOf[] THEN ERROR;END;GetField: PROC [from: STREAM] RETURNS [f: Field] = {bitOffset: CARDINAL _ from.GetCard[];bitLength: CARDINAL _ from.GetCard[];wordOffset: CARDINAL _ bitOffset/Basics.bitsPerWord;wordoffbits: CARDINAL _ wordOffset*Basics.bitsPerWord;f _ [wordOffset, bitOffset - wordoffbits, bitLength];};END.    L  RopePorts.Mesalast edited by Spreitzer April 27, 1985 9:59:06 pm PSTЭ╩┤  Ц"cedar" styleШ IcodeЩKЩ6KШ KЪ╧k	Ь!ЭЬЭЬHШxKШ Ъ╨bx	ЬЭЬЭШKЪЭЬЭЬЭЬШ1KЪЭЬШЧKШ KЪЭЬЭЬ5Ш?KШ Ъ
╧nЬЭЬЭЬ
ЭЬЭЬШBKЪЬЭЬЭЬШ*ЧKШ Ъ
ЯЬЭЬЭЬЭЬЭЬШDKЪЬЭЬШ3ЧKШ Ъ
ЯЬЭЬЭЬ
ЭЬЭЬШFKЪЭШKЪЬЭЬШ$KЪЬЭЬШЪЭЬЭЬЭЬЭШ+KЪЬ!Ш!KЪЬ!Ш!KЪЬЭЬШ%KЪЬЭЬШ+ЪЬЭЬШKЪЬЭЬШ
KЪЬ
ЭЬШKЪЬЭЬЭЬШKЪЬШKШЧKЪЬЭЬЭЬШ$ЪЬЭЬЭЬЭШ%KЪЬ$Ш$KЪЬЭЬ(ЭЬШ6KЪЭЬЭЬШЧKЪЬ$Ш$KЪЬ-Ш-ЪЬШKЪЬШKЪЬШKШKШKЪЬЭЬ	ШKЪЬЭЬ	ШKЪЬЭЬ	ШKЪЬЭЬ
Ш(KШЧKЪЭЬШЧKЪЬ*ЭЬШ1KЪЭЬЭЬЭЬЭЬШ!KЪЭЬШЧKШ ЪЯЬЭЬЭЬЭЬШ4KЪЬЭЬШ%KЪЬЭЬШ%KЪЬЭЬ Ш4KЪЬЭЬ!Ш6KЪЬ5Ш5KШЧKШ KЪЭЬШЧ ЕЧ    >  
>  