home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / icon / dos / src / tests / fncs.icn < prev    next >
Text File  |  1992-02-09  |  11KB  |  248 lines
  1. record array(a,b,c,d,e,f,g)
  2. global F, f
  3. global w, t
  4.  
  5. procedure p1()
  6.    write(" ----> ",image() | "none")
  7.    write("copy(1) ----> ",image(copy(1)) | "none")
  8.    write("copy(\"abc\") ----> ",image(copy("abc")) | "none")
  9.    write("copy('aabbcc') ----> ",image(copy('aabbcc')) | "none")
  10.    write("copy(main) ----> ",image(copy(main)) | "none")
  11.    write("copy([1,2,3]) ----> ",image(copy([1,2,3])) | "none")
  12.    write("copy(table(0)) ----> ",image(copy(table(0))) | "none")
  13.    write("copy() ----> ",image(copy()) | "none")
  14.    write("copy(&input) ----> ",image(copy(&input)) | "none")
  15.    write("w := copy(write) ----> ",image(w := copy(write)) | "none")
  16. end
  17.  
  18. procedure p2()
  19.    write("w(image(w)) ----> ",image(w(image(w))) | "none")
  20.    write("copy(array()) ----> ",image(copy(array())) | "none")
  21.    write("copy := copy(copy) ----> ",image(copy := copy(copy)) | "none")
  22.    write("x := copy(array) ----> ",image(x := copy(array)) | "none")
  23.    write("x := x(1,2,3,4,5,6,7) ----> ",image(x := x(1,2,3,4,5,6,7)) | "none")
  24.    write("x[-4] ----> ",image(x[-4]) | "none")
  25.    write("v := copy(c) ----> ",image(v := copy(c)) | "none")
  26.    write("x := repl(\"123\",4) ----> ",image(x := repl("123",4)) | "none")
  27.    write("t := table() ----> ",image(t := table()) | "none")
  28.    write("every i := 1 to 100 do t[i] := i ----> ",image(every i := 1 to 100 do t[i] := i) | "none")
  29. end
  30.  
  31. procedure p3()
  32.    write("x := sort(t) ----> ",image(x := sort(t)) | "none")
  33.    write("every write((!x)[2]) ----> ",image(every write((!x)[2])) | "none")
  34.    write("every write(center(\"abcdef\",1 to 20,\" \" | \"0\" | \"=-\")) ----> ",image(every write(center("abcdef",1 to 20," " | "0" | "=-"))) | "none")
  35.    write("every write(left(\"abcdef\",1 to 20,\" \" | \"0\" | \"=-\")) ----> ",image(every write(left("abcdef",1 to 20," " | "0" | "=-"))) | "none")
  36.    write("every write(right(\"abcdef\",1 to 20,\" \" | \"0\" | \"=-\")) ----> ",image(every write(right("abcdef",1 to 20," " | "0" | "=-"))) | "none")
  37.    write("center(\"\",20,repl(\"x.\",30)) ----> ",image(center("",20,repl("x.",30))) | "none")
  38.    write("left(\"\",20,repl(\"x.\",30)) ----> ",image(left("",20,repl("x.",30))) | "none")
  39.    write("right(\"\",20,repl(\"x.\",30)) ----> ",image(right("",20,repl("x.",30))) | "none")
  40.    write("every write(repl(\"a\" | \"ab\" | \"ba\",1 to 5)) ----> ",image(every write(repl("a" | "ab" | "ba",1 to 5))) | "none")
  41.    write("repl(\"\",0) ----> ",image(repl("",0)) | "none")
  42.    write("repl(&cset,0) ----> ",image(repl(&cset,0)) | "none")
  43. end
  44.  
  45. procedure p4()
  46.    write("trim(&lcase) ----> ",image(trim(&lcase)) | "none")
  47.    write("trim(&lcase,&lcase) ----> ",image(trim(&lcase,&lcase)) | "none")
  48.    write("image(2) ----> ",image(image(2)) | "none")
  49.    write("image('cab') ----> ",image(image('cab')) | "none")
  50.    write("image(&lcase) ----> ",image(image(&lcase)) | "none")
  51.    write("image('abcdefghijklmnopqrstuvwxyz') ----> ",image(image('abcdefghijklmnopqrstuvwxyz')) | "none")
  52.    write("image(&input) ----> ",image(image(&input)) | "none")
  53. end
  54.  
  55. procedure p5()
  56.    write("image() ----> ",image(image()) | "none")
  57.    write("image(&null) ----> ",image(image(&null)) | "none")
  58.    write("image([1,2,3]) ----> ",image(image([1,2,3])) | "none")
  59.    write("image([]) ----> ",image(image([])) | "none")
  60.    write("image([,]) ----> ",image(image([,])) | "none")
  61.    write("image(table()) ----> ",image(image(table())) | "none")
  62.    write("image(table(3)) ----> ",image(image(table(3))) | "none")
  63.    write("image(list(0)) ----> ",image(image(list(0))) | "none")
  64.    write("image(set()) ----> ",image(image(set())) | "none")
  65.    write("image(set([1,2,3,3,3,3,3,4])) ----> ",image(image(set([1,2,3,3,3,3,3,4]))) | "none")
  66.    write("image(repl) ----> ",image(image(repl)) | "none")
  67. end
  68.  
  69. procedure p6()
  70.    write("image(main) ----> ",image(image(main)) | "none")
  71.    write("image(repl(&lcase,10)) ----> ",image(image(repl(&lcase,10))) | "none")
  72.    write("image(array) ----> ",image(image(array)) | "none")
  73.    write("image(a) ----> ",image(image(a)) | "none")
  74.    write("image(array) ----> ",image(image(array)) | "none")
  75.    write("image(image) ----> ",image(image(image)) | "none")
  76.    write("string(2) ----> ",image(string(2)) | "none")
  77.    write("string(\"2\") ----> ",image(string("2")) | "none")
  78.    write("string(\" 2\") ----> ",image(string(" 2")) | "none")
  79. end
  80.  
  81. procedure p7()
  82.    write("string(\"2 \") ----> ",image(string("2 ")) | "none")
  83.    write("string(\"+2\") ----> ",image(string("+2")) | "none")
  84.    write("string(\"-2\") ----> ",image(string("-2")) | "none")
  85.    write("string(\"- 2\") ----> ",image(string("- 2")) | "none")
  86.    write("string(\" -    2 \") ----> ",image(string(" -    2 ")) | "none")
  87.    write("string(\"\") ----> ",image(string("")) | "none")
  88.    write("string(\"--2\") ----> ",image(string("--2")) | "none")
  89.    write("string(\" \") ----> ",image(string(" ")) | "none")
  90.    write("string(\"-\") ----> ",image(string("-")) | "none")
  91.    write("string(\"+\") ----> ",image(string("+")) | "none")
  92. end
  93.  
  94. procedure p8()
  95.    write("string(\"22222222222222222222222222222222222222222222222222222222222\") ----> ",image(string("22222222222222222222222222222222222222222222222222222222222")) | "none")
  96.    write("string(\"7r4\") ----> ",image(string("7r4")) | "none")
  97.    write("string(\"4r7\") ----> ",image(string("4r7")) | "none")
  98.    write("string(\"4r 7\") ----> ",image(string("4r 7")) | "none")
  99.    write("string(\"7r 4\") ----> ",image(string("7r 4")) | "none")
  100.    write("string(\"16rff\") ----> ",image(string("16rff")) | "none")
  101. end
  102.  
  103. procedure p9()
  104.    write("string(\"36rcat\") ----> ",image(string("36rcat")) | "none")
  105.    write("string(\"36Rcat\") ----> ",image(string("36Rcat")) | "none")
  106.    write("string(\"36rCAT\") ----> ",image(string("36rCAT")) | "none")
  107.    write("string(\"1r1\") ----> ",image(string("1r1")) | "none")
  108.    write("string(\"2r0\") ----> ",image(string("2r0")) | "none")
  109.    write("type(0) ----> ",image(type(0)) | "none")
  110.    write("type(\"abc\") ----> ",image(type("abc")) | "none")
  111.    write("type('aba') ----> ",image(type('aba')) | "none")
  112.    write("type() ----> ",image(type()) | "none")
  113.    write("type(&null) ----> ",image(type(&null)) | "none")
  114. end
  115.  
  116. procedure p10()
  117.    write("type([]) ----> ",image(type([])) | "none")
  118.    write("type(table()) ----> ",image(type(table())) | "none")
  119.    write("type(main) ----> ",image(type(main)) | "none")
  120.    write("type(write) ----> ",image(type(write)) | "none")
  121.    write("type(array()) ----> ",image(type(array())) | "none")
  122.    write("type(array) ----> ",image(type(array)) | "none")
  123.    write("type(f) ----> ",image(type(f)) | "none")
  124.    write("cset(2) ----> ",image(cset(2)) | "none")
  125. end
  126.  
  127. procedure p11()
  128.    write("cset(\"2\") ----> ",image(cset("2")) | "none")
  129.    write("cset(\" 2\") ----> ",image(cset(" 2")) | "none")
  130.    write("cset(\"2 \") ----> ",image(cset("2 ")) | "none")
  131.    write("cset(\"+2\") ----> ",image(cset("+2")) | "none")
  132.    write("cset(\"-2\") ----> ",image(cset("-2")) | "none")
  133.    write("cset(\"- 2\") ----> ",image(cset("- 2")) | "none")
  134.    write("cset(\" -    2 \") ----> ",image(cset(" -    2 ")) | "none")
  135.    write("cset(\"\") ----> ",image(cset("")) | "none")
  136.    write("cset(\"--2\") ----> ",image(cset("--2")) | "none")
  137.    write("cset(\" \") ----> ",image(cset(" ")) | "none")
  138.    write("cset(\"-\") ----> ",image(cset("-")) | "none")
  139. end
  140.  
  141. procedure p12()
  142.    write("cset(\"+\") ----> ",image(cset("+")) | "none")
  143.    write("cset(\"22222222222222222222222222222222222222222222222222222222222\") ----> ",image(cset("22222222222222222222222222222222222222222222222222222222222")) | "none")
  144.    write("cset(\"7r4\") ----> ",image(cset("7r4")) | "none")
  145.    write("cset(\"4r7\") ----> ",image(cset("4r7")) | "none")
  146.    write("cset(\"4r 7\") ----> ",image(cset("4r 7")) | "none")
  147. end
  148.  
  149. procedure p13()
  150.    write("cset(\"7r 4\") ----> ",image(cset("7r 4")) | "none")
  151.    write("cset(\"16rff\") ----> ",image(cset("16rff")) | "none")
  152.    write("cset(\"36rcat\") ----> ",image(cset("36rcat")) | "none")
  153.    write("cset(\"36Rcat\") ----> ",image(cset("36Rcat")) | "none")
  154.    write("cset(\"36rCAT\") ----> ",image(cset("36rCAT")) | "none")
  155.    write("cset(\"1r1\") ----> ",image(cset("1r1")) | "none")
  156.    write("cset(\"2r0\") ----> ",image(cset("2r0")) | "none")
  157.    write("every write(seq()) \\ 10 ----> ",image(every write(seq()) \ 10) | "none")
  158.    write("every write(seq(2)) \\ 10 ----> ",image(every write(seq(2)) \ 10) | "none")
  159.    write("every write(seq(-10)) \\ 10 ----> ",image(every write(seq(-10)) \ 10) | "none")
  160.    write("every write(seq(,3)) \\ 10 ----> ",image(every write(seq(,3)) \ 10) | "none")
  161. end
  162.  
  163. procedure p14()
  164. end
  165.  
  166. procedure main()
  167.    p1()
  168.    p2()
  169.    p3()
  170.    p4()
  171.    p5()
  172.    p6()
  173.    p7()
  174.    p8()
  175.    p9()
  176.    p10()
  177.    p11()
  178.    p12()
  179.    p13()
  180.    p14()
  181.    q1()
  182.    q2()
  183.    q3()
  184.    q4()
  185.    q5()
  186. end
  187.  
  188. procedure q1()
  189.    write(" ----> ",image() | "none")
  190.    write("f := open(\"foo.baz\",\"w\") ----> ",image(f := open("foo.baz","w")) | "none")
  191.    write("write(f,\"hello world\") ----> ",image(write(f,"hello world")) | "none")
  192.    write("close(f) ----> ",image(close(f)) | "none")
  193.    write("F := open(\"gc1.icn\") ----> ",image(F := open("gc1.icn")) | "none")
  194.    write("every write(reverse(!F)) ----> ",image(every write(reverse(!F))) | "none")
  195.    write("close(F) ----> ",image(close(F)) | "none")
  196.    write("F := open(\"gc1.icn\") ----> ",image(F := open("gc1.icn")) | "none")
  197.    write("every write(map(!F)) ----> ",image(every write(map(!F))) | "none")
  198.    write("close(F) ----> ",image(close(F)) | "none")
  199.    write("F := open(\"gc1.icn\") ----> ",image(F := open("gc1.icn")) | "none")
  200. end
  201.  
  202. procedure q2()
  203.    write("every write(map(!F,&cset || \"aeiou\",&cset || \"-----\")) ----> ",image(every write(map(!F,&cset || "aeiou",&cset || "-----"))) | "none")
  204.    write("close(F) ----> ",image(close(F)) | "none")
  205.    write("F := open(\"gc1.icn\") ----> ",image(F := open("gc1.icn")) | "none")
  206.    write("every write(map(!F,&cset || \"     \",&cset || \"aeiou\")) ----> ",image(every write(map(!F,&cset || "     ",&cset || "aeiou"))) | "none")
  207.    write("close(F) ----> ",image(close(F)) | "none")
  208.    write("f := open(\"gc1.icn\") ----> ",image(f := open("gc1.icn")) | "none")
  209.    write("while writes(reads(f)) ----> ",image(while writes(reads(f))) | "none")
  210.    write("close(f) ----> ",image(close(f)) | "none")
  211.    write("f := open(\"gc1.icn\") ----> ",image(f := open("gc1.icn")) | "none")
  212.    write("while writes(reads(f,10)) ----> ",image(while writes(reads(f,10))) | "none")
  213.    write("f := open(\"gc1.icn\") ----> ",image(f := open("gc1.icn")) | "none")
  214. end
  215.  
  216. procedure q3()
  217.    write("while write(read(f)) ----> ",image(while write(read(f))) | "none")
  218.    write("close(f) ----> ",image(close(f)) | "none")
  219. end
  220.  
  221. procedure q4()
  222.    T := table()
  223.    L := list()
  224.    every T[1 to 20] := 1
  225.    every put (L, key(T))
  226.    every write (!sort(L))
  227. end
  228.  
  229. procedure q5()
  230.     every i := 1 to 25 do {
  231.     v := 0.25 * i
  232.     wf (v)
  233.     if (v <= 1.0) then
  234.         every wf ((acos | asin) (v))
  235.     else
  236.         every wf ("" | "")
  237.     every wf (atan(v) | atan(v,3))
  238.     every wf ((cos | sin | tan) (v))
  239.     every wf ((sqrt | exp | log) (v))
  240.     wf (log(v,3))
  241.     write ()
  242.     }
  243.     end
  244.  
  245. procedure wf (v)
  246.     writes(left(v,5)," ")
  247.     end
  248.