compiler/TArgumentBinding.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Tue, 22 Sep 2015 17:43:38 +0100
changeset 14 fa42d3f1a578
parent 13 97090c2baa33
child 16 17a2d1d9f205
permissions -rw-r--r--
Removed syntax for inline assembly, use <primitive: [:asm | ... ]> syntax. This one is easier to implement and less introusive, syntax-wise. And follows Smalltalk tradiiton.

"{ Package: 'jv:tea/compiler' }"

"{ NameSpace: Smalltalk }"

TVariableBinding subclass:#TArgumentBinding
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Languages-Tea-Compiler-Bindings'
!


!TArgumentBinding methodsFor:'accessing'!

index
    ^ index
! !

!TArgumentBinding methodsFor:'initialization'!

index:anInteger
    index := anInteger.
! !

!TArgumentBinding methodsFor:'printing & storing'!

printOn:aStream
    aStream nextPutAll: '[A] '.
    super printOn: aStream.
    aStream nextPutAll: ' ('.    
    index notNil ifTrue:[ 
        index printOn: aStream
    ] ifFalse:[ 
        aStream nextPut: $?
    ].
    aStream nextPut: $).

    "Created: / 25-08-2015 / 22:54:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    "Modified: / 02-09-2015 / 08:28:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!TArgumentBinding methodsFor:'testing'!

isArgumentBinding
    ^ true
! !

!TArgumentBinding class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'
! !