hg/stx-goodies-xmlsuite: xquery/extensions.st@bad21c4f64bf (annotated)

235 e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'stx:goodies/xmlsuite/xquery' }"
e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	!
e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	!Boolean methodsFor:'* As yet uncategorized *'!
e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6
241 e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	7	xqueryValueType
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	8	^ XQuery::TypeFactory getType:'xs:boolean'.
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	9
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	10	"Created: / 21-06-2009 / 19:43:25 / Jan Kurs <kursj1@fel.cvut.cz>"
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	11	! !
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	12	!Float methodsFor:'converting'!
235 e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13
241 e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	14	asString
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	15	"TODO: this is not the solution specified by the XQuery documentation
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	16	- for more information, see casting xs:float to xs:string rules"
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	17	(self asInteger = self) ifTrue:
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	18	[
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	19	^ self asInteger printString
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	20	]
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	21	ifFalse:
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	22	[
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	23	^ self printString.
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	24	]
235 e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25
241 e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	26	"Created: / 22-09-2009 / 21:12:48 / Jan Kurs <kursj1@fel.cvut.cz>"
235 e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	! !
e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	!Float methodsFor:'* As yet uncategorized *'!
e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29
241 e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	30	xqueryValueType
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	31	^ XQuery::TypeFactory getType:'xs:float'.
235 e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32
241 e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	33	"Created: / 21-06-2009 / 19:42:19 / Jan Kurs <kursj1@fel.cvut.cz>"
235 e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	! !
e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	!Integer methodsFor:'* As yet uncategorized *'!
e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36
241 e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	37	xqueryValueType
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	38	^ XQuery::TypeFactory getType:'xs:integer'.
235 e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39
241 e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	40	"Created: / 21-06-2009 / 19:47:23 / Jan Kurs <kursj1@fel.cvut.cz>"
235 e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41	! !
e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42	!String methodsFor:'* As yet uncategorized *'!
e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43
241 e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	44	xqueryValueType
e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	45	^ XQuery::TypeFactory getType:'xs:string'.
235 e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46
241 e28ef0f20186 Branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 235 diff changeset	47	"Created: / 21-06-2009 / 19:49:59 / Jan Kurs <kursj1@fel.cvut.cz>"
235 e2a2fac1f45f Restore /trunk from r231 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 02 Jul 2018 08:46:01 +0200
changeset 305	bad21c4f64bf
parent 296	ea3dbc023c80
permissions	-rw-r--r--