Return to proto.icn CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / tests

Annotation of researchv10dc/cmd/icon/tests/proto.icn, revision 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: 
        !            10: procedure main()
        !            11: end
        !            12: procedure expr1()
        !            13:    local x,y,z
        !            14:    static e1
        !            15:    initial e1 := 0
        !            16:    ()
        !            17:    {}
        !            18:    ();()
        !            19:    []
        !            20:    [,]
        !            21:    x.y
        !            22:    x[i]
        !            23:    x[i:j]
        !            24:    x[i+:j]
        !            25:    x[i-:j]
        !            26:    (,,,)
        !            27:    x(,,,)
        !            28:    not x
        !            29:    |x
        !            30:    !x
        !            31:    *x
        !            32:    +x
        !            33:    -x
        !            34: end
        !            35: 
        !            36: procedure expr2()
        !            37:    .x
        !            38:    /x
        !            39:    =x
        !            40:    ?x
        !            41:    \x
        !            42:    ~x
        !            43:    @x
        !            44:    ^x
        !            45:    x \ i
        !            46:    x @ y
        !            47:    i ^ j
        !            48:    i * j
        !            49:    i / j
        !            50:    i % j
        !            51:    c1 ** c2
        !            52:    i + j
        !            53:    i - j
        !            54:    c1 ++ c2
        !            55:    c1 -- c2
        !            56:    s1 || s2
        !            57:    a1 ||| a2
        !            58:    i < j
        !            59:    i <= j
        !            60:    i = j
        !            61:    i >= j
        !            62:    i > j
        !            63:    i ~= j
        !            64:    s1 << s2
        !            65:    s1 == s2
        !            66:    s1 >>= s2
        !            67:    s1 >> s2
        !            68:    s1 ~== s2
        !            69:    x === y
        !            70:    x ~=== y
        !            71:    x | y
        !            72:    i to j
        !            73:    i to j by k
        !            74:    x := y
        !            75:    x <- y
        !            76:    x :=: y
        !            77:    x <-> y
        !            78:    i +:= j
        !            79:    i -:= j
        !            80:    i *:= j
        !            81: end
        !            82: 
        !            83: procedure expr3()
        !            84:    i /:= j
        !            85:    i %:= j
        !            86:    i ^:= j
        !            87:    i <:= j
        !            88:    i <=:= j
        !            89:    i =:= j
        !            90:    i >=:= j
        !            91:    i ~=:= j
        !            92:    c1 ++:= c2
        !            93:    c1 --:= c2
        !            94:    c1 **:= c2
        !            95:    s1 ||:= s2
        !            96:    s1 <<:= s2
        !            97:    s1 <<=:= s2
        !            98:    s1 ==:= s2
        !            99:    s1 >>=:= s2
        !           100:    s1 >>:= s2
        !           101:    s1 ~==:= s2
        !           102:    s1 ?:= s2
        !           103:    a1 |||:= a2
        !           104:    x ===:= y
        !           105:    x ~===:= y
        !           106:    x &:= y
        !           107:    x @:= y
        !           108:    s ? x
        !           109:    x & y
        !           110:    create x
        !           111:    return
        !           112:    return x
        !           113:    suspend x
        !           114:    fail
        !           115: end
        !           116: 
        !           117: procedure expr4()
        !           118:    while e1 do break
        !           119:    while e1 do break e2
        !           120:    while e1 do next
        !           121:    case e of {
        !           122:      x:   fail
        !           123:      (i > j) | 1    :  return
        !           124:      }
        !           125:    case size(s) of {
        !           126:      1:   1
        !           127:      default:  fail
        !           128:      }
        !           129:    if e1 then e2
        !           130:    if e1 then e2 else e3
        !           131:    repeat e
        !           132:    while e1
        !           133:    while e1 do e2
        !           134:    until e1
        !           135:    until e1 do e2
        !           136:    every e1
        !           137:    every e1 do e2
        !           138:    x
        !           139:    X_
        !           140:    &cset
        !           141:    &null
        !           142:    "abc"
        !           143:    'abc'
        !           144:    "\n"
        !           145:    "^a"
        !           146:    "\001"
        !           147:    "\x01"
        !           148:    1
        !           149:    999999
        !           150:    36ra1
        !           151:    3.5
        !           152:    2.5e4
        !           153:    4e-10
        !           154: end

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