home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 529a.lha / Bref_v2.0 / bref3.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-07-02  |  6.6 KB  |  223 lines
  1. /* Program bref3.c  help() module, gives on-screen usage instructions  */
  2. /* Set TAB value to 3 for this listing. */
  3. /*        Invoked from bref.c which is main() */
  4.  
  5. #include "exec/types.h"
  6. #include "intuition/intuition.h"
  7.  
  8.             /* extern data */
  9.  
  10. extern struct Window *w;
  11.  
  12.             /* Back Gadget for HELP screen */
  13.  
  14. SHORT back_box[] = {0,0,  39,0,  39,10,  0,10,  0,0};
  15.  
  16. struct Border back_border = {0,0,1,0,JAM1,5,back_box,NULL};
  17.  
  18. struct IntuiText back_text = {1,0,JAM1,4,2,NULL,"BACK",NULL};
  19.  
  20. struct Gadget back_gadget = {NULL,50,180,40,11,GADGHCOMP | GADGDISABLED,
  21.         GADGIMMEDIATE | RELVERIFY, BOOLGADGET,
  22.         &back_border,NULL,&back_text,NULL,NULL,0,NULL}; 
  23.  
  24.             /* Next Gadget for HELP screen */
  25.  
  26. SHORT next_box[] = {0,0,  39,0,  39,10,  0,10,  0,0};
  27.  
  28. struct Border next_border = {0,0,1,0,JAM1,5,next_box,NULL};
  29.  
  30. struct IntuiText next_text = {1,0,JAM1,4,2,NULL,"NEXT",NULL};
  31.  
  32. struct Gadget next_gadget = {&back_gadget,300,180,40,11,GADGHCOMP,
  33.         GADGIMMEDIATE | RELVERIFY, BOOLGADGET,
  34.         &next_border,NULL,&next_text,NULL,NULL,0,NULL}; 
  35.  
  36.             /* OK Gadget for HELP screen */
  37.  
  38. SHORT ok2_box[] = {0,0,  22,0,  22,10,  0,10,  0,0};
  39.  
  40. struct Border ok2_border = {0,0,1,0,JAM1,5,ok2_box,NULL};
  41.  
  42. struct IntuiText ok2_text = {1,0,JAM1,4,2,NULL,"OK",NULL};
  43.  
  44. struct Gadget ok2_gadget = {&next_gadget,550,180,23,11,GADGHCOMP,
  45.         GADGIMMEDIATE | RELVERIFY, BOOLGADGET,
  46.         &ok2_border,NULL,&ok2_text,NULL,NULL,0,NULL}; 
  47.  
  48. struct IntuiText int_text = { 1,0,JAM2,16,9,NULL,
  49.         NULL,        /* IText */
  50.         NULL};
  51.  
  52. help()
  53. {
  54.  int i,j,go,smark,sline=0,eline,bline[5],hp=0;
  55.  struct IntuiMessage *msg;
  56. /* BOOL fin, list = TRUE;*/
  57.  BOOL fin, Next = FALSE, Back = FALSE;
  58.  ULONG class;
  59.  struct Gadget *address;
  60.  char *cp[] = {
  61. "                 BREF HELP -- 1/3",
  62. "",
  63. "WHAT DOES BREF DO?     It makes a cross reference table for AmigaBASIC",
  64. "code.  This is a numbered listing of the BASIC code, plus a table showing",
  65. "all variable/label usage.  Highly useful tool for BASIC programmers.",
  66. "",
  67. "RESTRICTION:  The BASIC code must be in ASCII format, not binary.  To save",
  68. "your code in ASCII, use the LIST command in the BASIC output window:",
  69. "    LIST ,\"your.prog.name\"",
  70. "",
  71. "USAGE:   Use the OPTION display to select your settings.  Use FileWindow",
  72. "to select your AmigaBASIC input.  FileWindow starts by showing the current",
  73. "directory--directories/files.  Click on a directory to show its contents.",
  74. "Can change to a different unit (df0:,etc) with a click.  Click on the file",
  75. "you want for input.  Then a click on GO starts BREF execution.",
  76. "",
  77. "You can also click on File or Drawer/File, type your name or path/name,",
  78. "then press RETURN to start execution.",
  79. "",
  80. "ABORT RUN    by click on CloseWindow.",
  81. "zzz",                        /* End of page marker */
  82.  
  83. "               BREF HELP -- 2/3         OPTION",
  84. "",
  85. "Most of the Options are self-explanatory; default values are shown.",
  86. "",
  87. "OUTPUT   Default output goes to the printer (PRT:).  You can change this",
  88. "   by entering an alternate output name, for example--    ram:temp",
  89. "   Then you can use an edit program to look at this.",
  90. "         CLI/SHELL invoke:  can use * for screen output.",
  91. "         Workbench invoke:  no screen output for *",
  92. "",
  93. "PRINT PITCH (10/12 cpi)   \"Pitch\" means how many char's/inch printed.",
  94. "    10 = Pica, 12 = Elite.  If you pick 12, BREF recalculates page width.",
  95. "    Example:  80 --> 96, resulting in fewer printer line overflows.",
  96. "    WARNING:  Your printer may not support pitch = 12.",
  97. "",
  98. "Option SAVE:  After setup of your option values, click on SAVE will write",
  99. "your options to a file.  When you run BREF again, it looks for this file.",
  100. "If found, it restores your saved options, goes directly to FileWindow.",
  101. "If you click on OK of OPTION, it uses the current values, but no save.",
  102. "zzz",                        /* End of page marker */
  103.  
  104. "                    BREF HELP -- 3/3",
  105. "",
  106. "Documentation file \"bref.doc\" contains further information about the",
  107. "BREF program.  Please refer to this for expanded usage details, two minor",
  108. "program limitations, assorted technical details, and program history.",
  109. "",
  110. "If you have found a program bug, or have a program change to suggest,",
  111. "or want to correspond, I'll be glad to hear from you.",
  112. "",
  113. "     Dick Taylor          Tel (203) 633-0100",
  114. "     99 Valley View Rd",
  115. "     Glastonbury CT 06033-3621 USA",
  116. "{{{"};                        /* End of text marker */
  117.  
  118. /* AddGadget(w,&back_gadget,0);
  119.  AddGadget(w,&next_gadget,0);*/
  120.  AddGadget(w,&ok2_gadget,0);
  121.  RefreshGadgets(&ok2_gadget,w,NULL);
  122.  
  123.  fin = FALSE;
  124.  while (!fin)
  125.  {
  126.     go = TRUE;
  127.     i = sline;        /* start-line */
  128.     j = 0;
  129.  
  130.     while (go)
  131.     {
  132.             eline = i;
  133.                             /* "zzz" is end-of-page marker (smark = 0) */
  134.                             /* "{{{" is end-of-text marker (smark < 0) */
  135.             smark = strcmp("zzz",cp[i]);
  136.             if (smark <= 0)
  137.                 go = FALSE;
  138.             else
  139.                 { int_text.IText = cp[i];
  140.                     PrintIText(w->RPort,&int_text,0,j*8);
  141.                   ++i;  ++j;
  142.                 }
  143.      }                /* on exit while loop, eline contains end-line # */
  144.  
  145. /*    OnGadget(&ok2_gadget,w,NULL);        /* OK (= exit) is always on */
  146.  
  147.     if (smark < 0)                    /* Last page -- drop Next if in place  */
  148.     {
  149.         if (Next)
  150.         {    RemoveGadget (w,&next_gadget);
  151.             Next = FALSE;
  152.         }
  153.     }
  154.     else if (!Next)        /* Not last page -- add Next if not in place*/
  155.             {    AddGadget (w,&next_gadget,-1);
  156.                 Next = TRUE;
  157.             }
  158.  
  159.     if (hp == 0)                    /* First page -- drop Back if in place */
  160.     {
  161.         if (Back)
  162.         {    RemoveGadget (w,&back_gadget);
  163.             Back = FALSE;
  164.         }
  165.     }
  166.     else if (!Back)            /* Not first page -- add Back if not in place*/
  167.             {    AddGadget(w,&back_gadget,-1);
  168.                 OnGadget(&back_gadget,w,NULL);
  169.                 Back = TRUE;
  170.             }
  171.  
  172.     RefreshGadgets(&ok2_gadget,w,NULL);
  173.  
  174.     Wait(1 << w->UserPort->mp_SigBit);
  175.     while (msg = (struct IntuiMessage *) GetMsg(w->UserPort))
  176.     {
  177.         class = msg->Class;
  178.         address = msg->IAddress;
  179.         ReplyMsg(msg);
  180.  
  181.         switch(class)
  182.         {
  183.             case CLOSEWINDOW:
  184.                 Clear_Screen();
  185.                 return(1);            /* return 1 = close window */
  186.             case GADGETUP:
  187.                 if (address == &ok2_gadget)        /* OK = exit */
  188.                 {    Clear_Screen();
  189.                     RemoveGadget(w,&back_gadget);
  190.                     RemoveGadget(w,&next_gadget);
  191.                     RemoveGadget(w,&ok2_gadget);
  192.                     fin = TRUE;
  193.                 }
  194.                 else if (address == &next_gadget)
  195.                 {
  196.                     Clear_Screen();
  197.                     bline[hp++] = sline;        /* save curr start-line for "back" */
  198.                     sline = eline + 1;        /* new start-line = end-line + 1 */
  199.                 }
  200.                 else if (address == &back_gadget)
  201.                 {
  202.                     Clear_Screen();
  203.                     sline = bline[--hp];        /* new start-line from back-line arr*/
  204.                 }
  205.                 break;
  206.         }    /* end switch(class) */
  207.     }        /* end while (msg ...) */
  208.  }            /* End while (!fin) */
  209.  
  210.  return(0);
  211. }
  212.  
  213. Clear_Screen()
  214. {
  215.  static int i;
  216.  char *spaces = 
  217. "                                                                           ";
  218.  
  219.  int_text.IText = spaces;
  220.  for (i = 0; i < 23; ++i)
  221.     PrintIText(w->RPort,&int_text,0,i*8);
  222. }
  223.