home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol076 / ed7.c < prev    next >
C/C++ Source or Header  |  1984-04-29  |  2KB  |  155 lines
  1. /* ED7.C */
  2.  
  3. #include ed0.c
  4. #include ed1.ccc
  5. char pmtln[MAXLEN];
  6. char pmtrfn[SYSFNMAX];        /* now both read and write filenames */
  7. char pmtwfn[SYSFNMAX];
  8. pmtmess(s1,s2) char *s1, *s2;
  9. {
  10. int x,y;
  11.     x=outxget();
  12.     y=outyget();
  13.     outxy(0,0);
  14.     outdelln();
  15.     pmt1line();
  16.     pmt1col(x);
  17.     fmtsout(s1,outxget());
  18.     fmtsout(s2,outxget());
  19.     syscin();
  20.     pmt1line();
  21.     pmt1col(x);
  22.     pmt1file(pmtrfn);
  23.     pmt2file(pmtwfn);
  24.     pmt1mod(pmtln);
  25.     outxy(x,y);
  26. }
  27. pmtmode(s) char *s;
  28. {
  29. int x,y;
  30.     x=outxget();
  31.     y=outyget();
  32.     outxy(0,0);
  33.     outdelln();
  34.     pmt1line();
  35.     pmt1col(x);
  36.     pmt1file(pmtrfn);
  37.     pmt2file(pmtwfn);
  38.     pmt1mode(s);
  39.     outxy(x,y);
  40. }
  41. pmtrfile(s) char *s;    /*changed: readfile */
  42. {
  43. int x,y;
  44.     x=outxget();
  45.     y=outyget();
  46.     outxy(0,0);
  47.     outdelln();
  48.     pmt1line();
  49.     pmt1col(x);
  50.     pmt1file(s);
  51.     pmt2file(pmtwfn);  /* add writefile */
  52.     pmt1mode(pmtln);
  53.     outxy(x,y);
  54. }
  55. pmtwfile(s) char *s;    /* new: writefile */
  56. {
  57. int x,y;
  58.     x=outxget();
  59.     y=outyget();
  60.     outxy(0,0);
  61.     outdelln();
  62.     pmt1line();
  63.     pmt1col(x);
  64.     pmt1file(pmtrfn);
  65.     pmt2file(s);
  66.     pmt1mode(pmtln);
  67.     outxy(x,y);
  68. }
  69. pmtedit()
  70. {
  71.     pmtmode("edit:     ");    /* add blanks to assure erasing "command" */
  72. }
  73. pmtline()
  74. {
  75. int x,y;
  76.     x=outxget();
  77.     y=outyget();
  78.     outxy(0,0);
  79.     outdelln();
  80.     pmt1line();
  81.     pmt1col(x);
  82.     pmt1file(pmtrfn);    /* change: separate read and write files */
  83.     pmt2file(pmtwfn);
  84.     pmt1mode(pmtln);
  85.     outxy(x,y);
  86. }
  87. pmtcol()
  88. {
  89. int x,y;
  90.     x=outxget();
  91.     y=outyget();
  92.     pmt1col(x);
  93.     outxy(x,y);
  94. }
  95. pmtcmnd(mode,buffer) char *mode, *buffer;
  96. {
  97. int x,y;
  98.     x=outxget();
  99.     y=outyget();
  100.     pmt1mode(mode);
  101.     getcmnd(buffer,outxget());
  102. }
  103. pmt1mode(s) char *s;
  104. {
  105. int i;
  106.     outxy(60,0);        /* change of column location */
  107.     fmtsout(s,60);
  108.     i=0;
  109.     while (pmtln[i++]= *s++) {
  110.         ;
  111.     }
  112. }
  113. pmt1file(s) char *s;
  114. {
  115. int i;
  116.     outxy(25,0);
  117.     if (*s==EOS) {
  118.         fmtsout("no rdfile",25);    /* change of message */
  119.     }
  120.     else {
  121.         fmtsout(s,25);
  122.     }
  123.     i=0;
  124.     while (pmtrfn[i++]= *s++) {
  125.         ;
  126.     }
  127. }
  128. pmt2file(s) char *s;    /* new: write out writefile name or "no wrtfile" */
  129. {
  130. int i;
  131.     outxy(40,0);
  132.     if (*s==EOS) {
  133.         fmtsout("no wrtfile",40);
  134.     }
  135.     else {
  136.         fmtsout(s,40);
  137.     }
  138.     i=0;
  139.     while (pmtwfn[i++]= *s++) {
  140.         ;
  141.     }
  142. }
  143. pmt1line()
  144. {
  145.     outxy(0,0);
  146.     fmtsout("line: ",0);
  147.     putdec(bufln(),5);
  148. }
  149. pmt1col(x) int x;
  150. {
  151.     outxy(12,0);
  152.     fmtsout("column: ",12);
  153.     putdec(x,3);
  154. }
  155.