![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to std53.out CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / icon / test / distr|
Return to std53.out CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / icon / test / distr |
1.1 root 1: F := open("std53.icn") ----> file(std53.icn)
2: )g,f,e,d,c,b,a(yarra drocer
3:
4: )z,y,x,v,u(ymmud erudecorp
5: v | u dnepsus
6: x nruter
7: dne
8:
9: )(niam erudecorp
10: )"enon" | ))"nci.35dts"(nepo =: F(egami," >---- )"\nci.35dts"\(nepo =: F"(etirw
11: )"enon" | )))F!(esrever(etirw yreve(egami," >---- ))F!(esrever(etirw yreve"(etirw
12: )"enon" | ))F(esolc(egami," >---- )F(esolc"(etirw
13: )"enon" | ))"nci.35dts"(nepo =: F(egami," >---- )"\nci.35dts"\(nepo =: F"(etirw
14: )"enon" | )))F!(pam(etirw yreve(egami," >---- ))F!(pam(etirw yreve"(etirw
15: )"enon" | ))F(esolc(egami," >---- )F(esolc"(etirw
16: )"enon" | ))"nci.35dts"(nepo =: F(egami," >---- )"\nci.35dts"\(nepo =: F"(etirw
17: )"enon" | )))"-----" || tesc&,"uoiea" || tesc&,F!(pam(etirw yreve(egami," >---- ))"\-----"\ || tesc&,"\uoiea"\ || tesc&,F!(pam(etirw yreve"(etirw
18: )"enon" | ))F(esolc(egami," >---- )F(esolc"(etirw
19: )"enon" | ))"nci.35dts"(nepo =: F(egami," >---- )"\nci.35dts"\(nepo =: F"(etirw
20: )"enon" | )))"uoiea" || tesc&," " || tesc&,F!(pam(etirw yreve(egami," >---- ))"\uoiea"\ || tesc&,"\ "\ || tesc&,F!(pam(etirw yreve"(etirw
21: )"enon" | ))F(esolc(egami," >---- )F(esolc"(etirw
22: )"enon" | ))"F"(esolc(egami," >---- )"\F"\(esolc"(etirw
23: dne
24: every write(reverse(!F)) ----> none
25: close(F) ----> file(std53.icn)
26: F := open("std53.icn") ----> file(std53.icn)
27: record array(a,b,c,d,e,f,g)
28:
29: procedure dummy(u,v,x,y,z)
30: suspend u | v
31: return x
32: end
33:
34: procedure main()
35: write("f := open(\"std53.icn\") ----> ",image(f := open("std53.icn")) | "none")
36: write("every write(reverse(!f)) ----> ",image(every write(reverse(!f))) | "none")
37: write("close(f) ----> ",image(close(f)) | "none")
38: write("f := open(\"std53.icn\") ----> ",image(f := open("std53.icn")) | "none")
39: write("every write(map(!f)) ----> ",image(every write(map(!f))) | "none")
40: write("close(f) ----> ",image(close(f)) | "none")
41: write("f := open(\"std53.icn\") ----> ",image(f := open("std53.icn")) | "none")
42: write("every write(map(!f,&cset || \"aeiou\",&cset || \"-----\")) ----> ",image(every write(map(!f,&cset || "aeiou",&cset || "-----"))) | "none")
43: write("close(f) ----> ",image(close(f)) | "none")
44: write("f := open(\"std53.icn\") ----> ",image(f := open("std53.icn")) | "none")
45: write("every write(map(!f,&cset || \" \",&cset || \"aeiou\")) ----> ",image(every write(map(!f,&cset || " ",&cset || "aeiou"))) | "none")
46: write("close(f) ----> ",image(close(f)) | "none")
47: write("close(\"f\") ----> ",image(close("f")) | "none")
48: end
49: every write(map(!F)) ----> none
50: close(F) ----> file(std53.icn)
51: F := open("std53.icn") ----> file(std53.icn)
52: r-c-rd -rr-y(-,b,c,d,-,f,g)
53:
54: pr-c-d-r- d-mmy(-,v,x,y,z)
55: s-sp-nd - | v
56: r-t-rn x
57: -nd
58:
59: pr-c-d-r- m--n()
60: wr-t-("F := -p-n(\"std53.-cn\") ----> ",-m-g-(F := -p-n("std53.-cn")) | "n-n-")
61: wr-t-("-v-ry wr-t-(r-v-rs-(!F)) ----> ",-m-g-(-v-ry wr-t-(r-v-rs-(!F))) | "n-n-")
62: wr-t-("cl-s-(F) ----> ",-m-g-(cl-s-(F)) | "n-n-")
63: wr-t-("F := -p-n(\"std53.-cn\") ----> ",-m-g-(F := -p-n("std53.-cn")) | "n-n-")
64: wr-t-("-v-ry wr-t-(m-p(!F)) ----> ",-m-g-(-v-ry wr-t-(m-p(!F))) | "n-n-")
65: wr-t-("cl-s-(F) ----> ",-m-g-(cl-s-(F)) | "n-n-")
66: wr-t-("F := -p-n(\"std53.-cn\") ----> ",-m-g-(F := -p-n("std53.-cn")) | "n-n-")
67: wr-t-("-v-ry wr-t-(m-p(!F,&cs-t || \"-----\",&cs-t || \"-----\")) ----> ",-m-g-(-v-ry wr-t-(m-p(!F,&cs-t || "-----",&cs-t || "-----"))) | "n-n-")
68: wr-t-("cl-s-(F) ----> ",-m-g-(cl-s-(F)) | "n-n-")
69: wr-t-("F := -p-n(\"std53.-cn\") ----> ",-m-g-(F := -p-n("std53.-cn")) | "n-n-")
70: wr-t-("-v-ry wr-t-(m-p(!F,&cs-t || \" \",&cs-t || \"-----\")) ----> ",-m-g-(-v-ry wr-t-(m-p(!F,&cs-t || " ",&cs-t || "-----"))) | "n-n-")
71: wr-t-("cl-s-(F) ----> ",-m-g-(cl-s-(F)) | "n-n-")
72: wr-t-("cl-s-(\"F\") ----> ",-m-g-(cl-s-("F")) | "n-n-")
73: -nd
74: every write(map(!F,&cset || "aeiou",&cset || "-----")) ----> none
75: close(F) ----> file(std53.icn)
76: F := open("std53.icn") ----> file(std53.icn)
77: recorduarray(a,b,c,d,e,f,g)
78:
79: procedureudummy(u,v,x,y,z)
80: uuususpenduuu|uv
81: uuureturnux
82: end
83:
84: procedureumain()
85: uuuwrite("Fu:=uopen(\"std53.icn\")u---->u",image(Fu:=uopen("std53.icn"))u|u"none")
86: uuuwrite("everyuwrite(reverse(!F))u---->u",image(everyuwrite(reverse(!F)))u|u"none")
87: uuuwrite("close(F)u---->u",image(close(F))u|u"none")
88: uuuwrite("Fu:=uopen(\"std53.icn\")u---->u",image(Fu:=uopen("std53.icn"))u|u"none")
89: uuuwrite("everyuwrite(map(!F))u---->u",image(everyuwrite(map(!F)))u|u"none")
90: uuuwrite("close(F)u---->u",image(close(F))u|u"none")
91: uuuwrite("Fu:=uopen(\"std53.icn\")u---->u",image(Fu:=uopen("std53.icn"))u|u"none")
92: uuuwrite("everyuwrite(map(!F,&csetu||u\"aeiou\",&csetu||u\"-----\"))u---->u",image(everyuwrite(map(!F,&csetu||u"aeiou",&csetu||u"-----")))u|u"none")
93: uuuwrite("close(F)u---->u",image(close(F))u|u"none")
94: uuuwrite("Fu:=uopen(\"std53.icn\")u---->u",image(Fu:=uopen("std53.icn"))u|u"none")
95: uuuwrite("everyuwrite(map(!F,&csetu||u\"uuuuu\",&csetu||u\"aeiou\"))u---->u",image(everyuwrite(map(!F,&csetu||u"uuuuu",&csetu||u"aeiou")))u|u"none")
96: uuuwrite("close(F)u---->u",image(close(F))u|u"none")
97: uuuwrite("close(\"F\")u---->u",image(close("F"))u|u"none")
98: end
99: every write(map(!F,&cset || " ",&cset || "aeiou")) ----> none
100: close(F) ----> file(std53.icn)
101: Run-time error 105 at line 21 in std53.icn
102: file expected
103: offending value: "F"
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.