init-keywords:
<attribute>:
  name (required)
  default
  required?

<element>
  name (required)
  minimal-occurences
  maximal-occurences
  wrapped-type

define stanza foo ()
  name "foobar";
  namespace "foo:bar";
  attribute barf :: <string>, required?: #t, default: "foobar", name: "barf";
  attribute foofoo :: <string>, name: "foofoo";
  repeated element foobar :: <client-message>, wrapped: <string>, name: "xml:foo";
  element bar :: <string>, minimal: 1, name: "bar";
  sequence {
    element foo :: <string>, wrapped: <client-subject>, name: "foo";
    repeated element fnord :: <string>, maximal: 2, name: "fnord";
    element error :: <string>, name: "error";
  }
end;

define stanza client-message ()
  name "message";
  namespace "jabber:client";
          
  sequence-of { 
    one-of { 
      element subject :: <string>, wrapped: <client-subject>;
      element body :: <string>, wrapped: <client-body>;
      element thread :: <nmtoken>, wrapped: <client-thread>;
    }, min-occurrences: 0, max-occurrences: unbounded; 
    element error :: <string>, wrpaaed: <client-error>, min-occurrences: 0;
  }; 
  attribute from :: <string>;
  attribute id :: <nmtoken>;
  attribute to :: <string>;
  attribute type :: one-of(#"chat", #"error", #"groupchat", #"headline", #"normal"), default: #"normal";
  attribute xml-lang :: <string>, name: "xml-lang";
end;
        
define wrapped stanza client-body ()
  name "body";
  namespace "jabber:client";
  content :: <string>, check: content.size >= 1;
end;
        
define wrapped stanza client-subject ()
  name "subject";
  namespace "jabber:client";
  content :: <string>;
end;
        
define wrapped stanza client-thread ()
  name "thread";
  namespace "jabber:client";
  content :: <nmtoken>;
end;
        
define stanza client-presence ()
  name "presence";
  namespace "jabber:client";
          
  sequence-of { 
    one-of { 
      element show :: wrapped(<client-show>, one-of(#"away", #"chat", #"dnd", #"xa"));
      element status :: wrapped(<client-status>, <string>);
      element priority :: wrapped(<client-priority>, <byte>);
    }, min-occurrences: 0, max-occurrences: unbounded; 
    element error :: wrapped(<client-error>, <string>), min-occurrences: 0;
  }; 
  attribute from :: <string>;
  attribute id :: <nmtoken>;
  attribute to :: <string>;
  attribute type :: one-of(#"error", #"probe", #"subscribe", #"subscribed", #"unavailable", #"unsubscribe", #"unsubscribed");
  attribute xml:lang :: <string>;
end;
        
define wrapped stanza client-show ()
          name "show";
          namespace "jabber:client";
          content :: one-of(#"away", #"chat", #"dnd", #"xa");      
        end;
        
        define wrapped stanza client-status ()
          name "status";
          namespace "jabber:client";
          
      content :: <string>, check: content.size >= 1;
          
        end;
        
        define wrapped stanza client-priority ()
          name "priority";
          namespace "jabber:client";
          content :: <byte>;
                  
        end;
        
        define stanza client-iq ()
          name "iq";
          namespace "jabber:client";
          
      sequence-of { 
        
        
        element error :: wrapped(<client-error>, <string>), min-occurrences: 0;
      }; 
      attribute from :: <string>;
      required attribute id :: <nmtoken>;
      attribute to :: <string>;
      required attribute type :: one-of(#"error", #"get", #"result", #"set");
      attribute xml:lang :: <string>;
          
        end;
        
        define stanza client-error ()
          name "error";
          namespace "jabber:client";
          
      sequence-of { 
        
        
        element text :: wrapped(<client-err:text>, <string>), min-occurrences: 0;
      }; 
      attribute code :: <unsignedshort>;
      required attribute type :: one-of(#"auth", #"cancel", #"continue", #"modify", #"wait");
          
        end;