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 / procs / popen.icn < prev    next >
Text File  |  2000-07-29  |  2KB  |  87 lines
  1. ############################################################################
  2. #    
  3. #    File:     popen.icn
  4. #    
  5. #    Subject:  Procedures for pipes
  6. #    
  7. #    Author:   Ronald Florence
  8. #
  9. #    Date:     September 28, 1992
  10. #
  11. ############################################################################
  12. #
  13. #   This file is in the public domain.
  14. #
  15. ############################################################################
  16. #
  17. #    Version:  1.0
  18. #
  19. ############################################################################
  20. #
  21. #  Contents:
  22. #
  23. #  popen(command, mode)
  24. #    mode == "w" writes to a pipe
  25. #    mode == "r" reads from a pipe
  26. #
  27. #  pclose(pipe)
  28. #
  29. #  On systems without real pipes (ms-dos), popen and pclose imitate
  30. #  pipes; pclose must be called after popen.  The code should run
  31. #  faster on ms-dos if dir in tempfile() points to a directory on a
  32. #  virtual disk.
  33. #
  34. #  On systems with real pipes, popen & pclose open and close a pipe.
  35. # 
  36. ############################################################################
  37.  
  38. global PIPE_cmd, PIPE_fname
  39.  
  40. procedure popen(cmd, mode)
  41.   local tfn, p
  42.  
  43.   initial ("pipes" == &features) | {
  44.     PIPE_cmd := table()
  45.     PIPE_fname := table()
  46.   }
  47.   (type(PIPE_fname) ~== "table") & return open(cmd, mode || "p")
  48.   tfn := tempfile("pipe.")
  49.   upto('r', mode) & system(cmd || " > " || tfn)
  50.   p := open(tfn, mode)
  51.   PIPE_fname[p] := tfn
  52.   upto('w', mode) & PIPE_cmd[p] := cmd
  53.   return p
  54. end
  55.  
  56.  
  57. procedure pclose(pipe)
  58.   local status
  59.  
  60.   (type(PIPE_fname) ~== "table") & return close(pipe)
  61.   if \PIPE_cmd[pipe] then {
  62.     close(pipe) 
  63.     PIPE_cmd[pipe] ||:= " < " || PIPE_fname[pipe]
  64.     status := system(PIPE_cmd[pipe])
  65.   }
  66.   else status := close(pipe)
  67.   remove(PIPE_fname[pipe])
  68.   PIPE_cmd[pipe] := PIPE_fname[pipe] := &null
  69.   return status
  70. end
  71.  
  72.     # Richard Goerwitz's ever-useful generator.
  73.  
  74. procedure tempfile(template)
  75.   local temp_name
  76.   static dir
  77.  
  78.   initial {
  79.     if "UNIX" == &features then dir := "/tmp/"
  80.     else dir := ""
  81.   }
  82.   every temp_name := dir || template || right(1 to 999,3,"0") do {
  83.     close(open(temp_name)) & next
  84.     suspend \temp_name
  85.   }
  86. end
  87.