summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--example/sentence.adb6
-rw-r--r--src/packrat-text.ads37
2 files changed, 3 insertions, 40 deletions
diff --git a/example/sentence.adb b/example/sentence.adb
index 5270d3a..cdae38d 100644
--- a/example/sentence.adb
+++ b/example/sentence.adb
@@ -3,7 +3,7 @@
with
Ada.Text_IO,
- Packrat.Text,
+ Packrat.Standard,
Packrat.Utilities;
use
@@ -19,8 +19,8 @@ procedure Sentence is
type Lexer_Labels is (Word, Whitespace);
type Parser_Labels is (S, NP, PP, VP, Det, Noun, Verb, Prep);
- package Text_Rat is new Packrat.Text (Lexer_Labels, Parser_Labels);
- package My_Rat renames Text_Rat.Standard;
+ package My_Rat is new Packrat.Standard
+ (Lexer_Labels, Parser_Labels, Character, String);
diff --git a/src/packrat-text.ads b/src/packrat-text.ads
deleted file mode 100644
index c3a5c51..0000000
--- a/src/packrat-text.ads
+++ /dev/null
@@ -1,37 +0,0 @@
-
-
-with
-
- Packrat.Standard;
-
-
-generic
-
- type Lexer_Labels is (<>);
- type Parser_Labels is (<>);
-
-package Packrat.Text is
-
-
- package Standard is new Packrat.Standard
- (Lexer_Labels => Lexer_Labels,
- Parser_Labels => Parser_Labels,
- Element_Type => Character,
- Element_Array => String);
-
- package Wide is new Packrat.Standard
- (Lexer_Labels => Lexer_Labels,
- Parser_Labels => Parser_Labels,
- Element_Type => Wide_Character,
- Element_Array => Wide_String);
-
- package Wide_Wide is new Packrat.Standard
- (Lexer_Labels => Lexer_Labels,
- Parser_Labels => Parser_Labels,
- Element_Type => Wide_Wide_Character,
- Element_Array => Wide_Wide_String);
-
-
-end Packrat.Text;
-
-