1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
package SOAP::WSDL::XSD::Schema::Builtin;
use strict;
use warnings;
use Class::Std::Fast::Storable;
use SOAP::WSDL::XSD::Schema;
use SOAP::WSDL::XSD::Builtin;
use base qw(SOAP::WSDL::XSD::Schema);
our $VERSION = 3.004;
# all builtin types - add validation (e.g. content restrictions) later...
my %BUILTINS = (
'anyType' => {},
'anySimpleType' => {},
'anyURI' => {},
'boolean' => {},
'base64Binary' => {},
'byte' => {},
'date' => {},
'dateTime' => {},
'decimal' => {},
'double' => {},
'duration' => {},
'ENTITY' => {},
'float' => {},
'gDay' => {},
'gMonth' => {},
'gMonthDay' => {},
'gYearMonth' => {},
'gYear' => {},
'hexBinary' => {},
'ID' => {},
'IDREF' => {},
'IDREFS' => {},
'int' => {},
'integer' => {},
'language' => {},
'long' => {},
'negativeInteger' => {},
'nonPositiveInteger' => {},
'nonNegativeInteger' => {},
'normalizedString' => {},
'Name' => {},
'NCName' => {},
'NMTOKEN' => {},
'NOTATION' => {},
'positiveInteger' => {},
'QName' => {},
'short' => {},
'string' => {},
'time' => {},
'token' => {},
'unsignedByte' => {},
'unsignedInt' => {},
'unsignedLong' => {},
'unsignedShort' => {},
);
sub START {
my $self = shift;
my @args = @_;
while (my ($name, $value) = each %BUILTINS )
{
$self->push_type( SOAP::WSDL::XSD::Builtin->new({
name => $name,
targetNamespace => 'http://www.w3.org/2001/XMLSchema',
xmlns => {
'#default' => 'http://www.w3.org/2001/XMLSchema',
}
} )
);
}
return $self;
}
1;
=pod
=head1 NAME
SOAP:WSDL::XSD::Schema::Builtin - Provides builtin XML Schema datatypes for parsing WSDL
=head1 DESCRIPTION
Used internally by SOAP::WSDL's WSDL parser.
See <SOAP::WSDL::XSD::Typelib::Builtin|SOAP::WSDL::XSD::Typelib::Builtin> for
SOAP::WSDL::XSD's builtin XML Schema datatypes.
=head1 LICENSE AND COPYRIGHT
Copyright (c) 2007 Martin Kutter. All rights reserved.
This file is part of SOAP-WSDL. You may distribute/modify it under
the same terms as perl itself
=head1 AUTHOR
Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
=head1 REPOSITORY INFORMATION
$Rev: 851 $
$LastChangedBy: kutterma $
$Id: Builtin.pm 851 2009-05-15 22:45:18Z kutterma $
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Schema/Builtin.pm $
=cut
|
