alterdekim
13b4bda413
modified: .gitignore new file: CHANGELOG.md new file: LICENSE new file: Porcelain.cabal renamed: haskell/Lexer.hs -> app/Lexer.hs renamed: haskell/Main.hs -> app/Main.hs renamed: haskell/NewParser.hs -> app/NewParser.hs renamed: haskell/Parser.hs -> app/Parser.hs new file: as/test.as deleted: asm/test deleted: asm/test.asm deleted: asm/test.o deleted: haskell/Lexer.hi deleted: haskell/Lexer.o deleted: haskell/Main deleted: haskell/Main.hi deleted: haskell/Main.o deleted: haskell/Parser.hi deleted: haskell/Parser.o
23 lines
565 B
Haskell
23 lines
565 B
Haskell
module Main where
|
|
|
|
import System.IO
|
|
import Lexer
|
|
--import Parser
|
|
|
|
{-
|
|
main = do
|
|
let x = [Token "(" OpenParen, Token "1" Number, Token ")" CloseParen, Token ";" EndStatement]
|
|
print (_extractExpression x) -}
|
|
|
|
main = do
|
|
handle <- openFile "../../../../../../../../../as/test.as" ReadMode
|
|
contents <- hGetContents handle
|
|
let x = tokenize contents
|
|
print x
|
|
--let y = parseIntoTree x
|
|
--print y
|
|
--print $ findFirstEmpty x 0
|
|
--print $ take (findFirstEmpty x 0) x
|
|
--print $ makeInt x
|
|
--print $ makeIdentifier x
|
|
hClose handle |