home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / AI_OCT86.ZIP / AIAPP4.FIG < prev    next >
Encoding:
Text File  |  1986-07-16  |  640 b   |  30 lines
  1.  
  2.  FUNCTION cons(new_node,list : node_ptr) : node_ptr ;
  3.   VAR
  4.    p : node_ptr ;
  5.   BEGIN
  6.    get_memory(p) ;
  7.    p^.tag := cons_node ;
  8.    p^.head_ptr := new_node ;
  9.    p^.tail_ptr := list ;
  10.    cons := p ;
  11.   END ; (* cons *)
  12.  
  13.  FUNCTION head(list : node_ptr) : node_ptr ;
  14.   BEGIN
  15.    IF list = NIL
  16.     THEN head := NIL
  17.     ELSE head := list^.head_ptr ;
  18.   END ; (* head *)
  19.  
  20.  FUNCTION tail(list : node_ptr) : node_ptr ;
  21.   BEGIN
  22.    IF list = NIL
  23.     THEN tail := NIL
  24.    ELSE IF list^.tag = cons_node
  25.     THEN tail := list^.tail_ptr
  26.    ELSE tail := NIL ;
  27.   END ; (* tail *)
  28.  
  29. Figure 4 - Basic list processing routines.
  30.