You've already forked libadalang
mirror of
https://github.com/AdaCore/libadalang.git
synced 2026-02-12 12:28:54 -08:00
50 lines
931 B
Plaintext
50 lines
931 B
Plaintext
== Missing file ==
|
|
|
|
Error while parsing preprocessor data file:
|
|
FileReadError: no such file: prep.txt
|
|
|
|
== Syntax error ==
|
|
|
|
Error while parsing preprocessor data file:
|
|
SyntaxError: prep.txt:1:1: Ada source filename expected
|
|
|
|
== Normal (default line mode) ==
|
|
|
|
Preprocessor output on foo.adb:
|
|
1 | with Ada.Text_IO; use Ada.Text_IO;
|
|
2 |
|
|
3 | procedure Foo is
|
|
4 |
|
|
5 | procedure Bar is
|
|
6 | begin
|
|
7 | Put_Line ("$X");
|
|
8 | end Bar;
|
|
9 |
|
|
10 |
|
|
11 |
|
|
12 | begin
|
|
13 | Bar;
|
|
14 | end Foo;
|
|
15 |
|
|
|
|
== Normal (comment line mode) ==
|
|
|
|
Preprocessor output on foo.adb:
|
|
1 | with Ada.Text_IO; use Ada.Text_IO;
|
|
2 |
|
|
3 | procedure Foo is
|
|
4 | --! #if X'Defined then
|
|
5 | procedure Bar is
|
|
6 | begin
|
|
7 | Put_Line ("$X");
|
|
8 | end Bar;
|
|
9 | --! #else
|
|
10 | --! procedure Bar is null;
|
|
11 | --! #end if;
|
|
12 | begin
|
|
13 | Bar;
|
|
14 | end Foo;
|
|
15 |
|
|
|
|
Done
|