home *** CD-ROM | disk | FTP | other *** search
/ Amiga Developer CD 2.1 / Amiga Developer CD v2.1.iso / NDK / NDK_3.5 / Tools / ReActor / Examples / EuroCalc / EuroCalc.c < prev    next >
Encoding:
C/C++ Source or Header  |  1999-10-27  |  27.9 KB  |  836 lines
  1. /* Michael Christoph Software */
  2. /* EuroCalc - Euro-Währungsrechner */
  3. /* EuroCalc.c: Main-Routinen */ 
  4. /* V1.00: 17.07.-18.08.1999, created */
  5. /* V1.01: 25.10.1999, updated + localized */
  6.  
  7. /* !!!!! Published with the Amiga NDK are welcome !!!!! */
  8.  
  9. /******************************* ERKLÄRUNG *************************************
  10. **
  11. ** Ländernamen / Fahnendateien / Hymnendateien:
  12. ** 
  13. ** Europa       europe.iff       -
  14. ** Deutschland  germany.iff      germany.mid
  15. ** Belgien      belgium.iff      belgium.mid
  16. ** Finnland     finland.iff      finland.mid
  17. ** Frankreich   france.iff       france.mid
  18. ** Irland       ireland.iff      ireland.mid
  19. ** Italien      italy.iff        italy.mid
  20. ** Luxemburg    luxemburg.iff    luxemburg.mid
  21. ** Niederlande  netherland.iff   netherland.mid
  22. ** Österreich   austria.iff      austria.mid
  23. ** Portugal     portugal.iff     portugal.mid
  24. ** Spanien      spain.iff        spain.mid
  25. ** 
  26. ** --------------------------------------------------------------------------------
  27. ** 
  28. ** Alle Kommentare sind deutsch und darunter englisch angegeben.
  29. ** Im Programm werden nur englische Bezeichnungen und Variablennamen verwendet.
  30. ** Hier die Übersetzungstabelle:
  31. **   Total        = Betrag
  32. **   Currency     = Währung
  33. **   Currencymark = Währungskennzeichen
  34. **   Exchange     = Wechselkurs
  35. ** Übersetzung der Oberflächenelemente als Catalogdatei.
  36. ** 
  37. ** All comments are first in german an then in english given.
  38. ** Only english names and variablenames will used.
  39. ** Translation from the gui to other countries with catalog-files.
  40. ** 
  41. ** --------------------------------------------------------------------------------
  42. **
  43. ** Das Programm ist nicht vollständig !
  44. ** Beliebige Änderungen und Erweiterungen des Sources sind erwünscht.
  45. **
  46. ** The program is not complete !
  47. ** Any changes and extensions of the source are welcome.
  48. ** - graphic print of the complete window
  49. ** - printing texttable (1,5,10,...) of one currency
  50. ** - arexxport (easy with ReActor)
  51. ** - ... our own ideas ...
  52. **
  53. *******************************************************************************/
  54.  
  55. /*
  56. ** Result for the shell:
  57. **  0 - RETURN_OK     arguments ok or gui was used
  58. **  5 - RETURN_WARN   unused
  59. **  8 - RETURN_BREAK  gui was closed with CTRL-C
  60. ** 10 - RETURN_ERROR  error in arguments (e.g. unknown currency)
  61. ** 20 - RETURN_FAIL   no AmigaOS 3.5, open failed from library, window, ect.
  62. */
  63.  
  64. /************************** PROGRAMM-PARAMETER ********************************/
  65.  
  66. #define PROGNAME "EuroCalc"
  67. #define VERSIONR "1.01"
  68. #define PROGDATE "25.10.1999"
  69. #define COPYRIGT "Copyright © Jul.1999 by Meicky-Soft"
  70.  
  71. const char *version = "\0$VER: " PROGNAME " " VERSIONR " (" PROGDATE ") - " COPYRIGT "\n";
  72.  
  73. /******************************* INCLUDES *************************************/
  74.  
  75. #include "EuroCalcFrame.h"
  76.  
  77. #include <exec/types.h>
  78. #include <exec/alerts.h>
  79. #include <dos/dos.h>
  80. #define RETURN_BREAK 8    /* Ergänzung zu den Defines in dos.h */
  81.                           /* Additional to the defines in dos.h */
  82. #include <intuition/intuition.h>
  83. #include <intuition/gadgetclass.h>
  84. #include <intuition/classusr.h>
  85. #include <libraries/gadtools.h>
  86. #include <classes/window.h>
  87. //#include <classes/arexx.h>
  88. #include <workbench/startup.h>
  89. #include <workbench/icon.h>
  90. #include <reaction/reaction.h>
  91. #include <reaction/reaction_macros.h>
  92.  
  93. #include <clib/alib_protos.h>
  94. #include <clib/exec_protos.h>
  95. #include <clib/dos_protos.h>
  96. #include <clib/intuition_protos.h>
  97. #include <clib/gadtools_protos.h>
  98. #include <clib/locale_protos.h>
  99. #include <clib/icon_protos.h>
  100. #include <clib/resource_protos.h>
  101.  
  102. #include <stdio.h>
  103. #include <stdlib.h>
  104. #include <string.h>
  105.  
  106. /************************ VARIABLEN DEKLARATIONEN *****************************/
  107.  
  108. UBYTE gb_ArgTemplate[]="TOTAL,CURRENCY,TO/K/M,PUBSCREEN/K";
  109. enum { ARG_total, ARG_currency, ARG_to, ARG_pubscreen, ARG_MAX };
  110. LONG gb_Args[ARG_MAX]={ 0,0,0,NULL };
  111.  
  112. /************************ VARIABLEN DEKLARATIONEN *****************************/
  113.  
  114. struct Library       *ResourceBase;
  115. struct IntuitionBase *IntuitionBase;
  116. struct Library       *GadToolsBase;
  117. struct Library       *LocaleBase;
  118. struct Library       *IconBase;
  119.  
  120. struct Screen        *gb_Screen;
  121. struct Window        *gb_Window;
  122. struct Gadget       **gb_Gadgets;
  123. struct Menu          *gb_Menus;
  124. struct Catalog       *gb_Catalog;
  125. struct MsgPort       *gb_IDCMPort;
  126. struct MsgPort       *gb_AppPort;
  127. RESOURCEFILE          gb_Resource;
  128. Object               *gb_WindowObj;
  129. UBYTE                 gb_ProgName[30];
  130.  
  131. /************************ VARIABLEN DEKLARATIONEN *****************************/
  132.  
  133. struct CountryList
  134. {
  135.   UWORD  ll_GadID;       /* GadgetID */
  136.   UBYTE  ll_Currency[5]; /* Währungskennzeichen / Currencymark */
  137.   DOUBLE ll_Exchange;    /* Wechselkurs / rate of exchange */
  138.   UBYTE  ll_Country[20]; /* Ländername / Name of the country */
  139. };
  140.  
  141. struct CountryList gb_Countries[] =
  142. {
  143.   0,"",0,"",                                    /* unused */
  144.   0,"",0,"",                                    /* unused */
  145.   GAD_ID_EUR, "EURO",   1.0     , "Europe"    , /*"Europa"     */
  146.   GAD_ID_DM , "DM"  ,   1.95583 , "Germany"   , /*"Deutschland"*/
  147.   GAD_ID_BFR, "BFR" ,  40.3399  , "Belgium"   , /*"Belgien"    */
  148.   GAD_ID_FMK, "FMK" ,   5.94573 , "Finland"   , /*"Finnland"   */
  149.   GAD_ID_FF , "FF"  ,   6.55957 , "France"    , /*"Frankreich" */
  150.   GAD_ID_IRF, "IRF" ,   0.787564, "Ireland"   , /*"Irland"     */
  151.   GAD_ID_LIT, "LIT" ,1936.27    , "Italy"     , /*"Italien"    */
  152.   GAD_ID_LFR, "LFR" ,  40.3399  , "Luxemburg" , /*"Luxemburg"  */
  153.   GAD_ID_HFL, "HFL" ,   2.20371 , "Netherland", /*"Niederlande"*/
  154.   GAD_ID_OES, "OES" ,  13.7603  , "Austria"   , /*"Österreich" */
  155.   GAD_ID_ESC, "ESC" , 200.482   , "Portugal"  , /*"Portugal"   */
  156.   GAD_ID_PTA, "PTA" , 166.386   , "Spain"     , /*"Spanien"    */
  157. };
  158.  
  159. /*
  160. ** der derzeitige Arrayaufbau und die Gadget-IDs ermöglichen es, daß
  161. ** z.B. per gb_Countries[GAD_ID_EUR] auf die Werte zugegriffen werden kann.
  162. */
  163. /*
  164. ** the actual arraysort and gadgetids can simple use to get the values
  165. ** from the structure with e.g. gb_Countries[GAD_ID_EUR].
  166. */
  167.  
  168. /* niedriegste benutze Länder-ID und Anzahl Array-Einträge */
  169. /* first used country-id and numbers of array-elements */
  170. #define COUNTRY_FIRST GAD_ID_EUR
  171. #define COUNTRY_MAX   (GAD_ID_PTA + 1)
  172.  
  173. /* Ergebniswerte; Array 0 und 1 unbenutzt, wie bei gb_Countires */
  174. /* resultvalues; array 0 and 1 unused, as gb_Countries */
  175. DOUBLE gb_Total[COUNTRY_MAX];
  176.  
  177. /* Ausgabeformat für die Ergebniswerte */
  178. /* Outputstring to format the resultvalues */
  179. #define FMT_CurrencyOutput "%0.2f"
  180.  
  181. /************************ VARIABLEN DEKLARATIONEN *****************************/
  182.  
  183. /* Localisierung der programmeigenen Elemente/Texte */
  184. /* localized of the internal elements and texts */
  185.  
  186. const STRPTR STR_TX_Ok            = "Ok";
  187. const STRPTR STR_TX_SureToQuit    = "\nSure to quit program ?";
  188. const STRPTR STR_TX_QuitYesNo     = "Yes|No";
  189. const STRPTR STR_TX_From          = "from";
  190.  
  191. const STRPTR STR_TX_MENU_Project  = "Project";
  192. const STRPTR STR_TX_MENU_Manual   = "M\0Manual...";
  193. const STRPTR STR_TX_MENU_Print    = "P\0Print";
  194. const STRPTR STR_TX_MENU_Info     = "I\0Info...";
  195. const STRPTR STR_TX_MENU_Quit     = "Q\0Quit...";
  196.  
  197. const STRPTR STR_TX_MENU_Edit     = "Edit";
  198. const STRPTR STR_TX_MENU_ClearAll = "X\0Clear all fields";
  199. const STRPTR STR_TX_MENU_Exchange = "E\0Change exchange...";
  200.  
  201. enum LocaleIDs
  202. {
  203.   TX_Ok                = 1001,
  204.   TX_SureToQuit,
  205.   TX_QuitYesNo,
  206.   TX_From,
  207.  
  208.   TX_MENU_Project      = 1011,
  209.   TX_MENU_Manual,
  210.   TX_MENU_Print,
  211.   TX_MENU_Info,
  212.   TX_MENU_Quit,
  213.   TX_MENU_Edit,
  214.   TX_MENU_ClearAll,
  215.   TX_MENU_Exchange,
  216. };
  217.  
  218. #define CATSTR(id)        GetCatalogStr(gb_Catalog,id,(STRPTR)STR_ ## id)
  219. #define CATSTRSTR(id,str) GetCatalogStr(gb_Catalog,id,(STRPTR)str)
  220.  
  221. /************************ VARIABLEN DEKLARATIONEN *****************************/
  222.  
  223. static struct NewMenu gb_MenuDescribe[] =
  224. {
  225.   NM_TITLE, (STRPTR)STR_TX_MENU_Project,  NULL, 0, 0, (APTR)TX_MENU_Project,  /* "Project" */
  226.   NM_ITEM,  (STRPTR)STR_TX_MENU_Manual,   NULL, 0, 0, (APTR)TX_MENU_Manual,   /* "M\0Manual..." */
  227.   NM_ITEM,  (STRPTR)STR_TX_MENU_Print,    NULL, 0, 0, (APTR)TX_MENU_Print,    /* "P\0Print" */
  228.   NM_ITEM,  (STRPTR)STR_TX_MENU_Info,     NULL, 0, 0, (APTR)TX_MENU_Info,     /* "I\0Info..." */
  229.   NM_ITEM,  NM_BARLABEL,                  NULL, 0, 0, (APTR)0,
  230.   NM_ITEM,  (STRPTR)STR_TX_MENU_Quit,     NULL, 0, 0, (APTR)TX_MENU_Quit,     /* "Q\0Quit..." */
  231.  
  232.   NM_TITLE, (STRPTR)STR_TX_MENU_Edit,     NULL, 0, 0, (APTR)TX_MENU_Edit,     /* "Edit" */
  233.   NM_ITEM,  (STRPTR)STR_TX_MENU_ClearAll, NULL, 0, 0, (APTR)TX_MENU_ClearAll, /* "X\0Clear all field" */
  234.   NM_ITEM,  (STRPTR)STR_TX_MENU_Exchange, NULL, 0, 0, (APTR)TX_MENU_Exchange, /* "E\0Change exchange..." */
  235.  
  236.   NM_END, NULL, NULL, 0, 0, NULL
  237. };
  238.  
  239. /* Menüdefines zur einfacheren Benutzung */
  240. /* Menuedefines for easier used */
  241. #define MENU_ID_Manual    FULLMENUNUM(0,0,NOSUB)
  242. #define MENU_ID_Print     FULLMENUNUM(0,1,NOSUB)
  243. #define MENU_ID_Info      FULLMENUNUM(0,2,NOSUB)
  244. #define MENU_ID_Quit      FULLMENUNUM(0,4,NOSUB)
  245. #define MENU_ID_ClearAll  FULLMENUNUM(1,0,NOSUB)
  246. #define MENU_ID_Exchange  FULLMENUNUM(1,1,NOSUB)
  247.  
  248. /******************************************************************************/
  249.  
  250. const STRPTR FormatCurrency(DOUBLE total)
  251. {
  252.   /* ACHTUNG:
  253.   ** Funktion ist nicht reentrant !
  254.   ** und darf daher nicht mehrfach gleichzeitig aufgerufen werden
  255.   */
  256.   /* Functions in not reentrant ! */
  257.  
  258.   static UBYTE totalstr[10];
  259.   sprintf(totalstr,FMT_CurrencyOutput,total);
  260.   return( totalstr );
  261. }
  262.  
  263. /******************************************************************************/
  264.  
  265. void UpdateGadgets()
  266. {
  267.   /* in allen Gadgets den aktuellen Wert anzeigen */
  268.   /* display in all gadgets the actual values */
  269.  
  270.   ULONG i;
  271.   for(i=COUNTRY_FIRST; i<COUNTRY_MAX; i++)
  272.   {
  273.     SetGadgetAttrs(gb_Gadgets[gb_Countries[i].ll_GadID],gb_Window,NULL,
  274.                    STRINGA_TextVal,FormatCurrency(gb_Total[i]),
  275.                    TAG_DONE);
  276.   }
  277. }
  278.  
  279. /******************************************************************************/
  280.  
  281. void ClearAllGadgets()
  282. {
  283.   /* alle Eingabefelder löschen */
  284.   /* empty all inputgadgets */
  285.  
  286.   ULONG i;
  287.   for(i=COUNTRY_FIRST; i<COUNTRY_MAX; i++)
  288.   {
  289.     gb_Total[i] = 0.0;
  290.  
  291.     SetGadgetAttrs(gb_Gadgets[gb_Countries[i].ll_GadID],gb_Window,NULL,
  292.                    STRINGA_TextVal,"",
  293.                    TAG_DONE);
  294.   }
  295. }
  296.  
  297. /******************************************************************************/
  298.  
  299. DOUBLE Calculate(UWORD currency, DOUBLE input)
  300. { 
  301.   /* Währungs-Umrechnung vornehmen */
  302.   /* 'input' enthält den Zahlenwert und 'currency' die zugehörige Basiswährung */
  303.   /* zurückgeliefert wird der berechnete Eurokurs */
  304.  
  305.   ULONG i;
  306.  
  307.   /* calculate given value to euro */
  308.   const DOUBLE ineuro = input / gb_Countries[currency].ll_Exchange;
  309.  
  310.   /* then calculate from euro to all other currencies */
  311.   for(i=COUNTRY_FIRST; i<COUNTRY_MAX; i++)
  312.     gb_Total[i] = ineuro * gb_Countries[i].ll_Exchange;
  313.  
  314.   return( ineuro );
  315. }
  316.  
  317. /******************************************************************************/
  318.  
  319. struct Menu *CreateMenu(struct NewMenu *newmenu)
  320. {
  321.   /* menu => Menübeschreibung */
  322.   /* <= übergebene Menübeschreibung aber mit den neuen Texten */
  323.  
  324.   struct Menu *menu=NULL;
  325.   APTR visualinfo;
  326.  
  327.   struct NewMenu *item;
  328.   for(item = newmenu; item->nm_Type != NM_END; item++)
  329.   {
  330.     if(item->nm_UserData)
  331.     {
  332.       /*
  333.       ** falls der String nicht aus dem Catalog ermittelt werden kann,
  334.       ** wird der interne String zurückgegeben.
  335.       */
  336.       const STRPTR str = CATSTRSTR((ULONG)item->nm_UserData,item->nm_Label);
  337.  
  338.       if(item->nm_Type == NM_TITLE)
  339.       {
  340.         item->nm_Label = (STRPTR)str;   /* Title-Strings werden ohne Shortcut angegeben */
  341.       }
  342.       else
  343.       {
  344.         item->nm_Label = (STRPTR)&str[2];
  345.         if(str[0] != ' ') item->nm_CommKey = (STRPTR)str;  /* im ersten Byte steht der Shortcut */
  346.       }
  347.     }
  348.   }
  349.  
  350.   if((visualinfo = GetVisualInfoA(gb_Screen,NULL)))
  351.   {
  352.     if((menu = CreateMenusA(newmenu,NULL)))
  353.     {
  354.       if((LayoutMenus(menu,visualinfo,GTMN_NewLookMenus,TRUE,TAG_DONE)))
  355.       {
  356.       }
  357.       else { fprintf(stderr,"ERROR: can't layout menu.\n"); FreeMenus(menu); menu=NULL; }
  358.     }
  359.     else { fprintf(stderr,"ERROR: can't create menu.\n"); }
  360.  
  361.     FreeVisualInfo(visualinfo); 
  362.   }
  363.   else printf("ERROR: can't get visualinfo from screen.\n");
  364.  
  365.   return( menu );
  366. }
  367.  
  368. /******************************************************************************/
  369.  
  370. void DeleteMenu(struct Menu *menu)
  371. {
  372.   if(menu) FreeMenus(menu);
  373. }
  374.  
  375. /******************************************************************************/
  376.  
  377. LONG EasyRequester(const STRPTR text, const STRPTR button, ...)
  378. {
  379.   struct EasyStruct easyreq = { sizeof(struct EasyStruct),0,NULL,NULL,NULL };
  380.  
  381.   easyreq.es_Title        = (UBYTE *)PROGNAME;
  382.   easyreq.es_TextFormat   = (UBYTE *)text;
  383.   easyreq.es_GadgetFormat = (UBYTE *)button;
  384.  
  385.   return( EasyRequestArgs(gb_Window,&easyreq,NULL,(ULONG*)((&button)+1)) );
  386. }
  387.  
  388. /******************************************************************************/
  389.  
  390. ULONG messageloop(void)
  391. {
  392.   /* Nachrichtenschleife */
  393.  
  394.   ULONG res=RETURN_FAIL;
  395.  
  396.   ULONG windowsignal, signals;
  397.  
  398.   /* Signalbit für das Fenster besorgen */
  399.   /* get the signalbit for the windowmessages */
  400.   GetAttr(WINDOW_SigMask,gb_WindowObj,&windowsignal);
  401.  
  402.   while(res == RETURN_FAIL)
  403.   {
  404.     /* auf das Eintreffen von Nachrichten warten oder CTRL-C für Abbruch */
  405.     /* wait for a message or CTRL-C for user break */
  406.     signals = Wait(windowsignal | SIGBREAKF_CTRL_C);
  407.  
  408.     /* Fenster-Nachrichten behandeln */
  409.     /* handle the window-messages */
  410.     if(signals & windowsignal) 
  411.     {
  412.       ULONG result, code;
  413.  
  414.       /* nächste Nachricht auslesen */
  415.       /* get next message */
  416.  
  417.       /* result: oberes Word enthält die Classe, unteres Word die Event-Beschreibung */
  418.       /* result: high word is the class, in low word is the event-describe */
  419.  
  420.       while((result = RA_HandleInput(gb_WindowObj,&code)) != WMHI_LASTMSG)  
  421.       {
  422.         switch(result & WMHI_CLASSMASK)
  423.         {
  424.           case WMHI_CLOSEWINDOW:
  425.                res = RETURN_OK;
  426.                break;
  427.  
  428.           case WMHI_GADGETUP:
  429.                {
  430.                  /* Gruppen-ID ermitteln, wir haben nur eine Gruppe, daher brauchen wir sie nicht weiter */
  431.                  /* build group-id, we have only one group, so we need it */
  432.                  const UWORD groupid = RL_GROUPID(result);
  433.  
  434.                  /* Gadget-ID ermitteln */
  435.                  /* build gadget-id */
  436.                  const UWORD gadid = RL_GADGETID(result);
  437.  
  438.                  if(gadid >= COUNTRY_FIRST && gadid < COUNTRY_MAX)
  439.                  {
  440.                    /* 
  441.                    ** Es wurde eine Eingabe vorgenommen.
  442.                    ** Den Wert auslesen (in eine Flieskommazhal umwandeln),
  443.                    ** in die anderen Währungen umrechnen und anzeigen.
  444.                    */
  445.                    /*
  446.                    ** The user has given a new input.
  447.                    ** Read the value (convert to floatingpoint),
  448.                    ** calculate to the other currencies and display it.
  449.                    */
  450.                    UBYTE *val;
  451.                    if(GetAttr(STRINGA_TextVal,gb_Gadgets[gadid],(ULONG*)&val))
  452.                      gb_Total[gadid] = atof(val);
  453.  
  454.                    Calculate(gadid,gb_Total[gadid]);
  455.                    UpdateGadgets();
  456.                  }
  457.  
  458.                  /* andere Gadgets behandeln */
  459.                  /* handle the other gadgets */
  460.                  switch(gadid)
  461.                  {
  462.                    default:
  463.                      break;
  464.                  }
  465.                }
  466.                break;
  467.  
  468.           case WMHI_ICONIFY:
  469.                /* Fenster iconifizieren und Window-Pointer löschen */
  470.                /* iconify window and clear window-pointer */
  471.                RA_Iconify(gb_WindowObj); gb_Window = NULL;
  472.                break;
  473.  
  474.           case WMHI_UNICONIFY:
  475.                /* Fenster wieder vollständig anzeigen, Window-Pointer ermitteln */
  476.                /* uniconify window and get the actual window-pointer */
  477.                gb_Window = RA_OpenWindow(gb_WindowObj);
  478.                break;
  479.  
  480.           case WMHI_MENUPICK:
  481.                switch(result & WMHI_MENUMASK)
  482.                {
  483.                  case MENU_ID_Manual:
  484.                       Execute("RUN >NIL: MultiView EuroCalc.guide",NULL,NULL);
  485.                       break;
  486.  
  487.                  case MENU_ID_Print:
  488.                       /* not jet implemented */
  489.                       break;
  490.  
  491.                  case MENU_ID_Info:
  492.                       EasyRequester("%s V%s %s %s\n\n"
  493.                                     "%s\n\n"
  494.                                     "Michael Christoph\n"
  495.                                     "Irring 3\n"
  496.                                     "94113 Tiefenbach\n"
  497.                                     "<michael@meicky-soft.de>"
  498.                                     ,CATSTR(TX_Ok)
  499.                                     ,PROGNAME,VERSIONR,CATSTR(TX_From),PROGDATE,COPYRIGT 
  500.                                    );
  501.                       break;
  502.  
  503.                  case MENU_ID_Quit:
  504.                       /* "\nSure to quit program ?","Yes|No" */
  505.                       if(EasyRequester(CATSTR(TX_SureToQuit),CATSTR(TX_QuitYesNo)))
  506.                         res = RETURN_OK;
  507.                       break;
  508.  
  509.                  case MENU_ID_ClearAll:
  510.                       /* Berechnung von 0 Euros löscht alle Felder */
  511.                       /* calculation with 0 euros clear all fields */
  512.                       ClearAllGadgets();
  513.                       break;
  514.  
  515.                  case MENU_ID_Exchange:
  516.                       /* not jet implemented */
  517.                       break;
  518.                }
  519.                break;
  520.  
  521.           case WMHI_RAWKEY:
  522.                /* RawKey Nachricht, unteres Byte enthält den Tastencode, Qualifier nur in der Hook-Routine */
  523.                /* raw key event, lower byte are the keycode, qualifiers only in hook-routine */
  524.                break;
  525.  
  526.           case WMHI_VANILLAKEY:
  527.                /* ASCII-Tastencode im unteren Byte (siehe RawKey) */
  528.                /* ASCII-code in the lower byte (see RawKey) */
  529.                break;
  530.         }
  531.       }
  532.     }
  533.  
  534.     /* CTRL-C behandeln */
  535.     /* handle CTRL-C signal */
  536.     if(signals & SIGBREAKF_CTRL_C)
  537.       res = RETURN_BREAK;
  538.   }
  539.  
  540.   return( res );
  541. }
  542.  
  543. /******************************************************************************/
  544.  
  545. ULONG rungui(void)
  546. {
  547.   ULONG res = RETURN_FAIL;
  548.  
  549.   /* Zur Prüfung, ob AmigaOS 3.5 vorhanden ist, überprüfen wir die resource.library */
  550.   /* as indicator if AmigaOS 3.5 is here, we will check the resource.library */
  551.  
  552.   if((ResourceBase = OpenLibrary("resource.library",44)))
  553.   {
  554.     /* alle benötigten Libraries öffnen */
  555.     /* open all needed libraries */
  556.     IntuitionBase = (struct IntuitionBase *) OpenLibrary("intuition.library",39);
  557.     GadToolsBase = OpenLibrary("gadtools.library",38);
  558.     LocaleBase = OpenLibrary("locale.library",38);
  559.     IconBase = OpenLibrary("icon.library",39);
  560.  
  561.     if(IntuitionBase && GadToolsBase && LocaleBase && IconBase)
  562.     {
  563.       /* Catalog muß nicht zwingend vorhanden sein */
  564.       /* catalog is not must and can be null */
  565.       gb_Catalog = OpenCatalogA(NULL,PROGNAME ".catalog",NULL);
  566.  
  567.       /* Default-Public-Screen locken, normalerweise die Workbench */
  568.       /* lock default-public-screen, normal the workbench */
  569.       if((gb_Screen = LockPubScreen((UBYTE *) gb_Args[ARG_pubscreen])))
  570.       {
  571.         /* zwei Nachrichtenports für die (interne) Kommunikation anlegen */
  572.         /* create two messageports for the (internal) communication */
  573.         if((gb_IDCMPort = CreateMsgPort()))
  574.         {
  575.           if((gb_AppPort = CreateMsgPort()))
  576.           {
  577.             /* Resource-Verwaltung anlegen */
  578.             /* create resource-manager */
  579.             if((gb_Resource = RL_OpenResource(RCTResource,gb_Screen,gb_Catalog)))
  580.             {
  581.               /* Localisiertes menü erzeugen */
  582.               /* create localized menu */
  583.               if((gb_Menus = CreateMenu(gb_MenuDescribe)))
  584.               {
  585.                 /* Neues Objekt erzeugen: das Hauptfenster */
  586.                 /* create new object: the mainwindow */
  587.                 if((gb_WindowObj = RL_NewObject(gb_Resource,WIN_ID_Main,
  588.                                                 WINDOW_SharedPort,   gb_IDCMPort,
  589.                                                 WINDOW_AppPort,      gb_AppPort,
  590.                                                 WINDOW_MenuStrip,    gb_Menus,
  591.                                                 WINDOW_MenuUserData, WGUD_IGNORE,
  592.                                                 /* Icon wird automatisch freigegeben */
  593.                                                 /* Icon will free qutomaticly */
  594.                                                 WINDOW_Icon,         GetDiskObject(gb_ProgName),
  595.                                                 TAG_DONE)))
  596.                 {
  597.                   /* Array der Gadget-Zeiger für die Oberflächenelemente ermitteln */
  598.                   /* get the array with the gadget-pointer to the guielementes */
  599.                   gb_Gadgets = (struct Gadget **) RL_GetObjectArray(gb_Resource,gb_WindowObj,GROUP_ID_Main);
  600.  
  601.                   /* das Fenster öffnen und den Window-Pointer ermitteln */
  602.                   /* open the window and get the window-pointer */
  603.                   if((gb_Window = RA_OpenWindow(gb_WindowObj)))
  604.                   {
  605.                     /* nicht nutzbare Menüeinträge sperren */
  606.                     /* disable unusable menuentries */
  607.                     OffMenu(gb_Window,MENU_ID_Print);
  608.                     OffMenu(gb_Window,MENU_ID_Exchange);
  609.  
  610.                     /* 1 Euro als Vorgabe ausgeben */
  611.                     /* set 1 Euro as default */
  612.                     gb_Total[GAD_ID_EUR] = 1.0;
  613.                     Calculate(GAD_ID_EUR,gb_Total[GAD_ID_EUR]);
  614.                     UpdateGadgets();
  615.  
  616.                     /* Programmschleife - Nachrichtenbehandlung */
  617.                     /* programmloop - messagehandling */
  618.                     res = messageloop();
  619.  
  620.                     /* Fenster schließen */
  621.                     /* close window */
  622.                     DoMethod(gb_WindowObj,WM_CLOSE);
  623.                   }
  624.                   else fprintf(stderr,"ERROR: can't open window.\n");
  625.                 }
  626.                 else fprintf(stderr,"ERROR: can't generate window object.\n");
  627.  
  628.                 DeleteMenu(gb_Menus);
  629.               }
  630.               /* error was printed from CreateMenu() */
  631.  
  632.               /* Resource-Verwaltung schließen, gibt alle anderen Objekte frei */
  633.               /* close resourcemanager, freed all other objects */
  634.               RL_CloseResource(gb_Resource);
  635.             }
  636.             else fprintf(stderr,"ERROR: can't open resources.\n");
  637.  
  638.             /* Nachrichtenports freigeben */
  639.             /* freed messageports */
  640.             DeleteMsgPort(gb_AppPort);
  641.           }
  642.           else fprintf(stderr,"ERROR: can't create msgport.\n");
  643.  
  644.           DeleteMsgPort(gb_IDCMPort);
  645.         }
  646.         else fprintf(stderr,"ERROR: can't create msgport.\n");
  647.  
  648.         /* Bildschirmlock freigeben */
  649.         /* freed screenlock */
  650.         UnlockPubScreen(NULL,gb_Screen);
  651.       }
  652.       else if(gb_Args[ARG_pubscreen]) fprintf(stderr,"ERROR: can't look default public screen.\n");
  653.            else                       fprintf(stderr,"ERROR: can't look public screen \"%s\".\n",gb_Args[ARG_pubscreen]);
  654.  
  655.       if(gb_Catalog) CloseCatalog(gb_Catalog);
  656.     }
  657.     else fprintf(stderr,"ERROR: can't open intuition/gadtools/locale/icon.library.\n");
  658.  
  659.     /* geöffnete Libraries schließen */
  660.     /* closed all open libraries */
  661.     if(IconBase)      CloseLibrary(IconBase);
  662.     if(LocaleBase)    CloseLibrary(LocaleBase);
  663.     if(GadToolsBase)  CloseLibrary(GadToolsBase);
  664.     if(IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
  665.  
  666.     CloseLibrary(ResourceBase);
  667.   }
  668.   else fprintf(stderr,"Program required AmigaOS 3.5 !!\nERROR: can't open resource.library V44.\n");
  669.  
  670.   return( res );
  671. }
  672.  
  673. /******************************************************************************/
  674.  
  675. UWORD Currency2GadID(const STRPTR currency)
  676. {
  677.   /* wandelt die Währungsbezeichnung in die korespondierende GadgetID um */
  678.   /* get the gadgetid for the koresponding currency */
  679.   UWORD res=0;
  680.   ULONG i;
  681.  
  682.   for(i=1; i<COUNTRY_MAX; i++)
  683.   {
  684.     if(stricmp(currency,gb_Countries[i].ll_Currency) == 0)
  685.       { res = gb_Countries[i].ll_GadID; break; }
  686.   }
  687.  
  688.   return( res );
  689. }
  690.  
  691. /******************************************************************************/
  692.  
  693. /***** StormC/MaxonC Workbench start *****/
  694.  
  695. #ifdef __cplusplus
  696. extern "C"
  697. #endif
  698. void wbmain(struct WBStartup *WBenchMsg)
  699. {
  700.   BPTR olddir;
  701.  
  702.   /* eine Ausgabeconsole für die Fehlermeldungen öffnen */
  703.   /* open an outputconsole for errormessages */
  704.  
  705.   if(!freopen("CON:10/25/500/188/EuroCalc Output/AUTO/CLOSE", "w+", stdout))
  706.   {
  707.     /* Ein/Ausgabekanal konnte nicht neu eingerichtet werden */
  708.     /* in/outputchannel can't reopen */
  709.     Alert(AT_Recovery | AG_IOError | AO_DOSLib);  /* Alert 0006 8007 */
  710.     return;
  711.   }
  712.  
  713.  
  714.   /* ins Programmverzeichnis wechseln */
  715.   /* change directory to the program dir */
  716.   olddir = CurrentDir(WBenchMsg->sm_ArgList->wa_Lock) ;
  717.   strcpy(gb_ProgName,WBenchMsg->sm_ArgList->wa_Name);
  718.  
  719.   /* Tooltypes auswerten */
  720.   /* extract tooltypes */
  721.   if((IconBase = OpenLibrary("icon.library",37)))
  722.   {
  723.     struct DiskObject *dobj;
  724.  
  725.     if((dobj = GetDiskObject(WBenchMsg->sm_ArgList->wa_Name)))  /* Wir haben ein Icon! */
  726.     {                                                           /* We have an icon */
  727.       gb_Args[ARG_pubscreen] = (ULONG) FindToolType((STRPTR *) dobj->do_ToolTypes,"PUBSCREEN");
  728.     }
  729.  
  730.     CloseLibrary(IconBase); IconBase = NULL;
  731.   }
  732.   else Alert(AT_Recovery | AG_OpenLib | AO_IconLib);  /* 0003 8009 */
  733.  
  734.   rungui();
  735.  
  736.   /* zurück ins Aufrufverzeichnis */
  737.   /* back to the startdir */
  738.   CurrentDir(olddir);
  739. }
  740.  
  741. /***** Shell start *****/
  742.  
  743. void main(void)
  744. {
  745.   ULONG res = RETURN_FAIL;
  746.   BPTR olddir;
  747.   UBYTE progname[100];
  748.  
  749.   DOUBLE eurores = 0.0;
  750.   DOUBLE total = 0.0;
  751.   const UBYTE *currency = "";
  752.   struct RDArgs *rda = NULL;
  753.  
  754.   /* ins Programmverzeichnis wechseln und Programmnamen ermitteln */
  755.   /* change directory to the program dir and get programname */
  756.   olddir = CurrentDir(GetProgramDir());
  757.   GetProgramName(progname,100);
  758.   strcpy(gb_ProgName,FilePart(progname));  /* evtl. Pfadangabe entfernen */
  759.                                            /* skip path when available */
  760.  
  761.   if((rda=ReadArgs(gb_ArgTemplate,gb_Args,NULL)))
  762.   {
  763.     if(gb_Args[ARG_total])
  764.     {
  765.       res = RETURN_OK;
  766.  
  767.       /*
  768.       ** es wurde eine Betrag übergeben:
  769.       ** dieser wird sofort in die angegebenen Zielwährungen
  770.       ** umgerechnet und die Ergebnisse ausgegeben.
  771.       */
  772.       /*
  773.       ** user will give arguments:
  774.       ** calculate it to the zielcurrency and print it out
  775.       */
  776.       if(gb_Args[ARG_total])    total    = atof((UBYTE*)gb_Args[ARG_total]);
  777.       if(gb_Args[ARG_currency]) currency = (UBYTE*) gb_Args[ARG_currency];
  778.  
  779. //      eurores = Calculate(currency,total);
  780.  
  781.       if(gb_Args[ARG_to])
  782.       {
  783.         /* alle Währungskennzeichen; für Argument "ALL" */
  784.         /* all -Währungskennzeichen-; for argument "ALL" */
  785.         const STRPTR gb_AllCurrencies[] =
  786.         {
  787.           "EURO", "DM", "BFR", "FMK", "FF", "IRF", "LIT", "LFR", "HFL", "OES", "ESC", "PTA", NULL
  788.         };
  789.  
  790.         /* Zielwährung wurde angegeben */
  791.         /* zielcurrency will given */
  792.         UBYTE **toarg = (stricmp(((UBYTE**)gb_Args[ARG_to])[0],"ALL")==0 ?
  793.                                 (UBYTE**)gb_AllCurrencies :
  794.                                 (UBYTE**)gb_Args[ARG_to]);
  795.         for(; *toarg; toarg++)
  796.         {
  797.           UWORD currencyid;
  798.           if((currencyid = Currency2GadID(*toarg)))
  799.           {
  800.             Calculate(currencyid,total);
  801.             printf(FMT_CurrencyOutput " %s\n",*toarg);
  802.           }
  803.           else
  804.           {
  805.             fprintf(stderr,"unknown currency '%s'.\n",*toarg);
  806.             res = RETURN_ERROR;
  807.           }
  808.         }
  809.       }
  810.       else printf(FMT_CurrencyOutput " EURO\n",eurores);
  811.     }
  812.     else
  813.     {
  814.       /* ohne Parameter die Oberfläche darstellen */
  815.       /* without arguments the gui will opend */
  816.       res = rungui();
  817.     }
  818.  
  819.     FreeArgs(rda);
  820.   }
  821.   else
  822.   {
  823.     PrintFault(IoErr(),gb_ProgName);
  824.     res = RETURN_ERROR;
  825.   }
  826.  
  827.   /* zurück ins Aufrufverzeichnis */
  828.   /* back to the startdir */
  829.   CurrentDir(olddir);
  830.  
  831.   exit( res );
  832. }
  833.  
  834. /******************************************************************************/
  835.  
  836.