29 lines
595 B
Smalltalk
29 lines
595 B
Smalltalk
|
Class {
|
||
|
|
#name : 'PPJavaSeaParser',
|
||
|
|
#superclass : 'PPJavaSeaGrammar',
|
||
|
|
#category : 'PetitIslands-Examples'
|
||
|
|
}
|
||
|
|
|
||
|
|
{ #category : 'as yet unclassified' }
|
||
|
|
PPJavaSeaParser >> javaClass [
|
||
|
|
^ super javaClass
|
||
|
|
|
||
|
|
map: [:_def :_body |
|
||
|
|
PJTypeDeclarationNode new
|
||
|
|
modifiers: _def first;
|
||
|
|
simpleName: _def third;
|
||
|
|
methodDeclarations: _body
|
||
|
|
yourself
|
||
|
|
]
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : 'as yet unclassified' }
|
||
|
|
PPJavaSeaParser >> methodDef [
|
||
|
|
^ super methodDef ==> [:tokens |
|
||
|
|
PJMethodDeclarationNode new
|
||
|
|
returnType: tokens second first second;
|
||
|
|
simpleName: tokens second second second first;
|
||
|
|
yourself
|
||
|
|
]
|
||
|
|
]
|