![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to expr60.out CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10dc / cmd / icon / tests / stand|
Return to expr60.out CVS log | Up to [Research Unix] / researchv10dc / cmd / icon / tests / stand |
1.1 ! root 1: F := open("expr60.icn") ----> file(expr60.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.06rpxe"(nepo =: F(egami," >---- )"\nci.06rpxe"\(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.06rpxe"(nepo =: F(egami," >---- )"\nci.06rpxe"\(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.06rpxe"(nepo =: F(egami," >---- )"\nci.06rpxe"\(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.06rpxe"(nepo =: F(egami," >---- )"\nci.06rpxe"\(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(expr60.icn) ! 26: F := open("expr60.icn") ----> file(expr60.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(\"expr60.icn\") ----> ",image(f := open("expr60.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(\"expr60.icn\") ----> ",image(f := open("expr60.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(\"expr60.icn\") ----> ",image(f := open("expr60.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(\"expr60.icn\") ----> ",image(f := open("expr60.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(expr60.icn) ! 51: F := open("expr60.icn") ----> file(expr60.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(\"-xpr60.-cn\") ----> ",-m-g-(F := -p-n("-xpr60.-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(\"-xpr60.-cn\") ----> ",-m-g-(F := -p-n("-xpr60.-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(\"-xpr60.-cn\") ----> ",-m-g-(F := -p-n("-xpr60.-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(\"-xpr60.-cn\") ----> ",-m-g-(F := -p-n("-xpr60.-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(expr60.icn) ! 76: F := open("expr60.icn") ----> file(expr60.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(\"expr60.icn\")u---->u",image(Fu:=uopen("expr60.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(\"expr60.icn\")u---->u",image(Fu:=uopen("expr60.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(\"expr60.icn\")u---->u",image(Fu:=uopen("expr60.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(\"expr60.icn\")u---->u",image(Fu:=uopen("expr60.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(expr60.icn) ! 101: Run-time error 105 at line 21 in expr60.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.