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
]