home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / amethyst / crayon.dif < prev    next >
Encoding:
Text File  |  1984-01-16  |  4.2 KB  |  218 lines
  1. /* CRAYON.C        Top level of Scribble print driver
  2.  
  3.     Copyright (C) 1981 by Mark of the Unicorn, Inc.
  4.     Created 81.3.12 Gyro
  5.  
  6. This code interprets the command line and the Scribble output file, and
  7. calls the low-level abstraction to do the printing.  This might turn
  8. into a generalized driver.  
  9.  
  10. Modifications Schedule:
  11. 08/03/81        -page option hack by Jeffrey D. Stone.
  12.  
  13. */
  14.  
  15.  
  16. #include "crayon.h"
  17.  
  18. int stpage, curpage;   /* jds */
  19.  
  20. main (argc, argv)
  21.     int argc;
  22.     char **argv;
  23. {
  24.     int ntimes, itime;
  25.     
  26.     puts ("Crayon v1.1, Copyright (C) 1981 by Mark of the Unicorn, Inc.\n");
  27.     ntimes = 1;
  28.     stflag = TRUE;  /* jds */
  29.     curpage = 1;  /* jds */
  30.     stpage = 0;  /* jds */
  31.     char *cstpage;
  32.     pausep = FALSE;
  33.     remark = "";
  34.     portname = NULL;
  35.     quietp = FALSE;
  36.     while (--argc > 0) {
  37.         if (**++argv == '-') {
  38.             if (isdigit ((*argv)[1])) ntimes = atoi (&(*argv)[1]);
  39.             else if (match ((*argv) + 1, "Pause") 
  40.                     ||  match ((*argv) + 1, "P")) {
  41.                 pausep = TRUE;
  42.                 if (!quietp) puts ("Pausing between pages.\n");
  43.                 }
  44.             else if (match ((*argv) + 1, "Port")) {
  45.                 portname = *++argv;
  46.                 --argc;
  47.                 if (!quietp) 
  48.                     printf ("Using '%s' port(s).\n", portname);
  49.                 }
  50.             else if (match ((*argv) + 1, "Page")) {
  51.                 cstpage = *++argv;
  52.                 --argc;
  53.                 stpage = atoi(cstpage);
  54.                 if (!quietp)
  55.                     printf("Starting at page %d - first page is # 1.\n",stpage);
  56.                 stflag = FALSE;
  57.                 
  58.                 }
  59.             else if (match ((*argv) + 1, "Q")) quietp = TRUE;
  60.             else if (match ((*argv) + 1, "R")) {
  61.                 remark = *++argv;
  62.                 --argc;
  63.                 if (!quietp) printf ("Remark: '%s'.\n", remark);
  64.                 }
  65.             else printf ("Unknown command line option: '%s'\n", *argv);
  66.             }
  67.         else {
  68.             if (PrintFile (*argv, ntimes) == ABORTALL) break;
  69.             }
  70.         }
  71.     }
  72.  
  73.  
  74. ReadLine ()
  75. {
  76.     FLAG done, vanilla;
  77.     
  78.     inchars = intokens = 0;
  79.     superp = subp = FALSE;
  80.     justp = FALSE;
  81.     ForceTok();
  82.     done = FALSE;
  83.     while (!done) {
  84.         switch (IChar()) {
  85.         
  86.         case LF:
  87.             linelead += PrLineV();
  88.             break;
  89.         case FF:
  90.             ++curpage; /* jds */
  91.             if (!stflag && curpage >= stpage) {  /* jds */ 
  92.                 if (PrVPos() != 0) PrFF();
  93.                 PrFlush();
  94.                 stflag = TRUE;
  95.                 linelead = 0;
  96.                 break;
  97.                 }
  98.             if (pausep) {
  99.                 PagePause();
  100.                 linelead = 0;
  101.                 }
  102.             else linelead += PrPageV() - (linelead + PrVPos()) % PrPageV();
  103.             break;
  104.         case VERTSPACE:
  105.             linelead += PrUnMica ((INext() << 8) + INext(), VERTICAL);
  106.             break;
  107.         default:
  108.             done = TRUE;
  109.             break;
  110.             }
  111.         if (!done) INext();
  112.         }
  113.     done = FALSE;
  114.     repeat {
  115.         vanilla = FALSE;
  116.         switch (IChar()) {
  117.         
  118.         case CR:
  119.             INext();
  120.         case LF:
  121.         case FF:
  122.             done = TRUE;
  123.             break;
  124.         case EOF:
  125.             return (NULL);
  126.             break;
  127.         case VERTSPACE:
  128.             done = TRUE;
  129.             break;
  130.         case HORIZSPACE:
  131.             ForceTok();
  132.             GetTok();
  133.             itokens[intokens-1].toklead += 
  134.                 PrUnMica ((INext() << 8) + INext(), HORIZONTAL);
  135.             break;
  136.         case BOLDON:
  137.             AttrPush();
  138.             attrstack[attrsp].tokbold = TRUE;
  139.             ForceTok();
  140.             break;
  141.         case ROMANON:
  142.             AttrPush();
  143.             attrstack[attrsp].tokbold = FALSE;
  144.             attrstack[attrsp].tokital = FALSE;
  145.             ForceTok();
  146.             break;
  147.         case UNNBON:
  148.         case UNALLON:
  149.         case UNANON:
  150.             AttrPush();
  151.             attrstack[attrsp].tokuscore = IChar();
  152.             ForceTok();
  153.             break;
  154.         case ITALON:
  155.             AttrPush();
  156.             attrstack[attrsp].tokital = TRUE;
  157.             ForceTok();
  158.             break;
  159.         case BITALON:
  160.             AttrPush();
  161.             attrstack[attrsp].tokbold = TRUE;
  162.             attrstack[attrsp].tokital = TRUE;
  163.             ForceTok();
  164.             break;
  165.         case SUPERON:
  166.             superp = TRUE;
  167.             AttrPush();
  168.             attrstack[attrsp].tokscript = IChar();
  169.             ForceTok();
  170.             break;
  171.         case SUBON:
  172.             subp = TRUE;
  173.             AttrPush();
  174.             attrstack[attrsp].tokscript = IChar();
  175.             ForceTok();
  176.             break;
  177.         case SUBOFF:
  178.         case SUPEROFF:
  179.         case BITALOFF:
  180.         case ITALOFF:
  181.         case UNANOFF:
  182.         case UNALLOFF:
  183.         case UNNBOFF:
  184.         case ROMANOFF:
  185.         case BOLDOFF:
  186.             AttrPop();
  187.             ForceTok();
  188.             break;
  189.         case JUSTIFY:
  190.             justp = TRUE;
  191.             just.jlefttok = intokens;
  192.             just.jspace = (INext() << 8) + INext();
  193.             break;
  194.         case TOKENBREAK:
  195.             ForceTok();
  196.             GetTok();
  197.             itokens[intokens-1].tokjust = TRUE;
  198.             itokens[intokens-1].toklead += PrSpaceH();
  199.             break;
  200.         default:
  201.             vanilla = TRUE;
  202.             break;
  203.             }
  204.         if (done) break;
  205.         if (vanilla) {
  206.             GetTok();
  207.             iline[inchars++] = IChar();
  208.             itokens[intokens-1].tokwidth += PrWidChar (IChar());
  209.             }
  210.         if (!done) INext();
  211.         }
  212.     itokens[intokens].tokbegin = inchars;
  213.     return (TRUE);
  214.     }
  215.  
  216.  
  217. /* End of CRAYON.C  --  Scribble print driver top level */
  218.