1 "{ Package: 'ctu:dart/compiler' }"

     2 

     3 "{ NameSpace: Dart }"

     4 

     5 PPContext subclass:#ParserContext

     6 	instanceVariableNames:'scanner'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'Languages-Dart-Parser'

    10 !

    11 

    12 !ParserContext methodsFor:'accessing'!

    13 

    14 stream: aStream

    15     super stream: aStream.

    16     scanner := Scanner for: aStream.

    17 

    18     "Created: / 04-11-2014 / 00:26:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    19 ! !

    20 

    21 !ParserContext methodsFor:'accessing - tokens'!

    22 

    23 token

    24     ^ scanner token

    25 

    26     "Created: / 04-11-2014 / 00:28:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    27 !

    28 

    29 tokenType

    30     ^ scanner tokenType

    31 

    32     "Created: / 04-11-2014 / 00:27:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    33 !

    34 

    35 tokenValue

    36     ^ scanner tokenValue

    37 

    38     "Created: / 04-11-2014 / 00:28:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    39 ! !

    40 

    41 !ParserContext methodsFor:'streaming - tokens'!

    42 

    43 nextToken

    44     ^ scanner nextToken

    45 

    46     "Created: / 04-11-2014 / 00:27:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    47 ! !

    48