Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Package Help in Mathematica 6

  • To: mathgroup at smc.vnet.net
  • Subject: [mg75997] Re: Package Help in Mathematica 6
  • From: Mark Fisher <mark at markfisher.net>
  • Date: Mon, 14 May 2007 03:54:40 -0400 (EDT)
  • References: <f26npd$4bd$1@smc.vnet.net>

Bill Rowe wrote:
> On 5/12/07 at 3:02 AM, raulm231 at comcast.net (Raul Martinez) wrote:
> 
>> I ran into a similar problem. I wanted to know all the standard
>> packages included with Math 6. After a bit of help from WRI tech
>> support and some digging in the Document Center I compiled a list of
>> all the Math 6 standard packages. Here they are:
> 
> <list of 20 packages snipped>
> 
> That wasn't a complete list. For example, it did not include the
> ANOVA package or the BlackBodyRadiation package.
> 
> The following will generate a complete list of the packages
> installed with version 6.
> 
> Last[StringSplit[#, "/"]] & /@
>    FileNames["*",
>     ToFileName[{$InstallationDirectory, "AddOns",
>       "Packages"}]] // TableForm
> 
> 
> Note, I am using version 6 on Mac OS X. For other operating
> systems you likely will need to change the second argument to StringSplit.
> 
> In addition, there are the legacy packages installed which can
> be listed using:
> 
> Last[StringSplit[#, "/"]] & /@
>    FileNames["*.m",
>     ToFileName[{$InstallationDirectory, "AddOns", "LegacyPackages"}],
>     2] // TableForm
> --
> To reply via email subtract one hundred and four
> 

Nice. How about

$StandardPackages := # <> "`" & /@
   StringSplit[
     FileNames["*",
      ToFileName[{$InstallationDirectory, "AddOns",
        "Packages"}]], $PathnameSeparator][[All, -1]]

$LegacyPackages := (#1 <> "`" <> #2 <> "`") & @@@
   StringSplit[
     FileNames["*.m",
      ToFileName[{$InstallationDirectory, "AddOns", "LegacyPackages"}],
       2], {$PathnameSeparator, "."}][[All, {-3, -2}]]

That should work for all operating systems ($PathnameSeparator) and 
produce a list of contexts that can be called with Get.

--Mark


  • Prev by Date: Re: Picking out pieces of a list
  • Next by Date: Re: A program check
  • Previous by thread: Re: Package Help in Mathematica 6
  • Next by thread: Re: Package Help in Mathematica 6