PetitCommonMark/software/PetitMarkdown/PPParser.extension.st

81 lines
1.4 KiB
Smalltalk

Extension { #name : 'PPParser' }
{ #category : '*PetitMarkdown' }
PPParser >> asPPCMLine [
^ (self map: [ :elems |
PPCMLine new
children: elems;
yourself
]) name: 'asPPCMLine';
yourself
]
{ #category : '*PetitMarkdown' }
PPParser >> asPPCMPlainLine [
^ (self map: [ :text |
PPCMPlainLine new
text: text;
yourself
]) name: 'asPPCMPlainLine';
yourself
]
{ #category : '*PetitMarkdown' }
PPParser >> asPPCMPlainText [
^ (self map: [ :text |
PPCMPlainText new
text: text;
yourself
]) name: 'asPPCMPlainText';
yourself
]
{ #category : '*PetitMarkdown' }
PPParser >> asPPCMText [
^ (self map: [ :text |
PPCMText new
text: text;
yourself
]) name: 'asPPCMText';
yourself
]
{ #category : '*PetitMarkdown' }
PPParser >> limitedBy: limiter [
^ (PPLimitParser on: self)
limiter: limiter;
yourself
]
{ #category : '*PetitMarkdown' }
PPParser >> preceeds [
^ (PPPreceedsParser on: self)
length: 1;
yourself
]
{ #category : '*PetitMarkdown' }
PPParser >> preceeds: length [
^ (PPPreceedsParser on: self)
length: length;
yourself
]
{ #category : '*PetitMarkdown' }
PPParser >> where: replacee is: replacement [
^ (PPReplaceParser on: self)
replacee: replacee;
replacement: replacement;
yourself
]
{ #category : '*PetitMarkdown' }
PPParser >> whileFalse: parser [
^ (self not, parser) star
]
{ #category : '*PetitMarkdown' }
PPParser >> whileFalse: condition consume: parser [
^ (condition not, parser) star
]