This is PSWraps.c in view mode; [Download] [Up]
/* ./sym/PSWraps.c generated from PSWraps.psw
by unix pswrap V1.009 Wed Apr 19 17:50:24 PDT 1989
*/
#include <dpsclient/dpsfriends.h>
#include <string.h>
#line 1 "PSWraps.psw"
/*
Copyright 1993 Jeremy Slade.
You are free to use all or any parts of the Locus project
however you wish, just give credit where credit is due.
The author (Jeremy Slade) shall not be held responsible
for any damages that result out of use or misuse of any
part of this project.
*/
/*
Project: Locus
File: PSWraps.psw
Description:
Contains PS Wraps used within Locus
Original Author: Jeremy Slade
Revision History:
Created
V.101 JGS Fri Mar 12 21:22:00 GMT-0700 1993
*/
/* Initialize bound definitions of PostScript routines */
#line 40 "./sym/PSWraps.c"
void PSInitWraps( 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;
char obj11[14];
char obj12[6];
char obj13[7];
} _dpsQ;
static const _dpsQ _dpsF = {
DPS_DEF_TOKENTYPE, 8, 119,
{DPS_LITERAL|DPS_NAME, 0, 7, 108}, /* settier */
{DPS_EXEC|DPS_ARRAY, 0, 1, 80},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 14}, /* bind */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
{DPS_LITERAL|DPS_NAME, 0, 6, 102}, /* showxy */
{DPS_EXEC|DPS_ARRAY, 0, 2, 64},
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 14}, /* bind */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 51}, /* def */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 107}, /* moveto */
{DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 160}, /* show */
{DPS_EXEC|DPS_NAME, 0, 14, 88}, /* setwindowlevel */
{'s','e','t','w','i','n','d','o','w','l','e','v','e','l'},
{'s','h','o','w','x','y'},
{'s','e','t','t','i','e','r'},
}; /* _dpsQ */
register DPSContext _dpsCurCtxt = DPSPrivCurrentContext();
char pad[3];
DPSBinObjSeqWrite(_dpsCurCtxt,(char *) &_dpsF,119);
if (0) *pad = 0; /* quiets compiler warnings */
}
#line 51 "PSWraps.psw"
#line 87 "./sym/PSWraps.c"
void PSsettier(int level, int window)
{
typedef struct {
unsigned char tokenType;
unsigned char topLevelCount;
unsigned short nBytes;
DPSBinObjGeneric obj0;
DPSBinObjGeneric obj1;
DPSBinObjGeneric obj2;
char obj3[14];
} _dpsQ;
static const _dpsQ _dpsStat = {
DPS_DEF_TOKENTYPE, 3, 42,
{DPS_LITERAL|DPS_INT, 0, 0, 0}, /* param: level */
{DPS_LITERAL|DPS_INT, 0, 0, 0}, /* param: window */
{DPS_EXEC|DPS_NAME, 0, 14, 24}, /* setwindowlevel */
{'s','e','t','w','i','n','d','o','w','l','e','v','e','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[0].val.integerVal = level;
_dpsP[1].val.integerVal = window;
DPSBinObjSeqWrite(_dpsCurCtxt,(char *) &_dpsF,42);
if (0) *pad = 0; /* quiets compiler warnings */
}
#line 57 "PSWraps.psw"
#line 120 "./sym/PSWraps.c"
void PSshowxy(float x, float y, const char *string)
{
typedef struct {
unsigned char tokenType;
unsigned char sizeFlag;
unsigned short topLevelCount;
unsigned long nBytes;
DPSBinObjGeneric obj0;
DPSBinObjReal obj1;
DPSBinObjReal obj2;
DPSBinObjGeneric obj3;
char obj4[6];
} _dpsQ;
static const _dpsQ _dpsStat = {
DPS_DEF_TOKENTYPE, 0, 4, 46,
{DPS_LITERAL|DPS_STRING, 0, 0, 38}, /* param string */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: x */
{DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: y */
{DPS_EXEC|DPS_NAME, 0, 6, 32}, /* showxy */
{'s','h','o','w','x','y'},
}; /* _dpsQ */
_dpsQ _dpsF; /* local copy */
register DPSContext _dpsCurCtxt = DPSPrivCurrentContext();
char pad[3];
register DPSBinObjRec *_dpsP = (DPSBinObjRec *)&_dpsF.obj0;
register int _dps_offset = 38;
_dpsF = _dpsStat; /* assign automatic variable */
_dpsP[1].val.realVal = x;
_dpsP[2].val.realVal = y;
_dpsP[0].length = strlen(string);
_dpsP[0].val.stringVal = _dps_offset;
_dps_offset += (_dpsP[0].length + 3) & ~3;
_dpsF.nBytes = _dps_offset+8;
DPSBinObjSeqWrite(_dpsCurCtxt,(char *) &_dpsF,46);
DPSWriteStringChars(_dpsCurCtxt, (char *)string, _dpsP[0].length);
DPSWriteStringChars(_dpsCurCtxt, (char *)pad, ~(_dpsP[0].length + 3) & 3);
if (0) *pad = 0; /* quiets compiler warnings */
}
#line 62 "PSWraps.psw"
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.