Merge pull request #102 from GaloisInc/elf-edit-core-dump-export-more-decoding-functions

`elf-edit-core-dump`: Export more decoding functions

Author: RyanGlScott

elf-edit-core-dump/src/Data/ElfEdit/CoreDump.hs

@@ -28,6 +28,12 @@ module Data.ElfEdit.CoreDump
 
     -- * Decoding
   , decodeHeaderNotes
+  , decodePrStatus
+  , decodeUserRegSet
+  , decodeArmUserRegs
+  , decodePpcUserRegs
+  , decodeX86_64UserRegs
+  , decodeNhdr
   , NoteDecodeError(..)
 
     -- * Analysis
@@ -231,6 +237,15 @@ decodeUserRegSet cl d m buf =
       mkPpcUserRegSet <$>
         decodePpcUserRegs cl d (Elf.slice ppcUserRegsFileRange buf)
 
+-- | Decode a 'PrStatus' value from a 'BS.ByteString'.
+decodePrStatus ::
+  Elf.ElfClass w ->
+  Elf.ElfData ->
+  Elf.ElfMachine ->
+  BS.ByteString ->
+  Either NoteDecodeError PrStatus
+decodePrStatus cl d m buf = PrStatus <$> decodeUserRegSet cl d m buf
+
 -- | Compute the padding necessary to make a word value 4-byte aligned (if using
 -- 'Elf.ELFCLASS32') or 8-byte aligned (if using 'Elf.ELFCLASS64').
 notePadding ::
@@ -297,11 +312,8 @@ decodeNotes cl d m phdrContents =
            mbNoteDesc <-
              case Nhdr.nhdrType nhdr of
                Nhdr.NT_PRSTATUS -> do
-                 regs <- decodeUserRegSet cl d m descRaw
-                 pure $ Just $ NotePrStatus $
-                   PrStatus
-                     { prReg = regs
-                     }
+                 prs <- decodePrStatus cl d m descRaw
+                 pure $ Just $ NotePrStatus prs
                Nhdr.NT_FPREGSET -> pure $ Just $ NoteFpRegSet FpRegSet
                Nhdr.NT_PRPSINFO -> pure $ Just $ NotePrpsInfo PrpsInfo
                _                -> pure $ Nothing