MaplePrimes - answers and comments on Question, Win7 and Compiler

It works for me

Markiyan Hirnyk — Sun, 14 Oct 2012 00:55:34 Z

with Maple 16.01 32bit in Standard Document Mode on Windows 7 Home Basic 32bit.

See

ssystem

acer — Mon, 15 Oct 2012 07:39:30 Z

It seems that the hang occurs in a call to `ssystem`. Is the `ssystem` command busted altogether, in this interface/installation/OS combination?

Now it's not a replacement for more general uses but it seems as if the particular use of `ssystem` inside Compiler:-Compile can also be accomplished by using `system`. (It's the step of running the external compilation command, to compile the .c file to .obj using the watcom executable.)

So, on my 64bit Windows 7 Pro (with 64bit Maple 16.01 also installed, fwiw), running the 32bit Maple 16.01 Classic GUI,

restart:

mycompile:=proc()
    local res;
    unprotect(:-ssystem);
    :-ssystem:=proc() option builtin="system"; end proc;
    try
        res:=Compiler:-Compile(args);
    finally
        :-ssystem:=proc() option builtin="ssystem"; end proc;
        protect(:-ssystem);
    end try;
    eval(res);
end proc:

p:=proc(x) sin(1.0*x); end proc:

cp:=mycompile(p):

cp(2);

                         0.909297426825681710

interface(version);

  Classic Worksheet Interface, Maple 16.01, Windows, Apr 30 2012, \
        Build ID 743496

I don't know why I bothered with the `finally` clause, since it might just be reinstating something which doesn't work.

acer

hm ...

Axel Vogt — Sun, 14 Oct 2012 01:10:01 Z

Thank you :-)

Mine is Win 7 Professional (oops) SP 1 64 Bit, preconfigured on some Acer.

I am AVt (as admin - ok, not the best idea) on my system, the user directory has AVt and public only
and I it installed as AVt, access is it as AVt (and Maple works, except 'compile').

It does not even go to show up the directory where it fails.

I guess, it is an administration problem: where to write with what rights.

Edited: very strange

The *.mw works painless.

Inserting and executing the simple code in a classical sheet executes and returns a
correct result. But without the output of "Compiler:-Compile(tmp)". Then it crashes.

Sigh.

I want to use it in classical sheets, as before. Of course.

another workaround

acer — Thu, 25 Oct 2012 06:55:09 Z

This also seems to work (and provides some functional `ssystem` as a bonus),

restart:

unprotect(ssystem):
ssystem:=eval(`dsolve/numeric/ssystem`):
protect(ssystem):

cp:=Compiler:-Compile( proc(x) sin(x); end proc ):

cp(2.1);

                         0.863209366648873710

Who knew!

acer

Who knew?

Alejandro Jakubi — Sat, 27 Oct 2012 08:14:52 Z

@acer

May be that Allan alone, or a few other persons, as most developers are not very fond of documenting. But my question is rather why he had to write such (externally implemented) command.

Yet another one

Alejandro Jakubi — Sat, 27 Oct 2012 09:23:54 Z

@acer

Another one is Grid:-g_ssystem. See here:

with(Grid):
showstat(ssystem);

ssystem := proc()
   1   if StringTools[IsPrefix]("Command-line",convert(interface(version),string)) = true 
or evalb(StringTools[Search]("windows",kernelopts('platform')) < 1) then
   2     Grid:-g_ssystem := ssystem
       else
   3     Grid:-g_ssystem := define_external(mrt_ssystem,MAPLE,LIB = "mrt.dll")
       end if;
   4   Grid:-g_ssystem(args)
end proc