Example #1
0
/* 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)}
Example #2
0
******/

/*****
* 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>>