MathGroup Archive 2002

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

Search the Archive

Re: Getting File Directory Using Any Platform

  • To: mathgroup at smc.vnet.net
  • Subject: [mg34024] Re: [mg34013] Getting File Directory Using Any Platform
  • From: Andrzej Kozlowski <andrzej at platon.c.u-tokyo.ac.jp>
  • Date: Sat, 27 Apr 2002 00:56:27 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

First of all, Macintosh, not Machintosh. Secondly, this will not work on

In[1]:=
$System

Out[1]=
Mac OS X

And thirdly, why not use simply:

In[2]:=
ToFileName[$TopDirectory<>"/AddOns/ExtraPackages/Utilities/"]

Out[2]=
/Applications/Mathematica 4.1.app/AddOns/ExtraPackages/Utilities/

??

  Andrzej Kozlowski
Toyama International University
JAPAN
http://platon.c.u-tokyo.ac.jp/andrzej/

On Friday, April 26, 2002, at 04:27  PM, Ersek, Ted R wrote:

> I want a line of code that will return the directory where the Notation
> package is located and it should return a result consistent with the
> operating system used.  If the following doesn't work on your platform
> please let me know. I am also interested in any improvements to this 
> code.
>
>
> In[1]:=
>   dirs=Which[
>     $System==="Microsoft Windows","\\AddOns\\ExtraPackages\\Utilities",
>     $System==="Machintosh",":AddOns:ExtraPackages:Utilities",
>     True (* Unix *), "/AddOns/ExtraPackages/Utilities"
>   ];
>   DirectoryName[$TopDirectory<>dirs<>"Notation.m"]
>
>
> Out[1]=
>    C:\Program Files\Wolfram 
> Research\Mathematica\4.1\AddOns\ExtraPackages\
>
> ------------
> Thanks,
>   Ted Ersek
>   Get Mathematica tips, tricks from
>  http://www.verbeia.com/mathematica/tips/Tricks.html
>
>
>
>



  • Prev by Date: Re: Test of a pure function
  • Next by Date: Re: 3D contour through a point[2]
  • Previous by thread: Re: Getting File Directory Using Any Platform
  • Next by thread: Re: Getting File Directory Using Any Platform