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