Overview
| Comment: | sxcat: abort with error status on newline encoding parse error |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
2e6bc3b47c5e8c0bd4e3965de2bf5061 |
| User & Date: | nat on 2014-08-02 21:19:25 |
| Other Links: | manifest | tags |
Context
|
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 | |
|
2014-08-01
| ||
| 20:35 | tools/tests.sh: add a fully-covering test suite for `sxcat` tool check-in: 9bea00c392 user: nat tags: trunk | |
Changes
Modified tools/sxcat.adb from [009d31e9ec] to [2c25dd919c].
| ︙ | ︙ | |||
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;
|
| ︙ | ︙ |