65 lines
2.0 KiB
C
65 lines
2.0 KiB
C
|
#ifndef h_RUNDATA
|
||
|
|
#define h_RUNDATA
|
||
|
|
/******************************************************************************
|
||
|
|
*
|
||
|
|
* Definition of Environment used by UPIX/BASIC
|
||
|
|
*
|
||
|
|
* Module %M% Version %I% Date %H%
|
||
|
|
*
|
||
|
|
* (c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
|
||
|
|
* This is unpublished proprietary source code of Ardent Software Inc.
|
||
|
|
* The copyright notice above does not evidence any actual or intented
|
||
|
|
* publication of such source code.
|
||
|
|
*
|
||
|
|
*******************************************************************************
|
||
|
|
*
|
||
|
|
* Maintenence log - insert most recent change descriptions at top
|
||
|
|
*
|
||
|
|
* Date.... GTAR# WHO Description.........................................
|
||
|
|
* 10/14/98 23801 SAP Change copyrights.
|
||
|
|
* 01/23/95 15607 WLG Added new structure for keeping track of the
|
||
|
|
* DATUMs copied out of Shared memory during dynamic
|
||
|
|
* array operations.
|
||
|
|
* 07/13/93 11417 CSM RUNDATA fields sparam and boundv are pointers
|
||
|
|
* 06/25/93 11417 CSM Added TBCitem type & boundv,sparam flds to RUNDATA
|
||
|
|
* 07/25/88 - - Maintenence log purged at 5.2.1, see release 5.1.10.
|
||
|
|
*
|
||
|
|
*****************************************************************************/
|
||
|
|
|
||
|
|
typedef struct TBCitems
|
||
|
|
{
|
||
|
|
char *pHSTMT;
|
||
|
|
DATUM *item;
|
||
|
|
struct TBCitems *next;
|
||
|
|
struct TBCitems *prev;
|
||
|
|
} TBCitem;
|
||
|
|
|
||
|
|
/* New structure which will be allocated when we have a program */
|
||
|
|
/* in shared memory which tries to perform dynamic array operations */
|
||
|
|
/* using constant strings which are in shared memory and must be */
|
||
|
|
/* allocated locally. */
|
||
|
|
|
||
|
|
struct shmdata
|
||
|
|
{
|
||
|
|
SHMDATA *next; /* Pointer to previous shmdata */
|
||
|
|
DATUM localdatum; /* Local copy of a DATUM */
|
||
|
|
uchar strloc; /* Starting location of Tstring (if needed) */
|
||
|
|
};
|
||
|
|
|
||
|
|
struct rundata
|
||
|
|
{
|
||
|
|
DATUM **vartab,
|
||
|
|
*loctab;
|
||
|
|
int precise;
|
||
|
|
ushort *code,
|
||
|
|
*ia;
|
||
|
|
PROGRAM *prog;
|
||
|
|
DATUM **varsave;
|
||
|
|
ushort *codesave;
|
||
|
|
TBCitem *boundv,
|
||
|
|
*sparam;
|
||
|
|
SHMDATA *datumlist;
|
||
|
|
};
|
||
|
|
|
||
|
|
#endif /* end of RUNDATA.h */
|