MaplePrimes - answers and comments on Question, MW file format specification

base64 of dotm

acer — Tue, 08 Nov 2011 19:54:57 Z

> restart:

> s1:="LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5n\
R0koX3N5c2xpYkdGJzYuLUkjbWlHRiQ2JVEiQUYnLyUnaXRhbGljR1EldHJ1ZUY\
nLyUsbWF0aHZhcmlhbnRHUSdpdGFsaWNGJy1JI21vR0YkNi1RKiZjb2xvbmV\
xO0YnL0YzUSdub3JtYWxGJy8lJmZlbmNlR1EmZmFsc2VGJy8lKnNlcGFyYXRv\
ckdGPS8lKXN0cmV0Y2h5R0Y9LyUqc3ltbWV0cmljR0Y9LyUobGFyZ2VvcEdGPS\
8lLm1vdmFibGVsaW1pdHNHRj0vJSdhY2NlbnRHRj0vJSdsc3BhY2VHUSwwLjI3\
Nzc3NzhlbUYnLyUncnNwYWNlR0ZMLUkjbW5HRiQ2JFEiNEYnRjktRjY2LVEiO0Yn\
RjlGOy9GP0YxRkBGQkZERkZGSC9GS1EmMC4wZW1GJ0ZNLUknbXNwYWNlR0\
YkNiYvJSdoZWlnaHRHUSYwLjBleEYnLyUmd2lkdGhHRlgvJSZkZXB0aEdGaG4vJ\
SpsaW5lYnJlYWtHUShuZXdsaW5lRictRjY2LVEifkYnRjlGO0Y+RkBGQkZERkZGS\
EZXL0ZORlgtRiw2JVEiQkYnRi9GMkY1LUZQNiRRIjdGJ0Y5RlMvJStleGVjdXRhYm\
xlR0Y9Rjk=":

> sfrombase64:=StringTools:-Decode(s1[1..-1],encoding=base64);

"-I%mrowG6#/I+modulenameG6"I,TypesettingGI(_syslibGF'6.-I#miGF$6\

  %Q"AF'/%'italicGQ%trueF'/%,mathvariantGQ'italicF'-I#moGF$6-Q*&\

  coloneq;F'/F3Q'normalF'/%&fenceGQ&falseF'/%*separatorGF=/%)str\

  etchyGF=/%*symmetricGF=/%(largeopGF=/%.movablelimitsGF=/%'acce\

  ntGF=/%'lspaceGQ,0.2777778emF'/%'rspaceGFL-I#mnGF$6$Q"4F'F9-F6\

  6-Q";F'F9F;/F?F1F@FBFDFFFH/FKQ&0.0emF'FM-I'mspaceGF$6&/%'heigh\

  tGQ&0.0exF'/%&widthGFX/%&depthGFhn/%*linebreakGQ(newlineF'-F66\

  -Q"~F'F9F;F>F@FBFDFFFHFW/FNFX-F,6%Q"BF'F/F2F5-FP6$Q"7F'F9FS/%+\

  executableGF=F9"

> fromdotm:=sscanf(sfrombase64[1..-1],"%m"):

> lprint(fromdotm);

[Typesetting:-mrow(Typesetting:-mi("A", italic = "true", mathvariant = "italic"), Typesetting:-mo("&coloneq;", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mn("4", mathvariant = "normal"), Typesetting:-mo(";", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.2777778em"), Typesetting:-mspace(height = "0.0ex", width = "0.0em", depth = "0.0ex", linebreak = "newline"), Typesetting:-mo(" ", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.0em"), Typesetting:-mi("B", italic = "true", mathvariant = "italic"), Typesetting:-mo("&coloneq;", mathvariant = "normal", fence = "false", separator = "false", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.2777778em", rspace = "0.2777778em"), Typesetting:-mn("7", mathvariant = "normal"), Typesetting:-mo(";", mathvariant = "normal", fence = "false", separator = "true", stretchy = "false", symmetric = "false", largeop = "false", movablelimits = "false", accent = "false", lspace = "0.0em", rspace = "0.2777778em"), executable = "false", mathvariant = "normal")]

> sprintf("%a",fromdotm);

"[Typesetting:-mrow(Typesetting:-mi("A",italic = "true",mathvari\

  ant = "italic"),Typesetting:-mo("&coloneq;",mathvariant = 

   "normal",fence = "false",separator = "false",stretchy = 

   "false",symmetric = "false",largeop = "false",movablelimits 

   = "false",accent = "false",lspace = "0.2777778em",rspace = 

   "0.2777778em"),Typesetting:-mn("4",mathvariant = "normal"),Ty\

  pesetting:-mo(";",mathvariant = "normal",fence = "false",separ\

  ator = "true",stretchy = "false",symmetric = "false",largeop 

   = "false",movablelimits = "false",accent = "false",lspace = 

   "0.0em",rspace = "0.2777778em"),Typesetting:-mspace(height = 

   "0.0ex",width = "0.0em",depth = "0.0ex",linebreak = 

   "newline"),Typesetting:-mo(" ",mathvariant = "normal",fence 

   = "false",separator = "false",stretchy = "false",symmetric = 

   "false",largeop = "false",movablelimits = "false",accent = 

   "false",lspace = "0.0em",rspace = "0.0em"),Typesetting:-mi("B\

  ",italic = "true",mathvariant = "italic"),Typesetting:-mo("&co\

  loneq;",mathvariant = "normal",fence = "false",separator = 

   "false",stretchy = "false",symmetric = "false",largeop = 

   "false",movablelimits = "false",accent = "false",lspace = 

   "0.2777778em",rspace = "0.2777778em"),Typesetting:-mn("7",mat\

  hvariant = "normal"),Typesetting:-mo(";",mathvariant = 

   "normal",fence = "false",separator = "true",stretchy = 

   "false",symmetric = "false",largeop = "false",movablelimits 

   = "false",accent = "false",lspace = "0.0em",rspace = 

   "0.2777778em"),executable = "false",mathvariant = "normal")]"

> print(op(fromdotm));

                                    A := 4;

                                    B := 7;

acer

a few more ideas

acer — Tue, 08 Nov 2011 21:32:59 Z

A few more ideas, for manipulating this result. (This is crude. You'd likely want it much more bulletproof and sophisticated. And it'd likely end up much different, if done carefully and properly.)

Continuing from the above...

> H:=Typesetting:-Parse(op(fromdotm)):

> HH:=remove(type,
>        StringTools:-Split(convert(op(-1,eval(H,1)),string),"1;"),
>        identical(" ",""));

                     ["A := 4", " B := 7"]

> seq(eval(parse(t)), t in HH):

> A, B;
                              4, 7

I'm not sure that I understand what part you plan for python in this. If you were to implement the entire scripting process using commandline Maple itself then you might more easily utilize (or get more ideas from) the exports of the `Worksheet`, `XMLTools`, and `Typesetting` packages.

[Also, some curiosities of scripting with commandline Maple.]

acer

Doesn't work in non-graphhically

tfr@nanophysics.dk — Wed, 09 Nov 2011 14:04:22 Z

Hi Acer,

Thanks for your responses. Meanwhile I have discovered that this approach does not work in the commandline console:

#-->s1 :="LUklbXJvd0c2Iy9JK21vZHVsZW5hbWV\                                     
#-->HNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdG\                                     
#-->JzYoLUkjbWlHRiQ2JVEkQUFBRicvJSdpdGFsa\                                     
#-->WNHUSV0cnVlRicvJSxtYXRodmFyaWFudEdRJ2\                                     
#-->l0YWxpY0YnLUkjbW9HRiQ2LVEqJmNvbG9uZXE\                                     
#-->7RicvRjNRJ25vcm1hbEYnLyUmZmVuY2VHUSZm\                                     
#-->YWxzZUYnLyUqc2VwYXJhdG9yR0Y9LyUpc3RyZ\                                     
#-->XRjaHlHRj0vJSpzeW1tZXRyaWNHRj0vJShsYX\                                     
#-->JnZW9wR0Y9LyUubW92YWJsZWxpbWl0c0dGPS8\                                     
#-->lJ2FjY2VudEdGPS8lJ2xzcGFjZUdRLDAuMjc3\                                     
#-->Nzc3OGVtRicvJSdyc3BhY2VHRkwtSShtZmVuY\                                     
#-->2VkR0YkNiYtRiM2JS1GUDYmLUYjNiUtRiw2JV\                                     
#-->EiYUYnRi9GMi8lK2V4ZWN1dGFibGVHRj1GOUY\                                     
#-->5LyUlb3BlbkdRInxmckYnLyUmY2xvc2VHUSJ8\                                     
#-->aHJGJ0ZlbkY5RjlGZ25Gam4tRjY2LVEiO0YnR\                                     
#-->jlGOy9GP0YxRkBGQkZERkZGSC9GS1EmMC4wZW1GJ0ZNRmVuRjk=";
s1 := "LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzY\
oLUkjbWlHRiQ2JVEkQUFBRicvJSdpdGFsaWNHUSV0cnVlRicvJSxtYXRodmFyaWFudEdRJ2l0YWxpY\
0YnLUkjbW9HRiQ2LVEqJmNvbG9uZXE7RicvRjNRJ25vcm1hbEYnLyUmZmVuY2VHUSZmYWxzZUYnLyU\
qc2VwYXJhdG9yR0Y9LyUpc3RyZXRjaHlHRj0vJSpzeW1tZXRyaWNHRj0vJShsYXJnZW9wR0Y9LyUub\
W92YWJsZWxpbWl0c0dGPS8lJ2FjY2VudEdGPS8lJ2xzcGFjZUdRLDAuMjc3Nzc3OGVtRicvJSdyc3B\
hY2VHRkwtSShtZmVuY2VkR0YkNiYtRiM2JS1GUDYmLUYjNiUtRiw2JVEiYUYnRi9GMi8lK2V4ZWN1d\
GFibGVHRj1GOUY5LyUlb3BlbkdRInxmckYnLyUmY2xvc2VHUSJ8aHJGJ0ZlbkY5RjlGZ25Gam4tRjY\
2LVEiO0YnRjlGOy9GP0YxRkBGQkZERkZGSC9GS1EmMC4wZW1GJ0ZNRmVuRjk="
#-->sfrombase64:=StringTools:-Decode(s1[1..-1],encoding=base64);
sfrombase64 := "-I%mrowG6#/I+modulenameG6\"I,TypesettingGI(_syslibGF'6(-I#miGF\
$6%Q$AAAF'/%'italicGQ%trueF'/%,mathvariantGQ'italicF'-I#moGF$6-Q*≔F'/F\
3Q'normalF'/%&fenceGQ&falseF'/%*separatorGF=/%)stretchyGF=/%*symmetricGF=/%(la\
rgeopGF=/%.movablelimitsGF=/%'accentGF=/%'lspaceGQ,0.2777778emF'/%'rspaceGFL-I\
(mfencedGF$6&-F#6%-FP6&-F#6%-F,6%Q\"aF'F/F2/%+executableGF=F9F9/%%openGQ\"|frF\
'/%&closeGQ\"|hrF'FenF9F9FgnFjn-F66-Q\";F'F9F;/F?F1F@FBFDFFFH/FKQ&0.0emF'FMFen\
F9"
#-->fromdotm:=sscanf(sfrombase64[1..-1],"%m");
fromdotm := [Typesetting:-mrow(Typesetting:-mi("AAA",italic = "true",
mathvariant = "italic"),Typesetting:-mo("≔",mathvariant = "normal",
fence = "false",separator = "false",stretchy = "false",symmetric = "false",
largeop = "false",movablelimits = "false",accent = "false",lspace = 
"0.2777778em",rspace = "0.2777778em"),Typesetting:-mfenced(Typesetting:-mrow(
Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi("a",italic = "true",
mathvariant = "italic"),executable = "false",mathvariant = "normal"),
mathvariant = "normal",open = "{",close = "}"),executable = "false",
mathvariant = "normal"),mathvariant = "normal",open = "{",close = "}"),
Typesetting:-mo(";",mathvariant = "normal",fence = "false",separator = "true",
stretchy = "false",symmetric = "false",largeop = "false",movablelimits = 
"false",accent = "false",lspace = "0.0em",rspace = "0.2777778em"),executable =
"false",mathvariant = "normal")]
#-->print(op(fromdotm));
Typesetting:-mrow(Typesetting:-mi("AAA",italic = "true",mathvariant = "italic"
),Typesetting:-mo("≔",mathvariant = "normal",fence = "false",separator
= "false",stretchy = "false",symmetric = "false",largeop = "false",
movablelimits = "false",accent = "false",lspace = "0.2777778em",rspace = 
"0.2777778em"),Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mfenced(
Typesetting:-mrow(Typesetting:-mi("a",italic = "true",mathvariant = "italic"),
executable = "false",mathvariant = "normal"),mathvariant = "normal",open = "{"
,close = "}"),executable = "false",mathvariant = "normal"),mathvariant = 
"normal",open = "{",close = "}"),Typesetting:-mo(";",mathvariant = "normal",
fence = "false",separator = "true",stretchy = "false",symmetric = "false",
largeop = "false",movablelimits = "false",accent = "false",lspace = "0.0em",
rspace = "0.2777778em"),executable = "false",mathvariant = "normal")
#-->
#-->printf("%A",op(fromdotm));
Typesetting:-mrow(Typesetting:-mi(AAA,italic = true,mathvariant = italic),Typesetting:-mo(≔,mathvariant = normal,fence = false,separator = false,stretchy = false,symmetric = false,largeop = false,movablelimits = false,accent = false,lspace = 0.2777778em,rspace = 0.2777778em),Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi(a,italic = true,mathvariant = italic),executable = false,mathvariant = normal),mathvariant = normal,open = {,close = }),executable = false,mathvariant = normal),mathvariant = normal,open = {,close = }),Typesetting:-mo(;,mathvariant = normal,fence = false,separator = true,stretchy = false,symmetric = false,largeop = false,movablelimits#--> H:=Typesetting:-Parse(op(fromdotm)):pace = 0.2777778em),executable = false,mathvariant = normal)

To give you an idea what I would like to do: I have a worksheet and within python I want to open a pipe to the console version of Maple and execute the worksheet. Afterwards I want to execute additional commands not contained in the worksheet. Since Maple does not store all the the input in the XML attribute "input-equation" I would like to decode the equation. Unfortunately, this means decoding the code above.

yes

acer — Wed, 09 Nov 2011 14:29:03 Z

@tfr@nanophysics.dk I think that you have misunderstood. The first task is to decode the base64 and the dotm encodings of the 2D Math represented as Typesetting calls. The two encoding steps, as the first steps above, would have to be done if you want to get at the code in some way. And they do work. But they decode to an internal representation of 2D Math (which is a non-plaintext Maple language) marked up in Typesetting code.

Yes, of course it does not work to print the Typesetting form (of 2D Math) in a 1D environment. I only included that `print` call to demonstrate that the initial decoding steps had in fact worked to obtain a necessary intermediate form.

And then I subsequently added a Comment, illustrating how the 2D Math Typesetting representation might further be parsed and even finally evaluated/interpreted/executed as 1D Maple Notation code. And that worked too. But perhaps you had not yet read and digested it, before you made a conclusion about the first steps' purpose and success.