/************************************************************************
 * Ex1.c -  Janus Services Programming Example #1
 *
 *          Amiga provided service with no data memory.
 *
 *          This program adds an Amiga side service. The service, once
 *          added, waits until it has been called 5 times by the PC
 *          then exits freeing all associated resources.
 *
 * 4-13-89  -  New Code -  Bill Koester
 *
 * Copyright (c) 1989, Commodore Amiga Inc., All rights reserved
 ************************************************************************/
#ifndef LINT_ARGS                      /* Enable type casting in        */
#define LINT_ARGS                      /* Janus includes                */
#endif
#ifndef PRAGMAS                        /* Allow Lattice direct calling  */
#define PRAGMAS                        /* of library functions          */
#endif

#include <janus/janus.h>               /* Janus includes auto include   */
                                       /* any other needed includes     */
                                       /* such as types.h               */

#include "ex1.h"                       /* Service specific definitions  */

struct JanusBase *JanusBase = 0;       /* Declare library base pointer  */

void main();
void main()
{
   SHORT  signum   = -1;               /* Signal number for Service     */
   ULONG  sigmask  = 0;                /* Make a mask for Wait function */
   struct ServiceData *sdata =0;       /* Our ServiceData pointer       */
   int    error;                       /* Generic error variable        */
   int    times=0;                     /* # of times we can be called   */
                                       /* before we die & DeleteService */

   /********************
    * Open Janus.Library
    ********************/
   if((JanusBase = (struct JanusBase *) OpenLibrary(JANUSNAME,0))==0)
   {
#ifdef DEBUG
      puts("Unable to open Janus.Library");
#endif
      goto cleanup;
   }

#ifdef DEBUG
   printf("JanusBase at %lx\n",JanusBase);
#endif

   /***********************
    * Allocate a signal bit
    ***********************/
   if((signum = AllocSignal(-1))== -1)
   {
#ifdef DEBUG
      puts("No free signal bits");
#endif
      goto cleanup;
   }

#ifdef DEBUG
   printf("Signum = %ld\n",signum);
#endif

   /**********************************
    * Create a signal mask for Wait();
    **********************************/
   sigmask = 1 << signum;

   /**********************************************************************
    * Add our new service to the system and don't allocate any
    * Memory
    * Note the flags, ADDS_EXCLUSIVE means that only the PC can GetService
    * us. In addition we specify that we only want to send/get signals
    * to/from the PC, not the Amiga. 
    **********************************************************************/
   error = AddService(&sdata,EX1_APPLICATION_ID,EX1_LOCAL_ID,0L,0L,
                      signum,ADDS_EXCLUSIVE|ADDS_TOPC_ONLY|ADDS_FROMPC_ONLY);

   if(error!=JSERV_OK)
   {
#ifdef DEBUG
      printf("Error adding service! Error = %ld\n",error);
#endif
      goto cleanup;
   }

#ifdef DEBUG
   printf("sdata = %lx\n",sdata);
#endif

   /*********************************************************
    * Ex1 mainloop.
    * Put the GUTS to your service here.
    *********************************************************/
more:
   Wait(sigmask);                      /* wait for someone to call us   */

#ifdef DEBUG
   printf("Ex1 is being called!!!!!\n");
#endif

   /* This is where you do your thing!! */

#ifdef DEBUG
   printf("Ex1 has been called!!!!!\n");
#endif

   /****************************************************************
    * When we are finished with a request we signal the caller(s) by
    * calling our own service. This notifies all users execpt us.
    ****************************************************************/
   CallService(sdata);

   if((times++)<4)
      goto more;                       /* Repeat 5 times then die  */

   /****************************************************************
    * Note: By removing the 'if' statement above and leaving just
    *       the 'goto' the service will be a forever service which
    *       will never exit.
    *       By removing the 'if' and 'goto' the service will become
    *       a 'run once then die' service
    ****************************************************************/

cleanup:
   if(sdata) DeleteService(sdata);
   if(signum!= -1) FreeSignal(signum);
   if(JanusBase) CloseLibrary(JanusBase);
}