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
/
packs
/
idol
/
buftest.iol
< prev
next >
Wrap
Text File
|
2000-07-29
|
340b
|
20 lines
# buffer classes' tests
procedure main(args)
if *args=0 then stop("usage: buftest cp file1 file2")
every i := 1 to *args do {
case args[i] of {
"cp": {
cp(args)
}
}
}
end
procedure cp(args)
b1 := buffer(args[2])
b2 := buffer(args[3])
b2$erase()
while s:=b1$forward() do b2$insert(s)
b2$write()
end