Differences From Artifact [009d31e9ec]:
- File tools/sxcat.adb — part of check-in [7fadcee47a] at 2014-07-20 19:03:43 on branch trunk — sxcat: new tool to concatenate and pretty-print S-expressions (user: nat, size: 30361) [annotate] [blame] [check-ins using]
To Artifact [2c25dd919c]:
- File tools/sxcat.adb — part of check-in [2e6bc3b47c] at 2014-08-02 21:19:25 on branch trunk — sxcat: abort with error status on newline encoding parse error (user: nat, size: 30412) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
381 382 383 384 385 386 387 388 389 390 391 392 393 394 |
raise Constraint_Error;
end case;
exception
when Constraint_Error =>
Ada.Text_IO.Put_Line
(Ada.Text_IO.Current_Error,
"Invalid newline encoding """ & Argument & '"');
end;
when Options.No_Quoted =>
Param.Quoted := SE.Printers.Pretty.No_Quoted;
when Options.No_Indent =>
Param.Indentation := 0;
| > | 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 |
raise Constraint_Error;
end case;
exception
when Constraint_Error =>
Ada.Text_IO.Put_Line
(Ada.Text_IO.Current_Error,
"Invalid newline encoding """ & Argument & '"');
Handler.Action := Options.Error;
end;
when Options.No_Quoted =>
Param.Quoted := SE.Printers.Pretty.No_Quoted;
when Options.No_Indent =>
Param.Indentation := 0;
|
| ︙ | ︙ |