fix copying/symlinking

package/export

@@ -10,7 +10,7 @@ root="${1-/usr/local/}"
 user="`id -un`"
 group="`id -gn`"
 
-install -d -m 0755 "${root}"bin "${root}"man/man1 "${root}"man/man5
+install -d -m 0755 "${root}"bin "${root}"man/man1 "${root}"man/man5 "${root}"share/info
 
 do_man()
 {
@@ -34,7 +34,7 @@ do
 done
 cat package/info | while read i
 do
-	rm -f -- "${root}"share/info/"$i"{new}
-	install -p -m 0644 -- build/"$i" "${root}"share/"$i"{new}
-	mv -f -- "${root}"share/info/"$i"{new} "${root}"share/info/"$i"
+	rm -f -- "${root}"share/info/"$i".info{new}
+	install -p -m 0644 -- build/"$i".info "${root}"share/info/"$i".info{new}
+	mv -f -- "${root}"share/info/"$i".info{new} "${root}"share/info/"$i".info
 done

package/makeinstall

@@ -9,7 +9,7 @@ fi
 # Atomically update the release directories ./command, ./library, ./include, and so forth.
 # The build and release directories need not be on the same disc volume.
 # And the files released must not be potentially overwritable and truncatable by the compiler/linker during subsequent builds.
-install -d -- command manual doc
+install -d -- command manual doc info
 
 # ##############################################################################
 # Build all of the ...{new} files in ./command, ./config, and ./manual.
@@ -46,7 +46,7 @@ do
 done
 cat package/info | while read i
 do
-	rm -f -- info/"$i"{new}
-	install -p -m 0644 -- build/"$i" info/"$i"{new}
-	mv -f -- info/"$i"{new} info/"$i"
+	rm -f -- info/"$i".info{new}
+	install -p -m 0644 -- build/"$i".info info/"$i".info{new}
+	mv -f -- info/"$i".info{new} info/"$i".info
 done

package/stage

@@ -17,7 +17,7 @@ dest="${2}"
 root="${dest}"/actkbd/usr/local
 
 # binaries and doco
-install -d -m 0755 "${root}"/bin "${root}"/man/man1 "${root}"/man/man5
+install -d -m 0755 "${root}"/bin "${root}"/man/man1 "${root}"/man/man5 "${root}"/share/info
 
 cat package/export-manifests/actkbd.commands1 | while read j ;
 do
@@ -30,5 +30,5 @@ do
 done
 cat package/export-manifests/actkbd.info | while read j
 do
-	ln -f -- "${src}"/share/info/"$j" "${root}"/share/info/"$j"
+	ln -f -- "${src}"/share/info/"$j".info "${root}"/share/info/"$j".info
 done

source/guile.c

@@ -44,7 +44,7 @@ static SCM grabbed_p(void) {
 /* set/unset a led */
 static SCM led_wrapper(SCM led, SCM on) {
 	/* we will convert this on use because we only use it once, unlike with key
-		 in bind() */
+	         in bind() */
 	Led ledcode = (Led) extract_int(led);
 	int state = (int) extract_int(on);
 
@@ -77,7 +77,7 @@ void extension_init(void) {
 
 void extension_cleanup_callback(void *fun) {
 	/* so the gc will be able to collect it */
-	scm_gc_unprotect_object(fun);			
+	scm_gc_unprotect_object(fun);
 }
 
 /* a shortcut to reload stuff */