This is MissileCommand.c in view mode; [Download] [Up]
/* ./sym/MissileCommand.c generated from MissileCommand.psw
by unix pswrap V1.009 Wed Apr 19 17:50:24 PDT 1989
*/
#include <dpsclient/dpsfriends.h>
#include <string.h>
#line 1 "MissileCommand.psw"
// Copyright 1993, Katzlberger Thomas, Innsbruck, Austria. All rights reserved.
// Copyright 1992, Stefanos Kiakas. All rights reserved.
// You may not delete this notice.
// This should be about 100% faster.
#line 15 "./sym/MissileCommand.c"
void PSWinit( void )
{
typedef struct {
unsigned char tokenType;
unsigned char topLevelCount;
unsigned short nBytes;
DPSBinObjGeneric obj0;
DPSBinObjGeneric obj1;
DPSBinObjGeneric obj2;
DPSBinObjGeneric obj3;
DPSBinObjGeneric obj4;
DPSBinObjGeneric obj5;
DPSBinObjGeneric obj6;
DPSBinObjGeneric obj7;
DPSBinObjGeneric obj8;
DPSBinObjGeneric obj9;
DPSBinObjGeneric obj10;
DPSBinObjGeneric obj11;
DPSBinObjGeneric obj12;
DPSBinObjGeneric obj13;
DPSBinObjGeneric obj14;
DPSBinObjGeneric obj15;
DPSBinObjGeneric obj16;
DPSBinObjGeneric obj17;
DPSBinObjGeneric obj18;
DPSBinObjGeneric obj19;
DPSBinObjGeneric obj20;
DPSBinObjGeneric obj21;
DPSBinObjGeneric obj22;
DPSBinObjGeneric obj23;
DPSBinObjGeneric obj24;
DPSBinObjGeneric obj25;
DPSBinObjGeneric obj26;
DPSBinObjGeneric obj27;
DPSBinObjGeneric obj28;
DPSBinObjGeneric obj29;
DPSBinObjGeneric obj30;
DPSBinObjGeneric obj31;
DPSBinObjGeneric obj32;
DPSBinObjGeneric obj33;
DPSBinObjGeneric obj34;
DPSBinObjGeneric obj35;
DPSBinObjGeneric obj36;
DPSBinObjGeneric obj37;
DPSBinObjGeneric obj38;
DPSBinObjGeneric obj39;
DPSBinObjReal obj40;
DPSBinObjGeneric obj41;
DPSBinObjGeneric obj42;
DPSBinObjGeneric obj43;
DPSBinObjGeneric obj44;
DPSBinObjGeneric obj45;
DPSBinObjGeneric obj46;
DPSBinObjGeneric obj47;
DPSBinObjGeneric obj48;
DPSBinObjGeneric obj49;
DPSBinObjGeneric obj50;
DPSBinObjGeneric obj51;
DPSBinObjGeneric obj52;
DPSBinObjGeneric obj53;
DPSBinObjGeneric obj54;
DPSBinObjGeneric obj55;
DPSBinObjGeneric obj56;
DPSBinObjGeneric obj57;
DPSBinObjGeneric obj58;
DPSBinObjGeneric obj59;
DPSBinObjGeneric obj60;
DPSBinObjGeneric obj61;
DPSBinObjGeneric obj62;
DPSBinObjGeneric obj63;
DPSBinObjGeneric obj64;
DPSBinObjGeneric obj65;
char obj66[7];
char obj67[9];
char obj68[8];
char obj69[8];
char obj70[7];
} _dpsQ;
static const _dpsQ _dpsF = {
DPS_DEF_TOKENTYPE, 20, 571,
{DPS_LITERAL|DPS_NAME, 0, 7, 560}, /* explode */
{DPS_EXEC|DPS_ARRAY, 0, 5, 488},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 14}, /* bind */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
{DPS_LITERAL|DPS_NAME, 0, 8, 552}, /* surfexpl */
{DPS_EXEC|DPS_ARRAY, 0, 5, 448},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 14}, /* bind */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
{DPS_LITERAL|DPS_NAME, 0, 8, 544}, /* plottraj */
{DPS_EXEC|DPS_ARRAY, 0, 7, 392},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 14}, /* bind */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
{DPS_LITERAL|DPS_NAME, 0, 9, 535}, /* erasetraj */
{DPS_EXEC|DPS_ARRAY, 0, 9, 320},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 14}, /* bind */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
{DPS_LITERAL|DPS_NAME, 0, 7, 528}, /* markloc */
{DPS_EXEC|DPS_ARRAY, 0, 20, 160},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 14}, /* bind */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
{DPS_LITERAL|DPS_INT, 0, 0, 1},
{DPS_LITERAL|DPS_INT, 0, 0, 3},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 54}, /* div */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 150}, /* setgray */
{DPS_LITERAL|DPS_INT, 0, 0, 5},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 169}, /* sub */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 62}, /* exch */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 107}, /* moveto */
{DPS_LITERAL|DPS_INT, 0, 0, 5},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 62}, /* exch */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 99}, /* lineto */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 167}, /* stroke */
{DPS_LITERAL|DPS_INT, 0, 0, 5},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 169}, /* sub */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 107}, /* moveto */
{DPS_LITERAL|DPS_INT, 0, 0, 5},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 99}, /* lineto */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 167}, /* stroke */
{DPS_LITERAL|DPS_REAL, 0, 0, 1.5},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 155}, /* setlinewidth */
{DPS_LITERAL|DPS_INT, 0, 0, 1},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 150}, /* setgray */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 107}, /* moveto */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 99}, /* lineto */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 167}, /* stroke */
{DPS_LITERAL|DPS_INT, 0, 0, 1},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 155}, /* setlinewidth */
{DPS_LITERAL|DPS_INT, 0, 0, 1},
{DPS_LITERAL|DPS_INT, 0, 0, 3},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 54}, /* div */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 150}, /* setgray */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 107}, /* moveto */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 99}, /* lineto */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 167}, /* stroke */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 150}, /* setgray */
{DPS_LITERAL|DPS_INT, 0, 0, 0},
{DPS_LITERAL|DPS_INT, 0, 0, 180},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 5}, /* arc */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 167}, /* stroke */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 150}, /* setgray */
{DPS_LITERAL|DPS_INT, 0, 0, 0},
{DPS_LITERAL|DPS_INT, 0, 0, 360},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 5}, /* arc */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 167}, /* stroke */
{'m','a','r','k','l','o','c'},
{'e','r','a','s','e','t','r','a','j'},
{'p','l','o','t','t','r','a','j'},
{'s','u','r','f','e','x','p','l'},
{'e','x','p','l','o','d','e'},
}; /* _dpsQ */
register DPSContext _dpsCurCtxt = DPSPrivCurrentContext();
char pad[3];
DPSBinObjSeqWrite(_dpsCurCtxt,(char *) &_dpsF,571);
if (0) *pad = 0; /* quiets compiler warnings */
}
#line 47 "MissileCommand.psw"
#line 176 "./sym/MissileCommand.c"
void PSWexplode(float gray, float x, float y, float rad)
{
typedef struct {
unsigned char tokenType;
unsigned char topLevelCount;
unsigned short nBytes;
DPSBinObjReal obj0;
DPSBinObjReal obj1;
DPSBinObjReal obj2;
DPSBinObjReal obj3;
DPSBinObjGeneric obj4;
char obj5[7];
} _dpsQ;
static const _dpsQ _dpsStat = {
DPS_DEF_TOKENTYPE, 5, 51,
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: x */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: y */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: rad */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: gray */
{DPS_EXEC|DPS_NAME, 0, 7, 40}, /* explode */
{'e','x','p','l','o','d','e'},
}; /* _dpsQ */
_dpsQ _dpsF; /* local copy */
register DPSContext _dpsCurCtxt = DPSPrivCurrentContext();
char pad[3];
register DPSBinObjRec *_dpsP = (DPSBinObjRec *)&_dpsF.obj0;
_dpsF = _dpsStat; /* assign automatic variable */
_dpsP[3].val.realVal = gray;
_dpsP[0].val.realVal = x;
_dpsP[1].val.realVal = y;
_dpsP[2].val.realVal = rad;
DPSBinObjSeqWrite(_dpsCurCtxt,(char *) &_dpsF,51);
if (0) *pad = 0; /* quiets compiler warnings */
}
#line 53 "MissileCommand.psw"
#line 215 "./sym/MissileCommand.c"
void PSWsurfexpl(float gray, float x, float y, float rad)
{
typedef struct {
unsigned char tokenType;
unsigned char topLevelCount;
unsigned short nBytes;
DPSBinObjReal obj0;
DPSBinObjReal obj1;
DPSBinObjReal obj2;
DPSBinObjReal obj3;
DPSBinObjGeneric obj4;
char obj5[8];
} _dpsQ;
static const _dpsQ _dpsStat = {
DPS_DEF_TOKENTYPE, 5, 52,
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: x */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: y */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: rad */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: gray */
{DPS_EXEC|DPS_NAME, 0, 8, 40}, /* surfexpl */
{'s','u','r','f','e','x','p','l'},
}; /* _dpsQ */
_dpsQ _dpsF; /* local copy */
register DPSContext _dpsCurCtxt = DPSPrivCurrentContext();
char pad[3];
register DPSBinObjRec *_dpsP = (DPSBinObjRec *)&_dpsF.obj0;
_dpsF = _dpsStat; /* assign automatic variable */
_dpsP[3].val.realVal = gray;
_dpsP[0].val.realVal = x;
_dpsP[1].val.realVal = y;
_dpsP[2].val.realVal = rad;
DPSBinObjSeqWrite(_dpsCurCtxt,(char *) &_dpsF,52);
if (0) *pad = 0; /* quiets compiler warnings */
}
#line 59 "MissileCommand.psw"
#line 254 "./sym/MissileCommand.c"
void PSWplottrajectory(float sx, float sy, float dx, float dy)
{
typedef struct {
unsigned char tokenType;
unsigned char topLevelCount;
unsigned short nBytes;
DPSBinObjReal obj0;
DPSBinObjReal obj1;
DPSBinObjReal obj2;
DPSBinObjReal obj3;
DPSBinObjGeneric obj4;
char obj5[8];
} _dpsQ;
static const _dpsQ _dpsStat = {
DPS_DEF_TOKENTYPE, 5, 52,
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: dx */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: dy */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: sx */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: sy */
{DPS_EXEC|DPS_NAME, 0, 8, 40}, /* plottraj */
{'p','l','o','t','t','r','a','j'},
}; /* _dpsQ */
_dpsQ _dpsF; /* local copy */
register DPSContext _dpsCurCtxt = DPSPrivCurrentContext();
char pad[3];
register DPSBinObjRec *_dpsP = (DPSBinObjRec *)&_dpsF.obj0;
_dpsF = _dpsStat; /* assign automatic variable */
_dpsP[2].val.realVal = sx;
_dpsP[3].val.realVal = sy;
_dpsP[0].val.realVal = dx;
_dpsP[1].val.realVal = dy;
DPSBinObjSeqWrite(_dpsCurCtxt,(char *) &_dpsF,52);
if (0) *pad = 0; /* quiets compiler warnings */
}
#line 65 "MissileCommand.psw"
#line 293 "./sym/MissileCommand.c"
void PSWerasetrajectory(float sx, float sy, float dx, float dy)
{
typedef struct {
unsigned char tokenType;
unsigned char topLevelCount;
unsigned short nBytes;
DPSBinObjReal obj0;
DPSBinObjReal obj1;
DPSBinObjReal obj2;
DPSBinObjReal obj3;
DPSBinObjGeneric obj4;
char obj5[9];
} _dpsQ;
static const _dpsQ _dpsStat = {
DPS_DEF_TOKENTYPE, 5, 53,
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: dx */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: dy */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: sx */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: sy */
{DPS_EXEC|DPS_NAME, 0, 9, 40}, /* erasetraj */
{'e','r','a','s','e','t','r','a','j'},
}; /* _dpsQ */
_dpsQ _dpsF; /* local copy */
register DPSContext _dpsCurCtxt = DPSPrivCurrentContext();
char pad[3];
register DPSBinObjRec *_dpsP = (DPSBinObjRec *)&_dpsF.obj0;
_dpsF = _dpsStat; /* assign automatic variable */
_dpsP[2].val.realVal = sx;
_dpsP[3].val.realVal = sy;
_dpsP[0].val.realVal = dx;
_dpsP[1].val.realVal = dy;
DPSBinObjSeqWrite(_dpsCurCtxt,(char *) &_dpsF,53);
if (0) *pad = 0; /* quiets compiler warnings */
}
#line 71 "MissileCommand.psw"
#line 332 "./sym/MissileCommand.c"
void PSWmarkloc(float x, float y)
{
typedef struct {
unsigned char tokenType;
unsigned char topLevelCount;
unsigned short nBytes;
DPSBinObjReal obj0;
DPSBinObjReal obj1;
DPSBinObjReal obj2;
DPSBinObjReal obj3;
DPSBinObjReal obj4;
DPSBinObjReal obj5;
DPSBinObjReal obj6;
DPSBinObjReal obj7;
DPSBinObjGeneric obj8;
char obj9[7];
} _dpsQ;
static const _dpsQ _dpsStat = {
DPS_DEF_TOKENTYPE, 9, 83,
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: x */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: y */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: x */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: y */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: y */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: x */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: y */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: x */
{DPS_EXEC|DPS_NAME, 0, 7, 72}, /* markloc */
{'m','a','r','k','l','o','c'},
}; /* _dpsQ */
_dpsQ _dpsF; /* local copy */
register DPSContext _dpsCurCtxt = DPSPrivCurrentContext();
char pad[3];
register DPSBinObjRec *_dpsP = (DPSBinObjRec *)&_dpsF.obj0;
_dpsF = _dpsStat; /* assign automatic variable */
_dpsP[0].val.realVal =
_dpsP[2].val.realVal =
_dpsP[5].val.realVal =
_dpsP[7].val.realVal = x;
_dpsP[1].val.realVal =
_dpsP[3].val.realVal =
_dpsP[4].val.realVal =
_dpsP[6].val.realVal = y;
DPSBinObjSeqWrite(_dpsCurCtxt,(char *) &_dpsF,83);
if (0) *pad = 0; /* quiets compiler warnings */
}
#line 77 "MissileCommand.psw"
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.