tools/JavaSourcePartition.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Fri, 24 May 2013 11:28:33 +0100
branchbuiltin-class-support
changeset 2625 a91a1db9718e
parent 2482 109ed9ecf4f7
child 2711 a00302fe5083
permissions -rw-r--r--
Make JavaMirror to access classes through pool vars.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2482
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     1
"{ Package: 'stx:libjava/tools' }"
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     2
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     3
Object subclass:#JavaSourcePartition
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     4
	instanceVariableNames:'offset length'
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     5
	classVariableNames:''
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     6
	poolDictionaries:''
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     7
	category:'Languages-Java-Parser-Utils'
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     8
!
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     9
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    10
JavaSourcePartition subclass:#Method
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    11
	instanceVariableNames:'selector'
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    12
	classVariableNames:''
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    13
	poolDictionaries:''
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    14
	privateIn:JavaSourcePartition
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    15
!
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    16
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    17
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    18
!JavaSourcePartition class methodsFor:'instance creation'!
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    19
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    20
newMethod
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    21
    ^Method new
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    22
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    23
    "Created: / 04-04-2013 / 00:25:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    24
! !
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    25
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    26
!JavaSourcePartition methodsFor:'accessing'!
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    27
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    28
offset:offs length:len 
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    29
    offset := offs.
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    30
    length := len.
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    31
!
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    32
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    33
start:start stop:stop 
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    34
    self offset: start length: stop-start+1
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    35
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    36
    "Created: / 04-04-2013 / 00:28:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    37
! !
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    38
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    39
!JavaSourcePartition class methodsFor:'documentation'!
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    40
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    41
version_HG
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    42
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    43
    ^ '$Changeset: <not expanded> $'
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    44
! !
109ed9ecf4f7 Some more work on parser, AST and partitioner...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    45