source: branches/guitools-1.0/shared/inittempdir.vrs

/* Initialize the temporary directory */

/*:VRX */
_InitTempDir: 
    IF options.!debug == 1 THEN say '_InitTempDir() started'
    /* Get temporary directory */
    HaveNoTMPDIR  = 0
    TempDir       = translate(value('TMPDIR',,'OS2ENVIRONMENT'),'\','/')
    IF options.!debug == 1 THEN say '  TMPDIR="'TempDir'"'
    if TempDir = '' then do
        HaveNoTMPDIR  = 1
        TempDir = translate(value('TEMP',,'OS2ENVIRONMENT'),'\','/')
        IF options.!debug == 1 THEN say '  TEMP="'TempDir'"'
    end
    if TempDir = '' then do
        TempDir = translate(value('TMP',,'OS2ENVIRONMENT'),'\','/')
        IF options.!debug == 1 THEN say '  TMP="'TempDir'"'
    end
    if TempDir = '' then do
        TempDir = directory()
        IF options.!debug == 1 THEN say '  Use current dir="'TempDir'"'
    end
    if HaveNoTMPDIR then do
        say 'WARNING! Setting missing TMPDIR   variable to "'TempDir'".'
        IF options.!debug == 1 THEN say '  WARNING! Setting missing TMPDIR   variable to "'TempDir'".'
        ok = value('TMPDIR',TempDir,'OS2ENVIRONMENT')
    end    
    TempDir       = strip(TempDir,'T','\')||'\' /* make sure there is trailing "\" */

    IF options.!debug == 1 THEN say '_InitTempDir() done, will use "'TempDir'"'
return

_ChkTempFreeSpace:
    IF options.!debug == 1 THEN say '_ChkTempFreeSpace() started'
    /* Check free space */
    TempDrvInfo   = SysDriveInfo(left(TempDir,2))
    parse var TempDrvInfo . TempFreeSpace . .
    if TempFreeSpace < 1048576 then do
        say 'Warning: Free space on "'||TempDir||'" low!'
    end
    drop TempDrvInfo
    IF options.!debug == 1 THEN say '_ChkTempFreeSpace() done, got "'TempFreeSpace'"'
return TempFreeSpace