First push

Author: ojd2

.DS_Store

@@ -0,0 +1,141 @@
+type Id = String
+--type Env = [(Id,Expr)]
+
+
+
+-- Remember that "|" = Alternative options
+-- The expression in Haskell "deriving Show" = Print to console
+-- Right is name of type being defined, left is what is in that type.
+
+
+
+-- <program> ::= 
+--		   	"program" <id> ":" <pars>  "."			(Skel program)
+-- Program type is defined = takes the following expressions of "Id" or "Pars"
+data Program = Program 				Id Pars
+	    deriving Show
+
+
+
+-- <pars> ::= 
+--		   	<par> [";" <pars>] 						(Parallel statements)
+-- Pars type is defined = takes the following expression "Par".
+-- Alternative options are "Pars"
+data Pars = Par  					Par
+	| Pars 							Pars
+	    deriving Show
+
+
+
+-- <par> ::=
+--			"func" <id> <structs>					(Structed expression)
+--			<pars> "||" <pars>						(Parallel pipleline)
+--			"farm" <int> <pars>						(Task Farm)
+-- Par type is defined = takes the following expressions "ParId".
+-- Alternative options are "ParStruct"
+data Par = 	ParId					Id Structs
+	    deriving Show
+-- Have left Pipeline and Task Farm for now.
+
+
+
+
+-- <structs> ::=
+--			<struct> [";" <structs>]				(Statements)
+-- Structs type is defined = takes the following expressions "Struct" and "StructAlt"
+data Structs = 	Struct				Struct
+	| StructAlt						Struct Structs
+	    deriving Show
+
+
+
+-- <struct> ::=
+--				<exprs>									(Expression)
+-- |			<structs> "•" <structs>					(Composition)
+-- |			"iter"	<int> <structs>					(Iteration)
+
+-- Struct type is defined = takes the following expressions "Exprs"
+-- Alternative options are "StructComp" and "StructIt"
+data Struct = 	StructExp			Exprs
+	| StructComp					Structs Structs
+	| StructIt						Int Structs
+	    deriving Show
+
+
+
+-- <expr> ["," <exprs>]								(Expressions)
+-- Exprs type is defined = takes the following expressions "Expr"
+-- Alternative options are "ExprAlt"
+data Exprs = Expression 			Expr
+	| ExprAlt						Expr Exprs						
+	    deriving Show
+
+
+-- <expr> ::=
+--				<int>									(integer value)
+-- |			<string>								(String value)
+-- |			<bool>									(Boolean value)
+-- |			<id> [ "=" <exprs> ]					(Identifier / assignment)
+-- |			"raise" <id> "=" <exprs>				(Raise exception)	
+-- |			<exprs> "catch" <id> <id> ":" <exprs>	(Catch exception)
+-- |			<exprs> <op> <exprs>					(Binary operator)
+-- |			"(" <exprs> ")"							(Grouping)
+-- Expr type is Already defined = takes the following alternatives:
+data Expr = ExprInt 				Int
+	| ExprString					String
+	| ExprBool						Bool
+	| ExprAssignment				Id Exprs
+	| ExprRaise						Id Exprs
+	| ExprCacth						Exprs Id Id Exprs
+	| ExprOp						Exprs Op Exprs
+	| ExprGroup						Exprs
+	    deriving Show
+
+
+-- <op> ::=
+--			"+" | "*" | "-" | "div" | "<" | "<=" | "==" | "!="		(Operators)
+-- Op type is defined = takes the following alternatives:
+data Op = OpAdd
+	| OpMultiply
+	| OpMinus
+	| OpDivide
+	| OpLess
+	| OpLessThanGreat
+	| OpEqual
+	| OpNotEqual
+	    deriving Show	
+
+
+
+
+
+
+-- program printInt : string "int" and ExprInt of '42' int
+-- test = Program "printInt" ( Par ( ParId "Int" ( Struct ( StructExp ( Expression ( ExprInt 42 ) ) )   ) ) )
+
+-- program printString : func String "Hello World!".
+-- test2 = Program "printString" ( Par ( ParId "String" ( Struct ( StructExp ( Expression ( ExprString "Hello World!" ) ) )   ) ) )
+
+-- program assignBoolTrue : func Bool True.
+-- test3 = Program "assignBoolTrue" ( Par ( ParId "Bool" ( Struct ( StructExp ( Expression ( ExprBool True  ) ) )   ) ) )
+
+-- program assignBoolTrue : func Bool True.
+-- test4 = Program "assignBoolFalse" ( Par ( ParId "Bool" ( Struct ( StructExp ( Expression ( ExprBool False  ) ) )   ) ) )
+
+-- program opAddInts : func OpAdd ExprInt 10, OpAdd ExprInt 10
+--test5 = Program "opAddInts" ( Par ( ParId "OpAdd" ( Struct ( StructExp ( Expression ( ExprOp (Expression (ExprInt 10) ) (OpAdd) (Expression (ExprInt 5) ) )  ) )  ) ) )
+
+-- program opMinusInts : func OpMinus ExprInt 100, OpAdd ExprInt 35
+test6 = Program "opMinusInts" ( Par ( ParId "OpMinus" ( Struct ( StructExp ( Expression ( ExprOp (Expression (ExprInt 100) ) (OpMinus) (Expression (ExprInt 35) ) )  ) )  ) ) )
+
+
+
+
+
+
+
+
+
+-- Print out test program above using AST declarations
+main = print test6
+

compiler

@@ -0,0 +1 @@
+java -cp /tmp $*

compiler.hi

@@ -0,0 +1,15 @@
+// INSTRUCTIONS
+
+To compile compiler.hs
+
+
+-- To run, go to terminal, cd into compiler.hs folder and then type ghc compiler.hs
+-- ./compiler to list test program in console.
+
+
+To run jasmin on j file:
+
+-- First compile then run java -jar jasmin.jar test.j
+
+-- Finally, java test
+

compiler.hs

@@ -0,0 +1,28 @@
+.class public test
+.super java/lang/Object
+
+; standard initializer
+; default constructor
+
+.method public <init>()V
+   aload_0 ; push this
+   invokespecial java/lang/Object/<init>()V ; call super
+   return
+.end method
+
+.method public static main([Ljava/lang/String;)V
+
+   ; allocate stack big enough to hold 2 items
+   .limit stack 2
+   .limit locals 2
+  
+   ; push java.lang.System.out (type PrintStream)
+   getstatic java/lang/System/out Ljava/io/PrintStream;
+   ; push int to be printed
+   ldc 42
+   ; invoke println
+   invokevirtual java/io/PrintStream/println(I)V ; int print
+   ; terminate main
+   return
+
+.end method

compiler.o

@@ -0,0 +1,28 @@
+.class public test2
+.super java/lang/Object
+
+; standard initializer
+; default constructor
+
+.method public <init>()V
+   aload_0
+   invokespecial java/lang/Object/<init>()V
+   return
+.end method
+
+.method public static main([Ljava/lang/String;)V
+
+   ; allocate stack big enough to hold 1 item
+   .limit stack 2
+   .limit locals 1
+  
+   ; push java.lang.System.out (type PrintStream)
+   getstatic java/lang/System/out Ljava/io/PrintStream;
+   ; push string to be printed
+   ldc "Hello World!"
+   ; invoke println
+   invokevirtual java/io/PrintStream/println(Ljava/lang/String;)V ; string print
+   ; terminate main
+   return
+
+.end method

jasmin.jar

@@ -0,0 +1,29 @@
+.class public test3
+.super java/lang/Object
+
+; standard initializer
+; default constructor
+
+.method public <init>()V
+   aload_0 ; push this
+   invokespecial java/lang/Object/<init>()V ; call super
+   return
+.end method
+
+.method public static main([Ljava/lang/String;)V
+
+   ; allocate stack big enough to hold 1 item
+   .limit stack 2
+   .limit locals 1
+  
+   ; push java.lang.System.out (type PrintStream)
+   getstatic java/lang/System/out Ljava/io/PrintStream;
+   ; push int to be printed
+   ; 0 = f, 1 = t
+   ldc 1
+   ; invoke println
+   invokevirtual java/io/PrintStream/println(Z)V ; bool print (Z)
+   ; terminate main
+   return
+
+.end method

jrun

@@ -0,0 +1,29 @@
+.class public test4
+.super java/lang/Object
+
+; standard initializer
+; default constructor
+
+.method public <init>()V
+   aload_0 ; push this
+   invokespecial java/lang/Object/<init>()V ; call super
+   return
+.end method
+
+.method public static main([Ljava/lang/String;)V
+
+   ; allocate stack big enough to hold 1 item
+   .limit stack 2
+   .limit locals 1
+  
+   ; push java.lang.System.out (type PrintStream)
+   getstatic java/lang/System/out Ljava/io/PrintStream;
+   ; push int to be printed
+   ; 0 = f, 1 = t
+   ldc 0
+   ; invoke println
+   invokevirtual java/io/PrintStream/println(Z)V ; bool print (Z)
+   ; terminate main
+   return
+
+.end method

readme.txt

@@ -0,0 +1,33 @@
+.class public test5
+.super java/lang/Object
+
+; standard initializer
+; default constructor
+
+.method public <init>()V
+   aload_0 ; push this
+   invokespecial java/lang/Object/<init>()V ; call super
+   return
+.end method
+
+.method public static main([Ljava/lang/String;)V
+
+   ; allocate stack big enough to hold 3 items
+   .limit stack 3 
+   .limit locals 2 ; should be fine with 2
+  
+   ; push java.lang.System.out (type PrintStream)
+   getstatic java/lang/System/out Ljava/io/PrintStream;
+   ; push ints to be printed   
+   
+   ldc 10 ; load int
+   ldc 5 ; load int
+   iadd ; add int
+   istore_0 ; store result in variable
+   iload 0 ; load variable, push to top of stack
+   ; invoke println
+   invokevirtual java/io/PrintStream/println(I)V ; int print result
+   ; terminate main
+   return
+
+.end method