add: Classbuilder & ClassFileBuilder

src/ByteCode/ClassFile/Generator.hs

@@ -1,13 +1,19 @@
 module ByteCode.ClassFile.Generator(
-    fromAST
+    classBuilder
 ) where
 
 import ByteCode.Constants
 import ByteCode.ClassFile (ClassFile (..), ConstantInfo (..))
 import Ast
+import ByteCode.Operations
 
 
-baseConstants = [
+type ClassFileBuilder a = ClassFile -> a -> ClassFile
+
+
+classBuilder :: ClassFileBuilder Class
+classBuilder _ (Class name methods fields) = let
+        baseConstants = [
             ClassInfo 4,
             MethodRefInfo 1 3,
             NameAndTypeInfo 5 6,
@@ -15,17 +21,18 @@ baseConstants = [
             Utf8Info "<init>",
             Utf8Info "()V"
             ]
-
+        nameConstants = [ClassInfo 8, Utf8Info name]
-
-fromAST :: Class -> ClassFile
-fromAST (Class name methods fields) = let
     in
         ClassFile {
-            constantPool = baseConstants,
+            constantPool = baseConstants ++ nameConstants,
             accessFlags = accessPublic,
-            thisClass = 1,
+            thisClass = 7,
             superClass = 1,
             fields = [],
             methods = [],
             attributes = []
         }
+        
+
+
+

src/ByteCode/Operations.hs

@@ -0,0 +1,3 @@
+module ByteCode.Operations where 
+data Operation = Iadd
+            --   |