GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 11:19:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

"Committed_by_peb"

Browse Source
This commit is contained in:
peb
2005-02-09 11:46:54 +00:00
parent 56c80bf8d9
commit 71c316cfc5
55 changed files with 485 additions and 339 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/Data/ErrM.hs
View File

@@ -9,7 +9,7 @@
-- > CVS $Author $
-- > CVS $Revision $
--
-- (Description of the module)
-- hack for BNFC generated files. AR 21/9/2003
-----------------------------------------------------------------------------
module ErrM (
@@ -18,4 +18,3 @@ module ErrM (
import Operations
-- hack for BNFC generated files. AR 21/9/2003

6
src/GF/Data/Glue.hs
View File

@@ -9,17 +9,15 @@
-- > CVS $Author $
-- > CVS $Revision $
--
-- (Description of the module)
-- AR 8-11-2003, using Markus Forsberg's implementation of Huet's @unglue@
-----------------------------------------------------------------------------
module Glue where
module Glue (decomposeSimple, exTrie) where
import Trie2
import Operations
import List
-------- AR 8/11/2003, using Markus Forsberg's implementation of Huet's unglue
decomposeSimple :: Trie Char a -> [Char] -> Err [[Char]]
decomposeSimple t s = do
let ss = map (decompose t) $ words s

18
src/GF/Data/Map.hs
View File

@@ -1,9 +1,9 @@
----------------------------------------------------------------------
-- |
-- Module : (Module)
-- Maintainer : (Maintainer)
-- Stability : (stable)
-- Portability : (portable)
-- Module : Map
-- Maintainer : Markus Forsberg
-- Stability : Stable
-- Portability : Haskell 98
--
-- > CVS $Date $
-- > CVS $Author $
@@ -12,16 +12,6 @@
-- (Description of the module)
-----------------------------------------------------------------------------
{-
**************************************************************
* Filename : Map.hs *
* Author : Markus Forsberg *
* markus@cs.chalmers.se *
* Last Modified : 15 December, 2001 *
* Lines : 53 *
**************************************************************
-}
module Map
(
Map,

28
src/GF/Data/OrdMap2.hs
View File

@@ -1,30 +1,22 @@
----------------------------------------------------------------------
-- |
-- Module : (Module)
-- Maintainer : (Maintainer)
-- Stability : (stable)
-- Portability : (portable)
-- Module : OrdMap2
-- Maintainer : Peter Ljunglöf
-- Stability : Obsolete
-- Portability : Haskell 98
--
-- > CVS $Date $
-- > CVS $Author $
-- > CVS $Revision $
--
-- (Description of the module)
-- The class of finite maps, as described in
-- "Pure Functional Parsing", section 2.2.2
-- and an example implementation,
-- derived from appendix A.2
--
-- /OBSOLETE/! this is only used in cf\/ChartParser.hs
-----------------------------------------------------------------------------
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Filename: OrdMap2.hs
Author: Peter Ljunglöf
Time-stamp: <2004-05-07 14:16:03 peb>
Description: The class of finite maps, as described in
"Pure Functional Parsing", section 2.2.2
and an example implementation,
derived from appendix A.2
OBSOLETE! this is only used in cf/ChartParser.hs
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
module OrdMap2 (OrdMap(..), Map) where
import List (intersperse)

28
src/GF/Data/OrdSet.hs
View File

@@ -1,30 +1,22 @@
----------------------------------------------------------------------
-- |
-- Module : (Module)
-- Maintainer : (Maintainer)
-- Stability : (stable)
-- Portability : (portable)
-- Module : OrdSet
-- Maintainer : Peter Ljunglöf
-- Stability : Obsolete
-- Portability : Haskell 98
--
-- > CVS $Date $
-- > CVS $Author $
-- > CVS $Revision $
--
-- (Description of the module)
-- The class of ordered sets, as described in
-- "Pure Functional Parsing", section 2.2.1,
-- and an example implementation
-- derived from appendix A.1
--
-- /OBSOLETE/! this is only used in cf\/ChartParser.hs
-----------------------------------------------------------------------------
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Filename: OrdSet.hs
Author: Peter Ljunglöf
Time-stamp: <2004-05-07 14:16:12 peb>
Description: The class of ordered sets, as described in
"Pure Functional Parsing", section 2.2.1,
and an example implementation
derived from appendix A.1
OBSOLETE! this is only used in cf/ChartParser.hs
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
module OrdSet (OrdSet(..), Set) where
import List (intersperse)

14
src/GF/Data/Parsers.hs
View File

@@ -1,15 +1,17 @@
----------------------------------------------------------------------
-- |
-- Module : (Module)
-- Maintainer : (Maintainer)
-- Stability : (stable)
-- Portability : (portable)
-- Module : Parsers
-- Maintainer : Aarne Ranta
-- Stability : Almost Obsolete
-- Portability : Haskell 98
--
-- > CVS $Date $
-- > CVS $Author $
-- > CVS $Revision $
--
-- (Description of the module)
-- some parser combinators a` la Wadler and Hutton
-- no longer used in many places in GF
-- (only used in EBNF.hs)
-----------------------------------------------------------------------------
module Parsers where
@@ -28,8 +30,6 @@ infixr 5 ..+
infixr 6 |>
infixr 3 <<<
-- some parser combinators a` la Wadler and Hutton
-- no longer used in many places in GF
type Parser a b = [a] -> [(b,[a])]

20
src/GF/Data/RedBlack.hs
View File

@@ -1,27 +1,17 @@
----------------------------------------------------------------------
-- |
-- Module : (Module)
-- Maintainer : (Maintainer)
-- Stability : (stable)
-- Portability : (portable)
-- Module : RedBlack
-- Maintainer : Markus Forsberg
-- Stability : Stable
-- Portability : Haskell 98
--
-- > CVS $Date $
-- > CVS $Author $
-- > CVS $Revision $
--
-- (Description of the module)
-- Modified version of Osanaki's implementation.
-----------------------------------------------------------------------------
{-
**************************************************************
* Filename : RedBlack.hs *
* Author : Markus Forsberg *
* markus@cs.chalmers.se *
* Last Modified : 15 December, 2001 *
* Lines : 57 *
**************************************************************
-} -- Modified version of Osanaki's implementation.
module RedBlack (
emptyTree,
isEmpty,

18
src/GF/Data/Trie.hs
View File

@@ -1,9 +1,9 @@
----------------------------------------------------------------------
-- |
-- Module : (Module)
-- Maintainer : (Maintainer)
-- Stability : (stable)
-- Portability : (portable)
-- Module : Trie
-- Maintainer : Markus Forsberg
-- Stability : Obsolete???
-- Portability : Haskell 98
--
-- > CVS $Date $
-- > CVS $Author $
@@ -12,16 +12,6 @@
-- (Description of the module)
-----------------------------------------------------------------------------
{-
**************************************************************
* Filename : Trie.hs *
* Author : Markus Forsberg *
* markus@cs.chalmers.se *
* Last Modified : 17 December, 2001 *
* Lines : 51 *
**************************************************************
-}
module Trie (
tcompile,
collapse,

14
src/GF/Data/Trie2.hs
View File

@@ -1,9 +1,9 @@
----------------------------------------------------------------------
-- |
-- Module : (Module)
-- Maintainer : (Maintainer)
-- Stability : (stable)
-- Portability : (portable)
-- Module : Trie2
-- Maintainer : Markus Forsberg
-- Stability : Stable
-- Portability : Haskell 98
--
-- > CVS $Date $
-- > CVS $Author $
@@ -12,12 +12,6 @@
-- (Description of the module)
-----------------------------------------------------------------------------
{-
**************************************************************
* Author : Markus Forsberg *
* markus@cs.chalmers.se *
**************************************************************
-}
module Trie2 (
tcompile,
collapse,

4
src/GF/Data/Zipper.hs
View File

@@ -9,15 +9,13 @@
-- > CVS $Author $
-- > CVS $Revision $
--
-- (Description of the module)
-- Gérard Huet's zipper (JFP 7 (1997)). AR 10/8/2001
-----------------------------------------------------------------------------
module Zipper where
import Operations
-- Gérard Huet's zipper (JFP 7 (1997)). AR 10/8/2001
newtype Tr a = Tr (a,[Tr a]) deriving (Show,Eq)
data Path a =