hg/stx-goodies-petitparser: tests/PPScriptingTest.st@77d5fddb6462 (annotated)

385 44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	1	"{ Package: 'stx:goodies/petitparser/tests' }"
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	2
454 a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 405 diff changeset	3	"{ NameSpace: Smalltalk }"
a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 405 diff changeset	4
385 44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	5	PPAbstractParserTest subclass:#PPScriptingTest
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	6	instanceVariableNames:''
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	7	classVariableNames:''
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	8	poolDictionaries:''
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	9	category:'PetitTests-Tests'
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	10	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	11
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	12	PPScriptingTest comment:'These are some simple demo-scripts of parser combinators for the compiler construction course.
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	http://www.iam.unibe.ch/~scg/Teaching/CC/index.html'
385 44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	14	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	15
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	16
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	17	!PPScriptingTest methodsFor:'examples'!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	18
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	19	expressionInterpreter
405 0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	20	"Same as #expressionInterpreter but with semantic actions."
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	21
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	22	\| mul prim add dec \|
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	23	add := PPUnresolvedParser new.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	24	mul := PPUnresolvedParser new.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	25	prim := PPUnresolvedParser new.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	26	dec := ($0 to: $9) asParser ==> [ :token \| token codePoint - $0 codePoint ].
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	27	add def: ((mul , $+ asParser , add) ==> [ :nodes \| (nodes at: 1) + (nodes at: 3) ])
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	28	/ mul.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	29	mul def: ((prim , $* asParser , mul) ==> [ :nodes \| (nodes at: 1) * (nodes at: 3) ])
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	30	/ prim.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	31	prim def: (($( asParser , add , $) asParser) ==> [ :nodes \| nodes at: 2 ])
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	32	/ dec.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	33	^ add end
385 44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	34	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	35
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	36	expressionParser
405 0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	37	"Simple demo of scripting an expression parser."
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	38
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	39	\| mul prim add dec \|
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	40	add := PPUnresolvedParser new.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	41	mul := PPUnresolvedParser new.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	42	prim := PPUnresolvedParser new.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	43	dec := ($0 to: $9) asParser.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	44	add def: (mul , $+ asParser , add)
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	45	/ mul.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	46	mul def: (prim , $* asParser , mul)
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	47	/ prim.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	48	prim def: ($( asParser , add , $) asParser)
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	49	/ dec.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	50	^ add end
385 44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	51	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	52
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	53	straightLineParser
405 0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	54	\| goal stm stmList id char dec exp expList mulExp primExp nonzero num lower upper \|
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	55	goal := PPUnresolvedParser new.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	56	stmList := PPUnresolvedParser new.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	57	stm := PPUnresolvedParser new.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	58	exp := PPUnresolvedParser new.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	59	expList := PPUnresolvedParser new.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	60	mulExp := PPUnresolvedParser new.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	61	primExp := PPUnresolvedParser new.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	62
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	63	lower := ($a to: $z) asParser.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	64	upper := ($A to: $Z) asParser.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	65	char := lower / upper.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	66	nonzero := ($1 to: $9) asParser.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	67	dec := ($0 to: $9) asParser.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	68	id := char, ( char / dec ) star.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	69	num := $0 asParser / ( nonzero, dec star).
385 44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	70
405 0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	71	goal def: stmList end.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	72	stmList def: stm , ( $; asParser, stm ) star.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	73	stm def: ( id, ':=' asParser, exp )
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	74	/ ( 'print' asParser, $( asParser, expList, $) asParser ).
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	75	exp def: mulExp, ( ( $+ asParser / $- asParser ), mulExp ) star.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	76	expList def: exp, ( $, asParser, exp ) star.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	77	mulExp def: primExp, ( ( $* asParser / $/ asParser ), primExp ) star.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	78	primExp def: id
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	79	/ num
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	80	/ ( $( asParser, stmList, $, asParser, exp, $) asParser ).
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	81	^ goal
385 44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	82	! !
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	83
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	84	!PPScriptingTest methodsFor:'tests'!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	85
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	86	testExpressionInterpreter
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	87	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	88	assert: self expressionInterpreter
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	89	parse: '2*(3+4)'
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	90	to: 14
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	91	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	92
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	93	testExpressionParser
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	94	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	95	assert: self expressionParser
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	96	parse: '2*(3+4)'
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	97	to: #($2 $* ($( ($3 $+ $4) $)))
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	98	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	99
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	100	testSLassign
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	101
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	102	self assert: self straightLineParser
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	103	parse: 'abc:=1'
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	104	to: #(#($a #($b $c) ':=' #(#(#($1 #()) #()) #())) #())
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	105	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	106
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	107	testSLprint
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	108	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	109	assert: self straightLineParser
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	110	parse: 'print(3,4)'
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	111	to: #(('print' $( ((($3 ()) ()) () (($, ((($4 ()) ()) ())))) $)) ())
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	112	! !
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	113
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	114	!PPScriptingTest class methodsFor:'documentation'!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	115
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	116	version
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	117	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPScriptingTest.st,v 1.4 2014-03-04 14:34:23 cg Exp $'
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	118	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	119
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	120	version_CVS
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	121	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPScriptingTest.st,v 1.4 2014-03-04 14:34:23 cg Exp $'
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	122	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	123
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	124	version_HG
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	125
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	126	^ '$Changeset: <not expanded> $'
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	127	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	128
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	129	version_SVN
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	130	^ '$Id: PPScriptingTest.st,v 1.4 2014-03-04 14:34:23 cg Exp $'
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	131	! !
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 382 diff changeset	132

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--