Return to pdco.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / src / lib

Annotation of 43BSD/contrib/icon/src/lib/pdco.icn, revision 1.1.1.1

1.1       root        1: #      PDCO(2)
                      2: #
                      3: #      Programmer-defined control operations
                      4: #
                      5: #      Ralph E. Griswold and Michael Novak
                      6: #
                      7: #      Last modified 8/11/84
                      8: #
                      9: 
                     10: procedure Alt(a)
                     11:    local x
                     12:    while x := @a[1] do suspend x
                     13:    while x := @a[2] do suspend x
                     14: end
                     15: 
                     16: procedure Colseq(a)
                     17:    suspend |@!a
                     18: end
                     19: 
                     20: procedure Comseq(a)
                     21:    local x1, x2
                     22:    while x1 := @a[1] do
                     23:       (x1 === @a[2]) | fail
                     24:    if @a[2] then fail else return *a[1]
                     25: end
                     26: 
                     27: procedure Cond(a)
                     28:    local i, x
                     29:    every i := 1 to *a do
                     30:       if x := @a[i] then {
                     31:          suspend x
                     32:          suspend |@a[i]
                     33:          fail
                     34:          }
                     35: end
                     36: 
                     37: procedure Every(a)
                     38:    while @a[1] do @^a[2]
                     39: end
                     40: 
                     41: procedure Galt(a)
                     42:    local e
                     43:    every e := !a do suspend |@e
                     44: end
                     45: 
                     46: procedure Lcond(a)
                     47:    local i
                     48:    every i := 1 to *a by 2 do
                     49:       if @a[i] then {
                     50:          suspend |@a[i + 1]
                     51:          fail
                     52:          }
                     53: end
                     54: 
                     55: procedure Limit(a)
                     56:    local i, x
                     57:    while i := @a[2] do {
                     58:       a[1] := ^a[1]
                     59:       every 1 to i do
                     60:          if x := @a[1] then suspend x
                     61:          else break
                     62:       }
                     63: end
                     64: 
                     65: procedure Ranseq(a)
                     66:    local x
                     67:    while x := @?a do suspend x
                     68: end
                     69: 
                     70: procedure Repalt(a)
                     71:    local x
                     72:    repeat {
                     73:       while x := @a[1] do suspend x
                     74:       if *a[1] = 0 then fail
                     75:       else a[1] := ^a[1]
                     76:       }
                     77: end
                     78: 
                     79: procedure Resume(a)
                     80:    local i
                     81:    while i := @a[2] do {
                     82:       a[1] := ^a[1]
                     83:       every 1 to i do if @a[1] then @^a[3] else break
                     84:       }
                     85: end
                     86: 
                     87: procedure Select(a)
                     88:    local i, j, x
                     89:    j := 0
                     90:    while i := @a[2] do {
                     91:       while j < i do
                     92:          if x := @a[1] then j +:= 1
                     93:          else fail
                     94:       if i = j then suspend x
                     95:       else stop("selection sequence error")
                     96:       }
                     97: end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.