appswarm 0.0.1

data/packages/msandbox/old/defa.rb

@@ -0,0 +1,3 @@
+def a
+123
+end

data/packages/msandbox/old/test.rb

@@ -0,0 +1,14 @@
+Interface::test
+begin
+
+Interface::puts "ARGH"
+class MPackage<Package
+  def self.huhu
+    Interface::puts "HUHU"     
+   "möh"
+  end
+end
+Package::add(MPackage)
+rescue Object=>e
+Interface::puts e
+end

data/packages/msandbox/old/test2.rb

@@ -0,0 +1,56 @@
+require 'sandbox'
+require 'pp'
+
+module Interface
+  def self.mputs(*s)
+    puts(*s)
+  end
+end
+
+box=Sandbox.safe
+pp box
+box.ref Interface
+box.eval("def self.a;\nInterface::mputs 123\nend\n self.a")
+box.eval('self.a')
+
+normal=Sandbox.new
+normal.eval("a=12")
+pp normal.eval("a")
+
+s=Sandbox.safe
+s.eval("a=12")
+pp s.eval("a")
+
+
+
+s=Sandbox.safe
+s.ref Interface
+s.eval("$a=12")
+pp s.eval("$a")
+
+
+s=Sandbox.safe
+s.ref Interface
+s.eval("class X\n@@x||=123\n@@x+=1\ndef self.x\n@@x\nend\nend")
+pp s.eval("X::x")
+
+
+s=Sandbox.safe
+s.eval("class X
+@@x=X.new
+def self.x
+@@x
+end
+def a
+self.object_id
+end
+end
+")
+pp s.eval("X::x.a")
+pp s.eval("X::x.a")
+s.load('defa.rb')
+s.eval('a')
+
+
+
+

data/packages/msandbox/package.rb

@@ -0,0 +1,67 @@
+
+
+class PackageStore
+
+  def initialize
+    @p2n={}
+    @n2p={}
+  end
+
+  def self.instance
+    @@packageStore||=PackageStore.new
+  end
+
+  def packages
+    vals=@p2n.values
+    vals
+  end
+
+  def insertPackage(p)
+    unless @p2n[p]
+      id=p.object_id
+      @p2n[p]=id
+      @n2p[id]=p
+    end
+    r=@p2n[p]
+    r
+  end
+
+  def getID(package)
+    @p2n[package]
+  end
+  def getPackage(id)
+    #BasicInterface::pp self.inspect
+    @n2p[id]
+  end
+end
+
+
+class Package
+  def self.add(x)
+    PackageStore::instance.insertPackage(x) 
+    #BasicInterface::puts "ADDED",x.to_s
+  end
+
+  def self.getPackages
+    ps=PackageStore::instance.packages
+  end
+  
+end
+
+def self.getPackages
+  PackageStore::instance.packages
+end
+
+def self.run(object,s)
+  PackageStore::instance.getPackage(object).send(*Marshal::load(s))
+end
+
+
+def self.require(f)
+  p=RequireInterface::loadPrg(f)
+  eval(p)
+end
+
+def self.package(name)
+  PackageInterface::package(name)
+end

data/packages/msandbox/packages/store/config.yml

@@ -0,0 +1 @@
+interfaces: fs,network,require,basic

data/packages/msandbox/packages/store/main.rb

@@ -0,0 +1,27 @@
+begin
+  eval('
+class X
+  def initialize
+    BasicInterface::puts "X:INIT"
+  end
+end
+X.new
+  ')
+  #RequireInterface::myrequire 'myinclude.rb'
+  
+  #eval(FSInterface::loadPrg('myinclude.rb'))
+require 'myinclude.rb'
+
+class Main<Package
+  attr_reader :bla
+  def initialize
+    BasicInterface::puts "MAIN:INIT"
+    @bla=FSInterface::load("my.txt")
+    nil
+  end
+end
+
+
+rescue Exception=>e
+  BasicInterface::puts e,e.backtrace
+end

data/packages/msandbox/packages/store/myinclude.rb

@@ -0,0 +1,7 @@
+class Y
+  def initialize()
+    BasicInterface::puts "Y:INIT"
+  end
+end
+Y.new
+

data/packages/msandbox/packages/store_test/config.yml

@@ -0,0 +1 @@
+interfaces: fs,network,require,basic,package/store

data/packages/msandbox/packages/store_test/main.rb

@@ -0,0 +1,9 @@
+class Main<Package
+  def initialize
+  end
+  
+  def run
+    x=PackageInterface::package("store")
+    BasicInterface::puts x.bla
+  end
+end

data/packages/msandbox/server.rb

@@ -0,0 +1,146 @@
+require 'sandbox'
+require 'pp'
+require 'singleton.rb'
+require 'yaml.rb'
+require 'interfaces.rb'
+
+
+class PackageCallingInterface
+  def initialize(box,ref)
+    @box=box
+    @ref=ref
+  end
+  def method_missing(*s)
+    r=@box.eval("begin
+[self.run(#{@ref},'#{Marshal::dump(s)}'),:ok]
+rescue  Object=>e
+[e.to_s,:exception]
+end
+")
+    if r[1]==:ok
+      return r[0]
+    else
+      raise r[0]
+    end
+  end
+end
+
+class Package
+  def initialize
+    @objects={}
+  end
+  def addObject(o)
+    @objects << o
+  end
+end
+
+class PackageDefinition
+  attr_reader :name
+  def initialize(name)
+    @name=name.gsub(/.*\//,"")
+    config=YAML::load_file(File.join(name,"config.yml"))
+    @interfaces=config["interfaces"].gsub(" ","").split(",")
+    @packages=@interfaces.select{|i|i=~/^package.*/}.map{|i|i.gsub(/^package./,"")}
+    @interfaces.map!{|i|i.gsub(/\/.*/,"")}
+  end
+
+  def interfaces
+    Class::interfaceClasses.select{|i|
+    name=i.to_s.gsub(/\/.*/,"").sub("Interface","").downcase
+    pp "NAME:",name
+    @interfaces.member?(name)
+    }
+  end
+
+  def self.readPackages
+    p=File.expand_path("../packages/*",__FILE__)
+    pnames=Dir[p]
+    pnames.map{|pname|
+      begin
+        PackageDefinition.new(pname)
+      rescue
+      end
+    }.reject{|x|x.nil?}
+  end
+end
+
+class SingleBox
+  def initialize(packageDef,server)
+    pp "STARTING",packageDef
+    @def=packageDef
+    @box=Sandbox.safe
+    @server=server
+    pp "INTERFACEClasses",Class::interfaceClasses
+    pp "INTERFACES:",@def.interfaces
+    @def.interfaces.each{|i|
+      pp "CREATING",i
+      if i.respond_to?(:create)
+        i.create(@box,@def,server)
+      else
+        exposeInterface(i,@box,@def)
+      end
+    }
+    @box.load("package.rb")
+    @pkgs=[]
+
+    run("packages/#{@def.name}/main.rb")
+  end
+  
+  def name
+    @def.name
+  end
+  
+  # no real improvement, because there's always "eval"
+  def self.checkFile(filename)
+    f=File.open(filename)
+    c=f.read
+    f.close
+    c=~/ensure/
+  end
+  def run(file)
+    pp "RUNNING",file
+    raise :SecurityError if self.class.checkFile(file)
+
+    begin
+      ps=@box.load(file)
+
+      main=@box.eval("Package::add(Main.new)")
+      main=@box.eval("Package::getPackages").map{|i|PackageCallingInterface.new(@box,i)}
+
+      @pkgs=main
+
+    rescue Object=>e
+      puts e,e.backtrace
+    end
+  end
+  
+  def interface
+    @pkgs[0]
+  end
+  
+end
+
+class Server
+  def initialize
+
+    @defs=PackageDefinition.readPackages
+
+    @packages=@defs.map{|d|SingleBox.new(d,self)}
+  end
+  
+
+  def package(name)
+    result=@packages.select{|package|package.name==name}
+    return result[0] if result.length==1
+    result
+  end
+  
+  def interface(name)
+    package(name).interface
+  end
+end
+
+s=Server.new
+
+s.interface("store_test").run
+

data/packages/msandbox/test.rb

@@ -0,0 +1,13 @@
+Interface::test
+
+
+Interface::puts "ARGH"
+class MPackage<Package
+  def huhu
+    Interface::puts "HUHU"     
+  end
+end
+Package::add(MPackage)
+
+#eval("puts 'hi'")
+Package::getPackages

data/packages/msandbox/test2.rb

@@ -0,0 +1,29 @@
+require 'sandbox'
+require 'pp'
+
+module Interface
+  def self.mputs(*s)
+    puts(*s)
+  end
+end
+
+box=Sandbox.safe
+pp box
+box.ref Interface
+box.eval("def self.a;\nInterface::mputs 123\nend\n self.a")
+box.eval('self.a')
+
+normal=Sandbox.new
+normal.eval("a=12")
+pp normal.eval("a")
+
+s=Sandbox.safe
+s.eval("a=12")
+pp s.eval("a")
+
+
+
+s=Sandbox.safe
+s.ref Interface
+s.eval("$a=12")
+pp s.eval("$a")

data/templates/web/appswarm/controllers/appswarm.rb

@@ -0,0 +1,41 @@
+require 'lib/media_wiki_html.rb'
+require 'models/asmenu.rb'
+require 'models/asuser.rb'
+
+
+class AppswarmController<TemplateController
+  layout :main
+  def initialize(*args)
+    super
+    @mainMenu=AppswarmTemplate::Menu.new(self)
+    @menu=AppswarmTemplate::Menu.new(self)
+  end
+
+  def login
+    @loginFailed=false
+    login=params["login"]
+    password=params["password"]
+    if login and password
+      login=login.to_s
+      password=password.to_s
+      users=AppswarmTemplate::User::findByName(store,login)
+      users.each{|user|
+        if user.checkLogin(login,password)
+          session[:loginUser]=user
+          redirect_to :action=>:index
+          return
+        end
+      }
+      @loginFailed=true
+    end
+  end
+
+
+  private
+  def user
+    session[:loginUser]
+  end
+  def store
+    getApp.getApp(:localObjectStorage)
+  end
+end

data/templates/web/appswarm/layouts/main.rhtml

@@ -0,0 +1,20 @@
+<html>
+  <head>
+    <%=css("home")%>
+    <%=css("menu")%>
+    <%=css("mainMenu")%>
+    <%=css("custom")%>
+  </head>
+  <body>
+    <div id="AppSwarmBanner">
+      <div id="Box">Version 0.1</div>
+      <div id="Text">AppSwarm</div>
+      <%= render_partial(:userInfo) %>
+    </div>
+    <%= render_partial(:mainMenu) %>
+    <%= render_partial(:menu)%>
+    <div id="Content">
+      <%=content%>
+    </div>
+  </body>
+</html>