192 lines
6.7 KiB
Text
192 lines
6.7 KiB
Text
|
|
#------------------------------------------------------------------------------
|
|
# $File: mathematica,v 1.17 2023/06/16 19:33:58 christos Exp $
|
|
# mathematica: file(1) magic for mathematica files
|
|
# "H. Nanosecond" <aldomel@ix.netcom.com>
|
|
# Mathematica a multi-purpose math program
|
|
# versions 2.2 and 3.0
|
|
|
|
0 name wolfram
|
|
>0 string x Mathematica notebook version 2.x
|
|
!:ext mb
|
|
!:mime application/vnd.wolfram.mathematica
|
|
|
|
#mathematica .mb
|
|
0 string \064\024\012\000\035\000\000\000
|
|
>0 use wolfram
|
|
0 string \064\024\011\000\035\000\000\000
|
|
>0 use wolfram
|
|
|
|
#
|
|
0 search/1000 Content-type:\040application/mathematica Mathematica notebook version 2.x
|
|
!:ext nb
|
|
!:mime application/mathematica
|
|
|
|
|
|
# .ma
|
|
# multiple possibilities:
|
|
|
|
0 string (*^\n\n::[\011frontEndVersion\ =
|
|
#>41 string >\0 %s
|
|
>0 use wolfram
|
|
|
|
#0 string (*^\n\n::[\011palette
|
|
|
|
#0 string (*^\n\n::[\011Information
|
|
#>675 string >\0 %s #doesn't work well
|
|
|
|
# there may be 'cr' instead of 'nl' in some does this matter?
|
|
|
|
# generic:
|
|
0 string (*^\r\r::[\011
|
|
>0 use wolfram
|
|
0 string (*^\r\n\r\n::[\011
|
|
>0 use wolfram
|
|
0 string (*^\015
|
|
>0 use wolfram
|
|
0 string (*^\n\r\n\r::[\011
|
|
>0 use wolfram
|
|
0 string (*^\r::[\011
|
|
>0 use wolfram
|
|
0 string (*^\r\n::[\011
|
|
>0 use wolfram
|
|
0 string (*^\n\n::[\011
|
|
>0 use wolfram
|
|
0 string (*^\n::[\011
|
|
>0 use wolfram
|
|
|
|
|
|
# Mathematica .mx files
|
|
|
|
#0 string (*This\ is\ a\ Mathematica\ binary\ dump\ file.\ It\ can\ be\ loaded\ with\ Get.*) Mathematica binary file
|
|
0 string (*This\ is\ a\ Mathematica\ binary\ Mathematica binary file
|
|
#>71 string \000\010\010\010\010\000\000\000\000\000\000\010\100\010\000\000\000
|
|
# >71... is optional
|
|
>88 string >\0 from %s
|
|
|
|
|
|
# Mathematica files PBF:
|
|
# 115 115 101 120 102 106 000 001 000 000 000 203 000 001 000
|
|
0 string MMAPBF\000\001\000\000\000\203\000\001\000 Mathematica PBF (fonts I think)
|
|
|
|
# .ml files These are menu resources I think
|
|
# these start with "[0-9][0-9][0-9]\ A~[0-9][0-9][0-9]\
|
|
# how to put that into a magic rule?
|
|
4 string \ A~ MAthematica .ml file
|
|
|
|
# .nb files
|
|
#too long 0 string (***********************************************************************\n\n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ Mathematica-Compatible Notebook Mathematica 3.0 notebook
|
|
0 string (*********************** Mathematica 3.0 notebook
|
|
|
|
# other (* matches it is a comment start in these langs
|
|
# GRR: Too weak; also matches other languages e.g. ML
|
|
#0 string (* Mathematica, or Pascal, Modula-2 or 3 code text
|
|
|
|
#########################
|
|
# MatLab v5
|
|
# URL: http://fileformats.archiveteam.org/wiki/MAT
|
|
# Reference: https://www.mathworks.com/help/pdf_doc/matlab/matfile_format.pdf
|
|
# first 116 bytes of header contain text in human-readable form
|
|
0 string MATLAB Matlab v
|
|
#>11 string/T x \b, at 11 "%.105s"
|
|
#!:mime application/octet-stream
|
|
!:mime application/x-matlab-data
|
|
!:ext mat
|
|
# https://de.mathworks.com/help/matlab/import_export/mat-file-versions.html
|
|
# level of the MAT-file like: 5.0 7.0 or maybe 7.3
|
|
#>7 string x LEVEL "%.3s"
|
|
>7 ubyte =0x35 \b5 mat-file
|
|
>7 ubyte !0x35
|
|
>>7 string x \b%.3s mat-file
|
|
>126 short 0x494d (big endian)
|
|
>>124 beshort x version %#04x
|
|
>126 short 0x4d49 (little endian)
|
|
# 0x0100 for level 5.0 and 0x0200 for level 7.0
|
|
>>124 leshort x version %#04x
|
|
# test again so that default clause works
|
|
>126 short x
|
|
# created by MATLAB include Platform sometimes without leading comma (0x2C) or missing
|
|
# like: GLNX86 PCWIN PCWIN64 SOL2 Windows\0407 nt posix
|
|
>>20 search/2 Platform:\040 \b, platform
|
|
>>>&0 string x %-0.2s
|
|
>>>&2 ubyte !0x2C \b%c
|
|
>>>>&0 ubyte !0x2C \b%c
|
|
>>>>>&0 ubyte !0x2C \b%c
|
|
>>>>>>&0 ubyte !0x2C \b%c
|
|
>>>>>>>&0 ubyte !0x2C \b%c
|
|
>>>>>>>>&0 ubyte !0x2C \b%c
|
|
>>>>>>>>>&0 ubyte !0x2C \b%c
|
|
# examples without Platform tag like one_by_zero_char.mat
|
|
>>20 default x
|
|
>>>11 string x "%s"
|
|
# created by MATLAB include time like: Fri Feb 20 15:26:59 2009
|
|
>34 search/9/c created\040on:\040 \b, created
|
|
>>&0 string x %-.24s
|
|
# MatLab v4
|
|
# From: Joerg Jenderek
|
|
# check for valid imaginary flag of Matlab matrix version 4
|
|
13 ushort 0
|
|
# check for valid ASCII matrix name
|
|
>20 ubyte >0x1F
|
|
# skip PreviousEntries.dat with "invalid high" name \304P\344@\001
|
|
>>20 ubyte <0304
|
|
# skip some Netwfw*.dat and $I3KREPH.dat by checking for non zero number of rows
|
|
>>>4 ulong !0
|
|
# skip some CD-ROM filesystem like test-hfs.iso by looking for valid big endian type flag
|
|
>>>>0 ubelong&0xFFffFF00 0x00000300
|
|
>>>>>0 use matlab4
|
|
# no example for 8-bit and 16-bit integers matrix
|
|
>>>>0 ubelong&0xFFffFF00 0x00000400
|
|
>>>>>0 use matlab4
|
|
# branch for Little-Endian variant of Matlab MATrix version 4
|
|
# skip big endian variant by looking for valid low lttle endian type flag
|
|
>>>>0 ulelong <53
|
|
# skip tokens.dat and some Netwfw*.dat by check for valid imaginary flag value of MAT version 4
|
|
>>>>>12 ulelong <2
|
|
# no misidentified little endian MATrix example with "short" matrix name
|
|
>>>>>>16 ulelong <3
|
|
# skip radeon firmware BONAIRE_sdma.bin HAWAII_sdma.bin KABINI_sdma.bin KAVERI_sdma.bin MULLINS_sdma.bin
|
|
# by check for non zero matrix name length
|
|
>>>>>>>16 ubelong >0
|
|
>>>>>>>>0 use \^matlab4
|
|
# little endian MATrix with "long" matrix name or some misidentified samples
|
|
>>>>>>16 ulelong >2
|
|
# skip TileCacheLogo-*.dat with invalid 2nd character \001 of matrix name with length 96
|
|
>>>>>>>21 ubyte >0x1F
|
|
>>>>>>>>0 use \^matlab4
|
|
# Note: called "MATLAB Mat File" with version "Level 4" by DROID via PUID fmt/1550
|
|
# display information of Matlab v4 mat-file
|
|
0 name matlab4 Matlab v4 mat-file
|
|
#!:mime application/octet-stream
|
|
!:mime application/x-matlab-data
|
|
!:ext mat
|
|
# 20-byte header with 5 long integers that contains information describing certain attributes of the Matrix
|
|
# type flag decimal MOPT; maximal 4052=FD4h; maximal 52=34h for little endian
|
|
#>0 ubelong x \b, type flag %u
|
|
#>0 ubelong x (%#x)
|
|
# M: 0~little endian 1~Big Endian 2~VAX D-float 3~VAX G-float 4~Cray
|
|
#>0 ubelong/1000 x \b, M=%u
|
|
>0 ubelong/1000 0 (little endian)
|
|
>0 ubelong/1000 1 (big endian)
|
|
>0 ubelong/1000 2 (VAX D-float)
|
|
>0 ubelong/1000 3 (VAX G-float)
|
|
>0 ubelong/1000 4 (Cray)
|
|
# namlen; the length of the matrix name
|
|
#>16 ubelong x \b, name length %u
|
|
#>(16.L+19) ubyte x \b, TERMINATING NAME CHARACTER=%#x
|
|
# nul terminated matrix name like: fit_params testmatrix testsparsecomplex teststringarray
|
|
#>20 string x \b, MATRIX NAME="%s"
|
|
#>21 ubyte x \b, MAYBE 2ND CHAR=%c
|
|
>16 pstring/L x %s
|
|
# T indicates the matrix type: 0~numeric 1~text 2~sparse
|
|
#>0 ubelong%10 x \b, T=%u
|
|
>0 ubelong%10 0 \b, numeric
|
|
>0 ubelong%10 1 \b, text
|
|
>0 ubelong%10 2 \b, sparse
|
|
# mrows; number of rows in the matrix like: 1 3 8
|
|
>4 ubelong x \b, rows %u
|
|
# ncols; number of columns in the matrix like: 1 3 4 5 9 43
|
|
>8 ubelong x \b, columns %u
|
|
# imagf; imaginary flag; 1~matrix has an imaginary part 0~only real data
|
|
>12 ubelong !0 \b, imaginary (%u)
|
|
# real; Real part of the matrix consists of mrows * ncols numbers
|