Hyperion Entertainment Message Boards

Code: Select all

/*
** main.c - Simple Keyword tester commodity
*/

#include <exec/libraries.h>
#include <libraries/commodities.h>
#include <dos/dos.h>
 
#include <proto/exec.h>
#include <proto/commodities.h>
#include <proto/dos.h>

#define ELSE_ERROR(Text) else {IDOS->Printf("ERROR: Failed to %s\n", Text);}
#define EVT_HOTKEY 1L

#define TEMPLATE "PATTERN/A"

enum ArgID {AID_PATTERN
           ,AID_LAST
           };
 
struct NewBroker newbroker = {  NB_VERSION
                             , "Amiga Keyworder"
                             , "A Simple Keyword tester"
                             , "A simple Keyword tester commodity"
                             ,  NBU_UNIQUE | NBU_NOTIFY
                             , 0
                             , 0
                             , NULL
                             , 0
                             };

 
int main(int argc, char *argv[])
{
  IDOS->Printf("INFO : Setup commodity...\n");

  STRPTR Args;
  struct RDArgs *rda = IDOS->ReadArgs(TEMPLATE, (APTR)&Args, NULL);

  if (rda != NULL)
   {
    newbroker.nb_Port = IExec->AllocSysObject(ASOT_PORT, TAG_END);

    if (newbroker.nb_Port != NULL)
     {
      CxObj *broker = ICommodities->CxBroker(&newbroker, NULL);

      uint32 cxsigflag = 1L << newbroker.nb_Port->mp_SigBit;
 
      if (broker != NULL)
       {
        CxObj *filter  = CxFilter(Args),
              *sender,
              *translate;
        int32 CxErr;

        if (filter != NULL)
         {
          ICommodities->AttachCxObj(broker, filter);
 
          if (sender = CxSender(newbroker.nb_Port, EVT_HOTKEY))
           {
            ICommodities->AttachCxObj(filter, sender);
 
            if (translate = CxTranslate(NULL))
             {
              ICommodities->AttachCxObj(filter, translate);
 
              CxErr = ICommodities->CxObjError(filter);

              if (CxErr == 0)
               {
                CxMsg *msg;
                uint32 msgid,
                       msgtype,
                       sigrcvd;

                ICommodities->ActivateCxObj(broker, 1L);
                BOOL Done = FALSE;
                IDOS->Printf("INFO : Here we go...\n");

                while (Done == FALSE)
                 {
                  sigrcvd = IExec->Wait(SIGBREAKF_CTRL_C | cxsigflag);
  
                  while (msg = (CxMsg *)IExec->GetMsg(newbroker.nb_Port))
                   {
                    msgid   = ICommodities->CxMsgID(msg);
                    msgtype = ICommodities->CxMsgType(msg);
                    IExec->ReplyMsg((struct Message *)msg);
 
                    switch (msgtype)
                     {
                      case CXM_IEVENT:
                       {
                        IDOS->Printf("An event, ");
 
                        switch(msgid)
                         {
                          case EVT_HOTKEY:
                           {
                            IDOS->Printf("you are notified due to [ %s ]\n", Args);

                            break;
                           }

                          default:
                           {
                            IDOS->Printf("which is unknown.\n");
                           }
                         }
 
                        break;
                       }

                      case CXM_COMMAND:
                       {
                        IDOS->Printf("A command: ");

                        switch(msgid)
                         {
                          case CXCMD_DISABLE:
                           {
                            IDOS->Printf("CXCMD_DISABLE\n");
                            ICommodities->ActivateCxObj(broker, 0L);

                            break;
                           }
 
                          case CXCMD_ENABLE:
                           {
                            IDOS->Printf("CXCMD_ENABLE\n");
                            ICommodities->ActivateCxObj(broker, 1L);

                            break; 
                           }

                          case CXCMD_KILL:
                           {
                            IDOS->Printf("CXCMD_KILL\n");
                            Done = TRUE;

                            break;
                           }

                          case CXCMD_UNIQUE:
                           {
                            IDOS->Printf("CXCMD_UNIQUE\n");
                            Done = TRUE;

                            break;
                           }

                          default:
                           {
                            IDOS->Printf("Unknown msgid\n");
                           }
                         }

                        break;
                       }

                      default:
                       {
                        IDOS->Printf("Unknown msgtype\n");
                       }
                     }
  
                    if (sigrcvd & SIGBREAKF_CTRL_C)
                     {
                      Done = TRUE;
                      IDOS->Printf("CTRL C signal break\n");
                     }
                   }
                 }

                while (msg = (CxMsg *)IExec->GetMsg(newbroker.nb_Port))
                 {
                  IExec->ReplyMsg((struct Message *)msg);
                 }

                IDOS->Printf("INFO : ...and here we stopped\n");
               }
              else
               {
                IDOS->Printf("ERROR: %ld\n", CxErr);
               }
             }
             ELSE_ERROR("Create translator");

           }
          ELSE_ERROR("Create sender");

         }
        ELSE_ERROR("Create filter");

        ICommodities->DeleteCxObjAll(broker);
       }
      ELSE_ERROR("Create broker");

      IExec->FreeSysObject(ASOT_PORT, newbroker.nb_Port);
     }
    ELSE_ERROR("Create MsgPort");

    IDOS->FreeArgs(rda);
   }
  ELSE_ERROR("Read Arguments");
 
  return 0;
}


/*
SWITCHES = -W                     \
           -Werror                \
           -Wmissing-prototypes   \
           -Wsign-compare         \
           -Wundef                \
           -Wshadow               \
           -Wwrite-strings        \

KTC : main.c
	gcc main.c -lauto -o KTC $(SWITCHES)
*/