96 lines
2.6 KiB
C
96 lines
2.6 KiB
C
|
#ifndef h_PROGRAM
|
||
|
|
#define h_PROGRAM
|
||
|
|
/******************************************************************************
|
||
|
|
*
|
||
|
|
* Definition of a UniVerse/BASIC program load block
|
||
|
|
*
|
||
|
|
* 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.
|
||
|
|
* 11/15/89 6183 JWT longer BASIC variable name support
|
||
|
|
* 06/27/89 6106 DTW change LDATUM
|
||
|
|
* 07/25/88 - - Maintenence log purged at 5.2.1, see release 5.1.10.
|
||
|
|
*
|
||
|
|
*****************************************************************************/
|
||
|
|
|
||
|
|
|
||
|
|
#include "bashead.h"
|
||
|
|
#include "DATUM.h"
|
||
|
|
|
||
|
|
struct comseg
|
||
|
|
{
|
||
|
|
char name[ SYMsiz ];
|
||
|
|
int size;
|
||
|
|
};
|
||
|
|
|
||
|
|
struct ncomseg
|
||
|
|
{
|
||
|
|
char *name;
|
||
|
|
int size;
|
||
|
|
};
|
||
|
|
|
||
|
|
enum prog_type
|
||
|
|
{
|
||
|
|
PROG_NORMAL,
|
||
|
|
PROG_SHARED,
|
||
|
|
PROG_GCI,
|
||
|
|
PROG_OBJLOAD
|
||
|
|
};
|
||
|
|
#define PROGTYP enum prog_type
|
||
|
|
|
||
|
|
#define LDATUM struct ldatum
|
||
|
|
|
||
|
|
struct ldatum
|
||
|
|
{
|
||
|
|
LDATUM *link; /* link to next LDATUM */
|
||
|
|
ushort var_index; /* vartab entry for this pointer */
|
||
|
|
DATUM data; /* point to called subroutine prog struct */
|
||
|
|
};
|
||
|
|
|
||
|
|
struct program
|
||
|
|
{
|
||
|
|
PROGRAM *flink, /* Forward link */
|
||
|
|
*blink, /* Backward link */
|
||
|
|
*owner; /* True owner of code */
|
||
|
|
ushort *code; /* Object code */
|
||
|
|
BASHEAD bh; /* Header from object file */
|
||
|
|
DATUM **pretab, /* Pre-allocated variable table */
|
||
|
|
*kontab; /* Konstant table */
|
||
|
|
int refs, /* Number of references */
|
||
|
|
level, /* EXElevel program was created */
|
||
|
|
LRU, /* For LRU unloading */
|
||
|
|
size; /* Program size for LRU also */
|
||
|
|
NREFTAB *symbol; /* Symbol table */
|
||
|
|
short *lines; /* Line number table */
|
||
|
|
long seek; /* Seek position */
|
||
|
|
char name[64], /* Subroutine name */
|
||
|
|
file[128], /* Object file name */
|
||
|
|
base[128]; /* Base path name to Type 1 file*/
|
||
|
|
uchar *constnt; /* Constant String Pointer */
|
||
|
|
DATUM *subr; /* Link list to Tsubr datum */
|
||
|
|
long timing; /* Seconds spend in this prog. */
|
||
|
|
int invocs; /* Number of invocations */
|
||
|
|
struct ncomseg *comtb; /* COMMON table */
|
||
|
|
ushort *shmaddr; /* address, if in shared memory */
|
||
|
|
DATUM *registers; /* for shared mem. reg. vars. */
|
||
|
|
LDATUM *shmsubr;
|
||
|
|
PROGTYP type;
|
||
|
|
};
|
||
|
|
|
||
|
|
EXTERN PROGRAM *loaditype();
|
||
|
|
EXTERN int loadsub();
|
||
|
|
|
||
|
|
EXTERN PROGRAM *Programs;
|
||
|
|
|
||
|
|
#endif /* end of PROGRAM.h */
|