tools/JavaSourceReference.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Thu, 14 Feb 2013 16:15:31 +0000
branchdevelopment
changeset 2069 75d40b7b986f
parent 1947 dbebba5f7d70
child 2380 9195eccdcbd9
permissions -rw-r--r--
Added version_CVS
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1947
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     1
"{ Package: 'stx:libjava/tools' }"
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     2
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     3
Object subclass:#JavaSourceReference
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     4
	instanceVariableNames:'source offset length'
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     5
	classVariableNames:''
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     6
	poolDictionaries:''
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     7
	category:'Languages-Java-Parser-Utils'
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     8
!
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     9
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    10
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    11
!JavaSourceReference methodsFor:'accessing'!
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    12
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    13
length
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    14
    ^ length
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    15
!
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    16
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    17
length:something
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    18
    length := something.
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    19
!
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    20
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    21
offset
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    22
    ^ offset
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    23
!
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    24
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    25
offset:something
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    26
    offset := something.
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    27
!
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    28
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    29
source
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    30
    ^ source
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    31
!
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    32
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    33
source:something
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    34
    source := something.
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    35
! !
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    36
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    37
!JavaSourceReference class methodsFor:'documentation'!
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    38
2069
75d40b7b986f Added version_CVS
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1947
diff changeset
    39
version_CVS
75d40b7b986f Added version_CVS
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1947
diff changeset
    40
    ^ '$Header$'
75d40b7b986f Added version_CVS
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1947
diff changeset
    41
!
75d40b7b986f Added version_CVS
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1947
diff changeset
    42
1947
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    43
version_HG
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    44
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    45
    ^ '$Changeset: <not expanded> $'
dbebba5f7d70 Some more work on source partitioner.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    46
! !
2069
75d40b7b986f Added version_CVS
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1947
diff changeset
    47