Natools

Check-in [fafeac7b41]
Login
Overview
Comment:sxcat: also allow 'x' to represent atoms in separator arguments
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: fafeac7b41f40464305e21822784ca8a12745e97
User & Date: nat on 2014-08-07 21:03:41
Other Links: manifest | tags
Context
2014-08-09
10:37
s_expressions-atom_buffers: add a capacity accessor check-in: 43ab20ac63 user: nat tags: trunk
2014-08-07
21:03
sxcat: also allow 'x' to represent atoms in separator arguments check-in: fafeac7b41 user: nat tags: trunk
2014-08-04
20:26
s_expressions-printers-pretty: fix size estimation of verbatim encoding check-in: 87d479c3f0 user: nat tags: trunk
Changes

Modified tools/sxcat.adb from [9e7b6d9b79] to [9d7ec778ba].

494
495
496
497
498
499
500
501

502
503
504
505
506
507
508
494
495
496
497
498
499
500

501
502
503
504
505
506
507
508







-
+







         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;

Modified tools/tests.sh from [08f2e47615] to [da12e56c43].

204
205
206
207
208
209
210
211

212
213
214
215
216
217
218
204
205
206
207
208
209
210

211
212
213
214
215
216
217
218







-
+







	    | 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"