8.22 Shell library

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) );
}

• In the current directory
• In the root directory
• In all directories specified in the environmental variable 'PATH' of the AES
• In the path of the calling application (as of 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) );
}

int16_t 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) );
}

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

   crys_if(127);
}

• Ensure that I am application #0 (i.e. ap_id == 0)
• Set paths and drive for the new program
• shel_write (TRUE, sh_wisgr, 101, sh_wpcmd, sh_wptail)
• All important settings to temporary file or shell-buffer
• appl_exit, v_clsvwk, Pterm0 execute

• If a character string is passed in sh_wptail that starts with the value 255 and is terminated with '\0', the actual length of the command line is determined by the AES and passed at full length to the DOS. DOS constructs from this an ARGV parameter in the environment. If the command line is shorter than 127 bytes, it is passed via the basepage and with shel_read, else it consists only of the byte with the value 127.
   

• If a character string is passed in sh_wptail that starts with the value 254, then the AES expects after this a character string 'ARGV=something' and a '\0'-separated and with '\0\0'-terminated list of parameters. This is passed completely to the DOS, which constructs an ARGV parameter from this. If the command line is shorter than 127 bytes, it is passed via the basepage and with shel_read, where the NULLbytes are replaced with spaces, else it consists only of the byte with the value 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] );
}