appswarm 0.0.1

data/apps/wiki/lib/wikicreole.tt

@@ -0,0 +1,135 @@
+grammar WikiCreole
+  rule Page
+    Block*
+  end
+  rule Block
+    Heading / Paragraph / List / Preformatted /  HorizontalLine / EmptyLine
+  end
+  rule EmptyLine
+    Whitespace* LineEnd
+  end
+  rule HorizontalLine
+    "----" "-"* Whitespace* LineEnd
+  end
+  rule Heading
+    Heading3 / Heading2 / Heading1
+  end
+  rule Heading1
+    '==' Whitespace* HeadingText Whitespace* '='* Whitespace* LineEnd
+  end
+  rule Heading2
+    '===' Whitespace* HeadingText Whitespace* '='* Whitespace* LineEnd
+  end
+  rule Heading3
+    '====' Whitespace* HeadingText Whitespace* '='* Whitespace* LineEnd
+  end
+  
+  rule HeadingText
+    TextPart+
+  end
+  
+  rule Preformatted
+    '{{{' Whitespace* LineEnd PreformattedLine* LineStart Whitespace* '}}}' Whitespace* LineEnd
+  end
+  rule PreformattedLine
+    .* LineEnd
+  end
+  rule Paragraph
+    TextLine+
+  end
+  rule TextLine
+    !'==' TextPart+ LineEnd
+  end
+
+  rule TextPart
+    PlaceHolder / Image / Link / BoldText / ItalicText / NormalText
+  end
+  rule ItalicText
+    '//' TextPart+ '//'
+  end
+  rule BoldText
+    '**' TextPart+ '**'
+  end
+  rule NormalText
+    [^\n]+
+  end
+  rule PlaceHolder
+    '<<' [0-9]+ '>>'
+  end
+  rule Image
+    ImageWithAlt / ImageWithoutAlt
+  end
+  rule ImageWithAlt
+    '{{' ImageAddress '|' '}}'
+  end
+  rule ImageWithoutAlt
+    '{{' ImageAddress '}}'
+  end
+  rule ImageAddress
+    URL / ImageFile / PageName
+  end
+  rule ImageFile
+    .* '.' ImageFileExtension
+  end
+  rule ImageFileExtension
+    'gif' / 'jpg' / 'jpeg' / 'png' / 'svg'
+  end
+ 
+  rule Link
+    LinkWithoutText / LinkWithText
+  end 
+  rule LinkWithText
+    '[[' LinkAddress '|' LinkText ']]'
+  end
+  rule LinkWithoutText
+    '[[' LinkAddress ']]'
+  end
+  rule LinkAddress
+    PageName / URL
+  end
+  rule URL
+    URLProtocol ':' RestOfURL
+  end
+  rule URLProtocol
+    'http' / 'https' / 'ftp' / 'mailto' / 'news' / 'irc'
+  end
+  rule RestOfURL
+    .*  
+  end
+  rule PageName
+    [a-zA-Z0-9.?!_ -]+
+  end
+  rule List
+    FirstListElement ListElement*
+  end
+  rule FirstListElement
+    FirstBullet / FirstNumber
+  end
+  rule FirstBulletElement
+    '*' Whitespace TextPart*
+  end
+  rule FirstNumberElement
+    '#' Whitespace TextPart*
+  end
+  rule BulletElement
+    '*' Whitespace TextPart*
+  end
+  rule NumberElement
+    '#' Whitespace TextPart*
+  end
+  rule FirstBullet
+    '*'
+  end
+  rule FirstNumber
+    '#'
+  end
+  
+  rule LineEnd
+    [\n] 
+  end
+  
+  rule Whitespace
+    [ \t]
+  end
+  
+end

data/apps/wiki/lib/wikitest.rb

@@ -0,0 +1,158 @@
+module WikiCreole
+  include Treetop::Runtime
+
+  def root
+    @root || :Text
+  end
+
+  def _nt_Text
+    start_index = index
+    if node_cache[:Text].has_key?(index)
+      cached = node_cache[:Text][index]
+      @index = cached.interval.end if cached
+      return cached
+    end
+
+    s0, i0 = [], index
+    loop do
+      r1 = _nt_TextLine
+      if r1
+        s0 << r1
+      else
+        break
+      end
+    end
+    if s0.empty?
+      self.index = i0
+      r0 = nil
+    else
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+    end
+
+    node_cache[:Text][start_index] = r0
+
+    return r0
+  end
+
+  module TextLine0
+    def LineStart
+      elements[0]
+    end
+
+    def TextPart
+      elements[1]
+    end
+
+    def LineEnd
+      elements[2]
+    end
+  end
+
+  def _nt_TextLine
+    start_index = index
+    if node_cache[:TextLine].has_key?(index)
+      cached = node_cache[:TextLine][index]
+      @index = cached.interval.end if cached
+      return cached
+    end
+
+    i0, s0 = index, []
+    r1 = _nt_LineStart
+    s0 << r1
+    if r1
+      r2 = _nt_TextPart
+      s0 << r2
+      if r2
+        r3 = _nt_LineEnd
+        s0 << r3
+      end
+    end
+    if s0.last
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+      r0.extend(TextLine0)
+    else
+      self.index = i0
+      r0 = nil
+    end
+
+    node_cache[:TextLine][start_index] = r0
+
+    return r0
+  end
+
+  def _nt_TextPart
+    start_index = index
+    if node_cache[:TextPart].has_key?(index)
+      cached = node_cache[:TextPart][index]
+      @index = cached.interval.end if cached
+      return cached
+    end
+
+    s0, i0 = [], index
+    loop do
+      if input.index(Regexp.new('[^\\n]'), index) == index
+        r1 = instantiate_node(SyntaxNode,input, index...(index + 1))
+        @index += 1
+      else
+        r1 = nil
+      end
+      if r1
+        s0 << r1
+      else
+        break
+      end
+    end
+    r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+
+    node_cache[:TextPart][start_index] = r0
+
+    return r0
+  end
+
+  def _nt_LineStart
+    start_index = index
+    if node_cache[:LineStart].has_key?(index)
+      cached = node_cache[:LineStart][index]
+      @index = cached.interval.end if cached
+      return cached
+    end
+
+    if input.index("\n", index) == index
+      r0 = instantiate_node(SyntaxNode,input, index...(index + 1))
+      @index += 1
+    else
+      terminal_parse_failure("\n")
+      r0 = nil
+    end
+
+    node_cache[:LineStart][start_index] = r0
+
+    return r0
+  end
+
+  def _nt_LineEnd
+    start_index = index
+    if node_cache[:LineEnd].has_key?(index)
+      cached = node_cache[:LineEnd][index]
+      @index = cached.interval.end if cached
+      return cached
+    end
+
+    if input.index("\n", index) == index
+      r0 = instantiate_node(SyntaxNode,input, index...(index + 1))
+      @index += 1
+    else
+      terminal_parse_failure("\n")
+      r0 = nil
+    end
+
+    node_cache[:LineEnd][start_index] = r0
+
+    return r0
+  end
+
+end
+
+class WikiCreoleParser < Treetop::Runtime::CompiledParser
+  include WikiCreole
+end

data/apps/wiki/lib/wikitest.tt

@@ -0,0 +1,17 @@
+grammar WikiCreole
+  rule Text
+    TextLine+ 
+  end
+  rule TextLine
+    LineStart TextPart LineEnd
+  end
+  rule TextPart
+    [^\n]*
+  end
+  rule LineStart
+    "\n"
+  end
+  rule LineEnd
+    "\n"
+  end
+end

data/apps/wiki/model/menu.rb

@@ -0,0 +1,15 @@
+class Menu
+  def initialize(cntrl)
+    @cntrl=cntrl
+    @shortCuts={"Home"=>""}
+  end
+
+  def items
+    [
+      ["Main",@cntrl.url(:action=>:index)],
+      ["Page",@cntrl.url(:action=>:index)+"/"+@cntrl.path],
+      ["Edit",@cntrl.url(:action=>:edit)+"/"+@cntrl.path]
+    ]
+  end
+end
+

data/apps/wiki/model/page.rb

@@ -0,0 +1,31 @@
+module WikiModel
+  class Instance
+    def initialize(app)
+      @app=app
+    end
+
+    def getPage(name)
+      Page.new(@app,name)
+    end
+  end
+
+  class Page
+    def initialize(app,name)
+      @app=app
+      @name=name
+    end
+    def content
+      config=@app.retrieveConfig
+      fs=@app.getApp(:localFileStore)
+
+      data=config["wiki"][@app.instanceName][@name].content
+    end
+    def content=(data)
+      config=@app.retrieveConfig
+      fs=@app.getApp(:localFileStore)
+
+      config["wiki"][@app.instanceName][@name]=data
+    end
+  end
+
+end

data/apps/wiki/spec/wiki_creole_spec.rb

@@ -0,0 +1,20 @@
+describe "WikiCreole" do
+  it "should parse a simple wiki text" do
+    wiki="\nSome Text\n== Some headline\n"
+#wiki="\n== Some headline\n"
+    parse(wiki)
+  end
+  
+  def parse(text)
+    require 'treetop'
+    Treetop.load "apps/wiki/lib/wikicreole.tt"
+      #require 'simple_marshal_parser.rb'
+    parser = WikiCreoleParser.new
+    result = parser.parse(text)
+    pp "RESULT",result
+    if result
+      return result.sload
+    end
+
+  end
+end

data/apps/wiki/spec/wiki_spec.rb

@@ -0,0 +1,19 @@
+require 'proxy_testing.rb'
+
+describe "Wiki" do
+  it "should run on a global web server if not http-port is specified" do
+    b=TestBed.new({})
+    #b.run("UdpNetwork")
+    ns=b.run("NameService")
+    b.run("GlobalWebServer")
+    sleep 0.2
+    wiki=b.run("Wiki",{:instances=>["MyWiki"]})
+    wiki.port.should be_nil
+    proxy=b.run("GlobalWebProxy")
+    sa=wiki.serviceAddress("MyWiki","")
+    ns.export("test.appswarm",sa)
+    ns.get("test.appswarm").should == sa
+    sleepDebug 1
+    getFromGlobalProxy(proxy,"http://test.appswarm/Test?edit=false&testarg=1234",{"hupe"=>"bla"}).body.should be_valid_html
+  end
+end

data/apps/wiki/static/Zeichnung.svg

@@ -0,0 +1,240 @@
+<?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!-- Created with Inkscape (http://www.inkscape.org/) -->
+<svg
+   xmlns:dc="http://purl.org/dc/elements/1.1/"
+   xmlns:cc="http://creativecommons.org/ns#"
+   xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
+   xmlns:svg="http://www.w3.org/2000/svg"
+   xmlns="http://www.w3.org/2000/svg"
+   xmlns:xlink="http://www.w3.org/1999/xlink"
+   xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"
+   xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"
+   width="80"
+   height="60"
+   id="svg2"
+   sodipodi:version="0.32"
+   inkscape:version="0.46"
+   version="1.0"
+   sodipodi:docname="Zeichnung.svg"
+   inkscape:output_extension="org.inkscape.output.svg.inkscape">
+  <defs
+     id="defs4">
+    <linearGradient
+       id="linearGradient3407">
+      <stop
+         id="stop3409"
+         offset="0"
+         style="stop-color:#ffaa00;stop-opacity:1;" />
+      <stop
+         style="stop-color:#000000;stop-opacity:1;"
+         offset="1"
+         id="stop3411" />
+    </linearGradient>
+    <linearGradient
+       id="linearGradient3399">
+      <stop
+         style="stop-color:#ffaa00;stop-opacity:1;"
+         offset="0"
+         id="stop3403" />
+      <stop
+         id="stop3405"
+         offset="1"
+         style="stop-color:#000000;stop-opacity:1;" />
+    </linearGradient>
+    <linearGradient
+       id="linearGradient3215">
+      <stop
+         id="stop3217"
+         offset="0"
+         style="stop-color:#000000;stop-opacity:1;" />
+      <stop
+         style="stop-color:#000000;stop-opacity:0.93170732;"
+         offset="0.29224515"
+         id="stop3219" />
+      <stop
+         id="stop3221"
+         offset="1"
+         style="stop-color:#000000;stop-opacity:0;" />
+    </linearGradient>
+    <linearGradient
+       id="linearGradient3199">
+      <stop
+         id="stop3201"
+         offset="0"
+         style="stop-color:#000000;stop-opacity:1;" />
+      <stop
+         style="stop-color:#000000;stop-opacity:0.93170732;"
+         offset="0.5"
+         id="stop3203" />
+      <stop
+         id="stop3205"
+         offset="1"
+         style="stop-color:#000000;stop-opacity:0;" />
+    </linearGradient>
+    <linearGradient
+       id="linearGradient3189">
+      <stop
+         style="stop-color:#000000;stop-opacity:1;"
+         offset="0"
+         id="stop3191" />
+      <stop
+         id="stop3197"
+         offset="0.5"
+         style="stop-color:#000000;stop-opacity:0.93170732;" />
+      <stop
+         style="stop-color:#000000;stop-opacity:0;"
+         offset="1"
+         id="stop3193" />
+    </linearGradient>
+    <linearGradient
+       id="linearGradient2385">
+      <stop
+         style="stop-color:#af5f06;stop-opacity:1;"
+         offset="0"
+         id="stop2387" />
+      <stop
+         id="stop3165"
+         offset="0.5"
+         style="stop-color:#ff9014;stop-opacity:1;" />
+      <stop
+         style="stop-color:#000000;stop-opacity:1;"
+         offset="1"
+         id="stop2389" />
+    </linearGradient>
+    <inkscape:perspective
+       sodipodi:type="inkscape:persp3d"
+       inkscape:vp_x="0 : 526.18109 : 1"
+       inkscape:vp_y="0 : 1000 : 0"
+       inkscape:vp_z="744.09448 : 526.18109 : 1"
+       inkscape:persp3d-origin="372.04724 : 350.78739 : 1"
+       id="perspective10" />
+    <radialGradient
+       inkscape:collect="always"
+       xlink:href="#linearGradient2385"
+       id="radialGradient3163"
+       cx="32.431679"
+       cy="40.261955"
+       fx="32.431679"
+       fy="40.261955"
+       r="40.106018"
+       gradientTransform="matrix(1.6899029,5.8843562e-2,-4.0068546e-2,1.1162967,-19.7324,-9.1972141)"
+       gradientUnits="userSpaceOnUse" />
+    <radialGradient
+       inkscape:collect="always"
+       xlink:href="#linearGradient3189"
+       id="radialGradient3195"
+       cx="71.605888"
+       cy="30.023851"
+       fx="71.605888"
+       fy="30.023851"
+       r="38.658894"
+       gradientTransform="matrix(0.3048129,-1.1524002e-8,7.8079889e-8,1.4278074,47.428832,-12.844424)"
+       gradientUnits="userSpaceOnUse" />
+    <radialGradient
+       inkscape:collect="always"
+       xlink:href="#linearGradient3189"
+       id="radialGradient3209"
+       gradientUnits="userSpaceOnUse"
+       gradientTransform="matrix(0.3048129,-1.1524002e-8,7.8079889e-8,1.4278074,47.635562,-13.051154)"
+       cx="-123.72321"
+       cy="30.023848"
+       fx="-123.72321"
+       fy="30.023848"
+       r="38.658894" />
+    <radialGradient
+       inkscape:collect="always"
+       xlink:href="#linearGradient3215"
+       id="radialGradient3213"
+       gradientUnits="userSpaceOnUse"
+       gradientTransform="matrix(1.6524061,1.0690725e-2,-9.6871785e-4,0.1497296,216.39931,28.226397)"
+       cx="-106.77367"
+       cy="-144.67525"
+       fx="-106.77367"
+       fy="-144.67525"
+       r="38.658894" />
+    <radialGradient
+       inkscape:collect="always"
+       xlink:href="#linearGradient3189"
+       id="radialGradient3353"
+       gradientUnits="userSpaceOnUse"
+       gradientTransform="matrix(1,0,0,0.7209302,1.240389,8.917217)"
+       cx="39.692554"
+       cy="28.990192"
+       fx="39.692554"
+       fy="28.990192"
+       r="35.557915" />
+    <filter
+       inkscape:collect="always"
+       id="filter3391">
+      <feGaussianBlur
+         inkscape:collect="always"
+         stdDeviation="1.9571126"
+         id="feGaussianBlur3393" />
+    </filter>
+    <linearGradient
+       inkscape:collect="always"
+       xlink:href="#linearGradient3407"
+       id="linearGradient3397"
+       x1="35.497009"
+       y1="54.369724"
+       x2="35.195824"
+       y2="-54.37133"
+       gradientUnits="userSpaceOnUse"
+       gradientTransform="translate(-0.413464,0.4134636)" />
+  </defs>
+  <sodipodi:namedview
+     id="base"
+     pagecolor="#ffffff"
+     bordercolor="#666666"
+     borderopacity="1.0"
+     inkscape:pageopacity="0.0"
+     inkscape:pageshadow="2"
+     inkscape:zoom="2.4185897"
+     inkscape:cx="10.988603"
+     inkscape:cy="56.739995"
+     inkscape:document-units="px"
+     inkscape:current-layer="layer1"
+     showgrid="false"
+     inkscape:window-width="1118"
+     inkscape:window-height="701"
+     inkscape:window-x="269"
+     inkscape:window-y="48" />
+  <metadata
+     id="metadata7">
+    <rdf:RDF>
+      <cc:Work
+         rdf:about="">
+        <dc:format>image/svg+xml</dc:format>
+        <dc:type
+           rdf:resource="http://purl.org/dc/dcmitype/StillImage" />
+      </cc:Work>
+    </rdf:RDF>
+  </metadata>
+  <g
+     inkscape:label="Ebene 1"
+     inkscape:groupmode="layer"
+     id="layer1">
+    <rect
+       style="fill:#ff9900;fill-opacity:1;stroke:none"
+       id="rect3395"
+       width="80.625496"
+       height="60.779221"
+       x="9.8628072e-07"
+       y="0.047707025" />
+    <rect
+       style="fill:#000000;fill-opacity:1;stroke:url(#radialGradient3353);filter:url(#filter3391)"
+       id="rect3349"
+       width="71.115829"
+       height="51.269547"
+       x="5.37503"
+       y="4.1823478"
+       transform="matrix(1.0850458,0,0,1.1011312,-3.244048,-2.4437569)" />
+    <rect
+       style="fill:url(#linearGradient3397);fill-opacity:1;stroke:none;stroke-width:1.09305893999999992;stroke-opacity:1"
+       id="rect2383"
+       width="77.163933"
+       height="56.454502"
+       x="1.7260165"
+       y="2.5750213" />
+  </g>
+</svg>