stack

.gitignore

+*.swp
+*.bak
+
+
+dist
+cabal-dev
+*.o
+*.hi
+*.chi
+*.chs.h
+*.dyn_o
+*.dyn_hi
+.hpc
+.hsenv
+.cabal-sandbox/
+cabal.sandbox.config
+*.prof
+*.aux
+*.hp
+*~
+.stack-work/

AST.hs

 {-# OPTIONS_GHC -w #-}
 module Main where
+import System.Environment
 import Control.Applicative(Applicative(..))
 import Control.Monad (ap)
 
@@ -388,6 +389,7 @@ writeHeader = do {
           "'/'   { TokenSym $$ }\n'*'   { TokenSym $$ }\n" ++
           "'('   { TokenLParen }\n')'   { TokenRParen }\n" ++
           "int   { TokenInt $$ }\nvar   { TokenVar $$ }\n" ++
+"'@'   { TokenSym $$ }\n'!'   { TokenSym $$ }\n'$'   { TokenSym $$ }\n'%'   { TokenSym $$ }\n'^'   { TokenSym $$ }\n'&'   { TokenSym $$ }\n'_'   { TokenSym $$ }\n'`'   { TokenSym $$ }\n'~'   { TokenSym $$ }\n'='   { TokenSym $$ }\n'['   { TokenSym $$ }\n']'   { TokenSym $$ }\n'{'   { TokenSym $$ }\n'}'   { TokenSym $$ }\n':'   { TokenSym $$ }\n';'   { TokenSym $$ }\n'<'   { TokenSym $$ }\n'>'   { TokenSym $$ }\n" ++
           "%error {parseError}\n%%\n\n" ++
           "Prog: AST Prog { $1:$2 }\n\t| AST      { [$1] }\n\n" ++
           "AST: ");
@@ -422,7 +424,10 @@ makeParser g = do {
 }
 
 main = do {
-         s <- getContents;
+         args <- getArgs;
+         s <- if length args == 1 then readFile (head args)
+              else getContents;
+         -- s <- getContents;
          let tokes = lexer s [] Ignore 
              gram = grammar tokes in 
          do { 

AST.y

 {
 module Main where
-
+import System.Environment
 }
 %name grammar
 %tokentype { Token }
@@ -159,13 +159,12 @@ makeParser g = do {
 }
 
 main = do {
-         s <- getContents;
+         args <- getArgs;
+         s <- if length args == 1 then readFile (head args)
+              else getContents;
          let tokes = lexer s [] Ignore 
              gram = grammar tokes in 
          do { 
-           -- putStrLn ("tokes: " ++ (show tokes));
-           -- putStrLn ("\n\ngrammar" ++ (show gram));
-           -- putStr "\n\n";
            makeParser gram;
          } 
        }

LICENSE

+Copyright Author name here (c) 2016
+
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+    * Redistributions of source code must retain the above copyright
+      notice, this list of conditions and the following disclaimer.
+
+    * Redistributions in binary form must reproduce the above
+      copyright notice, this list of conditions and the following
+      disclaimer in the documentation and/or other materials provided
+      with the distribution.
+
+    * Neither the name of Author name here nor the names of other
+      contributors may be used to endorse or promote products derived
+      from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
\ No newline at end of file

Makefile

+
+all: AST.y Lexer.x 
+	alex Lexer.x && happy AST.y && stack build
+
+clean:
+	rm -f Lexer.hs && rm -f AST.hs && stack clean
+
+setup:
+	stack setup

Readme.md

@@ -6,8 +6,14 @@ fairly simple and is explained below. You can then simply run the Grammar Genera
 binary with the ast file as input (`./IMP < Imp.ast`). This will print out text
 representing a valid input for the Happy parser generator. 
 
-To compile, simply run happy, then ghc over the parser generator generator:
-`happy AST.y; ghc AST.hs` (stack coming soon).
+Stack is used to manage packages etc. but I can't figure out how to integrate
+happy and alex into stack/cabal, so there is a simple Makefile which runs happy 
+and alex and then hands the rest of the work to stack. 
+
+Setup and build with `stack setup`, `make`. The executable is gg-proto,
+which takes the .ast file either from the command line or stdin, run with
+`stack exec gg-proto file`.
+
 
 `AST.y` is the grammar for the mini-language for parsing the user's AST declaration.
 It reads all the grammar directives, and assembles them into a grammar that represents

Setup.hs

+import Distribution.Simple
+main = defaultMain

gg-proto

+.stack-work/dist/x86_64-linux/Cabal-1.22.5.0/build/gg-proto/gg-proto
\ No newline at end of file

gg-proto.cabal

+name:                gg-proto
+version:             0.1.0.0
+synopsis:            Initial project template from stack
+description:         Please see README.md
+homepage:            http://github.com/githubuser/gg-proto#readme
+license:             BSD3
+license-file:        LICENSE
+author:              Author name here
+maintainer:          example@example.com
+copyright:           2016 Author Here
+category:            Web
+build-type:          Simple
+-- extra-source-files:
+cabal-version:       >=1.10
+
+library
+  hs-source-dirs:      src
+  exposed-modules:     Lib
+  build-depends:       base >= 4.7 && < 5
+  default-language:    Haskell2010
+
+executable gg-proto
+  hs-source-dirs:      .
+  main-is:             AST.hs
+  ghc-options:         -threaded -rtsopts -with-rtsopts=-N
+  build-depends:       base, array
+                     , gg-proto
+  default-language:    Haskell2010
+
+source-repository head
+  type:     git
+  location: https://github.cs.tufts.edu/Siriusly/gg-proto

src/Lib.hs

+module Lib
+    ( someFunc
+    ) where
+
+someFunc :: IO ()
+someFunc = putStrLn "someFunc"

stack.yaml

+# For more information, see: http://docs.haskellstack.org/en/stable/yaml_configuration.html
+
+# Specifies the GHC version and set of packages available (e.g., lts-3.5, nightly-2015-09-21, ghc-7.10.2)
+resolver: lts-5.4
+
+# Local packages, usually specified by relative directory name
+packages:
+- '.'
+
+# Packages to be pulled from upstream that are not in the resolver (e.g., acme-missiles-0.3)
+extra-deps: []
+
+# Override default flag values for local packages and extra-deps
+flags: {}
+
+# Extra package databases containing global packages
+extra-package-dbs: []
+
+# Control whether we use the GHC we find on the path
+# system-ghc: true
+
+# Require a specific version of stack, using version ranges
+# require-stack-version: -any # Default
+# require-stack-version: >= 1.0.0
+
+# Override the architecture used by stack, especially useful on Windows
+# arch: i386
+# arch: x86_64
+
+# Extra directories used by stack for building
+# extra-include-dirs: [/path/to/dir]
+# extra-lib-dirs: [/path/to/dir]
+
+# Allow a newer minor version of GHC than the snapshot specifies
+# compiler-check: newer-minor