3 // DefaultWsdlHelpGenerator.aspx:
6 // Lluis Sanchez Gual (lluis@ximian.com)
8 // (C) 2003 Ximian, Inc. http://www.ximian.com
12 <%@ Import Namespace="System.Collections" %>
13 <%@ Import Namespace="System.Collections.Generic" %>
14 <%@ Import Namespace="System.IO" %>
15 <%@ Import Namespace="System.Xml.Serialization" %>
16 <%@ Import Namespace="System.Xml" %>
17 <%@ Import Namespace="System.Xml.Schema" %>
18 <%@ Import Namespace="System.Web.Services" %>
19 <%@ Import Namespace="System.Web.Services.Description" %>
20 <%@ Import Namespace="System.Web.Services.Configuration" %>
21 <%@ Import Namespace="System.Web.Configuration" %>
22 <%@ Import Namespace="System" %>
23 <%@ Import Namespace="System.Net" %>
24 <%@ Import Namespace="System.Globalization" %>
25 <%@ Import Namespace="System.Resources" %>
26 <%@ Import Namespace="System.Diagnostics" %>
27 <%@ Import Namespace="System.CodeDom" %>
28 <%@ Import Namespace="System.CodeDom.Compiler" %>
29 <%@ Import Namespace="Microsoft.CSharp" %>
30 <%@ Import Namespace="Microsoft.VisualBasic" %>
31 <%@ Import Namespace="System.Text" %>
32 <%@ Import Namespace="System.Text.RegularExpressions" %>
33 <%@ Import Namespace="System.Security.Cryptography.X509Certificates" %>
34 <%@ Assembly name="System.Web.Services" %>
35 <%@ Page debug="true" %>
38 <script language="C#" runat="server">
40 ServiceDescriptionCollection descriptions;
43 string WebServiceName;
44 string WebServiceDescription;
47 string DefaultBinding;
48 ArrayList ServiceProtocols;
50 string CurrentOperationName;
51 string CurrentOperationBinding;
52 string OperationDocumentation;
53 string CurrentOperationFormat;
54 bool CurrentOperationSupportsTest;
57 string CurrentOperationProtocols;
58 int CodeTextColumns = 95;
59 BasicProfileViolationCollection ProfileViolations;
61 void Page_Load(object sender, EventArgs e)
63 descriptions = (ServiceDescriptionCollection) Context.Items["wsdls"];
64 schemas = (XmlSchemas) Context.Items["schemas"];
66 ServiceDescription desc = descriptions [0];
67 if (schemas.Count == 0) schemas = desc.Types.Schemas;
69 Service service = desc.Services[0];
70 WebServiceName = service.Name;
71 if (desc.Bindings.Count == 0)
74 DefaultBinding = desc.Bindings[0].Name;
75 WebServiceDescription = service.Documentation;
76 if (WebServiceDescription == "" || WebServiceDescription == null)
77 WebServiceDescription = "Description has not been provided";
78 ServiceProtocols = FindServiceProtocols (null);
80 CurrentOperationName = Request.QueryString["op"];
81 CurrentOperationBinding = Request.QueryString["bnd"];
82 if (CurrentOperationName != null) BuildOperationInfo ();
84 PageName = HttpUtility.UrlEncode (Path.GetFileName(Request.Path), Encoding.UTF8);
86 ArrayList list = new ArrayList ();
87 foreach (ServiceDescription sd in descriptions) {
88 foreach (Binding bin in sd.Bindings)
89 if (bin.Extensions.Find (typeof(SoapBinding)) != null) list.Add (bin);
92 BindingsRepeater.DataSource = list;
95 ProfileViolations = new BasicProfileViolationCollection ();
96 foreach (WsiProfilesElement claims in ((WebServicesSection) WebConfigurationManager.GetSection("system.web/webServices")).ConformanceWarnings)
97 if (claims.Name != WsiProfiles.None)
98 WebServicesInteroperability.CheckConformance (claims.Name, descriptions, ProfileViolations);
101 void BuildOperationInfo ()
103 InParams = new ArrayList ();
104 OutParams = new ArrayList ();
106 Port port = FindPort (CurrentOperationBinding, null);
107 Binding binding = descriptions.GetBinding (port.Binding);
109 PortType portType = descriptions.GetPortType (binding.Type);
110 Operation oper = FindOperation (portType, CurrentOperationName);
112 OperationDocumentation = oper.Documentation;
113 if (OperationDocumentation == null || OperationDocumentation == "")
114 OperationDocumentation = "No additional remarks";
116 foreach (OperationMessage opm in oper.Messages)
118 if (opm is OperationInput)
119 BuildParameters (InParams, opm);
120 else if (opm is OperationOutput)
121 BuildParameters (OutParams, opm);
124 // Protocols supported by the operation
125 CurrentOperationProtocols = "";
126 WebServiceProtocols testProtocols = 0;
127 ArrayList prots = FindServiceProtocols (CurrentOperationName);
128 for (int n=0; n<prots.Count; n++) {
129 string prot = (string) prots [n];
130 if (n != 0) CurrentOperationProtocols += ", ";
131 CurrentOperationProtocols += prot;
132 if (prot == "HttpGet")
133 testProtocols |= WebServiceProtocols.HttpGet;
134 else if (prot == "HttpPost") {
135 testProtocols |= WebServiceProtocols.HttpPost;
136 if (Context.Request.IsLocal)
137 testProtocols |= WebServiceProtocols.HttpPostLocalhost;
140 CurrentOperationSupportsTest = (WebServicesSection.Current.EnabledProtocols & testProtocols) != 0;
143 OperationBinding obin = FindOperation (binding, CurrentOperationName);
145 CurrentOperationFormat = GetOperationFormat (obin);
147 InputParamsRepeater.DataSource = InParams;
148 InputFormParamsRepeater.DataSource = InParams;
149 OutputParamsRepeater.DataSource = OutParams;
152 void BuildParameters (ArrayList list, OperationMessage opm)
154 Message msg = descriptions.GetMessage (opm.Message);
155 if (msg.Parts.Count > 0 && msg.Parts[0].Name == "parameters")
157 MessagePart part = msg.Parts[0];
158 XmlSchemaComplexType ctype;
159 if (part.Element == XmlQualifiedName.Empty)
161 ctype = (XmlSchemaComplexType) schemas.Find (part.Type, typeof(XmlSchemaComplexType));
165 XmlSchemaElement elem = (XmlSchemaElement) schemas.Find (part.Element, typeof(XmlSchemaElement));
166 ctype = (XmlSchemaComplexType) elem.SchemaType;
168 XmlSchemaSequence seq = ctype.Particle as XmlSchemaSequence;
169 if (seq == null) return;
171 foreach (XmlSchemaObject ob in seq.Items)
173 Parameter p = new Parameter();
174 p.Description = "No additional remarks";
176 if (ob is XmlSchemaElement)
178 XmlSchemaElement selem = GetRefElement ((XmlSchemaElement)ob);
180 p.Type = selem.SchemaTypeName.Name;
192 foreach (MessagePart part in msg.Parts)
194 Parameter p = new Parameter ();
195 p.Description = "No additional remarks";
197 if (part.Element == XmlQualifiedName.Empty)
198 p.Type = part.Type.Name;
201 XmlSchemaElement elem = (XmlSchemaElement) schemas.Find (part.Element, typeof(XmlSchemaElement));
202 p.Type = elem.SchemaTypeName.Name;
209 string GetOperationFormat (OperationBinding obin)
212 SoapOperationBinding sob = obin.Extensions.Find (typeof(SoapOperationBinding)) as SoapOperationBinding;
214 format = sob.Style.ToString ();
215 SoapBodyBinding sbb = obin.Input.Extensions.Find (typeof(SoapBodyBinding)) as SoapBodyBinding;
217 format += " / " + sbb.Use;
222 XmlSchemaElement GetRefElement (XmlSchemaElement elem)
224 if (!elem.RefName.IsEmpty)
225 return (XmlSchemaElement) schemas.Find (elem.RefName, typeof(XmlSchemaElement));
230 ArrayList FindServiceProtocols(string operName)
232 ArrayList table = new ArrayList ();
233 Service service = descriptions[0].Services[0];
234 foreach (Port port in service.Ports)
237 Binding bin = descriptions.GetBinding (port.Binding);
238 if (bin.Extensions.Find (typeof(SoapBinding)) != null)
242 HttpBinding hb = (HttpBinding) bin.Extensions.Find (typeof(HttpBinding));
243 if (hb != null && hb.Verb == "POST") prot = "HttpPost";
244 else if (hb != null && hb.Verb == "GET") prot = "HttpGet";
247 if (prot != null && operName != null)
249 if (FindOperation (bin, operName) == null)
253 if (prot != null && !table.Contains (prot))
259 Port FindPort (string portName, string protocol)
261 Service service = descriptions[0].Services[0];
262 foreach (Port port in service.Ports)
264 if (portName == null)
266 Binding binding = descriptions.GetBinding (port.Binding);
267 if (GetProtocol (binding) == protocol) return port;
269 else if (port.Name == portName)
275 string GetProtocol (Binding binding)
277 if (binding.Extensions.Find (typeof(SoapBinding)) != null) return "Soap";
278 HttpBinding hb = (HttpBinding) binding.Extensions.Find (typeof(HttpBinding));
279 if (hb == null) return "";
280 if (hb.Verb == "POST") return "HttpPost";
281 if (hb.Verb == "GET") return "HttpGet";
286 Operation FindOperation (PortType portType, string name)
288 foreach (Operation oper in portType.Operations) {
289 if (oper.Messages.Input.Name != null) {
290 if (oper.Messages.Input.Name == name) return oper;
293 if (oper.Name == name) return oper;
299 OperationBinding FindOperation (Binding binding, string name)
301 foreach (OperationBinding oper in binding.Operations) {
302 if (oper.Input.Name != null) {
303 if (oper.Input.Name == name) return oper;
306 if (oper.Name == name) return oper;
312 string FormatBindingName (string name)
314 if (name == DefaultBinding) return "Methods";
315 else return "Methods for binding<br>" + name;
318 string GetOpName (object op)
320 OperationBinding ob = op as OperationBinding;
321 if (ob == null) return "";
322 if (ob.Input.Name != null) return ob.Input.Name;
328 get { return Request.QueryString ["ext"] == "testform"; }
331 class NoCheckCertificatePolicy : ICertificatePolicy {
332 public bool CheckValidationResult (ServicePoint a, X509Certificate b, WebRequest c, int d)
340 return (CurrentOperationProtocols.IndexOf ("HttpGet") >= 0) ? "GET" : "POST";
347 NameValueCollection query_string = Request.QueryString;
348 for (int n = 0; n < query_string.Count; n++) {
350 if (qs != "") qs += "&";
351 qs += query_string.GetKey(n) + "=" + Server.UrlEncode (query_string [n]);
353 if (query_string.GetKey(n) == "ext") fill = true;
359 string GetTestResultUrl ()
361 if (!HasFormResult) return "";
363 string location = null;
364 ServiceDescription desc = descriptions [0];
365 Service service = desc.Services[0];
366 foreach (Port port in service.Ports)
367 if (port.Name == CurrentOperationBinding)
369 SoapAddressBinding sbi = (SoapAddressBinding) port.Extensions.Find (typeof(SoapAddressBinding));
371 location = sbi.Location;
374 if (location == null)
375 return "Could not locate web service";
377 return location + "/" + CurrentOperationName;
380 string GenerateOperationMessages (string protocol, bool generateInput)
382 if (!IsOperationSupported (protocol)) return "";
385 if (protocol != "Soap") port = FindPort (null, protocol);
386 else port = FindPort (CurrentOperationBinding, null);
388 Binding binding = descriptions.GetBinding (port.Binding);
389 OperationBinding obin = FindOperation (binding, CurrentOperationName);
390 PortType portType = descriptions.GetPortType (binding.Type);
391 Operation oper = FindOperation (portType, CurrentOperationName);
393 HtmlSampleGenerator sg = new HtmlSampleGenerator (descriptions, schemas);
394 string txt = sg.GenerateMessage (port, obin, oper, protocol, generateInput);
395 if (protocol == "Soap") txt = WrapText (txt,CodeTextColumns);
396 txt = ColorizeXml (txt);
397 txt = txt.Replace ("@placeholder!","<span class='literal-placeholder'>");
398 txt = txt.Replace ("!placeholder@","</span>");
402 bool IsOperationSupported (string protocol)
404 if (CurrentPage != "op" || CurrentTab != "msg") return false;
405 if (protocol == "Soap") return true;
407 Port port = FindPort (null, protocol);
408 if (port == null) return false;
409 Binding binding = descriptions.GetBinding (port.Binding);
410 if (binding == null) return false;
411 return FindOperation (binding, CurrentOperationName) != null;
415 // Proxy code generation
418 string GetProxyCode ()
420 CodeNamespace codeNamespace = new CodeNamespace();
421 CodeCompileUnit codeUnit = new CodeCompileUnit();
423 codeUnit.Namespaces.Add (codeNamespace);
425 ServiceDescriptionImporter importer = new ServiceDescriptionImporter();
427 foreach (ServiceDescription sd in descriptions)
428 importer.AddServiceDescription(sd, null, null);
430 foreach (XmlSchema sc in schemas)
431 importer.Schemas.Add (sc);
433 importer.Import(codeNamespace, codeUnit);
435 string langId = Request.QueryString ["lang"];
436 if (langId == null || langId == "") langId = "cs";
437 CodeDomProvider provider = GetProvider (langId);
438 ICodeGenerator generator = provider.CreateGenerator();
439 CodeGeneratorOptions options = new CodeGeneratorOptions();
441 StringWriter sw = new StringWriter ();
442 generator.GenerateCodeFromCompileUnit(codeUnit, sw, options);
444 return Colorize (WrapText (sw.ToString (), CodeTextColumns), langId);
447 public string CurrentLanguage
450 string langId = Request.QueryString ["lang"];
451 if (langId == null || langId == "") langId = "cs";
456 public string CurrentProxytName
459 string lan = CurrentLanguage == "cs" ? "C#" : "Visual Basic";
460 return lan + " Client Proxy";
464 private CodeDomProvider GetProvider(string langId)
466 switch (langId.ToUpper())
468 case "CS": return new CSharpCodeProvider();
469 case "VB": return new VBCodeProvider();
470 default: return null;
475 // Document generation
478 string GenerateDocument ()
480 StringWriter sw = new StringWriter ();
482 if (CurrentDocType == "wsdl")
483 descriptions [CurrentDocInd].Write (sw);
484 else if (CurrentDocType == "schema")
485 schemas [CurrentDocInd].Write (sw);
487 return Colorize (WrapText (sw.ToString (), CodeTextColumns), "xml");
490 public string CurrentDocType
492 get { return Request.QueryString ["doctype"] != null ? Request.QueryString ["doctype"] : "wsdl"; }
495 public int CurrentDocInd
497 get { return Request.QueryString ["docind"] != null ? int.Parse (Request.QueryString ["docind"]) : 0; }
500 public string CurrentDocumentName
503 if (CurrentDocType == "wsdl")
504 return "WSDL document for namespace \"" + descriptions [CurrentDocInd].TargetNamespace + "\"";
506 return "Xml Schema for namespace \"" + schemas [CurrentDocInd].TargetNamespace + "\"";
514 bool firstTab = true;
515 ArrayList disabledTabs = new ArrayList ();
519 get { return Request.QueryString["tab"] != null ? Request.QueryString["tab"] : "main" ; }
524 get { return Request.QueryString["page"] != null ? Request.QueryString["page"] : "main" ; }
529 if (CurrentOperationName != null)
531 WriteTab ("main","Overview");
532 WriteTab ("test","Test Form");
533 WriteTab ("msg","Message Layout");
537 void WriteTab (string id, string label)
539 if (!firstTab) Response.Write(" | ");
542 string cname = CurrentTab == id ? "tabLabelOn" : "tabLabelOff";
543 Response.Write ("<a href='" + PageName + "?" + GetPageContext(null) + GetDataContext() + "tab=" + id + "' style='text-decoration:none'>");
544 Response.Write ("<span class='" + cname + "'>" + label + "</span>");
545 Response.Write ("</a>");
548 string GetTabContext (string pag, string tab)
550 if (tab == null) tab = CurrentTab;
551 if (pag == null) pag = CurrentPage;
552 if (pag != CurrentPage) tab = "main";
553 return "page=" + pag + "&tab=" + tab + "&";
556 string GetPageContext (string pag)
558 if (pag == null) pag = CurrentPage;
559 return "page=" + pag + "&";
572 static string keywords_cs =
573 "(\\babstract\\b|\\bevent\\b|\\bnew\\b|\\bstruct\\b|\\bas\\b|\\bexplicit\\b|\\bnull\\b|\\bswitch\\b|\\bbase\\b|\\bextern\\b|" +
574 "\\bobject\\b|\\bthis\\b|\\bbool\\b|\\bfalse\\b|\\boperator\\b|\\bthrow\\b|\\bbreak\\b|\\bfinally\\b|\\bout\\b|\\btrue\\b|" +
575 "\\bbyte\\b|\\bfixed\\b|\\boverride\\b|\\btry\\b|\\bcase\\b|\\bfloat\\b|\\bparams\\b|\\btypeof\\b|\\bcatch\\b|\\bfor\\b|" +
576 "\\bprivate\\b|\\buint\\b|\\bchar\\b|\\bforeach\\b|\\bprotected\\b|\\bulong\\b|\\bchecked\\b|\\bgoto\\b|\\bpublic\\b|" +
577 "\\bunchecked\\b|\\bclass\\b|\\bif\\b|\\breadonly\\b|\\bunsafe\\b|\\bconst\\b|\\bimplicit\\b|\\bref\\b|\\bushort\\b|" +
578 "\\bcontinue\\b|\\bin\\b|\\breturn\\b|\\busing\\b|\\bdecimal\\b|\\bint\\b|\\bsbyte\\b|\\bvirtual\\b|\\bdefault\\b|" +
579 "\\binterface\\b|\\bsealed\\b|\\bvolatile\\b|\\bdelegate\\b|\\binternal\\b|\\bshort\\b|\\bvoid\\b|\\bdo\\b|\\bis\\b|" +
580 "\\bsizeof\\b|\\bwhile\\b|\\bdouble\\b|\\block\\b|\\bstackalloc\\b|\\belse\\b|\\blong\\b|\\bstatic\\b|\\benum\\b|" +
581 "\\bnamespace\\b|\\bstring\\b)";
583 static string keywords_vb =
584 "(\\bAddHandler\\b|\\bAddressOf\\b|\\bAlias\\b|\\bAnd\\b|\\bAndAlso\\b|\\bAnsi\\b|\\bAs\\b|\\bAssembly\\b|" +
585 "\\bAuto\\b|\\bBoolean\\b|\\bByRef\\b|\\bByte\\b|\\bByVal\\b|\\bCall\\b|\\bCase\\b|\\bCatch\\b|" +
586 "\\bCBool\\b|\\bCByte\\b|\\bCChar\\b|\\bCDate\\b|\\bCDec\\b|\\bCDbl\\b|\\bChar\\b|\\bCInt\\b|" +
587 "\\bClass\\b|\\bCLng\\b|\\bCObj\\b|\\bConst\\b|\\bCShort\\b|\\bCSng\\b|\\bCStr\\b|\\bCType\\b|" +
588 "\\bDate\\b|\\bDecimal\\b|\\bDeclare\\b|\\bDefault\\b|\\bDelegate\\b|\\bDim\\b|\\bDirectCast\\b|\\bDo\\b|" +
589 "\\bDouble\\b|\\bEach\\b|\\bElse\\b|\\bElseIf\\b|\\bEnd\\b|\\bEnum\\b|\\bErase\\b|\\bError\\b|" +
590 "\\bEvent\\b|\\bExit\\b|\\bFalse\\b|\\bFinally\\b|\\bFor\\b|\\bFriend\\b|\\bFunction\\b|\\bGet\\b|" +
591 "\\bGetType\\b|\\bGoSub\\b|\\bGoTo\\b|\\bHandles\\b|\\bIf\\b|\\bImplements\\b|\\bImports\\b|\\bIn\\b|" +
592 "\\bInherits\\b|\\bInteger\\b|\\bInterface\\b|\\bIs\\b|\\bLet\\b|\\bLib\\b|\\bLike\\b|\\bLong\\b|" +
593 "\\bLoop\\b|\\bMe\\b|\\bMod\\b|\\bModule\\b|\\bMustInherit\\b|\\bMustOverride\\b|\\bMyBase\\b|\\bMyClass\\b|" +
594 "\\bNamespace\\b|\\bNew\\b|\\bNext\\b|\\bNot\\b|\\bNothing\\b|\\bNotInheritable\\b|\\bNotOverridable\\b|\\bObject\\b|" +
595 "\\bOn\\b|\\bOption\\b|\\bOptional\\b|\\bOr\\b|\\bOrElse\\b|\\bOverloads\\b|\\bOverridable\\b|\\bOverrides\\b|" +
596 "\\bParamArray\\b|\\bPreserve\\b|\\bPrivate\\b|\\bProperty\\b|\\bProtected\\b|\\bPublic\\b|\\bRaiseEvent\\b|\\bReadOnly\\b|" +
597 "\\bReDim\\b|\\bREM\\b|\\bRemoveHandler\\b|\\bResume\\b|\\bReturn\\b|\\bSelect\\b|\\bSet\\b|\\bShadows\\b|" +
598 "\\bShared\\b|\\bShort\\b|\\bSingle\\b|\\bStatic\\b|\\bStep\\b|\\bStop\\b|\\bString\\b|\\bStructure\\b|" +
599 "\\bSub\\b|\\bSyncLock\\b|\\bThen\\b|\\bThrow\\b|\\bTo\\b|\\bTrue\\b|\\bTry\\b|\\bTypeOf\\b|" +
600 "\\bUnicode\\b|\\bUntil\\b|\\bVariant\\b|\\bWhen\\b|\\bWhile\\b|\\bWith\\b|\\bWithEvents\\b|\\bWriteOnly\\b|\\bXor\\b)";
602 string Colorize (string text, string lang)
604 if (lang == "xml") return ColorizeXml (text);
605 else if (lang == "cs") return ColorizeCs (text);
606 else if (lang == "vb") return ColorizeVb (text);
610 string ColorizeXml (string text)
612 text = text.Replace (" ", " ");
613 Regex re = new Regex ("\r\n|\r|\n");
614 text = re.Replace (text, "_br_");
616 re = new Regex ("<\\s*(\\/?)\\s*([\\s\\S]*?)\\s*(\\/?)\\s*>");
617 text = re.Replace (text,"{blue:<$1}{maroon:$2}{blue:$3>}");
619 re = new Regex ("\\{(\\w*):([\\s\\S]*?)\\}");
620 text = re.Replace (text,"<span style='color:$1'>$2</span>");
622 re = new Regex ("\"(.*?)\"");
623 text = re.Replace (text,"\"<span style='color:purple'>$1</span>\"");
626 text = text.Replace ("\t", " ");
627 text = text.Replace ("_br_", "<br>");
631 string ColorizeCs (string text)
633 text = text.Replace (" ", " ");
635 text = text.Replace ("<", "<");
636 text = text.Replace (">", ">");
638 Regex re = new Regex ("\"((((?!\").)|\\\")*?)\"");
639 text = re.Replace (text,"<span style='color:purple'>\"$1\"</span>");
641 re = new Regex ("//(((.(?!\"</span>))|\"(((?!\").)*)\"</span>)*)(\r|\n|\r\n)");
642 text = re.Replace (text,"<span style='color:green'>//$1</span><br/>");
644 re = new Regex (keywords_cs);
645 text = re.Replace (text,"<span style='color:blue'>$1</span>");
647 text = text.Replace ("\t"," ");
648 text = text.Replace ("\n","<br/>");
653 string ColorizeVb (string text)
655 text = text.Replace (" ", " ");
657 /* Regex re = new Regex ("\"((((?!\").)|\\\")*?)\"");
658 text = re.Replace (text,"<span style='color:purple'>\"$1\"</span>");
660 re = new Regex ("'(((.(?!\"\\<\\/span\\>))|\"(((?!\").)*)\"\\<\\/span\\>)*)(\r|\n|\r\n)");
661 text = re.Replace (text,"<span style='color:green'>//$1</span><br/>");
663 re = new Regex (keywords_vb);
664 text = re.Replace (text,"<span style='color:blue'>$1</span>");
666 text = text.Replace ("\t"," ");
667 text = text.Replace ("\n","<br/>");
672 // Helper methods and classes
675 string GetDataContext ()
677 return "op=" + CurrentOperationName + "&bnd=" + CurrentOperationBinding + "&";
680 string GetOptionSel (string v1, string v2)
682 string op = "<option ";
683 if (v1 == v2) op += "selected ";
684 return op + "value='" + v1 + "'>";
687 string WrapText (string text, int maxChars)
689 text = text.Replace(" />","/>");
691 string linspace = null;
695 bool inquotes = false;
697 string sublineIndent = "";
698 System.Text.StringBuilder sb = new System.Text.StringBuilder ();
699 for (int n=0; n<text.Length; n++)
703 if (c=='\r' || c=='\n' || n==text.Length-1)
705 sb.Append (linspace + sublineIndent + text.Substring (linstart, n-linstart+1));
715 if (lastc==',' || lastc=='(')
717 if (!inquotes) breakpos = n;
720 if (lincount > maxChars && breakpos >= linstart)
722 if (linspace != null)
723 sb.Append (linspace + sublineIndent);
724 sb.Append (text.Substring (linstart, breakpos-linstart));
727 lincount = linspace.Length + sublineIndent.Length + (n-breakpos);
731 if (c==' ' || c=='\t')
738 inquotes = !inquotes;
741 if (linspace == null) {
742 linspace = text.Substring (linstart, n-linstart);
749 return sb.ToString ();
758 public string Name { get { return name; } set { name = value; } }
759 public string Type { get { return type; } set { type = value; } }
760 public string Description { get { return description; } set { description = value; } }
763 public class HtmlSampleGenerator: SampleGenerator
765 public HtmlSampleGenerator (ServiceDescriptionCollection services, XmlSchemas schemas)
766 : base (services, schemas)
770 protected override string GetLiteral (string s)
772 return "@placeholder!" + s + "!placeholder@";
777 public class SampleGenerator
779 protected ServiceDescriptionCollection descriptions;
780 protected XmlSchemas schemas;
781 XmlSchemaElement anyElement;
783 SoapBindingUse currentUse;
784 XmlDocument document = new XmlDocument ();
786 static readonly XmlQualifiedName anyType = new XmlQualifiedName ("anyType",XmlSchema.Namespace);
787 static readonly XmlQualifiedName arrayType = new XmlQualifiedName ("Array","http://schemas.xmlsoap.org/soap/encoding/");
788 static readonly XmlQualifiedName arrayTypeRefName = new XmlQualifiedName ("arrayType","http://schemas.xmlsoap.org/soap/encoding/");
789 const string SoapEnvelopeNamespace = "http://schemas.xmlsoap.org/soap/envelope/";
790 const string WsdlNamespace = "http://schemas.xmlsoap.org/wsdl/";
791 const string SoapEncodingNamespace = "http://schemas.xmlsoap.org/soap/encoding/";
795 public EncodedType (string ns, XmlSchemaElement elem) { Namespace = ns; Element = elem; }
796 public string Namespace;
797 public XmlSchemaElement Element;
800 public SampleGenerator (ServiceDescriptionCollection services, XmlSchemas schemas)
802 descriptions = services;
803 this.schemas = schemas;
804 queue = new ArrayList ();
807 public string GenerateMessage (Port port, OperationBinding obin, Operation oper, string protocol, bool generateInput)
809 OperationMessage msg = null;
810 foreach (OperationMessage opm in oper.Messages)
812 if (opm is OperationInput && generateInput) msg = opm;
813 else if (opm is OperationOutput && !generateInput) msg = opm;
815 if (msg == null) return null;
818 case "Soap": return GenerateHttpSoapMessage (port, obin, oper, msg);
819 case "HttpGet": return GenerateHttpGetMessage (port, obin, oper, msg);
820 case "HttpPost": return GenerateHttpPostMessage (port, obin, oper, msg);
822 return "Unknown protocol";
825 public string GenerateHttpSoapMessage (Port port, OperationBinding obin, Operation oper, OperationMessage msg)
829 if (msg is OperationInput)
831 SoapAddressBinding sab = port.Extensions.Find (typeof(SoapAddressBinding)) as SoapAddressBinding;
832 SoapOperationBinding sob = obin.Extensions.Find (typeof(SoapOperationBinding)) as SoapOperationBinding;
833 req += "POST " + new Uri (sab.Location).AbsolutePath + "\n";
834 req += "SOAPAction: " + sob.SoapAction + "\n";
835 req += "Content-Type: text/xml; charset=utf-8\n";
836 req += "Content-Length: " + GetLiteral ("string") + "\n";
837 req += "Host: " + GetLiteral ("string") + "\n\n";
841 req += "HTTP/1.0 200 OK\n";
842 req += "Content-Type: text/xml; charset=utf-8\n";
843 req += "Content-Length: " + GetLiteral ("string") + "\n\n";
846 req += GenerateSoapMessage (obin, oper, msg);
850 public string GenerateHttpGetMessage (Port port, OperationBinding obin, Operation oper, OperationMessage msg)
854 if (msg is OperationInput)
856 HttpAddressBinding sab = port.Extensions.Find (typeof(HttpAddressBinding)) as HttpAddressBinding;
857 HttpOperationBinding sob = obin.Extensions.Find (typeof(HttpOperationBinding)) as HttpOperationBinding;
858 string location = new Uri (sab.Location).AbsolutePath + sob.Location + "?" + BuildQueryString (msg);
859 req += "GET " + location + "\n";
860 req += "Host: " + GetLiteral ("string");
864 req += "HTTP/1.0 200 OK\n";
865 req += "Content-Type: text/xml; charset=utf-8\n";
866 req += "Content-Length: " + GetLiteral ("string") + "\n\n";
868 MimeXmlBinding mxb = (MimeXmlBinding) obin.Output.Extensions.Find (typeof(MimeXmlBinding)) as MimeXmlBinding;
869 if (mxb == null) return req;
871 Message message = descriptions.GetMessage (msg.Message);
872 XmlQualifiedName ename = null;
873 foreach (MessagePart part in message.Parts)
874 if (part.Name == mxb.Part) ename = part.Element;
876 if (ename == null) return req + GetLiteral("string");
878 StringWriter sw = new StringWriter ();
879 XmlTextWriter xtw = new XmlTextWriter (sw);
880 xtw.Formatting = Formatting.Indented;
881 currentUse = SoapBindingUse.Literal;
882 WriteRootElementSample (xtw, ename);
884 req += sw.ToString ();
890 public string GenerateHttpPostMessage (Port port, OperationBinding obin, Operation oper, OperationMessage msg)
894 if (msg is OperationInput)
896 HttpAddressBinding sab = port.Extensions.Find (typeof(HttpAddressBinding)) as HttpAddressBinding;
897 HttpOperationBinding sob = obin.Extensions.Find (typeof(HttpOperationBinding)) as HttpOperationBinding;
898 string location = new Uri (sab.Location).AbsolutePath + sob.Location;
899 req += "POST " + location + "\n";
900 req += "Content-Type: application/x-www-form-urlencoded\n";
901 req += "Content-Length: " + GetLiteral ("string") + "\n";
902 req += "Host: " + GetLiteral ("string") + "\n\n";
903 req += BuildQueryString (msg);
905 else return GenerateHttpGetMessage (port, obin, oper, msg);
910 string BuildQueryString (OperationMessage opm)
913 Message msg = descriptions.GetMessage (opm.Message);
914 foreach (MessagePart part in msg.Parts)
916 if (s.Length != 0) s += "&";
917 s += part.Name + "=" + GetLiteral (part.Type.Name);
922 public string GenerateSoapMessage (OperationBinding obin, Operation oper, OperationMessage msg)
924 SoapOperationBinding sob = obin.Extensions.Find (typeof(SoapOperationBinding)) as SoapOperationBinding;
925 SoapBindingStyle style = (sob != null) ? sob.Style : SoapBindingStyle.Document;
927 MessageBinding msgbin = (msg is OperationInput) ? (MessageBinding) obin.Input : (MessageBinding)obin.Output;
928 SoapBodyBinding sbb = msgbin.Extensions.Find (typeof(SoapBodyBinding)) as SoapBodyBinding;
929 SoapBindingUse bodyUse = (sbb != null) ? sbb.Use : SoapBindingUse.Literal;
931 StringWriter sw = new StringWriter ();
932 XmlTextWriter xtw = new XmlTextWriter (sw);
933 xtw.Formatting = Formatting.Indented;
935 xtw.WriteStartDocument ();
936 xtw.WriteStartElement ("soap", "Envelope", SoapEnvelopeNamespace);
937 xtw.WriteAttributeString ("xmlns", "xsi", null, XmlSchema.InstanceNamespace);
938 xtw.WriteAttributeString ("xmlns", "xsd", null, XmlSchema.Namespace);
940 if (bodyUse == SoapBindingUse.Encoded)
942 xtw.WriteAttributeString ("xmlns", "soapenc", null, SoapEncodingNamespace);
943 xtw.WriteAttributeString ("xmlns", "tns", null, msg.Message.Namespace);
948 bool writtenHeader = false;
949 foreach (object ob in msgbin.Extensions)
951 SoapHeaderBinding hb = ob as SoapHeaderBinding;
952 if (hb == null) continue;
954 if (!writtenHeader) {
955 xtw.WriteStartElement ("soap", "Header", SoapEnvelopeNamespace);
956 writtenHeader = true;
959 WriteHeader (xtw, hb);
963 xtw.WriteEndElement ();
966 xtw.WriteStartElement ("soap", "Body", SoapEnvelopeNamespace);
968 currentUse = bodyUse;
969 WriteBody (xtw, oper, msg, sbb, style);
971 xtw.WriteEndElement ();
972 xtw.WriteEndElement ();
974 return sw.ToString ();
977 void WriteHeader (XmlTextWriter xtw, SoapHeaderBinding header)
979 Message msg = descriptions.GetMessage (header.Message);
980 if (msg == null) throw new InvalidOperationException ("Message " + header.Message + " not found");
981 MessagePart part = msg.Parts [header.Part];
982 if (part == null) throw new InvalidOperationException ("Message part " + header.Part + " not found in message " + header.Message);
984 currentUse = header.Use;
986 if (currentUse == SoapBindingUse.Literal)
987 WriteRootElementSample (xtw, part.Element);
989 WriteTypeSample (xtw, part.Type);
992 void WriteBody (XmlTextWriter xtw, Operation oper, OperationMessage opm, SoapBodyBinding sbb, SoapBindingStyle style)
994 Message msg = descriptions.GetMessage (opm.Message);
995 if (msg.Parts.Count > 0 && msg.Parts[0].Name == "parameters")
997 MessagePart part = msg.Parts[0];
998 if (part.Element == XmlQualifiedName.Empty)
999 WriteTypeSample (xtw, part.Type);
1001 WriteRootElementSample (xtw, part.Element);
1005 string elemName = oper.Name;
1007 if (opm is OperationOutput) elemName += "Response";
1009 if (style == SoapBindingStyle.Rpc) {
1010 xtw.WriteStartElement (elemName, sbb.Namespace);
1014 foreach (MessagePart part in msg.Parts)
1016 if (part.Element == XmlQualifiedName.Empty)
1018 XmlSchemaElement elem = new XmlSchemaElement ();
1019 elem.SchemaTypeName = part.Type;
1020 elem.Name = part.Name;
1021 WriteElementSample (xtw, ns, elem);
1024 WriteRootElementSample (xtw, part.Element);
1027 if (style == SoapBindingStyle.Rpc)
1028 xtw.WriteEndElement ();
1030 WriteQueuedTypeSamples (xtw);
1033 void WriteRootElementSample (XmlTextWriter xtw, XmlQualifiedName qname)
1035 XmlSchemaElement elem = (XmlSchemaElement) schemas.Find (qname, typeof(XmlSchemaElement));
1036 if (elem == null) throw new InvalidOperationException ("Element not found: " + qname);
1037 WriteElementSample (xtw, qname.Namespace, elem);
1040 void WriteElementSample (XmlTextWriter xtw, string ns, XmlSchemaElement elem)
1042 bool sharedAnnType = false;
1043 XmlQualifiedName root;
1045 if (!elem.RefName.IsEmpty) {
1046 XmlSchemaElement refElem = FindRefElement (elem);
1047 if (refElem == null) throw new InvalidOperationException ("Global element not found: " + elem.RefName);
1048 root = elem.RefName;
1050 sharedAnnType = true;
1053 root = new XmlQualifiedName (elem.Name, ns);
1055 if (!elem.SchemaTypeName.IsEmpty)
1057 XmlSchemaComplexType st = FindComplexTyype (elem.SchemaTypeName);
1059 WriteComplexTypeSample (xtw, st, root);
1062 xtw.WriteStartElement (root.Name, root.Namespace);
1063 if (currentUse == SoapBindingUse.Encoded)
1064 xtw.WriteAttributeString ("type", XmlSchema.InstanceNamespace, GetQualifiedNameString (xtw, elem.SchemaTypeName));
1065 xtw.WriteString (GetLiteral (FindBuiltInType (elem.SchemaTypeName)));
1066 xtw.WriteEndElement ();
1069 else if (elem.SchemaType == null)
1071 xtw.WriteStartElement ("any");
1072 xtw.WriteEndElement ();
1075 WriteComplexTypeSample (xtw, (XmlSchemaComplexType) elem.SchemaType, root);
1078 void WriteTypeSample (XmlTextWriter xtw, XmlQualifiedName qname)
1080 XmlSchemaComplexType ctype = FindComplexTyype (qname);
1081 if (ctype != null) {
1082 WriteComplexTypeSample (xtw, ctype, qname);
1086 XmlSchemaSimpleType stype = (XmlSchemaSimpleType) schemas.Find (qname, typeof(XmlSchemaSimpleType));
1087 if (stype != null) {
1088 WriteSimpleTypeSample (xtw, stype);
1092 xtw.WriteString (GetLiteral (FindBuiltInType (qname)));
1093 throw new InvalidOperationException ("Type not found: " + qname);
1096 void WriteComplexTypeSample (XmlTextWriter xtw, XmlSchemaComplexType stype, XmlQualifiedName rootName)
1098 WriteComplexTypeSample (xtw, stype, rootName, -1);
1101 void WriteComplexTypeSample (XmlTextWriter xtw, XmlSchemaComplexType stype, XmlQualifiedName rootName, int id)
1103 string ns = rootName.Namespace;
1105 if (rootName.Name.IndexOf ("[]") != -1) rootName = arrayType;
1107 if (currentUse == SoapBindingUse.Encoded) {
1108 string pref = xtw.LookupPrefix (rootName.Namespace);
1109 if (pref == null) pref = "q1";
1110 xtw.WriteStartElement (pref, rootName.Name, rootName.Namespace);
1114 xtw.WriteStartElement (rootName.Name, rootName.Namespace);
1118 xtw.WriteAttributeString ("id", "id" + id);
1119 if (rootName != arrayType)
1120 xtw.WriteAttributeString ("type", XmlSchema.InstanceNamespace, GetQualifiedNameString (xtw, rootName));
1123 WriteComplexTypeAttributes (xtw, stype);
1124 WriteComplexTypeElements (xtw, ns, stype);
1126 xtw.WriteEndElement ();
1129 void WriteComplexTypeAttributes (XmlTextWriter xtw, XmlSchemaComplexType stype)
1131 WriteAttributes (xtw, stype.Attributes, stype.AnyAttribute);
1134 Dictionary<XmlSchemaComplexType,int> recursed_types = new Dictionary<XmlSchemaComplexType,int> ();
1135 void WriteComplexTypeElements (XmlTextWriter xtw, string ns, XmlSchemaComplexType stype)
1138 if (recursed_types.ContainsKey (stype))
1139 prev = recursed_types [stype];
1143 recursed_types [stype] = ++prev;
1145 if (stype.Particle != null)
1146 WriteParticleComplexContent (xtw, ns, stype.Particle);
1149 if (stype.ContentModel is XmlSchemaSimpleContent)
1150 WriteSimpleContent (xtw, (XmlSchemaSimpleContent)stype.ContentModel);
1151 else if (stype.ContentModel is XmlSchemaComplexContent)
1152 WriteComplexContent (xtw, ns, (XmlSchemaComplexContent)stype.ContentModel);
1154 prev = recursed_types [stype];
1155 recursed_types [stype] = --prev;
1158 void WriteAttributes (XmlTextWriter xtw, XmlSchemaObjectCollection atts, XmlSchemaAnyAttribute anyat)
1160 foreach (XmlSchemaObject at in atts)
1162 if (at is XmlSchemaAttribute)
1165 XmlSchemaAttribute attr = (XmlSchemaAttribute)at;
1166 XmlSchemaAttribute refAttr = attr;
1168 // refAttr.Form; TODO
1170 if (!attr.RefName.IsEmpty) {
1171 refAttr = FindRefAttribute (attr.RefName);
1172 if (refAttr == null) throw new InvalidOperationException ("Global attribute not found: " + attr.RefName);
1176 if (!refAttr.SchemaTypeName.IsEmpty) val = FindBuiltInType (refAttr.SchemaTypeName);
1177 else val = FindBuiltInType ((XmlSchemaSimpleType) refAttr.SchemaType);
1179 xtw.WriteAttributeString (refAttr.Name, val);
1181 else if (at is XmlSchemaAttributeGroupRef)
1183 XmlSchemaAttributeGroupRef gref = (XmlSchemaAttributeGroupRef)at;
1184 XmlSchemaAttributeGroup grp = (XmlSchemaAttributeGroup) schemas.Find (gref.RefName, typeof(XmlSchemaAttributeGroup));
1185 WriteAttributes (xtw, grp.Attributes, grp.AnyAttribute);
1190 xtw.WriteAttributeString ("custom-attribute","value");
1193 void WriteParticleComplexContent (XmlTextWriter xtw, string ns, XmlSchemaParticle particle)
1195 WriteParticleContent (xtw, ns, particle, false);
1198 void WriteParticleContent (XmlTextWriter xtw, string ns, XmlSchemaParticle particle, bool multiValue)
1200 if (particle is XmlSchemaGroupRef)
1201 particle = GetRefGroupParticle ((XmlSchemaGroupRef)particle);
1203 if (particle.MaxOccurs > 1) multiValue = true;
1205 if (particle is XmlSchemaSequence) {
1206 WriteSequenceContent (xtw, ns, ((XmlSchemaSequence)particle).Items, multiValue);
1208 else if (particle is XmlSchemaChoice) {
1209 if (((XmlSchemaChoice)particle).Items.Count == 1)
1210 WriteSequenceContent (xtw, ns, ((XmlSchemaChoice)particle).Items, multiValue);
1212 WriteChoiceContent (xtw, ns, (XmlSchemaChoice)particle, multiValue);
1214 else if (particle is XmlSchemaAll) {
1215 WriteSequenceContent (xtw, ns, ((XmlSchemaAll)particle).Items, multiValue);
1219 void WriteSequenceContent (XmlTextWriter xtw, string ns, XmlSchemaObjectCollection items, bool multiValue)
1221 foreach (XmlSchemaObject item in items)
1222 WriteContentItem (xtw, ns, item, multiValue);
1225 void WriteContentItem (XmlTextWriter xtw, string ns, XmlSchemaObject item, bool multiValue)
1227 if (item is XmlSchemaGroupRef)
1228 item = GetRefGroupParticle ((XmlSchemaGroupRef)item);
1230 if (item is XmlSchemaElement)
1232 XmlSchemaElement elem = (XmlSchemaElement) item;
1233 XmlSchemaElement refElem;
1234 if (!elem.RefName.IsEmpty) refElem = FindRefElement (elem);
1235 else refElem = elem;
1237 int num = (elem.MaxOccurs == 1 && !multiValue) ? 1 : 2;
1238 for (int n=0; n<num; n++)
1240 if (currentUse == SoapBindingUse.Literal)
1241 WriteElementSample (xtw, ns, refElem);
1243 WriteRefTypeSample (xtw, ns, refElem);
1246 else if (item is XmlSchemaAny)
1248 xtw.WriteString (GetLiteral ("xml"));
1250 else if (item is XmlSchemaParticle) {
1251 WriteParticleContent (xtw, ns, (XmlSchemaParticle)item, multiValue);
1255 void WriteChoiceContent (XmlTextWriter xtw, string ns, XmlSchemaChoice choice, bool multiValue)
1257 foreach (XmlSchemaObject item in choice.Items)
1258 WriteContentItem (xtw, ns, item, multiValue);
1261 void WriteSimpleContent (XmlTextWriter xtw, XmlSchemaSimpleContent content)
1263 XmlSchemaSimpleContentExtension ext = content.Content as XmlSchemaSimpleContentExtension;
1265 WriteAttributes (xtw, ext.Attributes, ext.AnyAttribute);
1267 XmlQualifiedName qname = GetContentBaseType (content.Content);
1268 xtw.WriteString (GetLiteral (FindBuiltInType (qname)));
1271 string FindBuiltInType (XmlQualifiedName qname)
1273 if (qname.Namespace == XmlSchema.Namespace)
1276 XmlSchemaComplexType ct = FindComplexTyype (qname);
1279 XmlSchemaSimpleContent sc = ct.ContentModel as XmlSchemaSimpleContent;
1280 if (sc == null) throw new InvalidOperationException ("Invalid schema");
1281 return FindBuiltInType (GetContentBaseType (sc.Content));
1284 XmlSchemaSimpleType st = (XmlSchemaSimpleType) schemas.Find (qname, typeof(XmlSchemaSimpleType));
1286 return FindBuiltInType (st);
1288 throw new InvalidOperationException ("Definition of type " + qname + " not found");
1291 string FindBuiltInType (XmlSchemaSimpleType st)
1293 if (st.Content is XmlSchemaSimpleTypeRestriction) {
1294 return FindBuiltInType (GetContentBaseType (st.Content));
1296 else if (st.Content is XmlSchemaSimpleTypeList) {
1297 string s = FindBuiltInType (GetContentBaseType (st.Content));
1298 return s + " " + s + " ...";
1300 else if (st.Content is XmlSchemaSimpleTypeUnion)
1302 //Check if all types of the union are equal. If not, then will use anyType.
1303 XmlSchemaSimpleTypeUnion uni = (XmlSchemaSimpleTypeUnion) st.Content;
1304 string utype = null;
1306 // Anonymous types are unique
1307 if (uni.BaseTypes.Count != 0 && uni.MemberTypes.Length != 0)
1310 foreach (XmlQualifiedName mt in uni.MemberTypes)
1312 string qn = FindBuiltInType (mt);
1313 if (utype != null && qn != utype) return "string";
1323 XmlQualifiedName GetContentBaseType (XmlSchemaObject ob)
1325 if (ob is XmlSchemaSimpleContentExtension)
1326 return ((XmlSchemaSimpleContentExtension)ob).BaseTypeName;
1327 else if (ob is XmlSchemaSimpleContentRestriction)
1328 return ((XmlSchemaSimpleContentRestriction)ob).BaseTypeName;
1329 else if (ob is XmlSchemaSimpleTypeRestriction)
1330 return ((XmlSchemaSimpleTypeRestriction)ob).BaseTypeName;
1331 else if (ob is XmlSchemaSimpleTypeList)
1332 return ((XmlSchemaSimpleTypeList)ob).ItemTypeName;
1337 void WriteComplexContent (XmlTextWriter xtw, string ns, XmlSchemaComplexContent content)
1339 XmlQualifiedName qname;
1341 XmlSchemaComplexContentExtension ext = content.Content as XmlSchemaComplexContentExtension;
1342 if (ext != null) qname = ext.BaseTypeName;
1344 XmlSchemaComplexContentRestriction rest = (XmlSchemaComplexContentRestriction)content.Content;
1345 qname = rest.BaseTypeName;
1346 if (qname == arrayType) {
1347 ParseArrayType (rest, out qname);
1348 XmlSchemaElement elem = new XmlSchemaElement ();
1350 elem.SchemaTypeName = qname;
1352 xtw.WriteAttributeString ("arrayType", SoapEncodingNamespace, qname.Name + "[2]");
1353 WriteContentItem (xtw, ns, elem, true);
1358 // Add base map members to this map
1359 XmlSchemaComplexType ctype = FindComplexTyype (qname);
1360 WriteComplexTypeAttributes (xtw, ctype);
1363 // Add the members of this map
1364 WriteAttributes (xtw, ext.Attributes, ext.AnyAttribute);
1365 if (ext.Particle != null)
1366 WriteParticleComplexContent (xtw, ns, ext.Particle);
1369 WriteComplexTypeElements (xtw, ns, ctype);
1372 void ParseArrayType (XmlSchemaComplexContentRestriction rest, out XmlQualifiedName qtype)
1374 XmlSchemaAttribute arrayTypeAt = FindArrayAttribute (rest.Attributes);
1375 XmlAttribute[] uatts = arrayTypeAt.UnhandledAttributes;
1376 if (uatts == null || uatts.Length == 0) throw new InvalidOperationException ("arrayType attribute not specified in array declaration");
1378 XmlAttribute xat = null;
1379 foreach (XmlAttribute at in uatts)
1380 if (at.LocalName == "arrayType" && at.NamespaceURI == WsdlNamespace)
1381 { xat = at; break; }
1384 throw new InvalidOperationException ("arrayType attribute not specified in array declaration");
1386 string arrayType = xat.Value;
1388 int i = arrayType.LastIndexOf (":");
1389 if (i == -1) ns = "";
1390 else ns = arrayType.Substring (0,i);
1392 int j = arrayType.IndexOf ("[", i+1);
1393 if (j == -1) throw new InvalidOperationException ("Cannot parse WSDL array type: " + arrayType);
1394 type = arrayType.Substring (i+1);
1395 type = type.Substring (0, type.Length-2);
1397 qtype = new XmlQualifiedName (type, ns);
1400 XmlSchemaAttribute FindArrayAttribute (XmlSchemaObjectCollection atts)
1402 foreach (object ob in atts)
1404 XmlSchemaAttribute att = ob as XmlSchemaAttribute;
1405 if (att != null && att.RefName == arrayTypeRefName) return att;
1407 XmlSchemaAttributeGroupRef gref = ob as XmlSchemaAttributeGroupRef;
1410 XmlSchemaAttributeGroup grp = (XmlSchemaAttributeGroup) schemas.Find (gref.RefName, typeof(XmlSchemaAttributeGroup));
1411 att = FindArrayAttribute (grp.Attributes);
1412 if (att != null) return att;
1418 void WriteSimpleTypeSample (XmlTextWriter xtw, XmlSchemaSimpleType stype)
1420 xtw.WriteString (GetLiteral (FindBuiltInType (stype)));
1423 XmlSchemaParticle GetRefGroupParticle (XmlSchemaGroupRef refGroup)
1425 XmlSchemaGroup grp = (XmlSchemaGroup) schemas.Find (refGroup.RefName, typeof (XmlSchemaGroup));
1426 return grp.Particle;
1429 XmlSchemaElement FindRefElement (XmlSchemaElement elem)
1431 if (elem.RefName.Namespace == XmlSchema.Namespace)
1433 if (anyElement != null) return anyElement;
1434 anyElement = new XmlSchemaElement ();
1435 anyElement.Name = "any";
1436 anyElement.SchemaTypeName = anyType;
1439 return (XmlSchemaElement) schemas.Find (elem.RefName, typeof(XmlSchemaElement));
1442 XmlSchemaAttribute FindRefAttribute (XmlQualifiedName refName)
1444 if (refName.Namespace == XmlSchema.Namespace)
1446 XmlSchemaAttribute at = new XmlSchemaAttribute ();
1447 at.Name = refName.Name;
1448 at.SchemaTypeName = new XmlQualifiedName ("string",XmlSchema.Namespace);
1451 return (XmlSchemaAttribute) schemas.Find (refName, typeof(XmlSchemaAttribute));
1454 void WriteRefTypeSample (XmlTextWriter xtw, string ns, XmlSchemaElement elem)
1456 if (elem.SchemaTypeName.Namespace == XmlSchema.Namespace || schemas.Find (elem.SchemaTypeName, typeof(XmlSchemaSimpleType)) != null)
1457 WriteElementSample (xtw, ns, elem);
1460 xtw.WriteStartElement (elem.Name, ns);
1461 xtw.WriteAttributeString ("href", "#id" + (queue.Count+1));
1462 xtw.WriteEndElement ();
1463 queue.Add (new EncodedType (ns, elem));
1467 void WriteQueuedTypeSamples (XmlTextWriter xtw)
1469 for (int n=0; n<queue.Count; n++)
1471 EncodedType ec = (EncodedType) queue[n];
1472 XmlSchemaComplexType st = FindComplexTyype (ec.Element.SchemaTypeName);
1473 WriteComplexTypeSample (xtw, st, ec.Element.SchemaTypeName, n+1);
1477 XmlSchemaComplexType FindComplexTyype (XmlQualifiedName qname)
1479 if (qname.Name.IndexOf ("[]") != -1)
1481 XmlSchemaComplexType stype = new XmlSchemaComplexType ();
1482 stype.ContentModel = new XmlSchemaComplexContent ();
1484 XmlSchemaComplexContentRestriction res = new XmlSchemaComplexContentRestriction ();
1485 stype.ContentModel.Content = res;
1486 res.BaseTypeName = arrayType;
1488 XmlSchemaAttribute att = new XmlSchemaAttribute ();
1489 att.RefName = arrayTypeRefName;
1490 res.Attributes.Add (att);
1492 XmlAttribute xat = document.CreateAttribute ("arrayType", WsdlNamespace);
1493 xat.Value = qname.Namespace + ":" + qname.Name;
1494 att.UnhandledAttributes = new XmlAttribute[] {xat};
1498 return (XmlSchemaComplexType) schemas.Find (qname, typeof(XmlSchemaComplexType));
1501 string GetQualifiedNameString (XmlTextWriter xtw, XmlQualifiedName qname)
1503 string pref = xtw.LookupPrefix (qname.Namespace);
1504 if (pref != null) return pref + ":" + qname.Name;
1506 xtw.WriteAttributeString ("xmlns", "q1", null, qname.Namespace);
1507 return "q1:" + qname.Name;
1510 protected virtual string GetLiteral (string s)
1515 void GetOperationFormat (OperationBinding obin, out SoapBindingStyle style, out SoapBindingUse use)
1517 style = SoapBindingStyle.Document;
1518 use = SoapBindingUse.Literal;
1519 SoapOperationBinding sob = obin.Extensions.Find (typeof(SoapOperationBinding)) as SoapOperationBinding;
1522 SoapBodyBinding sbb = obin.Input.Extensions.Find (typeof(SoapBodyBinding)) as SoapBodyBinding;
1535 <head runat="server">
1537 Response.Write ("<link rel=\"alternate\" type=\"text/xml\" href=\"" + Request.FilePath + "?disco\"/>");
1539 <title><%=WebServiceName%> Web Service</title>
1540 <style type="text/css">
1541 BODY { font-family: Arial; margin-left: 20px; margin-top: 20px; font-size: x-small}
1542 TABLE { font-size: x-small }
1543 .title { color:dimgray; font-family: Arial; font-size:20pt; font-weight:900}
1544 .operationTitle { color:dimgray; font-family: Arial; font-size:15pt; font-weight:900}
1545 .method { font-size: x-small }
1546 .bindingLabel { font-size: x-small; font-weight:bold; color:darkgray; line-height:8pt; display:block; margin-bottom:3px }
1547 .label { font-size: small; font-weight:bold; color:darkgray }
1548 .paramTable { font-size: x-small }
1549 .paramTable TR { background-color: gainsboro }
1550 .paramFormTable { font-size: x-small; padding: 10px; background-color: gainsboro }
1551 .paramFormTable TR { background-color: gainsboro }
1552 .paramInput { border: solid 1px gray }
1553 .button {border: solid 1px gray }
1554 .smallSeparator { height:3px; overflow:hidden }
1555 .panel { background-color:whitesmoke; border: solid 1px silver; border-top: solid 1px silver }
1556 .codePanel { background-color: white; font-size:x-small; padding:7px; border:solid 1px silver}
1557 .code-xml { font-size:10pt; font-family:courier }
1558 .code-cs { font-size:10pt; font-family:courier }
1559 .code-vb { font-size:10pt; font-family:courier }
1560 .tabLabelOn { font-weight:bold }
1561 .tabLabelOff {color: darkgray }
1562 .literal-placeholder {color: darkblue; font-weight:bold}
1563 A:link { color: black; }
1564 A:visited { color: black; }
1565 A:active { color: black; }
1566 A:hover { color: blue }
1569 <script language="javascript" type="text/javascript">
1571 function getXML (command, url, qs) {
1572 if (url == "" || url.substring (0, 4) != "http")
1575 var post_data = null;
1577 req.onreadystatechange = stateChange;
1578 if (command == "GET") {
1579 url = url + "?" + qs;
1583 req.open (command, url, true);
1584 if (command == "POST")
1585 req.setRequestHeader ("Content-Type", "application/x-www-form-urlencoded");
1586 req.send (post_data);
1589 function stateChange () {
1590 if (req.readyState == 4) {
1591 var node = document.getElementById("testresult_div");
1593 if (req.status == 200) {
1594 node.innerHTML = "<div class='code-xml'>" + formatXml (req.responseText) + "</div>";
1596 var ht = "<b style='color: red'>" + formatXml (req.status + " - " + req.statusText) + "</b>";
1597 if (req.responseText != "")
1598 ht = ht + "\n<div class='code-xml'>" + formatXml (req.responseText) + "</div>";
1599 node.innerHTML = ht;
1605 function formatXml (text)
1608 text = text.replace (re, " ");
1611 text = text.replace (re, " ");
1613 re = /\<\s*(\/?)\s*(.*?)\s*(\/?)\s*\>/g;
1614 text = text.replace (re,"{blue:<$1}{maroon:$2}{blue:$3>}");
1616 re = /{(\w*):(.*?)}/g;
1617 text = text.replace (re,"<span style='color:$1'>$2</span>");
1620 text = text.replace (re,"\"<span style='color:purple'>$1</span>\"");
1623 text = text.replace (re, "<br/>");
1628 function getReq () {
1629 if (window.XMLHttpRequest) {
1630 return new XMLHttpRequest(); // Firefox, Safari, ...
1631 } else if (window.ActiveXObject) {
1632 return new ActiveXObject("Microsoft.XMLHTTP");
1636 function clearForm ()
1638 document.getElementById("testFormResult").style.display="none";
1645 <div class="title" style="margin-left:20px">
1646 <span class="label">Web Service</span><br>
1651 **********************************************************
1655 <table border="0" width="100%" cellpadding="15px" cellspacing="15px">
1656 <tr valign="top"><td width="150px" class="panel">
1657 <div style="width:150px"></div>
1658 <a class="method" href='<%=PageName%>'>Overview</a><br>
1659 <div class="smallSeparator"></div>
1660 <a class="method" href='<%=PageName + "?" + GetPageContext("wsdl")%>'>Service Description</a>
1661 <div class="smallSeparator"></div>
1662 <a class="method" href='<%=PageName + "?" + GetPageContext("proxy")%>'>Client proxy</a>
1664 <asp:repeater id="BindingsRepeater" runat=server>
1665 <itemtemplate name="itemtemplate">
1666 <span class="bindingLabel"><%#FormatBindingName(DataBinder.Eval(Container.DataItem, "Name").ToString())%></span>
1667 <asp:repeater id="OperationsRepeater" runat=server datasource='<%# ((Binding)Container.DataItem).Operations %>'>
1669 <a class="method" href="<%=PageName%>?<%=GetTabContext("op",null)%>op=<%#GetOpName(Container.DataItem)%>&bnd=<%#DataBinder.Eval(Container.DataItem, "Binding.Name")%>"><%#GetOpName(Container.DataItem)%></a>
1670 <div class="smallSeparator"></div>
1677 </td><td class="panel">
1679 <% if (CurrentPage == "main") {%>
1682 **********************************************************
1683 Web service overview
1686 <p class="label">Web Service Overview</p>
1687 <%=WebServiceDescription%>
1689 <% if (ProfileViolations != null && ProfileViolations.Count > 0) { %>
1690 <p class="label">Basic Profile Conformance</p>
1691 This web service does not conform to WS-I Basic Profile v1.1
1693 Response.Write ("<ul>");
1694 foreach (BasicProfileViolation vio in ProfileViolations) {
1695 Response.Write ("<li><b>" + vio.NormativeStatement + "</b>: " + vio.Details);
1696 Response.Write ("<ul>");
1697 foreach (string ele in vio.Elements)
1698 Response.Write ("<li>" + ele + "</li>");
1699 Response.Write ("</ul>");
1700 Response.Write ("</li>");
1702 Response.Write ("</ul>");
1705 <%} if (DefaultBinding == null) {%>
1706 This service does not contain any public web method.
1707 <%} else if (CurrentPage == "op") {%>
1710 **********************************************************
1711 Operation description
1714 <span class="operationTitle"><%=CurrentOperationName%></span>
1719 <% if (CurrentTab == "main") { %>
1720 <span class="label">Input Parameters</span>
1721 <div class="smallSeparator"></div>
1722 <% if (InParams.Count == 0) { %>
1723 No input parameters<br>
1725 <table class="paramTable" cellspacing="1" cellpadding="5">
1726 <asp:repeater id="InputParamsRepeater" runat=server>
1729 <td width="150"><%#DataBinder.Eval(Container.DataItem, "Name")%></td>
1730 <td width="150"><%#DataBinder.Eval(Container.DataItem, "Type")%></td>
1738 <% if (OutParams.Count > 0) { %>
1739 <span class="label">Output Parameters</span>
1740 <div class="smallSeparator"></div>
1741 <table class="paramTable" cellspacing="1" cellpadding="5">
1742 <asp:repeater id="OutputParamsRepeater" runat=server>
1745 <td width="150"><%#DataBinder.Eval(Container.DataItem, "Name")%></td>
1746 <td width="150"><%#DataBinder.Eval(Container.DataItem, "Type")%></td>
1754 <span class="label">Remarks</span>
1755 <div class="smallSeparator"></div>
1756 <%=OperationDocumentation%>
1758 <span class="label">Technical information</span>
1759 <div class="smallSeparator"></div>
1760 Format: <%=CurrentOperationFormat%>
1761 <br>Supported protocols: <%=CurrentOperationProtocols%>
1765 **********************************************************
1766 Operation description - Test form
1769 <% if (CurrentTab == "test") {
1770 if (CurrentOperationSupportsTest) {%>
1771 Enter values for the parameters and click the 'Invoke' button to test this method:<br><br>
1772 <form action="<%=PageName%>" method="GET">
1773 <input type="hidden" name="page" value="<%=CurrentPage%>">
1774 <input type="hidden" name="tab" value="<%=CurrentTab%>">
1775 <input type="hidden" name="op" value="<%=CurrentOperationName%>">
1776 <input type="hidden" name="bnd" value="<%=CurrentOperationBinding%>">
1777 <input type="hidden" name="ext" value="testform">
1778 <table class="paramFormTable" cellspacing="0" cellpadding="3">
1779 <asp:repeater id="InputFormParamsRepeater" runat=server>
1782 <td><%#DataBinder.Eval(Container.DataItem, "Name")%>: </td>
1783 <td width="150"><input class="paramInput" type="text" size="20" name="<%#DataBinder.Eval(Container.DataItem, "Name")%>"></td>
1787 <tr><td></td><td><input class="button" type="submit" value="Invoke"> <input class="button" type="button" onclick="clearForm()" value="Clear"></td></tr>
1790 <div id="testFormResult" style="display:<%= (HasFormResult?"block":"none") %>">
1791 The web service returned the following result:<br/><br/>
1792 <div class="codePanel" id="testresult_div">
1794 <script language="javascript">
1795 getXML ("<%= GetOrPost () %>", "<%= GetTestResultUrl () %>", "<%= GetQS () %>");
1799 The test form is not available for this operation because it has parameters with a complex structure.
1804 **********************************************************
1805 Operation description - Message Layout
1808 <% if (CurrentTab == "msg") { %>
1810 The following are sample SOAP requests and responses for each protocol supported by this method:
1813 <% if (IsOperationSupported ("Soap")) { %>
1814 <span class="label">Soap</span>
1816 <div class="codePanel"><div class="code-xml"><%=GenerateOperationMessages ("Soap", true)%></div></div>
1818 <div class="codePanel"><div class="code-xml"><%=GenerateOperationMessages ("Soap", false)%></div></div>
1821 <% if (IsOperationSupported ("HttpGet")) { %>
1822 <span class="label">HTTP Get</span>
1824 <div class="codePanel"><div class="code-xml"><%=GenerateOperationMessages ("HttpGet", true)%></div></div>
1826 <div class="codePanel"><div class="code-xml"><%=GenerateOperationMessages ("HttpGet", false)%></div></div>
1829 <% if (IsOperationSupported ("HttpPost")) { %>
1830 <span class="label">HTTP Post</span>
1832 <div class="codePanel"><div class="code-xml"><%=GenerateOperationMessages ("HttpPost", true)%></div></div>
1834 <div class="codePanel"><div class="code-xml"><%=GenerateOperationMessages ("HttpPost", false)%></div></div>
1839 <%} else if (CurrentPage == "proxy") {%>
1841 **********************************************************
1844 <form action="<%=PageName%>" name="langForm" method="GET">
1845 Select the language for which you want to generate a proxy
1846 <input type="hidden" name="page" value="<%=CurrentPage%>">
1847 <SELECT name="lang" onchange="langForm.submit()">
1848 <%=GetOptionSel("cs",CurrentLanguage)%>C#</option>
1849 <%=GetOptionSel("vb",CurrentLanguage)%>Visual Basic</option>
1854 <span class="label"><%=CurrentProxytName%></span>
1855 <a href="<%=PageName + "?code=" + CurrentLanguage%>">Download</a>
1857 <div class="codePanel">
1858 <div class="code-<%=CurrentLanguage%>"><%=GetProxyCode ()%></div>
1860 <%} else if (CurrentPage == "wsdl") {%>
1862 **********************************************************
1865 <% if (descriptions.Count > 1 || schemas.Count > 1) {%>
1866 The description of this web service is composed by several documents. Click on the document you want to see:
1870 for (int n=0; n<descriptions.Count; n++)
1871 Response.Write ("<li><a href='" + PageName + "?" + GetPageContext(null) + "doctype=wsdl&docind=" + n + "'>WSDL document " + descriptions[n].TargetNamespace + "</a></li>");
1872 for (int n=0; n<schemas.Count; n++)
1873 Response.Write ("<li><a href='" + PageName + "?" + GetPageContext(null) + "doctype=schema&docind=" + n + "'>Xml Schema " + schemas[n].TargetNamespace + "</a></li>");
1880 <span class="label"><%=CurrentDocumentName%></span>
1881 <a href="<%=PageName + "?" + CurrentDocType + "=" + CurrentDocInd %>">Download</a>
1883 <div class="codePanel">
1884 <div class="code-xml"><%=GenerateDocument ()%></div>
1889 <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
1891 <td width="20px"></td>