kc3-lang/libiconv/tests/check-stateless.cmd

• Show log

  Commit

• Hash : 84b6a3e8
  Author :
  Date : 2000-07-04T14:48:49
  

  Support for OS/2 using emx+gcc.
  

Download

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

DO
    'cmp 'srcdir'\'charset'.TXT tmp-'charset'.INVERSE.TXT'
END

IF STREAM(ARG(1), 'C', 'QUERY EXISTS') = '' THEN
    RETURN 0
ELSE
    RETURN 1

Source

• tests/check-stateless.cmd

• /*
   * 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
  

Download