8.3 Application library

int16_t appl_bvset (uint16_t bvdisk, uint16_t bvhard)
{
   int_in[0]  = bvdisk;
   int_in[1]  = bvhard;
   return ( crys_if(16) );
}

int16_t appl_control ( int16_t ap_cid, int16_t ap_cwhat,
                       void *ap_cout);
{
   int_in[0]  = ap_cid;
   int_in[1]  = ap_cwhat;
   addr_in[0] = ap_cout;

   return ( crys_if(129) );
}

int16_t appl_exit (void)
{
   return ( crys_if(19) );
}

int16_t appl_find (CONST int8_t *ap_fpname)
{
   addr_in[0] = ap_fpname;
   return ( crys_if(13) );
}

int16_t appl_getinfo (int16_t ap_gtype, int16_t *ap_gout1,
                      int16_t *ap_gout2, int16_t *ap_gout3,
                      int16_t *ap_gout4)
{
   int_in[0] = ap_gtype;

   crys_if (130);

   *ap_gout1 = int_out[1];
   *ap_gout2 = int_out[2];
   *ap_gout3 = int_out[3];
   *ap_gout4 = int_out[4];

   return ( int_out[0] );
}

int16_t appl_getinfo_str(int16_t ap_gtype, int16_t *ap_gout1,
                         int16_t *ap_gout2, int16_t *ap_gout3,
                         int16_t *ap_gout4)
{
   int_in[0] = ap_gtype;

   addr_in[0] = (int32_t)ap_out1;
   addr_in[1] = (int32_t)ap_out2;
   addr_in[2] = (int32_t)ap_out3;
   addr_in[3] = (int32_t)ap_out4;

   crys_if (130);

   return ( int_out[0] );
}

int16_t appl_getcicon (int16_t type,const char *name,int16_t size,
                        int16_t *cicon_width,int16_t *cicon_height
                        CICON **cicon_data)
{
   int_in[0] = type;
   int_in[1] = size;

   addr_in[0] = name;

   addr_out[0] = (void *)cicon_data;

   crys_if (131);

   *cicon_width = int_out[1];
   *cicon_height = int_out[2];

   return ( int_out[0] );
}

• Write the value 0 in global[0]
• Call function appl_init
• Inspect global field (global[0]): If there is still a zero there, then the AES is not yet ready for operation and the program was started from the AUTO folder.

EXTERN AESPB c;

int16_t appl_init (void)
{
   c.cb_pcontrol = control;
   c.cb_pglobal  = global;
   c.cb_pintin   = int_in;
   c.cb_pintout  = int_out;
   c.cb_padrin   = addr_in;
   c.cb_padrout  = addr_out;

   control[4] = 0;
   crys_if (10);

   return (int_out[0]);
}

int16_t appl_options(int16_t mode,
                int16_t aopts0, int16_t aopts1,
                int16_t aopts2, int16_t aopt3,
                int16_t *out0, int16_t *out1,
                int16_t *out2, int16_t *out3)
{
   int_in[0]  = mode;
   int_in[1]  = aopts0;
   int_in[2]  = aopts1;
   int_in[3]  = aopts2;
   int_in[4]  = aopts3;

   crys_if(137);

  *out0 = int_out[1];
  *out1 = int_out[2];
  *out2 = int_out[3];
  *out3 = int_out[4];

  return ( int_out[0] );
}

int16_t appl_read (int16_t ap_rid, int16_t ap_rlength,
                   void *ap_rpbuff)
{
   int_in[0]  = ap_rid;
   int_in[1]  = ap_rlength;
   addr_in[0] = ap_rpbuff;

   return ( crys_if(11) );
}

• X_APS_CHEXIT (-1)
  Retrieves the name, ID, and type of the last application to exit. This makes it possible for a program which receives a CH_EXIT notice to determine the name of the program which exited. Note that this information is not buffered; this means that if one process terminates and its parent does not make the appl_search call before a second one does, the information will no longer reflect the first process which terminated.
   

• X_APS_CHILD0 (0x7100)
  Retrieve the data concerning the child of the current application which has the lowest application ID. (This is not necessarily the first child application the parent ran.)
   

• X_APS_CHILD (0x7101)
  Retrieve the data for each additional child of the current application.
   

int16_t appl_search (int16_t ap_smode, int8_t *ap_sname,
                     int16_t *ap_stype, int16_t *ap_sid)
{
   int_in[0]  = ap_smode;
   addr_in[0] = ap_sname;

  crys_if(18);

  *ap_stype = int_out[1];
  *ap_sid   = int_out[2];

   return ( int_out[0] );
}

int16_t appl_tplay (APPLRECORD *ap_tpmem, int16_t ap_tpnum,
                    int16_t ap_tpscale)
{
   int_in[0]  = ap_tpnum;
   int_in[1]  = ap_tpscale;
   addr_in[0] = ap_tpmem;

   return ( crys_if(14) );
}

int16_t appl_trecord (APPLRECORD *ap_tbuffer,
                      int16_t ap_trcount)
{
   int_in[0]  = ap_trcount;
   addr_in[0] = ap_tbuffer;

   return ( crys_if(15) );
}

int16_t appl_write (int16_t ap_wid, int16_t ap_wlength,
                    void *ap_wpbuff)
{
   int_in[0]  = ap_wid;
   int_in[1]  = ap_wlength;
   addr_in[0] = ap_wpbuff;

   return ( crys_if(12) );
}

int16_t appl_xbvget (uint32_t *bvdisk, uint32_t *bvhard)
{
   int_in[0]  = 0;

   crys_if(18);

   *bvdisk = int_out[1..2];
   *bvhard = int_out[3..4];

   return ( int_out[0] );
}

int16_t appl_xbvset (uint32_t bvdisk, uint32_t bvhard)
{
   int_in[0]  = 1;
   addr_in[0] = bvdisk;
   addr_in[1] = bvhard;

   return ( crys_if(18) );
}

int16_t appl_yield (void)
{
   return ( crys_if(17) );
}

_appl_yield:    move.l  a2,-(sp)
                move.w  #201,d0         ; _appl_yield()
                trap    #2
                movea.l (sp)+,a2
                rts

int16_t x_appl_flags( int16_t getset, int16_t index,
                      APPFLAGS *flags )
{
   int_in[0]  = getset;
   int_in[1]  = index;
   addr_in[0] = flags;
   return ( crys_if(28928) );
}

XFONTINFO info = { -2, -2, -2, -2 };
x_appl_font( 0, 0, &info ); /* Get default values            */
x_appl_font( 1, 0, &info ); /* Set to these values           */

Is the same as:

XFONTINFO info = { -2, -2, -2, -2 };
x_appl_font( 1, 0, &info ); /* Set to default values         */

Set it to something else:

XFONTINFO info = { 1,       /* Select the system font        */
                  10,       /* 10 point (8 x 16)             */
                   5,       /* Widget width = 8 + 5 pixels   */
                   4 };     /* Widget height = 16 + 4 pixels */
x_appl_font( 1, 0, &info );

• Only Monospaced fonts should be used.
   

• While Geneva will work properly with any size font, some programs may not function properly with larger or smaller fonts. This is especially true when it comes to fonts which are more than 8 pixels wide.
   

int16_t x_appl_font( int16_t getset, int16_t zero,
                     XFONTINFO *info );
{
   int_in[0]  = getset;
   int_in[1]  = zero;
   addr_in[0] = info;
   return ( crys_if(28929) );
}

• There is no application with the ID specified.
• The application was the only program awake and the user tried to put it to sleep.
• The application has a single-tasking child.

int16_t x_appl_sleep( int16_t id, int16_t sleep );
{
   int_in[0]  = id;
   int_in[1]  = sleep;
   return ( crys_if(28930) );
}

• apid is the application ID of the application to be terminated.
• retrn is a value which is returned to the program which launched the application; this should usually correspond to a GEMDOS error number, or 0 for no error.
• The set_me parameter must always be non-zero.

int16_t x_appl_term( int16_t apid, int16_t retrn,
                     int16_t set_me )
{
   int_in[0]  = apid;
   int_in[1]  = retrn;
   int_in[2]  = set_me;
   return ( crys_if(28931) );
}