00000000
00000018
00000030
00000048
00000060
00000078
00000090
000000A8
000000C0
000000D8
000000F0
00000108
00000120
00000138
00000150
00000168
00000180
00000198
000001B0
000001C8
000001E0
000001F8
00000210
00000228
00000240
00000258
00000270
00000288
000002A0
000002B8
000002D0
000002E8
00000300
00000318
00000330
00000348
00000360
00000378
00000390
000003A8
000003C0
000003D8
000003F0
00000408
00000420
00000438
00000450
00000468
00000480
00000498
000004B0
000004C8
000004E0
000004F8
00000510
00000528
00000540
00000558
00000570
00000588
000005A0
000005B8
000005D0
000005E8
00000600
00000618
00000630
00000648
00000660
00000678
00000690
000006A8
000006C0
000006D8
000006F0
00000708
00000720
00000738
00000750
00000768
00000780
00000798
000007B0
000007C8
000007E0
000007F8
00000810
00000828
00000840
00000858
00000870
00000888
000008A0
000008B8
000008D0
000008E8
00000900
00000918
00000930
00000948
00000960
00000978
00000990
000009A8
000009C0
000009D8
000009F0
00000A08
00000A20
00000A38
00000A50
00000A68
00000A80
00000A98
00000AB0
00000AC8
00000AE0
00000AF8
00000B10
00000B28
| 23 21 2F 62 69 6E 2F 73 68 0A 0A 23 20 09 43 6F 70 79 72 69 67 68 74 20
28 43 29 20 32 30 30 31 2C 20 32 30 30 33 2C 20 32 30 30 36 20 46 72 65
65 20 53 6F 66 74 77 61 72 65 20 46 6F 75 6E 64 61 74 69 6F 6E 2C 20 49
6E 63 2E 0A 23 0A 23 20 54 68 69 73 20 70 72 6F 67 72 61 6D 20 69 73 20
66 72 65 65 20 73 6F 66 74 77 61 72 65 3B 20 79 6F 75 20 63 61 6E 20 72
65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6E 64 2F 6F 72 0A 23 20
6D 6F 64 69 66 79 20 69 74 20 75 6E 64 65 72 20 74 68 65 20 74 65 72 6D
73 20 6F 66 20 74 68 65 20 47 4E 55 20 47 65 6E 65 72 61 6C 20 50 75 62
6C 69 63 20 4C 69 63 65 6E 73 65 20 61 73 0A 23 20 70 75 62 6C 69 73 68
65 64 20 62 79 20 74 68 65 20 46 72 65 65 20 53 6F 66 74 77 61 72 65 20
46 6F 75 6E 64 61 74 69 6F 6E 3B 20 65 69 74 68 65 72 20 76 65 72 73 69
6F 6E 20 32 2C 20 6F 72 0A 23 20 28 61 74 20 79 6F 75 72 20 6F 70 74 69
6F 6E 29 20 61 6E 79 20 6C 61 74 65 72 20 76 65 72 73 69 6F 6E 2E 0A 23
0A 23 20 54 68 69 73 20 70 72 6F 67 72 61 6D 20 69 73 20 64 69 73 74 72
69 62 75 74 65 64 20 69 6E 20 74 68 65 20 68 6F 70 65 20 74 68 61 74 20
69 74 20 77 69 6C 6C 20 62 65 20 75 73 65 66 75 6C 2C 0A 23 20 62 75 74
20 57 49 54 48 4F 55 54 20 41 4E 59 20 57 41 52 52 41 4E 54 59 3B 20 77
69 74 68 6F 75 74 20 65 76 65 6E 20 74 68 65 20 69 6D 70 6C 69 65 64 20
77 61 72 72 61 6E 74 79 20 6F 66 0A 23 20 4D 45 52 43 48 41 4E 54 41 42
49 4C 49 54 59 20 6F 72 20 46 49 54 4E 45 53 53 20 46 4F 52 20 41 20 50
41 52 54 49 43 55 4C 41 52 20 50 55 52 50 4F 53 45 2E 20 20 53 65 65 20
74 68 65 20 47 4E 55 0A 23 20 47 65 6E 65 72 61 6C 20 50 75 62 6C 69 63
20 4C 69 63 65 6E 73 65 20 66 6F 72 20 6D 6F 72 65 20 64 65 74 61 69 6C
73 2E 0A 23 0A 23 20 59 6F 75 20 73 68 6F 75 6C 64 20 68 61 76 65 20 72
65 63 65 69 76 65 64 20 61 20 63 6F 70 79 20 6F 66 20 74 68 65 20 47 4E
55 20 47 65 6E 65 72 61 6C 20 50 75 62 6C 69 63 20 4C 69 63 65 6E 73 65
0A 23 20 61 6C 6F 6E 67 20 77 69 74 68 20 74 68 69 73 20 73 6F 66 74 77
61 72 65 3B 20 73 65 65 20 74 68 65 20 66 69 6C 65 20 43 4F 50 59 49 4E
47 2E 20 20 49 66 20 6E 6F 74 2C 20 77 72 69 74 65 20 74 6F 0A 23 20 74
68 65 20 46 72 65 65 20 53 6F 66 74 77 61 72 65 20 46 6F 75 6E 64 61 74
69 6F 6E 2C 20 49 6E 63 2E 2C 20 35 31 20 46 72 61 6E 6B 6C 69 6E 20 53
74 72 65 65 74 2C 20 46 69 66 74 68 20 46 6C 6F 6F 72 2C 0A 23 20 42 6F
73 74 6F 6E 2C 20 4D 41 20 30 32 31 31 30 2D 31 33 30 31 20 55 53 41 0A
0A 23 20 55 73 61 67 65 3A 20 53 65 65 20 60 68 65 6C 70 27 20 66 75 6E
63 20 62 65 6C 6F 77 2E 0A 23 0A 23 20 54 4F 44 4F 0A 23 20 2D 20 68 61
6E 64 6C 65 20 70 72 65 2D 69 6E 73 74 61 6C 6C 20 69 6E 76 6F 63 61 74
69 6F 6E 0A 23 20 2D 20 22 66 75 6C 6C 22 20 6F 70 74 69 6F 6E 20 70 72
6F 63 65 73 73 69 6E 67 20 28 62 75 74 20 73 65 65 20 63 6F 6D 6D 65 6E
74 20 62 65 6C 6F 77 29 0A 23 0A 23 20 41 75 74 68 6F 72 3A 20 54 68 69
65 6E 2D 54 68 69 20 4E 67 75 79 65 6E 0A 0A 68 65 6C 70 20 28 29 0A 7B
0A 20 20 20 20 63 61 74 20 3C 3C 45 4F 46 0A 55 73 61 67 65 3A 20 67 75
69 6C 65 2D 74 6F 6F 6C 73 20 2D 2D 76 65 72 73 69 6F 6E 0A 20 20 20 20
20 20 20 67 75 69 6C 65 2D 74 6F 6F 6C 73 20 2D 2D 68 65 6C 70 0A 20 20
20 20 20 20 20 67 75 69 6C 65 2D 74 6F 6F 6C 73 20 5B 4F 50 54 49 4F 4E
5D 20 50 52 4F 47 52 41 4D 20 5B 41 52 47 53 5D 0A 0A 49 66 20 50 52 4F
47 52 41 4D 20 69 73 20 22 6C 69 73 74 22 20 6F 72 20 6F 6D 69 74 74 65
64 2C 20 64 69 73 70 6C 61 79 20 63 6F 6E 74 65 6E 74 73 20 6F 66 20 73
63 72 69 70 74 73 20 64 69 72 2C 20 6F 74 68 65 72 77 69 73 65 0A 50 52
4F 47 52 41 4D 20 69 73 20 72 75 6E 20 77 2F 20 41 52 47 53 2E 20 20 4F
70 74 69 6F 6E 73 20 28 6F 6E 6C 79 20 6F 6E 65 20 6F 66 20 77 68 69 63
68 20 6D 61 79 20 62 65 20 75 73 65 64 20 61 74 20 61 20 74 69 6D 65 29
3A 0A 20 2D 2D 73 63 72 69 70 74 73 64 69 72 20 44 49 52 20 20 20 20 2D
2D 20 4C 6F 6F 6B 20 69 6E 20 44 49 52 20 66 6F 72 20 73 63 72 69 70 74
73 0A 20 2D 2D 67 75 69 6C 65 76 65 72 73 69 6F 6E 20 56 45 52 53 20 2D
2D 20 4C 6F 6F 6B 20 69 6E 20 24 70 6B 67 64 61 74 61 64 69 72 2F 56 45
52 53 2F 73 63 72 69 70 74 73 20 66 6F 72 20 73 63 72 69 70 74 73 0A 20
2D 2D 73 6F 75 72 63 65 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D 20 44
69 73 70 6C 61 79 20 50 52 4F 47 52 41 4D 20 73 6F 75 72 63 65 20 28 69
67 6E 6F 72 65 20 41 52 47 53 29 20 74 6F 20 73 74 64 6F 75 74 0A 0A 44
65 66 61 75 6C 74 20 73 63 72 69 70 74 73 20 64 69 72 3A 20 24 64 65 66
61 75 6C 74 5F 73 63 72 69 70 74 73 64 69 72 0A 45 4F 46 0A 7D 0A 0A 70
72 65 66 69 78 3D 22 2F 75 73 72 22 0A 70 6B 67 64 61 74 61 64 69 72 3D
22 2F 75 73 72 2F 73 68 61 72 65 2F 67 75 69 6C 65 22 0A 67 75 69 6C 65
76 65 72 73 69 6F 6E 3D 22 31 2E 38 22 0A 64 65 66 61 75 6C 74 5F 73 63
72 69 70 74 73 64 69 72 3D 24 70 6B 67 64 61 74 61 64 69 72 2F 24 67 75
69 6C 65 76 65 72 73 69 6F 6E 2F 73 63 72 69 70 74 73 0A 0A 23 20 70 72
65 2D 69 6E 73 74 61 6C 6C 20 69 6E 76 6F 63 61 74 69 6F 6E 20 66 72 6F
62 0A 6D 79 64 69 72 3D 60 64 69 72 6E 61 6D 65 20 24 30 60 0A 69 66 20
5B 20 2D 64 20 22 24 6D 79 64 69 72 2F 73 63 72 69 70 74 73 22 20 2D 61
20 2D 66 20 22 24 6D 79 64 69 72 2F 73 63 72 69 70 74 73 2F 4D 61 6B 65
66 69 6C 65 2E 61 6D 22 20 5D 20 3B 20 74 68 65 6E 0A 20 20 20 20 64 65
66 61 75 6C 74 5F 73 63 72 69 70 74 73 64 69 72 3D 60 28 63 64 20 24 6D
79 64 69 72 2F 73 63 72 69 70 74 73 20 3B 20 70 77 64 29 60 0A 66 69 0A
0A 23 20 6F 70 74 69 6F 6E 20 70 72 6F 63 65 73 73 69 6E 67 20 2D 2D 20
62 61 73 69 63 61 6C 6C 79 2C 20 79 6F 75 20 63 61 6E 20 6F 76 65 72 72
69 64 65 20 65 69 74 68 65 72 20 74 68 65 20 73 63 72 69 70 74 20 64 69
72 0A 23 20 63 6F 6D 70 6C 65 74 65 6C 79 2C 20 6F 72 20 6A 75 73 74 20
74 68 65 20 67 75 69 6C 65 20 76 65 72 73 69 6F 6E 2E 20 20 77 65 20 63
68 6F 6F 73 65 20 69 6D 70 6C 65 6D 65 6E 74 61 74 69 6F 6E 20 73 69 6D
70 6C 69 63 69 74 79 0A 23 20 6F 76 65 72 20 6F 72 74 68 6F 67 6F 6E 61
6C 69 74 79 2E 0A 0A 63 61 73 65 20 78 22 24 31 22 20 69 6E 0A 78 2D 2D
76 65 72 73 69 6F 6E 29 0A 20 20 20 20 65 63 68 6F 20 24 30 20 24 67 75
69 6C 65 76 65 72 73 69 6F 6E 0A 20 20 20 20 65 78 69 74 20 30 0A 20 20
20 20 3B 3B 0A 78 2D 2D 68 65 6C 70 29 0A 20 20 20 20 68 65 6C 70 0A 20
20 20 20 65 78 69 74 20 30 0A 20 20 20 20 3B 3B 0A 65 73 61 63 0A 0A 69
66 20 5B 20 78 22 24 31 22 20 3D 20 78 2D 2D 73 63 72 69 70 74 73 64 69
72 20 5D 20 3B 20 74 68 65 6E 0A 20 20 20 20 75 73 65 72 5F 73 63 72 69
70 74 73 64 69 72 3D 24 32 0A 20 20 20 20 73 68 69 66 74 0A 20 20 20 20
73 68 69 66 74 0A 65 6C 69 66 20 5B 20 78 22 24 31 22 20 3D 20 78 2D 2D
67 75 69 6C 65 76 65 72 73 69 6F 6E 20 5D 20 3B 20 74 68 65 6E 0A 20 20
20 20 75 73 65 72 5F 73 63 72 69 70 74 73 64 69 72 3D 24 70 6B 67 64 61
74 61 64 69 72 2F 24 32 2F 73 63 72 69 70 74 73 0A 20 20 20 20 73 68 69
66 74 0A 20 20 20 20 73 68 69 66 74 0A 66 69 0A 0A 73 63 72 69 70 74 73
64 69 72 3D 24 7B 75 73 65 72 5F 73 63 72 69 70 74 73 64 69 72 2D 24 64
65 66 61 75 6C 74 5F 73 63 72 69 70 74 73 64 69 72 7D 0A 0A 69 66 20 5B
20 21 20 2D 64 20 24 73 63 72 69 70 74 73 64 69 72 20 5D 20 3B 20 74 68
65 6E 0A 20 20 20 20 65 63 68 6F 20 24 30 3A 20 6E 6F 20 73 75 63 68 20
64 69 72 65 63 74 6F 72 79 3A 20 24 73 63 72 69 70 74 73 64 69 72 0A 20
20 20 20 65 78 69 74 20 31 0A 66 69 0A 0A 69 66 20 5B 20 78 22 24 31 22
20 3D 20 78 20 2D 6F 20 78 22 24 31 22 20 3D 20 78 6C 69 73 74 20 5D 20
3B 20 74 68 65 6E 0A 20 20 20 20 6C 73 20 24 73 63 72 69 70 74 73 64 69
72 0A 20 20 20 20 65 78 69 74 20 30 0A 66 69 0A 0A 69 66 20 5B 20 78 22
24 31 22 20 3D 20 78 2D 2D 73 6F 75 72 63 65 20 5D 20 3B 20 74 68 65 6E
0A 20 20 20 20 69 66 20 5B 20 78 22 24 32 22 20 3D 20 78 20 5D 20 3B 20
74 68 65 6E 20 65 63 68 6F 20 24 30 3A 20 6E 65 65 64 20 74 6F 20 73 70
65 63 69 66 79 20 70 72 6F 67 72 61 6D 20 3B 20 65 78 69 74 20 31 20 3B
20 66 69 0A 20 20 20 20 69 66 20 5B 20 2D 78 20 24 73 63 72 69 70 74 73
64 69 72 2F 24 32 20 5D 20 3B 20 74 68 65 6E 0A 20 20 20 20 20 20 20 20
63 61 74 20 24 73 63 72 69 70 74 73 64 69 72 2F 24 32 0A 20 20 20 20 20
20 20 20 65 78 69 74 20 30 0A 20 20 20 20 65 6C 73 65 0A 20 20 20 20 20
20 20 20 65 63 68 6F 20 24 30 3A 20 6E 6F 20 73 75 63 68 20 70 72 6F 67
72 61 6D 3A 20 24 32 0A 20 20 20 20 20 20 20 20 65 78 69 74 20 31 0A 20
20 20 20 66 69 0A 66 69 0A 0A 70 72 6F 67 72 61 6D 3D 24 73 63 72 69 70
74 73 64 69 72 2F 24 31 0A 73 68 69 66 74 0A 0A 69 66 20 5B 20 2D 78 20
24 70 72 6F 67 72 61 6D 20 5D 20 3B 20 74 68 65 6E 0A 20 20 20 20 65 78
65 63 20 24 70 72 6F 67 72 61 6D 20 22 24 40 22 0A 65 6C 73 65 0A 20 20
20 20 65 63 68 6F 20 24 30 3A 20 6E 6F 20 73 75 63 68 20 70 72 6F 67 72
61 6D 3A 20 24 70 72 6F 67 72 61 6D 0A 20 20 20 20 65 78 69 74 20 31 0A
66 69 0A 0A 23 20 67 75 69 6C 65 2D 74 6F 6F 6C 73 20 65 6E 64 73 20 68
65 72 65 0A | #!/bin/sh # Copyright
(C) 2001, 2003, 2006 Fre
e Software Foundation, I
nc. # # This program is
free software; you can r
edistribute it and/or #
modify it under the term
s of the GNU General Pub
lic License as # publish
ed by the Free Software
Foundation; either versi
on 2, or # (at your opti
on) any later version. #
# This program is distr
ibuted in the hope that
it will be useful, # but
WITHOUT ANY WARRANTY; w
ithout even the implied
warranty of # MERCHANTAB
ILITY or FITNESS FOR A P
ARTICULAR PURPOSE. See
the GNU # General Public
License for more detail
s. # # You should have r
eceived a copy of the GN
U General Public License
# along with this softw
are; see the file COPYIN
G. If not, write to # t
he Free Software Foundat
ion, Inc., 51 Franklin S
treet, Fifth Floor, # Bo
ston, MA 02110-1301 USA
# Usage: See `help' fun
c below. # # TODO # - ha
ndle pre-install invocat
ion # - "full" option pr
ocessing (but see commen
t below) # # Author: Thi
en-Thi Nguyen help () {
cat <<EOF Usage: gu
ile-tools --version
guile-tools --help
guile-tools [OPTION
] PROGRAM [ARGS] If PRO
GRAM is "list" or omitte
d, display contents of s
cripts dir, otherwise PR
OGRAM is run w/ ARGS. O
ptions (only one of whic
h may be used at a time)
: --scriptsdir DIR -
- Look in DIR for script
s --guileversion VERS -
- Look in $pkgdatadir/VE
RS/scripts for scripts
--source -- D
isplay PROGRAM source (i
gnore ARGS) to stdout D
efault scripts dir: $def
ault_scriptsdir EOF } p
refix="/usr" pkgdatadir=
"/usr/share/guile" guile
version="1.8" default_sc
riptsdir=$pkgdatadir/$gu
ileversion/scripts # pr
e-install invocation fro
b mydir=`dirname $0` if
[ -d "$mydir/scripts" -a
-f "$mydir/scripts/Make
file.am" ] ; then de
fault_scriptsdir=`(cd $m
ydir/scripts ; pwd)` fi
# option processing --
basically, you can overr
ide either the script di
r # completely, or just
the guile version. we c
hoose implementation sim
plicity # over orthogona
lity. case x"$1" in x--
version) echo $0 $gu
ileversion exit 0
;; x--help) help
exit 0 ;; esac i
f [ x"$1" = x--scriptsdi
r ] ; then user_scri
ptsdir=$2 shift
shift elif [ x"$1" = x--
guileversion ] ; then
user_scriptsdir=$pkgda
tadir/$2/scripts shi
ft shift fi scripts
dir=${user_scriptsdir-$d
efault_scriptsdir} if [
! -d $scriptsdir ] ; th
en echo $0: no such
directory: $scriptsdir
exit 1 fi if [ x"$1"
= x -o x"$1" = xlist ]
; then ls $scriptsdi
r exit 0 fi if [ x"
$1" = x--source ] ; then
if [ x"$2" = x ] ;
then echo $0: need to sp
ecify program ; exit 1 ;
fi if [ -x $scripts
dir/$2 ] ; then
cat $scriptsdir/$2
exit 0 else
echo $0: no such prog
ram: $2 exit 1
fi fi program=$scrip
tsdir/$1 shift if [ -x
$program ] ; then ex
ec $program "$@" else
echo $0: no such progr
am: $program exit 1
fi # guile-tools ends h
ere |