home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / MAX130.ZIP / LSTNAV.MAX < prev    next >
Encoding:
Text File  |  1988-10-30  |  5.2 KB  |  171 lines
  1.  
  2. tclear ()
  3.  
  4. Function lstnav
  5.     Begin
  6.  
  7.         If eq (argc () 1)
  8.             Then
  9.                 set (ld argv (1))
  10.             EndThen
  11.             Else
  12.                 set (ld -1)
  13.             EndElse
  14.         EndIf
  15.  
  16.         Loop
  17.  
  18.             put ("Enter Command")
  19.             get (command)
  20.  
  21.             Case command
  22.                 When "cre"
  23.                     put (set (ld lstcre ()))
  24.                 EndWhen
  25.                 When "init"
  26.                     put (set (ld lstcre (abc def (ghi jkl) mno (pqr (stu vwx yza)) bcd)))
  27.                 EndWhen
  28.                 When "fre"
  29.                     put (lstfre (ld))
  30.                 EndWhen
  31.                 When "ld"
  32.                     put ("Current List Descriptor is " ld ".")
  33.                     put ("Enter New List Descriptor")
  34.                     get (ld)
  35.                 EndWhen
  36.                 When "head"
  37.                     put (lsthead (ld))
  38.                 EndWhen
  39.                 When "next"
  40.                     put (lstnext (ld))
  41.                 EndWhen
  42.                 When "prev"
  43.                     put (lstprev (ld))
  44.                 EndWhen
  45.                 When "sub"
  46.                     put (lstsub (ld))
  47.                 EndWhen
  48.                 When "tail"
  49.                     put (lsttail (ld))
  50.                 EndWhen
  51.                 When "cval"
  52.                     put (lstcval (ld))
  53.                 EndWhen
  54.                 When "pval"
  55.                     put (lstpval (ld))
  56.                 EndWhen
  57.                 When "nval"
  58.                     put (lstnval (ld))
  59.                 EndWhen
  60.                 When "sval"
  61.                     put (lstsval (ld))
  62.                 EndWhen
  63.                 When "hpop"
  64.                     put (lsthpop (ld))
  65.                 EndWhen
  66.                 When "cpop"
  67.                     put (lstcpop (ld))
  68.                 EndWhen
  69.                 When "spop"
  70.                     put (lstspop (ld))
  71.                 EndWhen
  72.                 When "tpop"
  73.                     put (lsttpop (ld))
  74.                 EndWhen
  75.                 When "hpsh"
  76.                     put ("Enter Data")
  77.                     get (data)
  78.                     put (lstpsh (ld data))
  79.                 EndWhen
  80.                 When "cpsh"
  81.                     put ("Enter Data")
  82.                     get (data)
  83.                     put (lstcpsh (ld data))
  84.                 EndWhen
  85.                 When "spsh"
  86.                     put ("Enter Data")
  87.                     get (data)
  88.                     put (lstspsh (ld data))
  89.                 EndWhen
  90.                 When "tpsh"
  91.                     put ("Enter Data")
  92.                     get (data)
  93.                     put (lsttpsh (ld data))
  94.                 EndWhen
  95.                 When "hput"
  96.                     put ("Enter Data")
  97.                     get (data)
  98.                     put (lsthput (ld data))
  99.                 EndWhen
  100.                 When "cput"
  101.                     put ("Enter Data")
  102.                     get (data)
  103.                     put (lstcput (ld data))
  104.                 EndWhen
  105.                 When "sput"
  106.                     put ("Enter Data")
  107.                     get (data)
  108.                     put (lstsput (ld data))
  109.                 EndWhen
  110.                 When "tput"
  111.                     put ("Enter Data")
  112.                     get (data)
  113.                     put (lsttput (ld data))
  114.                 EndWhen
  115.                 When "hget"
  116.                     put (lsthget (ld))
  117.                 EndWhen
  118.                 When "cget"
  119.                     put (lstcget (ld))
  120.                 EndWhen
  121.                 When "sget"
  122.                     put (lstsget (ld))
  123.                 EndWhen
  124.                 When "tget"
  125.                     put (lsttget (ld))
  126.                 EndWhen
  127.                 When "write"
  128.                     put (lstwrite (ld 1))
  129.                 EndWhen
  130.                 When "read"
  131.                     put ("Enter filename")
  132.                     set (fd open (get () "r"))
  133.                     If lt (fd 0)
  134.                         Then
  135.                             put ("Cannot open file.")
  136.                         EndThen
  137.                         Else
  138.                             put (set (ld lstread (fd)))
  139.                             close (fd) 
  140.                         EndElse
  141.                     EndIf
  142.                 EndWhen
  143.                 When "join"
  144.                     put ("Enter Base LD")
  145.                     get (base_ld)
  146.                     put ("Enter Join LD")
  147.                     get (join_ld)
  148.                     put (lstjoin (base_ld join_ld))
  149.                 EndWhen
  150.                 When "split"
  151.                     put (lstsplit (ld))
  152.                 EndWhen
  153.                 When "swap"
  154.                     put (lstswap (ld))
  155.                 EndWhen
  156.                 When "sort"
  157.                     put (lstsort (ld))
  158.                 EndWhen
  159.                 When "amap"
  160.                     put (lstamap (ld))
  161.                 EndWhen
  162.                 When "quit"
  163.                     exit ()
  164.                 EndWhen
  165.                 Default
  166.                     put ("Unrecognized Command: " command)
  167.                 EndDefault
  168.             EndCase
  169.         EndLoop
  170.     End
  171. EndFunction