1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
--- BaseVersion.hs~ Wed Sep 22 12:30:19 1999
+++ BaseVersion.hs Fri Dec 3 03:13:25 1999
@@ -1,4 +1,4 @@
-module BaseVersion (version, copyright, disclaimer)
+module CtklBaseVersion (version, copyright, disclaimer)
where
-- version number is major.minor.patchlvl; don't change the format of the
--- Common.hs~ Wed Sep 22 12:30:19 1999
+++ Common.hs Fri Dec 3 03:13:41 1999
@@ -31,7 +31,7 @@
--- TODO ----------------------------------------------------------------------
--
-module Common (-- error code
+module CtklCommon (-- error code
--
errorCodeError, errorCodeFatal,
--
@@ -49,7 +49,7 @@
assert)
where
-import Config (assertEnabled)
+import CtklConfig (assertEnabled)
-- error codes
--- Config.hs~ Wed Sep 22 12:30:19 1999
+++ Config.hs Fri Dec 3 03:13:56 1999
@@ -30,7 +30,7 @@
--- TODO ----------------------------------------------------------------------
--
-module Config (-- debuging
+module CtklConfig (-- debuging
--
assertEnabled)
where
--- DLists.hs~ Wed Sep 22 12:30:19 1999
+++ DLists.hs Fri Dec 3 03:14:09 1999
@@ -27,7 +27,7 @@
--- TODO ----------------------------------------------------------------------
--
-module DLists (DList(..), openDL, zeroDL, unitDL, snocDL, joinDL, closeDL)
+module CtklDLists (DList(..), openDL, zeroDL, unitDL, snocDL, joinDL, closeDL)
where
-- a difference list is a function that given a list returns the original
--- Errors.hs~ Wed Sep 22 12:30:19 1999
+++ Errors.hs Fri Dec 3 03:14:26 1999
@@ -34,7 +34,7 @@
-- in the lexer and parser.
--
-module Errors (-- handling of internal error
+module CtklErrors (-- handling of internal error
--
interr, todo,
--
@@ -43,9 +43,9 @@
ErrorLvl(..), Error, makeError, errorLvl, showError, errorAtPos)
where
-import Config (assertEnabled)
-import Common (Position)
-import Utils (indentMultilineString)
+import CtklConfig (assertEnabled)
+import CtklCommon (Position)
+import CtklUtils (indentMultilineString)
-- internal errors
--- Lexers.hs~ Wed Sep 22 12:30:19 1999
+++ Lexers.hs Fri Dec 3 03:14:46 1999
@@ -90,7 +90,7 @@
-- additional effort of computing the accurate number
--
-module Lexers (Regexp, Lexer, Action, epsilon, char, (+>), lexaction, lexmeta,
+module CtklLexers (Regexp, Lexer, Action, epsilon, char, (+>), lexaction, lexmeta,
(>|<), (>||<), ctrlChars, ctrlLexer, star, plus, quest, alt,
string, LexerState, execLexer)
where
@@ -98,9 +98,9 @@
import Maybe (fromMaybe)
import Array (Ix(..), Array, array, (!), assocs, accumArray)
-import Common (Position, Pos (posOf), nopos)
-import DLists (DList, openDL, zeroDL, unitDL, snocDL, joinDL, closeDL)
-import Errors (interr, ErrorLvl(..), Error, makeError)
+import CtklCommon (Position, Pos (posOf), nopos)
+import CtklDLists (DList, openDL, zeroDL, unitDL, snocDL, joinDL, closeDL)
+import CtklErrors (interr, ErrorLvl(..), Error, makeError)
infixl 4 `quest`, `star`, `plus`
--- Parsers.hs~ Wed Sep 22 12:30:19 1999
+++ Parsers.hs Fri Dec 3 03:15:03 1999
@@ -79,13 +79,13 @@
-- recognized by the pattern matching in `execLexer'.
--
-module Parsers (Token, Parser, empty, token, skip, (<|>), (*$>), (*>), ($>),
+module CtklParsers (Token, Parser, empty, token, skip, (<|>), (*$>), (*>), ($>),
action, meta, opt, (-*>), (*->), many, list, many1, list1,
sep, seplist, sep1, seplist1, execParser)
where
-import Common (Position, Pos (posOf), nopos)
-import Errors (interr, ErrorLvl(..), Error, makeError)
+import CtklCommon (Position, Pos (posOf), nopos)
+import CtklErrors (interr, ErrorLvl(..), Error, makeError)
infix 5 `opt`
--- Utils.hs~ Wed Sep 22 12:30:19 1999
+++ Utils.hs Fri Dec 3 03:15:12 1999
@@ -29,7 +29,7 @@
--- TODO ----------------------------------------------------------------------
--
-module Utils (sort, sortBy, lookupBy, indentMultilineString, quantifySubject,
+module CtklUtils (sort, sortBy, lookupBy, indentMultilineString, quantifySubject,
ordinal, mapMaybeM, mapMaybeM_, mapEitherM, mapEitherM_)
where
|
