[jackhill/mal.git] / ada / reader.ads

with Types;

package Reader is

   Max_Line_Len : constant := 2048;

   -- This is the Parser (returns an AST)
   function Read_Str (S : String) return Types.Mal_Handle;
   
private

   procedure Lex_Init (S : String);

   function Get_Token return Types.Mal_Handle;

end Reader;
Commit	Line	Data
673ee61c CM	1	with Types;
	2
	3	package Reader is
	4
6d91af72	5	Max_Line_Len : constant := 2048;
7895cb30	6
673ee61c	7	-- This is the Parser (returns an AST)
fbad73cb	8	function Read_Str (S : String) return Types.Mal_Handle;
673ee61c	9
8c49f5a7 CM	10	private
	11
	12	procedure Lex_Init (S : String);
	13
	14	function Get_Token return Types.Mal_Handle;
	15
673ee61c	16	end Reader;