workbench/tools/commodities/Exchange.c

   1 /*
   2     Copyright © 1995-2009, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Exchange -- controls commodities.
   6  */
   7
   8 /******************************************************************************
   9
  10     NAME
  11
  12         Exchange
  13
  14     SYNOPSIS
  15
  16         CX_PRIORITY/K/N,CX_POPUP/K/S,CX_POPKEY/K
  17
  18     LOCATION
  19
  20         Workbench:Tools/Commodities
  21
  22     FUNCTION
  23
  24         Manages the commodities in the system
  25
  26     INPUTS
  27
  28         CX_PRIORITY  --  Priority of the Exchange broker
  29         CX_POPUP     --  Appear at startup
  30         CX_POPKEY    --  Hotkey combination for Exchange
  31
  32     RESULT
  33
  34     NOTES
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41
  42     INTERNALS
  43
  44 ******************************************************************************/
  45
  46 #define AROS_ALMOST_COMPATIBLE
  47 #define MUIMASTER_YES_INLINE_STDARG
  48
  49 #include <stdio.h>
  50 #include <stdlib.h>
  51 #include <string.h>
  52
  53 #ifndef __AROS__
  54 #include <cxintern.h>
  55 #endif
  56
  57 //#define DEBUG 1
  58 #include <aros/debug.h>
  59 #include <aros/asmcall.h>
  60 #include <aros/symbolsets.h>
  61 #include <libraries/iffparse.h>
  62 #include <libraries/mui.h>
  63 #include <proto/muimaster.h>
  64 #include <proto/locale.h>
  65 #include <proto/intuition.h>
  66 #include <proto/exec.h>
  67 #include <proto/gadtools.h>
  68 #include <proto/dos.h>
  69 #include <proto/alib.h>
  70 #include <proto/commodities.h>
  71 #include <proto/utility.h>
  72
  73 #define CATCOMP_ARRAY
  74 #include "strings.h"
  75
  76 #ifdef __AROS__
  77 #define CATALOG_NAME     "System/Tools/Commodities.catalog"
  78 #else
  79 #define CATALOG_NAME     "System/Tools/Exchange.catalog"
  80 #endif
  81 #define CATALOG_VERSION  2
  82
  83 TEXT version[] = "$VER: Exchange 1.1 (08.01.2009)";
  84
  85 #define ARG_TEMPLATE "CX_PRIORITY/N/K,CX_POPKEY/K,CX_POPUP/S"
  86 #define DEF_POPKEY "ctrl alt h"
  87
  88 enum {
  89     ARG_CXPRI,
  90     ARG_CXPOPKEY,
  91     ARG_CXPOPUP,
  92     NUM_ARGS
  93 };
  94
  95 static Object *app, *wnd, *listgad, *textgad1, *textgad2, *showgad, *hidegad, *cyclegad, *killgad;
  96 static CONST_STRPTR cyclestrings[3];
  97 static struct Catalog *catalog;
  98 static UBYTE s[257];
  99 static struct List brokerList;
 100
 101 static struct Hook broker_hook;
 102 static struct Hook list_disp_hook;
 103 static struct Hook list_select_hook;
 104 static struct Hook inform_broker_hook;
 105
 106 static LONG cx_pri;
 107 static char *cx_popkey;
 108 static BOOL cx_popup = FALSE;
 109 static CxObj *broker;
 110 static struct MsgPort *brokermp;
 111 static struct Task *maintask;
 112
 113 static void Cleanup(CONST_STRPTR txt);
 114 static void GetArguments(int argc, char **argv);
 115 static void HandleAll(void);
 116 static void InitMenus(void);
 117 static VOID Locale_Deinitialize(VOID);
 118 static int Locale_Initialize(VOID);
 119 static void MakeGUI(void);
 120 static void showSimpleMessage(CONST_STRPTR msgString);
 121 static void update_list(void);
 122 static CONST_STRPTR _(ULONG id);
 123
 124 /*********************************************************************************************/
 125
 126 static CONST_STRPTR _(ULONG id)
 127 {
 128     if (LocaleBase != NULL && catalog != NULL)
 129     {
 130         return GetCatalogStr(catalog, id, CatCompArray[id].cca_Str);
 131     }
 132     else
 133     {
 134         return CatCompArray[id].cca_Str;
 135     }
 136 }
 137
 138 #define __(id) ((IPTR) _(id))   /* Get a message, as an IPTR */
 139
 140 /*********************************************************************************************/
 141
 142 static int Locale_Initialize(VOID)
 143 {
 144     if (LocaleBase != NULL)
 145     {
 146         catalog = OpenCatalog
 147             (
 148              NULL, CATALOG_NAME, OC_Version, CATALOG_VERSION, TAG_DONE
 149             );
 150     }
 151     else
 152     {
 153         catalog = NULL;
 154     }
 155 /* Note that in AROS constructors should return value opposite to the standard one.
 156    Probably it's a misdesign, but we can do nothing with it. */
 157 #ifdef __AROS__
 158     return -1;
 159 #else
 160     return 0;
 161 #endif
 162 }
 163
 164 /*********************************************************************************************/
 165
 166 static VOID Locale_Deinitialize(VOID)
 167 {
 168     if(LocaleBase != NULL && catalog != NULL) CloseCatalog(catalog);
 169 }
 170
 171 /*********************************************************************************************/
 172
 173 static void GetArguments(int argc, char **argv)
 174 {
 175     static struct RDArgs *myargs;
 176     static IPTR args[NUM_ARGS];
 177     static UBYTE **wbargs;
 178     if (argc)
 179     {
 180         if (!(myargs = ReadArgs(ARG_TEMPLATE, args, NULL)))
 181         {
 182             Fault(IoErr(), 0, s, 256);
 183             Cleanup(s);
 184         }
 185         if (args[ARG_CXPRI]) cx_pri = *(LONG*)args[ARG_CXPRI];
 186         if (args[ARG_CXPOPKEY])
 187         {
 188             cx_popkey = StrDup((char *)args[ARG_CXPOPKEY]);
 189         }
 190         else
 191         {
 192             cx_popkey = StrDup(DEF_POPKEY);
 193         }
 194         if (args[ARG_CXPOPUP]) cx_popup = TRUE;
 195         FreeArgs(myargs);
 196     }
 197     else
 198     {
 199         wbargs = ArgArrayInit(argc, (UBYTE**)argv);
 200         cx_pri = ArgInt(wbargs, "CX_PRIORITY", 0);
 201         cx_popkey = StrDup(ArgString(wbargs, "CX_POPKEY", DEF_POPKEY));
 202         if (strnicmp(ArgString(wbargs, "CX_POPUP", "NO"), "Y", 1) == 0)
 203         {
 204             cx_popup = TRUE;
 205         }
 206         ArgArrayDone();
 207     }
 208     D(bug("Exchange Arguments pri %d popkey %s popup %d\n", cx_pri, cx_popkey, cx_popup));
 209 }
 210
 211 /*********************************************************************************************/
 212
 213 static struct NewMenu nm[] =
 214 {
 215     {NM_TITLE, (STRPTR)MSG_MEN_PROJECT         },
 216      {NM_ITEM, (STRPTR)MSG_MEN_PROJECT_HIDE    },
 217      {NM_ITEM, (STRPTR)MSG_MEN_PROJECT_ICONIFY },
 218      {NM_ITEM, NM_BARLABEL                     },
 219      {NM_ITEM, (STRPTR)MSG_MEN_PROJECT_QUIT    },
 220     {NM_END                                    }
 221 };
 222
 223 /*********************************************************************************************/
 224
 225 static void InitMenus(void)
 226 {
 227     struct NewMenu *actnm = nm;
 228
 229     for(actnm = nm; actnm->nm_Type != NM_END; actnm++)
 230     {
 231         if (actnm->nm_Label != NM_BARLABEL)
 232         {
 233             ULONG  id = (ULONG)actnm->nm_Label;
 234             CONST_STRPTR str = _(id);
 235
 236             if (actnm->nm_Type == NM_TITLE)
 237             {
 238                 actnm->nm_Label = str;
 239             } else {
 240                 actnm->nm_Label = str + 2;
 241                 if (str[0] != ' ') actnm->nm_CommKey = str;
 242             }
 243             actnm->nm_UserData = (APTR)id;
 244
 245         } /* if (actnm->nm_Label != NM_BARLABEL) */
 246
 247     } /* for(actnm = nm; nm->nm_Type != NM_END; nm++) */
 248 }
 249
 250 /*********************************************************************************************/
 251
 252 static void showSimpleMessage(CONST_STRPTR msgString)
 253 {
 254     struct EasyStruct easyStruct;
 255
 256     easyStruct.es_StructSize    = sizeof(easyStruct);
 257     easyStruct.es_Flags         = 0;
 258     easyStruct.es_Title         = _(MSG_EXCHANGE_CXNAME);
 259     easyStruct.es_TextFormat    = msgString;
 260     easyStruct.es_GadgetFormat  = _(MSG_OK);
 261
 262     if (IntuitionBase != NULL && !Cli() )
 263     {
 264         EasyRequestArgs(NULL, &easyStruct, NULL, NULL);
 265     }
 266     else
 267     {
 268         PutStr(msgString);
 269     }
 270 }
 271
 272 /*********************************************************************************************/
 273
 274 static void update_list(void)
 275 {
 276     struct BrokerCopy *node;
 277     CopyBrokerList(&brokerList);
 278
 279     nnset(textgad1, MUIA_Text_Contents, NULL);
 280     nnset(textgad2, MUIA_Text_Contents, NULL);
 281
 282     set(listgad, MUIA_List_Quiet, TRUE);
 283     DoMethod(listgad, MUIM_List_Clear);
 284     ForeachNode(&brokerList, node)
 285     {
 286         D(bug("Exchange: Brokernode %s\n", node->bc_Name));
 287         DoMethod(listgad, MUIM_List_InsertSingle, node, MUIV_List_Insert_Bottom);
 288     }
 289     set(listgad, MUIA_List_Quiet, FALSE);
 290 }
 291
 292 /*********************************************************************************************/
 293
 294 AROS_UFH3(void, broker_func,
 295     AROS_UFHA(struct Hook *, h,      A0),
 296     AROS_UFHA(Object *     , object, A2),
 297     AROS_UFHA(CxMsg *      , msg,    A1))
 298 {
 299     AROS_USERFUNC_INIT
 300
 301     D(bug("Exchange: Broker hook called\n"));
 302     if (CxMsgType(msg) == CXM_COMMAND)
 303     {
 304         if (CxMsgID(msg) == CXCMD_APPEAR)
 305         {
 306             //This opens window if application was started with cx_popup=no
 307             set(app, MUIA_Application_Iconified, FALSE);
 308         }
 309         else if (CxMsgID(msg) == CXCMD_LIST_CHG)
 310         {
 311             update_list();
 312         }
 313     }
 314     AROS_USERFUNC_EXIT
 315 }
 316
 317 /*********************************************************************************************/
 318
 319 AROS_UFH3(void, list_display_func,
 320     AROS_UFHA(struct Hook *      , h,     A0),
 321     AROS_UFHA(char **            , array, A2),
 322     AROS_UFHA(struct BrokerCopy *, node,  A1))
 323 {
 324     AROS_USERFUNC_INIT
 325
 326     *array = node->bc_Name;
 327
 328     AROS_USERFUNC_EXIT
 329 }
 330
 331 /*********************************************************************************************/
 332
 333 AROS_UFH3(void, list_select_func,
 334     AROS_UFHA(struct Hook *, h,      A0),
 335     AROS_UFHA(Object *     , object, A2),
 336     AROS_UFHA(APTR         , msg,    A1))
 337 {
 338     AROS_USERFUNC_INIT
 339
 340     struct BrokerCopy *bc;
 341     DoMethod(listgad, MUIM_List_GetEntry, MUIV_List_GetEntry_Active, (IPTR)&bc);
 342     if (bc)
 343     {
 344         BOOL showHide = (bc->bc_Flags & COF_SHOW_HIDE) == 0;
 345         BOOL active = (bc->bc_Flags & COF_ACTIVE) != 0;
 346         nnset(textgad1, MUIA_Text_Contents, bc->bc_Title);
 347         nnset(textgad2, MUIA_Text_Contents, bc->bc_Descr);
 348         nnset(hidegad, MUIA_Disabled, showHide);
 349         nnset(showgad, MUIA_Disabled, showHide);
 350         nnset(cyclegad, MUIA_Cycle_Active, active ? 0 : 1);
 351     }
 352
 353     AROS_USERFUNC_EXIT
 354 }
 355
 356 /*********************************************************************************************/
 357
 358 AROS_UFH3(void, inform_broker_func,
 359     AROS_UFHA(struct Hook *, h,        A0),
 360     AROS_UFHA(Object*      , object,   A2),
 361     AROS_UFHA(LONG *       , command,  A1))
 362 {
 363     AROS_USERFUNC_INIT
 364
 365     struct BrokerCopy *bc;
 366     DoMethod(listgad, MUIM_List_GetEntry, MUIV_List_GetEntry_Active, (IPTR) &bc);
 367     if (bc)
 368     {
 369         D(bug("Exchange: Broker inform %s\n", bc->bc_Node.ln_Name));
 370         BrokerCommand(bc->bc_Node.ln_Name, *command);
 371     }
 372
 373     AROS_USERFUNC_EXIT
 374 }
 375
 376 /*********************************************************************************************/
 377
 378 static void MakeGUI(void)
 379 {
 380     Object *menu;
 381     static TEXT wintitle[100];
 382     CxObj *popfilter;
 383
 384     cyclestrings[0] = _(MSG_EXCHANGE_CYCLE_ACTIVE);
 385     cyclestrings[1] = _(MSG_EXCHANGE_CYCLE_INACTIVE);
 386     menu = MUI_MakeObject(MUIO_MenustripNM, &nm, 0);
 387
 388     broker_hook.h_Entry = (HOOKFUNC)AROS_ASMSYMNAME(broker_func);
 389     list_disp_hook.h_Entry = (HOOKFUNC)AROS_ASMSYMNAME(list_display_func);
 390     list_select_hook.h_Entry = (HOOKFUNC)AROS_ASMSYMNAME(list_select_func);
 391     inform_broker_hook.h_Entry = (HOOKFUNC)AROS_ASMSYMNAME(inform_broker_func);
 392
 393     snprintf(wintitle, sizeof(wintitle), _(MSG_EXCHANGE_WINTITLE), cx_popkey);
 394
 395     app = (Object *)ApplicationObject,
 396         MUIA_Application_Title, __(MSG_EXCHANGE_CXNAME),
 397         MUIA_Application_Version, (IPTR)version,
 398         MUIA_Application_Copyright, (IPTR)"Copyright  © 1995-2009, The AROS Development TEAM",
 399         MUIA_Application_Author, (IPTR)"The AROS Development Team",
 400         MUIA_Application_Description, __(MSG_EXCHANGE_CXDESCR),
 401         MUIA_Application_BrokerPri, cx_pri,
 402         MUIA_Application_BrokerHook, (IPTR)&broker_hook,
 403         MUIA_Application_Base, (IPTR)"EXCHANGE",
 404         MUIA_Application_SingleTask, TRUE,
 405         MUIA_Application_Menustrip, (IPTR)menu,
 406         SubWindow, (IPTR)(wnd = (Object *)WindowObject,
 407             MUIA_Window_Title, (IPTR)wintitle,
 408             MUIA_Window_ID, MAKE_ID('E', 'X', 'C', 'H'),
 409             WindowContents, (IPTR)(HGroup,
 410                 Child, (IPTR)(VGroup,
 411                     GroupFrameT(_(MSG_EXCHANGE_LISTVIEW)),
 412                     Child, (IPTR)(ListviewObject,
 413                         MUIA_Listview_List, (IPTR)(listgad = (Object *)ListObject,
 414                             InputListFrame,
 415                             MUIA_List_DisplayHook, (IPTR)&list_disp_hook,
 416                             MUIA_CycleChain, 1,
 417                         End),
 418                     End),
 419                 End),
 420                 Child, (IPTR)(BalanceObject, MUIA_CycleChain, 1, End),
 421                 Child, (IPTR)(VGroup,
 422                     MUIA_HorizWeight, 150,
 423                     Child, (IPTR)(VGroup,
 424                         GroupFrameT(_(MSG_EXCHANGE_INFO)),
 425                         Child, (IPTR)(textgad1 = (Object *)TextObject, TextFrame,
 426                                 MUIA_Background, MUII_TextBack, End),
 427                         Child, (IPTR)(textgad2 = (Object *)TextObject, TextFrame,
 428                                 MUIA_Background, MUII_TextBack, End),
 429                     End),
 430                     Child, (IPTR)HVSpace,
 431                     Child, (IPTR)(ColGroup(2),
 432                         MUIA_Group_SameSize, TRUE,
 433                         Child, (IPTR)(hidegad = SimpleButton(_(MSG_EXCHANGE_GAD_HIDE))),
 434                         Child, (IPTR)(showgad = SimpleButton(_(MSG_EXCHANGE_GAD_SHOW))),
 435                         Child, (IPTR)(cyclegad = MUI_MakeObject(MUIO_Cycle, NULL, cyclestrings)),
 436                         Child, (IPTR)(killgad = SimpleButton(_(MSG_EXCHANGE_GAD_REMOVE))),
 437                     End),
 438                 End),
 439             End),
 440         End),
 441     End;
 442
 443     if (! app)
 444         Cleanup(NULL); // Propably double start
 445
 446     // enable hotkey
 447     maintask = FindTask(NULL);
 448     get(app, MUIA_Application_Broker, &broker);
 449     get(app, MUIA_Application_BrokerPort, &brokermp);
 450     if ( ! broker || ! brokermp)
 451         Cleanup(_(MSG_CANT_CREATE_BROKER));
 452
 453     popfilter = CxFilter(cx_popkey);
 454     if (popfilter)
 455     {
 456         CxObj *popsig = CxSignal(maintask, SIGBREAKB_CTRL_F);
 457         if (popsig)
 458         {
 459             CxObj *trans;
 460             AttachCxObj(popfilter, popsig);
 461             trans = CxTranslate(NULL);
 462             if (trans) AttachCxObj(popsig, trans);
 463         }
 464         AttachCxObj(broker, popfilter);
 465     }
 466
 467     // initial entry of brokers to listgadget
 468     update_list();
 469
 470     DoMethod(wnd, MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
 471         (IPTR)app, 3, MUIM_Set, MUIA_Application_Iconified, TRUE);
 472
 473     DoMethod(app, MUIM_Notify, MUIA_Application_DoubleStart, TRUE,
 474         (IPTR)app, 3, MUIM_Set, MUIA_Application_Iconified, FALSE);
 475
 476     // Open the window when app isn't iconified
 477     DoMethod(app, MUIM_Notify, MUIA_Application_Iconified, FALSE,
 478         (IPTR)wnd, 3, MUIM_Set, MUIA_Window_Open, TRUE);
 479
 480     DoMethod(listgad, MUIM_Notify, MUIA_List_Active, MUIV_EveryTime,
 481         (IPTR)listgad, 2, MUIM_CallHook, (IPTR)&list_select_hook);
 482
 483     DoMethod(cyclegad, MUIM_Notify, MUIA_Cycle_Active, 0 /* Enable */,
 484         (IPTR)app, 3, MUIM_CallHook, (IPTR)&inform_broker_hook, CXCMD_ENABLE);
 485
 486     DoMethod(cyclegad, MUIM_Notify, MUIA_Cycle_Active, 1 /* Disable */,
 487         (IPTR)app, 3, MUIM_CallHook, (IPTR)&inform_broker_hook, CXCMD_DISABLE);
 488
 489     DoMethod(hidegad, MUIM_Notify, MUIA_Pressed, FALSE,
 490         (IPTR)app, 3, MUIM_CallHook, (IPTR)&inform_broker_hook, CXCMD_DISAPPEAR);
 491
 492     DoMethod(showgad, MUIM_Notify, MUIA_Pressed, FALSE,
 493         (IPTR)app, 3, MUIM_CallHook, (IPTR)&inform_broker_hook, CXCMD_APPEAR);
 494
 495     DoMethod(killgad, MUIM_Notify, MUIA_Pressed, FALSE,
 496         (IPTR)app, 3, MUIM_CallHook, (IPTR)&inform_broker_hook, CXCMD_KILL);
 497
 498     DoMethod(wnd, MUIM_Notify, MUIA_Window_MenuAction, MSG_MEN_PROJECT_QUIT,
 499         (IPTR)app, 2, MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit);
 500
 501     DoMethod(wnd, MUIM_Notify, MUIA_Window_MenuAction, MSG_MEN_PROJECT_HIDE,
 502         (IPTR)app, 3, MUIM_Set, MUIA_Application_Iconified, TRUE);
 503
 504     DoMethod(wnd, MUIM_Notify, MUIA_Window_MenuAction, MSG_MEN_PROJECT_ICONIFY,
 505         (IPTR)app, 3, MUIM_Set, MUIA_Application_Iconified, TRUE);
 506
 507 }
 508
 509 /*********************************************************************************************/
 510
 511 static void HandleAll(void)
 512 {
 513     ULONG sigs = 0;
 514
 515     set(app, MUIA_Application_Iconified, cx_popup ? FALSE : TRUE);
 516
 517     while((LONG) DoMethod(app, MUIM_Application_NewInput, (IPTR)&sigs)
 518             != MUIV_Application_ReturnID_Quit)
 519     {
 520         if (sigs)
 521         {
 522             sigs = Wait(sigs | SIGBREAKF_CTRL_C | SIGBREAKF_CTRL_F);
 523             if (sigs & SIGBREAKF_CTRL_C)
 524             {
 525                 break;
 526             }
 527             if (sigs & SIGBREAKF_CTRL_F)
 528             {
 529                 set(app, MUIA_Application_Iconified, FALSE);
 530             }
 531         }
 532     }
 533 }
 534
 535 /*********************************************************************************************/
 536
 537 static void Cleanup(CONST_STRPTR txt)
 538 {
 539     MUI_DisposeObject(app);
 540     FreeVec(cx_popkey);
 541     FreeBrokerList(&brokerList);
 542     if (txt)
 543     {
 544         showSimpleMessage(txt);
 545         exit(RETURN_ERROR);
 546     }
 547     exit(RETURN_OK);
 548 }
 549
 550 /*********************************************************************************************/
 551
 552 int main(int argc, char **argv)
 553 {
 554     D(bug("Exchange started\n"));
 555     NewList(&brokerList);
 556     GetArguments(argc, argv);
 557     InitMenus();
 558     MakeGUI();
 559     HandleAll();
 560     Cleanup(NULL);
 561     return RETURN_OK;
 562 }
 563
 564 /*********************************************************************************************/
 565
 566 ADD2INIT(Locale_Initialize,   90);
 567 ADD2EXIT(Locale_Deinitialize, 90);
 568