home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.cs.arizona.edu
/
ftp.cs.arizona.edu.tar
/
ftp.cs.arizona.edu
/
icon
/
historic
/
v941.tgz
/
icon.v941src.tar
/
icon.v941src
/
ipl
/
progs
/
iwriter.icn
< prev
next >
Wrap
Text File
|
2000-07-29
|
788b
|
29 lines
############################################################################
#
# File: iwriter.icn
#
# Subject: Program to write Icon code to write input
#
# Author: Ralph E. Griswold
#
# Date: March 7, 1990
#
############################################################################
#
# This file is in the public domain.
#
############################################################################
#
# Program that reads standard input and produces Icon expressions,
# which when compiled and executed, write out the original input.
#
# This is handy for incorporating, for example, message text in
# Icon programs. Or even for writing Icon programs that write Icon
# programs that ... .
procedure main()
while write("write(",image(read()),")")
end