~ubuntu-branches/ubuntu/utopic/bnfc/utopic

« back to all changes in this revision

Viewing changes to src/formats/java1.5/CFtoAllVisitor.hs

• browse files at revision 8
• compare with another revision
• download diff
• download tarball
• view history from revision 8

Show diffs side-by-side

added

removed

src/formats/java1.5/CFtoAllVisitor.hs

 

1

{-

 

2

    BNF Converter: Java 1.5 All Visitor generator

 

3

    Copyright (C) 2006 Bjorn Bringert

 

4

    Based on CFtoVisitSkel.hs, Copyright (C) 2004-2006  Michael Pellauer

 

5

 

 

6

    This program is free software; you can redistribute it and/or modify

 

7

    it under the terms of the GNU General Public License as published by

 

8

    the Free Software Foundation; either version 2 of the License, or

 

9

    (at your option) any later version.

 

10

 

 

11

    This program is distributed in the hope that it will be useful,

 

12

    but WITHOUT ANY WARRANTY; without even the implied warranty of

 

13

    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 

14

    GNU General Public License for more details.

 

15

 

 

16

    You should have received a copy of the GNU General Public License

 

17

    along with this program; if not, write to the Free Software

 

18

    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

 

19

-}

 

20

 

 

21

module CFtoAllVisitor (cf2AllVisitor) where

 

22

 

 

23

import CF

 

24

import CFtoJavaAbs15 (typename)

 

25

import Utils ((+++), (++++))

 

26

import NamedVariables

 

27

import Data.List

 

28

import Data.Char(toLower, toUpper, isDigit)

 

29

 

 

30

cf2AllVisitor :: String -> String -> CF -> String

 

31

cf2AllVisitor packageBase packageAbsyn cf = 

 

32

  unlines [

 

33

           "package" +++ packageBase ++ ";",

 

34

           "",

 

35

           "import" +++ packageAbsyn ++ ".*;",

 

36

           "",

 

37

           "/** BNFC-Generated All Visitor */",

 

38

           "public interface AllVisitor<R,A> extends",

 

39

             concat $ intersperse ",\n" $ map ("  "++) is,

 

40

           "{}"]

 

41

  where

 

42

    groups = [ g | g@(c,_) <- fixCoercions (ruleGroupsInternals cf), not (isList c) ]

 

43

    is = map (prInterface packageAbsyn) groups

 

44

    header = unlines [

 

45

      

 

46

      ]

 

47

 

 

48

prInterface :: String -> (Cat, [Rule]) -> String

 

49

prInterface packageAbsyn (cat, rules) = 

 

50

    q ++ ".Visitor<R,A>"

 

51

  where q = packageAbsyn ++ "." ++ identCat cat

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1