[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Help-smalltalk] [PATCH] convert Builtins.st to new syntax
From: |
Paolo Bonzini |
Subject: |
[Help-smalltalk] [PATCH] convert Builtins.st to new syntax |
Date: |
Tue, 17 Apr 2007 15:32:18 +0200 |
User-agent: |
Thunderbird 1.5.0.10 (Macintosh/20070221) |
All other files will be converted automatically as soon as the tool is
ready. :-P
Again, I just include the new file.
Paolo
"=====================================================================
|
| Smalltalk built in methods. These are read in by the system
| initially, to prepare the execution environment.
|
|
======================================================================"
"======================================================================
|
| Copyright 1988,89,90,91,92,94,95,99,2000,2001,2002,2006,2007
| Free Software Foundation, Inc.
| Written by Steve Byrne.
|
| This file is part of the GNU Smalltalk class library.
|
| The GNU Smalltalk class library is free software; you can redistribute it
| and/or modify it under the terms of the GNU Lesser General Public License
| as published by the Free Software Foundation; either version 2.1, or (at
| your option) any later version.
|
| The GNU Smalltalk class library is distributed in the hope that it will be
| useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser
| General Public License for more details.
|
| You should have received a copy of the GNU Lesser General Public License
| along with the GNU Smalltalk class library; see the file COPYING.LIB.
| If not, write to the Free Software Foundation, 59 Temple Place - Suite
| 330, Boston, MA 02110-1301, USA.
|
======================================================================"
Object extend [
class [
"Answer the class to which the receiver belongs"
<primitive: VMpr_Object_class>
<category: 'builtin'>
self primitiveFailed
]
]
Behavior extend [
new [
"Create a new instance of a class with no indexed instance variables"
<primitive: VMpr_Behavior_basicNew>
<category: 'builtin'>
self isFixed ifFalse: [ ^self new: 0 ].
^self primitiveFailed
]
basicNew [
"Create a new instance of a class with no indexed instance variables;
this method must not be overridden."
<primitive: VMpr_Behavior_basicNew>
<category: 'builtin'>
self isFixed ifFalse: [ ^self basicNew: 0 ].
^self primitiveFailed
]
new: numInstanceVariables [
"Create a new instance of a class with indexed instance variables. The
instance has numInstanceVariables indexed instance variables."
<primitive: VMpr_Behavior_basicNewColon>
<category: 'builtin'>
self isFixed ifTrue: [
SystemExceptions.WrongMessageSent signalOn: #new: useInstead: #new
].
numInstanceVariables isSmallInteger ifTrue: [ ^self primitiveFailed ].
^SystemExceptions.WrongClass signalOn: numInstanceVariables mustBe:
SmallInteger
]
basicNew: numInstanceVariables [
"Create a new instance of a class with indexed instance variables. The
instance has numInstanceVariables indexed instance variables;
this method must not be overridden."
<primitive: VMpr_Behavior_basicNewColon>
<category: 'builtin'>
self isFixed ifTrue: [
SystemExceptions.WrongMessageSent signalOn: #basicNew: useInstead:
#basicNew
].
numInstanceVariables isSmallInteger ifTrue: [ ^self primitiveFailed ].
^SystemExceptions.WrongClass signalOn: numInstanceVariables mustBe:
SmallInteger
]
]
Dictionary extend [
Dictionary class >> new [
"Answer a new Dictionary. This method, actually, won't last long -
until LookupTbl.st is loaded"
<primitive: VMpr_Dictionary_new>
<category: 'builtin'>
^self primitiveFailed
]
at: key [
"Answer the value associated with the given key in the receiver.
This method, actually, won't last long - until LookupTbl.st is loaded"
<primitive: VMpr_Dictionary_at>
<category: 'builtin'>
^self primitiveFailed
]
]
Class extend [
subclass: classNameString [
^(Smalltalk at: classNameString)
]
subclass: classNameString
instanceVariableNames: stringInstVarNames
classVariableNames: stringOfClassVarNames
poolDictionaries: stringOfPoolNames
category: categoryNameString [
^(Smalltalk at: classNameString) category: categoryNameString
]
variable: shape subclass: classNameString
instanceVariableNames: stringInstVarNames
classVariableNames: stringOfClassVarNames
poolDictionaries: stringOfPoolNames
category: categoryNameString [
^(Smalltalk at: classNameString) category: categoryNameString
]
variableSubclass: classNameString
instanceVariableNames: stringInstVarNames
classVariableNames: stringOfClassVarNames
poolDictionaries: stringOfPoolNames
category: categoryNameString [
^(Smalltalk at: classNameString) category: categoryNameString
]
variableWordSubclass: classNameString
instanceVariableNames: stringInstVarNames
classVariableNames: stringOfClassVarNames
poolDictionaries: stringOfPoolNames
category: categoryNameString [
^(Smalltalk at: classNameString) category: categoryNameString
]
variableByteSubclass: classNameString
instanceVariableNames: stringInstVarNames
classVariableNames: stringOfClassVarNames
poolDictionaries: stringOfPoolNames
category: categoryNameString [
^(Smalltalk at: classNameString) category: categoryNameString
]
category: aString [
"Define a category for the receiver"
category := aString
]
comment: aString [
"Define a comment for the receiver"
comment := aString
]
shape: aSymbol [
]
import: aString [
]
]
UndefinedObject extend [
subclass: classNameString [
^(Smalltalk at: classNameString)
]
subclass: classNameString
instanceVariableNames: stringInstVarNames
classVariableNames: stringOfClassVarNames
poolDictionaries: stringOfPoolNames
category: categoryNameString [
^(Smalltalk at: classNameString) category: categoryNameString
]
variable: shape subclass: classNameString
instanceVariableNames: stringInstVarNames
classVariableNames: stringOfClassVarNames
poolDictionaries: stringOfPoolNames
category: categoryNameString [
^(Smalltalk at: classNameString) category: categoryNameString
]
variableSubclass: classNameString
instanceVariableNames: stringInstVarNames
classVariableNames: stringOfClassVarNames
poolDictionaries: stringOfPoolNames
category: categoryNameString [
^(Smalltalk at: classNameString) category: categoryNameString
]
variableWordSubclass: classNameString
instanceVariableNames: stringInstVarNames
classVariableNames: stringOfClassVarNames
poolDictionaries: stringOfPoolNames
category: categoryNameString [
^(Smalltalk at: classNameString) category: categoryNameString
]
variableByteSubclass: classNameString
instanceVariableNames: stringInstVarNames
classVariableNames: stringOfClassVarNames
poolDictionaries: stringOfPoolNames
category: categoryNameString [
^(Smalltalk at: classNameString) category: categoryNameString
]
]
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Help-smalltalk] [PATCH] convert Builtins.st to new syntax,
Paolo Bonzini <=