Changeset 4044 for trunk/integration

Show
Ignore:
Timestamp:
01/23/08 02:10:37 (12 months ago)
Author:
pmoura
Message:

Found a nasty hack for workaround the lack of support for environment variables in file names in Quintus Prolog.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/integration/logtalk_quintus.pl

    r4040 r4044  
    1010 
    1111 
    12 :- unix(argv([_, LOGTALKUSER| _])), unix(cd(LOGTALKUSER)), compile('configs/quintus.config'). 
    13 :- unix(argv([LOGTALKHOME| _])), unix(cd(LOGTALKHOME)), compile('compiler/logtalk.pl'). 
    14 :- unix(argv([_, LOGTALKUSER| _])), unix(cd(LOGTALKUSER)), compile('libpaths/libpaths.pl'). 
     12:-  unix(args([LOGTALKHOME, LOGTALKUSER| _])),  % hack for workaround the lack of support for environment variables in file names 
     13    atom_chars(LOGTALKHOME, LH), 
     14    atom_chars(LOGTALKUSER, LU), 
     15    atom_chars('/configs/quintus.config', LC), append(LU, LC, L1), atom_chars(ConfigFile, L1), compile(ConfigFile), 
     16    atom_chars('/compiler/logtalk.pl', LL), append(LH, LL, L2), atom_chars(CompilerFile, L2), compile(CompilerFile), 
     17    atom_chars('/libpaths/libpaths.pl', LP), append(LU, LP, L3), atom_chars(LibpathsFile, L3), compile(LibpathsFile).