R HaverPackageSearchPath.txt => +0 -3
@@ 1,3 0,0 @@
-/
-/home/bear/gitwork/Cuis-Smalltalk/Cuis7-0/Packages
-/home/bear/gitwork/Cuis-Smalltalk/Cuis-Smalltalk-Dev/CompatibilityPackages
A => HaverVersionNumber.txt +1 -0
M Haverize.st +7 -2
@@ 1,7 1,12 @@
| haverVersion |
-haverVersion := 1.
+haverVersion :=
+ (DirectoryEntry currentDirectory // 'HaverVersionNumber.txt')
+ readStream nextNumber.
-Feature require: (DirectoryEntry currentDirectory / 'HaverOnCuis' / 'haver' // 'Haverize.pck.st' :: pathName).
+Feature
+ require:
+ (DirectoryEntry currentDirectory / 'haver' // 'Haverize.pck.st' :: pathName).
+
HaverizePackage
haverVersion: haverVersion;
saveAsNewHaverVersionWhenIntegrating
A => prepareBootstrap.sh +45 -0
@@ 0,0 1,45 @@
+#!/bin/sh
+
+if [ "#" = "#$1" ];
+ then
+ echo 'usage: '$(basename $0) '<Cuis Directory>';
+ exit 1
+ else
+ PROJECT_DIR=$(dirname $0)
+ CUIS_DIR=$1
+ if [ -d $CUIS_DIR ];
+ then
+ CUIS_7_DIR="$CUIS_DIR/Cuis7-0"
+ if [ -d $CUIS_7_DIR ];
+ then
+ CORE_UPDATES_DIR="$CUIS_7_DIR/CoreUpdates"
+ if [ -d $CORE_UPDATES_DIR ];
+ then
+ echo "Core Updates OK\t\t($CORE_UPDATES_DIR)"
+ else
+ echo "error: The core updates directory ($CORE_UPDATES_DIR) is not a directory'"
+ exit 1
+ fi
+ TRUE_TYPE_FONTS_DIR="$CUIS_7_DIR/TrueTypeFonts"
+ if [ -d $TRUE_TYPE_FONTS_DIR ];
+ then
+ echo "TrueType Fonts OK\t($TRUE_TYPE_FONTS_DIR)"
+ else
+ echo "error: The true type fonts directory ($TRUE_TYPE_FONTS_DIR) is not a directory'"
+ exit 1
+ fi
+ ln -fs $CORE_UPDATES_DIR $PROJECT_DIR
+ ln -fs $TRUE_TYPE_FONTS_DIR $PROJECT_DIR
+ cp -a $CUIS_7_DIR/CuisImage/Cuis7.0.* .
+ echo "/" > HaverPackageSearchPath.txt
+ echo "$CUIS_7_DIR/Packages" >> HaverPackageSearchPath.txt
+ echo "$CUIS_DIR/Cuis-Smalltalk-Dev/CompatibilityPackages" >> HaverPackageSearchPath.txt
+ else
+ echo "error: The Cuis 7.0 directory ($CUIS_7_DIR) is not a directory'"
+ exit 1
+ fi
+ else
+ echo "error: The Cuis top level directory ($CUIS_DIR) is not a directory'"
+ exit 1
+ fi
+fi