PRINTPATH

Name

PrintPath

Purpose

This is a utility program for printing the IDL path in a simplied
format for easy browsing.

Author

FANNING SOFTWARE CONSULTING
David Fanning, Ph.D.
1645 Sheely Drive
Fort Collins, CO 80526 USA
Phone: 970-221-0438
E-mail: david@idlcoyote.com
Coyote's Guide to IDL Programming: http://www.idlcoyote.com

Calling Sequence

IDL> PrintPath

Inputs

filename: The name of the output file. If not present, the output is
written into the command log window.

Keywords

None.

Modification History

Written by David W. Fanning, 8 Nov 2007.
Added FILENAME parameter, 9 July 2012. DWF.
******************************************************************************************;
Copyright (c) 2008, by Fanning Software Consulting, Inc. ;
All rights reserved. ;
;
Redistribution and use in source and binary forms, with or without ;
modification, are permitted provided that the following conditions are met: ;
;
* Redistributions of source code must retain the above copyright ;
notice, this list of conditions and the following disclaimer. ;
* Redistributions in binary form must reproduce the above copyright ;
notice, this list of conditions and the following disclaimer in the ;
documentation and/or other materials provided with the distribution. ;
* Neither the name of Fanning Software Consulting, Inc. nor the names of its ;
contributors may be used to endorse or promote products derived from this ;
software without specific prior written permission. ;
;
THIS SOFTWARE IS PROVIDED BY FANNING SOFTWARE CONSULTING, INC. ''AS IS'' AND ANY ;
EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES ;
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT ;
SHALL FANNING SOFTWARE CONSULTING, INC. BE LIABLE FOR ANY DIRECT, INDIRECT, ;
INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED ;
TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; ;
LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ;
ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ;
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS ;
SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ;
******************************************************************************************;
RO PrintPath, filename
parts = StrSplit(!PATH, Path_Sep(/SEARCH_PATH), /Extract)

IF N_Elements(filename) NE 0 THEN BEGIN

OpenW, lun, filename, /Get_Lun
FOR j=0L,N_Elements(parts)-1 DO PrintF, lun, parts[j]
Free_Lun, lun

ENDIF ELSE FOR j=0L,N_Elements(parts)-1 DO Print, parts[j]

ND