home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftptest.leeds.ac.uk
/
2015.02.ftptest.leeds.ac.uk.tar
/
ftptest.leeds.ac.uk
/
bionet
/
CAE-GROUP
/
SCL-WIN3x
/
FED_PLUS.EXE
/
OBJECT.H
< prev
next >
Wrap
C/C++ Source or Header
|
1994-07-23
|
3KB
|
124 lines
#ifndef OBJECT_H
#define OBJECT_H
/* $Id: object.h,v 1.7 1993/10/15 18:49:23 libes Exp $ */
/************************************************************************
** Module: Object
** Description: This module implements the Object abstraction.
** Constants:
** OBJECT_NULL - the null class
**
************************************************************************/
/*
* This software was developed by U.S. Government employees as part of
* their official duties and is not subject to copyright.
*
* $Log: object.h,v $
* Revision 1.7 1993/10/15 18:49:23 libes
* CADDETC certified
*
* Revision 1.6 1993/01/19 22:17:27 libes
* *** empty log message ***
*
* Revision 1.5 1992/08/18 17:15:40 libes
* rm'd extraneous error messages
*
* Revision 1.4 1992/06/08 18:07:35 libes
* prettied up interface to print_objects_when_running
*
* Revision 1.3 1992/05/31 23:33:15 libes
* implemented ALIAS resolution
*
* Revision 1.2 1992/05/31 08:36:48 libes
* multiple files
*
* Revision 1.1 1992/05/28 03:56:02 libes
* Initial revision
*/
/*************/
/* constants */
/*************/
/* each object has an index - current the index is a mnemonic character */
/* hence the array is rather sparse, but the extra slop is only a hundred */
/* or so bytes, so it's nothing to sweat about */
#define MAX_OBJECT_TYPES 127 /* really could be a LOT less */
/*****************/
/* packages used */
/*****************/
#include "basic.h" /* get basic definitions */
#include "symbol.h"
/************/
/* typedefs */
/************/
/***************************/
/* hidden type definitions */
/***************************/
struct Object {
struct Symbol *(*get_symbol)();
char* type; /* should complete the phrase "X is ..." */
/* i.e., "an entity", "a type", "of unknown type" */
int bits; /* a bitwise selector of a type, i.e. OBJ_XX_BITS */
};
/****************/
/* modules used */
/****************/
/********************/
/* global variables */
/********************/
#ifdef OBJECT_C
#include "defstart.h"
#else
#include "decstart.h"
#endif /*OBJECT_C */
GLOBAL struct Object *OBJ;
#include "de_end.h"
/******************************/
/* macro function definitions */
/******************************/
#define OBJget_symbol(obj,type) (*OBJ[type].get_symbol)(obj)
#define OBJget_type(_type_) (OBJ[_type_].type)
#define OBJget_bits(_type_) (OBJ[_type_].bits)
#define OBJtype_is_oneof(_type_,class) (OBJ[_type_].bits & (class))
#define OBJget_name(obj,type) (OBJget_symbol(obj,type)->name)
/* for backwards compatibility */
#define OBJequal(x,y) ((x) == (y))
#define OBJfree(x)
#define OBJreference(x) (x)
#define OBJget_data(obj,type,err) (obj)
/***********************/
/* function prototypes */
/***********************/
extern void OBJinitialize PROTO((void));
extern void OBJcreate PROTO((char,struct Symbol *(*)(Generic),char *,int));
#if 0
extern void OBJcreate(char,struct Symbol *(*)(Generic),char *,int);
#endif
/********************/
/* inline functions */
/********************/
#if supports_inline_functions || defined(OBJECT_C)
#endif /* supports_inline_functions || defined(OBJECT_C) */
#endif /*OBJECT_H*/