--- a/compiler/extensions.st Mon Aug 24 22:32:15 2015 +0100
+++ b/compiler/extensions.st Mon Aug 24 23:42:53 2015 +0100
@@ -399,33 +399,39 @@
!PPParser methodsFor:'*petitcompiler'!
compile
- ^ self compile: PPCArguments default
+ ^ self compile: PPCCompilationOptions default
+
+ "Modified: / 24-08-2015 / 23:39:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!PPParser methodsFor:'*petitcompiler'!
-compile: arguments
- self assert: (arguments isKindOf: PPCArguments).
+compile: options
+ self assert: (options isKindOf: PPCCompilationOptions).
^ PPCConfiguration default
- arguments: arguments;
+ options: options;
compile: self
+
+ "Modified: / 24-08-2015 / 23:39:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!PPParser methodsFor:'*petitcompiler'!
-compile: arguments andParse: input
- ^ (self compile: arguments) parse: input
+compile: options andParse: input
+ ^ (self compile: options) parse: input
! !
!PPParser methodsFor:'*petitcompiler'!
compileAs: name
- | arguments |
- arguments := PPCArguments default.
- arguments name: name.
+ | options |
+ options := PPCCompilationOptions default.
+ options name: name.
- ^ self compile: arguments
+ ^ self compile: options
+
+ "Modified: / 24-08-2015 / 23:39:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!PPParser methodsFor:'*petitcompiler'!
@@ -648,7 +654,7 @@
map: aBlock
^ aBlock numArgs = self children size
ifTrue: [ PPMappedActionParser on: self block: aBlock ]
- ifFalse: [ self error: aBlock numArgs asString , ' arguments expected.' ]
+ ifFalse: [ self error: aBlock numArgs asString , ' options expected.' ]
"Modified: / 02-06-2015 / 17:16:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !