'From Squeak3.2alpha of 3 October 2001 [latest update: #4411] on 3 October 2001 at 4:09:10 pm'!

!FilePlugin methodsFor: 'file primitives' stamp: 'sac 10/3/2001 14:58'!
primitiveFileTruncate
	| truncatePosition file |
	self var: 'file' declareC: 'SQFile *file'.
	self export: true.
	truncatePosition _ interpreterProxy
				positive32BitValueOf: (interpreterProxy stackValue: 0).
	file _ self
				fileValueOf: (interpreterProxy stackValue: 1).
	interpreterProxy failed
		ifFalse: ["For some reason, this is failing to compile:
			'self sqFile: file Truncate: truncatePosition'"
			truncatePosition.
			file].
	interpreterProxy failed
		ifFalse: [interpreterProxy pop: 2
			"pop position, file; leave rcvr on stack"]! !


!MethodFinder methodsFor: 'initialize' stamp: 'sac 10/3/2001 12:30'!
initialize2
	"The methods we are allowed to use. (MethodFinder new initialize)"
	"Set"
	"in class"
	"testing"
	"adding"
	"removing"
	"enumerating"
	"private"
	"accessing"
	#(#sizeFor: #array #findElementOrNil: #someElement )
		do: [:sel | Approved add: sel].
	"Dictionary, IdentityDictionary, IdentitySet"
	"accessing"
	"testing"
	#(#associationAt: #associationAt:ifAbsent: #at:ifPresent: #keyAtIdentityValue: #keyAtIdentityValue:ifAbsent: #keyAtValue: #keyAtValue:ifAbsent: #keys #includesKey: )
		do: [:sel | Approved add: sel].
	#(#removeKey: #removeKey:ifAbsent: )
		do: [:sel | AddAndRemove add: sel].
	"LinkedList, Interval, MappedCollection"
	"in class"
	"accessing"
	#(#from:to: #from:to:by: #contents )
		do: [:sel | Approved add: sel].
	"adding"
	#(#addFirst: #addLast: )
		do: [:sel | AddAndRemove add: sel].
	"OrderedCollection, SortedCollection"
	"accessing"
	"copying"
	"adding"
	"removing"
	"enumerating"
	"private"
	"accessing"
	#(#after: #before: #copyEmpty #growSize #sortBlock )
		do: [:sel | Approved add: sel].
	"adding"
	"removing"
	"accessing"
	#(#add:after: #add:afterIndex: #add:before: #addAllFirst: #addAllLast: #addFirst: #addLast: #removeAt: #removeFirst #removeLast #sortBlock: )
		do: [:sel | AddAndRemove add: sel].
	"Character"
	"in class, instance creation"
	"accessing untypeable characters"
	"constants"
	"accessing"
	"comparing"
	"testing"
	"copying"
	"converting"
	#(#allCharacters #digitValue: #new #separators #backspace #cr #enter #lf #linefeed #nbsp #newPage #space #tab #alphabet #characterTable #asciiValue #digitValue #isAlphaNumeric #isDigit #isLetter #isLowercase #isSafeForHTTP #isSeparator #isSpecial #isUppercase #isVowel #tokenish #asIRCLowercase #asLowercase #asUppercase )
		do: [:sel | Approved add: sel].
	"String"
	"in class, instance creation"
	"primitives"
	"internet"
	"accessing"
	"comparing"
	"copying"
	"converting"
	"displaying"
	"printing"
	"system primitives"
	"Celeste"
	"internet"
	"testing"
	"paragraph support"
	"arithmetic"
	#(#crlf #fromPacked: #findFirstInString:inSet:startingAt: #indexOfAscii:inString:startingAt:endingAt: #valueOfHtmlEntity: #byteAt: #endsWithDigit #findAnySubStr:startingAt: #findBetweenSubStrs: #findDelimiters:startingAt: #findString:startingAt: #findString:startingAt:caseSensitive: #findTokens: #findTokens:includes: #findTokens:keep: #includesSubString: #includesSubstring:caseSensitive: #indexOf:startingAt: #indexOfAnyOf: #indexOfAnyOf:ifAbsent: #indexOfAnyOf:startingAt: #indexOfAnyOf:startingAt:ifAbsent: #lineCorrespondingToIndex: #lineCount #lineNumber: #skipAnySubStr:startingAt: #skipDelimiters:startingAt: #startsWithDigit #alike: #beginsWith: #caseSensitiveLessOrEqual: #charactersExactlyMatching: #compare: #crc16 #endsWith: #endsWithAnyOf: #sameAs: #startingAt:match:startingAt: #copyReplaceTokens:with: #padded:to:with: #asByteArray #asDate #asDisplayText #asFileName #asHtml #asLegalSelector #asPacked #asParagraph #asText #asTime #asUnHtml #asUrl #asUrlRelativeTo: #capitalized #compressWithTable: #contractTo: #correctAgainst: #encodeForHTTP #initialIntegerOrNil #keywords #quoted #sansPeriodSuffix #splitInteger #stemAndNumericSuffix #substrings #surroundedBySingleQuotes #truncateWithElipsisTo: #withBlanksTrimmed #withFirstCharacterDownshifted #withNoLineLongerThan: #withSeparatorsCompacted #withoutLeadingDigits #withoutTrailingBlanks #compare:with:collated: #withCRs #decodeMimeHeader #decodeQuotedPrintable #replaceHtmlCharRefs #unescapePercents #withInternetLineEndings #withSqueakLineEndings #withoutQuoting #isAllSeparators #lastSpacePosition #indentationIfBlank: )
		do: [:sel | Approved add: sel].
	#(#byteAt:put: #translateToLowercase #match: )
		do: [:sel | AddAndRemove add: sel].
	"Symbol"
	"in class, private"
	"access"
	"accessing"
	"comparing"
	"copying"
	"converting"
	"printing"
	"testing"
	#(#hasInterned:ifTrue: #morePossibleSelectorsFor: #possibleSelectorsFor: #selectorsContaining: #thatStarts:skipping: #isInfix #isKeyword #isPvtSelector #isUnary )
		do: [:sel | Approved add: sel].
	"Array"
	"comparing"
	"converting"
	"printing"
	"private"
	#(#evalStrings #hasLiteralSuchThat: )
		do: [:sel | Approved add: sel].
	"Array2D"
	"access"
	#(#at:at: #atCol: #atCol:put: #atRow: #extent #extent:fromArray: #height #width #width:height:type: )
		do: [:sel | Approved add: sel].
	#(#at:at:add: #at:at:put: #atRow:put: )
		do: [:sel | AddAndRemove add: sel].
	"ByteArray"
	"accessing"
	"platform independent access"
	"converting"
	#(#doubleWordAt: #wordAt: #longAt:bigEndian: #shortAt:bigEndian: #unsignedLongAt:bigEndian: #unsignedShortAt:bigEndian: )
		do: [:sel | Approved add: sel].
	#(#doubleWordAt:put: #wordAt:put: #longAt:put:bigEndian: #shortAt:put:bigEndian: #unsignedLongAt:put:bigEndian: #unsignedShortAt:put:bigEndian: )
		do: [:sel | AddAndRemove add: sel].
	"FloatArray"
	"Dont know what happens when prims not here"
	false
		ifTrue: ["accessing"
			"arithmetic"
			"comparing"
			"primitives-plugin"
			"primitives-translated"
			"converting"
			"private"
			"user interface"
			#(#*= #+= #-= #/= #primAddArray: #primAddScalar: #primDivArray: #primDivScalar: #primMulArray: #primMulScalar: #primSubArray: #primSubScalar: #primAddArray:withArray:from:to: #primMulArray:withArray:from:to: #primSubArray:withArray:from:to: )
				do: [:sel | Approved add: sel]].
	"IntegerArray, WordArray"
	"RunArray"
	"in class, instance creation"
	"accessing"
	"adding"
	"copying"
	"private"
	#(#runs:values: #scanFrom: #runLengthAt: #runs #values )
		do: [:sel | Approved add: sel].
	#(#coalesce #addLast:times: #repeatLast:ifEmpty: #repeatLastIfEmpty: )
		do: [:sel | AddAndRemove add: sel].
	"Stream -- many operations change its state"
	"testing"
	#(#atEnd )
		do: [:sel | Approved add: sel].
	"accessing"
	"printing"
	#(#next: #nextMatchAll: #nextMatchFor: #upToEnd #next:put: #nextPut: #nextPutAll: #print: #printHtml: )
		do: [:sel | AddAndRemove add: sel].
	"PositionableStream"
	"accessing"
	"testing"
	"positioning"
	#(#contentsOfEntireFile #originalContents #peek #peekFor: #position )
		do: [:sel | Approved add: sel].
	#(#nextDelimited: #nextLine #upTo: #position: #reset #resetContents #setToEnd #skip: #skipTo: #upToAll: )
		do: [:sel | AddAndRemove add: sel].
	"Because it is so difficult to test the result of an operation on a Stream 
	(you have to supply another Stream in the same state), we don't 
	support Streams beyond the basics. We want to find the messages that 
	convert Streams to other things."
	"ReadWriteStream"
	"file status"
	#(#closed )
		do: [:sel | Approved add: sel].
	"accessing"
	#(#next: #on: )
		do: [:sel | AddAndRemove add: sel].
	"WriteStream"
	"in class, instance creation"
	#(#on:from:to: #with: #with:from:to: )
		do: [:sel | Approved add: sel].
	"positioning"
	"character writing"
	#(#resetToStart #crtab #crtab: )
		do: [:sel | AddAndRemove add: sel].
	"LookupKey, Association, Link"
	"accessing"
	#(#key #nextLink )
		do: [:sel | Approved add: sel].
	#(#key: #key:value: #nextLink: )
		do: [:sel | AddAndRemove add: sel].
	"Point"
	"in class, instance creation"
	"accessing"
	"comparing"
	"arithmetic"
	"truncation and round off"
	"polar coordinates"
	"point functions"
	"converting"
	"transforming"
	"copying"
	"interpolating"
	#(#r:degrees: #x:y: #x #y #degrees #r #theta #bearingToPoint: #crossProduct: #dist: #dotProduct: #eightNeighbors #flipBy:centerAt: #fourNeighbors #grid: #nearestPointAlongLineFrom:to: #nearestPointOnLineFrom:to: #normal #normalized #octantOf: #onLineFrom:to: #onLineFrom:to:within: #quadrantOf: #rotateBy:centerAt: #transposed #unitVector #asFloatPoint #asIntegerPoint #corner: #extent: #rect: #adhereTo: #rotateBy:about: #scaleBy: #scaleFrom:to: #translateBy: #interpolateTo:at: )
		do: [:sel | Approved add: sel].
	"Rectangle"
	"in class, instance creation"
	"accessing"
	"comparing"
	"rectangle functions"
	"testing"
	"truncation and round off"
	"transforming"
	"copying"
	#(#center:extent: #encompassing: #left:right:top:bottom: #merging: #origin:corner: #origin:extent: #area #bottom #bottomCenter #bottomLeft #bottomRight #boundingBox #center #corner #corners #innerCorners #left #leftCenter #origin #right #rightCenter #top #topCenter #topLeft #topRight #adjustTo:along: #amountToTranslateWithin: #areasOutside: #bordersOn:along: #encompass: #expandBy: #extendBy: #forPoint:closestSideDistLen: #insetBy: #insetOriginBy:cornerBy: #intersect: #merge: #pointNearestTo: #quickMerge: #rectanglesAt:height: #sideNearestTo: #translatedToBeWithin: #withBottom: #withHeight: #withLeft: #withRight: #withSide:setTo: #withTop: #withWidth: #containsPoint: #containsRect: #hasPositiveExtent #intersects: #isTall #isWide #align:with: #centeredBeneath: #newRectFrom: #squishedWithin: )
		do: [:sel | Approved add: sel].
	"Color"
	"in class, instance creation"
	"named colors"
	"other"
	"access"
	"equality"
	"queries"
	"transformations"
	"groups of shades"
	"printing"
	"other"
	"conversions"
	"private"
	"copying"
	#(#colorFrom: #colorFromPixelValue:depth: #fromRgbTriplet: #gray: #h:s:v: #r:g:b: #r:g:b:alpha: #r:g:b:range: #black #blue #brown #cyan #darkGray #gray #green #lightBlue #lightBrown #lightCyan #lightGray #lightGreen #lightMagenta #lightOrange #lightRed #lightYellow #magenta #orange #red #transparent #veryDarkGray #veryLightGray #veryVeryDarkGray #veryVeryLightGray #white #yellow #colorNames #indexedColors #pixelScreenForDepth: #quickHighLight: #alpha #blue #brightness #green #hue #luminance #red #saturation #isBitmapFill #isBlack #isGray #isSolidFill #isTranslucent #isTranslucentColor #alpha: #dansDarker #darker #lighter #mixed:with: #muchLighter #slightlyDarker #slightlyLighter #veryMuchLighter #alphaMixed:with: #darkShades: #lightShades: #mix:shades: #wheel: #shortPrintString #colorForInsets #rgbTriplet #asB3DColor #asColor #balancedPatternForDepth: #bitPatternForDepth: #closestPixelValue1 #closestPixelValue2 #closestPixelValue4 #closestPixelValue8 #dominantColor #halfTonePattern1 #halfTonePattern2 #indexInMap: #pixelValueForDepth: #pixelWordFor:filledWith: #pixelWordForDepth: #scaledPixelValue32 #privateAlpha #privateBlue #privateGreen #privateRGB #privateRed )
		do: [:sel | Approved add: sel].
	"For each selector that requires a block argument, add (selector argNum) 
	to the set Blocks."
	"ourClasses _ #(Object Boolean True False UndefinedObject Behavior 
	ClassDescription Class Metaclass MethodContext BlockContext Message 
	Magnitude Date Time Number Integer SmallInteger LargeNegativeInteger 
	LargePositiveInteger Float Fraction Random Collection 
	SequenceableCollection ArrayedCollection Bag Set Dictionary 
	IdentityDictionary IdentitySet LinkedList Interval MappedCollection 
	OrderedCollection SortedCollection Character String Symbol Array 
	Array2D ByteArray FloatArray IntegerArray WordArray RunArray 
	Stream PositionableStream ReadWriteStream WriteStream LookupKey 
	Association Link Point Rectangle Color). 
	ourClasses do: [:clsName | cls _ Smalltalk at: clsName. 
	(cls selectors) do: [:aSel | 
	((Approved includes: aSel) or: [AddAndRemove includes: aSel]) ifTrue: [ 
	(cls formalParametersAt: aSel) withIndexDo: [:tName :ind | 
	(tName endsWith: 'Block') ifTrue: [ 
	Blocks add: (Array with: aSel with: ind)]]]]].
	"
	#(#(#timesRepeat: 1) #(#indexOf:ifAbsent: 2) #(#pairsCollect: 1) #(#mergeSortFrom:to:by: 3) #(#ifNotNil:ifNil: 1) #(#ifNotNil:ifNil: 2) #(#ifNil: 1) #(#at:ifAbsent: 2) #(#ifNil:ifNotNil: 1) #(#ifNil:ifNotNil: 2) #(#ifNotNil: 1) #(#at:modify: 2) #(#identityIndexOf:ifAbsent: 2) #(#sort: 1) #(#sortBlock: 1) #(#detectMax: 1) #(#repeatLastIfEmpty: 1) #(#allSubclassesWithLevelDo:startingLevel: 1) #(#keyAtValue:ifAbsent: 2) #(#in: 1) #(#ifTrue: 1) #(#or: 1) #(#select: 1) #(#inject:into: 2) #(#ifKindOf:thenDo: 2) #(#forPoint:closestSideDistLen: 2) #(#value:ifError: 2) #(#selectorsDo: 1) #(#removeAllSuchThat: 1) #(#keyAtIdentityValue:ifAbsent: 2) #(#detectMin: 1) #(#detect:ifNone: 1) #(#ifTrue:ifFalse: 1) #(#ifTrue:ifFalse: 2) #(#detect:ifNone: 2) #(#hasLiteralSuchThat: 1) #(#indexOfAnyOf:ifAbsent: 2) #(#reject: 1) #(#newRectFrom: 1) #(#removeKey:ifAbsent: 2) #(#at:ifPresent: 2) #(#associationAt:ifAbsent: 2) #(#withIndexCollect: 1) #(#repeatLast:ifEmpty: 2) #(#findLast: 1) #(#indexOf:startingAt:ifAbsent: 3) #(#remove:ifAbsent: 2) #(#ifFalse:ifTrue: 1) #(#ifFalse:ifTrue: 2) #(#caseOf:otherwise: 2) #(#count: 1) #(#collect: 1) #(#sortBy: 1) #(#and: 1) #(#asSortedCollection: 1) #(#with:collect: 2) #(#sourceCodeAt:ifAbsent: 2) #(#detect: 1) #(#scopeHas:ifTrue: 2) #(#collectWithIndex: 1) #(#compiledMethodAt:ifAbsent: 2) #(#bindWithTemp: 1) #(#detectSum: 1) #(#indexOfSubCollection:startingAt:ifAbsent: 3) #(#findFirst: 1) #(#sourceMethodAt:ifAbsent: 2) #(#collect:thenSelect: 1) #(#collect:thenSelect: 2) #(#select:thenCollect: 1) #(#select:thenCollect: 2) #(#ifFalse: 1) #(#indexOfAnyOf:startingAt:ifAbsent: 3) #(#indentationIfBlank: 1) )
		do: [:anArray | Blocks add: anArray].
	self initialize3! !


!MiscPrimitivePlugin class methodsFor: 'translation' stamp: 'sac 10/3/2001 12:32'!
translatedPrimitives
	"an assorted list of various primitives"
	^ #(#(#Bitmap #compress:toByteArray:) #(#Bitmap #decompress:fromByteArray:at:) #(#Bitmap #encodeBytesOf:in:at:) #(#Bitmap #encodeInt:in:at:) #(#String #compare:with:collated:) #(#String #translate:from:to:table:) #(#String #findFirstInString:inSet:startingAt:) 

#(#String #indexOfAscii:inString:startingAt:endingAt:)
#(#String #scanWhileMatching:forLast:inString:startingAt:endingAt:)


 #(#String #findSubstring:in:startingAt:matchTable:) #(#String #stringHash:initialHash:) #(#SampledSound #convert8bitSignedFrom:to16Bit:) )! !


!String methodsFor: 'accessing' stamp: 'sac 10/3/2001 12:08'!
matchWhileIn: aCharacterSet1 forLastMatching: aCharacterSet2 startingAt: start 
	^ self
		matchWhileIn: aCharacterSet1
		forLastMatching: aCharacterSet2
		startingAt: start
		endingAt: self size! !

!String methodsFor: 'accessing' stamp: 'sac 10/3/2001 12:08'!
matchWhileIn: aCharacterSet1 forLastMatching: aCharacterSet2 startingAt: start endingAt: end 

	^ String
		scanWhileMatching: aCharacterSet1 byteArrayMap
		forLast: aCharacterSet2 byteArrayMap
		inString: self
		startingAt: start
		endingAt: (end min: self size)!
]style[(14 14 18 14 13 5 11 3 6 6 22 14 25 14 26 4 15 5 14 3 6 4 6)f1b,f1cblue;b,f1b,f1cblue;b,f1b,f1cblue;b,f1b,f1cblue;b,f1,f1cmagenta;,f1,f1cblue;i,f1,f1cblue;i,f1,f1cmagenta;,f1,f1cblue;i,f1,f1cblue;i,f1,f1cmagenta;,f1! !

!String methodsFor: 'accessing' stamp: 'sac 10/3/2001 12:09'!
matchWhileIn: aCharacterSet startingAt: start endingAt: end 
	^ self
		matchWhileIn: aCharacterSet 
		forLastMatching: aCharacterSet 
		startingAt: start
		endingAt: end! !


!String class methodsFor: 'primitives' stamp: 'sac 10/3/2001 14:40'!
indexOfAscii: anInteger inString: aString startingAt: start endingAt: end 
	<primitive: 'primitiveIndexOfAsciiInSubString' module: 'MiscPrimitivePlugin'>

self var: #aCharacter declareC: 'int anInteger'.
	self var: #aString declareC: 'unsigned char *aString'.
	start
		to: end
		do: [:pos | (aString at: pos) asciiValue = anInteger
				ifTrue: [^ pos]].
	^ 0! !

!String class methodsFor: 'primitives' stamp: 'sac 10/3/2001 15:12'!
scanWhileMatching: inclusionMap1 forLast: inclusionMap2 inString: aString startingAt: start endingAt: end 
	"Scan a string for from the start to the end as long as the characters  
	are in the first character set. Return the index of the last character  
	that is also in the second character set.  
	 
	For example, if you want ot identify the end of a whitespace  
	deliminated alpha string, make the first set alphabetic+whitespace, and  
	the second set be alphabetic."
	| matchloc |
	<primitive: 'primitiveMatchInSubString' module: 'MiscPrimitivePlugin'>
	self var: #aString declareC: 'unsigned char *aString'.
	self var: #inclusionMap1 declareC: 'char *inclusionMap1'.
	self var: #inclusionMap2 declareC: 'char *inclusionMap2'.
	matchloc _ 0.
	start
		to: end
		do: [:pos | (inclusionMap1 at: (aString at: pos) asciiValue + 1)
					= 1
				ifTrue: [(inclusionMap2 at: (aString at: pos) asciiValue + 1)
							= 1
						ifTrue: [matchloc _ pos]]
				ifFalse: [^ matchloc]].
	^ matchloc! !

String class removeSelector: #scanWhileIn:indexOfLast:inString:startingAt:endingAt:!
Smalltalk removeClassNamed: #InterpreterSupportCode!