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
/
genfile.icn
< prev
next >
Wrap
Text File
|
2000-07-29
|
1KB
|
48 lines
############################################################################
#
# File: genfile.icn
#
# Subject: Program to generate sequence from Icon expression in file
#
# Author: Ralph E. Griswold
#
# Date: January 22, 1999
#
############################################################################
#
# This file is in the public domain.
#
############################################################################
#
# This program writes the results of an Icon expression given in the file
# named on the command line.
#
############################################################################
#
# Requires: system(), pipes
#
############################################################################
#
# Links: exprfile
#
############################################################################
link exprfile
procedure main(args)
local expression, input, limit
limit := 1000 # AD HOC; make option.
input := open(args[1]) | stop("*** cannot open file")
expression := read(input) | stop("*** empty file")
close(input)
input := exprfile(expression, "seqfncs")
every write(!input) \ limit
end