/* Coder .c file for system BattleShips */ /* Program generated by Cbasic 6.2.0 9879 */ #define XSCT_CBASIC #define SCT_VERSION_6_2 #include "coderucf.h" #include "BattleShips.ifc" #include "BattleShips_cod.h" #ifdef CODERINFO #include "coderinfo.h" #endif /* *** SignalId *** */ tSDLTypeInfo ySDL_SignalId = {type_SDL_SignalId, 0, 0 T_SDL_OPFUNCS(0) T_SDL_EXTRA_VALUE T_SDL_Names("SignalId")}; /* *** SIGNAL messageLog *** */ static tSDLSignalParaInfo fSDL_sig_BasicTypes_messageLog[] = { {(tSDLTypeInfo *)&ySDL_SDL_Charstring, xOffsetOf(yPDef_sig_BasicTypes_messageLog, Param1)} }; tSDLSignalInfo ySDL_sig_BasicTypes_messageLog = {type_SDL_Signal, 0, (T_SORTSIZE)sizeof(yPDef_sig_BasicTypes_messageLog) T_SDL_OPFUNCS(0) T_SDL_EXTRA_VALUE T_Signal_SDL_Names("messageLog"), fSDL_sig_BasicTypes_messageLog, 1}; /* *** SIGNAL messageError *** */ static tSDLSignalParaInfo fSDL_sig_BasicTypes_messageError[] = { {(tSDLTypeInfo *)&ySDL_SDL_Charstring, xOffsetOf(yPDef_sig_BasicTypes_messageError, Param1)}
******/ /***** * GENERATOR Ref (BODY section) * <<PACKAGE U2ctypes>> * #SDTREF(TEXT,"C:\\Program Files (x86)\\IBM\\Rational\\TAU\\4.3\\addins\\sdlkernels\\ADT\\CPointer.pr",13,11) ******/ /***** * SYNTYPE int (BODY section) * <<PACKAGE U2ctypes>> * #SDTREF(TEXT,"C:\\Program Files (x86)\\IBM\\Rational\\TAU\\4.3\\addins\\sdlkernels\\ADT\\BasicCTypes.pr",13,9) ******/ #ifndef XTNOUSE_int tSDLGenInfo ySDL_z_U2ctypes_Y0_int = {type_SDL_Syntype, 0, (xptrint)sizeof(z_U2ctypes_Y0_int) T_SDL_OPFUNCS(0) T_SDL_EXTRA_VALUE T_SDL_Names("int") xRaWF((xIdNode)&yPacR_z_U2ctypes__U2ctypes) xRaWF(&ySrtR_z_U2ctypes_Y0_int), (tSDLTypeInfo *)&ySDL_SDL_Integer}; #endif #ifndef XOPTSORT XCONST struct xSortIdStruct ySrtR_z_U2ctypes_Y0_int = {xSortEC , (xIdNode)0, (xIdNode)0, (xIdNode)&yPacR_z_U2ctypes__U2ctypes, "int" xIdNumber(0) XCOMMON_EXTRAS xFreF(0) xAssF(0) xEqF(0) xTestF(0), (xptrint)sizeof(z_U2ctypes_Y0_int), xSyntype, &xSrtR_SDL_Integer, &xSrtR_SDL_Integer, 0, 0, 0, 0 xRaWF((tSDLTypeInfo *)&ySDL_z_U2ctypes_Y0_int) XSRT_EXTRAS}; #endif /***** * SYNTYPE unsigned_int (BODY section) * <<PACKAGE U2ctypes>>