home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / GadgetsForOS.LHA / BReq / BReq.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-08-29  |  15.5 KB  |  503 lines
  1. /******************************************************************************
  2. *                                          *
  3. *  BReq: opens a window on a custom screen with two gadgets for a startup     *
  4. *     option selection. Originally intended for use with NetBSD-Amiga.     *
  5. *                                          *
  6. * Copyright (c)1994 by Eric R. Augustine (voodoo@well.sf.ca.us)               *
  7. *                                          *
  8. * This is Copyrighted FreeWare so you may do with it as you wish as long as   *
  9. * any distribution contains all original sources and documentation and that   *
  10. * distribution is not done for the purpose of profitable gains.  The author   *
  11. * accepts no responsibility for  any damage as    a result of the use of this   *
  12. * program nor  does he make any claims or garantees as to what this program   *
  13. * can do.                                      *
  14. *                                          *
  15. ******************************************************************************/
  16.  
  17. #include <graphics/gfxbase.h>
  18. #include <proto/intuition.h>
  19. #include <proto/dos.h>
  20. #include <proto/exec.h>
  21. #include <proto/graphics.h>
  22. #include <stdlib.h>
  23. #include <string.h>
  24.  
  25. #define TRUE  1
  26. #define FALSE 0
  27.  
  28. #define PALHEIGHT 512
  29. #define PALGADTOP  56
  30.  
  31. /*  these two for action based on user response or timeout
  32.  */
  33. #define SYSCALL  1
  34. #define NOACTION 2
  35.  
  36. /*  yes I know there's already a type BOOL
  37.  */
  38. typedef int bool;
  39.  
  40. /*  library bases needed for closing the libraries at cleanup
  41.  */
  42. struct IntuitionBase *IntuitionBase;
  43. extern struct  GfxBase *GfxBase;
  44. struct Library *DosBase;
  45.  
  46. /*  build blank screen pointer
  47.  */
  48. USHORT chip BlankPoint[4] = {
  49.    0x0000, 0x0000,
  50.    0x0000, 0x0000
  51. };
  52.  
  53. /*  create gadget box:    makes a beveled box 96 pixels wide by
  54.  *  32 pixels high.
  55.  */
  56. SHORT BoxPoints[] = {
  57.     0,    0,
  58.    96,    0,
  59.    96, 32,
  60.     0, 32,
  61.     0,    0,
  62.     4,    4,
  63.    92,    4,
  64.    96,    0,
  65.    92,    4,
  66.    92, 28,
  67.    96, 32,
  68.    92, 28,
  69.     4, 28,
  70.     0, 32,
  71.     4, 28,
  72.     4,    4
  73. };
  74.  
  75. /*  make gadget borders from boxes
  76.  */
  77. struct Border BRBorder = {
  78.    0,            /* LeftEdge   */
  79.    0,            /* TopEdge      */
  80.    1,            /* FrontPen   */
  81.    0,            /* BackPen      */
  82.    JAM1,        /* DrawMode   */
  83.    16,            /* Count      */
  84.    BoxPoints,        /* XY      */
  85.    NULL,        /* NextBorder */
  86. };
  87.  
  88. /*  build left gadget
  89.  */
  90. UBYTE BRLeftString[] = "A";
  91.  
  92. struct IntuiText BRLeftText = {
  93.    1,            /* FrontPen  */
  94.    0,            /* BackPen     */
  95.    JAM1,        /* DrawMode  */
  96.    8,            /* LeftEdge  */
  97.    12,            /* TopEdge     */
  98.    NULL,        /* ITextFont */
  99.    BRLeftString,    /* IText     */
  100.    NULL         /* NextText  */
  101. };
  102.  
  103. struct Gadget BRLeftGad = {
  104.    NULL,        /* NextGadget    */
  105.    50,            /* LeftEdge      */
  106.    157,         /* TopEdge         */
  107.    96,            /* Width         */
  108.    32,            /* Height         */
  109.    GADGHCOMP,        /* Flags         */
  110.    GADGIMMEDIATE|   /* Activation    */
  111.    RELVERIFY,
  112.    BOOLGADGET,        /* GadgetType    */
  113.    (APTR)&BRBorder, /* GadgetRender  */
  114.    NULL,        /* SelectRender  */
  115.    &BRLeftText,     /* GadgetText    */
  116.    NULL,        /* MutualExclude */
  117.    NULL,        /* SpecialInfo   */
  118.    0,            /* GadgetID      */
  119.    NULL         /* UserData      */
  120. };
  121.  
  122. /*  build comment string for left button
  123.  */
  124. UBYTE BRLeftComment[] = " ";
  125.  
  126. struct IntuiText BRLeftCommentText = {
  127.    1,            /* FrontPen  */
  128.    0,            /* BackPen     */
  129.    JAM1,        /* DrawMode  */
  130.    8,            /* LeftEdge  */
  131.    12,            /* TopEdge     */
  132.    NULL,        /* ITextFont */
  133.    BRLeftComment,   /* IText     */
  134.    NULL         /* NextText  */
  135. };
  136.  
  137. /*  build right gadget
  138.  */
  139. UBYTE BRRightString[] = "B";
  140.  
  141. struct IntuiText BRRightText = {
  142.    1,            /* FrontPen  */
  143.    0,            /* BackPen     */
  144.    JAM1,        /* DrawMode  */
  145.    8,            /* LeftEdge  */
  146.    12,            /* TopEdge.  */
  147.    NULL,        /* ITextFont */
  148.    BRRightString,   /* IText     */
  149.    NULL         /* NextText  */
  150. };
  151.  
  152. struct Gadget BRRightGad = {
  153.    &BRLeftGad,        /* NextGadget */
  154.    50,            /* LeftEdge   */
  155.    210,         /* TopEdge      */
  156.    96,            /* Width      */
  157.    32,            /* Height      */
  158.    GADGHCOMP,        /* Flags      */
  159.    GADGIMMEDIATE|   /* Activation */
  160.    RELVERIFY,
  161.    BOOLGADGET,        /* GadgetType    */
  162.    (APTR)&BRBorder, /* GadgetRender  */
  163.    NULL,        /* SelectRender  */
  164.    &BRRightText,    /* GadgetText    */
  165.    NULL,        /* MutualExclude */
  166.    NULL,        /* SpecialInfo   */
  167.    0,            /* GadgetID      */
  168.    NULL         /* UserData      */
  169. };
  170.  
  171. /*  build comment string for right button
  172.  */
  173. UBYTE BRRightComment[] = " ";
  174.  
  175. struct IntuiText BRRightCommentText = {
  176.    1,            /* FrontPen  */
  177.    0,            /* BackPen     */
  178.    JAM1,        /* DrawMode  */
  179.    8,            /* LeftEdge  */
  180.    12,            /* TopEdge     */
  181.    NULL,        /* ITextFont */
  182.    BRRightComment,  /* IText     */
  183.    NULL         /* NextText  */
  184. };
  185.  
  186. /*  BReq's window
  187.  */
  188. struct Window *BRWin;
  189.  
  190. /*  Vanilla required new window
  191.  */
  192. struct NewWindow NWin = {
  193.    0,               /* LeftEdge    */
  194.    0,               /* TopEdge     */
  195.    640,            /* Width       */
  196.    400,            /* Height      */
  197.    0,               /* DetailPen   */
  198.    1,               /* BlockPen    */
  199.    CLOSEWINDOW|        /* IDCMPFlags  */
  200.    INTUITICKS|
  201.    GADGETDOWN|
  202.    VANILLAKEY|
  203.    MOUSEBUTTONS|
  204.    MOUSEMOVE,
  205.    WFLG_SMART_REFRESH| /* Flags       */
  206.    WFLG_BORDERLESS|
  207.    RMBTRAP|
  208.    REPORTMOUSE|
  209.    ACTIVATE,
  210.    &BRRightGad,        /* FirstGadget */
  211.    NULL,           /* CheckMark   */
  212.    NULL,           /* Title       */
  213.    NULL,           /* Screen      */
  214.    NULL,           /* BitMap      */
  215.    0,               /* MinWidth    */
  216.    0,               /* MinHeight   */
  217.    640,            /* MaxWidth    */
  218.    400,            /* MaxHeight   */
  219.    CUSTOMSCREEN        /* Type          */
  220. };
  221.  
  222. /*  new screen structure - could use OpenScreenTags()
  223.  *  but, I want to account for PAL modes as well.
  224.  */
  225. struct NewScreen NScreen = {
  226.    0,               /* LeftEdge     */
  227.    0,               /* TopEdge      */
  228.    640,            /* Width        */
  229.    400,            /* Height       */
  230.    4,               /* Depth        */
  231.    0,               /* DetailPen    */
  232.    1,               /* BlockPen     */
  233.    HIRES|LACE,           /* ViewModes    */
  234.    CUSTOMSCREEN,       /* Type           */
  235.    NULL,           /* Font           */
  236.    NULL,           /* DefaultTitle */
  237.    NULL,           /* Gadgets      */
  238.    NULL            /* CustomBitMap */
  239. };
  240.  
  241. /*  readargs structure for user preferences
  242.  */
  243. struct internal_args {
  244.    char  *timeout;         /* idle time timeout       */
  245.    char  *blank;         /* idle time blank screen       */
  246.    const char *defresponse;  /* select default for timeout */
  247.    char  *buttons;         /* title individual buttons   */
  248.    bool  reverse;         /* reverse colors           */
  249.    char  *atext;         /* itext to left button       */
  250.    char  *btext;         /* itext to right button       */
  251.    char  *sysstring;         /* system call string       */
  252. };
  253.  
  254. /*  avoid larger stdio code by using this very simple printing routine
  255.  *  using just dos library routines and string.
  256.  */
  257. void error(char *errstr) {
  258.    Write(Output(),errstr,strlen(errstr));
  259. }
  260.  
  261. main(int argc, char *argv[]) {
  262.    APTR   address;            /* IDCMP response address for gadgets      */
  263.    bool   user_response = FALSE;    /* whether or not user has made a response */
  264.    bool   BLANKDONE = FALSE;        /* blanker currently in process           */
  265.    char   *buttonstr;            /* modifiable button titles for user       */
  266.    int      action;            /* action to take once BReq closes           */
  267.    int      hmode = 0;            /* height of comments based on display     */
  268.    ULONG  class;            /* IDCMP message Class               */
  269.    ULONG  seconds;            /* Seconds counted by IDCMP            */
  270.    ULONG  startsecs;            /* seconds at start of BReq            */
  271.    ULONG  blanksecs;            /* seconds to blank                */
  272.    ULONG  blank_start;            /* same as startsecs until blank           */
  273.    ULONG  user_secs;            /* modifiable timeout value            */
  274.    USHORT code;             /* IDCMP keycodes via VANILLAKEY           */
  275.    struct Screen *BScreen;        /* CUSTOMSCREEN for BReq               */
  276.    struct IntuiMessage *BRMessage;  /* BReq's IDCMP Message port               */
  277.  
  278. /*  init command line args
  279.  */
  280.    struct internal_args ia = { "31536000",                    /* timeout,     one year      */
  281.                    "180",                         /* blank,       three minutes */
  282.                    "A",                           /* defresponse, left gadget   */
  283.                    "NetBSD|AmigaOS",              /* buttons,     titles        */
  284.                    FALSE,                  /* reverse,     no reverse    */
  285.                    " ",                           /* atext,       left comment  */
  286.                    " ",                           /* btext,       right comment */
  287.                    "sys:loadbsd sys:vmunix -a" }; /* sysstring,   load NetBSD   */
  288.  
  289. /*  open libraries
  290.  */
  291.    if(!(DosBase = (struct Library *)OpenLibrary("dos.library",0))) {
  292.       error("BReq: can't open dos.library\n");
  293.       exit(1);
  294.    }
  295.    if(!(IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library",0))) {
  296.       error("BReq: can't open intuition.library\n");
  297.       exit(1);
  298.    }
  299.    if(!(GfxBase = (struct GfxBase *)OpenLibrary("graphics.library",0))) {
  300.       error("BReq: can't open graphics.library\n");
  301.       exit(1);
  302.    }
  303.  
  304. /*  get user preferences:  use AmigaOS RDArgs rather than C standard.
  305.  */
  306.    (struct RDArgs *)ReadArgs("TIMEOUT/K,BLANK/K,DEFAULT/K,BUTTONS/K,REVERSE/S,ATEXT/K,BTEXT/K,SYSSTRING/K", (long *)&ia, NULL);
  307.  
  308. /*  get current system seconds
  309.  */
  310.    CurrentTime(&startsecs,NULL);
  311.  
  312. /*  copy starting seconds for blanker
  313.  */
  314.    blank_start = startsecs;
  315.  
  316.  
  317. /*  check for user specified default response: compare the character (string)
  318.  *  from the command line with the acceptable values.  if failure then use
  319.  *  internal default value.
  320.  */
  321.    if((strcmp(ia.defresponse,"A") == 0) || (strcmp(ia.defresponse,"a") == 0))
  322.       action = SYSCALL;
  323.    else if((strcmp(ia.defresponse,"B") == 0) || (strcmp(ia.defresponse,"b") == 0))
  324.       action = NOACTION;
  325.    else {
  326.       error("BReq: invalid DEFAULT \"");
  327.       error((char *)ia.defresponse);
  328.       error("\", using \"A\".\n");
  329.       action = SYSCALL;
  330.    }
  331.  
  332. /*  get timeout value: for some reason the intuitive way of doing this direct
  333.  *  from the command line didn't work so using atoi() (clib) to do the job.
  334.  */
  335.    user_secs  = atoi(ia.timeout);
  336.    blanksecs  = atoi(ia.blank);
  337.  
  338. /*  make gadget titles.  use routines from clib (defined in string.h) to get
  339.  *  individual gadgets from one string.  (using "|" for compatibility to 1.12)
  340.  */
  341.    if(strstr(ia.buttons,"|") == NULL)
  342.       error("BReq: \"|\" separater missing, using default gadgets.\n");
  343.    else {
  344.       BRLeftText.IText    = strtok(ia.buttons,"|");
  345.       buttonstr     = strchr(ia.buttons,'|');
  346.       BRRightText.IText = strtok(buttonstr,NULL);
  347.    }
  348.  
  349. /*  make gadget comments
  350.  */
  351.    BRLeftCommentText.IText  = ia.atext;
  352.    BRRightCommentText.IText = ia.btext;
  353.  
  354. /*  check for PAL screen mode and set screen, window and
  355.  *  gadgets accordingly.
  356.  */
  357.    if(GfxBase->DisplayFlags & PAL) {
  358.       NScreen.Height     = PALHEIGHT;
  359.       NWin.Height     = PALHEIGHT;
  360.       BRLeftGad.TopEdge  = PALGADTOP + 157;
  361.       BRRightGad.TopEdge = PALGADTOP + 210;
  362.       hmode = PALGADTOP;
  363.    }
  364.  
  365. /*  do gui:  open the screen then the window on which the gadgets are drawn.
  366.  *  use IDCMP to count passing seconds and get user response, if any.  set
  367.  *  action value based on user response or execute default on timeout.
  368.  */
  369.   if(!(BScreen = OpenScreen(&NScreen))) {
  370.      error("BReq: can't open screen\n");
  371.      exit(2);
  372.   }
  373.  
  374. /*  if user wants reverse screen just switch bits.  for white, 11 was used
  375.  *  instead of 15 (brightest) since 15 was too bright.
  376.  */
  377.    if(ia.reverse) {
  378.       SetRGB4(&BScreen->ViewPort,1,11,11,11);
  379.       SetRGB4(&BScreen->ViewPort,0,0,0,0);
  380.    }
  381.  
  382. /*  set the window's screen to the CUSTOMSCREEN
  383.  */
  384.    NWin.Screen = BScreen;
  385.  
  386. /*  open BReq's window
  387.  */
  388.    if(!(BRWin = (struct Window *)OpenWindow(&NWin))) {
  389.       error("BReq: can't open window\n");
  390.       CloseLibrary((struct Library *)IntuitionBase);
  391.       CloseLibrary((struct Library *)DosBase);
  392.       CloseLibrary((struct Library *)GfxBase);
  393.       CloseScreen(BScreen);
  394.       exit(3);
  395.    }
  396.  
  397. /*  write button comments to window
  398.  */
  399.    PrintIText(BRWin->RPort,&BRLeftCommentText,150,hmode + 157);
  400.    PrintIText(BRWin->RPort,&BRRightCommentText,150,hmode + 210);
  401.  
  402. /*  event loop:  Wait() for message signals and take action based on Class
  403.  *  of IDCMP message.
  404.  */
  405.    while(!(user_response)) {                     /* wait for response or timeout */
  406.       Wait( 1 << BRWin->UserPort->mp_SigBit );   /* listen for IDCMP messages    */
  407.       while(BRMessage = (struct IntuiMessage *)GetMsg(BRWin->UserPort)) {
  408.       if(BRMessage) {
  409.      class     = BRMessage->Class;         /* IDCMP response flag        */
  410.      address = BRMessage->IAddress;      /* response address           */
  411.      seconds = BRMessage->Seconds;         /* keep track of passing time */
  412.      code     = BRMessage->Code;         /* key code here           */
  413.      ReplyMsg((struct Message *)BRMessage);  /* don't keep Intui waiting   */
  414.      switch(class) {                         /* what sort of response?     */
  415.         case INTUITICKS:             /* timer blank and timeout    */
  416.            if(((int)(seconds - startsecs)) >= user_secs) {
  417.           user_response = TRUE;      /* user response not before timeout */
  418.            }
  419.            else if((((int)(seconds - blank_start)) >= blanksecs)   /* compare to blank delay  */
  420.             && (BLANKDONE == FALSE)) {                     /* and if screen not blank */
  421.           SetRGB4(&BScreen->ViewPort,1,0,0,0);                 /* blank background */
  422.           SetRGB4(&BScreen->ViewPort,0,0,0,0);                 /* blank text       */
  423.           SetPointer(BRWin,BlankPoint,0,0,0,0);                /* blank pointer    */
  424.           BLANKDONE = TRUE;                       /* screen is blank  */
  425.            }
  426.            break;
  427.         case GADGETDOWN:             /* user pressed gadget */
  428.            user_response = TRUE;
  429.            if(address == (APTR)&BRLeftGad)   /* get which gadget    */
  430.          action = SYSCALL;
  431.            else
  432.          action = NOACTION;
  433.            break;
  434.         case MOUSEMOVE: case MOUSEBUTTONS:     /* user used mouse */
  435.            if(BLANKDONE) {                   /* if screen blank then unblank */
  436.           if(ia.reverse)
  437.              SetRGB4(&BScreen->ViewPort,1,11,11,11);
  438.           else {
  439.              SetRGB4(&BScreen->ViewPort,1,0,0,0);
  440.              SetRGB4(&BScreen->ViewPort,0,8,9,9);
  441.           }
  442.           ClearPointer(BRWin);           /* and bring back pointer */
  443.            }
  444.            BLANKDONE = FALSE;         /* screen no longer blank */
  445.            blank_start = (int)seconds;       /* reset blanker timer */
  446.            break;
  447.         case VANILLAKEY:             /* user hit keys */
  448.            if((code == 'v') || (code == 'y')) {
  449.           user_response = TRUE;      /* user wants left gadget */
  450.           action = SYSCALL;
  451.            }
  452.            else if((code == 'b') || (code == 'n')) {
  453.           user_response = TRUE;      /* user wants right gadget */
  454.           action = NOACTION;
  455.            }
  456.            else if(code == 13)               /* ASCII RETURN */
  457.           user_response = TRUE;      /* user wants default */
  458.            else if(code == 27) {             /* ASCII ESCape */
  459.           user_response = TRUE;      /* user wants opposite to default */
  460.           if(action == NOACTION)
  461.              action = SYSCALL;
  462.           else
  463.              action = NOACTION;
  464.            }
  465.            if(BLANKDONE) {                   /* if blank, unblank */
  466.           if(ia.reverse) {
  467.              SetRGB4(&BScreen->ViewPort,1,11,11,11);
  468.           }
  469.           else {
  470.              SetRGB4(&BScreen->ViewPort,1,0,0,0);
  471.              SetRGB4(&BScreen->ViewPort,0,8,9,9);
  472.           }
  473.           ClearPointer(BRWin);           /* and bring back pointer */
  474.            }
  475.            BLANKDONE = FALSE;         /* screen should no longer be blank */
  476.            blank_start = (int)seconds;       /* reset blanker timer */
  477.            break;
  478.         }
  479.      }
  480.       }
  481.    }
  482.  
  483. /*  take action either on user gadget selection or timeout default
  484.  */
  485.    switch(action) {
  486.       case 1:            /* execute system string */
  487.      system(ia.sysstring);
  488.      break;
  489.       case 2:            /* do nothing */
  490.      break;
  491.    }
  492.  
  493. /*  clean up and return to calling environment
  494.  */
  495.    CloseWindow(BRWin);
  496.    CloseScreen(BScreen);
  497.    CloseLibrary((struct Library *)IntuitionBase);
  498.    CloseLibrary((struct Library *)DosBase);
  499.    CloseLibrary((struct Library *)GfxBase);
  500.    return;
  501. }
  502.  
  503.