qwikdoc 0.0.1

data/vendor/qwik/mailaddress.rb

@@ -0,0 +1,83 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+
+class MailAddress
+  def self.valid?(mail)
+    return false if mail.nil?
+    return false unless /\A([0-9a-zA-Z_.+-]+)@([0-9a-zA-Z_.-]+)\z/ =~ mail
+    login_part = $1
+    domain_part = $2
+    return false if domain_part.include?('..')
+   #return false if mail.include?('..')
+    return true
+  end
+
+  def self.obfuscate(address)
+    return address.sub(/(@.).*/, '\1...')
+  end
+
+  def self.obfuscate_str(str)
+    str.gsub(/([0-9a-zA-Z_.-]+)@([0-9a-zA-Z_.-]+)\.([0-9a-zA-Z_-]+)/) {|mail|
+      MailAddress.obfuscate(mail)
+    }
+  end
+
+  # foo@ExampLE.CoM => foo@example.com
+  # 'foo'@example.com => foo@example.com
+  def self.normalize(mail)
+    name, domain = mail.split('@')
+    return mail if domain.nil?
+    name.gsub!(/^"(.*)"$/, '\1')
+    return "#{name}@#{domain.downcase}"
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestMailAddress < Test::Unit::TestCase
+    def test_normalize
+      c = MailAddress
+      assert_equal 'foo@example.com', c.normalize('foo@example.com')
+      assert_equal 'foo@example.com', c.normalize('foo@ExampLE.CoM')
+      assert_equal 'foo@example.com', c.normalize("\"foo\"@ExampLE.CoM")
+      # Do not normalize name part.
+      assert_equal 'Foo@example.com', c.normalize('Foo@example.com')
+    end
+
+    def test_valid?
+      c = MailAddress
+      assert_equal true,  c.valid?('user@example.com')
+      assert_equal true,  c.valid?('valid+@example.com')
+      assert_equal true,  c.valid?('+valid@example.com')
+      assert_equal true,  c.valid?('_@example.com')
+      assert_equal true,  c.valid?('us..er@example.com')
+      # Make this address valid.  System uses this address for local account.
+      assert_equal true,  c.valid?('user@localdomain')
+      assert_equal false, c.valid?(nil)
+      assert_equal false, c.valid?('')
+      assert_equal false, c.valid?('invalid!@example.com')
+      assert_equal false, c.valid?('invalid')
+      assert_equal false, c.valid?('user@example..com')
+    end
+
+    def test_obfuscate
+      c = MailAddress
+      assert_equal 'user@e...', c.obfuscate('user@example.com')
+      assert_equal '2006@e...', c.obfuscate('2006@example.com')
+    end
+
+    def test_obfuscate_str
+      c = MailAddress
+      assert_equal 'user@e...', c.obfuscate_str('user@example.com')
+      assert_equal 'a t@e... b s@f... c',
+	c.obfuscate_str('a t@e.com b s@f.com c')
+    end
+  end
+end

data/vendor/qwik/mdlb-model.rb

@@ -0,0 +1,81 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/mdlb-sample'
+require 'qwik/htree-to-wabisabi'
+require 'qwik/util-charset'
+
+# $KCODE = 's'
+
+module Modulobe
+  class Model
+    def initialize(xml)
+      @wabisabi = Model.parse_xml(xml)
+      @speed = Model.extract_world(@wabisabi)
+      @name, @author, @comment = Model.extract_info(@wabisabi)
+    end
+
+    def self.parse_xml(xml)
+      xml ||= ''
+      return HTree(xml).to_wabisabi
+    end
+
+    def self.extract_world(wabisabi)
+      world = wabisabi.get_path('//world')
+      return nil if world.nil?
+      speed = world.get_path('/speed').text
+      return speed
+    end
+
+    def self.extract_info(wabisabi)
+      info = wabisabi.get_path('//model/info')
+      return nil if info.nil?
+      name    = info.get_path('/name').text.set_xml_charset.to_page_charset
+      author  = info.get_path('/author').text.set_xml_charset.to_page_charset
+      comment = info.get_path('/comment').text.set_xml_charset.to_page_charset
+      return name, author, comment
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestMdlbModel < Test::Unit::TestCase
+    def test_all
+      c = Modulobe::Model
+
+      xml = Modulobe::Sample::MODEL1
+
+      # test_parse_xml
+      ok_eq([], c.parse_xml(''))
+      w = c.parse_xml(xml)
+      ok_eq([:'?xml', '1.0', 'utf-8'], w[0])
+
+      # test_extract_world
+      ok_eq('0', c.extract_world(w))
+
+      # test_extract_info
+      ok_eq(nil, c.extract_info([]))
+      ok_eq(['test model', 'test author', "test comment.\n"],
+	    c.extract_info(w))
+
+      xml = Modulobe::Sample::MODEL_CORE
+      w = c.parse_xml(xml)
+      ok_eq(['', '', ''], c.extract_info(w))
+
+      xml = Modulobe::Sample::MODEL_WITH_NAME
+      w = c.parse_xml(xml)
+      ok_eq(['n', 'a', "c\n"], c.extract_info(w))
+
+      xml = Modulobe::Sample::MODEL_WITH_JNAME
+      w = c.parse_xml(xml)
+      ok_eq(["\202\240 ", "\202\242 ", "\202\244\n"], c.extract_info(w))
+    end
+  end
+end

data/vendor/qwik/mdlb-sample.rb

@@ -0,0 +1,324 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/util-charset'
+
+module Modulobe
+  module Sample
+    MODEL1 =
+'<?xml version="1.0" encoding="utf-8"?>
+<modulobe version="1.1" generator="Modulobe ver 0.2.1">
+<world><speed>0</speed></world>
+
+<model>
+<info>
+<name>test model</name>
+
+<author>test author</author>
+
+<comment>test comment.
+</comment>
+</info>
+
+<core ref="m0"><angle><x>0</x><y>0</y><z>0</z></angle></core>
+
+<body><module id="m0"><tie dir="0"><angle><x>0</x><y>0</y><z>180</z></angle></tie>
+<tie ref="m1" dir="1"><angle><x>0</x><y>0</y><z>0</z></angle></tie>
+<tie dir="2"><angle><x>0</x><y>0</y><z>-90</z></angle></tie>
+<tie dir="3"><angle><x>0</x><y>0</y><z>90</z></angle></tie>
+</module><module id="m1"><tie ref="m0" dir="0"><angle><x>0</x><y>0</y><z>180</z></angle></tie>
+<tie ref="m2" dir="1"><angle><x>0</x><y>0</y><z>0</z></angle></tie>
+<tie dir="2"><angle><x>0</x><y>0</y><z>-90</z></angle></tie>
+<tie dir="3"><angle><x>0</x><y>0</y><z>90</z></angle></tie>
+</module><module id="m2"><tie ref="m1" dir="0"><angle><x>0</x><y>0</y><z>180</z></angle></tie>
+<tie ref="m3" dir="1"><angle><x>0</x><y>0</y><z>0</z></angle></tie>
+<link type="8" cycle="1"><cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="90" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+</link>
+</module><module id="m3"><tie ref="m2" dir="0"><angle><x>0</x><y>0</y><z>180</z></angle></tie>
+<tie dir="1"><angle><x>0</x><y>0</y><z>0</z></angle></tie>
+<tie dir="2"><angle><x>0</x><y>0</y><z>-90</z></angle></tie>
+<tie dir="3"><angle><x>0</x><y>0</y><z>90</z></angle></tie>
+</module></body>
+</model>
+
+<view>
+<camera><angle><x>15</x><y>0</y><z>0</z></angle><distance>18.000000</distance></camera>
+
+<focus ref="m2"/>
+</view>
+</modulobe>
+'
+
+    MODULOBE_TEST_MODEL =
+'<?xml version="1.0" encoding="utf-8"?>
+<modulobe version="0">
+<world><speed>0</speed></world>
+
+<model>
+<core ref="m0">
+<angle><x>0</x><y>0</y><z>0</z></angle>
+</core>
+
+<body><module id="m0"><tie dir="0">
+<angle><x>0</x><y>0</y><z>180</z></angle>
+</tie>
+<tie ref="m1" dir="1">
+<angle><x>0</x><y>0</y><z>0</z></angle>
+</tie>
+<tie dir="2">
+<angle><x>0</x><y>0</y><z>-90</z></angle>
+</tie>
+<tie dir="3">
+<angle><x>0</x><y>0</y><z>90</z></angle>
+</tie>
+</module><module id="m1"><tie ref="m0" dir="0">
+<angle><x>0</x><y>0</y><z>180</z></angle>
+</tie>
+<tie ref="m2" dir="1">
+<angle><x>0</x><y>0</y><z>0</z></angle>
+</tie>
+<tie dir="2">
+<angle><x>0</x><y>0</y><z>-90</z></angle>
+</tie>
+<tie dir="3">
+<angle><x>0</x><y>0</y><z>90</z></angle>
+</tie>
+</module><module id="m2"><tie ref="m1" dir="0">
+<angle><x>0</x><y>0</y><z>180</z></angle>
+</tie>
+<tie ref="m3" dir="1">
+<angle><x>0</x><y>0</y><z>0</z></angle>
+</tie>
+<link type="8" cycle="1"><cycle angle="0" power="1"/>
+<cycle angle="90" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+</link>
+</module><module id="m3"><tie ref="m2" dir="0">
+<angle><x>0</x><y>0</y><z>180</z></angle>
+</tie>
+<tie dir="1">
+<angle><x>0</x><y>0</y><z>0</z></angle>
+</tie>
+<tie dir="2">
+<angle><x>0</x><y>0</y><z>-90</z></angle>
+</tie>
+<tie dir="3">
+<angle><x>0</x><y>0</y><z>90</z></angle>
+</tie>
+</module></body>
+</model>
+</modulobe>'
+
+    MODULOBE_TEST_MODEL1 =
+'<?xml version="1.0" encoding="utf-8"?>
+<modulobe version="0">
+<world><speed>0</speed></world>
+<model>
+<info>
+<name>t1 model</name>
+<author>Alice</author>
+<comment>This is a comment.
+</comment>
+</info>
+<core ref="m0"><angle><x>0</x><y>0</y><z>0</z></angle></core>
+<body><module id="m0"><tie dir="0"><angle><x>0</x><y>0</y><z>180</z></angle></tie>
+<tie dir="1"><angle><x>0</x><y>0</y><z>0</z></angle></tie>
+<tie dir="2"><angle><x>0</x><y>0</y><z>-90</z></angle></tie>
+<tie dir="3"><angle><x>0</x><y>0</y><z>90</z></angle></tie>
+</module></body>
+</model>
+</modulobe>'
+
+    MODULOBE_TEST_MODEL2 =
+'<?xml version="1.0" encoding="utf-8"?>
+<modulobe version="0">
+<world><speed>0</speed></world>
+<model>
+<info>
+<name>t2 model</name>
+<author>Bob</author>
+<comment>This is a comment, too.
+</comment>
+</info>
+<core ref="m0"><angle><x>0</x><y>0</y><z>0</z></angle></core>
+<body><module id="m0"><tie dir="0"><angle><x>0</x><y>0</y><z>180</z></angle></tie>
+<tie ref="m1" dir="1"><angle><x>0</x><y>0</y><z>0</z></angle></tie>
+<tie dir="2"><angle><x>0</x><y>0</y><z>-90</z></angle></tie>
+<tie dir="3"><angle><x>0</x><y>0</y><z>90</z></angle></tie>
+</module><module id="m1"><tie ref="m0" dir="0"><angle><x>0</x><y>0</y><z>180</z></angle></tie>
+<tie ref="m2" dir="1"><angle><x>0</x><y>0</y><z>0</z></angle></tie>
+<link type="8" cycle="1"><cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="90" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+<cycle angle="0" power="1"/>
+</link>
+</module><module id="m2"><tie ref="m1" dir="0"><angle><x>0</x><y>0</y><z>180</z></angle></tie>
+<tie dir="1"><angle><x>0</x><y>0</y><z>0</z></angle></tie>
+<tie dir="2"><angle><x>0</x><y>0</y><z>-90</z></angle></tie>
+<tie dir="3"><angle><x>0</x><y>0</y><z>90</z></angle></tie>
+</module></body>
+</model>
+</modulobe>'
+
+    RSS_IN_UTF8 =
+'<?xml version="1.0" encoding="utf-8"?>
+<rss version="2.0" xmlns:creativeCommons="http://backend.userland.com/creativeCommonsRssModule">
+<channel>
+     <title>Modulobe Collection</title>
+     <link>http://www.modulobe.com/model.html</link>
+     <description>modulobe.com�ɃA�b�v���[�h���ꂽmodel�̃��X�g�ł��B</description>
+     <language>ja</language>
+     <managingEditor>modulobe@qwik.jp</managingEditor>
+     <webMaster>modulobe@qwik.jp</webMaster>
+     <lastBuildDate>*Sat, 9 Jul 2005 13:09:31 GMT*</lastBuildDate>
+     <ttl>60</ttl>
+     <item>
+          <title>�ցA��������</title>
+          <link>http://www.modulobe.com/model.files/hebi-nagasugiru.mdlb</link>
+          <description>�������܂��B</description>
+          <author>Kouichirou Eto</author>
+          <pubDate>Sat, 9 Jul 2005 12:56:44 GMT</pubDate>
+          <enclosure url="http://www.modulobe.com/model.files/hebi-nagasugiru.mdlb" length="87928" type="application/xml"/>
+          <creativeCommons:license>http://creativecommons.org/licenses/by/2.1/jp/</creativeCommons:license>
+     </item>
+     <item>
+          <title>*name*</title>
+          <link>http://www.modulobe.com/model.files/*filename.mdlb*</link>
+          <description>*comment*</description>
+          <author>*author*</author>
+          <pubDate>*Sun, 3 Jul 2005 14:29:26 GMT*</pubDate>
+          <enclosure url="http://www.modulobe.com/model.files/*filename.mdlb*" length="*11922960*" type="application/xml"/>
+          <creativeCommons:license>http://creativecommons.org/licenses/by/2.1/jp/</creativeCommons:license>
+     </item>
+</channel>
+</rss>'.set_sourcecode_charset.to_xml_charset
+
+    # ============================== Simple models
+    MODEL_CORE = 
+'<?xml version="1.0" encoding="utf-8"?>
+<modulobe version="1.1" generator="Modulobe ver 0.2.1">
+<world><speed>0</speed></world>
+
+<model>
+<info>
+<name></name>
+
+<author></author>
+
+<comment></comment>
+</info>
+
+<core ref="m0"><angle><x>0</x><y>0</y><z>0</z></angle></core>
+
+<body><module id="m0"><tie dir="0"><angle><x>0</x><y>0</y><z>180</z></angle></tie>
+<tie dir="1"><angle><x>0</x><y>0</y><z>0</z></angle></tie>
+<tie dir="2"><angle><x>0</x><y>0</y><z>-90</z></angle></tie>
+<tie dir="3"><angle><x>0</x><y>0</y><z>90</z></angle></tie>
+</module></body>
+</model>
+
+<view>
+<camera><angle><x>15</x><y>0</y><z>0</z></angle><distance>18.000000</distance></camera>
+
+<focus ref="m0"/>
+</view>
+</modulobe>
+'
+
+    MODEL_WITH_NAME =
+'<?xml version="1.0" encoding="utf-8"?>
+<modulobe version="1.1" generator="Modulobe ver 0.2.1">
+<world><speed>0</speed></world>
+
+<model>
+<info>
+<name>n</name>
+
+<author>a</author>
+
+<comment>c
+</comment>
+</info>
+
+<core ref="m0"><angle><x>0</x><y>0</y><z>0</z></angle></core>
+
+<body><module id="m0"><tie dir="0"><angle><x>0</x><y>0</y><z>180</z></angle></tie>
+<tie dir="1"><angle><x>0</x><y>0</y><z>0</z></angle></tie>
+<tie dir="2"><angle><x>0</x><y>0</y><z>-90</z></angle></tie>
+<tie dir="3"><angle><x>0</x><y>0</y><z>90</z></angle></tie>
+</module></body>
+</model>
+
+<view>
+<camera><angle><x>15</x><y>0</y><z>0</z></angle><distance>18.000000</distance></camera>
+
+<focus ref="m0"/>
+</view>
+</modulobe>
+'
+
+    MODEL_WITH_JNAME =
+'<?xml version="1.0" encoding="utf-8"?>
+<modulobe version="1.1" generator="Modulobe ver 0.2.1">
+<world><speed>0</speed></world>
+
+<model>
+<info>
+<name>�� </name>
+
+<author>�� </author>
+
+<comment>��
+</comment>
+</info>
+
+<core ref="m0"><angle><x>0</x><y>0</y><z>0</z></angle></core>
+
+<body><module id="m0"><tie dir="0"><angle><x>0</x><y>0</y><z>180</z></angle></tie>
+<tie dir="1"><angle><x>0</x><y>0</y><z>0</z></angle></tie>
+<tie dir="2"><angle><x>0</x><y>0</y><z>-90</z></angle></tie>
+<tie dir="3"><angle><x>0</x><y>0</y><z>90</z></angle></tie>
+</module></body>
+</model>
+
+<view>
+<camera><angle><x>15</x><y>0</y><z>0</z></angle><distance>18.000000</distance></camera>
+
+<focus ref="m0"/>
+</view>
+</modulobe>
+'.set_sourcecode_charset.to_xml_charset
+
+
+  end
+end