cl-olefs

OLE File System tools for Common Lisp
git clone https://logand.com/git/cl-olefs.git/
Log | Files | Refs

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

define BIFF-PhRuns structure

Diffstat:
Molefs.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