Class {
	#name : #PPCommonMarkUtils,
	#superclass : #Object,
	#classInstVars : [
		'Instance'
	],
	#category : #'PetitMarkdown-Parser'
}

{ #category : #'as yet unclassified' }
PPCommonMarkUtils class >> instance [
	Instance isNil ifTrue: [ Instance := PPCommonMarkUtils new ].
	^ Instance
]

{ #category : #'as yet unclassified' }
PPCommonMarkUtils >> decodeEntities: string [
	| retval |
	retval := string.

	retval := retval copyReplaceAll: 'ö' with: 'ö'.
	retval := retval copyReplaceAll: '&' with: '&'.
	retval := retval copyReplaceAll: '"' with: '"'.
	
	^ retval	
]

{ #category : #'as yet unclassified' }
PPCommonMarkUtils >> encodeEntities: string [
	| retval |
	retval := string.

	retval := retval copyReplaceAll: '&' with: '&'.
	retval := retval copyReplaceAll: '"' with: '"'.
	retval := retval copyReplaceAll: '>' with: '>'.
	retval := retval copyReplaceAll: '<' with: '&lt;'.
	
	^ retval	
]

{ #category : #'as yet unclassified' }
PPCommonMarkUtils >> escape: string [
	| retval regex |
	retval := string.
	retval := retval copyReplaceAll: '\\' with: '\'.
	
	"Remove backlashes, \! -> !"
	regex := '\\[!#$%''()*+,-./:;=?@^_`{|}~]' asRegex.
	retval := regex copy: retval translatingMatchesUsing: [ :match | match second asString ].
	
	retval := retval copyReplaceAll: '\"' with: '"'.
	retval := retval copyReplaceAll: '\[' with: '['.
	retval := retval copyReplaceAll: '\]' with: ']'.
	retval := retval copyReplaceAll: '\\' with: '\'.
	
	^ retval
]

{ #category : #'as yet unclassified' }
PPCommonMarkUtils >> escapeUrl: string [
	| retval |
	retval := string.
	retval := retval copyReplaceAll: ' ' with: '%20'.
	retval := retval copyReplaceAll: '"' with: '%22'.
	retval := retval copyReplaceAll: '\' with: '%5C'.
	retval := retval copyReplaceAll: '[' with: '%5B'.
	retval := retval copyReplaceAll: '`' with: '%60'.
	retval := retval copyReplaceAll: '&auml;' with: '%C3%A4'.
	retval := retval copyReplaceAll: '&ouml;' with: '%C3%B6'.
	
	^ retval	
]