/* * check-stateless * * Complete check of a stateless encoding. * Usage: check-stateless SRCDIR CHARSET */ IF RxFuncQuery('SysLoadFuncs') THEN DO CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs' CALL SysLoadFuncs END '@echo off' PARSE ARG srcdir charset '.\table-from 'charset' > tmp-'charset'.TXT' '.\table-to 'charset' | sort > tmp-'charset'.INVERSE.TXT' 'cmp 'srcdir'\'charset'.TXT tmp-'charset'.TXT' IF exists(srcdir'\'charset'.IRREVERSIBLE.TXT') = 1 THEN DO 'cat 'srcdir'\'charset'.TXT 'srcdir'\'charset'.IRREVERSIBLE.TXT | sort | uniq -u > tmp-orig-'charset'.INVERSE.TXT' 'cmp tmp-orig-'charset'.INVERSE.TXT tmp-'charset'.INVERSE.TXT' END ELSE DO 'cmp 'srcdir'\'charset'.TXT tmp-'charset'.INVERSE.TXT' END 'rm -f tmp-'charset'.TXT tmp-'charset'.INVERSE.TXT tmp-orig-'charset'.INVERSE.TXT' EXIT /* * exists - check if file exists */ exists: PROCEDURE IF STREAM(ARG(1), 'C', 'QUERY EXISTS') = '' THEN RETURN 0 ELSE RETURN 1