Reflection/List properties: Difference between revisions
add ooRexx showing use of the datatype function
Walterpachl (talk | contribs) (→{{header|REXX}}: add Pl/i equivalent) |
Walterpachl (talk | contribs) (add ooRexx showing use of the datatype function) |
||
Line 403:
exampleProperty Td,N,V_exampleProperty 3.14
</pre>
=={{header|ooRexx}}==
The datatype builtin function can be uses o determine the data type of a giveb string.
Many of these options are also supported by other REXX implementations.
<lang oorexx>/* REXX demonstrate uses of datatype() */
/* test values */
d.1=''
d.2='a23'
d.3='101'
d.4='123'
d.5='12345678901234567890'
d.6='abc'
d.7='aBc'
d.8='1'
d.9='0'
d.10='Walter'
d.11='ABC'
d.12='f23'
d.13='123'
/* supported options */
t.1='A' /* Alphanumeric */
t.2='B' /* Binary */
t.3='I' /* Internal whole number */
t.4='L' /* Lowercase */
t.5='M' /* Mixed case */
t.6='N' /* Number */
t.7='O' /* lOgical */
t.8='S' /* Symbol */
t.9='U' /* Uppercase */
t.10='V' /* Variable */
t.11='W' /* Whole number */
t.12='X' /* heXadecimal */
t.13='9' /* 9 digits */
hdr=left('',20)
Do j=1 To 13
hdr=hdr t.j
End
hdr=hdr 'datatype(v)'
Say hdr
Do i=1 To 13
ol=left(d.i,20)
Do j=1 To 13
ol=ol datatype(d.i,t.j)
End
ol=ol datatype(d.i)
Say ol
End
Say hdr</lang>
{{out}}
<pre> A B I L M N O S U V W X 9 datatype(v)
0 1 0 0 0 0 0 0 0 0 0 1 0 CHAR
a23 1 0 0 0 0 0 0 1 0 1 0 1 0 CHAR
101 1 1 1 0 0 1 0 1 0 0 1 1 1 NUM
123 1 0 1 0 0 1 0 1 0 0 1 1 1 NUM
12345678901234567890 1 0 0 0 0 1 0 1 0 0 0 1 0 NUM
abc 1 0 0 1 1 0 0 1 0 1 0 1 0 CHAR
aBc 1 0 0 0 1 0 0 1 0 1 0 1 0 CHAR
1 1 1 1 0 0 1 1 1 0 0 1 1 1 NUM
0 1 1 1 0 0 1 1 1 0 0 1 1 1 NUM
Walter 1 0 0 0 1 0 0 1 0 1 0 0 0 CHAR
ABC 1 0 0 0 1 0 0 1 1 1 0 1 0 CHAR
f23 1 0 0 0 0 0 0 1 0 1 0 1 0 CHAR
123 1 0 1 0 0 1 0 1 0 0 1 1 1 NUM
A B I L M N O S U V W X 9 datatype(v)</pre>
=={{header|Perl 6}}==
| |||