home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / iacc11b2.zip / readme.cmd < prev   
OS/2 REXX Batch file  |  2002-03-22  |  2KB  |  67 lines
  1. /*
  2.  *      README.CMD - Internet Assistant for OS/2 V1.10 - C.Langanke 2001
  3.  *      for Team OS/2 Deutschland e.V.
  4.  *
  5.  *      Syntax: README
  6.  */
  7.  
  8.  rc      = 0;
  9.  env     = 'OS2ENVIRONMENT';
  10.  CallDir = GetCallDir();
  11.  
  12.  call RxFuncAdd    'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  13.  call SysLoadFuncs
  14.  
  15.  LanguageStem = GetLanguageStem();
  16.  '@start view  inf\ia'LanguageStem '"Internet"'
  17.  
  18.  EXIT(rc);
  19.  
  20. /* ------------------------------------------------------------------------- */
  21. GetCalldir: PROCEDURE
  22. PARSE SOURCE . . CallName
  23.  CallDir = FILESPEC('Drive', CallName)||FILESPEC('Path', CallName);
  24.  RETURN(LEFT(CallDir, LENGTH(CallDir) - 1));
  25.  
  26. /* ------------------------------------------------------------------------- */
  27. GetInstDrive: PROCEDURE EXPOSE env
  28.  ARG DirName, EnvVarName
  29.  
  30.  IF (DirName = '') THEN DirName = '\OS2';
  31.  
  32.  IF (EnvVarName = '') THEN EnvVarName = 'PATH';
  33.  
  34.  PathValue = TRANSLATE(VALUE(EnvVarName,,env));
  35.  
  36.  DirName = TRANSLATE(':'DirName';');
  37.  EntryPos = POS(DirName, PathValue) - 1;
  38.  IF (EntryPos = -1) THEN
  39.     RETURN('');
  40.  InstDrive = SUBSTR(PathValue, EntryPos, 2);
  41.  RETURN(InstDrive);
  42.  
  43. /* ========================================================================= */
  44. GetLanguageStem: PROCEDURE EXPOSE env
  45.  
  46.  ValidLanguageCodes = '0   U   G   D   F   H   S   I   W   N   F   J   P   B   C   T   O';
  47.  ValidLanguageStems = 'ENG ENG DEU DAN FRA NDL ESP ITA SVE NOR FIN JPN PTG PTB FRC TWN POL';
  48.  
  49.  LanguageStem = SysIni(, 'iaos2', 'LANGUAGESTEM');
  50.  IF (LanguageStem = 'ERROR:') THEN
  51.  DO
  52.     BootDrive    = GetInstDrive();
  53.     SyslevelFile = BootDrive'\OS2\INSTALL\SYSLEVEL.OS2';
  54.     LanguageCode = CHARIN( SyslevelFile, 47, 1);
  55.     rcx = STREAM( SyslevelFile, 'C', 'CLOSE');
  56.     index = WORDPOS( LanguageCode, ValidLanguageCodes);
  57.     IF (index > 0) THEN
  58.        LanguageStem = WORD( ValidLanguageStems, index);
  59.     ELSE
  60.        LanguageStem = 'eng';
  61.  END;
  62.  ELSE
  63.     LanguageStem = LEFT( LanguageStem, POS( D2C( 0), LanguageStem) - 1);
  64.  
  65.  RETURN( LanguageStem);
  66.  
  67.