-
Notifications
You must be signed in to change notification settings - Fork 1
/
hellish.gpr
95 lines (83 loc) · 3.06 KB
/
hellish.gpr
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
-- Submodules
with "deps/libsodium-ada/default.gpr";
with "obj/aws/share/gpr/aws.gpr";
with "config/hellish_config.gpr";
project Hellish is
for Source_Dirs use ("src", "src/hellish_web", "db");
for Object_Dir use "obj";
for Create_Missing_Dirs use "True";
for Exec_Dir use "bin";
for Main use ("hellish.adb");
type Enabled_Kind is ("enabled", "disabled");
Compile_Checks : Enabled_Kind := External ("HELLISH_COMPILE_CHECKS", "enabled");
Runtime_Checks : Enabled_Kind := External ("HELLISH_RUNTIME_CHECKS", "disabled");
Style_Checks : Enabled_Kind := External ("HELLISH_STYLE_CHECKS", "disabled");
Contracts_Checks : Enabled_Kind := External ("HELLISH_CONTRACTS", "disabled");
type Build_Kind is ("debug", "optimize");
Build_Mode : Build_Kind := External ("HELLISH_BUILD_MODE", "optimize");
Compile_Checks_Switches := ();
case Compile_Checks is
when "enabled" =>
Compile_Checks_Switches :=
("-gnatwa", -- All warnings
"-gnatVa", -- All validity checks
"-gnatwK"); -- No "could be constant" warnings
when others => null;
end case;
Runtime_Checks_Switches := ();
case Runtime_Checks is
when "enabled" => null;
when others =>
Runtime_Checks_Switches :=
("-gnatp"); -- Suppress checks
end case;
Style_Checks_Switches := ();
case Style_Checks is
when "enabled" =>
Style_Checks_Switches :=
("-gnatyg", -- GNAT Style checks
"-gnaty-d", -- Disable no DOS line terminators
"-gnatyM80", -- Maximum line length
"-gnatyO"); -- Overriding subprograms explicitly marked as such
when others => null;
end case;
Contracts_Switches := ();
case Contracts_Checks is
when "enabled" =>
Contracts_Switches :=
("-gnata"); -- Enable assertions and contracts
when others => null;
end case;
Build_Switches := ();
case Build_Mode is
when "optimize" =>
Build_Switches := ("-O3", -- Optimization
"-gnatn"); -- Enable inlining
when "debug" =>
Build_Switches := ("-g", -- Debug info
"-Og"); -- No optimization
end case;
package Compiler is
for Default_Switches ("Ada") use
Compile_Checks_Switches &
Build_Switches &
Runtime_Checks_Switches &
Style_Checks_Switches &
Contracts_Switches &
("-gnatw.X", -- Disable warnings for No_Exception_Propagation
"-gnatQ", -- Don't quit. Generate ALI and tree files even if illegalities
"-gnatf",
"-gnatv",
"-gnatwI",
"-gnat2022");
end Compiler;
package Binder is
for Switches ("Ada") use ("-Es", "-static"); -- Symbolic traceback
end Binder;
package Linker is
for Switches ("Ada") use ("-lsodium",
"-lssl", "-lcrypto",
"-Lobj/md4c/src/", "-lmd4c-html", "-lmd4c",
"-Lobj/lexbor/", "-llexbor_static");
end Linker;
end Hellish;