home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / smalltalk-1.1.1 / mstdict.h < prev    next >
Encoding:
C/C++ Source or Header  |  1991-09-12  |  5.1 KB  |  164 lines
  1. /***********************************************************************
  2.  *
  3.  *    Dictionary Support Module Definitions.
  4.  *
  5.  ***********************************************************************/
  6.  
  7. /***********************************************************************
  8.  *
  9.  * Copyright (C) 1990, 1991 Free Software Foundation, Inc.
  10.  * Written by Steve Byrne.
  11.  *
  12.  * This file is part of GNU Smalltalk.
  13.  *
  14.  * GNU Smalltalk is free software; you can redistribute it and/or modify it
  15.  * under the terms of the GNU General Public License as published by the Free
  16.  * Software Foundation; either version 1, or (at your option) any later 
  17.  * version.
  18.  * 
  19.  * GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  20.  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 
  21.  * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
  22.  * more details.
  23.  * 
  24.  * You should have received a copy of the GNU General Public License along with
  25.  * GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  26.  * Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  27.  *
  28.  ***********************************************************************/
  29.  
  30.  
  31. /*
  32.  *    Change Log
  33.  * ============================================================================
  34.  * Author      Date       Change 
  35.  * sbyrne    13 Jan 89      Created.
  36.  *
  37.  */
  38.  
  39.  
  40. #ifndef __MSTDICT__
  41. #define __MSTDICT__
  42.  
  43. /* ### YUK YUK YUK -- I hate to do this, but ... I need access to this
  44.    structure for the binary save/restore code and I'd rather not have to
  45.    write a bunch of accessors just to get on the air.  Fix this asap. */
  46.  
  47. typedef struct InstanceSpecStruct {
  48. #ifdef BIG_ENDIAN
  49.   unsigned    intMark            : 1;
  50.   unsigned    isPointers         : 1;
  51.   unsigned    isWords            : 1;
  52.   unsigned    isIndexable        : 1;
  53.   unsigned    numFixedFields        : 28;
  54. #else
  55.   unsigned    numFixedFields        : 28;
  56.   unsigned    isIndexable        : 1;
  57.   unsigned    isWords            : 1;
  58.   unsigned    isPointers         : 1;
  59.   unsigned    intMark            : 1;
  60. #endif
  61. } InstanceSpec;
  62.  
  63. /* Note the use of inheritance in C structure definitions here */
  64. #define BEHAVIOR_HEADER \
  65.   OBJ_HEADER; \
  66.   OOP        superClass; \
  67.   OOP        subClasses; \
  68.   OOP        methodDictionary; \
  69.   InstanceSpec    instanceSpec
  70.  
  71. typedef struct BehaviorStruct {
  72.   BEHAVIOR_HEADER;
  73. } *Behavior;
  74.  
  75. #define CLASS_DESCRIPTION_HEADER \
  76.   BEHAVIOR_HEADER; \
  77.   OOP        name; \
  78.   OOP        comment; \
  79.   OOP        instanceVariables; \
  80.   OOP        category
  81.  
  82.  
  83. typedef struct ClassDescriptionStruct {
  84.   CLASS_DESCRIPTION_HEADER;
  85. } *ClassDescription;
  86.  
  87.  
  88. typedef struct ClassStruct {
  89.   CLASS_DESCRIPTION_HEADER;
  90.   OOP        classVariables;    /* dictionary of varName, storage */
  91.   OOP        sharedPools;
  92. } *Class;
  93.  
  94. typedef struct MetaclassStruct {
  95.   CLASS_DESCRIPTION_HEADER;
  96.   OOP        instanceClass;
  97. } *Metaclass;
  98.  
  99. extern OOP        objectClass, magnitudeClass, charClass, timeClass,
  100.             dateClass,
  101.             numberClass, floatClass, integerClass, lookupKeyClass,
  102.             associationClass, linkClass, processClass,
  103.             symLinkClass, collectionClass,
  104.             sequenceableCollectionClass, linkedListClass,
  105.             semaphoreClass,
  106.             arrayedCollectionClass,    arrayClass, stringClass,
  107.             symbolClass, byteArrayClass, compiledMethodClass,
  108.             intervalClass, orderedCollectionClass,
  109.             sortedCollectionClass, bagClass, mappedCollectionClass,
  110.             setClass, dictionaryClass, 
  111.             systemDictionaryClass,
  112.             identityDictionaryClass, undefinedObjectClass,
  113.             booleanClass, falseClass, trueClass, 
  114.             processorSchedulerClass, delayClass, sharedQueueClass,
  115.             behaviorClass,
  116.             classDescriptionClass, classClass, metaclassClass,
  117.             smalltalkDictionary, messageClass, methodContextClass,
  118.             blockContextClass,
  119.             streamClass, positionableStreamClass, readStreamClass,
  120.             writeStreamClass, readWriteStreamClass, cObjectClass,
  121.             fileStreamClass, memoryClass,
  122.             byteMemoryClass, wordMemoryClass, randomClass,
  123.             cFuncDescriptorClass, tokenStreamClass,
  124.             methodInfoClass, fileSegmentClass,
  125.               processorOOP;
  126.  
  127. extern OOP        associationNew(), dictionaryNew(), associationValue(),
  128.             superClass(), validClassMethodDictionary(),
  129.             classVariableDictionary(), findSharedPoolVariable(),
  130.             dictionaryAt(), dictionaryAtPut(), dictionaryAdd(),
  131.             arrayAt(), floatNew(), arrayNew(), stringNew(),
  132.             indexOOP(), instVarAt(), indexStringOOP(),
  133.             classMethodDictionary(), findClass(),
  134.             dictionaryAssociationAt(), findClassMethod(),
  135.             messageNewArgs(), messageSelector(), messageArgs(),
  136.               getClassSymbol(), dictionaryCopy(),
  137.             instanceVariableArray(), sharedPoolDictionary(),
  138.             instantiateOOPWith(), metaclassInstance(),
  139.             cObjectNew();
  140.  
  141. extern Object        newInstanceWith(), newInstance(), instantiate(),
  142.               instantiateWith();
  143.  
  144. extern int        numIndexableFields(), dictionarySize(),
  145.             oopFixedFields();
  146.  
  147. extern Boolean        isIndexable(), isAKindOf(), checkIndexableBoundsOf(),
  148.               checkBoundsOf(), instVarAtPut(), indexOOPPut(),
  149.             isPointers(), isAClass(), isAMetaclass(), 
  150.             classIsPointers();
  151.  
  152. extern Byte        *stringOOPChars(), *toCString(), *toByteArray();
  153.  
  154. extern void        indexStringOOPPut(),
  155.             printAssocationKey(), printOOPConstructor(),
  156.             addClassSymbol(), initDictionary(), initSTDIOObjects(),
  157.             setOOPString(), setCObjectValue(), setComment();
  158. extern voidPtr        cObjectValue();
  159.  
  160. extern double        floatOOPValue();
  161. extern void        arrayAtPut();
  162.  
  163. #endif /* __MSTDICT__ */
  164.