Natools

         case C is
            when '(' | 'o' | 'O' =>
               Entity := SE.Printers.Pretty.Opening;
               Valid := True;
            when ')' | 'c' | 'C' =>
               Entity := SE.Printers.Pretty.Closing;
               Valid := True;
            when 'a' | 'A' | 'd' | 'D' =>
            when 'a' | 'A' | 'd' | 'D' | 'x' | 'X' =>
               Entity := SE.Printers.Pretty.Atom_Data;
               Valid := True;
            when others =>
               Valid := False;
         end case;
      end Parse;

	    | diff -u "${TMP_EXPT}" -
	then
		echo "sxcat latin-1 width test failed"
		RET_VAL="1"
	fi

	${BIN_DIR}/sxcat --ext-token --indent 3st --hex-atom --escape-hex \
	    --no-quoted --no-token --newline ')d,)(,oo,d(' --space 'dd' \
	    --no-quoted --no-token --newline ')d,)(,oo,x(' --space 'dd' \
	    --width 80 --nl cr-lf --unix --lower --dump >"${TMP_DEST}"

	if ! ${BIN_DIR}/sxcat --config "${TMP_DEST}" --dump \
	    | diff -u "${TMP_DEST}" -
	then
		echo "sxcat configuration reload test failed"
		RET_VAL="1"