home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / amethyst / quartz.c < prev    next >
Encoding:
C/C++ Source or Header  |  1984-01-16  |  3.7 KB  |  143 lines
  1. /* QUARTZ.C - Alternate Command Set (a mode)
  2.    Contributed to the AUG by Mark of the Unicorn 07/20/81 
  3.  
  4. The seller of this software hereby disclaims any and all
  5. guarantees and warranties, both express and implied.  No
  6. liability of any form shall be assumed by the seller, nor shall
  7. direct, consequential, or other damages be assumed by the seller.
  8. Any user of this software uses it at his or her own risk.
  9.  
  10. Due to the ill-defined nature of "fitness for purpose" or similar
  11. types of guarantees for this type of product, no fitness for any
  12. purpose whatsoever is claimed or implied.
  13.  
  14. The physical medium upon which the software is supplied is
  15. guaranteed for one year against any physical defect.  If it
  16. should fail, return it to Mark of the Unicorn, and a new physical
  17. medium with a copy of the purchased software shall be sent.
  18.  
  19. The seller reserves the right to make changes, additions, and
  20. improvements to the software at any time; no guarantee is made
  21. that future versions of the software will be compatible with any
  22. other version.
  23.  
  24. The parts of this disclaimer are severable and fault found in
  25. any one part does not invalidate any other parts.
  26.  
  27.     Copyright (c) 1981 by Mark of the Unicron
  28.     Created for Version 2.3 10/4/80 Fin
  29.  
  30.     This file contains the routines and bindings necessary in
  31. order to implement the alternate command set */
  32.  
  33. /*
  34.     Do not forget to add MDelBegLine, MDelEndLine, MDBSent, and
  35. MDFSent to the list in DelCmnd.
  36.  
  37. */
  38.  
  39. #include "mince.gbl"
  40.  
  41. SetModes()            /* Set the modes according to the bmodes array */
  42. {
  43.     int cnt;
  44.     int MBLine(), MDelBegLine(), MFLine(), MDelEndLine();
  45.     int MPrevPage(), MMrkPara(), MDBSent(), BWord();
  46.     int MBPara(), MFPara(), MSwitchTo(), MKillBuff();
  47.     int MLstBuffs(), MToLastBuff(), MSetIndent();
  48.  
  49.     *mode='\0';
  50.     finit1();                    /* Set up the key bindings */
  51.     finit2();
  52.     finit3();
  53.     for (cnt=MAXMODES-1; cnt>=0; --cnt) {
  54.         switch (buffs[cbuff].bmodes[cnt]) {
  55.  
  56.         case 'q':
  57.             functs[1] = &MBLine;        /* C-A */
  58.             functs[2] = &MDelBegLine;    /* C-B */
  59.             functs[5] = &MFLine;        /* C-E */
  60.             functs[11] = &MDelEndLin;    /* C-K */
  61.             functs[26] = &MPrevPage;        /* C-Z */
  62.             functs[128+17] = &MMrkPara;                /* M-C-Q */
  63.             functs[128+'B']=functs[128+'b'] = &MDBSent;    /* M-B */
  64.             functs[128+'H']=functs[128+'h'] = &BWord;    /* M-H */
  65.             functs[128+'N']=functs[128+'n'] = &MFPara;    /* M-N */
  66.             functs[128+'P']=functs[128+'p'] = &MBPara;    /* M-P */
  67.             functs[256+2] = &MSwitchTo;                /* C-X C-B */
  68.             functs[256+11] = &MKillBuff;                /* C-X C-K */
  69.             functs[256+12] = &MLstBuffs;                /* C-X C-L */
  70.             functs[256+26] = &MToLastBuff;            /* C-X C-Z */
  71.             functs[256+'I']=functs[256+'i'] = &MSetIndent;/* C-X I */
  72.             strcat(&mode,"Quartz ");
  73.             break;
  74. /* other modes here if you still want them */
  75.             }
  76.         }
  77.     if (!*mode) strcpy(&mode,"Normal ");
  78.     mode[strlen(mode)-1]='\0';
  79.     ModeLine();
  80.     }
  81.  
  82. MBLine()                /* move to the beginning of the line */
  83. {
  84.     BMove(-1);
  85.     ToBegLine();
  86.     }
  87.  
  88. MDelBegLine()            /* delete to the beginning of the line */
  89. {
  90.     tmark=BCreMrk();
  91.     MBLine();
  92.     KillToMrk(tmark,BACKWARD);
  93.     BKillMrk(tmark);
  94.     }
  95.  
  96. MFLine()                /* move to the end of the line */
  97. {
  98.     BMove(1);
  99.     ToEndLine();
  100.     }
  101.  
  102. MDelEndLine()            /* delete to the end of the line */
  103. {
  104.     tmark=BCreMrk();
  105.     MFLine();
  106.     KillToMrk(tmark,FORWARD);
  107.     BKillMrk(tmark);
  108.     }
  109.  
  110. MBDSent()                /* backward delete sentence */
  111. {
  112.     int tmark;
  113.  
  114.     tmark=BCreMrk();
  115.     MBSent();
  116.     KillToMrk(tmark,BACKWARD);
  117.     BKillMrk(tmark);
  118.     }
  119.  
  120. MDelSent()            /* delete sentence */
  121. {
  122.     int tmark;
  123.  
  124.     tmark=BCreMrk();
  125.     MFSent();
  126.     KillToMrk(tmark,FORWARD);
  127.     BKillMrk(tmark);
  128.     }
  129.  
  130. MToLastBuff()            /* switch buffers */
  131. {
  132.     int cnt;
  133.  
  134.     arg=0;
  135.     cnt=CFindBuff(namearg);
  136.     if (cnt<0 && (!Ask("Create new buffer?") ||
  137.         (cnt=CMakeBuff(namearg,"DELETE.ME"))<0)) return;
  138.     CSwitchTo(cnt);
  139.     ScrnRange();
  140.     }
  141.  
  142. /* THIS IS THE END OF QUARTZ.C */
  143.