home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / AACD / Programming / lsEstuff / nm.e < prev    next >
Encoding:
Text File  |  1999-10-25  |  831 b   |  48 lines
  1. OPT MODULE
  2.  
  3. ->abstract linked node
  4.  
  5. MODULE 'leifoo/object'
  6.  
  7. EXPORT OBJECT nm OF object
  8.    next:PTR TO LONG
  9.    prev:PTR TO LONG
  10. ENDOBJECT
  11.  
  12. PROC getObjectName() OF nm IS 'nm'
  13.  
  14.  
  15. EXPORT OBJECT nmI OF nm
  16.    id
  17. ENDOBJECT
  18.  
  19. PROC getObjectName() OF nmI IS 'nmI'
  20.  
  21. EXPORT OBJECT nmN OF nm
  22.    estrname
  23. ENDOBJECT
  24.  
  25. PROC end() OF nmN IS DisposeLink(self.estrname)
  26.  
  27. PROC getObjectName() OF nmN IS 'nmN'
  28.  
  29. PROC setNodeName(name) OF nmN
  30.    DEF newlen
  31.    newlen := StrLen(name)
  32.    IF (self.estrname = NIL) OR (EstrLen(self.estrname) < newlen)
  33.       self.estrname := String(newlen)
  34.    ENDIF
  35.    StrCopy(self.estrname, name)
  36. ENDPROC
  37.  
  38. PROC getNodeName() OF nmN IS self.estrname
  39.  
  40. PROC cmpNodeName(name) OF nmN
  41. ENDPROC IF StrCmp(name, self.estrname) THEN TRUE ELSE FALSE
  42.  
  43. EXPORT OBJECT nmIV OF nmI
  44.    value
  45. ENDOBJECT
  46.  
  47. PROC getObjectName() OF nmIV IS 'nmIV'
  48.