home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / OTHERUTI / WWIV412S.ZIP / TEDIT.C < prev    next >
C/C++ Source or Header  |  1990-07-25  |  9KB  |  390 lines
  1.  
  2. /*****************************************************************************
  3.  
  4.                 WWIV Version 4
  5.               Copyright (C) 1988 by Wayne Bell
  6.  
  7. Distribution of the source code for WWIV, in any form, modified or unmodified,
  8. without PRIOR, WRITTEN APPROVAL by the author, is expressly prohibited.
  9. Distribution of compiled versions of WWIV is limited to copies compiled BY
  10. THE AUTHOR.  Distribution of any copies of WWIV not compiled by the author
  11. is expressly prohibited.
  12.  
  13.  
  14. *****************************************************************************/
  15.  
  16.  
  17.  
  18. #include "vardec.h"
  19. #include "fcns.h"
  20. #include "net.h"
  21. #include <string.h>
  22. #include <stdlib.h>
  23. #include <stdio.h>
  24. #include <io.h>
  25. #include <dir.h>
  26. #include <fcntl.h>
  27. #include <sys\stat.h>
  28. #include <alloc.h>
  29. #include <dos.h>
  30.  
  31.  
  32. extern gfiledirrec *gfilesec;
  33. extern int num_sec,hangup,userfile,echo,useron,userfile,usernum,using_modem;
  34. extern int incom,fwaiting,userfile;
  35. extern configrec syscfg;
  36. extern statusrec status;
  37. extern char ctypes[NUM_CTYPES][18];
  38. extern char cdir[81];
  39. extern userrec thisuser;
  40. extern int numextrn, numchain;
  41. extern chainfilerec *chains;
  42. extern externalrec *externs;
  43. extern smalrec *smallist;
  44. extern int num_call_sys,num_ncn,num_sys_list,global_xx;
  45. extern net_contact_rec *ncn;
  46. extern net_call_out_rec *con;
  47. extern net_interconnect_rec *cnn;
  48. extern messagerec helps[50],menus[30],menus1[30],menus2[30];
  49. extern long last_time_c;
  50. extern unsigned char realsl;
  51. extern net_system_list_rec *csn;
  52.  
  53.  
  54. #define utoa(s,v,r) ultoa((unsigned long)(s),v,r)
  55.  
  56.  
  57. struct line *read_file(char *fn, int *numlines)
  58. {
  59.   char b[1024],s[160],s1[160];
  60.   int f,i,n,nb,cb,sp,oor;
  61.   struct line *l,*l1,*topline;
  62.  
  63.   *numlines=-1;
  64.   oor=0;
  65.   topline=NULL;
  66.   strcpy(s,syscfg.gfilesdir);
  67.   strcat(s,fn);
  68.   f=open(s,O_RDWR | O_BINARY);
  69.   if (f<0) {
  70.     nl();
  71.     pl("File not found.");
  72.     nl();
  73.     return(NULL);
  74.   }
  75.   nb=read(f,(void *)b,1024);
  76.   cb=0;
  77.   sp=0;
  78.   *numlines=0;
  79.   while ((nb) && (!oor)) {
  80.     if (b[cb]==13) {
  81.       s[sp]=0;
  82.       sp=0;
  83.       if (farcoreleft()<10240) {
  84.         nl();
  85.         pl("Ran out of memory.  Not all of file read.");
  86.         nl();
  87.         oor=1;
  88.       } else {
  89.         l1=(struct line *)farmalloc((long) sizeof(struct line));
  90.         strcpy((l1->text),s);
  91.         l1->next=NULL;
  92.         l1->prev=NULL;
  93.         if (topline==NULL) {
  94.           topline=l1;
  95.           l=l1;
  96.         } else {
  97.           l->next=l1;
  98.           l1->prev=l;
  99.           l=l1;
  100.         }
  101.         ++(*numlines);
  102.       }
  103.     } else {
  104.       if (b[cb]!=10)
  105.         s[sp++]=b[cb];
  106.     }
  107.     ++cb;
  108.     if (cb==nb) {
  109.       nb=read(f,(void *)b,1024);
  110.       cb=0;
  111.     }
  112.   }
  113.   return(topline);
  114. }
  115.  
  116. void kill_file(struct line *topline)
  117. {
  118.   struct line *l,*l1;
  119.  
  120.   l=topline;
  121.   while (l!=NULL) {
  122.     l1=l->next;
  123.     farfree((void *)l);
  124.     l=l1;
  125.   }
  126. }
  127.  
  128. void save_file(char *fn, struct line *topline)
  129. {
  130.   int i,f;
  131.   char s[170];
  132.   struct line *l,*l1;
  133.  
  134.   nl();
  135.   pl("Saving...");
  136.   strcpy(s,syscfg.gfilesdir);
  137.   strcat(s,fn);
  138.   f=open(s,O_RDWR | O_BINARY | O_CREAT | O_TRUNC, S_IREAD | S_IWRITE);
  139.   l=topline;
  140.   while (l!=NULL) {
  141.     strcpy(s,(l->text));
  142.     strcat(s,"\r\n");
  143.     write(f,(void *)s,strlen(s));
  144.     l=l->next;
  145.   }
  146.   s[0]=26;
  147.   write(f,(void *)s,1);
  148.   close(f);
  149. }
  150.  
  151. int printl(int n, struct line *l)
  152. {
  153.   int abort;
  154.   char s[160];
  155.  
  156.   abort=0;
  157.   if (n<1)
  158.     strcpy(s,"     [TOP]");
  159.   else
  160.     if (l==NULL)
  161.       strcpy(s,"     [END]");
  162.     else
  163.       sprintf(s,"%3d: %s",n,(l->text));
  164.   pla(s,&abort);
  165.   if (abort)
  166.     nl();
  167.   return(abort);
  168. }
  169.  
  170.  
  171. void tedit(char *fn)
  172. {
  173.   struct line *topline,*l,*l1,*c,*bottomline;
  174.   int numlines,curline,i,i1,i2,done,save,abort;
  175.   char s[160],s1[160],rollover[160];
  176.  
  177.   rollover[0]=0;
  178.   thisuser.screenchars -= 5;
  179.   topline=NULL;
  180.   numlines=0;
  181.   curline=0;
  182.   topline=read_file(fn,&numlines);
  183.   itoa(numlines,s,10);
  184.   print(s," lines read in.","");
  185.   nl();
  186.   done=0;
  187.   save=0;
  188.   if (numlines>0) {
  189.     curline=1;
  190.     bottomline=topline;
  191.     while ((bottomline->next)!=NULL)
  192.       bottomline=bottomline->next;
  193.   } else
  194.     curline=0;
  195.   if (numlines<1)
  196.     numlines=0;
  197.   c=topline;
  198.   printl(curline,c);
  199.   do {
  200.     outstr(":");
  201.     input(s,10);
  202.     i=atoi(s);
  203.     if ((s[0]>='0') && (s[0]<='9')) {
  204.       i-=curline;
  205.       if (i==0)
  206.         strcpy(s,"~");
  207.       else
  208.         if (i>0) {
  209.           s[0]='+';
  210.           itoa(i,&(s[1]),10);
  211.         } else {
  212.           itoa(i,s,10);
  213.         }
  214.     }
  215.     if (s[0]==0)
  216.       strcpy(s,"+");
  217.     switch(s[0]) {
  218.       case '?':
  219.         printmenu(11);
  220.         break;
  221.       case 'Q':
  222.         done=1;
  223.         save=0;
  224.         break;
  225.       case 'S':
  226.         done=1;
  227.         save=1;
  228.         break;
  229.       case 'L':
  230.         i=curline;
  231.         l=c;
  232.         while ((l!=NULL) && (printl(i,l)==0)) {
  233.           l=l->next;
  234.           ++i;
  235.         }
  236.         break;
  237.       case 'T':
  238.         c=topline;
  239.         if (topline==NULL)
  240.           curline=0;
  241.         else
  242.           curline=1;
  243.         printl(curline,c);
  244.         break;
  245.       case 'B':
  246.         c=NULL;
  247.         curline=numlines+1;
  248.         printl(curline,c);
  249.         break;
  250.       case '-':
  251.         if (curline) {
  252.           i=atoi(&(s[1]));
  253.           if (i==0)
  254.             i=1;
  255.           for (i1=0; (i1<i) && (curline); i1++) {
  256.             if (c==NULL)
  257.               c=bottomline;
  258.             else
  259.               c=c->prev;
  260.             --curline;
  261.           }
  262.         }
  263.         printl(curline,c);
  264.         break;
  265.       case '+':
  266.         if (curline!=numlines+1) {
  267.           i=atoi(&(s[1]));
  268.           if (i==0)
  269.             i=1;
  270.           for (i1=0; (i1<i) && (curline!=numlines+1); i1++) {
  271.             if (c==NULL)
  272.               c=topline;
  273.             else
  274.               c=c->next;
  275.             ++curline;
  276.           }
  277.         }
  278.         printl(curline,c);
  279.         break;
  280.       case 'D':
  281.         i=atoi(&(s[1]));
  282.         if (i==0)
  283.           i=1;
  284.         for (i1=0; (i1<i) && (c!=NULL); i1++) {
  285.           if (c->prev==NULL)
  286.             if (c->next==NULL) {
  287.               topline=NULL;
  288.               bottomline=NULL;
  289.             } else
  290.               topline=c->next;
  291.           else
  292.             if (c->next==NULL)
  293.               bottomline=c->prev;
  294.           l=c;
  295.           if (c->prev!=NULL)
  296.             c->prev->next=c->next;
  297.           if (c->next!=NULL)
  298.             c->next->prev=c->prev;
  299.           c=c->next;
  300.           farfree((void *)l);
  301.           --numlines;
  302.         }
  303.         printl(curline,c);
  304.         break;
  305.       case 'P':
  306.         printl(curline,c);
  307.         break;
  308.       case 'C':
  309.         nl();
  310.         prt(5,"Clear workspace? ");
  311.         if (yn()) {
  312.           kill_file(topline);
  313.           topline=NULL;
  314.           bottomline=NULL;
  315.           c=NULL;
  316.           numlines=0;
  317.           curline=0;
  318.           pl("File cleared.");
  319.         }
  320.         break;
  321.       case 'I':
  322.         nl();
  323.         pl("Enter '.' on its own line to exit insert mode.");
  324.         i1=0;
  325.         do {
  326.           if (farcoreleft()<10240) {
  327.             nl();
  328.             pl("Not enough memory left to insert anything.");
  329.             nl();
  330.             i1=1;
  331.           } else {
  332.             sprintf(s1,"%3d: ",curline);
  333.             if (curline<1)
  334.               strcpy(s1,"  1: ");
  335.             outstr(s1);
  336.             inli(s1,rollover,150,1);
  337.             if (strcmp(s1,".")==0)
  338.               i1=1;
  339.             else {
  340.               l=(struct line *)farmalloc(sizeof(struct line));
  341.               strcpy((l->text),s1);
  342.               if (c!=NULL) {
  343.                 l->next=c;
  344.                 if (c->prev!=NULL) {
  345.                   c->prev->next=l;
  346.                   l->prev=c->prev;
  347.                   c->prev=l;
  348.                 } else {
  349.                   c->prev=l;
  350.                   l->prev=NULL;
  351.                   topline=l;
  352.                 }
  353.               } else {
  354.                 if (topline==NULL) {
  355.                   l->prev=NULL;
  356.                   l->next=NULL;
  357.                   topline=l;
  358.                   bottomline=l;
  359.                   curline=1;
  360.                 } else
  361.                   if (curline==numlines+1) {
  362.                     l->prev=bottomline;
  363.                     bottomline->next=l;
  364.                     l->next=NULL;
  365.                     bottomline=l;
  366.                   } else {
  367.                     l->prev=NULL;
  368.                     l->next=topline;
  369.                     topline->prev=l;
  370.                     c=topline;
  371.                     topline=l;
  372.                     curline=1;
  373.                   }
  374.               }
  375.               ++numlines;
  376.               ++curline;
  377.             }
  378.           }
  379.         } while ((!i1) && (!hangup));
  380.         break;
  381.     }
  382.   } while ((!done) && (!hangup));
  383.   thisuser.screenchars += 5;
  384.   if (save)
  385.     save_file(fn,topline);
  386.   kill_file(topline);
  387. }
  388.  
  389.  
  390.