1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#!/bin/sh -e
#
# Finalization module for shoop. Expands the OBJECT class with a finalize
# method. The method takes the names of a list of properites and/or methods
# that should become final. (Though they may be overridden in a child class.)
#
# LGPL copyright 2000 by Adam Heath <doogie@debian.org>
## Passing a list of methods and/or variables to this method will finalize
## each item. It does this thru the use of the shell builtin 'readonly.'
## Once this is done, there is no way to 'destroy' this method, nor is
## there any way to change the value.
IFS=" " OBJECT . final :p '
local item
for item in $@; do
if eval [ -z \"\$_shoopfinal_${THIS}_$item\" ]; then
eval "readonly _shoop_${THIS}_$item
_shoopfinal_${THIS}_$item=1
_shoopfinal_$THIS=\"\$_shoopfinal_$THIS $item\""
fi
done
return
'
|
