/* SETDICT.CMD
 * Set the dictionaries used by IMERJ.
 */
CALL RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
CALL SysLoadFuncs

PARSE ARG which dictionary

IF which == '' | dictionary == '' THEN DO
    PARSE VALUE SOURCELINE(1) WITH 4 script
    PARSE VALUE SOURCELINE(2) WITH 4 desc
    SAY script '-' desc
    SAY
    SAY 'Usage:' script '<type> <dictionary-file>'
    SAY 'where type is:'
    SAY '  E  EDICT'
    SAY '  K  KANJIDIC'
    SAY '  A  Auxiliary'
    RETURN 0
END

os2_ini = VALUE('USER_INI',,'OS2ENVIRONMENT')
inipath = FILESPEC('DRIVE', os2_ini ) || FILESPEC('PATH', os2_ini )
IF inipath == '' THEN inipath = SysBootDrive() || '\OS2'
imerj_ini = inipath'IMERJ.INI'

which = TRANSLATE( which )
SELECT
    WHEN which == 'E' THEN key = 'EDICT'
    WHEN which == 'K' THEN key = 'KANJIDIC'
    WHEN which == 'A' THEN key = 'AUXDICT'
    OTHERWISE DO
        SAY 'Unknown dictionary type.'
        RETURN  1
    END
END

CALL SysIni imerj_ini, 'Options', key, dictionary

RETURN 0