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
]