home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / dev / lang / umbscheme / src / io.h < prev    next >
Encoding:
Text File  |  1993-11-29  |  1.8 KB  |  62 lines
  1. /* io.h -- UMB Scheme, io interface.
  2.  
  3. UMB Scheme Interpreter                  $Revision: 2.12 $
  4. Copyright (C) 1988, 1991 William R Campbell
  5.  
  6. This program is free software; you can redistribute it and/or modify
  7. it under the terms of the GNU General Public License as published by
  8. the Free Software Foundation; either version 1, or (at your option)
  9. any later version.
  10.  
  11. This program is distributed in the hope that it will be useful,
  12. but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. GNU General Public License for more details.
  15.  
  16. You should have received a copy of the GNU General Public License
  17. along with this program; if not, write to the Free Software
  18. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  19.  
  20. UMB Scheme was written by Bill Campbell with help from Karl Berry,
  21. Barbara Dixey, Ira Gerstein, Mary Glaser, Kathy Hargreaves, Bill McCabe,
  22. Long Nguyen, Susan Quina, Jeyashree Sivasubram, Bela Sohoni and Thang Quoc Tran.
  23.  
  24. For additional information about UMB Scheme, contact the author:
  25.  
  26.     Bill Campbell
  27.     Department of Mathematics and Computer Science
  28.     University of Massachusetts at Boston
  29.     Harbor Campus
  30.     Boston, MA 02125
  31.  
  32.     Telephone: 617-287-6449        Internet: bill@cs.umb.edu
  33.  
  34. */
  35.  
  36. /* The main output routines. */
  37.  
  38. Import    void    Output(/* String s */);
  39. Import    void    Output_Char(/* Character c */);
  40. Import    Integer    New_Left_Margin( /* Integer margin */ );
  41. Import    void    Print_Type();
  42.  
  43. /* The main input routine. */
  44.  
  45. Import    void    Read(/* FILE *input */);
  46.  
  47. #define    Peek_Char(f)    ((Character) ungetc( getc(f), f ))
  48.  
  49.  
  50. /* Handling silence. */
  51.  
  52. Import    void    Set_Printing(/* Boolean */);
  53. Import    Boolean Get_Printing_State();
  54.  
  55.  
  56. Import    FILE *The_Standard_Input, *The_Standard_Output;
  57.  
  58.  
  59. /* Miscellany. */
  60.  
  61. Import    Integer toint(/* Character */);
  62.