author  hoelzl 
Fri, 14 Jan 2011 14:21:48 +0100  
changeset 41544  c3b977fee8a3 
parent 41511  2fe62d602681 
child 41614  b7cd80330a16 
permissions  rwrr 
25434
746677c843a7
ISABELLE_IDENTIFIER is filled in automatically, not taken from the *long* form of isatool version!
wenzelm
parents:
21490
diff
changeset

1 
# * shellscript * :mode=shellscript: 
29145  2 
# 
9789  3 
# Author: Markus Wenzel, TU Muenchen 
2299
ed9720047d53
getsettings: bash source script to augment current env.
wenzelm
parents:
diff
changeset

4 
# 
2348  5 
# getsettings  bash source script to augment current env. 
2299
ed9720047d53
getsettings: bash source script to augment current env.
wenzelm
parents:
diff
changeset

6 

7770
0497323c1f0b
ISABELLE_SETTINGS_PRESENT: avoid multiple invocation;
wenzelm
parents:
6413
diff
changeset

7 
if [ z "$ISABELLE_SETTINGS_PRESENT" ] 
0497323c1f0b
ISABELLE_SETTINGS_PRESENT: avoid multiple invocation;
wenzelm
parents:
6413
diff
changeset

8 
then 
0497323c1f0b
ISABELLE_SETTINGS_PRESENT: avoid multiple invocation;
wenzelm
parents:
6413
diff
changeset

9 

3185  10 
set o allexport 
11 

7770
0497323c1f0b
ISABELLE_SETTINGS_PRESENT: avoid multiple invocation;
wenzelm
parents:
6413
diff
changeset

12 
ISABELLE_SETTINGS_PRESENT=true 
0497323c1f0b
ISABELLE_SETTINGS_PRESENT: avoid multiple invocation;
wenzelm
parents:
6413
diff
changeset

13 

15972  14 
export ISABELLE_HOME 
12598  15 
if { echo n "$ISABELLE_HOME"  fgrep " " >/dev/null; } 
16 
then 

17 
echo 1>&2 "### White space in ISABELLE_HOME may cause strange problems later on!" 

18 
echo 1>&2 "### ISABELLE_HOME=\"$ISABELLE_HOME\"" 

19 
fi 

2736  20 

11553  21 
#key executables 
28499
eff93bc3c14f
ISABELLE_PROCESS replaces ISABELLE and ISABELLE_TOOL replaces ISATOOL  old bindings stay for a while (legacy feature);
wenzelm
parents:
28055
diff
changeset

22 
ISABELLE_PROCESS="$ISABELLE_HOME/bin/isabelleprocess" 
28504
7ad7d7d6df47
simplified main Isabelle executables: removed Isabelle and isabelle (replaced by isabelleprocess), renamed isatool to isabelle;
wenzelm
parents:
28499
diff
changeset

23 
ISABELLE_TOOL="$ISABELLE_HOME/bin/isabelle" 
2299
ed9720047d53
getsettings: bash source script to augment current env.
wenzelm
parents:
diff
changeset

24 

34254
14f6df4f473d
shell functions "isabelleprocess" and "isabelle" refer to the proper executables statically  for interactive use or sloppy bash scripts;
wenzelm
parents:
34043
diff
changeset

25 
function isabelle () 
14f6df4f473d
shell functions "isabelleprocess" and "isabelle" refer to the proper executables statically  for interactive use or sloppy bash scripts;
wenzelm
parents:
34043
diff
changeset

26 
{ 
14f6df4f473d
shell functions "isabelleprocess" and "isabelle" refer to the proper executables statically  for interactive use or sloppy bash scripts;
wenzelm
parents:
34043
diff
changeset

27 
"$ISABELLE_TOOL" "$@" 
14f6df4f473d
shell functions "isabelleprocess" and "isabelle" refer to the proper executables statically  for interactive use or sloppy bash scripts;
wenzelm
parents:
34043
diff
changeset

28 
} 
14f6df4f473d
shell functions "isabelleprocess" and "isabelle" refer to the proper executables statically  for interactive use or sloppy bash scripts;
wenzelm
parents:
34043
diff
changeset

29 

36196
cbb9ee265cdd
added ISABELLE_PLATFORM and ISABELLE_PLATFORM64  NB: ML and JVM may have a different idea;
wenzelm
parents:
36194
diff
changeset

30 
#platform 
cbb9ee265cdd
added ISABELLE_PLATFORM and ISABELLE_PLATFORM64  NB: ML and JVM may have a different idea;
wenzelm
parents:
36194
diff
changeset

31 
. "$ISABELLE_HOME/lib/scripts/isabelleplatform" 
cbb9ee265cdd
added ISABELLE_PLATFORM and ISABELLE_PLATFORM64  NB: ML and JVM may have a different idea;
wenzelm
parents:
36194
diff
changeset

32 

25434
746677c843a7
ISABELLE_IDENTIFIER is filled in automatically, not taken from the *long* form of isatool version!
wenzelm
parents:
21490
diff
changeset

33 
#Isabelle distribution identifier  filled in automatically! 
41511  34 
ISABELLE_ID="" 
25434
746677c843a7
ISABELLE_IDENTIFIER is filled in automatically, not taken from the *long* form of isatool version!
wenzelm
parents:
21490
diff
changeset

35 
ISABELLE_IDENTIFIER="" 
21490  36 

41511  37 
#sometimes users put strange things in here ... 
2621  38 
unset ENV 
39 
unset BASH_ENV 

40 

9680  41 
#support easy settings 
42 
function choosefrom () 

43 
{ 

44 
local RESULT="" 

45 
local FILE="" 

46 

47 
for FILE in "$@" 

48 
do 

49 
[ z "$RESULT" a e "$FILE" ] && RESULT="$FILE" 

50 
done 

51 

52 
[ z "$RESULT" ] && RESULT="$FILE" 

53 
echo "$RESULT" 

54 
} 

55 

27914  56 
#JVM path wrapper 
25650  57 
if [ "$OSTYPE" = cygwin ]; then 
27908
97f8b7c0f420
refined JVM path wrappers: Isabelle environment holds Unix version of CLASSPATH, javawrapper/scalawrapper convert it back;
wenzelm
parents:
25650
diff
changeset

58 
CLASSPATH="$(cygpath u p "$CLASSPATH")" 
97f8b7c0f420
refined JVM path wrappers: Isabelle environment holds Unix version of CLASSPATH, javawrapper/scalawrapper convert it back;
wenzelm
parents:
25650
diff
changeset

59 
function jvmpath() { cygpath w p "$@"; } 
36194  60 
THIS_CYGWIN="$(jvmpath "/")" 
25650  61 
else 
27908
97f8b7c0f420
refined JVM path wrappers: Isabelle environment holds Unix version of CLASSPATH, javawrapper/scalawrapper convert it back;
wenzelm
parents:
25650
diff
changeset

62 
function jvmpath() { echo "$@"; } 
25650  63 
fi 
28055
eb855c3db657
provide HOME_JVM=HOME to prevent implicit cygpath mangling;
wenzelm
parents:
27940
diff
changeset

64 
HOME_JVM="$HOME" 
25650  65 

27908
97f8b7c0f420
refined JVM path wrappers: Isabelle environment holds Unix version of CLASSPATH, javawrapper/scalawrapper convert it back;
wenzelm
parents:
25650
diff
changeset

66 
#CLASSPATH convenience 
97f8b7c0f420
refined JVM path wrappers: Isabelle environment holds Unix version of CLASSPATH, javawrapper/scalawrapper convert it back;
wenzelm
parents:
25650
diff
changeset

67 
function classpath () { 
97f8b7c0f420
refined JVM path wrappers: Isabelle environment holds Unix version of CLASSPATH, javawrapper/scalawrapper convert it back;
wenzelm
parents:
25650
diff
changeset

68 
for X in "$@" 
97f8b7c0f420
refined JVM path wrappers: Isabelle environment holds Unix version of CLASSPATH, javawrapper/scalawrapper convert it back;
wenzelm
parents:
25650
diff
changeset

69 
do 
97f8b7c0f420
refined JVM path wrappers: Isabelle environment holds Unix version of CLASSPATH, javawrapper/scalawrapper convert it back;
wenzelm
parents:
25650
diff
changeset

70 
if [ z "$CLASSPATH" ]; then 
97f8b7c0f420
refined JVM path wrappers: Isabelle environment holds Unix version of CLASSPATH, javawrapper/scalawrapper convert it back;
wenzelm
parents:
25650
diff
changeset

71 
CLASSPATH="$X" 
97f8b7c0f420
refined JVM path wrappers: Isabelle environment holds Unix version of CLASSPATH, javawrapper/scalawrapper convert it back;
wenzelm
parents:
25650
diff
changeset

72 
else 
97f8b7c0f420
refined JVM path wrappers: Isabelle environment holds Unix version of CLASSPATH, javawrapper/scalawrapper convert it back;
wenzelm
parents:
25650
diff
changeset

73 
CLASSPATH="$CLASSPATH:$X" 
97f8b7c0f420
refined JVM path wrappers: Isabelle environment holds Unix version of CLASSPATH, javawrapper/scalawrapper convert it back;
wenzelm
parents:
25650
diff
changeset

74 
fi 
97f8b7c0f420
refined JVM path wrappers: Isabelle environment holds Unix version of CLASSPATH, javawrapper/scalawrapper convert it back;
wenzelm
parents:
25650
diff
changeset

75 
done 
40568
3003be923908
paranoia export of CLASSPATH, just in case the initial status via allexport is lost due to other scripts;
wenzelm
parents:
36196
diff
changeset

76 
export CLASSPATH 
27908
97f8b7c0f420
refined JVM path wrappers: Isabelle environment holds Unix version of CLASSPATH, javawrapper/scalawrapper convert it back;
wenzelm
parents:
25650
diff
changeset

77 
} 
97f8b7c0f420
refined JVM path wrappers: Isabelle environment holds Unix version of CLASSPATH, javawrapper/scalawrapper convert it back;
wenzelm
parents:
25650
diff
changeset

78 

32390
468eff174a77
function splitarray: splightly more abstract version that accomodates older bashes;
wenzelm
parents:
32321
diff
changeset

79 
#arrays 
468eff174a77
function splitarray: splightly more abstract version that accomodates older bashes;
wenzelm
parents:
32321
diff
changeset

80 
function splitarray () 
468eff174a77
function splitarray: splightly more abstract version that accomodates older bashes;
wenzelm
parents:
32321
diff
changeset

81 
{ 
468eff174a77
function splitarray: splightly more abstract version that accomodates older bashes;
wenzelm
parents:
32321
diff
changeset

82 
SPLITARRAY=() 
468eff174a77
function splitarray: splightly more abstract version that accomodates older bashes;
wenzelm
parents:
32321
diff
changeset

83 
local IFS="$1"; shift 
468eff174a77
function splitarray: splightly more abstract version that accomodates older bashes;
wenzelm
parents:
32321
diff
changeset

84 
for X in $* 
468eff174a77
function splitarray: splightly more abstract version that accomodates older bashes;
wenzelm
parents:
32321
diff
changeset

85 
do 
468eff174a77
function splitarray: splightly more abstract version that accomodates older bashes;
wenzelm
parents:
32321
diff
changeset

86 
SPLITARRAY["${#SPLITARRAY[@]}"]="$X" 
468eff174a77
function splitarray: splightly more abstract version that accomodates older bashes;
wenzelm
parents:
32321
diff
changeset

87 
done 
468eff174a77
function splitarray: splightly more abstract version that accomodates older bashes;
wenzelm
parents:
32321
diff
changeset

88 
} 
468eff174a77
function splitarray: splightly more abstract version that accomodates older bashes;
wenzelm
parents:
32321
diff
changeset

89 

32305
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

90 
#nested components 
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

91 
ISABELLE_COMPONENTS="" 
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

92 
function init_component () 
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

93 
{ 
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

94 
local COMPONENT="$1" 
40570
bf8f92bdf630
init_component: require absolute path (when invoked by user scripts);
wenzelm
parents:
40568
diff
changeset

95 
case "$COMPONENT" in 
bf8f92bdf630
init_component: require absolute path (when invoked by user scripts);
wenzelm
parents:
40568
diff
changeset

96 
/*) ;; 
bf8f92bdf630
init_component: require absolute path (when invoked by user scripts);
wenzelm
parents:
40568
diff
changeset

97 
*) 
bf8f92bdf630
init_component: require absolute path (when invoked by user scripts);
wenzelm
parents:
40568
diff
changeset

98 
echo >&2 "Absolute component path required: \"$COMPONENT\"" 
bf8f92bdf630
init_component: require absolute path (when invoked by user scripts);
wenzelm
parents:
40568
diff
changeset

99 
exit 2 
bf8f92bdf630
init_component: require absolute path (when invoked by user scripts);
wenzelm
parents:
40568
diff
changeset

100 
;; 
bf8f92bdf630
init_component: require absolute path (when invoked by user scripts);
wenzelm
parents:
40568
diff
changeset

101 
esac 
32305
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

102 

c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

103 
if [ ! d "$COMPONENT" ]; then 
33295  104 
echo >&2 "Bad Isabelle component: \"$COMPONENT\"" 
32305
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

105 
exit 2 
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

106 
elif [ z "$ISABELLE_COMPONENTS" ]; then 
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

107 
ISABELLE_COMPONENTS="$COMPONENT" 
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

108 
else 
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

109 
ISABELLE_COMPONENTS="$ISABELLE_COMPONENTS:$COMPONENT" 
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

110 
fi 
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

111 
if [ f "$COMPONENT/etc/settings" ]; then 
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

112 
source "$COMPONENT/etc/settings"  exit 2 
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

113 
fi 
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

114 
if [ f "$COMPONENT/etc/components" ]; then 
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

115 
{ 
33512
771ec7306438
init_component: slightly more robust read (raw input, succeed on nonterminated last line);
wenzelm
parents:
33295
diff
changeset

116 
while { unset REPLY; read r; test "$?" = 0 o n "$REPLY"; } 
771ec7306438
init_component: slightly more robust read (raw input, succeed on nonterminated last line);
wenzelm
parents:
33295
diff
changeset

117 
do 
32305
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

118 
case "$REPLY" in 
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

119 
\#*  "") ;; 
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

120 
/*) init_component "$REPLY" ;; 
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

121 
*) init_component "$COMPONENT/$REPLY" ;; 
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

122 
esac 
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

123 
done 
33295  124 
} < "$COMPONENT/etc/components" 
32305
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

125 
fi 
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

126 
} 
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

127 

c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

128 
#main components 
c5523ded51d9
basic support for components (which imitate the usual Isabelle directory layout);
wenzelm
parents:
31520
diff
changeset

129 
init_component "$ISABELLE_HOME" 
9789  130 

131 
[ "$ISABELLE_HOME" ef "$ISABELLE_HOME_USER" ] && \ 

32321
13920dbe4547
more uniform handling of ISABELLE_HOME_USER component;
wenzelm
parents:
32305
diff
changeset

132 
{ echo >&2 "### ISABELLE_HOME and ISABELLE_HOME_USER must not be the same directory!"; } 
13920dbe4547
more uniform handling of ISABELLE_HOME_USER component;
wenzelm
parents:
32305
diff
changeset

133 
[ d "$ISABELLE_HOME_USER" ] && init_component "$ISABELLE_HOME_USER" 
2299
ed9720047d53
getsettings: bash source script to augment current env.
wenzelm
parents:
diff
changeset

134 

21490  135 
#ML system identifier 
6413  136 
if [ z "$ML_PLATFORM" ]; then 
137 
ML_IDENTIFIER="$ML_SYSTEM" 

138 
else 

139 
ML_IDENTIFIER="${ML_SYSTEM}_${ML_PLATFORM}" 

140 
fi 

21468
c7892915ed10
add ISABELLE_VERSION to ML_IDENTIFIER, unless this is repository or build;
wenzelm
parents:
16293
diff
changeset

141 

6413  142 
ISABELLE_OUTPUT="$ISABELLE_OUTPUT/$ML_IDENTIFIER" 
3118  143 

2299
ed9720047d53
getsettings: bash source script to augment current env.
wenzelm
parents:
diff
changeset

144 
set +o allexport 
7770
0497323c1f0b
ISABELLE_SETTINGS_PRESENT: avoid multiple invocation;
wenzelm
parents:
6413
diff
changeset

145 

0497323c1f0b
ISABELLE_SETTINGS_PRESENT: avoid multiple invocation;
wenzelm
parents:
6413
diff
changeset

146 
fi 