cl-olefs

commit c344585b41dd7b64db536afb86a1f2f4a9696934
parent 8054655521a3bf25235f6fdffcdca559024b78a5
Author: Tomas Hlavaty <tom@logand.com>
Date:   Thu, 11 Sep 2014 22:52:08 +0200

define BIFF-PhRuns structure

Diffstat:
M
olefs.lisp
 | 
7
++++++-

1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/olefs.lisp b/olefs.lisp
@@ -1629,12 +1629,17 @@
   (cch ushort)
   (st BIFF-LPWideString))
 
+(define-structure BIFF-PhRuns ()
+  (ichFirst ushort) ;; TODO signed
+  (ichMom ushort)   ;; TODO signed
+  (cchMom ushort))  ;; TODO signed
+
 (define-structure BIFF-ExtRst ()
   (reserved ushort)
   (cb ushort)
   (phs dword)
   (rphssub BIFF-RPHSSub)
-  (rgphruns (PhRuns (BIFF-RPHSSub.crun rphssub))))
+  (rgphruns (BIFF-PhRuns (BIFF-RPHSSub.crun rphssub))))
 
 (defvar *fHighByte*) ;; nil|0|1 ;; TODO clean up nil|t vs nil|0|1