Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
JAliEn
JAliEn-ROOT
Commits
d6e3791b
Commit
d6e3791b
authored
Aug 02, 2019
by
Volodymyr Yurchenko
Browse files
Remove unused code (streamlining)
parent
f46e3417
Changes
1
Hide whitespace changes
Inline
Side-by-side
etc/plugins/TGrid/P010_TJAlien.C
View file @
d6e3791b
#include
<iostream>
void
SetJAliEnSettings
()
{
// Routine to load settings from an AliEn environment file.
ifstream
fileIn
;
fileIn
.
open
(
Form
(
"/tmp/jclient_env_%d"
,
gSystem
->
GetUid
()));
if
(
gDebug
>
0
)
{
printf
(
"P010_TJAlien.C: parsing /tmp/jclient_env_$UID
\n
"
);}
TString
lineS
,
tmp
;
char
line
[
4096
];
while
(
fileIn
.
good
()){
fileIn
.
getline
(
line
,
4096
,
'\n'
);
lineS
=
line
;
if
(
lineS
.
IsNull
())
continue
;
if
(
lineS
.
Contains
(
"export "
))
{
lineS
.
ReplaceAll
(
"export "
,
""
);
TObjArray
*
array
=
lineS
.
Tokenize
(
"="
);
if
(
array
->
GetEntries
()
==
2
)
{
TObjString
*
strVar
=
(
TObjString
*
)
array
->
At
(
0
);
TObjString
*
strVal
=
(
TObjString
*
)
array
->
At
(
1
);
if
((
strVar
)
&&
(
strVal
))
{
tmp
=
strVal
->
GetString
();
tmp
.
ReplaceAll
(
"
\"
"
,
""
);
tmp
.
ReplaceAll
(
"$LD_LIBRARY_PATH"
,
gSystem
->
Getenv
(
"LD_LIBRARY_PATH"
));
tmp
.
ReplaceAll
(
"$DYLD_LIBRARY_PATH"
,
gSystem
->
Getenv
(
"DYLD_LIBRARY_PATH"
));
tmp
.
ReplaceAll
(
" "
,
""
);
gSystem
->
Unsetenv
(
strVar
->
GetString
());
gSystem
->
Setenv
(
strVar
->
GetString
(),
tmp
);
if
(
gDebug
>
0
)
{
Info
(
"P010_TJAlien"
,
"setting environment %s=
\"
%s
\"
"
,
strVar
->
GetString
().
Data
(),
tmp
.
Data
());
}
if
(
!
strVar
->
GetString
().
CompareTo
(
"GCLIENT_SERVER_LIST"
))
{
gSystem
->
Unsetenv
(
"alien_API_SERVER_LIST"
);
gSystem
->
Setenv
(
"alien_API_SERVER_LIST"
,
tmp
);
}
}
if
(
array
)
{
delete
array
;
array
=
0
;
}
}
else
{
// parse the MONA_ stuff
TObjArray
*
array
=
lineS
.
Tokenize
(
"
\"
"
);
TString
key
=
""
;
TString
val
=
""
;
for
(
int
i
=
0
;
i
<
array
->
GetEntries
();
i
++
)
{
if
(
((
TObjString
*
)
array
->
At
(
i
))
->
GetString
().
Contains
(
"="
))
{
if
(
key
.
Length
()
&&
val
.
Length
())
{
val
.
Resize
(
val
.
Length
()
-
1
);
if
(
gDebug
>
0
)
{
Info
(
"P010_TJAlien"
,
"setting environment %s=
\"
%s
\"
"
,
key
.
Data
(),
val
.
Data
());
}
gSystem
->
Unsetenv
(
key
);
gSystem
->
Setenv
(
key
,
val
);
key
=
""
;
val
=
""
;
}
key
=
((
TObjString
*
)
array
->
At
(
i
))
->
GetString
();
key
.
ReplaceAll
(
"="
,
""
);
}
else
{
val
+=
((
TObjString
*
)
array
->
At
(
i
))
->
GetString
();
val
+=
" "
;
}
}
if
(
key
.
Length
()
&&
val
.
Length
())
{
if
(
gDebug
>
0
)
{
Info
(
"P010_TJAlien"
,
"setting environment %s=
\"
%s
\"
"
,
key
.
Data
(),
val
.
Data
());
}
gSystem
->
Unsetenv
(
key
);
gSystem
->
Setenv
(
key
,
val
);
}
}
}
}
}
void
P010_TJAlien
()
{
if
((
!
gSystem
->
Getenv
(
"GBBOX_ENVFILE"
))
||
(
gSystem
->
Getenv
(
"ALIEN_SOURCE_GCLIENT_ENV"
))
||
(
!
gSystem
->
Getenv
(
"ALIEN_SKIP_GCLIENT_ENV"
))
)
{
SetJAliEnSettings
();
}
if
(
gSystem
->
Load
(
"libJAliEnROOT"
)
>=
0
)
{
gPluginMgr
->
AddHandler
(
"TGrid"
,
"^alien:?"
,
"TJAlien"
,
"JAliEnROOT"
,
"TJAlien(const char*, const char*, const char*, const char*)"
);
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment