Skip to content

Commit

Permalink
Add a dummy executable so that alr has something to build.
Browse files Browse the repository at this point in the history
  • Loading branch information
BrentSeidel committed Jul 6, 2022
1 parent 821519f commit ab29e1a
Show file tree
Hide file tree
Showing 6 changed files with 35 additions and 11 deletions.
5 changes: 5 additions & 0 deletions .gitignore
Original file line number Diff line number Diff line change
Expand Up @@ -12,5 +12,10 @@
*.lexch
*.gcno
*.cgpr
*.bexch

# Other files
b__dummy_main1.*
dummy_main1

.#bbs-units.adb#
12 changes: 6 additions & 6 deletions bbs-info.ads
Original file line number Diff line number Diff line change
Expand Up @@ -4,10 +4,10 @@ package BBS.info is
-- This file is auto generated by the build script. It should not
-- be edited by hand.
--
name : constant String := "Tiny Lisp";
timestamp : constant String := "Fri Sep 3 09:03:26 MST 2021";
build_date : constant String := "2021-Sep-03";
version_string : constant String := "V01.01";
version_date : constant Integer := 20210903; -- yyyymmdd
version_number : constant Integer := 2;
name : constant String := "BBS Root";
timestamp : constant String := "Tue Jul 5 19:42:37 MST 2022";
build_date : constant String := "2022-Jul-05";
version_string : constant String := "V01.04";
version_date : constant Integer := 20220705; -- yyyymmdd
version_number : constant Integer := 3;
end;
4 changes: 3 additions & 1 deletion bbs.gpr
Original file line number Diff line number Diff line change
@@ -1,5 +1,7 @@
project BBS is

for Source_Dirs use (".", "src/**");

package Pretty_Printer is
for Default_Switches ("ada") use ("-i2");
end Pretty_Printer;
Expand All @@ -8,7 +10,7 @@ project BBS is
for Vcs_Kind use "git";
end Ide;

for Source_Dirs use (".", "src/**");
for Main use ("dummy_main1.adb");

end BBS;

4 changes: 3 additions & 1 deletion bbs_raven.gpr
Original file line number Diff line number Diff line change
@@ -1,5 +1,7 @@
project BBS_Raven is

for Source_Dirs use (".", "src-raven/**");

package Pretty_Printer is
for Default_Switches ("ada") use ("-i2");
end Pretty_Printer;
Expand All @@ -8,7 +10,7 @@ project BBS_Raven is
for Vcs_Kind use "git";
end Ide;

for Source_Dirs use (".", "src-raven/**");
for Main use ("dummy_main1.adb");

end BBS_Raven;

15 changes: 15 additions & 0 deletions dummy_main1.adb
Original file line number Diff line number Diff line change
@@ -0,0 +1,15 @@
with Ada.Text_IO;
with BBS.info;
--
-- This is a simple shell routine to call the embedded lisp interpreter.
--
procedure dummy_main1 is
begin
Ada.Text_IO.Put_Line("BBS root package");
Ada.Text_IO.Put_Line("Name: " & BBS.info.name);
Ada.Text_IO.Put_Line("Timestamp: " & BBS.info.timestamp);
Ada.Text_IO.Put_Line("Build date: " & BBS.info.build_date);
Ada.Text_IO.Put_Line("Version string: " & BBS.info.version_string);
Ada.Text_IO.Put_Line("Version date: " & Integer'Image(BBS.info.version_date));
Ada.Text_IO.Put_Line("Version number: " & Integer'Image(BBS.info.version_number));
end dummy_main1;
6 changes: 3 additions & 3 deletions scripts/make_info
Original file line number Diff line number Diff line change
Expand Up @@ -11,11 +11,11 @@ package BBS.info is
-- This file is auto generated by the build script. It should not
-- be edited by hand.
--
name : constant String := "Tiny Lisp";
name : constant String := "BBS Root";
timestamp : constant String := "`date`";
build_date : constant String := "`date +"%Y-%b-%d"`";
version_string : constant String := "V01.01";
version_string : constant String := "V01.04";
version_date : constant Integer := `date +"%Y%m%d"`; -- yyyymmdd
version_number : constant Integer := 2;
version_number : constant Integer := 3;
end;
EOF

0 comments on commit ab29e1a

Please sign in to comment.