Parser: read optional PROJECTCOMPATVERSION Record.

This record is optional and according to the OBVA documentation not
written by VBA 5.0. Previously, if this record was found, the parser
would simply panic.

The second change changes the backslash to slash. This allows using ovba
on Mac (and probably Linux).

src/lib.rs

@@ -169,6 +169,7 @@ pub enum Reference {
 pub struct Information {
     /// Specifies the platform for which the VBA project is created.
     pub sys_kind: SysKind,
+    compat: Option<u32>,
     lcid: u32,
     lcid_invoke: u32,
     /// Specifies the code page for the VBA project.
@@ -310,7 +311,7 @@ impl Project {
             .find(|&module| module.name == name)
             .ok_or_else(|| Error::ModuleNotFound(name.to_owned()))?;
 
-        let path = format!("/VBA\\{}", &module.stream_name);
+        let path = format!("/VBA/{}", &module.stream_name);
         let offset = module.text_offset;
         let src_code = self.decompress_stream_from(path, offset)?;
 
@@ -346,7 +347,7 @@ pub fn open_project(raw: Vec<u8>) -> Result<Project> {
     let mut container = CompoundFile::open(cursor).map_err(Error::Cfb)?;
 
     // Read *dir* stream
-    const DIR_STREAM_PATH: &str = r#"/VBA\dir"#;
+    const DIR_STREAM_PATH: &str = r#"/VBA/dir"#;
 
     let mut buffer = Vec::new();
     container

src/parser.rs

@@ -164,9 +164,21 @@ fn parse_syskind(i: &[u8]) -> IResult<&[u8], SysKind, FormatError<&[u8]>> {
     }
 }
 
+fn parse_compat(i: &[u8]) -> IResult<&[u8], Option<u32>, FormatError<&[u8]>> {
+    const COMPAT_SIGNATURE: &[u8] = &[0x4A, 0x00];
+    let (i, compat) = opt(preceded(
+        tuple((tag(COMPAT_SIGNATURE), tag(U32_FIXED_SIZE_4))),
+        le_u32,
+    ))(i)?;
+    Ok((i, compat))
+}
+
 fn parse_lcid(i: &[u8]) -> IResult<&[u8], u32, FormatError<&[u8]>> {
     const LCID_SIGNATURE: &[u8] = &[0x02, 0x00];
-    let (i, lcid) = preceded(tuple((tag(LCID_SIGNATURE), tag(U32_FIXED_SIZE_4))), le_u32)(i)?;
+    let (i, lcid) = preceded(
+        tuple((tag(LCID_SIGNATURE), tag(U32_FIXED_SIZE_4))),
+        le_u32,
+    )(i)?;
     Ok((i, lcid))
 }
 
@@ -558,6 +570,7 @@ pub(crate) fn parse_project_information(
     i: &[u8],
 ) -> IResult<&[u8], ProjectInformation, FormatError<&[u8]>> {
     let (i, sys_kind) = parse_syskind(i)?;
+    let (i, compat) = parse_compat(i)?;
     let (i, lcid) = parse_lcid(i)?;
     let (i, lcid_invoke) = parse_lcid_invoke(i)?;
     let (i, code_page) = parse_code_page(i)?;
@@ -604,6 +617,7 @@ pub(crate) fn parse_project_information(
         ProjectInformation {
             information: Information {
                 sys_kind,
+                compat,
                 lcid,
                 lcid_invoke,
                 code_page,