feat: class flag parsing

This commit is contained in:
vegowotenks 2025-07-12 17:52:59 +02:00
parent 7826aa880e
commit 10ca143163
6 changed files with 80 additions and 2 deletions

View file

@ -6,12 +6,17 @@ import Language.Java.Classfile.Magic (Magic)
import GHC.Generics (Generic, Generically(Generically))
import Language.Java.Classfile.Extractable (Extractable)
import Language.Java.Classfile.ConstantPool (ConstantPool)
import Language.Java.Classfile.Flags (Flags)
import Language.Java.Classfile.ClassFlag (ClassFlag)
import Language.Java.Classfile.ConstantPool.References (ClassReference)
data Classfile = Classfile
{ magic :: Magic
, version :: Version
, constantPool :: ConstantPool
, accessFlags :: AccessFlags
, accessFlags :: Flags ClassFlag
, this :: ClassReference
, super :: ClassReference
}
deriving stock (Show, Generic)
deriving Extractable via Generically Classfile