home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / System / EASys / EASys!_update_47x_to_481 / EASys! / Programs / GetLanguage.rexx < prev    next >
OS/2 REXX Batch file  |  2000-06-28  |  1KB  |  76 lines
  1. /* EASys! © TNE 11'99
  2.    GetLanguage Module
  3.    for reading and providing Locale Prefs
  4. */
  5.  
  6. OPTIONS RESULTS
  7. OPTIONS FAILAT 30
  8.  
  9. Language=''
  10.  
  11. IF (open(TEMPFILE, 'ENV:sys/locale.prefs','read')) THEN
  12. DO
  13.   DO i=1 to 50
  14.       r=READCH(TEMPFILE)
  15.   END
  16.  
  17.   Land=''
  18.  
  19.   i=0
  20.   DO UNTIL EOF(TEMPFILE)
  21.       i=i+1
  22.       Char=ReadCh(TEMPFILE)
  23.       IF (C2D(Char)=0) THEN
  24.           LEAVE
  25.       ELSE
  26.           Land=Land''Char
  27.   END
  28.  
  29.   /* 32 characters from begin of Lang_x to begin of Lang_y */
  30.   DO j=i to 31 UNTIL EOF(TEMPFILE)
  31.    r=READCH(TEMPFILE)
  32.   END
  33.  
  34.   Language=ReadLanguage()
  35.   r=Close(TEMPFILE)
  36. END
  37.  
  38. IF (Language='') THEN Language='english'
  39.  
  40. IF getclip('Language')='' THEN QUIT=1
  41. /* do not start Menus at system startup */
  42.  
  43. CALL setclip('Language',Language)
  44. ADDRESS COMMAND 'SetEnv LANGUAGE 'Language
  45.  
  46. IF QUIT=1 THEN EXIT 0
  47.  
  48. ADDRESS COMMAND 'rx EASys!:Prefs/WB_Menu_Restart.rexx ALL'
  49.  
  50. EXIT 0
  51.  
  52. /* ---------------------- */
  53. ReadLanguage:
  54.  
  55.  Langua=''
  56.  
  57.  Langua=ReadCh(TEMPFILE)
  58.  IF (C2D(Langua)=0) THEN RETURN ''
  59.  
  60.  i=1
  61.  DO UNTIL EOF(TEMPFILE)
  62.   i=i+1
  63.   Char=ReadCh(TEMPFILE)
  64.   IF (C2D(Char)=0) THEN
  65.     LEAVE
  66.   ELSE
  67.     Langua=Langua''Char
  68.  END
  69.  
  70.  /* 30 characters from begin of Lang_x to begin of Lang_y */
  71.  DO j=i to 29 UNTIL EOF(TEMPFILE)
  72.     r=READCH(TEMPFILE)
  73.  END
  74.  
  75. RETURN Langua
  76.