separated token handling to a separate file

2014-01-04 06:31:14 +00:00
parent dd8a477013
commit b010085d67
6 changed files with 156 additions and 126 deletions
--- a/h2/lib/h2-scheme-token.ads
+++ b/h2/lib/h2-scheme-token.ads
@ -0,0 +1,21 @@
+
+private package H2.Scheme.Token is
+
+	procedure Purge (Interp: in out Interpreter_Record);
+	pragma Inline (Purge);
+
+	procedure Set (Interp: in out Interpreter_Record;
+	                     Kind:   in     Token_Kind;
+	                     Value:  in     Object_String);
+
+	procedure Append_String (Interp: in out Interpreter_Record;
+	                               Value:  in     Object_String);
+	pragma Inline (Append_String);
+
+	procedure Append_Character (Interp: in out Interpreter_Record;
+	                                  Value:  in     Object_Character);
+	pragma Inline (Append_Character);
+
+
+end H2.Scheme.Token;
+