handle thm gallery files used by {Star,Open,Libre}-Office (Joerg Jenderek)

diff --git a/magic/Magdir/wordprocessors b/magic/Magdir/wordprocessors
index 7d6cf61335331a65ca11e923c784a014284bd77c..0f168887f1b6cfacb35efeb59ea42f9cb684e14a 100644 (file)
--- a/magic/Magdir/wordprocessors
+++ b/magic/Magdir/wordprocessors
@@ -1,6 +1,6 @@
 
 #------------------------------------------------------------------------------
 
 #------------------------------------------------------------------------------

-# $File: wordprocessors,v 1.22 2019/08/02 18:08:18 christos Exp $
+# $File: wordprocessors,v 1.23 2019/10/25 20:15:49 christos Exp $

 # wordprocessors:  file(1) magic fo word processors.
 #
 ####### PWP file format used on Smith Corona Personal Word Processors:
 # wordprocessors:  file(1) magic fo word processors.
 #
 ####### PWP file format used on Smith Corona Personal Word Processors:


@@ -272,3 +272,33 @@
 # help files .hlp compiled from html and used by gfxboot added by Joerg Jenderek
 # markups page=0x04,label=0x12, followed by strings like "opt" or "main" and title=0x14
 0      ulelong&0x8080FFFF      0x00001204      gfxboot compiled html help file
 # help files .hlp compiled from html and used by gfxboot added by Joerg Jenderek
 # markups page=0x04,label=0x12, followed by strings like "opt" or "main" and title=0x14
 0      ulelong&0x8080FFFF      0x00001204      gfxboot compiled html help file

+
+# From:                Joerg Jenderek
+# URL:         https://en.wikipedia.org/wiki/StarOffice
+# Note:                used in Star-, Open- and Libre-Office
+# named as soffice.StarConfigFile.6 or OpenOffice.org configuration by others
+0              ubeshort        0x0400
+#>(2.s+8)      ubequad         x               \b, gap 0x%16.16llx
+# test for null value in gap after theme name maybe unreliable
+#>(2.s+9)      ubyte           0               \b, 0-byte
+# look for keyword GALRESRV near the end
+# "C:\Program Files (x86)\StarOffice6.0\share\gallery\sg27.thm" Navigation, 238 objects
+#>0            search/8415     GALRESRV        \b, GALRESRV found
+# "neues thema6.thm" MorePictures, 315 objects
+#>0            search/19299    GALRESRV        \b, GALRESRV FOUND
+#>2            uleshort        x               \b, name length %u
+# skip file2147.chk by check for positive name length like for sg16.thm "3D"
+>2             uleshort        >0              StarOffice Gallery theme
+!:mime         application/x-stargallery-thm
+!:ext          thm
+# gallery name
+>>2            pstring/h       x               %s
+# number of objects
+>>(2.s+4)      ulelong         x               \b, %u object
+# plural s
+>>(2.s+4)      ulelong         !1              \bs
+# if available then display first object name 
+>>(2.s+4)      ulelong         >0
+# partial file name, URL or internal name like "dd2*" of 1st object or RESRV
+>>>(2.s+11)    pstring/h       x               \b, 1st %s
+