Topic       : TOS - das Betriebssystem
Author      : 
Version     : tos.hyp (5. März 2013)
Subject     : Programmieren/Atari
Nodes       : 3001
Index Size  : 93602
HCP-Version : 5
Compiled on : Atari
@charset    : atarist
@lang       : 
@default    : Titel
@help       : 
@options    : +g -i -s +x +zz -t4
@width      : 70
View Ref-File8.3.5.2  appl_xgetinfo                                             TOS

/* Der folgende Code testet, ob appl_getinfo in der aktuellen
   Systemumgebung zur Verfügung steht, und ruft im positiven
   Fall die besagte Funktion auf.

   Es bietet sich an, statt appl_getinfo nur appl_xgetinfo
   in eigenen Programmen zu verwenden. */


GLOBAL int16_t appl_xgetinfo ( int16_t type, int16_t *out1, int16_t *out2,
                            int16_t *out3, int16_t *out4 )
{

   BOOLEAN has_agi = FALSE;

   has_agi = ((_GemParBlk.global[0] == 0x399 && (is_MagiC() >= 0x0200))
             || (_GemParBlk.global[0] >= 0x400)
             || (appl_find ("?AGI") >= 0));

   if (has_agi)
      return (appl_getinfo (type, out1, out2, out3, out4));
   else
      return (0);
} /* appl_xgetinfo */

Die Abfrage is_MagiC ist eine Funktion, welche den MagiC-Cookie 
auswertet und die Versionsnummer zurückliefert. Dies ist notwendig da 
bereits MagiC 2 die Funktion appl_getinfo kennt, allerdings noch nicht 
die Abfrage per "?AGI" erlaubt.

Querverweis: Applikationen   GEM   Style-Guidelines