DZone Snippets: generic code

Update a simple XML file using a generic update method.

jrobertson (James Robertson) — Thu, 22 Nov 2007 15:37:35 GMT

This Ruby code updates an xml file using a method which can be applied where ever a simple struct form is used. ie.



#test.xml = ""



require 'rexml/document'

include REXML



class Update

  def initialize

  end



  def update_item(doc_p, pelement_name)

    #get the target xml file

    file = File.new('test.xml')

    doc = Document.new(file)



    puts doc

    # get a reference to the record

    id = doc_p.root.elements["parameter[@id]"].attributes.get_attribute('id')

    puts id



    node = doc.root.elements[pelement_name + "[@id='#{id}']"]

    puts node

    rnode = map_record(node, doc_p)

    puts doc

  end



  def map_record(o_node, doc_input)

    # set the element values for each field

    doc_input.elements.each('parameters/parameter') do |in_node|

      field = in_node.attributes.get_attribute('field').to_s

      in_node.elements.each('attributes/attribute') do | attributex|

        attribute_name = attributex.attributes.get_attribute('name').to_s

        attribute_value = attributex.attributes.get_attribute('value').to_s

        o_field = o_node.elements[attribute_name]

        o_field.add_attribute(attribute_name, attribute_value)

      end

      map(o_node, field, in_node.attributes.get_attribute('value').to_s)



    end

    o_node

  end

  

  def map(o_node, field, value)

    o_element = o_node.elements[field]

    o_element.text = value

    o_element

  end

  



end



if __FILE__ == $0

  u = Update.new

  doc = Document.new

  parameters = Element.new('parameters')

  parameter = Element.new('parameter')

  parameter.add_attribute('id', '5656')

  parameters.add_element(parameter)

  parameter = Element.new('parameter')

  parameter.add_attribute('field', 'name')

  parameter.add_attribute('value', 'Harovin Gaia')

  parameters.add_element(parameter)

  parameter = Element.new('parameter')

  parameter.add_attribute('field', 'region')

  parameter.add_attribute('value', 'Niagara')

  parameters.add_element(parameter)

  doc.add_element(parameters)

  u.update_item(doc, 'pear')

  puts doc

end



Generic XHTML template
peter (Peter Cooperx) — Wed, 17 Aug 2005 23:58:16 GMT
I'm often having to reconstruct this, as I can no longer memorize everything (just blank HTML and BODY tags used to be acceptable ;-)) with the DOCTYPE and namespaces.. so to make it easier to grab in future:



       "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">





	

		

		

		

		

	



	

		



			

			



			

				

					

				

			



			

			

			

		

	






Generic layout RHTML for Rails apps
peter (Peter Cooperx) — Fri, 05 Aug 2005 04:25:40 GMT
This will not be 100% for everyone, but I use it for most of my apps and it does all the most important stuff I can't be bothered to retype each time.



(Updated August 2006 to slightly more up to date standards!)



       "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">







	<%= @page_title %>

	

	<%= stylesheet_link_tag "main" %>

	<%= javascript_include_tag :defaults %>





 class="<%= @page_class %>"<% end %>>



	<% unless session[:user_id] %><%= render :partial => "generic/loginstuff" -%><% end %>



	

	

		

		

	

		<% unless @message_override && @message_override == 1 %><%= render :partial => "generic/messageboxes" %><% end %>

	

		

			<%= yield %>

		

	

		

		

	

	








generic object
tomp (tomp) — Fri, 08 Apr 2005 18:00:28 GMT
a generic object type thing for perl where you can use setanything and getanything to set and get properties via the AUTOLOAD method.



package thing;



use strict;



sub new {

	my %self;

	my ($class,@rest) = @_;

	unless ($#rest%2) { die "Odd parameter count\n"}

	for (my $k=0; $k<@rest; $k+=2) {

		my $wotsit = lc($rest[$k]);

		$wotsit =~ s/-//;

		$self{$wotsit} = $rest[$k+1];

		}

	bless \%self,$class;

}



sub AUTOLOAD {

        my ($where,$val) = @_;

        our $AUTOLOAD;

        $AUTOLOAD =~ s/.*://;

        my ($dirn,$what) = ($AUTOLOAD =~ /(...)(.*)/);

        if ($dirn eq "get") {

                return $$where{lc($what)};

        } elsif ($dirn eq "set") {

                $$where{lc($what)} = $val;

        }

        return 1;

}



1;







Here's a quick example of usage



use thing



$house = new thing("type","building","rooms",12,"foundations", "yes");



print $house -> gettype();

$house -> settype("tree");

print " " . $house -> gettype();