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

{ #category : #accessing }
PPLimitParser >> limiter [
	^ limiter
]

{ #category : #accessing }
PPLimitParser >> limiter: anObject [
	limiter := anObject
]

{ #category : #'as yet unclassified' }
PPLimitParser >> parseOn: aPPContext [
	| size position retval|
	size := aPPContext readLimit.
	position := aPPContext position.
	
	limiter parseOn: aPPContext.
	aPPContext readLimit: aPPContext position.
	aPPContext position: position.

	retval := parser parseOn: aPPContext.
	aPPContext readLimit: size.
	^ retval
]