hcl/lib2/h3-compilers.ads

with H3.Runes;
with H3.Strings;
with Ada.Text_IO;

generic
	type Rune_Type is (<>);
package H3.Compilers is
	package R is new H3.Runes(Rune_Type);
	package S is new H3.Strings(Rune_Type);

	Syntax_Error: exception;

	type Compiler is tagged limited private;

	procedure Feed (C: in out Compiler; Data: in S.Rune_Array);
	procedure End_Feed (C: in out Compiler);

private
	type Lexer_State is (
		LX_START,
		LX_COMMENT,
		LX_DIRECTIVE,
		LX_IDENT,
		LX_NUMBER,
		LX_OP_GREATER,
		LX_OP_LESS
	);
	type Lexer is record
		State: Lexer_State := LX_START;
	end record;

	type Stream is record
		Handle: Ada.Text_IO.File_Type;
		--Handle: System_Size;
	end record;

	type Stream_Array is array(System_Index range <>) of Stream;
	type Stream_Stack(Capa: System_Index) is record
		Items: Stream_Array(System_Index'First .. Capa);
		Top: System_Size := 0;
	end record;
	
	type Token_Id is (
		TK_BSTR,
		TK_BYTE,
		TK_CHAR,
		TK_CSTR,
		TK_DIRECTIVE,
		TK_EOF,
		TK_EOL,
		TK_IDENT,
		TK_GE,
		TK_GT,
		TK_LE,
		TK_LT,
		TK_SEMICOLON
	);
	type Token is record
		Id: Token_Id := TK_EOF;
		Buf: S.Elastic_String;
	end record;

	type Parser_State is (
		PS_START,
		PS_INCLUDE
	);
	type Parser is record
		State: Parser_State := PS_START;
	end record;

	type Compiler is tagged limited record
		Lx: Lexer;
		Tk: Token;
		Ps: Parser;
		St: Stream_Stack(32);
	end record;
end H3.Compilers;