| /* |
| * check-stateful |
| * |
| * Simple check of a stateful encoding. |
| * Usage: check-stateful SRCDIR CHARSET |
| */ |
| |
| IF RxFuncQuery('SysLoadFuncs') THEN DO |
| CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs' |
| CALL SysLoadFuncs |
| END |
| |
| '@echo off' |
| |
| PARSE ARG srcdir charset |
| |
| '..\src\iconv -f 'charset' -t UTF-8 < 'srcdir'\'charset'-snippet > tmp-snippet' |
| 'cmp 'srcdir'\'charset'-snippet.UTF-8 tmp-snippet' |
| '..\src\iconv -f UTF-8 -t 'charset' < 'srcdir'\'charset'-snippet.UTF-8 > tmp-snippet' |
| 'cmp 'srcdir'\'charset'-snippet tmp-snippet' |
| 'rm -f tmp-snippet' |
| |
| EXIT |