Merge pull request #528 from GemTalk/candidateV1.2

v1.2.8 release

platforms/gemstone/bin/packing_oscar

@@ -36,6 +36,7 @@ set -e
 # 1.2.4 $ROWAN_PROJECTS_HOME/Rowan/platforms/gemstone/bin/packing_oscar Edelweiss-1.2.4 v1.2.4 Oscar-3.0.50
 # 1.2.5 $ROWAN_PROJECTS_HOME/Rowan/platforms/gemstone/bin/packing_oscar Edelweiss-1.2.5 v1.2.5 Oscar-3.0.50
 # 1.2.6 $ROWAN_PROJECTS_HOME/Rowan/platforms/gemstone/bin/packing_oscar Edelweiss-1.2.6 v1.2.6 Oscar-3.0.65
+# 1.2.7 $ROWAN_PROJECTS_HOME/Rowan/platforms/gemstone/bin/packing_oscar Edelweiss-1.2.7 v1.2.7 Oscar-3.0.85
 #
 ANSI_RED="\033[91;1m"
 ANSI_GREEN="\033[92;1m"
@@ -118,7 +119,7 @@ clone_entire_git_repo() {
 
 cd $ROWAN_PROJECTS_HOME/Rowan/platforms/gemstone/packing
 
-rm -rf Rowan MANIFEST.TXT Jadeite_runtime_* *.zip *.sha256
+rm -rf Rowan MANIFEST.TXT Jadeite_runtime_* *.zip *.sha256 *.pdf
 
 # Clone Rowan include all branches (complete copy of github repo)
 clone_entire_git_repo git@github.com:dalehenrich/Rowan.git Rowan $rowanDeploymentBranch
@@ -136,6 +137,9 @@ wget https://github.com/GemTalk/Jadeite/releases/download/"$jadeite_tag"/runtime
 unzip runtime.zip
 mv runtime "$jadeite_runtime_dirName"
 
+# copy documentation 
+cp /export/techpubs/JadeiteCurrent/*.pdf .
+
 echo "" >> MANIFEST.TXT
 echo "------------------------------" >> MANIFEST.TXT
 echo "  Jadeite runtime directory" >> MANIFEST.TXT

platforms/gemstone/projects/cypress/src/Cypress-MesssageDigest/CypressMessageDigestStream.class.st

@@ -21,6 +21,23 @@ CypressMessageDigestStream class >> characters [
 
 ]
 
+{ #category : 'Documentation' }
+CypressMessageDigestStream class >> comment [
+"WriteStreamLegacy has a wired in comment method (in 2.3.15), so we
+	need this method to answer correctly provide the comment for this 
+	class"
+" As of GS/64 3.1, comments are now recorded in the class extraDict
+  dictionary under the key #comment.  Comment information formerly
+  recorded as a GsClassDocumentation under the key #description are
+  converted to a string and placed under #comment during DB 
+  conversion/upgrade. "
+
+  | cmt |
+  cmt := self _extraDictAt: #comment.
+  ^ cmt isNil ifTrue: [ '' ] ifFalse: [ cmt ]
+
+]
+
 { #category : 'digests' }
 CypressMessageDigestStream >> md5sum [
 

platforms/gemstone/topaz/3.2.15/cypress/Cypress-MesssageDigest.gs

@@ -74,6 +74,23 @@ characters
 	^self on: String new
 %
 
+category: 'Documentation'
+classmethod: CypressMessageDigestStream
+comment
+"WriteStreamLegacy has a wired in comment method (in 2.3.15), so we
+	need this method to answer correctly provide the comment for this 
+	class"
+" As of GS/64 3.1, comments are now recorded in the class extraDict
+  dictionary under the key #comment.  Comment information formerly
+  recorded as a GsClassDocumentation under the key #description are
+  converted to a string and placed under #comment during DB 
+  conversion/upgrade. "
+
+  | cmt |
+  cmt := self _extraDictAt: #comment.
+  ^ cmt isNil ifTrue: [ '' ] ifFalse: [ cmt ]
+%
+
 ! ------------------- Instance methods for CypressMessageDigestStream
 
 category: 'digests'

platforms/gemstone/topaz/3.2.15/installLegacyUnicode.tpz

@@ -0,0 +1,30 @@
+#
+# install Rowan into a default extent0.dbf: with Legacy Streams and Unicode comparison enabled
+#
+  iferr 1 stk
+  iferr 2 stack
+  iferr 3 exit 1
+
+  set u SystemUser p swordfish
+  login
+
+	run
+	Globals at: #StringConfiguration put: Unicode16.
+	System commit.
+%
+	logout	# to ensure Unicode comparison mode is enabled
+	errorCount
+	login
+
+	run
+	Stream installLegacyStreamImplementation.
+	System commit.
+	Unicode16 usingUnicodeCompares 
+		ifFalse: [ self error: 'Expected to be in Unicode comparison mode' ].
+	PositionableStream isLegacyStreamImplementation
+		ifFalse: [ self error: 'Expected to be using Legacy streams' ].
+%
+
+  logout
+  input  $ROWAN_PROJECTS_HOME/Rowan/platforms/gemstone/topaz/3.2.15/install.tpz
+	errorCount

platforms/gemstone/topaz/3.2.15/installPortableString.tpz

@@ -0,0 +1,20 @@
+#
+# install Rowan into a default extent0.dbf: Portable Streams and Legacy String comparison 
+#
+  iferr 1 stk
+  iferr 2 stack
+  iferr 3 exit 1
+
+  set u SystemUser p swordfish
+  login
+
+	run
+	Unicode16 usingUnicodeCompares 
+		ifTrue: [ self error: 'Expected to be in Legacy String comparison mode' ].
+	PositionableStream isLegacyStreamImplementation
+		ifTrue: [ self error: 'Expected to be using Portable streams' ].
+%
+
+  logout
+  input  $ROWAN_PROJECTS_HOME/Rowan/platforms/gemstone/topaz/3.2.15/install.tpz
+

platforms/gemstone/topaz/3.2.15/installRowanLegacyUnicode

@@ -0,0 +1,19 @@
+#
+# install Rowan into a default extent0.dbf: with Legacy Streams and Unicode comparison enabled
+#
+
+set -e
+
+rm -rf *.out
+
+GEMSTONE_NAME=$1
+export ROWAN_HOME="$(dirname $0)/../../../../"
+
+startTopaz $GEMSTONE_NAME -l << EOF
+
+
+  input $ROWAN_PROJECTS_HOME/Rowan/platforms/gemstone/topaz/3.2.15/installLegacyUnicode.tpz
+
+  exit
+EOF
+

platforms/gemstone/topaz/3.2.15/installRowanPortableString

@@ -0,0 +1,19 @@
+#
+# install Rowan into a default extent0.dbf: Portable Streams and Legacy String comparison 
+#
+
+set -e
+
+rm -rf *.out
+
+GEMSTONE_NAME=$1
+export ROWAN_HOME="$(dirname $0)/../../../../"
+
+startTopaz $GEMSTONE_NAME -l << EOF
+
+
+  input $ROWAN_PROJECTS_HOME/Rowan/platforms/gemstone/topaz/3.2.15/installPortableString.tpz
+
+  exit
+EOF
+

rowan/src/Rowan-Services-Core/RowanAnsweringService.class.st

@@ -15,6 +15,15 @@ Class {
 	#category : 'Rowan-Services-Core'
 }
 
+{ #category : 'private' }
+RowanAnsweringService >> addLowerCaseSymbolsIn: theClass To: array [
+  array addAll: theClass selectors.
+  array addAll: theClass class selectors.
+  array addAll: theClass instVarNames.
+  array addAll: theClass class instVarNames.
+  array addAll: theClass classVarNames.
+]
+
 { #category : 'client commands' }
 RowanAnsweringService >> allClassesStartingWith: string [
   answer := SortedCollection new.
@@ -60,6 +69,26 @@ RowanAnsweringService >> autoCommit [
 	RowanCommandResult addResult: self.
 ]
 
+{ #category : 'client commands' }
+RowanAnsweringService >> autocompleteSymbols [
+  | newClassNames newLowerCaseSymbols |
+  newClassNames := Array new.
+  newLowerCaseSymbols := Array new.
+  organizer classes
+    do: [ :cls | 
+      newClassNames add: cls name asString.
+      self addLowerCaseSymbolsIn: cls To: newLowerCaseSymbols ].
+  newLowerCaseSymbols := newLowerCaseSymbols asSet asArray.
+  SessionTemps current
+    at: #'autocompleteSymbolCache'
+    put: (Array with: newClassNames with: newLowerCaseSymbols).
+  answer := Array
+    with: newClassNames asOrderedCollection
+    with: newLowerCaseSymbols asOrderedCollection.
+  updateType := #'updateSymbols:'.
+  RowanCommandResult addResult: self
+]
+
 { #category : 'client commands' }
 RowanAnsweringService >> breakPointsAreEnabled [
   answer := RowanService breakPointsAreEnabled.
@@ -376,3 +405,30 @@ RowanAnsweringService >> turnOffTranscriptWrites [
 	self isTranscriptInstalled ifTrue:[
 		self flipTranscript]
 ]
+
+{ #category : 'client commands' }
+RowanAnsweringService >> updateAutocompleteSymbols [
+  | cache newClassNames newLowerCaseSymbols |
+  cache := SessionTemps current
+    at: #'autocompleteSymbolCache'
+    ifAbsent: [ ^ self	"autocomplete not activated" ].
+  newClassNames := Array new.
+  newLowerCaseSymbols := Array new.
+  organizer classes
+    do: [ :cls | 
+      (cache first includes: cls name asString)
+        ifFalse: [ newClassNames add: cls name asString ].
+      self addLowerCaseSymbolsIn: cls To: newLowerCaseSymbols ].
+  (SessionTemps current at: #'autocompleteSymbolCache') first
+    addAll: newClassNames.
+  newLowerCaseSymbols := newLowerCaseSymbols asSet asArray.
+  cache last
+    do: [ :selector | 
+      (newLowerCaseSymbols includes: selector)
+        ifTrue: [ newLowerCaseSymbols remove: selector ] ].
+  (SessionTemps current at: #'autocompleteSymbolCache') last
+    addAll: newLowerCaseSymbols.
+  answer := Array with: newClassNames with: newLowerCaseSymbols.
+  updateType := #'updateSymbols:'.
+  RowanCommandResult addResult: self
+]