hg/jv-cface: Cface__CShortNode.st@1ad7fb72801a (annotated)

32 d7464405cbda Package renamed from cvut:fel/cface to jv:cface Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	1	"{ Package: 'jv:cface' }"
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Cface }"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	CModifierNode subclass:#CShortNode
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:''
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'Cface-C AST'
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12
5 c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	13	!CShortNode methodsFor:'accessing'!
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	14
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	15	cByteSize
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	16
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	17	self isCShortIntNode
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	18	ifTrue:[^self cShortIntByteSize].
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	19
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	20	self error:'Cannot happen...I hope :-)'
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	21
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	22	"Created: / 09-07-2008 / 19:46:10 / Jan Vrany <vranyj1@fel.cvut.cz>"
16 ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	23	!
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	24
37 1ad7fb72801a Generate comment in FFI callouts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 32 diff changeset	25	cName
1ad7fb72801a Generate comment in FFI callouts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 32 diff changeset	26	^ 'short ', super cName
1ad7fb72801a Generate comment in FFI callouts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 32 diff changeset	27
1ad7fb72801a Generate comment in FFI callouts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 32 diff changeset	28	"Created: / 06-07-2015 / 07:33:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1ad7fb72801a Generate comment in FFI callouts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 32 diff changeset	29	!
1ad7fb72801a Generate comment in FFI callouts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 32 diff changeset	30
16 ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	31	ffiTypeSymbol
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	32	"superclass Cface::CModifierNode says that I am responsible to implement this method"
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	33
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	34	^ self shouldImplement
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	35	! !
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	36
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	37	!CShortNode methodsFor:'visiting'!
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	38
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	39	acceptVisitor:aVisitor
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	40	"Double dispatch back to the visitor, passing my type encoded in
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	41	the selector (visitor pattern)"
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	42
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	43	"stub code automatically generated - please change if required"
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	44
ffcbe7184a53 Fixes... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	45	^ aVisitor visitCShortNode:self
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46	! !
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48	!CShortNode class methodsFor:'documentation'!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49
14 1f730d82496e Added version_SVN methods Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	50	version_SVN
1f730d82496e Added version_SVN methods Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	51	^ '$Id$'
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52	! !
37 1ad7fb72801a Generate comment in FFI callouts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 32 diff changeset	53

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 06 Jul 2015 07:52:34 +0100
changeset 37	1ad7fb72801a
parent 32	d7464405cbda
permissions	-rw-r--r--