fix Panorama databases; Joerg Jenderek

diff --git a/magic/Magdir/archive b/magic/Magdir/archive
index 4643462478c47e6685c0251fa6e0ac4d84d85fa9..d5afd6e2b32670790d4ec462bf90260daf8d4135 100644 (file)
--- a/magic/Magdir/archive
+++ b/magic/Magdir/archive
@@ -1,5 +1,5 @@
 #------------------------------------------------------------------------------
-# $File: archive,v 1.99 2015/12/04 20:48:02 christos Exp $
+# $File: archive,v 1.100 2015/12/15 01:06:00 christos Exp $
 # archive:  file(1) magic for archive formats (see also "msdos" for self-
 #           extracting compressed archives)
 #
@@ -246,7 +246,15 @@
 # BA
 # TODO: idarc says "bytes 0-2 == bytes 3-5"
 # TTComp
-0      string  \0\6 TTComp archive data
+# URL: http://fileformats.archiveteam.org/wiki/TTComp_archive
+# Update: Joerg Jenderek
+# GRR: line below is too general as it matches also Panorama database "TCDB 2003-10 demo.pan", others
+0      string  \0\6 
+# look for first keyword of Panorama database *.pan
+>12    search/261      DESIGN  
+# skip keyword with low entropy
+>12    default         x       TTComp archive, binary, 4K dictionary
+# (version 5.25) labeled the above entry as "TTComp archive data"
 # ESP, could this conflict with Easy Software Products' (e.g.ESP ghostscript) documentation?
 0      string  ESP ESP archive data
 # ZPack

diff --git a/magic/Magdir/database b/magic/Magdir/database
index 0748423cc78d6728409b7a46407bbe60fc82b7a7..04d40ae54549ae5ad2cf3673a5a632ccef30ec2c 100644 (file)
--- a/magic/Magdir/database
+++ b/magic/Magdir/database
@@ -1,6 +1,6 @@
 
 #------------------------------------------------------------------------------
-# $File: database,v 1.45 2015/09/09 16:25:29 christos Exp $
+# $File: database,v 1.46 2015/09/27 05:40:08 christos Exp $
 # database:  file(1) magic for various databases
 #
 # extracted from header/code files by Graeme Wilford (eep2gw@ee.surrey.ac.uk)
@@ -550,3 +550,18 @@
 # Hopper (reverse engineering tool) http://www.hopperapp.com/
 0      string          hopperdb        Hopper database
 
+# URL: https://en.wikipedia.org/wiki/Panorama_(database_engine)
+# Reference: http://www.provue.com/Panorama/
+# From: Joerg Jenderek
+# NOTE: test only versions 4 and 6.0 with Windows
+# length of Panorama database name 
+5      ubyte                           >0              
+# look after database name for "some" null bits
+>(5.B+7)       ubelong&0xF3ffF000      0               
+# look for first keyword
+>>&1           search/2                DESIGN          Panorama database
+#!:mime        application/x-panorama-database
+!:apple        KASXZEPD
+!:ext  pan
+# database name
+>>>5   pstring                         x               \b, "%s"

diff --git a/magic/Magdir/psdbms b/magic/Magdir/psdbms
index f1ae6dc905fa4161d8a0b688f64f363913e5610c..3dc48cd6ddf8c0140cb36dc1b4437ff94a751f6b 100644 (file)
--- a/magic/Magdir/psdbms
+++ b/magic/Magdir/psdbms
@@ -1,8 +1,14 @@
 
 #------------------------------------------------------------------------------
-# $File$
+# $File: psdbms,v 1.6 2009/09/19 16:28:11 christos Exp $
 # psdbms:  file(1) magic for psdatabase
 #
-0      belong&0xff00ffff       0x56000000      ps database
->1     string  >\0     version %s
->4     string  >\0     from kernel %s
+# Update: Joerg Jenderek
+# GRR: line below too general as it catches also some Panorama database *.pan ,
+# AppleWorks word processor
+0      belong&0xff00ffff       0x56000000      
+# assume version starts with digit
+>1     regex/s                 =^[0-9]         ps database
+>>1    string  >\0     version %s
+# kernel name
+>>4    string  >\0     from kernel %s