Merge branch 'develop'

Author: codeZeilen

README.md

@@ -1,4 +1,4 @@
 private
 keywords
 
-	^ #(bpProbe bpReplace bpAssert exampleNamed)
+	^ #(bpProbe bpReplace bpAssert bpProfilingProbe bpTypeProbe exampleNamed)

packages/Babylonian-Compiler.package/BPCompiler.class/instance/keywords.st

@@ -1,6 +1,6 @@
 private
 parse: code
 
-	^ BPSmalltalkGrammar
+	^ PEGParserBPSmalltalk new
 		match: code
 		startingFrom: #MethodDeclaration

packages/Babylonian-Compiler.package/BPCompiler.class/instance/parse..st

@@ -8,8 +8,8 @@
 		"backgroundCompileInstrumentedVersionOf:basedOn:" : "pre 10/12/2020 15:36",
 		"compileCue:noPattern:ifFail:" : "pre 7/20/2022 16:41",
 		"compileInstrumentedVersionOf:" : "jb 9/9/2021 17:31",
-		"keywords" : "pre 7/26/2019 14:00",
+		"keywords" : "pre 11/30/2022 09:33",
 		"methodSourceRequiresBPLayers:" : "pre 11/11/2019 15:49",
-		"parse:" : "pre 1/11/2021 15:51",
+		"parse:" : "pre 5/3/2021 15:01",
 		"rewriteToSource:" : "pre 8/17/2020 08:54",
 		"rewriter" : "jb 12/7/2020 18:03" } }

packages/Babylonian-Compiler.package/BPCompiler.class/methodProperties.json

@@ -2,7 +2,7 @@ rules
 Pragma: aNode with: literal with: values with: anotherLiteral
 
 	| exampleName |
-	(BPExample bpExamplePragmaPrefixes anySatisfy: [:prefix | values children first interval contents beginsWith: prefix]) ifTrue: [
+	(BPAbstractExample bpExamplePragmaPrefixes anySatisfy: [:prefix | values children first interval contents beginsWith: prefix]) ifTrue: [
 		exampleName := self value: values children first children first.
 		annotations add: (BPExampleAnnotation new
 			exampleName: exampleName;

packages/Babylonian-Compiler.package/BPExtractAnnotations.class/instance/Pragma.with.with.with..st

@@ -16,7 +16,7 @@
 		"KeywordPragma:with:with:" : "pre 7/23/2019 12:10",
 		"MethodDeclaration:with:and:and:" : "pre 7/23/2022 20:12",
 		"MethodHeader:with:" : "pre 7/23/2022 16:19",
-		"Pragma:with:with:with:" : "pre 9/6/2022 11:12",
+		"Pragma:with:with:with:" : "pre 1/11/2023 14:38",
 		"Pragmas:pragmas:" : "jb 12/7/2020 18:01",
 		"defaultExpression:" : "jb 12/7/2020 18:01",
 		"initialize" : "pre 3/24/2020 09:39",

packages/Babylonian-Compiler.package/BPExtractAnnotations.class/methodProperties.json

@@ -0,0 +1,6 @@
+as yet unclassified
+Reference: aNode with: identifier
+
+	^ (argumentNames includes: identifier interval contents asSymbol)
+		ifTrue: [self value: identifier]
+		ifFalse: ['(self bpResolveReferenceDynamically: #' , identifier interval contents , ' in: thisContext)']

packages/Babylonian-Core.package/BPActiveSpecimenRegistry.class/README.md renamed to packages/Babylonian-Compiler.package/BPReferenceRewriter.class/README.md

@@ -0,0 +1,4 @@
+as yet unclassified
+blockArgument: aNode with: some and: more and: moree and: evenMore
+	argumentNames add: aNode interval contents copyWithoutFirst asSymbol.
+	^ aNode interval contents

packages/Babylonian-Compiler.package/BPReferenceRewriter.class/instance/Reference.with..st

@@ -2,4 +2,4 @@ initialize-release
 initialize
 
 	super initialize.
-	dictionary := IdentityDictionary new.
+	argumentNames := Set new.