home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / new / util / cdity / yak / src / main.c < prev    next >
C/C++ Source or Header  |  1994-10-04  |  14KB  |  501 lines
  1. /*
  2.  * Yak version 1.58
  3.  * ----------------
  4.  * [Yak == Yet Another K(?)ommodity
  5.  *
  6.  * There seems to be a profusion of commodities doing this or that.
  7.  * Heres mine, to do what I want it to:
  8.  *
  9.  *      AutoActivate windows (SunMouse)
  10.  *      ClickToFront, ClickToBack, ScreenCycle
  11.  *      Close/Zip/Shrink/Zoom/Turn a window via keyboard.
  12.  *      Bring up a palette on front screen.
  13.  *      Insert date into read-stream.
  14.  *      Produce key-click (like my keyclick program).
  15.  *      Some other things...
  16.  *
  17.  * Martin W. Scott & Gaël Marziou, 8/93.
  18.  */
  19. #include <exec/types.h>
  20. #include <exec/libraries.h>
  21. #include <exec/memory.h>
  22. #include <devices/inputevent.h>
  23. #include <dos/dos.h>
  24. #include <dos/dostags.h>
  25. #include <graphics/displayinfo.h>
  26. #include <libraries/commodities.h>
  27. #include <libraries/reqtools.h>
  28. #include <libraries/locale.h>
  29. #include <intuition/intuitionbase.h>
  30. #include <clib/alib_protos.h>
  31. #include <clib/exec_protos.h>
  32. #include <clib/dos_protos.h>
  33. #include <clib/graphics_protos.h>
  34. #include <clib/commodities_protos.h>
  35. #include <clib/intuition_protos.h>
  36. #include <clib/locale_protos.h>
  37. #include <clib/reqtools_protos.h>
  38.  
  39. #ifdef __SASC
  40. #  include <pragmas/exec_pragmas.h>
  41. #  include <pragmas/dos_pragmas.h>
  42. #  include <pragmas/graphics_pragmas.h>
  43. #  include <pragmas/commodities_pragmas.h>
  44. #  include <pragmas/intuition_pragmas.h>
  45. #  include <pragmas/locale_pragmas.h>
  46. #  include <pragmas/reqtools.h>
  47. #else
  48. #  include <proto/exec.h>
  49. #  include <proto/dos.h>
  50. #  include <proto/graphics.h>
  51. #  include <proto/commodities.h>
  52. #  include <proto/intuition.h>
  53. #  include <proto/locale.h>
  54. #  include <proto/reqtools.h>
  55. extern struct Library *DOSBase;
  56. #endif
  57.  
  58.  
  59. #include <string.h>
  60. #include <stdarg.h>
  61.  
  62. #include "code.h"
  63. #include "yak.h"
  64. #include "hotkey_types.h"
  65. #include "beep.h"
  66. #include "icon.h"
  67. #include "version.h"
  68.  
  69. #define CATCOMP_BLOCK
  70. #define CATCOMP_NUMBERS
  71. #include "locale/yak_locale_strings.h"
  72. #undef CATCOMP_BLOCK
  73.  
  74. #include "WB2CLI.h"     /* we'll be a shell process */
  75. #define DEF_CURRENTDIR  "SYS:"
  76.  
  77.  
  78.  
  79. /* local prototypes for main.c */
  80. static void CloseResources(void);
  81. static BOOL OpenResources(void);
  82. static void FreePatterns(void);
  83. static LONG ProcessMsg(void);
  84. void MAIN(void);
  85.  
  86. LONG (*HandleIDCMP)(void);
  87.  
  88. extern struct WBStartup *WBMsg;
  89. /*
  90.  *  libraries opened by startup code; basepointers needed by function pragmas
  91.  */
  92. extern struct Library *SysBase, *DOSBase;
  93.  
  94. /* global data - library bases and the like */
  95. struct Library  *CxBase, *IconBase,
  96.     *GadToolsBase, *LayersBase,
  97.     *WorkbenchBase, *LocaleBase,
  98.     *GfxBase, *IntuitionBase,
  99.     *KeymapBase;
  100. struct Locale *locale;
  101. struct Catalog *Catalog;
  102. struct MsgPort *broker_mp;
  103. CxObj *broker;
  104. char *PopKeyStr;
  105. #define POPKEY_EVENT    1L      /* cannot clash with YHK event... */
  106.  
  107. static const char *versionstr=VERSION_STR;
  108.  
  109. struct NewBroker newbroker = {
  110.     NB_VERSION,
  111.     "Yak",                                              /* string to identify this broker */
  112.     VERSION_BROKER,
  113.     "Multi-purpose commodity",
  114.     NBU_UNIQUE | NBU_NOTIFY,    /* Don't want any new commodities
  115.                                  * starting with this name.  If someone
  116.                                  * tries it, let me know */
  117.     COF_SHOW_HIDE
  118.     };
  119.  
  120. ULONG           wndsigflag;             /* here for overlay purposes */
  121. ULONG           cxsigflag;
  122. ULONG           invariantsigflag;
  123. BYTE            palette_count;          /* how many palettes are open */
  124.  
  125.  
  126. /* from handler.c */
  127. extern ULONG    clicksigflag, intuiopsigflag, blankscreensigflag;
  128. extern void (*intui_routine)(APTR);     /* for intui_op's */
  129. extern APTR intui_parameter;
  130.   
  131. /* from icon.c */
  132. extern ULONG    appsigflag;
  133.  
  134. /* close what we opened */
  135. static void
  136.     CloseResources()
  137. {
  138.     /* NULL pointers are valide so don't waste time to test them */
  139.     CloseLibrary(IntuitionBase);
  140.     CloseLibrary(GfxBase);
  141.     CloseLibrary(CxBase);
  142.     CloseLibrary(LayersBase);
  143.     CloseLibrary(IconBase);
  144.     CloseLibrary(GadToolsBase);
  145.     CloseLibrary(WorkbenchBase);
  146.     CloseLibrary(KeymapBase);
  147.     if (LocaleBase)
  148.     {
  149.         CloseCatalog (Catalog); 
  150.         CloseLocale(locale);
  151.         CloseLibrary(LocaleBase);
  152.     }
  153. }
  154.  
  155. /* open libraries, devices that we need */
  156. static BOOL
  157.     OpenResources(void)
  158. {
  159.     if ((IntuitionBase = OpenLibrary("intuition.library", 37L)) &&
  160.         (GfxBase       = OpenLibrary("graphics.library", 37L)) &&
  161.         (CxBase        = OpenLibrary("commodities.library", 37L)) &&
  162.         (LayersBase    = OpenLibrary("layers.library", 37L)) &&
  163.         (IconBase      = OpenLibrary("icon.library", 37L)) &&
  164.         (GadToolsBase  = OpenLibrary("gadtools.library", 37L)) &&
  165.         (WorkbenchBase = OpenLibrary("workbench.library", 37L)) &&
  166.         (KeymapBase    = OpenLibrary("keymap.library", 37L)))
  167.     {
  168.         return TRUE;
  169.     }
  170.     CloseResources();
  171.     return FALSE;
  172. }
  173.  
  174.  
  175. /* open locale library and catalog */
  176. void
  177.     OpenLocaleStuff(char *language)
  178. {
  179.     
  180.     if (LocaleBase =(struct LocaleBase *)OpenLibrary("locale.library", 38L))
  181.     {
  182.         if (!(locale = OpenLocale(NULL)))
  183.         {       
  184.             PostError("No locale set!");
  185.             CloseLibrary(LocaleBase);
  186.             LocaleBase = NULL;
  187.         }
  188.         Catalog = OpenCatalog(  locale, "yak.catalog", 
  189.                               OC_BuiltInLanguage, "english", 
  190.                               OC_Language, language,        
  191.                               OC_Version, 15L, 
  192.                               TAG_DONE );
  193.     }       
  194. }
  195.  
  196.  
  197. /* slighlty modified version of GetString() generated by catcomp */
  198.  
  199. char 
  200.     *getString(ULONG MsgID)
  201. {
  202.     LONG   *l;
  203.     UWORD  *w;
  204.     char *builtIn;
  205.     
  206.     l = (LONG *)CatCompBlock;
  207.     
  208.     while (*l != MsgID )
  209.     {
  210.         w = (UWORD *)((ULONG)l + 4);
  211.         l = (LONG *)((ULONG)l + (ULONG)*w + 6);
  212.     }
  213.     builtIn = (char *)((ULONG)l + 6);
  214.     if (LocaleBase)
  215.         return (GetCatalogStr (Catalog, MsgID, builtIn));
  216.     return(builtIn);
  217. }
  218.  
  219. /* simple requester with args */
  220. void
  221.     PostError(char *body, ... )
  222. {
  223.     struct EasyStruct es;
  224.     va_list args;
  225.     
  226.     if (!IntuitionBase)
  227.     {
  228.         Write(Output(), "Need AmigaDos 2.0+\n", -1);
  229.         return;
  230.     }
  231.     
  232.     /* setup the argument array */
  233.     va_start( args, body );
  234.     
  235.     /* initialise the structure */
  236.     es.es_StructSize = sizeof(struct EasyStruct);
  237.     es.es_Flags = 0L;
  238.     es.es_Title = getString(Error_Requester_Title);
  239.     es.es_TextFormat = body;
  240.     es.es_GadgetFormat = "OK";
  241.     
  242.     /* display the requester */
  243.     EasyRequestArgs(NULL, &es, NULL, args);
  244.     
  245.     /* free the arguments */
  246.     va_end( args );
  247. }
  248.  
  249. /* parse pattern, report errors */
  250. __regargs BOOL
  251.     InitPattern(char *newpatstr, UWORD n)
  252. {
  253.     char *patstr = newpatstr ? newpatstr : patterns[n].patstr;
  254.     char *pat;
  255.     LONG len;
  256.     
  257.     if (pat = AllocVec(len = strlen(patstr)*3+10, MEMF_CLEAR))
  258.     {
  259.         if (ParsePattern(patstr, pat, len) != -1)
  260.         {
  261.             if (newpatstr) strncpy(patterns[n].patstr, newpatstr, PATLEN);
  262.             if (patterns[n].pat) FreeVec(patterns[n].pat);
  263.             patterns[n].pat = pat;
  264.             return TRUE;
  265.         }
  266.         
  267.         PostError("%s:\n\"%s\"", getString(Parsing_Pattern_ERR), patstr);
  268.         FreeVec(pat);
  269.     }
  270.     else PostError(getString(Allocation_ERR));
  271.     return FALSE;
  272. }
  273.  
  274. static void
  275.     FreePatterns()
  276. {
  277.     UWORD i;
  278.     
  279.     for (i = 0; i < NUM_PATTERNS; i++)
  280.         if (patterns[i].pat) FreeVec(patterns[i].pat);
  281. }
  282.  
  283.  
  284. #ifdef _DCC
  285. void _waitwbmsg(void);
  286. static void
  287.     uncalled(void)
  288. {
  289.     _waitwbmsg();
  290. }
  291. #endif
  292.  
  293.  
  294.  
  295. void 
  296.     MAIN()             /* Yak: multi-function commodity */
  297. {
  298.     BPTR    newdir = NULL, olddir;
  299.     
  300.     if (OpenResources())
  301.     {
  302.         if (broker_mp = CreateMsgPort())
  303.         {
  304.             newbroker.nb_Port = broker_mp;
  305.             cxsigflag = 1L << broker_mp->mp_SigBit;
  306.             
  307.             /* process tool-types */
  308.             GetOurIcon(WBMsg);
  309.             newbroker.nb_Pri = (BYTE)TTInt("CX_PRIORITY", 0);
  310.             
  311.             if (WBMsg)
  312.             {
  313.                 if (newdir = Lock(DEF_CURRENTDIR, ACCESS_READ))
  314.                     olddir = CurrentDir(newdir);
  315.                 WB2CLI(WBMsg,4000,(struct DosLibrary *)DOSBase); /* g