https://github.com/zertovitch/hac/tree/master 

"HAC is perhaps the first open-source (albeit very partial) Ada compiler fully 
programmed in Ada itself."



According to some IA, HAC generate bytecode, and should be easily compilable 
with GNAT from DJGPP.



The result would be an interpreted limited ADA for DOS/DJGPP.



I wonder if this would be interesting, because ADA have a syntax similar to 
Pascal... here a demo in HAC source code:

-----------------------------------------

--  HAC <-> Native data exchange demo  --

-----------------------------------------

--  HAC side (simple version)          --

-----------------------------------------



--  This file is meant to be compiled by the HAC compiler which is

--  embedded in Exchange_Native_Side_Simple (exchange_native_side_simple.adb).



with HAT;



procedure Exchange_HAC_Side_Simple is



  use HAT;



  procedure In_Out_Callback (i : in out Integer) with Import => True;



  x : Integer := 1234;



begin



  HAT.Put_Line ("   [HAC]: before callback, variable x has value:" & x'Image);



  In_Out_Callback (x);



  HAT.Put_Line ("   [HAC]: after callback, variable x has value:" & x'Image);



end Exchange_HAC_Side_Simple;

A similar long-term project been discussed for a Pascal interpreter/compiler in 
monthly talks.

Wondering if this seems interesting to you.

Frankly, did not even downloaded the project yet.

The fact that it is a mostly toy project, also means it is small and so more 
easily understandable and so easier to edit and adapt.
_______________________________________________
Freedos-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/freedos-devel

Reply via email to