Natools

Check-in [fc6a5f0338]
Login
Overview
Comment:sxcat: fix parsing of the second entity in parsing separator arguments
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: fc6a5f0338328fc53a44db7126c200f649951c64
User & Date: nat on 2014-08-03 20:04:14
Other Links: manifest | tags
Context
2014-08-04
20:26
s_expressions-printers-pretty: fix size estimation of verbatim encoding check-in: 87d479c3f0 user: nat tags: trunk
2014-08-03
20:04
sxcat: fix parsing of the second entity in parsing separator arguments check-in: fc6a5f0338 user: nat tags: trunk
2014-08-02
21:19
sxcat: abort with error status on newline encoding parse error check-in: 2e6bc3b47c user: nat tags: trunk
Changes

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

512
513
514
515
516
517
518
519

520
521
522
523
524
525
526
512
513
514
515
516
517
518

519
520
521
522
523
524
525
526







-
+







      Result : SE.Printers.Pretty.Entity_Separator
        := (others => (others => False));
   begin
      while I + 1 in Image'Range loop
         Parse (Image (I), Before, Valid);

         if Valid then
            Parse (Image (I), After, Valid);
            Parse (Image (I + 1), After, Valid);

            if Valid then
               Result (Before, After) := True;
            end if;

            I := I + 1;
         end if;