commit 48fb22a0feacf1fa6a954aa094e9c5ee2875ae39
parent 413e4d6b77e026a06a056d127045a5e853af525f
Author: Tomas Hlavaty <tom@logand.com>
Date: Tue, 7 Jun 2011 02:01:26 +0200
defenum implemented for nicer print-RecordHeader-tree-from-ppt-file
Diffstat:
| M | cdef.lisp | | | 21 | +++++++++++++++++++++ |
| M | enums.lisp | | | 437 | ++++++++++++++++++++++++++++++++++++++++--------------------------------------- |
| M | olefs.lisp | | | 6 | ++++-- |
3 files changed, 244 insertions(+), 220 deletions(-)
diff --git a/cdef.lisp b/cdef.lisp
@@ -54,3 +54,24 @@
appending (list
(intern (symbol-name (car slot)) :keyword)
(car slot))))))))
+
+(defvar *enums* nil)
+
+(defmacro defenum (name args &rest values)
+ (declare (ignore args))
+ (pushnew (cons name (mapcar (lambda (x) (cons (car x) (cadr x))) values))
+ *enums*
+ :key #'car)
+ `(progn
+ ,@(loop
+ for (k v) in values
+ collect `(defconstant ,k ,v))))
+
+(defun enum-by-key (name key)
+ (cdr (assoc key (cdr (assoc name *enums*)))))
+
+(defun enum-by-value (name value)
+ (car (find value (cdr (assoc name *enums*)) :key #'cdr)))
+
+;;(enum-by-key 'RecordType 'RT_DocumentAtom)
+;;(enum-by-value 'RecordType #x03E9)
diff --git a/enums.lisp b/enums.lisp
@@ -1,220 +1,221 @@
(in-package :olefs)
-(defconstant RT_Document #x03E8)
-(defconstant RT_DocumentAtom #x03E9)
-(defconstant RT_EndDocumentAtom #x03EA)
-(defconstant RT_Slide #x03EE)
-(defconstant RT_SlideAtom #x03EF)
-(defconstant RT_Notes #x03F0)
-(defconstant RT_NotesAtom #x03F1)
-(defconstant RT_Environment #x03F2)
-(defconstant RT_SlidePersistAtom #x03F3)
-(defconstant RT_MainMaster #x03F8)
-(defconstant RT_SlideShowSlideInfoAtom #x03F9)
-(defconstant RT_SlideViewInfo #x03FA)
-(defconstant RT_GuideAtom #x03FB)
-(defconstant RT_ViewInfoAtom #x03FD)
-(defconstant RT_SlideViewInfoAtom #x03FE)
-(defconstant RT_VbaInfo #x03FF)
-(defconstant RT_VbaInfoAtom #x0400)
-(defconstant RT_SlideShowDocInfoAtom #x0401)
-(defconstant RT_Summary #x0402)
-(defconstant RT_DocRoutingSlipAtom #x0406)
-(defconstant RT_OutlineViewInfo #x0407)
-(defconstant RT_SorterViewInfo #x0408)
-(defconstant RT_ExternalObjectList #x0409)
-(defconstant RT_ExternalObjectListAtom #x040A)
-(defconstant RT_DrawingGroup #x040B)
-(defconstant RT_Drawing #x040C)
-(defconstant RT_GridSpacing10Atom #x040D)
-(defconstant RT_RoundTripTheme12Atom #x040E)
-(defconstant RT_RoundTripColorMapping12Atom #x040F)
-(defconstant RT_NamedShows #x0410)
-(defconstant RT_NamedShow #x0411)
-(defconstant RT_NamedShowSlidesAtom #x0412)
-(defconstant RT_NotesTextViewInfo9 #x0413)
-(defconstant RT_NormalViewSetInfo9 #x0414)
-(defconstant RT_NormalViewSetInfo9Atom #x0415)
-(defconstant RT_RoundTripOriginalMainMasterId12Atom #x041C)
-(defconstant RT_RoundTripCompositeMasterId12Atom #x041D)
-(defconstant RT_RoundTripContentMasterInfo12Atom #x041E)
-(defconstant RT_RoundTripShapeId12Atom #x041F)
-(defconstant RT_RoundTripHFPlaceholder12Atom #x0420)
-(defconstant RT_RoundTripContentMasterId12Atom #x0422)
-(defconstant RT_RoundTripOArtTextStyles12Atom #x0423)
-(defconstant RT_RoundTripHeaderFooterDefaults12Atom #x0424)
-(defconstant RT_RoundTripDocFlags12Atom #x0425)
-(defconstant RT_RoundTripShapeCheckSumForCL12Atom #x0426)
-(defconstant RT_RoundTripNotesMasterTextStyles12Atom #x0427)
-(defconstant RT_RoundTripCustomTableStyles12Atom #x0428)
-(defconstant RT_List #x07D0)
-(defconstant RT_FontCollection #x07D5)
-(defconstant RT_FontCollection10 #x07D6)
-(defconstant RT_BookmarkCollection #x07E3)
-(defconstant RT_SoundCollection #x07E4)
-(defconstant RT_SoundCollectionAtom #x07E5)
-(defconstant RT_Sound #x07E6)
-(defconstant RT_SoundDataBlob #x07E7)
-(defconstant RT_BookmarkSeedAtom #x07E9)
-(defconstant RT_ColorSchemeAtom #x07F0)
-(defconstant RT_BlipCollection9 #x07F8)
-(defconstant RT_BlipEntity9Atom #x07F9)
-(defconstant RT_ExternalObjectRefAtom #x0BC1)
-(defconstant RT_PlaceholderAtom #x0BC3)
-(defconstant RT_ShapeAtom #x0BDB)
-(defconstant RT_ShapeFlags10Atom #x0BDC)
-(defconstant RT_RoundTripNewPlaceholderId12Atom #x0BDD)
-(defconstant RT_OutlineTextRefAtom #x0F9E)
-(defconstant RT_TextHeaderAtom #x0F9F)
-(defconstant RT_TextCharsAtom #x0FA0)
-(defconstant RT_StyleTextPropAtom #x0FA1)
-(defconstant RT_MasterTextPropAtom #x0FA2)
-(defconstant RT_TextMasterStyleAtom #x0FA3)
-(defconstant RT_TextCharFormatExceptionAtom #x0FA4)
-(defconstant RT_TextParagraphFormatExceptionAtom #x0FA5)
-(defconstant RT_TextRulerAtom #x0FA6)
-(defconstant RT_TextBookmarkAtom #x0FA7)
-(defconstant RT_TextBytesAtom #x0FA8)
-(defconstant RT_TextSpecialInfoDefaultAtom #x0FA9)
-(defconstant RT_TextSpecialInfoAtom #x0FAA)
-(defconstant RT_DefaultRulerAtom #x0FAB)
-(defconstant RT_StyleTextProp9Atom #x0FAC)
-(defconstant RT_TextMasterStyle9Atom #x0FAD)
-(defconstant RT_OutlineTextProps9 #x0FAE)
-(defconstant RT_OutlineTextPropsHeader9Atom #x0FAF)
-(defconstant RT_TextDefaults9Atom #x0FB0)
-(defconstant RT_StyleTextProp10Atom #x0FB1)
-(defconstant RT_TextMasterStyle10Atom #x0FB2)
-(defconstant RT_OutlineTextProps10 #x0FB3)
-(defconstant RT_TextDefaults10Atom #x0FB4)
-(defconstant RT_OutlineTextProps11 #x0FB5)
-(defconstant RT_StyleTextProp11Atom #x0FB6)
-(defconstant RT_FontEntityAtom #x0FB7)
-(defconstant RT_FontEmbedDataBlob #x0FB8)
-(defconstant RT_CString #x0FBA)
-(defconstant RT_MetaFile #x0FC1)
-(defconstant RT_ExternalOleObjectAtom #x0FC3)
-(defconstant RT_Kinsoku #x0FC8)
-(defconstant RT_Handout #x0FC9)
-(defconstant RT_ExternalOleEmbed #x0FCC)
-(defconstant RT_ExternalOleEmbedAtom #x0FCD)
-(defconstant RT_ExternalOleLink #x0FCE)
-(defconstant RT_BookmarkEntityAtom #x0FD0)
-(defconstant RT_ExternalOleLinkAtom #x0FD1)
-(defconstant RT_KinsokuAtom #x0FD2)
-(defconstant RT_ExternalHyperlinkAtom #x0FD3)
-(defconstant RT_ExternalHyperlink #x0FD7)
-(defconstant RT_SlideNumberMetaCharAtom #x0FD8)
-(defconstant RT_HeadersFooters #x0FD9)
-(defconstant RT_HeadersFootersAtom #x0FDA)
-(defconstant RT_TextInteractiveInfoAtom #x0FDF)
-(defconstant RT_ExternalHyperlink9 #x0FE4)
-(defconstant RT_RecolorInfoAtom #x0FE7)
-(defconstant RT_ExternalOleControl #x0FEE)
-(defconstant RT_SlideListWithText #x0FF0)
-(defconstant RT_AnimationInfoAtom #x0FF1)
-(defconstant RT_InteractiveInfo #x0FF2)
-(defconstant RT_InteractiveInfoAtom #x0FF3)
-(defconstant RT_UserEditAtom #x0FF5)
-(defconstant RT_CurrentUserAtom #x0FF6)
-(defconstant RT_DateTimeMetaCharAtom #x0FF7)
-(defconstant RT_GenericDateMetaCharAtom #x0FF8)
-(defconstant RT_HeaderMetaCharAtom #x0FF9)
-(defconstant RT_FooterMetaCharAtom #x0FFA)
-(defconstant RT_ExternalOleControlAtom #x0FFB)
-(defconstant RT_ExternalMediaAtom #x1004)
-(defconstant RT_ExternalVideo #x1005)
-(defconstant RT_ExternalAviMovie #x1006)
-(defconstant RT_ExternalMciMovie #x1007)
-(defconstant RT_ExternalMidiAudio #x100D)
-(defconstant RT_ExternalCdAudio #x100E)
-(defconstant RT_ExternalWavAudioEmbedded #x100F)
-(defconstant RT_ExternalWavAudioLink #x1010)
-(defconstant RT_ExternalOleObjectStg #x1011)
-(defconstant RT_ExternalCdAudioAtom #x1012)
-(defconstant RT_ExternalWavAudioEmbeddedAtom #x1013)
-(defconstant RT_AnimationInfo #x1014)
-(defconstant RT_RtfDateTimeMetaCharAtom #x1015)
-(defconstant RT_ExternalHyperlinkFlagsAtom #x1018)
-(defconstant RT_ProgTags #x1388)
-(defconstant RT_ProgStringTag #x1389)
-(defconstant RT_ProgBinaryTag #x138A)
-(defconstant RT_BinaryTagDataBlob #x138B)
-(defconstant RT_PrintOptionsAtom #x1770)
-(defconstant RT_PersistDirectoryAtom #x1772)
-(defconstant RT_PresentationAdvisorFlags9Atom #x177A)
-(defconstant RT_HtmlDocInfo9Atom #x177B)
-(defconstant RT_HtmlPublishInfoAtom #x177C)
-(defconstant RT_HtmlPublishInfo9 #x177D)
-(defconstant RT_BroadcastDocInfo9 #x177E)
-(defconstant RT_BroadcastDocInfo9Atom #x177F)
-(defconstant RT_EnvelopeFlags9Atom #x1784)
-(defconstant RT_EnvelopeData9Atom #x1785)
-(defconstant RT_VisualShapeAtom #x2AFB)
-(defconstant RT_HashCodeAtom #x2B00)
-(defconstant RT_VisualPageAtom #x2B01)
-(defconstant RT_BuildList #x2B02)
-(defconstant RT_BuildAtom #x2B03)
-(defconstant RT_ChartBuild #x2B04)
-(defconstant RT_ChartBuildAtom #x2B05)
-(defconstant RT_DiagramBuild #x2B06)
-(defconstant RT_DiagramBuildAtom #x2B07)
-(defconstant RT_ParaBuild #x2B08)
-(defconstant RT_ParaBuildAtom #x2B09)
-(defconstant RT_LevelInfoAtom #x2B0A)
-(defconstant RT_RoundTripAnimationAtom12Atom #x2B0B)
-(defconstant RT_RoundTripAnimationHashAtom12Atom #x2B0D)
-(defconstant RT_Comment10 #x2EE0)
-(defconstant RT_Comment10Atom #x2EE1)
-(defconstant RT_CommentIndex10 #x2EE4)
-(defconstant RT_CommentIndex10Atom #x2EE5)
-(defconstant RT_LinkedShape10Atom #x2EE6)
-(defconstant RT_LinkedSlide10Atom #x2EE7)
-(defconstant RT_SlideFlags10Atom #x2EEA)
-(defconstant RT_SlideTime10Atom #x2EEB)
-(defconstant RT_DiffTree10 #x2EEC)
-(defconstant RT_Diff10 #x2EED)
-(defconstant RT_Diff10Atom #x2EEE)
-(defconstant RT_SlideListTableSize10Atom #x2EEF)
-(defconstant RT_SlideListEntry10Atom #x2EF0)
-(defconstant RT_SlideListTable10 #x2EF1)
-(defconstant RT_CryptSession10Container #x2F14)
-(defconstant RT_FontEmbedFlags10Atom #x32C8)
-(defconstant RT_FilterPrivacyFlags10Atom #x36B0)
-(defconstant RT_DocToolbarStates10Atom #x36B1)
-(defconstant RT_PhotoAlbumInfo10Atom #x36B2)
-(defconstant RT_SmartTagStore11Container #x36B3)
-(defconstant RT_RoundTripSlideSyncInfo12 #x3714)
-(defconstant RT_RoundTripSlideSyncInfoAtom12 #x3715)
-(defconstant RT_TimeConditionContainer #xF125)
-(defconstant RT_TimeNode #xF127)
-(defconstant RT_TimeCondition #xF128)
-(defconstant RT_TimeModifier #xF129)
-(defconstant RT_TimeBehaviorContainer #xF12A)
-(defconstant RT_TimeAnimateBehaviorContainer #xF12B)
-(defconstant RT_TimeColorBehaviorContainer #xF12C)
-(defconstant RT_TimeEffectBehaviorContainer #xF12D)
-(defconstant RT_TimeMotionBehaviorContainer #xF12E)
-(defconstant RT_TimeRotationBehaviorContainer #xF12F)
-(defconstant RT_TimeScaleBehaviorContainer #xF130)
-(defconstant RT_TimeSetBehaviorContainer #xF131)
-(defconstant RT_TimeCommandBehaviorContainer #xF132)
-(defconstant RT_TimeBehavior #xF133)
-(defconstant RT_TimeAnimateBehavior #xF134)
-(defconstant RT_TimeColorBehavior #xF135)
-(defconstant RT_TimeEffectBehavior #xF136)
-(defconstant RT_TimeMotionBehavior #xF137)
-(defconstant RT_TimeRotationBehavior #xF138)
-(defconstant RT_TimeScaleBehavior #xF139)
-(defconstant RT_TimeSetBehavior #xF13A)
-(defconstant RT_TimeCommandBehavior #xF13B)
-(defconstant RT_TimeClientVisualElement #xF13C)
-(defconstant RT_TimePropertyList #xF13D)
-(defconstant RT_TimeVariantList #xF13E)
-(defconstant RT_TimeAnimationValueList #xF13F)
-(defconstant RT_TimeIterateData #xF140)
-(defconstant RT_TimeSequenceData #xF141)
-(defconstant RT_TimeVariant #xF142)
-(defconstant RT_TimeAnimationValue #xF143)
-(defconstant RT_TimeExtTimeNodeContainer #xF144)
-(defconstant RT_TimeSlaveContainer #xF145)
+(defenum RecordType ()
+ (RT_Document #x03E8)
+ (RT_DocumentAtom #x03E9)
+ (RT_EndDocumentAtom #x03EA)
+ (RT_Slide #x03EE)
+ (RT_SlideAtom #x03EF)
+ (RT_Notes #x03F0)
+ (RT_NotesAtom #x03F1)
+ (RT_Environment #x03F2)
+ (RT_SlidePersistAtom #x03F3)
+ (RT_MainMaster #x03F8)
+ (RT_SlideShowSlideInfoAtom #x03F9)
+ (RT_SlideViewInfo #x03FA)
+ (RT_GuideAtom #x03FB)
+ (RT_ViewInfoAtom #x03FD)
+ (RT_SlideViewInfoAtom #x03FE)
+ (RT_VbaInfo #x03FF)
+ (RT_VbaInfoAtom #x0400)
+ (RT_SlideShowDocInfoAtom #x0401)
+ (RT_Summary #x0402)
+ (RT_DocRoutingSlipAtom #x0406)
+ (RT_OutlineViewInfo #x0407)
+ (RT_SorterViewInfo #x0408)
+ (RT_ExternalObjectList #x0409)
+ (RT_ExternalObjectListAtom #x040A)
+ (RT_DrawingGroup #x040B)
+ (RT_Drawing #x040C)
+ (RT_GridSpacing10Atom #x040D)
+ (RT_RoundTripTheme12Atom #x040E)
+ (RT_RoundTripColorMapping12Atom #x040F)
+ (RT_NamedShows #x0410)
+ (RT_NamedShow #x0411)
+ (RT_NamedShowSlidesAtom #x0412)
+ (RT_NotesTextViewInfo9 #x0413)
+ (RT_NormalViewSetInfo9 #x0414)
+ (RT_NormalViewSetInfo9Atom #x0415)
+ (RT_RoundTripOriginalMainMasterId12Atom #x041C)
+ (RT_RoundTripCompositeMasterId12Atom #x041D)
+ (RT_RoundTripContentMasterInfo12Atom #x041E)
+ (RT_RoundTripShapeId12Atom #x041F)
+ (RT_RoundTripHFPlaceholder12Atom #x0420)
+ (RT_RoundTripContentMasterId12Atom #x0422)
+ (RT_RoundTripOArtTextStyles12Atom #x0423)
+ (RT_RoundTripHeaderFooterDefaults12Atom #x0424)
+ (RT_RoundTripDocFlags12Atom #x0425)
+ (RT_RoundTripShapeCheckSumForCL12Atom #x0426)
+ (RT_RoundTripNotesMasterTextStyles12Atom #x0427)
+ (RT_RoundTripCustomTableStyles12Atom #x0428)
+ (RT_List #x07D0)
+ (RT_FontCollection #x07D5)
+ (RT_FontCollection10 #x07D6)
+ (RT_BookmarkCollection #x07E3)
+ (RT_SoundCollection #x07E4)
+ (RT_SoundCollectionAtom #x07E5)
+ (RT_Sound #x07E6)
+ (RT_SoundDataBlob #x07E7)
+ (RT_BookmarkSeedAtom #x07E9)
+ (RT_ColorSchemeAtom #x07F0)
+ (RT_BlipCollection9 #x07F8)
+ (RT_BlipEntity9Atom #x07F9)
+ (RT_ExternalObjectRefAtom #x0BC1)
+ (RT_PlaceholderAtom #x0BC3)
+ (RT_ShapeAtom #x0BDB)
+ (RT_ShapeFlags10Atom #x0BDC)
+ (RT_RoundTripNewPlaceholderId12Atom #x0BDD)
+ (RT_OutlineTextRefAtom #x0F9E)
+ (RT_TextHeaderAtom #x0F9F)
+ (RT_TextCharsAtom #x0FA0)
+ (RT_StyleTextPropAtom #x0FA1)
+ (RT_MasterTextPropAtom #x0FA2)
+ (RT_TextMasterStyleAtom #x0FA3)
+ (RT_TextCharFormatExceptionAtom #x0FA4)
+ (RT_TextParagraphFormatExceptionAtom #x0FA5)
+ (RT_TextRulerAtom #x0FA6)
+ (RT_TextBookmarkAtom #x0FA7)
+ (RT_TextBytesAtom #x0FA8)
+ (RT_TextSpecialInfoDefaultAtom #x0FA9)
+ (RT_TextSpecialInfoAtom #x0FAA)
+ (RT_DefaultRulerAtom #x0FAB)
+ (RT_StyleTextProp9Atom #x0FAC)
+ (RT_TextMasterStyle9Atom #x0FAD)
+ (RT_OutlineTextProps9 #x0FAE)
+ (RT_OutlineTextPropsHeader9Atom #x0FAF)
+ (RT_TextDefaults9Atom #x0FB0)
+ (RT_StyleTextProp10Atom #x0FB1)
+ (RT_TextMasterStyle10Atom #x0FB2)
+ (RT_OutlineTextProps10 #x0FB3)
+ (RT_TextDefaults10Atom #x0FB4)
+ (RT_OutlineTextProps11 #x0FB5)
+ (RT_StyleTextProp11Atom #x0FB6)
+ (RT_FontEntityAtom #x0FB7)
+ (RT_FontEmbedDataBlob #x0FB8)
+ (RT_CString #x0FBA)
+ (RT_MetaFile #x0FC1)
+ (RT_ExternalOleObjectAtom #x0FC3)
+ (RT_Kinsoku #x0FC8)
+ (RT_Handout #x0FC9)
+ (RT_ExternalOleEmbed #x0FCC)
+ (RT_ExternalOleEmbedAtom #x0FCD)
+ (RT_ExternalOleLink #x0FCE)
+ (RT_BookmarkEntityAtom #x0FD0)
+ (RT_ExternalOleLinkAtom #x0FD1)
+ (RT_KinsokuAtom #x0FD2)
+ (RT_ExternalHyperlinkAtom #x0FD3)
+ (RT_ExternalHyperlink #x0FD7)
+ (RT_SlideNumberMetaCharAtom #x0FD8)
+ (RT_HeadersFooters #x0FD9)
+ (RT_HeadersFootersAtom #x0FDA)
+ (RT_TextInteractiveInfoAtom #x0FDF)
+ (RT_ExternalHyperlink9 #x0FE4)
+ (RT_RecolorInfoAtom #x0FE7)
+ (RT_ExternalOleControl #x0FEE)
+ (RT_SlideListWithText #x0FF0)
+ (RT_AnimationInfoAtom #x0FF1)
+ (RT_InteractiveInfo #x0FF2)
+ (RT_InteractiveInfoAtom #x0FF3)
+ (RT_UserEditAtom #x0FF5)
+ (RT_CurrentUserAtom #x0FF6)
+ (RT_DateTimeMetaCharAtom #x0FF7)
+ (RT_GenericDateMetaCharAtom #x0FF8)
+ (RT_HeaderMetaCharAtom #x0FF9)
+ (RT_FooterMetaCharAtom #x0FFA)
+ (RT_ExternalOleControlAtom #x0FFB)
+ (RT_ExternalMediaAtom #x1004)
+ (RT_ExternalVideo #x1005)
+ (RT_ExternalAviMovie #x1006)
+ (RT_ExternalMciMovie #x1007)
+ (RT_ExternalMidiAudio #x100D)
+ (RT_ExternalCdAudio #x100E)
+ (RT_ExternalWavAudioEmbedded #x100F)
+ (RT_ExternalWavAudioLink #x1010)
+ (RT_ExternalOleObjectStg #x1011)
+ (RT_ExternalCdAudioAtom #x1012)
+ (RT_ExternalWavAudioEmbeddedAtom #x1013)
+ (RT_AnimationInfo #x1014)
+ (RT_RtfDateTimeMetaCharAtom #x1015)
+ (RT_ExternalHyperlinkFlagsAtom #x1018)
+ (RT_ProgTags #x1388)
+ (RT_ProgStringTag #x1389)
+ (RT_ProgBinaryTag #x138A)
+ (RT_BinaryTagDataBlob #x138B)
+ (RT_PrintOptionsAtom #x1770)
+ (RT_PersistDirectoryAtom #x1772)
+ (RT_PresentationAdvisorFlags9Atom #x177A)
+ (RT_HtmlDocInfo9Atom #x177B)
+ (RT_HtmlPublishInfoAtom #x177C)
+ (RT_HtmlPublishInfo9 #x177D)
+ (RT_BroadcastDocInfo9 #x177E)
+ (RT_BroadcastDocInfo9Atom #x177F)
+ (RT_EnvelopeFlags9Atom #x1784)
+ (RT_EnvelopeData9Atom #x1785)
+ (RT_VisualShapeAtom #x2AFB)
+ (RT_HashCodeAtom #x2B00)
+ (RT_VisualPageAtom #x2B01)
+ (RT_BuildList #x2B02)
+ (RT_BuildAtom #x2B03)
+ (RT_ChartBuild #x2B04)
+ (RT_ChartBuildAtom #x2B05)
+ (RT_DiagramBuild #x2B06)
+ (RT_DiagramBuildAtom #x2B07)
+ (RT_ParaBuild #x2B08)
+ (RT_ParaBuildAtom #x2B09)
+ (RT_LevelInfoAtom #x2B0A)
+ (RT_RoundTripAnimationAtom12Atom #x2B0B)
+ (RT_RoundTripAnimationHashAtom12Atom #x2B0D)
+ (RT_Comment10 #x2EE0)
+ (RT_Comment10Atom #x2EE1)
+ (RT_CommentIndex10 #x2EE4)
+ (RT_CommentIndex10Atom #x2EE5)
+ (RT_LinkedShape10Atom #x2EE6)
+ (RT_LinkedSlide10Atom #x2EE7)
+ (RT_SlideFlags10Atom #x2EEA)
+ (RT_SlideTime10Atom #x2EEB)
+ (RT_DiffTree10 #x2EEC)
+ (RT_Diff10 #x2EED)
+ (RT_Diff10Atom #x2EEE)
+ (RT_SlideListTableSize10Atom #x2EEF)
+ (RT_SlideListEntry10Atom #x2EF0)
+ (RT_SlideListTable10 #x2EF1)
+ (RT_CryptSession10Container #x2F14)
+ (RT_FontEmbedFlags10Atom #x32C8)
+ (RT_FilterPrivacyFlags10Atom #x36B0)
+ (RT_DocToolbarStates10Atom #x36B1)
+ (RT_PhotoAlbumInfo10Atom #x36B2)
+ (RT_SmartTagStore11Container #x36B3)
+ (RT_RoundTripSlideSyncInfo12 #x3714)
+ (RT_RoundTripSlideSyncInfoAtom12 #x3715)
+ (RT_TimeConditionContainer #xF125)
+ (RT_TimeNode #xF127)
+ (RT_TimeCondition #xF128)
+ (RT_TimeModifier #xF129)
+ (RT_TimeBehaviorContainer #xF12A)
+ (RT_TimeAnimateBehaviorContainer #xF12B)
+ (RT_TimeColorBehaviorContainer #xF12C)
+ (RT_TimeEffectBehaviorContainer #xF12D)
+ (RT_TimeMotionBehaviorContainer #xF12E)
+ (RT_TimeRotationBehaviorContainer #xF12F)
+ (RT_TimeScaleBehaviorContainer #xF130)
+ (RT_TimeSetBehaviorContainer #xF131)
+ (RT_TimeCommandBehaviorContainer #xF132)
+ (RT_TimeBehavior #xF133)
+ (RT_TimeAnimateBehavior #xF134)
+ (RT_TimeColorBehavior #xF135)
+ (RT_TimeEffectBehavior #xF136)
+ (RT_TimeMotionBehavior #xF137)
+ (RT_TimeRotationBehavior #xF138)
+ (RT_TimeScaleBehavior #xF139)
+ (RT_TimeSetBehavior #xF13A)
+ (RT_TimeCommandBehavior #xF13B)
+ (RT_TimeClientVisualElement #xF13C)
+ (RT_TimePropertyList #xF13D)
+ (RT_TimeVariantList #xF13E)
+ (RT_TimeAnimationValueList #xF13F)
+ (RT_TimeIterateData #xF140)
+ (RT_TimeSequenceData #xF141)
+ (RT_TimeVariant #xF142)
+ (RT_TimeAnimationValue #xF143)
+ (RT_TimeExtTimeNodeContainer #xF144)
+ (RT_TimeSlaveContainer #xF145))
diff --git a/olefs.lisp b/olefs.lisp
@@ -520,13 +520,15 @@
(declare (ignore in))
(dotimes (j (* 2 level))
(write-char #\space))
- (format t "~d #x~x #x~x #x~x ~d :: ~d ~d~%"
+ (format t "~d #x~x #x~x #x~x ~d :: ~d ~d :: ~a~%"
i
(RecordHeader.recVer h)
(RecordHeader.recInstance h)
(RecordHeader.recType h)
(RecordHeader.recLen h)
- start end))))
+ start
+ end
+ (enum-by-value 'RecordType (RecordHeader.recType h))))))
(defun print-RecordHeader-tree-from-ppt-file (filename)
(with-ole-file (ole-file filename)
