home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c025 / 1.ddi / WRITE.C < prev   
Encoding:
Text File  |  1985-02-03  |  586 b   |  30 lines
  1. main()    /* write.c -- writes a file and echoes it on screen */
  2.  
  3. {char name[20];
  4. char buf[1];
  5. int fin, fout;
  6. char *nameout;
  7.  
  8.  
  9.     nameout = "temp";
  10.     printf("nameout's name is %s\n", nameout);
  11.     printf("Name please: ");
  12.     gets(name);
  13.     if ((fin = open(name,0)) == -1)
  14.     {    printf("No such file: %s\n",name);
  15.         exit();
  16.     }
  17.     if((fout = creat(nameout,1)) != -1){
  18.         printf("file number is %d\n", fout);
  19.     } else exit();
  20.     while(read(fin, buf, 1) >= 0){
  21.         if (buf[0] == 26) exit();
  22.         else {
  23.             putchar(buf[0]);
  24.             write(fout, buf, 1);
  25.             }
  26.         }        
  27.     close(fin);
  28.     close(fout);
  29. }
  30.