Very Computer

someone save me from this csh anomoly. How can I shorten the path or make
csh accept arbitrarily long paths.

--

Cheers,

Ravi Kumar                                      PS: All opinions are mine.

set npath
foreach elem ( $path )
        if ( ! -d $elem ) continue
        set needed
        foreach nelem ( $npath )
                if ( $nelem == $elem ) then
                        unset needed
                        break
                endif
        end
        if ( $?needed ) set npath = ( $npath $elem )
end
set path = ( $npath )
unset npath nelem elem needed

Not only will it eliminate duplicate entries, but it will also
eliminate directories that do not exist.  (If you use directory
elements that are not root based, you'll want to remove the line
"if ( ! -d $elem ) continue".)
--
James C. Armstrong, Jr.              | Scots wha hae wi' Wallace bled,


URL:                                 |     Or to victory!
        ftp://ftp.netcom.com/pub/jca/homepage.html

 Ravi> yes! I hate csh and I do not use it. But I am forced to use
 Ravi> it. I have to source someone else's cshrc file and build my
 Ravi> path. Several dirs are getting double definedin the path and
 Ravi> after a while csh says "Warning: Ridiculously long path
 Ravi> truncated"

 Ravi> someone save me from this csh anomoly. How can I shorten the
 Ravi> path or make csh accept arbitrarily long paths.

Create this script and name it (say) fixpath

------------------------------
foreach (split(/:/, $ENV{"PATH"})) {

    $paths{$_} = 1;

Quote:}

To use it, type

  % setenv PATH `perl fixpath`

Note the backquotes!

You'll probably want to put this at the end of your .cshrc. If you
don't have perl, get it.

Dave Carrigan                            | Yow! As President I have to go
Systems and Network Manager              | vacuum my coin collection!
Canadian Forest Service                  |
Unix/VMS/TCP-IP/DECnet/Pathworks         |

: Try this:

: set npath
: foreach elem ( $path )
:         if ( ! -d $elem ) continue
:         set needed
:         foreach nelem ( $npath )
:                 if ( $nelem == $elem ) then
:                         unset needed
:                         break
:                 endif
:         end
:         if ( $?needed ) set npath = ( $npath $elem )
: end
: set path = ( $npath )
: unset npath nelem elem needed

I like this... I have something similar, where you give it
a set of paths and it appends bin, man and info and sets
these paths accordingly...

When I wrote this, after much headbanging, I gave up on the csh...;-)

: Not only will it eliminate duplicate entries, but it will also
: eliminate directories that do not exist.  (If you use directory
: elements that are not root based, you'll want to remove the line
: "if ( ! -d $elem ) continue".)
: --
: James C. Armstrong, Jr.              | Scots wha hae wi' Wallace bled,


: URL:                                 |     Or to victory!
:       ftp://ftp.netcom.com/pub/jca/homepage.html

--
marty

Member of the League for Programming Freedom
Object techonology is to software what microprocessors are to
hardware.
                Phillipe Kahn