home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OL.LZH / IDOL.LZH / BUFTEST.IOL < prev    next >
Text File  |  1991-07-18  |  359b  |  20 lines
  1. # buffer classes' tests
  2.  
  3. procedure main(args)
  4.   if *args=0 then stop("usage: buftest cp file1 file2")
  5.   every i := 1 to *args do {
  6.       case args[i] of {
  7.       "cp": {
  8.           cp(args)
  9.       }
  10.       }
  11.   }
  12. end
  13. procedure cp(args)
  14.   b1 := buffer(args[2])
  15.   b2 := buffer(args[3])
  16.   b2$erase()
  17.   while s:=b1$forward() do b2$insert(s)
  18.   b2$write()
  19. end
  20.