Return to proto.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / port

Annotation of 43BSD/contrib/icon/port/proto.icn, revision 1.1.1.1

1.1       root        1: #  This program contains samples of all the basic syntactic
                      2: #  forms in Icon.
                      3: 
                      4: record three(x,y,z)
                      5: record zero()
                      6: record one(z)
                      7: 
                      8: global line, count
                      9: procedure expressions()
                     10:    local x,y,z
                     11:    static e1
                     12:    initial e1 := 0
                     13:    ()
                     14:    {}
                     15:    ();()
                     16:    []
                     17:    [,]
                     18:    x.y
                     19:    x[i]
                     20:    x[i:j]
                     21:    x[i+:j]
                     22:    x[i-:j]
                     23:    (,,,)
                     24:    x(,,,)
                     25:    not x
                     26:    |x
                     27:    !x
                     28:    *x
                     29:    +x
                     30:    -x
                     31:    .x
                     32:    /x
                     33:    =x
                     34:    ?x
                     35:    \x
                     36:    ~x
                     37:    @x
                     38:    ^x
                     39:    x \ i
                     40:    x @ y
                     41:    i ^ j
                     42:    i * j
                     43:    i / j
                     44:    i % j
                     45:    c1 ** c2
                     46:    i + j
                     47:    i - j
                     48:    c1 ++ c2
                     49:    c1 -- c2
                     50:    s1 || s2
                     51:    a1 ||| a2
                     52:    i < j
                     53:    i <= j
                     54:    i = j
                     55:    i >= j
                     56:    i > j
                     57:    i ~= j
                     58:    s1 << s2
                     59:    s1 == s2
                     60:    s1 >>= s2
                     61:    s1 >> s2
                     62:    s1 ~== s2
                     63:    x === y
                     64:    x ~=== y
                     65:    x | y
                     66:    i to j
                     67:    i to j by k
                     68:    x := y
                     69:    x <- y
                     70:    x :=: y
                     71:    x <-> y
                     72:    i +:= j
                     73:    i -:= j
                     74:    i *:= j
                     75:    i /:= j
                     76:    i %:= j
                     77:    i ^:= j
                     78:    i <:= j
                     79:    i <=:= j
                     80:    i =:= j
                     81:    i >=:= j
                     82:    i ~=:= j
                     83:    c1 ++:= c2
                     84:    c1 --:= c2
                     85:    c1 **:= c2
                     86:    s1 ||:= s2
                     87:    s1 <<:= s2
                     88:    s1 <<=:= s2
                     89:    s1 ==:= s2
                     90:    s1 >>=:= s2
                     91:    s1 >>:= s2
                     92:    s1 ~==:= s2
                     93:    s1 ?:= s2
                     94:    a1 |||:= a2
                     95:    x ===:= y
                     96:    x ~===:= y
                     97:    x &:= y
                     98:    x @:= y
                     99:    s ? x
                    100:    x & y
                    101:    create x
                    102:    return
                    103:    return x
                    104:    suspend x
                    105:    fail
                    106:    while e1 do break
                    107:    while e1 do break e2
                    108:    while e1 do next
                    109:    case e of {
                    110:      x:   fail
                    111:      (i > j) | 1    :  return
                    112:      }
                    113:    case size(s) of {
                    114:      1:   1
                    115:      default:  fail
                    116:      }
                    117:    if e1 then e2
                    118:    if e1 then e2 else e3
                    119:    repeat e
                    120:    while e1
                    121:    while e1 do e2
                    122:    until e1
                    123:    until e1 do e2
                    124:    every e1
                    125:    every e1 do e2
                    126:    x
                    127:    X_
                    128:    &cset
                    129:    &null
                    130:    "abc"
                    131:    'abc'
                    132:    "\n"
                    133:    "^a"
                    134:    "\001"
                    135:    "\x01"
                    136:    1
                    137:    999999
                    138:    36ra1
                    139:    3.5
                    140:    2.5e4
                    141:    4e-10
                    142: end

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