← Back to branch summary

~abentley/bzrtools/bzrtools.dev

« back to all changes in this revision

Viewing changes to fai/aba/aba-lib

  • Committer: Aaron Bentley
  • Date: 2008-05-12 02:46:47 UTC
  • Revision ID: aaron@aaronbentley.com-20080512024647-d0bku78ku0hzv56w
Update version to 1.5

Show diffs side-by-side

added added

removed removed

Lines of Context:
fai/aba/aba-lib
1
 
#!/bin/sh
2
 
# Copyright (C) 2004 Aaron Bentley
3
 
#
4
 
# See the file "COPYING" for further information about
5
 
# the copyright and warranty status of this work.
6
 
 
7
 
# Runs a standard aba command
8
 
aba_run()
9
 
{
10
 
if [ -z "$abaname" ]; then
11
 
  aba "$(basename $0)" "$@"
12
 
  exit
13
 
fi
14
 
 
15
 
case "$1" in
16
 
  "exec" )
17
 
  shift
18
 
  if [ "$1" = "-h" ] ; then
19
 
    cmd_help
20
 
  elif [ "$1" = "--help" ] ; then
21
 
    cmd_help
22
 
  elif [ "$1" = "-H" ] ; then
23
 
    cmd_help
24
 
    cmd_ext_help
25
 
  else
26
 
    if [ -n "$ABAFILTER" ]; then
27
 
      cmd_exec "$@" | $ABAFILTER
28
 
    else 
29
 
      cmd_exec "$@"
30
 
    fi
31
 
  fi
32
 
  ;;
33
 
  "desc" )
34
 
  cmd_desc
35
 
  ;;
36
 
esac
37
 
}
38
 
 
39
 
# Runs a command that functions as a tla wrapper
40
 
# The difference from aba_run is the handling of extended help
41
 
aba_run_tlawrap()
42
 
{
43
 
if [ -z "$abaname" ]; then
44
 
  aba "$(basename $0)" "$@"
45
 
  exit
46
 
fi
47
 
 
48
 
case "$1" in
49
 
  "exec" )
50
 
  shift
51
 
  if [ "$1" = "-h" ] ; then
52
 
    cmd_help
53
 
  elif [ "$1" = "--help" ] ; then
54
 
    cmd_help
55
 
  elif [ "$1" = "-H" ] ; then
56
 
    cmd_ext_help
57
 
  else
58
 
    if [ -n "$ABAFILTER" ]; then
59
 
      cmd_exec "$@" | $ABAFILTER
60
 
    else 
61
 
      cmd_exec "$@"
62
 
    fi
63
 
  fi
64
 
  ;;
65
 
  "desc" )
66
 
  cmd_desc
67
 
  ;;
68
 
esac
69
 
}
70
 
 
71
 
# Outputs the tag source of the current tree, according to patch-logs
72
 
# May be wrong under certain contrived circumstances
73
 
aba_tree_source()
74
 
{
75
 
  logs=$(tla logs 2>/dev/null)
76
 
  if [ $? -ne 0 ]; then
77
 
    return 2
78
 
  fi
79
 
 
80
 
  tagsource=$(for r in $logs; do tla cat-log $r;done|grep "Continuation-of: "|head -n 1|sed s/"Continuation-of: "//)
81
 
  if [ -z "$tagsource" ]; then
82
 
    return 1
83
 
  fi
84
 
  echo $tagsource
85
 
}
86
 
 
87
 
#Converts a fully-qualified revision to a fully-qualified version
88
 
aba_fqversion()
89
 
{
90
 
  echo $(tla parse-package-name -a $1)/$(tla parse-package-name --package-version $1)
91
 
}
92
 
 
93
 
# Outputs a full revision name; input may be either
94
 
# a full revision name
95
 
# a patchlevel refering to the current tree version
96
 
aba_revision_or_version()
97
 
{
98
 
  name=$(aba_full_revision $@)
99
 
  if [ -z "$name" ]; then
100
 
    if tla valid-package-name -p -v $1; then
101
 
      name=$1
102
 
    fi
103
 
  fi
104
 
  echo $name
105
 
}
106
 
 
107
 
# Outputs a full revision name; input may be either
108
 
# a full revision name
109
 
# a patchlevel refering to the current tree version
110
 
aba_full_revision()
111
 
{
112
 
  if [ -z "$1" ]; then
113
 
    aba_tree_revision
114
 
    return $?
115
 
  fi
116
 
  if tla valid-package-name -p -v --lvl $1; then
117
 
    echo $1
118
 
  else
119
 
    newname=`tla tree-version 2> /dev/null`--$1
120
 
    if tla valid-package-name -p -v --lvl $newname; then
121
 
      echo $newname
122
 
    fi
123
 
  fi
124
 
}
125
 
 
126
 
# Executes the given command, omitting the last $1 lines
127
 
# $1 is the number of lines
128
 
#
129
 
aba_omit_last()
130
 
{
131
 
  n=$1;
132
 
  shift;
133
 
  my_local_lines="$(expr $("$@" | wc -l) - $n)"
134
 
  "$@" | head  -n $my_local_lines
135
 
  unset my_local_lines
136
 
}
137
 
 
138
 
# Outputs a tla-style command description 
139
 
aba_desc()
140
 
{
141
 
  cmd=$1;
142
 
  shift;
143
 
  printf "%28s : %s\n" $cmd "$*"
144
 
}
145
 
 
146
 
# Creates a temporary directory and outputs its filename
147
 
aba_mktempdir()
148
 
{
149
 
  if [ -z "$TMPDIR" ]; then
150
 
    TMPDIR="/tmp"
151
 
  fi
152
 
  mktemp -d "$TMPDIR/aba.XXXXXX"
153
 
  if [ $? -ne 0 ] ; then
154
 
    echo "panic: Could not create temporary directory!"
155
 
    exit 2
156
 
  fi
157
 
}
158
 
 
159
 
# Outputs a temporary filename
160
 
aba_mktemp()
161
 
{
162
 
  if [ -z "$TMPDIR" ]; then
163
 
    TMPDIR="/tmp"
164
 
  fi
165
 
  mktemp "$TMPDIR/aba.XXXXXX"
166
 
  if [ $? -ne 0 ] ; then
167
 
    echo "panic: Could not create temporary file!"
168
 
    exit 2
169
 
  fi
170
 
}
171
 
 
172
 
# Attempts to execute a command, panics if returns non-zero
173
 
aba_try()
174
 
{
175
 
  "$@"
176
 
  if [ $? -ne 0 ] ; then
177
 
    echo PANIC: failed to execute $@ >&2
178
 
    exit 2
179
 
  fi
180
 
}
181
 
 
182
 
# Undoes a star-merge
183
 
# Takes the same parameters as star-merge (except --changes)
184
 
aba_star_merge_undo()
185
 
{
186
 
  tmp=$(aba_mktempdir)
187
 
  treeroot=$(tla tree-root)
188
 
  echo "* undoing current changes"
189
 
  aba_try tla undo > /dev/null
190
 
  echo "* generating star-merge changeset"
191
 
  aba_try tla star-merge --changes $tmp/merge-undo "$@" > /dev/null
192
 
  echo "* redoing changes"
193
 
  aba_try tla redo > /dev/null
194
 
  echo "* reverse-applying star-merge changeset"
195
 
  tla dopatch --reverse $tmp/merge-undo $treeroot
196
 
  status=$?
197
 
  if [ $status -gt 1 ]; then 
198
 
    echo Failed to execute tla dopatch --reverse $tmp/merge-undo . >&2
199
 
    return $status
200
 
  fi
201
 
  aba_try rm -Rf $tmp
202
 
  return $status
203
 
}
204
 
 
205
 
# Outputs the project tree revision
206
 
aba_tree_revision()
207
 
{
208
 
  tla logs -d "${1:-.}" -r -f | head -n 1
209
 
}
210
 
 
211
 
# Break any links that the given file may have
212
 
aba_break_link()
213
 
{
214
 
   cp -p $1 '++brokelink' && mv '++brokelink' $1
215
 
   if [ $? -ne 0 ]; then
216
 
     echo "Can't break link for $1"
217
 
     exit 2
218
 
   fi
219
 
}
220
 
 
221
 
# Ensure that the project tree has no uncommitted changes
222
 
aba_no_changes ()
223
 
{
224
 
  tla changes > /dev/null
225
 
  status=$?
226
 
  if [ $status -eq 1 ]; then 
227
 
    echo Project tree has uncommitted changes.  Aborting. 2>&2
228
 
    exit 1;
229
 
  fi
230
 
  if [ $status -gt 1 ]; then
231
 
    exit $status;
232
 
  fi
233
 
}
234
 
 
235
 
# Determine whether a command supports a given option (long form required)
236
 
aba_supports_option()
237
 
{
238
 
  tla $1 -h | grep -- "--$2" >/dev/null
239
 
  return $?
240
 
}
241
 
 
242
 
# Echoes message to stderr, exits with status 2
243
 
aba_panic()
244
 
{
245
 
  echo $@ >&2
246
 
  exit 2
247
 
}
248
 
 
249
 
aba_merge_source()
250
 
{
251
 
  tree_root=`tla tree-root 2> /dev/null`
252
 
  if [ $? -ne 0 ]; then
253
 
      echo "not in project tree ($(pwd))" >&2
254
 
      exit 2;
255
 
    exit 1
256
 
  fi
257
 
  if [ -f $tree_root/{arch}/+partner-versions ]; then
258
 
    partnerfile=$tree_root/{arch}/+partner-versions 
259
 
  else 
260
 
    partnerfile=$tree_root/{arch}/=partner-versions
261
 
  fi
262
 
  mergefile=$tree_root/++merge-source 
263
 
  if [ -n "$1" ]; then
264
 
    sourcever=$1;
265
 
    sourcetype="[supplied]"
266
 
  elif [ -f $partnerfile ] ; then
267
 
    sourcever=$(cat $partnerfile)
268
 
    sourcetype="[from partner-versions]"
269
 
  elif [ -f $mergefile ] ; then
270
 
    sourcever=$(cat $mergefile)
271
 
    sourcetype="[from ++merge-source]"
272
 
  else
273
 
    treesource=$(aba_tree_source)
274
 
    status=$?;
275
 
    # always false
276
 
    if [ $status -eq 2 ]; then
277
 
      echo "merge: not in project tree ($(pwd))" >&2
278
 
      exit 2;
279
 
    fi
280
 
    if [ $status -ne 0 ]; then
281
 
      echo "aba merge: Unable to find $sourcefile" or tag source >&2
282
 
      exit 1;
283
 
    fi
284
 
    sourcever="$(tla parse-package-name -a $treesource)/$(tla parse-package-name --package-version $treesource)"
285
 
    sourcetype="[from tag-source]"
286
 
  fi
287
 
}
288
 
aba_tag_this()
289
 
{
290
 
  tla tag -S `aba_tree_revision` $1 
291
 
}
292
 
aba_change_version()
293
 
{
294
 
  root=$(tla tree-root)
295
 
  if [ $? -ne 0 ]; then
296
 
    aba_panic "Unable to determine tree root"
297
 
  fi
298
 
  from=$(aba_tree_revision)
299
 
  if [ $? -ne 0 ]; then
300
 
    aba_panic "Unable to determine tree revision"
301
 
  fi
302
 
  to=$(tla revisions -f $1|tail -n 1)
303
 
  if [ $? -ne 0 ]; then
304
 
    aba_panic "Unable to determine target revision"
305
 
  fi
306
 
  if [ -z "$to" ]; then
307
 
    aba_panic "Unable to determine target revision"
308
 
  fi
309
 
  aba_try tla apply-delta --dir $root $from $to
310
 
  aba_try tla set-tree-version $1
311
 
}
312
 
# arch-tag: runner by Aaron Bentley (07:50 Jan 19, 2004)