create cabal project structure

.gitignore

@@ -0,0 +1,23 @@
+dist
+dist-*
+cabal-dev
+*.o
+*.hi
+*.hie
+*.chi
+*.chs.h
+*.dyn_o
+*.dyn_hi
+.hpc
+.hsenv
+.cabal-sandbox/
+cabal.sandbox.config
+*.prof
+*.aux
+*.hp
+*.eventlog
+.stack-work/
+cabal.project.local
+cabal.project.local~
+.HTF/
+.ghc.environment.*

README.md

@@ -1,3 +1,14 @@
 # MiniJavaCompiler
 It's a compiler for a minimal version of Java with watered down syntax.
 Written in Haskell.
+
+# Cabal Commands
+run main
+```
+cabal run
+```
+
+run tests
+```
+cabal test
+```

Test/TestSuite.hs

@@ -0,0 +1,11 @@
+module Main where
+
+import Test.HUnit
+import Parser.Lexer
+import TestLexer
+
+otherTest = TestCase $ assertEqual "math" (4+3) 7
+
+tests = TestList [TestLabel "TestLexer" TestLexer.tests, TestLabel "mathTest" otherTest]
+
+main = do runTestTTAndExit Main.tests

project.cabal

@@ -0,0 +1,25 @@
+name:           MiniJavaCompiler
+version:        0.1.0.0
+build-type:     Simple
+cabal-version:  >= 1.10
+Synopsis: A compiler for a minimal version of Java with watered down syntax.
+
+executable compiler
+    main-is:            Main.hs
+    build-depends:      base,
+                        array,
+                        HUnit
+    default-language:   Haskell2010
+    hs-source-dirs:     src
+    build-tool-depends: alex:alex, happy:happy
+    other-modules:      Parser.Lexer
+
+test-suite tests
+    type:               exitcode-stdio-1.0
+    main-is:            TestSuite.hs
+    hs-source-dirs:     src,Test
+    build-depends:      base,
+                        array,
+                        HUnit
+    build-tool-depends: alex:alex, happy:happy
+    other-modules:      Parser.Lexer, TestLexer

src/Main.hs

@@ -0,0 +1,6 @@
+module Main where
+
+import Parser.Lexer
+
+main = do
+    print $ alexScanTokens "/**/"

src/Parser/JavaParser.y

@@ -1,7 +1,7 @@
 {
-module JavaParser (parse) where
+module Parser.JavaParser (parse) where
-import AbsSyn
+--import AbsSyn
-import Lexer
+import Parser.Lexer
 }
 
 %name parse
@@ -16,7 +16,64 @@ import Lexer
         CLASS { CLASS}
         IDENTIFIER { IDENTIFIER $$}
         INTLITERAL { INTLITERAL $$}
-
+        DOT { DOT }
+        MOD { MOD }
+        TIMESEQUAL { TIMESEQUAL }
+        GREATEREQUAL { GREATEREQUAL }
+        WHILE { WHILE }
+        PUBLIC { PUBLIC }
+        VOID { VOID }
+        EQUAL { EQUAL }
+        XOR { XOR }
+        RBRACE { RBRACE }
+        THIS { THIS }
+        STATIC { STATIC }
+        PROTECTED { PROTECTED }
+        TILDE { TILDE }
+        MUL { MUL }
+        MINUS { MINUS }
+        EXCLMARK { EXCLMARK }
+        IF { IF }
+        ELSE { ELSE }
+        DIVIDEEQUAL { DIVIDEEQUAL }
+        NEW { NEW }
+        LBRACKET { LBRACKET }
+        JNULL { JNULL }
+        BOOLLITERAL { BOOLLITERAL }
+        DIV { DIV }
+        LOGICALOR { LOGICALOR }
+        NOTEQUAL { NOTEQUAL }
+        INSTANCEOF { INSTANCEOF }
+        ANDEQUAL { ANDEQUAL }
+        ASSIGN { ASSIGN }
+        DECREMENT { DECREMENT }
+        STRINGLITERAL { STRINGLITERAL }
+        CHARLITERAL { CHARLITERAL }
+        AND { AND }
+        XOREQUAL { XOREQUAL }
+        RETURN { RETURN }
+        QUESMARK { QUESMARK }
+        SHIFTLEFTEQUAL { SHIFTLEFTEQUAL }
+        RBRACKET { RBRACKET }
+        COMMA { COMMA }
+        MINUSEQUAL { MINUSEQUAL }
+        INCREMENT { INCREMENT }
+        LBRACE { LBRACE }
+        LESSEQUAL { LESSEQUAL }
+        PLUS { PLUS }
+        PRIVATE { PRIVATE }
+        MODULOEQUAL { MODULOEQUAL }
+        GREATER { GREATER }
+        OR { OR }
+        INT { INT }
+        ABSTRACT { ABSTRACT }
+        SEMICOLON { SEMICOLON }
+        SIGNEDSHIFTRIGHTEQUAL { SIGNEDSHIFTRIGHTEQUAL }
+        UNSIGNEDSHIFTRIGHTEQUAL { UNSIGNEDSHIFTRIGHTEQUAL }
+        PLUSEQUAL { PLUSEQUAL }
+        OREQUAL { OREQUAL }
+        COLON { COLON }
+        LESS { LESS }
 %%
 
 compilationunit  : typedeclarations { }

src/Parser/Lexer.x

@@ -0,0 +1,24 @@
+{
+    module Parser.Lexer(Token(..), alexScanTokens) where
+}
+
+%wrapper "basic"
+
+$digit = 0-9
+$alpha = [a-zA-Z]
+$alphanum = [a-zA-Z0-9]
+
+tokens :-
+    $white ;
+    "/*"(.|\n)*"*/" { \s -> Comment s }
+    "//".* ;
+
+
+
+{
+data Token 
+    = Comment String
+    | Different
+    deriving(Eq,Show)
+
+}