📄 accesslibrary.c
字号:
((yVDef_z_AccessLibrary_N0_ReadKeys *)PROC_DATA_PTR)->z_AccessLibrary_N01_KeyData =
&(yVarP->z_AccessLibrary_NK_KeyData);
((yVDef_z_AccessLibrary_N0_ReadKeys *)PROC_DATA_PTR)->z_AccessLibrary_N0_ProcedureResult =
&yVarP->xPrdCallRes1_z_AccessLibrary_G_ReadResultType;
CALL_PROCEDURE(z_AccessLibrary_N0_ReadKeys,
yPrdN_z_AccessLibrary_N0_ReadKeys, 0, 10)
PROCEDURE_ALLOC_ERROR_END
XAFTER_VALUE_RET_PRDCALL(10)
/*-----
* DECISION
* #SDTREF(SDL,D:\TelelogicTau36\examples\courseenv\simccode\ACCESS\PanelController.spt(Start_Idle_WaitKeyStroke),1649(95,85),1,1)
------*/
#ifdef XCASEAFTERPRDLABELS
case 10:
#endif
yAssF_z_AccessLibrary_G_ReadResultType(yVarP->yDcn_z_AccessLibrary_G_ReadResultType,
yVarP->xPrdCallRes1_z_AccessLibrary_G_ReadResultType, XASS_MR_ASS_FR);
#ifdef XTRACE
xTraceDecision(&(yVarP->yDcn_z_AccessLibrary_G_ReadResultType),
ySrtN_z_AccessLibrary_G_ReadResultType);
#ifdef XMSCE
xMSCEDecision(&(yVarP->yDcn_z_AccessLibrary_G_ReadResultType),
ySrtN_z_AccessLibrary_G_ReadResultType);
#endif
#endif
if (yEqF_z_AccessLibrary_G_ReadResultType(yVarP->yDcn_z_AccessLibrary_G_ReadResultType,
z_AccessLibrary_G1_SuccessFul)) {
XBETWEEN_SYMBOLS(29, 1209)
/*-----
* OUTPUT Code
* #SDTREF(SDL,D:\TelelogicTau36\examples\courseenv\simccode\ACCESS\PanelController.spt(Start_Idle_WaitKeyStroke),158(80,115),1,1)
------*/
#ifdef XCASELABELS
case 29:
#endif
ALLOC_SIGNAL_PAR(Code, ySigN_z_AccessLibrary_6_Code, xNotDefPId,
yPDef_z_AccessLibrary_6_Code)
SIGNAL_ALLOC_ERROR
yAssF_z_AccessLibrary_F_KeyArrayType(((yPDef_z_AccessLibrary_6_Code *)OUTSIGNAL_DATA_PTR)->Param1,
yVarP->z_AccessLibrary_NK_KeyData, XASS_MR_ASS_NF);
SDL_2OUTPUT_NO_TO(xDefaultPrioSignal, (xIdNode *)0, Code,
ySigN_z_AccessLibrary_6_Code, xNotDefPId,
sizeof(yPDef_z_AccessLibrary_6_Code), "Code")
SIGNAL_ALLOC_ERROR_END
XBETWEEN_SYMBOLS(30, 1227)
/*-----
* OUTPUT Display
* #SDTREF(SDL,D:\TelelogicTau36\examples\courseenv\simccode\ACCESS\PanelController.spt(Start_Idle_WaitKeyStroke),161(80,130),1,1)
------*/
#ifdef XCASELABELS
case 30:
#endif
ALLOC_SIGNAL_PAR(Display, ySigN_z_AccessLibrary_9_Display, xNotDefPId,
yPDef_z_AccessLibrary_9_Display)
SIGNAL_ALLOC_ERROR
yAssF_SDL_Charstring(((yPDef_z_AccessLibrary_9_Display *)OUTSIGNAL_DATA_PTR)->Param1,
yVarP->z_AccessLibrary_NC_PleaseWait, XASS_MR_ASS_NF);
SDL_2OUTPUT_NO_TO(xDefaultPrioSignal, (xIdNode *)0, Display,
ySigN_z_AccessLibrary_9_Display, xNotDefPId,
sizeof(yPDef_z_AccessLibrary_9_Display), "Display")
SIGNAL_ALLOC_ERROR_END
XBETWEEN_SYMBOLS(31, 1245)
/*-----
* SET PanelTimer
* #SDTREF(SDL,D:\TelelogicTau36\examples\courseenv\simccode\ACCESS\PanelController.spt(Start_Idle_WaitKeyStroke),1661(80,145),1,1)
------*/
#ifdef XCASELABELS
case 31:
#endif
SDL_SET_DUR(xPlus_SDL_Time(SDL_NOW, z_AccessLibrary_L_DISPLAYTIME),
z_AccessLibrary_L_DISPLAYTIME, PanelTimer,
ySigN_z_AccessLibrary_N6_PanelTimer, yTim_PanelTimer, "PanelTimer")
XBETWEEN_SYMBOLS(32, 1257)
/*-----
* NEXTSTATE WaitOK
* #SDTREF(SDL,D:\TelelogicTau36\examples\courseenv\simccode\ACCESS\PanelController.spt(Start_Idle_WaitKeyStroke),167(80,160),1)
------*/
#ifdef XCASELABELS
case 32:
#endif
XAT_LAST_SYMBOL
SDL_NEXTSTATE(WaitOK, z_AccessLibrary_N3_WaitOK, "WaitOK")
} else if (yEqF_z_AccessLibrary_G_ReadResultType(yVarP->yDcn_z_AccessLibrary_G_ReadResultType,
z_AccessLibrary_G0_TimedOut)) {
XBETWEEN_SYMBOLS(33, 1270)
/*-----
* OUTPUT Abort
* #SDTREF(SDL,D:\TelelogicTau36\examples\courseenv\simccode\ACCESS\PanelController.spt(Start_Idle_WaitKeyStroke),1574(135,115),1,1)
------*/
#ifdef XCASELABELS
case 33:
#endif
ALLOC_SIGNAL(Abort, ySigN_z_AccessLibrary_7_Abort, xNotDefPId,
XSIGNALHEADERTYPE)
SIGNAL_ALLOC_ERROR
SDL_2OUTPUT_NO_TO(xDefaultPrioSignal, (xIdNode *)0, Abort,
ySigN_z_AccessLibrary_7_Abort, xNotDefPId, 0, "Abort")
SIGNAL_ALLOC_ERROR_END
XBETWEEN_SYMBOLS(34, 1285)
/*-----
* OUTPUT Display
* #SDTREF(SDL,D:\TelelogicTau36\examples\courseenv\simccode\ACCESS\PanelController.spt(Start_Idle_WaitKeyStroke),1580(135,130),1,1)
------*/
#ifdef XCASELABELS
case 34:
#endif
ALLOC_SIGNAL_PAR(Display, ySigN_z_AccessLibrary_9_Display, xNotDefPId,
yPDef_z_AccessLibrary_9_Display)
SIGNAL_ALLOC_ERROR
yAssF_SDL_Charstring(((yPDef_z_AccessLibrary_9_Display *)OUTSIGNAL_DATA_PTR)->Param1,
yVarP->z_AccessLibrary_NB_Timeout, XASS_MR_ASS_NF);
SDL_2OUTPUT_NO_TO(xDefaultPrioSignal, (xIdNode *)0, Display,
ySigN_z_AccessLibrary_9_Display, xNotDefPId,
sizeof(yPDef_z_AccessLibrary_9_Display), "Display")
SIGNAL_ALLOC_ERROR_END
XBETWEEN_SYMBOLS(35, 1303)
/*-----
* SET PanelTimer
* #SDTREF(SDL,D:\TelelogicTau36\examples\courseenv\simccode\ACCESS\PanelController.spt(Start_Idle_WaitKeyStroke),1586(135,145),1,1)
------*/
#ifdef XCASELABELS
case 35:
#endif
SDL_SET_DUR(xPlus_SDL_Time(SDL_NOW, z_AccessLibrary_L_DISPLAYTIME),
z_AccessLibrary_L_DISPLAYTIME, PanelTimer,
ySigN_z_AccessLibrary_N6_PanelTimer, yTim_PanelTimer, "PanelTimer")
XBETWEEN_SYMBOLS(36, 1315)
/*-----
* NEXTSTATE WaitDisplay
* #SDTREF(SDL,D:\TelelogicTau36\examples\courseenv\simccode\ACCESS\PanelController.spt(Start_Idle_WaitKeyStroke),1592(135,160),1)
------*/
#ifdef XCASELABELS
case 36:
#endif
XAT_LAST_SYMBOL
SDL_NEXTSTATE(WaitDisplay, z_AccessLibrary_N5_WaitDisplay, "WaitDisplay")
}
#ifdef XEDECISION
else {
xErrorDecision(xWriteSort(&yVarP->yDcn_z_AccessLibrary_G_ReadResultType,
ySrtN_z_AccessLibrary_G_ReadResultType));
return;
}
#endif
/*-----
* INPUT DisplayOK
* #SDTREF(SDL,D:\TelelogicTau36\examples\courseenv\simccode\ACCESS\PanelController.spt(WaitOK),1397(40,35),1)
------*/
case 3:
XDEBUG_LABEL(WaitOK_DisplayOK)
XAT_FIRST_SYMBOL(3)
XOS_TRACE_INPUT("DisplayOK")
XBETWEEN_SYMBOLS(37, 1343)
/*-----
* RESET PanelTimer
* #SDTREF(SDL,D:\TelelogicTau36\examples\courseenv\simccode\ACCESS\PanelController.spt(WaitOK),1694(40,50),1,1)
------*/
#ifdef XCASELABELS
case 37:
#endif
SDL_RESET(PanelTimer, ySigN_z_AccessLibrary_N6_PanelTimer, yTim_PanelTimer,
"PanelTimer")
XBETWEEN_SYMBOLS(38, 1354)
/*-----
* OUTPUT Display
* #SDTREF(SDL,D:\TelelogicTau36\examples\courseenv\simccode\ACCESS\PanelController.spt(WaitOK),1700(40,65),1,1)
------*/
#ifdef XCASELABELS
case 38:
#endif
ALLOC_SIGNAL_PAR(Display, ySigN_z_AccessLibrary_9_Display, xNotDefPId,
yPDef_z_AccessLibrary_9_Display)
SIGNAL_ALLOC_ERROR
yAssF_SDL_Charstring(((yPDef_z_AccessLibrary_9_Display *)OUTSIGNAL_DATA_PTR)->Param1,
yVarP->z_AccessLibrary_NH_SelectDoor, XASS_MR_ASS_NF);
SDL_2OUTPUT_NO_TO(xDefaultPrioSignal, (xIdNode *)0, Display,
ySigN_z_AccessLibrary_9_Display, xNotDefPId,
sizeof(yPDef_z_AccessLibrary_9_Display), "Display")
SIGNAL_ALLOC_ERROR_END
XBETWEEN_SYMBOLS(39, 1372)
/*-----
* CALL ReadKeys (from EXPRESSION in next symbol)
* #SDTREF(SDL,D:\TelelogicTau36\examples\courseenv\simccode\ACCESS\PanelController.spt(WaitOK),1706(30,80),1,1)
------*/
#ifdef XCASELABELS
case 39:
#endif
ALLOC_PROCEDURE(z_AccessLibrary_N0_ReadKeys,
yPrdN_z_AccessLibrary_N0_ReadKeys,
sizeof(yVDef_z_AccessLibrary_N0_ReadKeys))
PROCEDURE_ALLOC_ERROR
yAssF_SDL_Natural(((yVDef_z_AccessLibrary_N0_ReadKeys *)PROC_DATA_PTR)->z_AccessLibrary_N00_NumberKeys,
yTstA_SDL_Natural(SDL_INTEGER_LIT(1)), XASS_MR_ASS_NF);
((yVDef_z_AccessLibrary_N0_ReadKeys *)PROC_DATA_PTR)->z_AccessLibrary_N01_KeyData =
&(yVarP->z_AccessLibrary_NK_KeyData);
((yVDef_z_AccessLibrary_N0_ReadKeys *)PROC_DATA_PTR)->z_AccessLibrary_N0_ProcedureResult =
&yVarP->xPrdCallRes1_z_AccessLibrary_G_ReadResultType;
CALL_PROCEDURE(z_AccessLibrary_N0_ReadKeys,
yPrdN_z_AccessLibrary_N0_ReadKeys, 0, 11)
PROCEDURE_ALLOC_ERROR_END
XAFTER_VALUE_RET_PRDCALL(11)
/*-----
* DECISION
* #SDTREF(SDL,D:\TelelogicTau36\examples\courseenv\simccode\ACCESS\PanelController.spt(WaitOK),1706(30,80),1,1)
------*/
#ifdef XCASEAFTERPRDLABELS
case 11:
#endif
yAssF_z_AccessLibrary_G_ReadResultType(yVarP->yDcn_z_AccessLibrary_G_ReadResultType,
yVarP->xPrdCallRes1_z_AccessLibrary_G_ReadResultType, XASS_MR_ASS_FR);
#ifdef XTRACE
xTraceDecision(&(yVarP->yDcn_z_AccessLibrary_G_ReadResultType),
ySrtN_z_AccessLibrary_G_ReadResultType);
#ifdef XMSCE
xMSCEDecision(&(yVarP->yDcn_z_AccessLibrary_G_ReadResultType),
ySrtN_z_AccessLibrary_G_ReadResultType);
#endif
#endif
if (yEqF_z_AccessLibrary_G_ReadResultType(yVarP->yDcn_z_AccessLibrary_G_ReadResultType,
z_AccessLibrary_G1_SuccessFul)) {
XBETWEEN_SYMBOLS(40, 1415)
/*-----
* ASSIGNMENT DoorNo := ...
* #SDTREF(SDL,D:\TelelogicTau36\examples\courseenv\simccode\ACCESS\PanelController.spt(WaitOK),1757(55,105),1,1)
------*/
#ifdef XCASELABELS
case 40:
#endif
yAssF_SDL_Integer(yVarP->z_AccessLibrary_NL_DoorNo,
xMinus_SDL_Integer(xNum_SDL_Character(yVarP->
z_AccessLibrary_NK_KeyData.A[yTstI_z_AccessLibrary_I_KeyIndexType
(SDL_INTEGER_LIT(1)) - SDL_INTEGER_LIT(1)]), xNum_SDL_Character('0')),
XASS_MR_ASS_FR);
#ifdef XTRACE
xTraceAssign("DoorNo := ", &(yVarP->z_AccessLibrary_NL_DoorNo),
xSrtN_SDL_Integer);
#endif
#ifdef XMSCE
xMSCEAssign("DoorNo := ", &(yVarP->z_AccessLibrary_NL_DoorNo),
xSrtN_SDL_Integer);
#endif
XBETWEEN_SYMBOLS(41, 1437)
/*-----
* DECISION
* #SDTREF(SDL,D:\TelelogicTau36\examples\courseenv\simccode\ACCESS\PanelController.spt(WaitOK),1745(60,125),1,1)
------*/
#ifdef XCASELABELS
case 41:
#endif
yAssF_SDL_Integer(yDcn_SDL_Integer, yVarP->z_AccessLibrary_NL_DoorNo,
XASS_MR_ASS_FR);
#ifdef XTRACE
xTraceDecision(&(yDcn_SDL_Integer), xSrtN_SDL_Integer);
#ifdef XMSCE
xMSCEDecision(&(yDcn_SDL_Integer), xSrtN_SDL_Integer);
#endif
#endif
if ((xLE_SDL_Integer(SDL_INTEGER_LIT(1), yDcn_SDL_Integer) &&
xLE_SDL_Integer(yDcn_SDL_Integer, SDL_INTEGER_LIT(4)))) {
XBETWEEN_SYMBOLS(42, 1456)
/*-----
* OUTPUT SelectedDoor
* #SDTREF(SDL,D:\TelelogicTau36\examples\courseenv\simccode\ACCESS\PanelController.spt(WaitOK),1751(45,140),1,1)
------*/
#ifdef XCASELABELS
case 42:
#endif
ALLOC_SIGNAL_PAR(SelectedDoor, ySigN_z_AccessLibrary_8_SelectedDoor,
xNotDefPId, yPDef_z_AccessLibrary_8_SelectedDoor)
SIGNAL_ALLOC_ERROR
yAssF_z_AccessLibrary_H_DoorNoType(((yPDef_z_AccessLibrary_8_SelectedDoor *)OUTSIGNAL_DATA_PTR)->Param1,
yTstA_z_AccessLibrary_H_DoorNoType(yVarP->z_AccessLibrary_NL_DoorNo),
XASS_MR_ASS_NF);
SDL_2OUTPUT_NO_TO(xDefaultPrioSignal, (xIdNode *)0, SelectedDoor,
ySigN_z_AccessLibrary_8_SelectedDoor, xNotDefPId,
sizeof(yPDef_z_AccessLibrary_8_SelectedDoor), "SelectedDoor")
SIGNAL_ALLOC_ERROR_END
X
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -