<< Index

Package TrDir

File: modules/TrDir.pm Version: 1.31

TrDir ...   TrDir.pm   Directory manipulation for JETtransp

Use: Err
File
TrEnv
Util
strict

Routine Comment Arguments

DataRoot       Find DATADIR root directory

FindShotData        FindShotData   Finds data directories for a shot
22Jun2000   0.13   Extracted from LinkShotData

FindTrDir      FindTrDir - look for existing transp directory for run $_0
07Jun2010  1.14    Jim.Conboy@ccfe.ac.uk
Test if $Transp::TWD is already set
04Dec2001  1.13    jconboy@jet.uk
Protect against tr.dat file in WORKROOT
28Mar2000  jconboy@jet.uk
Look first for transp dir, then for dat file, w/around
for copies of dat not in dir..

GetDefaultRun        Return default run name

GetUfileList        Get list of Ufiles for the TDD

IsTrDir      IsTrDir   Return 1 if theFile is a valid transp directory for theRun ,
nnnn/nnnnTR.DAT
Return 2 if /nnnn/nnnn_status exists

LinkShotData        LinkShotData   Creates link from TWD to input data directory
27Mar2001   0.16   Use $TWD/data , if it exists
09May2000   0.12   Set return code = no. of directories found

ListUfiles        List the Ufiles in a directory.. my( $shot, $dir ) = @_ ;

MkTrdir       MkTrdir   Makes a transp subdirectory, if $cwd is suitable

ResDir        Find or create the Results directory my( $shot, $seq ) = @_ ;

SDD       Look for pulse subdirectory of $DATADIR/JETdirs, create if necessary
$_[0]    Pulse Number

SetDefaultRun        set default run ptr

ShowDfRun     as on the tin

TDDSubd       Create TDD, subdirectory data  of the TWD, to hold links & Ufiles..

TWD      TWD - set or make the Transp Working Directory
Look for existing directory

TWDlist       TWDlist   returns list of transp working directories below $root
24Nov2000   Pass remaining args to find,
Skip 'link' name ( @data.. )

Test        Tests - only GetDefaultRun for now

TransParent      TransParent  Find a suitable Transp Parent directory, in which a
TWD might be created...

Udirs       Returns list of User directories

UnlinkShotData        UnlinkShotData   Removes link from TWD to input data directory,
& backlink

V Print version number

Routine	Comment	Arguments
TrDir	... TrDir.pm Directory manipulation for JETtransp
Use:	Err File TrEnv Util strict
DataRoot	Find DATADIR root directory
FindShotData	FindShotData Finds data directories for a shot 22Jun2000 0.13 Extracted from LinkShotData
FindTrDir	FindTrDir - look for existing transp directory for run $_0 07Jun2010 1.14 Jim.Conboy@ccfe.ac.uk Test if $Transp::TWD is already set 04Dec2001 1.13 jconboy@jet.uk Protect against tr.dat file in WORKROOT 28Mar2000 jconboy@jet.uk Look first for transp dir, then for dat file, w/around for copies of dat not in dir..
GetDefaultRun	Return default run name
GetUfileList	Get list of Ufiles for the TDD
IsTrDir	IsTrDir Return 1 if theFile is a valid transp directory for theRun , nnnn/nnnnTR.DAT Return 2 if /nnnn/nnnn_status exists
LinkShotData	LinkShotData Creates link from TWD to input data directory 27Mar2001 0.16 Use $TWD/data , if it exists 09May2000 0.12 Set return code = no. of directories found
ListUfiles	List the Ufiles in a directory..	my( $shot, $dir ) = @_ ;
MkTrdir	MkTrdir Makes a transp subdirectory, if $cwd is suitable
ResDir	Find or create the Results directory	my( $shot, $seq ) = @_ ;
SDD	Look for pulse subdirectory of $DATADIR/JETdirs, create if necessary $_[0] Pulse Number
SetDefaultRun	set default run ptr
ShowDfRun	as on the tin
TDDSubd	Create TDD, subdirectory data of the TWD, to hold links & Ufiles..
TWD	TWD - set or make the Transp Working Directory Look for existing directory
TWDlist	TWDlist returns list of transp working directories below $root 24Nov2000 Pass remaining args to find, Skip 'link' name ( @data.. )
Test	Tests - only GetDefaultRun for now
TransParent	TransParent Find a suitable Transp Parent directory, in which a TWD might be created...
Udirs	Returns list of User directories
UnlinkShotData	UnlinkShotData Removes link from TWD to input data directory, & backlink
V	Print version number