sprsquish-blather 0.3.4 → 0.4.0

data/ext/push_parser.c

@@ -1,209 +0,0 @@
-/*
- * Most of this was ripped from libxml-ruby's SAX handler
- */
-
-#include <libxml/parser.h>
-#include <ruby.h>
-
-xmlSAXHandler saxHandler;
-
-static VALUE
-push_parser_raise_error (
-  xmlErrorPtr error)
-{
-  rb_raise(rb_eStandardError, "%s", rb_str_new2((const char*)error->message));
-  return Qnil;
-}
-
-static VALUE
-push_parser_initialize (
-  VALUE self,
-  VALUE handler)
-{
-  xmlParserCtxtPtr ctxt;
-  ctxt = xmlCreatePushParserCtxt(&saxHandler, (void *)handler, NULL, 0, NULL);
-  
-  if (!ctxt)
-    return push_parser_raise_error(&xmlLastError);
-
-  ctxt->sax2 = 1;
-
-  rb_iv_set(self, "@__libxml_push_parser", Data_Wrap_Struct(rb_cData, 0, xmlFreeParserCtxt, ctxt));
-
-  return self;
-}
-
-static VALUE
-push_parser_close (
-  VALUE self)
-{
-  xmlParserCtxtPtr ctxt;
-  Data_Get_Struct(rb_iv_get(self, "@__libxml_push_parser"), xmlParserCtxt, ctxt);
-  
-  if (xmlParseChunk(ctxt, "", 0, 1)) {
-    return push_parser_raise_error(&xmlLastError);
-  }
-  else {
-    return Qtrue;
-  }
-}
-
-static VALUE
-push_parser_receive (
-  VALUE self,
-  VALUE chunk)
-{
-  const char *data = StringValuePtr(chunk);
-  int length = RSTRING_LEN(chunk);
-
-  xmlParserCtxtPtr ctxt;
-  Data_Get_Struct(rb_iv_get(self, "@__libxml_push_parser"), xmlParserCtxt, ctxt);
-
-  int i;
-  // Non-chunking version
-  for (i = 0; i < length; i++) {
-    xmlParseChunk (ctxt, data+i, 1, 0);
-  }
-
-  /* Chunk through in 4KB chunks so as not to overwhelm the buffers
-  int chunkSize = length < 4096 ? length : 4096;
-  for (i = 0; i < length; i += chunkSize) {
-    xmlParseChunk(ctxt, data+i, chunkSize, 0);
-  }
-  if ((i -= length) > 0)
-    xmlParseChunk(ctxt, data+(length-i), i, 0);
-  */
-
-  return self;
-}
-
-/*********
- CALLBACKS
-**********/
-static void
-push_parser_start_element_ns_callback (
-  void * ctx,
-  const xmlChar * localname,
-  const xmlChar * prefix,
-  const xmlChar * URI,
-  int nb_namespaces,
-  const xmlChar ** namespaces,
-  int nb_attributes,
-  int nb_defaulted,
-  const xmlChar ** attributes)
-{
-  VALUE handler = (VALUE) ctx;
-  if (handler == Qnil)
-    return;
-
-  VALUE attrHash = rb_hash_new();
-  VALUE nsHash = rb_hash_new();
-
-  if (attributes)
-  {
-    /* Each attribute is an array of [localname, prefix, URI, value, end] */
-    int i;
-    for (i = 0; i < nb_attributes * 5; i += 5)
-    {
-      rb_hash_aset( attrHash,
-                    rb_str_new2((const char*)attributes[i+0]),
-                    rb_str_new((const char*)attributes[i+3], attributes[i+4] - attributes[i+3]));
-    }
-  }
-
-  if (namespaces)
-  {
-    int i;
-    for (i = 0; i < nb_namespaces * 2; i += 2)
-    {
-      rb_hash_aset( nsHash,
-                    namespaces[i+0] ? rb_str_new2((const char*)namespaces[i+0]) : Qnil,
-                    namespaces[i+1] ? rb_str_new2((const char*)namespaces[i+1]) : Qnil);
-    }
-  }
-
-  rb_funcall(handler, rb_intern("on_start_element_ns"), 5, 
-             rb_str_new2((const char*)localname),
-             attrHash,
-             prefix ? rb_str_new2((const char*)prefix) : Qnil,
-             URI ? rb_str_new2((const char*)URI) : Qnil,
-             nsHash);
-}
-
-static void
-push_parser_end_element_ns_callback (
-  void * ctx,
-  const xmlChar * localname,
-  const xmlChar * prefix,
-  const xmlChar * URI)
-{
-  VALUE handler = (VALUE) ctx;
-  if (handler == Qnil)
-    return;
-
-  rb_funcall(handler, rb_intern("on_end_element_ns"), 3, 
-             rb_str_new2((const char*)localname),
-             prefix ? rb_str_new2((const char*)prefix) : Qnil,
-             URI ? rb_str_new2((const char*)URI) : Qnil);
-}
-
-
-static void
-push_parser_characters_callback (
-  void *ctx,
-  const char *chars,
-  int len)
-{
-  VALUE handler = (VALUE) ctx;
-  if (handler != Qnil)
-    rb_funcall (handler, rb_intern("on_characters"), 1, rb_str_new(chars, len));
-}
-
-xmlSAXHandler saxHandler = {
-  0, //internalSubset
-  0, //isStandalone
-  0, //hasInternalSubset
-  0, //hasExternalSubset
-  0, //resolveEntity
-  0, //getEntity
-  0, //entityDecl
-  0, //notationDecl
-  0, //attributeDecl
-  0, //elementDecl
-  0, //unparsedEntityDecl
-  0, //setDocumentLocator
-  0, //(startDocument)
-  0, //(endDocument)
-  0, //startElement
-  0, //endElement
-  0, //reference
-  (charactersSAXFunc) push_parser_characters_callback,
-  0, //ignorableWhitespace
-  0, //processingInstruction
-  0, //comment
-  0, //warning
-  0, //error
-  0, //fatalError
-  0, //getParameterEntity
-  0, //cdataBlock
-  0, //externalSubset
-  XML_SAX2_MAGIC,
-  0, //_private
-  (startElementNsSAX2Func) push_parser_start_element_ns_callback,
-  (endElementNsSAX2Func) push_parser_end_element_ns_callback,
-  0 // LibXML handles this globally
-};
-
-void
-Init_push_parser()
-{
-  /* SaxPushParser */
-  VALUE mLibXML = rb_define_module("LibXML");
-  VALUE mXML = rb_define_module_under(mLibXML, "XML");
-  VALUE cXMLSaxPushParser = rb_define_class_under(mXML, "SaxPushParser", rb_cObject);
-
-  /* Instance Methods */
-  rb_define_method(cXMLSaxPushParser, "initialize", push_parser_initialize, 1);
-  rb_define_method(cXMLSaxPushParser, "receive", push_parser_receive, 1);
-  rb_define_method(cXMLSaxPushParser, "close", push_parser_close, 0);
-}

data/lib/blather/core_ext/libxml.rb

@@ -1,28 +0,0 @@
-module LibXML # :nodoc:
-  module XML # :nodoc:
-
-    class Node
-      alias_method :element_name, :name
-      alias_method :element_name=, :name=
-    end
-
-    class Attributes
-      # Helper method for removing attributes
-      def remove(name)
-        attribute = get_attribute(name.to_s)
-        attribute.remove! if attribute
-      end
-
-      alias_method :old_hash_set, :[]= # :nodoc:
-      def []=(name, val)
-        val.nil? ? remove(name.to_s) : old_hash_set(name.to_s, val.to_s)
-      end
-
-      alias_method :old_hash_get, :[] # :nodoc:
-      def [](name)
-        old_hash_get name.to_s
-      end
-    end #Attributes
-
-  end #XML
-end #LibXML

data/lib/blather/stream/resource.rb

@@ -1,48 +0,0 @@
-module Blather # :nodoc:
-class Stream # :nodoc:
-
-  class Resource < StreamHandler # :nodoc:
-    def initialize(stream, jid)
-      super stream
-      @jid = jid
-    end
-
-  private
-    ##
-    # Respond to the bind request
-    # If @jid has a resource set already request it from the server
-    def bind
-      response = Stanza::Iq.new :set
-      @id = response.id
-
-      binder = XMPPNode.new('bind')
-      binder.namespace = 'urn:ietf:params:xml:ns:xmpp-bind'
-
-      binder << XMPPNode.new('resource', @jid.resource) if @jid.resource
-
-      response << binder
-      @stream.send response
-    end
-
-    ##
-    # Process the result from the server
-    # Sets the sends the JID (now bound to a resource)
-    # back to the stream
-    def result
-      LOG.debug "RESOURE NODE #{@node}"
-      # ensure this is a response to our original request
-      if @id == @node['id']
-        @jid = JID.new @node.find_first('//bind_ns:bind/bind_ns:jid', :bind_ns => 'urn:ietf:params:xml:ns:xmpp-bind').content
-        success @jid
-      end
-    end
-
-    ##
-    # Server returned an error
-    def error
-      failure StanzaError.import(@node)
-    end
-  end #Resource
-
-end #Stream
-end #Blather

data/lib/blather/stream/session.rb

@@ -1,36 +0,0 @@
-module Blather # :nodoc:
-class Stream # :nodoc:
-
-  class Session < StreamHandler # :nodoc:
-    def initialize(stream, to)
-      super stream
-      @to = to
-    end
-
-  private
-    ##
-    # Send a start session command
-    def session
-      response = Stanza::Iq.new :set
-      response.to = @to
-      sess = XMPPNode.new 'session'
-      sess['xmlns'] = 'urn:ietf:params:xml:ns:xmpp-session'
-      response << sess
-      @stream.send response
-    end
-
-    ##
-    # The server should respond with a <result> node if all is well
-    def result
-      success
-    end
-
-    ##
-    # Server returned an error.
-    def error
-      failure StanzaError.import(@node)
-    end
-  end
-
-end
-end

data/lib/blather/stream/stream_handler.rb

@@ -1,39 +0,0 @@
-module Blather # :nodoc:
-class Stream # :nodoc:
-
-  class StreamHandler # :nodoc:
-    def on_success(&block); @success = block; end
-    def on_failure(&block); @failure = block; end
-
-    def initialize(stream)
-      @stream = stream
-    end
-
-    def handle(node)
-      @node = node
-      method = @node.element_name == 'iq' ? @node['type'] : @node.element_name
-      if self.respond_to?(method, true)
-        self.__send__ method
-      else
-        @failure.call UnknownResponse.new(@node)
-      end
-    end
-
-  protected
-    ##
-    # Handle error response from the server
-    def error
-      failure
-    end
-
-    def success(message_back = nil)
-      @success.call message_back
-    end
-
-    def failure(err = nil)
-      @failure.call err
-    end
-  end #StreamHandler
-
-end #Stream
-end #Blather

data/lib/blather/stream/tls.rb

@@ -1,33 +0,0 @@
-module Blather # :nodoc:
-class Stream # :nodoc:
-
-  # TLS negotiation invovles 3 node types:
-  #   * starttls  -- Server asking for TLS to be started
-  #   * proceed   -- Server saying it's ready for a TLS connection to be started
-  #   * failure   -- Failed TLS negotiation. Failure results in a closed connection.
-  #                  so there's no message to pass back to the tream
-  class TLS < StreamHandler # :nodoc:
-  private
-    ##
-    # After receiving <starttls> from the server send one
-    # back to let it know we're ready to start TLS
-    def starttls
-      @stream.send "<starttls xmlns='urn:ietf:params:xml:ns:xmpp-tls'/>"
-    end
-
-    ##
-    # Server's ready for TLS, so start it up
-    def proceed
-      @stream.start_tls
-      success
-    end
-
-    ##
-    # Negotiations failed
-    def failure
-      super StreamError::TLSFailure.new
-    end
-  end #TLS
-
-end #Stream
-end #Blather

data/spec/blather/core_ext/libxml_spec.rb

@@ -1,58 +0,0 @@
-require File.join(File.dirname(__FILE__), *%w[.. .. spec_helper])
-
-describe 'LibXML::XML::Node' do
-  it 'aliases #name to #element_name' do
-    node = LibXML::XML::Node.new 'foo'
-    node.must_respond_to :element_name
-    node.element_name.must_equal node.name
-  end
-
-  it 'aliases #name= to #element_name=' do
-    node = LibXML::XML::Node.new 'foo'
-    node.must_respond_to :element_name=
-    node.element_name.must_equal node.name
-    node.element_name = 'bar'
-    node.element_name.must_equal 'bar'
-  end
-end
-
-describe 'LibXML::XML::Attributes' do
-  it 'provides a helper to remove a specified attribute' do
-    attrs = LibXML::XML::Node.new('foo').attributes
-    attrs['foo'] = 'bar'
-    attrs['foo'].must_equal 'bar'
-    attrs.remove 'foo'
-    attrs['foo'].must_be_nil
-
-    attrs['foo'] = 'bar'
-    attrs['foo'].must_equal 'bar'
-    attrs.remove :foo
-    attrs['foo'].must_be_nil
-  end
-
-  it 'allows symbols as hash keys' do
-    attrs = LibXML::XML::Node.new('foo').attributes
-    attrs['foo'] = 'bar'
-
-    attrs['foo'].must_equal 'bar'
-    attrs[:foo].must_equal 'bar'
-  end
-
-  it 'removes an attribute when set to nil' do
-    attrs = LibXML::XML::Node.new('foo').attributes
-    attrs['foo'] = 'bar'
-
-    attrs['foo'].must_equal 'bar'
-    attrs['foo'] = nil
-    attrs['foo'].must_be_nil
-  end
-
-  it 'allows attribute values to change' do
-    attrs = LibXML::XML::Node.new('foo').attributes
-    attrs['foo'] = 'bar'
-
-    attrs['foo'].must_equal 'bar'
-    attrs['foo'] = 'baz'
-    attrs['foo'].must_equal 'baz'
-  end
-end