Class {
	#name : #PPPreceedsParser,
	#superclass : #PPDelegateParser,
	#instVars : [
		'length'
	],
	#category : #'PetitMarkdown-Parser'
}

{ #category : #accessing }
PPPreceedsParser >> length [
	^ length
]

{ #category : #accessing }
PPPreceedsParser >> length: anObject [
	length := anObject
]

{ #category : #'as yet unclassified' }
PPPreceedsParser >> parseOn: aPPContext [
	| memento result |
	(aPPContext position < length) ifTrue: [ 
		^ PPFailure message: 'not enough space to preceed' context: aPPContext 
	].

	memento := aPPContext position.
			
	aPPContext skip: length negated.
	result := parser parseOn: aPPContext.
			
	aPPContext position: memento.
	^ result

]