/* | |
* check-translit | |
* | |
* Simple check of transliteration facilities. | |
* Usage: check-translit SRCDIR FILE FROMCODE TOCODE | |
*/ | |
IF RxFuncQuery('SysLoadFuncs') THEN DO | |
CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs' | |
CALL SysLoadFuncs | |
END | |
'@echo off' | |
PARSE ARG srcdir file fromcode tocode | |
'..\src\iconv --binary -f 'fromcode' -t 'tocode'//TRANSLIT < 'srcdir'\'file'.'fromcode' > tmp' | |
'cmp 'srcdir'\'file'.'tocode' tmp' | |
'rm -f tmp' | |
EXIT |