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-- |
0 | 1 |
"{ Package: 'stx:goodies/xmlsuite/xquery' }" |
2 |
||
3 |
"{ NameSpace: XQuery }" |
|
4 |
||
5 |
TypeXSAnyAtomicType subclass:#TypeXSDecimal |
|
6 |
instanceVariableNames:'' |
|
7 |
classVariableNames:'' |
|
8 |
poolDictionaries:'' |
|
9 |
category:'XQuery-Types' |
|
10 |
! |
|
11 |
||
12 |
||
13 |
!TypeXSDecimal methodsFor:'accessing'! |
|
14 |
||
15 |
typeName |
|
16 |
"Superclass says that I am responsible to implement this method" |
|
17 |
||
18 |
^'xs:decimal' |
|
19 |
||
20 |
"Created: / 05-12-2007 / 20:52:53 / janfrog" |
|
21 |
! ! |
|
22 |
||
232
9d8fd28b99b0
branch datatypes reintegrated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
23 |
!TypeXSDecimal methodsFor:'type value - converting'! |
9d8fd28b99b0
branch datatypes reintegrated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
24 |
|
9d8fd28b99b0
branch datatypes reintegrated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
25 |
toCanonicalLexicalForm:value |
9d8fd28b99b0
branch datatypes reintegrated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
26 |
"/ ^ value asString. |
9d8fd28b99b0
branch datatypes reintegrated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
27 |
"/ ^ value storeString |
9d8fd28b99b0
branch datatypes reintegrated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
28 |
^ (DecimalFormatter withValue: value) toCanonicalLexicalForm. |
9d8fd28b99b0
branch datatypes reintegrated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
29 |
|
9d8fd28b99b0
branch datatypes reintegrated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
30 |
"Created: / 24-10-2009 / 20:01:04 / Jan Kurs <kursj1@fel.cvut.cz>" |
9d8fd28b99b0
branch datatypes reintegrated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
31 |
"Modified: / 17-11-2009 / 18:18:15 / Jan Kurs <kursj1@fel.cvut.cz>" |
9d8fd28b99b0
branch datatypes reintegrated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
32 |
! ! |
9d8fd28b99b0
branch datatypes reintegrated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
33 |
|
9d8fd28b99b0
branch datatypes reintegrated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
34 |
!TypeXSDecimal methodsFor:'type value - testing'! |
9d8fd28b99b0
branch datatypes reintegrated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
35 |
|
9d8fd28b99b0
branch datatypes reintegrated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
36 |
checkLexicalForm: form |
9d8fd28b99b0
branch datatypes reintegrated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
37 |
" ONLY HOTFIX - I have no regex to implement this" |
9d8fd28b99b0
branch datatypes reintegrated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
38 |
^ form conform: [:character | |
9d8fd28b99b0
branch datatypes reintegrated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
39 |
('[0-9.+]' match: character asString ignoreCase: true) |
9d8fd28b99b0
branch datatypes reintegrated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
40 |
or: [character asString = '-']. |
9d8fd28b99b0
branch datatypes reintegrated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
41 |
]. |
9d8fd28b99b0
branch datatypes reintegrated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
42 |
|
9d8fd28b99b0
branch datatypes reintegrated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
43 |
"Created: / 15-10-2009 / 16:55:26 / Jan Kurs <kursj1@fel.cvut.cz>" |
9d8fd28b99b0
branch datatypes reintegrated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
44 |
"Modified: / 16-11-2009 / 18:41:14 / Jan Kurs <kursj1@fel.cvut.cz>" |
9d8fd28b99b0
branch datatypes reintegrated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
45 |
! ! |
9d8fd28b99b0
branch datatypes reintegrated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
46 |
|
0 | 47 |
!TypeXSDecimal class methodsFor:'documentation'! |
48 |
||
232
9d8fd28b99b0
branch datatypes reintegrated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
49 |
version_SVN |
9d8fd28b99b0
branch datatypes reintegrated
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
0
diff
changeset
|
50 |
^ '$Id$' |
0 | 51 |
! ! |