not yet a module

pagan — Tue, 17 May 2011 06:33:51 Z

Your procedures are not (yet) members of a module. So, as you've got it so far, that `with(NewArchive)` is not appropriate. There is no one-to-one relationship between modules and library archives. You can store procedures inside an archive, without their necessarily having to be exports of a module. (But, on the other hand, there's nothing to stop you doing that it you want.)

Here it is, without a module for the two procedures. You can put all manner of file-checking a try..catch and bullet-proofing around it, if you want. It's important to put the valid, writable new archive first in libname, so that what gets saved does get saved there and not elsewhere.

restart:

# keep only the assignment to loc that you want.
loc:="Z:/Documents/NewArchive.mla":
loc:=cat(kernelopts(homedir),"\\My Documents\\NewArchive.mla"):

try
  FileTools:-Remove(loc);
catch:
end try:

foo:=proc(x) sin(x); end proc:
bar:=proc(x) cos(x); end proc:

try
  LibraryTools:-Create(loc);
  libname:=loc,libname;
  print("saving");
  savelib(foo);
  savelib(bar);
catch "error":
end try:

                            "saving"

Now they should be saved and ready for re-use. Start a new session, to check.

restart:

libname:=cat(kernelopts(homedir),"\\My Documents\\NewArchive.mla"),libname:

foo(7);

                             sin(7)

bar(11);

                            cos(11)

And if you want, you can put that libname adjustment line in your (personal) maple initialization file.

And now with the two procedures inside a module.

restart:

# keep only the assignment to loc that you want.
loc:="Z:/Documents/NewArchive.mla":
loc:=cat(kernelopts(homedir),"\\My Documents\\NewArchive.mla"):

try
  FileTools:-Remove(loc);
catch:
end try:

NewModule:=module()
option package;
export foo, bar;
   foo:=proc(x) arcsin(x); end proc:
   bar:=proc(x) arccos(x); end proc:
end module:

try
  LibraryTools:-Create(loc);
  libname:=loc,libname;
  print("saving");
  savelib(NewModule);
catch "error":
end try:

                            "saving"

Now test it, in a new session.

restart:

libname:=cat(kernelopts(homedir),"\\My Documents\\NewArchive.mla"),libname:

foo(7);

                             foo(7)

bar(11);

                            bar(11)

with(NewModule);

                           [bar, foo]

foo(7);

                           arcsin(7)

bar(11);

                           arccos(11)

There is an alternative to placing the .mla in a location with which you must prepend libname (in each new session, or in an initialization file). The alternative is to place the .mla archive as if it belonged to some made-up Maple toolbox. For example, using Maple 15 you could place it here (using Windows backslash, but use forwardslash if you prefer)

  cat(kernelopts('homedir'),"\\maple\\toolbox\\15\\misc\\lib\\NewArchive.mla");

Such locations are "special" in the sense that Maple automatically includes them in libname, hence removing the need for you to adjust libname in an initialization file. In order for that to take effect, you'll have to quit all open M15 GUI instances and relaunch the whole GUI. You can query the name `libname`, to see if the presence of that folder, even if empty, causes it to get added to libname. It should also work for Maple 11, if you replace the 15 in that folder path with an 11.

Problem solved!

19Massa87 — Tue, 17 May 2011 18:32:03 Z

@pagan: Thanks a lot!!! That's exactly what I was looking for!!

MaplePrimes - answers and comments on Question, Please help me creating a Maple 11 Library Archive (.mla file)!!!

not yet a module

Problem solved!