home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / pp / pp-6.0 / doc / manual / volume2 / io.tex < prev    next >
Encoding:
Text File  |  1990-09-20  |  1.9 KB  |  58 lines
  1. \File{io.c},{10:17},{Sep 17 1990}
  2. \L{\LB{\Proc{submit\_message}submit\_message (orig, recips, fp)}}
  3. \L{\LB{ADDR}\Tab{8}{*orig;}}
  4. \L{\LB{ADDR}\Tab{8}{*recips;}}
  5. \L{\LB{FILE}\Tab{8}{*fp;}}
  6. \L{\LB{\{}}
  7. \L{\LB{}\Tab{8}{RP\_Buf}\Tab{16}{rps, *rp = \&rps;}}
  8. \L{\LB{}\Tab{8}{char}\Tab{16}{buf[BUFSIZ];}}
  9. \L{\LB{}\Tab{8}{ADDR}\Tab{16}{*ap;}}
  10. \L{\LB{}}
  11. \L{\LB{}\Tab{8}{if (rp\_isbad (io\_init(rp)))}}
  12. \L{\LB{}\Tab{16}{error ();}}
  13. \L{\LB{}}
  14. \L{\LB{}\Tab{8}{if (rp\_isbad (io\_wprm (prm, rp)))}}
  15. \L{\LB{}\Tab{16}{error ();}}
  16. \L{\LB{}}
  17. \L{\LB{}\Tab{8}{if (rp\_isbad (io\_wrq (q, rp)))}}
  18. \L{\LB{}\Tab{16}{error ();}}
  19. \L{\LB{}}
  20. \L{\LB{}\Tab{8}{if (rp\_isbad (io\_wadr (orig, AD\_ORIGINATOR, rp)))}}
  21. \L{\LB{}\Tab{16}{error ();}}
  22. \L{\LB{}}
  23. \L{\LB{}\Tab{8}{for (ap = ad\_recipients; ap; ap = ap \-\> ad\_next)}}
  24. \L{\LB{}\Tab{16}{if (rp\_isbad (io\_wadr (ap, AD\_RECIPIENT, rp)))}}
  25. \L{\LB{}\Tab{24}{error ();}}
  26. \L{\LB{}}
  27. \L{\LB{}\Tab{8}{if (rp\_isbad (io\_adend(rp)))}}
  28. \L{\LB{}\Tab{16}{error ();}}
  29. \L{\LB{}}
  30. \L{\LB{}\Tab{8}{if (rp\_isbad (io\_tinit(rp)))}}
  31. \L{\LB{}\Tab{16}{error ();}}
  32. \L{\LB{}}
  33. \L{\LB{}\Tab{8}{if (rp\_isbad (io\_tpart (\S{}\"hdr.822\"\SE{}, FALSE, rp)))}}
  34. \L{\LB{}\Tab{16}{error ();}}
  35. \L{\LB{}}
  36. \L{\LB{}\Tab{8}{while (fgets( buf, sizeof buf, fp))}}
  37. \L{\LB{}\Tab{16}{if (rp\_isbad (io\_tdata (buf, strlen (buf))))}}
  38. \L{\LB{}\Tab{24}{error ();}}
  39. \L{\LB{}}
  40. \L{\LB{}\Tab{8}{if (rp\_isbad (io\_tdend(rp)))}}
  41. \L{\LB{}\Tab{16}{error ();}}
  42. \L{\LB{}}
  43. \L{\LB{}\Tab{8}{if (rp\_isbad (io\_tpart (\S{}\"1.ia5\"\SE{}, FALSE, rp)))}}
  44. \L{\LB{}\Tab{16}{error ();}}
  45. \L{\LB{}}
  46. \L{\LB{}\Tab{8}{while (fgets (buf, sizeof buf, stdin))}}
  47. \L{\LB{}\Tab{16}{if (rp\_isbad (io\_tdata (buf, strlen (buf))))}}
  48. \L{\LB{}\Tab{24}{error ();}}
  49. \L{\LB{}}
  50. \L{\LB{}\Tab{8}{if (rp\_isbad (io\_tdend (rp)))}}
  51. \L{\LB{}\Tab{16}{error ();}}
  52. \L{\LB{}}
  53. \L{\LB{}\Tab{8}{if (rp\_isbad (io\_tend (rp)))}}
  54. \L{\LB{}\Tab{16}{error ();}}
  55. \L{\LB{}}
  56. \L{\LB{}\Tab{8}{ io\_end(OK);}}
  57. \L{\LB{\}}}
  58.