DIRECTORYCGenDebugDefs USING [GetBackup],CodeDefs USING [ConsDestination],FormSW USING [AllocateItemDescriptor, BooleanItem, ClientItemsProcType, Display, ItemHandle, line0, line1, line2, NumberItem, StringItem],Symbols USING [ContextLevel, lG, lL, lZ],Tool USING [Create, MakeFormSW, MakeSWsProc],ToolWindow USING [SetTinyName, TransitionProcType],Window USING [Handle, Place],WindowFont USING [CharWidth];CGenDebugCons: PROGRAM IMPORTS CGenDebugDefs, FormSW, Tool, ToolWindow, WindowFontEXPORTS CGenDebugDefs =BEGINOPEN FormSW, CGenDebugDefs;window: Window.Handle;h: Window.Handle;windowIsActive: BOOLEAN _ FALSE;MakeMySWs: Tool.MakeSWsProc =BEGINh _ Tool.MakeFormSW[window: window, formProc: MakeParameterArray];END;Init: PRIVATE PROCEDURE =BEGINwindow _ Tool.Create[makeSWsProc: MakeMySWs,name: "Constructor Destination"L,clientTransition: Transit,cmSection: "ConsDest"L];ToolWindow.SetTinyName[window, "Cons"L, "Dest"L]END;Transit: ToolWindow.TransitionProcType = {windowIsActive _ new = active};ConsParamIndex: TYPE = {bd, inFrame, pLoaded, ignSafen, pDel,wSize, fOff, pSti, pLen, rem, bSize, fLvl, pBackup};ConsParams: TYPE = LONG DESCRIPTOR FOR ARRAY ConsParamIndex OFFormSW.ItemHandle;cw: CARDINAL = WindowFont.CharWidth['w];Col1: CARDINAL = 0*cw;Col2: CARDINAL = Col1 + 12*cw;Col3: CARDINAL = Col2 + 13*cw;Col4: CARDINAL = Col3 + 13*cw;Col5: CARDINAL = Col4 + 13*cw;bdPlace: Window.Place = [x: Col1, y: line0];wSizePlace: Window.Place = [x: Col1, y: line1];bSizePlace: Window.Place = [x: Col1, y: line2];inFramePlace: Window.Place = [x: Col2, y: line0];fOffPlace: Window.Place = [x: Col2, y: line1];fLvlPlace: Window.Place = [x: Col2, y: line2];pLoadedPlace: Window.Place = [x: Col3, y: line0];pStiPlace: Window.Place = [x: Col3, y: line1];pBackupPlace: Window.Place = [x: Col3, y: line2];ignSafenPlace: Window.Place = [x: Col4, y: line0];pLenPlace: Window.Place = [x: Col4, y: line1];pDelPlace: Window.Place = [x: Col5, y: line0];remPlace: Window.Place = [x: Col5, y: line1];MakeParameterArray: FormSW.ClientItemsProcType =BEGIN OPEN FormSW; nParams: CARDINAL = LOOPHOLE[LAST[ConsParamIndex], CARDINAL] + 1;params: ConsParams _ LOOPHOLE[AllocateItemDescriptor[nParams]];params[bd] _ NumberItem[readOnly: TRUE, signed: FALSE,tag: "bd"L, place: bdPlace, value: @bdWord];params[wSize] _ NumberItem[readOnly: TRUE, signed: FALSE,tag: "wSize"L, place: wSizePlace, value: @cd.wSize];params[bSize] _ NumberItem[readOnly: TRUE, signed: FALSE,tag: "bSize"L, place: bSizePlace, value: @bSizeWord];params[inFrame] _ BooleanItem[tag: "inFrame"L, place: inFramePlace, switch: @inFrame];params[fOff] _ NumberItem[readOnly: TRUE, signed: FALSE,tag: "fOff"L, place: fOffPlace, value: @cd.fOffset];params[fLvl] _ StringItem[tag: "fLvl"L, place: fLvlPlace, readOnly: TRUE, string: @fLvlString];params[pLoaded] _ BooleanItem[tag: "pLoaded"L, place: pLoadedPlace, switch: @pLoaded];params[pSti] _ NumberItem[readOnly: TRUE, signed: FALSE,tag: "pSti"L, place: pStiPlace, value: @pStiWord];params[pBackup] _ StringItem[tag: "pBkp"L, place: pBackupPlace, readOnly: TRUE, string: @pBackupString];params[ignSafen] _ BooleanItem[tag: "ignSafen"L, place: ignSafenPlace, switch: @ignSafen];params[pLen] _ NumberItem[readOnly: TRUE, signed: FALSE,tag: "pLen"L, place: pLenPlace, value: @pLenWord];params[pDel] _ NumberItem[readOnly: TRUE,tag: "pDel"L, place: pDelPlace, value: @cd.pDelta];params[rem] _ NumberItem[readOnly: TRUE, signed: FALSE,tag: "rem"L, place: remPlace, value: @cd.remaining];RETURN[items: LOOPHOLE[params], freeDesc: TRUE];END;cd: PUBLIC CodeDefs.ConsDestination;UpdateConstDest: PUBLIC PROCEDURE =BEGINDoLvl: PROC [s: LONG STRING, l: Symbols.ContextLevel] =BEGINs.length _ 1;s[0] _ SELECT l FROMSymbols.lZ => 'Z,Symbols.lG => 'G,Symbols.lL => 'L,> LAST[Symbols.ContextLevel] => '?,ENDCASE => '0 + l;END;inFrame _ IF cd.inFrame THEN TRUE ELSE FALSE;pLoaded _ IF cd.pLoaded THEN TRUE ELSE FALSE;ignSafen _ IF cd.ignoreSafen THEN TRUE ELSE FALSE;bdWord _ cd.bd;bSizeWord _ cd.bSize;DoLvl[fLvlString, cd.fLevel];pLenWord _ cd.pLength;pStiWord _ LOOPHOLE[cd.pSti];CGenDebugDefs.GetBackup[pBackupString, cd.pBackup];IF windowIsActive THEN FormSW.Display[h];END;inFrame, pLoaded, ignSafen: BOOLEAN;bdWord: CARDINAL;bSizeWord: CARDINAL;pLenWord: CARDINAL;pStiWord: CARDINAL;fLvlShortString: STRING _ [1];pBackupShortString: STRING _ [30];fLvlString: LONG STRING _ fLvlShortString;pBackupString: LONG STRING _ pBackupShortString;Init[];END.    >  CGenDebugCons.mesa Edited by Sweet, 18-Feb-83 22:09:38 Э╩з  Ш ЪЬ6Щ6JШ ЧЪ╧k	Ш	JЪЬЭЬШ JЪЬ	ЭЬШ!ЪЬЭЬШJШCJШ9ЧJЪЬЭЬШ)JЪЬЭЬ#Ш-JЪЬЭЬ#Ш3JЪЬЭЬШЪЬЭЬШJШ ЧЧЪЬЭЬШJЪЭЬ4Ш;JЪЭЬШJЪЭШЪЭЬШJШ ЧJШJШJЪЬЭЬЭЬШ JШ ШJЪЭШJШBJЪЭЬШЧЧШ Ъ╧nЬЭЬЭ	ЬШJЪЭШШJШJШ!JШJШЧJШ0JЪЭЬШЧЧШ JШIЧШ ЪЬЭЬ)Ш=JШ4ЧЪЬЭЬЭЬЭ
ЬЭЬЭЬЭШ>JШJШ ЧJЪЬЭЬШ(ЧШ JЪЬЭЬШJЪЬЭЬШJЪЬЭЬШJЪЬЭЬШJЪЬЭЬШЧШ JШ,JШ/JШ/ЧШ JШ1JШ.JШ.ЧШ JШ1JШ.JШ1ЧШ JШ2JШ.ЧШ JШ.JШ-ЧШ Ш0JЪЭЬЭЬ	ШJЪ	Ь	ЭЬЭЬЭЬЭЬШAЪЬЭЬШJШ!ЧЧЧШ ЪЬ"ЭЬ
ЭЬШ6JШ,ЧЪЬ%ЭЬ
ЭЬШ9JШ4ЧЪЬ%ЭЬ
ЭЬШ9JШ5ЧJШ ШJШ8ЧЪЬ$ЭЬ
ЭЬШ8JШ4ЧШJЪЬ*ЭЬШEЧJШ ШJШ8ЧЪЬ$ЭЬ
ЭЬШ8JШ2ЧШJЪЬ-ЭЬШKЧJШ ЧШ ШJШ;ЧЪЬ$ЭЬ
ЭЬШ8JШ2ЧJШ ЪЬ$ЭЬШ)JШ3ЧЪЬ#ЭЬ
ЭЬШ7JШ4ЧЧШ JЪЭЬЭЬЭЬШ0JЪЭЬШЧШ JЪЬЭЬШ$ЧШ ЪЮЬЭЬЭ	ЬШ#JЪЭШЪЮЬЭЬЭЬЭЬШ7JЪЭШJШЪЬЭЬЭШJШJШJШJЪЬЭЬШ#JЪЭЬШЧJЪЭЬШЧJЪЬ
ЭЬЭЬЭЬЭЬЭЬШ-JЪЬ
ЭЬЭЬЭЬЭЬЭЬШ-JЪЬЭЬЭЬЭЬЭЬЭЬШ2JШJШJШJШJЪЬЭЬ
ШJШ3JЪЭЬЭЬШ)JЪЭЬШЧЧJШ Ш JЪЬЭЬШ$JЪЬЭЬШJЪЬЭЬШJЪЬ
ЭЬШJЪЬ
ЭЬШJЪЬЭЬШJЪЬЭЬШ"JЪЬЭЬЭЬШ*JЪЬЭЬЭЬШ0ЧШ JШJШ JЪЭЬШЧJШ Ч ЕЧ    ю  ╙  