8.22 Shellfunktionen

int16_t shel_envrn (int8_t **sh_epvalue, int8_t *sh_eparm)
{
   addr_in[0] = sh_epvalue;
   addr_in[1] = sh_eparm;

   return ( crys_if(125) );
}

• im aktuellen Verzeichnis
• im Wurzelverzeichnis
• in allen Verzeichnissen, die in der Variable PATH des AES-Environments angegeben sind
• in dem Pfad, in welchem sich das Programm z.Zt. befindet (ab TOS-Version 1.04)

int16_t shel_find (int8_t *sh_fpbuff)
{
   addr_in[0] = sh_fpbuff;
   return ( crys_if(124) );
}

int16_t shel_get (int8_t *sh_gaddr, uint16_t sh_glen)
{
   int_in[0]  = sh_glen;
   addr_in[0] = sh_gaddr;

   return ( crys_if(122) );
}

int16_t shel_help ( int16_t sh_hmode, int8_t *sh_hfile,
                    int8_t *sh_hkey)
{
   int_in[0] = sh_hmode;
   addr_in[0] = sh_hfile;
   addr_in[1] = sh_hkey;

   crys_if(128);

   return = int_out[0];
}

int16_t shel_put (int8_t *sh_paddr, uint16_t sh_plen)
{
   int_in[0]  = sh_plen;
   addr_in[0] = sh_paddr;

   return ( crys_if(123) );
}

void shel_rdef (int8_t *lpcmd, int8_t *lpdir)
{
   addr_in[0] = lpcmd;
   addr_in[1] = lpdir;

   crys_if(126);
}

int16_t shel_read (int8_t *sh_rpcmd, int8_t *sh_rptail)
{
   addr_in[0] = sh_rpcmd;
   addr_in[1] = sh_rptail;

   return ( crys_if(120) );
}

int16_t shel_wdef(int8_t *lpcmd, int8_t *lpdir)
{
   addr_in[0] = lpcmd;
   addr_in[1] = lpdir;

   crys_if(127);
}

• sicherstellen, daß man die Applikation mit ID-0 ist
• Pfade und Laufwerk für das neue Programm setzen
• shel_write (TRUE, sh_wisgr, 101, sh_wpcmd, sh_wptail)
• wichtige Einstellungen in Datei/Shell-Puffer sichern
• appl_exit, v_clsvwk, Pterm0 ausführen

• Wird in sh_wptail eine Zeichenkette übergeben, die mit dem Wert 255 beginnt und mit '\0' abgeschlossen ist, wird die tatsächliche Länge der Kommandozeile vom AES bestimmt und in ganzer Länge ans DOS weitergereicht. Das DOS konstruiert hieraus einen ARGV-Parameter im Environment. Ist die Kommandozeile kürzer als 127 Bytes, wird sie über Basepage und per shel_read übergeben, ansonsten besteht sie nur aus dem Byte mit dem Wert 127.
   

• Wird in sh_wptail eine Zeichenkette übergeben, die mit dem Wert 254 beginnt, erwartet das AES dahinter die Zeichenkette "ARGV=irgendwas" und eine durch '\0' getrennte und durch "\0\0" abgeschlossene Liste von Parametern. Diese wird vollständig dem DOS übergeben, das daraus einen ARGV-Parameter konstruiert. Ist die Kommandozeile kürzer als 127 Bytes, wird sie über Basepage und per shel_read übergeben, wobei die Nullbytes durch Leerstellen ersetzt werden, ansonsten besteht sie nur aus dem Byte mit dem Wert 127.
   

int16_t shel_write (int16_t sh_wdoex, int16_t sh_wisgr,
                    int16_t sh_wiscr, int8_t *sh_wpcmd,
                    int8_t *sh_wptail)
{
   int_in[0]  = sh_wdoex;
   int_in[1]  = sh_wisgr;
   int_in[2]  = sh_wiscr;
   addr_in[0] = sh_wpcmd;
   addr_in[1] = sh_wptail;

   return ( crys_if(121) );
}

int sh_error( int err )
{
  switch(err) {
     case -2:
       Cconws( "Disk error" );
     return 1;
     case -1:
       Cconws( "GENEVA.CNF is already in use by another program" );
     return 1;
     case 0:
       Cconws( "Read failed unexpectedly" );
     return 1;
     default:
     return 0;
  }
}

main() {
  char buffer[100];
  int version, number1, number2;

  if( !sh_error( x_shel_get(X_SHOPEN,0,"My Program") ) )
     if( !sh_error( x_shel_get(X_SHACCESS,sizeof(buffer),buffer) ) )
     {
       x_sscanf( buffer, "%v", &version );
       if( version != 0x200 ) {
          Cconws( "Not compatible with version 2.0!" );
          x_shel_get( X_SHCLOSE, 0, 0L );
          return;
       }
       if( !sh_error( x_shel_get(X_SHACCESS,sizeof(buffer),
          buffer) ) )
       x_sscanf( buffer, "%x %d", number1, number2 );
       x_shel_get( X_SHCLOSE, 0, 0L );
     }
}

int16_t x_shel_get ( int16_t mode, int16_t length, int8_t *buf
)
{
   int_in[0] = mode;
   int_in[1] = length;
   addr_in[0] = buf;

   crys_if(29057);

   return ( int_out[0] );
}

int16_t x_shel_put ( int16_t mode, int8_t *buf )
{
   int_in[0] = mode;
   addr_in[0] = buf;

   crys_if(29058);

   return ( int_out[0] );
}