annotate install.sh @ 617:af57a77cbc92

[xemacs-hg @ 2001-06-18 07:09:50 by ben] --------------------------------------------------------------- DOCUMENTATION FIXES: --------------------------------------------------------------- eval.c: Correct documentation. elhash.c: Doc correction. --------------------------------------------------------------- LISP OBJECT CLEANUP: --------------------------------------------------------------- bytecode.h, buffer.h, casetab.h, chartab.h, console-msw.h, console.h, database.c, device.h, eldap.h, elhash.h, events.h, extents.h, faces.h, file-coding.h, frame.h, glyphs.h, gui-x.h, gui.h, keymap.h, lisp-disunion.h, lisp-union.h, lisp.h, lrecord.h, lstream.h, mule-charset.h, objects.h, opaque.h, postgresql.h, process.h, rangetab.h, specifier.h, toolbar.h, tooltalk.h, ui-gtk.h: Add wrap_* to all objects (it was already there for a few of them) -- an expression to encapsulate a pointer into a Lisp object, rather than the inconvenient XSET*. "wrap" was chosen because "make" as in make_int(), make_char() is not appropriate. (It implies allocation. The issue does not exist for ints and chars because they are not allocated.) Full error checking has been added to these expressions. When used without error checking, non-union build, use of these expressions will incur no loss of efficiency. (In fact, XSET* is now defined in terms of wrap_* in a non-union build.) In a union build, you will also get no loss of efficiency provided that you have a decent optimizing compiler, and a compiler that either understands inlines or automatically inlines those particular functions. (And since people don't normally do their production builds on union, it doesn't matter.) Update the sample Lisp object definition in lrecord.h accordingly. dumper.c: Fix places in dumper that referenced wrap_object to reference its new name, wrap_pointer_1. buffer.c, bufslots.h, conslots.h, console.c, console.h, devslots.h, device.c, device.h, frame.c, frame.h, frameslots.h, window.c, window.h, winslots.h: -- Extract out the Lisp objects of `struct device' into devslots.h, just like for the other structures. -- Extract out the remaining (not copied into the window config) Lisp objects in `struct window' into winslots.h; use different macros (WINDOW_SLOT vs. WINDOW_SAVED_SLOT) to differentiate them. -- Eliminate the `dead' flag of `struct frame', since it duplicates information already available in `framemeths', and fix FRAME_LIVE_P accordingly. (Devices and consoles already work this way.) -- In *slots.h, switch to system where MARKED_SLOT is automatically undef'd at the end of the file. (Follows what winslots.h already does.) -- Update the comments at the beginning of *slots.h to be accurate. -- When making any of the above objects dead, zero it out entirely and reset all Lisp object slots to Qnil. (We were already doing this somewhat, but not consistently.) This (1) Eliminates the possibility of extra objects hanging around that ought to be GC'd, (2) Causes an immediate crash if anyone tries to access a structure in one of these objects, (3) Ensures consistent behavior wrt dead objects. dialog-msw.c: Use internal_object_printer, since this object should not escape. --------------------------------------------------------------- FIXING A CRASH THAT I HIT ONCE (AND A RELATED BAD BEHAVIOR): --------------------------------------------------------------- eval.c: Fix up some comments about the FSF implementation. Fix two nasty bugs: (1) condition_case_unwind frees the conses sitting in the catch->tag slot too quickly, resulting in a crash that I hit. (2) catches need to be unwound one at a time when calling unwind-protect code, rather than all at once at the end; otherwise, incorrect behavior can result. (A comment shows exactly how.) backtrace.h: Improve comment about FSF differences in the handler stack. --------------------------------------------------------------- FIXING A CRASH THAT I REPEATEDLY HIT WHEN USING THE MOUSE WHEEL UNDER MSWINDOWS: --------------------------------------------------------------- Basic idea: My crash is due either to a dead, non-marked, GC-collected frame inside of a window mirror, or a prematurely freed window mirror. We need to mark the Lisp objects inside of window mirrors. Tracking the lifespan of window mirrors and scrollbar instances is extremely hard, and there may well be lurking bugs where such objects are freed too soon. The only safe way to fix these problems (and it fixes both problems at once) is to make both of these structures Lisp objects. lrecord.h, emacs.c, inline.c, scrollbar-gtk.c, scrollbar-msw.c, scrollbar-x.c, scrollbar.c, scrollbar.h, symsinit.h: Make scrollbar instances actual Lisp objects. Mark the window mirrors in them. inline.c needs to know about scrollbar.h now. Record the new type in lrecord.h. Fix up scrollbar-*.c appropriately. Create a hash table in scrollbar-msw.c so that the scrollbar instances stored in scrollbar HWND's are properly GC-protected. Create complex_vars_of_scrollbar_mswindows() to create the hash table at startup, and call it from emacs.c. Don't store the scrollbar instance as a property of the GTK scrollbar, as it's not used and if we did this, we'd have to separately GC-protect it in a hash table, like in MS Windows. lrecord.h, frame.h, frame.c, frameslots.h, redisplay.c, window.c, window.h: Move mark_window_mirror from redisplay.c to window.c. Make window mirrors actual Lisp objects. Tell lrecord.h about them. Change the window mirror member of struct frame from a pointer to a Lisp object, and add XWINDOW_MIRROR in appropriate places. Mark the scrollbar instances in the window mirror. redisplay.c, redisplay.h, alloc.c: Delete mark_redisplay. Don't call mark_redisplay. We now mark frame-specific structures in mark_frame. NOTE: I also deleted an extremely questionable call to update_frame_window_mirrors(). It was extremely questionable before, and now totally impossible, since it will create Lisp objects during redisplay. frame.c: Mark the scrollbar instances, which are now Lisp objects. Call mark_gutter() here, not in mark_redisplay(). gutter.c: Update comments about correct marking. --------------------------------------------------------------- ISSUES BROUGHT UP BY MARTIN: --------------------------------------------------------------- buffer.h: Put back these macros the way Steve T and I think they ought to be. I already explained in a previous changelog entry why I think these macros should be the way I'd defined them. Once again: We fix these macros so they don't care about the type of their lvalues. The non-C-string equivalents of these already function in the same way, and it's correct because it should be OK to pass in a CBufbyte *, a BufByte *, a Char_Binary *, an UChar_Binary *, etc. The whole reason for these different types is to work around errors caused by signed-vs-unsigned non-matching types. Any possible error that might be caught in a DFC macro would also be caught wherever the argument is used elsewhere. So creating multiple macro versions would add no useful error-checking and just further complicate an already complicated area. As for Martin's "ANSI aliasing" bug, XEmacs is not ANSI-aliasing clean and probably never will be. Unless the board agrees to change XEmacs in this way (and we really don't want to go down that road), this is not a bug. sound.h: Undo Martin's type change. signal.c: Fix problem identified by Martin with Linux and g++ due to non-standard declaration of setitimer(). systime.h: Update the docs for "qxe_" to point out why making the encapsulation explicit is always the right way to go. (setitimer() itself serves as an example.) For 21.4: update-elc-2.el: Correct misplaced parentheses, making lisp/mule not get recompiled.
author ben
date Mon, 18 Jun 2001 07:10:32 +0000
parents 376386a54a3c
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 #!/bin/sh
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2 #
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3 # install - install a program, script, or datafile
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
4 # This comes from X11R5.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5 #
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
6 # $XConsortium: install.sh,v 1.2 89/12/18 14:47:22 jim Exp $
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
7 #
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
8 # This script is compatible with the BSD install script, but was written
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
9 # from scratch.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
10 #
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
11
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
12
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
13 # set DOITPROG to echo to test this script
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
14
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
15 # Don't use :- since 4.3BSD and earlier shells don't like it.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
16 doit="${DOITPROG-}"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
17
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
18
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
19 # put in absolute paths if you don't have them in your path; or use env. vars.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
20
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
21 mvprog="${MVPROG-mv}"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
22 cpprog="${CPPROG-cp}"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
23 chmodprog="${CHMODPROG-chmod}"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
24 chownprog="${CHOWNPROG-chown}"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
25 chgrpprog="${CHGRPPROG-chgrp}"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
26 stripprog="${STRIPPROG-strip}"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
27 rmprog="${RMPROG-rm}"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
28 mkdirprog="${MKDIRPROG-mkdir}"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
29
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
30 tranformbasename=""
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
31 transform_arg=""
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
32 instcmd="$mvprog"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
33 chmodcmd="$chmodprog 0755"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
34 chowncmd=""
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
35 chgrpcmd=""
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
36 stripcmd=""
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
37 rmcmd="$rmprog -f"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
38 mvcmd="$mvprog"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
39 src=""
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
40 dst=""
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
41 dir_arg=""
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
42
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
43 while [ x"$1" != x ]; do
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
44 case $1 in
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
45 -c) instcmd="$cpprog"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
46 shift
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
47 continue;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
48
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
49 -d) dir_arg=true
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
50 shift
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
51 continue;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
52
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
53 -m) chmodcmd="$chmodprog $2"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
54 shift
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
55 shift
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
56 continue;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
57
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
58 -o) chowncmd="$chownprog $2"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
59 shift
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
60 shift
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
61 continue;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
62
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
63 -g) chgrpcmd="$chgrpprog $2"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
64 shift
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
65 shift
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
66 continue;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
67
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
68 -s) stripcmd="$stripprog"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
69 shift
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
70 continue;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
71
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
72 -t=*) transformarg=`echo $1 | sed 's/-t=//'`
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
73 shift
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
74 continue;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
75
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
76 -b=*) transformbasename=`echo $1 | sed 's/-b=//'`
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
77 shift
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
78 continue;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
79
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
80 *) if [ x"$src" = x ]
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
81 then
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
82 src=$1
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
83 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
84 # this colon is to work around a 386BSD /bin/sh bug
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
85 :
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
86 dst=$1
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
87 fi
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
88 shift
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
89 continue;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
90 esac
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
91 done
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
92
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
93 if [ x"$src" = x ]
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
94 then
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
95 echo "install: no input file specified"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
96 exit 1
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
97 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
98 true
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
99 fi
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
100
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
101 if [ x"$dir_arg" != x ]; then
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
102 dst=$src
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
103 src=""
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
104
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
105 if [ -d $dst ]; then
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
106 instcmd=:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
107 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
108 instcmd=mkdir
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
109 fi
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
110 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
111
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
112 # Waiting for this to be detected by the "$instcmd $src $dsttmp" command
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
113 # might cause directories to be created, which would be especially bad
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
114 # if $src (and thus $dsttmp) contains '*'.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
115
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
116 if [ -f $src -o -d $src ]
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
117 then
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
118 true
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
119 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
120 echo "install: $src does not exist"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
121 exit 1
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
122 fi
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
123
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
124 if [ x"$dst" = x ]
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
125 then
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
126 echo "install: no destination specified"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
127 exit 1
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
128 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
129 true
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
130 fi
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
131
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
132 # If destination is a directory, append the input filename; if your system
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
133 # does not like double slashes in filenames, you may need to add some logic
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
134
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
135 if [ -d $dst ]
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
136 then
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
137 dst="$dst"/`basename $src`
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
138 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
139 true
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
140 fi
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
141 fi
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
142
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
143 ## this sed command emulates the dirname command
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
144 dstdir=`echo $dst | sed -e 's,[^/]*$,,;s,/$,,;s,^$,.,'`
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
145
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
146 # Make sure that the destination directory exists.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
147 # this part is taken from Noah Friedman's mkinstalldirs script
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
148
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
149 # Skip lots of stat calls in the usual case.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
150 if [ ! -d "$dstdir" ]; then
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
151 defaultIFS='
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
152 '
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
153 IFS="${IFS-${defaultIFS}}"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
154
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
155 oIFS="${IFS}"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
156 # Some sh's can't handle IFS=/ for some reason.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
157 IFS='%'
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
158 set - `echo ${dstdir} | sed -e 's@/@%@g' -e 's@^%@/@'`
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
159 IFS="${oIFS}"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
160
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
161 pathcomp=''
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
162
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
163 while [ $# -ne 0 ] ; do
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
164 pathcomp="${pathcomp}${1}"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
165 shift
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
166
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
167 if [ ! -d "${pathcomp}" ] ;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
168 then
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
169 $mkdirprog "${pathcomp}"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
170 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
171 true
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
172 fi
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
173
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
174 pathcomp="${pathcomp}/"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
175 done
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
176 fi
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
177
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
178 if [ x"$dir_arg" != x ]
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
179 then
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
180 $doit $instcmd $dst &&
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
181
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
182 if [ x"$chowncmd" != x ]; then $doit $chowncmd $dst; else true ; fi &&
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
183 if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dst; else true ; fi &&
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
184 if [ x"$stripcmd" != x ]; then $doit $stripcmd $dst; else true ; fi &&
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
185 if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dst; else true ; fi
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
186 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
187
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
188 # If we're going to rename the final executable, determine the name now.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
189
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
190 if [ x"$transformarg" = x ]
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
191 then
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
192 dstfile=`basename $dst`
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
193 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
194 dstfile=`basename $dst $transformbasename |
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
195 sed $transformarg`$transformbasename
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
196 fi
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
197
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
198 # don't allow the sed command to completely eliminate the filename
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
199
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
200 if [ x"$dstfile" = x ]
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
201 then
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
202 dstfile=`basename $dst`
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
203 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
204 true
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
205 fi
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
206
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
207 # Make a temp file name in the proper directory.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
208
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
209 dsttmp=$dstdir/#inst.$$#
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
210
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
211 # Move or copy the file name to the temp name
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
212
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
213 $doit $instcmd $src $dsttmp &&
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
214
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
215 trap "rm -f ${dsttmp}" 0 &&
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
216
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
217 # and set any options; do chmod last to preserve setuid bits
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
218
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
219 # If any of these fail, we abort the whole thing. If we want to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
220 # ignore errors from any of these, just make sure not to ignore
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
221 # errors from the above "$doit $instcmd $src $dsttmp" command.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
222
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
223 if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; else true;fi &&
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
224 if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; else true;fi &&
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
225 if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; else true;fi &&
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
226 if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; else true;fi &&
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
227
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
228 # Now rename the file to the real destination.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
229
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
230 $doit $rmcmd -f $dstdir/$dstfile &&
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
231 $doit $mvcmd $dsttmp $dstdir/$dstfile
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
232
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
233 fi &&
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
234
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
235
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
236 exit 0