home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1 Issue 2 / PDCD-1 - Issue 02.iso / _utilities / utilities / 003 / _armbob / !ArmBob_progs_h_string_io < prev    next >
Encoding:
Text File  |  1994-06-06  |  327 b   |  21 lines
  1. /*  GCW  06/06/94             */
  2. /* String input/output        */
  3.  
  4. /* Read a ctrl-char terminated string from file */
  5. gets(file)
  6. {
  7.  local s, c;
  8.  s = "";
  9.  while ((c = getc(file)) != EOF && c > 31)
  10.    s += c;
  11.  return s;
  12. }
  13.  
  14. /* Write a string to a file */
  15. puts(s,file)
  16. {
  17.  local i;
  18.  for (i=0;i<sizeof(s);i++)
  19.     putc(s[i],file);
  20. }
  21.