[<<Previous Entry] [^^Up^^] [Next Entry>>] [Menu] [About The Guide]


     ; Clipper CLASS
     ; --------------
       CLASS STRUCT

            ClassSym    FARPTR  0    ; 0   to symbolstruct ClassName
            ivars       WORD    0    ; 4   Nr of iVars/Arraylength
            MethodDict  NEARPTR 0    ; 6   offset into MethodDict
            Methods     WORD    0    ; 8   Nr. of Methods
            DictSize    WORD    0    ; 0Ah Size of Dictionary
            Modulus     WORD    0    ; 0Ch Symbol-Modulus to find Message

       CLASS ENDS


       METHOD STRUCT

            message     FARPTR  0    ; ptr to Symbol
            function    FARPTR  0    ; ptr to function

       METHOD ENDS


        _vDict    PROTO FAR C, _item:NEARPTR
        _mdAdd    PROTO FAR C, _classh:DWORD ,\
                               _SymAdr:DWORD ,\
                               _FunAdr:DWORD

        _mdCreate PROTO FAR C, _Size:WORD, \
                               _ClsSym:FARPTR