/*
**  $VER: objects.e V0.9B
**
**  Object definitions.
**
**  (C) Copyright 1996-1997 DreamWorld Productions.
**      All Rights Reserved.
*/

OPT MODULE
OPT EXPORT
OPT PREPROCESS

MODULE 'dpkernel/dpkernel','system/register','files/segments'

/****************************************************************************
** Object entries.
*/

OBJECT objectentry      /* Entry stucture for GetObjectList() */
  name   :PTR TO CHAR   /* Pointer to the name, may be NULL */
  object :LONG          /* Object is returned here */
ENDOBJECT

OBJECT dataheader    /* Private structure for object headers */
  type :LONG         /* Type of object, eg STRC, CODE, DATA */
  next :LONG         /* Offset towards next object */
ENDOBJECT

/*****************************************************************************
** Object-File.
*/

CONST OBJVERSION      = 1,
      TAGS_OBJECTFILE = $FFFB0000 OR ID_OBJECTFILE

OBJECT objectfile
  head[1]  :ARRAY OF head
  source   :LONG
  segments :PTR TO segment
  data     :LONG
ENDOBJECT

CONST OBJA_Source   = 12 OR TAPTR,
      OBJA_Segments = 16 OR TAPTR,
      OBJA_Data     = 20 OR TAPTR