1/* 2 * check-translit 3 * 4 * Simple check of transliteration facilities. 5 * Usage: check-translit SRCDIR FILE FROMCODE TOCODE 6 */ 7 8IF RxFuncQuery('SysLoadFuncs') THEN DO 9 CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs' 10 CALL SysLoadFuncs 11END 12 13'@echo off' 14 15PARSE ARG srcdir file fromcode tocode 16 17'..\src\iconv -f 'fromcode' -t 'tocode'//TRANSLIT < 'srcdir'\'file'.'fromcode' > tmp' 18'cmp 'srcdir'\'file'.'tocode' tmp' 19'rm -f tmp' 20EXIT 21