This is pscode.c in view mode; [Download] [Up]
/* pscode.c generated from pscode.psw
by unix pswrap V1.009 Wed Apr 19 17:50:24 PDT 1989
*/
#include <dpsclient/dpsfriends.h>
#include <string.h>
#line 1 "pscode.psw"
#line 10 "pscode.c"
void copyIconPicture(int win, float x, float y, float w, float h)
{
typedef struct {
unsigned char tokenType;
unsigned char topLevelCount;
unsigned short nBytes;
DPSBinObjReal obj0;
DPSBinObjReal obj1;
DPSBinObjReal obj2;
DPSBinObjReal obj3;
DPSBinObjGeneric obj4;
DPSBinObjGeneric obj5;
DPSBinObjGeneric obj6;
DPSBinObjGeneric obj7;
DPSBinObjGeneric obj8;
DPSBinObjGeneric obj9;
DPSBinObjGeneric obj10;
DPSBinObjGeneric obj11;
DPSBinObjGeneric obj12;
} _dpsQ;
static const _dpsQ _dpsStat = {
DPS_DEF_TOKENTYPE, 13, 108,
{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: w */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: h */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 78}, /* gsave */
{DPS_LITERAL|DPS_INT, 0, 0, 0}, /* param: win */
{DPS_EXEC|DPS_NAME, 0, 0, 0}, /* windowdeviceround */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 79}, /* gstate */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 77}, /* grestore */
{DPS_LITERAL|DPS_INT, 0, 0, 0},
{DPS_LITERAL|DPS_INT, 0, 0, 0},
{DPS_EXEC|DPS_NAME, 0, 0, 0}, /* Copy */
{DPS_EXEC|DPS_NAME, 0, 0, 0}, /* composite */
}; /* _dpsQ */
_dpsQ _dpsF; /* local copy */
register DPSContext _dpsCurCtxt = DPSPrivCurrentContext();
register DPSBinObjRec *_dpsP = (DPSBinObjRec *)&_dpsF.obj0;
static long int _dpsCodes[3] = {-1};
{
if (_dpsCodes[0] < 0) {
static const char * const _dps_names[] = {
"windowdeviceround",
"Copy",
"composite"};
long int *_dps_nameVals[3];
_dps_nameVals[0] = &_dpsCodes[0];
_dps_nameVals[1] = &_dpsCodes[1];
_dps_nameVals[2] = &_dpsCodes[2];
DPSMapNames(_dpsCurCtxt, 3, _dps_names, _dps_nameVals);
}
}
_dpsF = _dpsStat; /* assign automatic variable */
_dpsP[5].val.integerVal = win;
_dpsP[0].val.realVal = x;
_dpsP[1].val.realVal = y;
_dpsP[2].val.realVal = w;
_dpsP[3].val.realVal = h;
_dpsP[6].val.nameVal = _dpsCodes[0];
_dpsP[11].val.nameVal = _dpsCodes[1];
_dpsP[12].val.nameVal = _dpsCodes[2];
DPSBinObjSeqWrite(_dpsCurCtxt,(char *) &_dpsF,108);
}
#line 3 "pscode.psw"
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.