hg/stx-goodies-petitparser: islands/PPIsland.st@77d5fddb6462 (annotated)

387 e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'stx:goodies/petitparser/islands' }"
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
454 a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 387 diff changeset	3	"{ NameSpace: Smalltalk }"
a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 387 diff changeset	4
387 e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	PPParser subclass:#PPIsland
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:'island afterWaterParser beforeWaterParser context
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	afterWaterDelegate beforeWaterDelegate water'
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	classVariableNames:''
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	poolDictionaries:''
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	category:'PetitIslands-Parsers'
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12
642 77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	13	PPIsland comment:'A PPIsland allows for imprecise parsing. One can create it on a parser p by calling: ''p island'' E.g.:
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	14
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	15	p := x, a island, y accepts following inputs:
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	16	x.....a.....b
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	17	xab
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	18
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	19	yet fails on:
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	20	x....a....c
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	21	xb
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	22	xac
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	23	x..b....a....b
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	24
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	25	The input represented by dots is called water and water can appear before and after the island. Use it, if you don''t want to define all the grammar rules and you want to skip something.
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	26
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	27	I am still an experiment, but if you know how to improve me, please contact Jan Kurs at: kurs@iam.unibe.ch
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	28
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	29	Instance Variables
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	30	afterWaterParser: <Object>
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	31	awp: <Object>
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	32	beforeWaterParser: <Object>
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	33	bwp: <Object>
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	34	context: <Object>
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	35	island: <Object>
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	36
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	37	afterWaterParser
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	38	- xxxxx
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	39
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	40	awp
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	41	- xxxxx
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	42
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	43	beforeWaterParser
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	44	- xxxxx
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	45
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	46	bwp
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	47	- xxxxx
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	48
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	49	context
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	50	- xxxxx
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	51
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	52	island
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	53	- xxxxx
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 454 diff changeset	54	'
387 e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57	!PPIsland methodsFor:'accessing'!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59	children
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61	^ Array with: water with: island with: water
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64	followSet: aPPContext
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66	^ aPPContext root followSets at: self.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69	initialize
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70	super initialize.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71	water := #any asParser name: 'water'; yourself.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74	island
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76	^ island
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79	island: anObject
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80	island := anObject.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	82
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83	nextSet: aPPContext
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	85	^ aPPContext root nextSets at: self.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	86	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88	replace: parser with: anotherParser
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89	super replace: parser with: anotherParser.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91	(water == parser) ifTrue: [ water := anotherParser ].
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92	(island == parser) ifTrue: [ island := anotherParser ].
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95	water
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96	^ water
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	98
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	99	water: aPPParser
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	100	water := aPPParser
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	101	! !
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	103	!PPIsland methodsFor:'memoization'!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	104
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105	memoized
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106	^ PPMemoizingIsland new
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	107	island: self island;
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	108	water: water;
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	109	yourself
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	110	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	111
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	112	reset: aPPContext
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	113	context := aPPContext.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	114	beforeWaterParser := nil.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	115	afterWaterParser := nil.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	116	! !
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	117
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	118	!PPIsland methodsFor:'parsing'!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	119
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	120	afterWaterParser: aPPContext
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	121	context == aPPContext ifFalse: [ self reset: aPPContext ].
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	122
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123	afterWaterParser ifNil: [
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	124	afterWaterParser := self createAfterWaterParser: aPPContext.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	125	].
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	126	^ afterWaterParser
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	127	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	128
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	129	beforeWaterParser: aPPContext
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	130	context == aPPContext ifFalse: [ self reset: aPPContext ].
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	131
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	132	beforeWaterParser ifNil: [
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	133	beforeWaterParser := self createBeforeWaterParser: aPPContext.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	134	].
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	135	^ beforeWaterParser
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	136	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	137
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	138	createAfterWaterParser: aPPContext
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	139	\| nextSet p \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	140
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	141	nextSet := Set new.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	142	nextSet addAll: (self nextSet: aPPContext).
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	143	nextSet add: PPInputEnds new.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	144
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	145	nextSet := nextSet collect: [ :e \| PPNonEmptyParser on: e ].
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	146
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	147	p := (PPChoiceParser withAll: nextSet) not.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	148	^ PPWater on: p waterToken: water
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	149	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	150
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	151	createBeforeWaterParser: aPPContext
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	152	\| nextSet p \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	153	nextSet := Set new.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	154	nextSet addAll: (self nextSet: aPPContext).
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	155	nextSet add: PPInputEnds new.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	156
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	157	nextSet := nextSet collect: [:e \| PPNonEmptyParser on: e].
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	158
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	159	p := (PPChoiceParser withAll: nextSet) not, (PPNonEmptyParser on: island) not.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	160	^ PPWater on: p waterToken: water.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	161	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	162
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	163	exampleOn: aStream
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	164	aStream nextPutAll: '~~~~ '.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165	island exampleOn: aStream .
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	166	aStream nextPutAll: ' ~~~~'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	167	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	168
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	169	parseAfterWater: aPPContext
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	170	^ (self afterWaterParser: aPPContext) parseOn: aPPContext .
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	171	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	172
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	173	parseBeforeWater: aPPContext
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	174	^ (self beforeWaterParser: aPPContext) parseOn: aPPContext.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	175	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	176
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	177	parseOn: aPPContext
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	178	\| bwr awr result retval memento \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	179
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	180	memento := aPPContext remember.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	181	"Halt ifShiftPressed."
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	182
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	183	bwr := self parseBeforeWater: aPPContext.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	184	bwr isPetitFailure ifTrue:
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	185	[
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	186	self error: 'IMO should never happen'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	187	].
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	188
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	189	"JK: HACK ALERT, FIX!!"
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	190	(aPPContext waterPosition == aPPContext position) ifTrue:[
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	191	result := (PPNonEmptyParser on: island) parseOn: aPPContext.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	192	] ifFalse: [
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	193	result := island parseOn: aPPContext.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	194	].
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	195
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	196
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	197	result isPetitFailure ifTrue: [
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	198	retval := PPFailure message: 'Island not found between ', memento position asString, ' and ', aPPContext position asString context: aPPContext.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	199	aPPContext restore: memento.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	200	^ retval
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	201	].
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	202
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	203
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	204	awr := self parseAfterWater: aPPContext.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	205	awr isPetitFailure ifTrue:
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	206	[
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	207	retval := PPFailure message: 'IMO should not happen :(' context: aPPContext.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	208	aPPContext restore: memento.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	209	^ retval.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	210	].
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	211
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	212	retval := OrderedCollection with: bwr with: result with: awr.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	213	^ retval
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	214
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	215
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	216	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	217
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	218	waterToken
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	219	\| waterObjects \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	220	self halt: 'deprecated?'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	221	waterObjects := self globalAt: #waterObjects ifAbsent: [ OrderedCollection new ].
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	222	waterObjects add: #any asParser.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	223	^ PPChoiceParser withAll: waterObjects.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	224	! !
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	225
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	226	!PPIsland methodsFor:'queries'!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	227
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	228	acceptsEpsilon
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	229	"JK: Hack alert?"
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	230	"Let us suppose island is always nullable, it helps to sequences of islands"
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	231	^ true
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	232	"^ island isNullableOpenSet: (IdentitySet with: self)"
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	233	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	234
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	235	acceptsEpsilonOpenSet: set
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	236	"JK: Hack alert?"
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	237	^ true
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	238	" ^ island isNullableOpenSet: set"
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	239	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	240
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	241	name
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	242	^ super name ifNil: [ 'an island '].
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	243	! !
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	244

author	Patrik Svestka <patrik.svestka@gmail.com>
	Wed, 14 Nov 2018 13:01:14 +0100
changeset 642	77d5fddb6462
parent 454	a9cd5ea7cc36
permissions	-rw-r--r--