=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Command: NAME_OBJECT <object_name> ACCESS item names... ACCESS = CHILD, GLOBAL, COLUMN, PROPERTY, ITEM or ACCESS METHOD. Description: Gives names to objects in the form: object.obj and allows items, properties and COLUMNs to be defined. Inits item number to zero and assumes item names follow. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#SET Q$ 0
#IFDEF !2
#CHECK !2 _R#LSD
#REPLACE !1.OBJ !2
#IF !0>2
NAME_ITEM !1 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ELSE
// #CHECK !2 "CHILD""ITEM""GLOBAL""COLUMN""PROPERTY"
#IFSAME !2 CHILD
REGISTER_OBJECT !1
#IFDEF !3
NAME_OBJECT !1 (!1(!3)) !4 !5 !6 !7 !8 !9
#ELSE
#CHECK !3.OBJ _#LU
NAME_OBJECT !1 (!1(!3.OBJ)) !4 !5 !6 !7 !8 !9
#ENDIF
#ELSE
#IFSAME !2 GLOBAL
#IFDEF !1.OBJ
#CHECK !1.OBJ _NSDFW#L
#ELSE
INTEGER !1.OBJ
#ENDIF
#IFCLASS !1.OBJ V$
#IF (!b & 1)
MOVE CURRENT_OBJECT TO !1.OBJ
#ELSE
#IF (!b)
#ERROR DFERR_COMP_ILLEGAL_CODE_PLACEMENT NAME_OBJECT MUST PRECEDE CLASS OR PROCEDURE
#ELSE
MOVE 1023 TO !1.OBJ
#ENDIF
#ENDIF
#ENDIF
#IF !0>2
NAME_ITEM !1 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ELSE
NAME_!2 !1 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ENDIF
#ENDIF