home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / AACD / Programming / lsEstuff / miff.e < prev    next >
Encoding:
Text File  |  1999-10-19  |  483 b   |  29 lines
  1.  
  2. OBJECT miff OF nmIList
  3.    PRIVATE
  4.    value
  5.    miffs:PTR TO nmIList
  6. ENDOBJECT
  7.  
  8. PROC get(elist=NIL) OF miff
  9.    DEF elen
  10.    DEF elcopy:PTR TO LONG
  11.    DEF a
  12.    DEF m:PTR TO miff
  13.    IF elist = NIL THEN RETURN self
  14.    elen := ListLen(elist)
  15.    IF (elen < 1) THEN RETURN self
  16.    elcpoy := List(elen)
  17.    ListCopy(elcopy, elist)
  18.    FOR a := 1 TO elen-1
  19.       elcopy[a-1] := elcopy[a]
  20.    ENDFOR
  21.    SetList(elcopy, elen-1)
  22.    m := self.miffs.find(elcopy[0])
  23.    IF m = NIL THEN RETURN NIL
  24.  
  25.  
  26.  
  27.  
  28.  
  29.