appswarm 0.0.1

data/apps/home/static/menu.css

@@ -0,0 +1,99 @@
+/*
+    Document   : menu
+    Created on : 07.03.2009, 16:53:16
+    Author     : davidkamphausen
+    Description:
+        Purpose of the stylesheet follows.
+*/
+
+/*
+   TODO customize this sample style
+   Syntax recommendation http://www.w3.org/TR/REC-CSS2/
+*/
+
+div#Menu
+{
+    position:fixed;
+    top:0px;
+    left:0px;
+    padding:0px;
+    padding-top:20px;
+    margin:0px;
+    background-color:#FFBB00;
+    border-left-width:0px;
+    border-right-width:1px;
+    border-bottom-width:0px;
+    border-top-width:0px;
+    border-color:#000000;
+    border-style:solid;
+
+}
+
+div#Menu a
+{
+    color:#000000;
+    text-decoration:none;
+}
+
+div#MenuHor
+{
+    position:fixed;
+    top:50px;
+    left:0px;
+    width:100%;
+    height:8px;
+    border-top-color:#AA5500;
+    border-top-width:1px;
+    border-bottom-color:#AA5500;
+    border-bottom-width:1px;
+    border-style:solid;
+    border-left-width:0px;
+    border-right-width:0px;
+    background-color:#7777BB;
+}
+
+div#Menu div.MenuItem
+{
+    float:left;
+    padding:2px;
+    border-top-width:1px;
+    border-left-width:1px;
+    border-right-width:1px;
+    border-bottom-width:0px;
+    border-color:#000000;
+    border-style:solid;
+    background-color:#FF9900;
+
+}
+div#Menu div.Separator
+{
+    border-top-width:0px;
+    border-left-width:0px;
+    border-right-width:0px;
+    border-bottom-width:1px;
+    border-color:#000000;
+    border-style:solid;
+    background-color:#FFBB00;
+    float:left;
+    width:10px;
+    padding:2px;
+}
+
+div#Menu div.LastSeparator
+{
+    border-top-width:0px;
+    border-left-width:0px;
+    border-right-width:0px;
+    border-bottom-width:1px;
+    border-color:#000000;
+    border-style:solid;
+    float:left;
+    padding:2px;
+    width:300px;
+}
+
+
+div#Menu div:hover
+{
+    color:#3333FF;
+}

data/apps/home/views/_appInfo.rhtml

@@ -0,0 +1,22 @@
+Web-Applications:
+<div class="appButtons">
+  <% appInfo.select{|a|a.respond_to?(:url)}.each{|app| %>
+    <div class="appButton">
+      <div class="title"><%=app.class.to_s%></div>
+      <div class="name"><%=app.getAppName%></div>
+      <div class="link"><a href="<%=app.url%>">get there &gt;&gt;&gt;</a></div>
+    </div>
+  <% } %>
+</div>
+<div class="endFloat"></div>
+<!--
+Other applications:
+<div class="appButtons">
+  <% appInfo.select{|a|!a.respond_to?(:url)}.each{|app| %>
+    <div class="appButton">
+      <%=app.class.to_s%> (<%=app.getAppName%>)
+    </div>
+  <% } %>
+</div>
+<div class="endFloat"></div>
+-->

data/apps/home/views/_dummy_fill.rhtml

@@ -0,0 +1,3 @@
+<%= (0..100).map{||"a<br>"} %>
+
+

data/apps/home/views/_info.rhtml

@@ -0,0 +1,6 @@
+<p>
+  Welcome to AppSwarm!
+</p>
+<p>
+  Take a ride through our <a href="/wiki">wiki</a>.
+</p>

data/apps/home/views/_menu.rhtml

@@ -0,0 +1,17 @@
+<div id="Menu">
+  
+  <div class="Separator">&nbsp;</div>
+  <div class="MenuItem">
+    <a href="<%=url(:action=>:index)%>">Welcome</a>
+  </div>
+  <div class="Separator">&nbsp;</div>
+  <div class="MenuItem">
+    <a href="<%=url(:action=>:overview)%>">Overview</a>
+  </div>
+  <div class="Separator">&nbsp;</div>
+  <div class="MenuItem">
+    Search
+  </div>
+  <div class="LastSeparator">&nbsp;</div>
+</div>
+<div id="MenuHor"></div>

data/apps/home/views/index.rhtml

@@ -0,0 +1,4 @@
+<%=render_partial :info %>
+
+
+

data/apps/home/views/overview.rhtml

@@ -0,0 +1,2 @@
+<%=render_partial :appInfo %>
+<%=render_partial :dummy_fill %>

data/apps/local_chunk_store/chunk_store.rb

@@ -0,0 +1,15 @@
+class ChunkStore
+  def initialize(prefix,saveHook,loadHook)
+    @prefix=prefix
+    @saveHook=saveHook
+    @loadHook=loadHook
+  end
+
+  def save(name,value)
+    @saveHook.call(@prefix+name,value)
+  end
+
+  def load(name)
+    @loadHook.call(@prefix+name)
+  end
+end

data/apps/local_chunk_store/local_chunk_store.rb

@@ -0,0 +1,123 @@
+require 'service.rb'
+require 'chunk_store.rb'
+
+#
+# LocalChunkStore stores blobs of sizes up to some megs
+# permanently. you can retrieve it using
+# your key. it stores it efficiently within
+# binary files. 
+#
+class LocalChunkStoreApp<Service
+
+  MAX_SIZE=1024*1024*10
+
+  provides :localChunkStore
+
+  def initialize(cluster,ops)
+    super(cluster,ops,:localChunkStore)
+
+    @mutex=Mutex.new
+
+    @maxFileId=0
+    @fileMax={}
+
+    readDirectory
+
+  end
+
+  def interface(app)
+    saveHook=lambda {|k,v|save(k,v)}
+    loadHook=lambda {|k|load(k)}
+    ChunkStore.new(app.to_s,saveHook,loadHook)
+  end
+
+  private
+  def save(k,v)
+    k=k.to_s
+    v=v.to_s
+    @mutex.synchronize {
+      fileName,start=whereToStore(k,v)
+      f=File.open(fileName,"w+")
+      f.seek(start,IO::SEEK_SET)
+      f.print(v)
+      @dir[k]=[fileName,start,v.length]
+      f.close
+      writeDirectory
+    }
+  end
+  def load(k)
+    k=k.to_s
+    @mutex.synchronize {
+      fileName,start,len=@dir[k]
+      if fileName
+        f=File.open(fileName,"r")
+        f.seek(start,IO::SEEK_SET)
+        c=f.read(len)
+        f.close
+        return c
+      end
+    }
+    nil
+  end
+
+  def whereToStore(k,v)
+    len=v.length
+    tuple=@dir[k]
+    if tuple
+      if tuple[2]>=len
+        return tuple
+      end
+    end
+    @fileMax.each{|f,m|
+      if m+len<MAX_SIZE
+        return [File.join(mydir,f),m]
+      end
+    }
+    [File.join(mydir,genFileName),0]
+  end
+
+  def readDirectory
+    @dir={}
+    begin
+      d=File.load(File.join(mydir,"directory.msh"))
+      if d
+        @dir=Marshal::load(d)
+      end
+
+      checkFiles
+    rescue Object=>e
+      pp e
+    end
+    @dir
+  end
+
+  def writeDirectory
+    f=File.open(File.join(mydir,"directory.msh"),"w")
+    f.print(Marshal::dump(@dir))
+    f.close
+  end
+
+  def checkFiles
+    @fileMax={}
+    @dir.each{|dir|
+      fileName,start,len=dir[0]
+      max=start+len
+      @fileMax[fileName]||=max
+      @fileMax[fileName]=[@fileMax[fileName],max].max
+      
+      id=fileName.gsub(/.*_/,'').gsub(/\..*/,'').to_i
+      @maxFileId=[@maxFileId,id+1].max
+    }
+  end
+
+  def genFileName
+    "chunk_#{@maxFileId+=1}.dat"
+  end
+
+  def mydir
+    d=getAppDataWritePath
+    Dir.mkdir_save(d)
+    d
+  end
+
+end

data/apps/local_chunk_store/spec/local_chunk_store_spec.rb

@@ -0,0 +1,30 @@
+describe "Local Chunk Store" do
+  it "should store data corretly" do
+    str="1234"
+    fileName="fileName"
+    b=TestBed.new
+    cs=b.run("LocalChunkStore")
+    store=cs.interface("test")
+    store.save(fileName,str)
+    store.load(fileName).should == str
+    b.stop
+  end
+
+  it "should reload stored data" do
+    str="1234"
+    fileName="fileName"
+    b=TestBed.new
+    cs=b.run("LocalChunkStore")
+    store=cs.interface("test")
+    store.save(fileName,str)
+    b.stop
+    b=TestBed.new(:testbedId=>b.testbedId)
+    cs=b.run("LocalChunkStore")
+    store=cs.interface("test")
+    store.load(fileName).should == str
+    b.stop
+  end
+
+
+  
+end

data/apps/local_file_store/app_configuration.rb

@@ -0,0 +1,78 @@
+require 'simple_marshal.rb'
+
+class AppConfiguration
+  
+  class ConfigElement
+    def initialize(conf,element,name)
+      @element=element
+      @name=name
+      @conf=conf
+    end
+    def [](name)
+      checkHash
+      ConfigElement.new(@conf,@element[@name],name)
+    end
+    def []=(name,value)
+      checkHash
+      @element[@name][name]=value
+      @conf.save
+    end
+    
+    def content
+      @element[@name]
+    end
+    
+    private
+    def checkHash
+      if @element.key?(@name)
+        assert{@element[@name].is_a?(Hash)}
+      else
+        @element[@name]={}
+      end
+      
+    end
+  end
+  
+  attr_reader :elements
+  
+  def self.config(app)
+    store=app.getApp(:localFileStore)
+    store.config(app)
+  end
+  
+  def initialize(store,appKey)
+    
+    @elements={}
+    @store=store
+    @appClass,@appName=appKey
+    
+    data=@store.api(@appClass,@appName)["config"]
+    if data && data.length>0
+      @elements=Simple::Marshal::load(data)
+    end
+  end
+  
+  def reset
+    @elements={}
+    save
+  end
+  
+  def flush
+    save
+  end
+  
+  def []=(name,value)
+    @elements[name]=value
+    save
+  end
+    
+  def [](name)
+    ConfigElement.new(self,@elements,name)
+  end
+  
+  
+  def save
+    data=Simple::Marshal::dump(@elements)
+    @store.api(@appClass,@appName)["config"]=data
+  end
+end

data/apps/local_file_store/app_file_store.rb

@@ -0,0 +1,32 @@
+class LocalFileStoreApp
+  
+  class AppFileStore
+    # writeDelay in seconds, default is 30 seconds
+    def initialize(store,appClass,instanceName)
+      @store=store
+      @appClass=appClass
+      @instanceName=instanceName
+    end
+    
+    def []=(name,value)
+      save(name,value)
+    end
+    def [](name)
+      load(name)
+    end
+    def rm(name)
+      @store.getApp(:permaspace).rm(id(name))
+    end
+
+    private
+    def save(name,value)
+      @store.getApp(:permaspace).store(id(name),value)
+    end
+    def load(name)
+      @store.getApp(:permaspace).load(id(name))
+    end
+    def id(name)
+      "AFS_#{@appClass}_#{@instanceName}_#{name}".gsub(/[^a-zA-Z0-9_]/,'')
+    end
+  end
+end