infod 0.0.1 → 0.0.2

data/infod/Th/POST.rb

@@ -1,19 +1,39 @@
+watch __FILE__
 class E
+
   def POST
-    as('POST').y(self,@r) || basicPOST
-  rescue Exception => x
-    Fn 'backtrace',x,@r
-  end
+    r = Rack::Request.new @r
+    p = nil
+    # each triple
+    r.params.map{|k,v|
 
-  def basicPOST
-    
-  end
+      # path-format triple
+      sP,pP,oP = (CGI.unescape k).split S
+
+      # original triple
+      s,p,o = [sP,pP,oP].map &:unpath
 
-  # mint URI to POSTs here
-  fn '/post/POST',->e,r{
+      p = p.uri[0..-2].E if p.uri[-1] == '/'
 
-    
-  }
+      # object-delta URIs
+      vU = E.literal v
+      oU = oP.E
 
+      # change detected
+      unless oU.uri == vU.uri
+        # edit triple
+        s[p,o,v]
+      end
+
+      # snapshot current resource state
+      
+    }
+
+    # parameters for editor
+    @r.q.update({'view' => 'editPO',
+                 'graph' => 'editable',
+                 'p' => p.uri})
+    self.GET
+  end
 
 end

data/infod/Th/perf.rb

@@ -0,0 +1,37 @@
+#watch __FILE__
+require 'benchmark'
+
+class E
+
+  Slow ||= {}
+  Errors ||= {}
+  F['log']=->c,e,x=nil{ # response code, environment, extra stuff
+    uri = ['http://', e['SERVER_NAME'], e['REQUEST_URI']].join
+    if 500 == c
+      Errors[uri] ||= {}
+      Errors[uri][:time] = Time.now
+    end
+    if x && x.class==Float && x > 1
+      s = Slow[uri] ||= {}
+      s[:time] ||= 0
+      s[:time] += x
+      s[:last] = Time.now
+      if Slow.size > 10e3
+        Slow = {}
+      end
+    end
+    $stdout.puts [e.fn,c,uri,e['HTTP_USER_AGENT'],e['HTTP_REFERER'],x].join ' '}
+
+  F['/health/GET'] = ->e,r{
+    e.pathSegment.uri.match(/^(\/|\/health)$/) &&
+    (H [{_: :h1,
+          c: {_: :a, href: '/', style: "background-color:"+E.cs, c: '/'}},
+        {c: [{_: :b, c: r['SERVER_NAME']},' storage ',`df --output=pcent /|tail -n 1`]},
+        {_: :a, href: '/slow', c: 'slow queries'},
+        {_: :A, href: '/500', c: 'broken requests'},
+        H.css('/css/health')
+       ]).hR}
+
+  F['/slow/GET'] = ->e,r{H([Slow.sort_by{|u,r|r[:time]}.reverse.html,H.css('/css/500')]).hR}
+
+end

data/infod/Th/util.rb

@@ -0,0 +1,89 @@
+class String
+  # parse query-string
+  def qp
+    d={}
+    split(/&/).map{|e|
+      k,v=e.split(/=/,2).map{|x|
+         CGI.unescape x}
+      d[k]=v}
+    d
+  end
+  # HTML response of string body
+  def hR
+    [200,{'Content-Type'=>'text/html; charset=utf-8'},
+     [self]]
+  end
+end
+
+module Th
+
+  # unparsed query-string
+  def qs
+    (['GET','HEAD'].member? fn) ? self['QUERY_STRING'] : self['rack.input'].read
+  end
+
+  # memoize query
+  def q
+    @q ||= (qs||'').qp.do{|q|
+      (q['?']).do{|d|
+        E::F['?'][d].do{|g| # expand aliases
+          g.merge q
+        } || q } || q}
+  end
+
+  # Accept header
+  def accept_ k=''
+    d={}
+    self['HTTP_ACCEPT'+k].do{|k|
+      k.split(/,/).map{|e|
+        f,q=e.split(/;/)
+        i=q&&q.split(/=/)[1].to_f||1
+        d[i]||=[]
+        d[i].push f}}
+    d
+  end
+
+  def format
+    @format ||= conneg
+  end
+
+  def conneg
+    # format in querystring
+    return q['format'] if q['format'] && E::F[E::Render+q['format']]
+    # format in Accept header
+    accept.sort.reverse.map{|p|p[1].map{|mime|
+     return mime if E::F[E::Render+mime]}}
+    # default
+    'text/html'
+  end
+
+  def accept; @accept ||= accept_ end
+
+  def fn
+    self['REQUEST_METHOD']
+  end
+
+end
+
+class Hash
+
+  def qs
+   '?'+map{|k,v|k.to_s+'='+(v ? (CGI.escape [*v][0].to_s) : '')}.intersperse("&").join('')
+  end
+
+  def env r # attach environment variable
+    @r = r
+    self
+  end
+
+end
+
+class E
+
+  # request environment
+  def env r=nil
+    r ? (@r = r
+         self) : @r
+  end
+
+end

data/infod/Y.rb

@@ -1,17 +1,34 @@
+
 def watch f
   E::Watch[f]=File.mtime f
   puts 'dev '+f end
 
 class E
+
   F={}
-  Data={}
   Watch={}
-  def self.dev; Watch.each{|f,ts|if ts < File.mtime(f); load f end} end
-  def y *a; F[uri].(*a) end
+
+  def self.dev
+    Watch.each{|f,ts|
+      if ts < File.mtime(f)
+        load f
+      end }
+  end
+
+  # call lambda @id
+  def y *a
+    F[uri][*a]
+  end
+
 end
 
-# URI named functions
-def Fn a,*g; E::F[a].(*g) end
+# URI -> function
+
 def fn u,y
-#  E::F[u.to_s] && puts("#{u} redefined")
-  E::F[u.to_s] = y end
+  E::F[u.to_s] = y
+end
+
+def Fn a,*g
+  puts "missing #{a} from #{caller[0]}" unless E::F[a]
+  E::F[a][*g]
+end

data/infod/infod.rb

@@ -1,13 +1,12 @@
 
 # the table of elements
 
-# Es search
+# Es infrastructure
 # H  HTML
 # K  constants
 # N  naming
 # Rb Ruby native-types
 # Th HTTP
-# W  forms and formats
 # Y  lambdas
 
-%w{Y K Rb N W Th H Es}.map{|e| require 'infod/' + e}
+%w{Y K Rb N Es H Th}.map{|e| require 'infod/' + e}

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: infod
 version: !ruby/object:Gem::Version
-  version: 0.0.1
+  version: 0.0.2
   prerelease: 
 platform: ruby
 authors:
@@ -9,8 +9,24 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2013-09-01 00:00:00.000000000 Z
+date: 2013-11-22 00:00:00.000000000 Z
 dependencies:
+- !ruby/object:Gem::Dependency
+  name: rack
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
 - !ruby/object:Gem::Dependency
   name: thin
   requirement: !ruby/object:Gem::Requirement
@@ -27,7 +43,23 @@ dependencies:
     - - ! '>='
       - !ruby/object:Gem::Version
         version: '0'
-description: a data/filesystem web-server
+- !ruby/object:Gem::Dependency
+  name: nokogiri
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+description: a www-server
 email: _@whats-your.name
 executables:
 - infod
@@ -37,69 +69,66 @@ files:
 - bin/infod
 - infod.rb
 - config.ru
-- infod/Y.rb
-- infod/H.rb
-- infod/W.rb
-- infod/K.rb
-- infod/Th.rb
-- infod/W/css.rb
-- infod/W/json.rb
-- infod/W/cal.rb
-- infod/W/color.rb
-- infod/W/rdf.rb
-- infod/W/source.rb
-- infod/W/mail.rb
-- infod/W/table.rb
-- infod/W/post.rb
-- infod/W/forum.rb
-- infod/W/audio.rb
-- infod/W/examine/time/graph.rb
-- infod/W/examine/time/line.rb
-- infod/W/examine/examine.rb
-- infod/W/examine/sw.rb
-- infod/W/examine/protovis.rb
-- infod/W/examine/exhibit.rb
-- infod/W/examine/hist.rb
-- infod/W/examine/normal.rb
-- infod/W/examine/history.rb
-- infod/W/pdf.rb
-- infod/W/feed.rb
-- infod/W/csv.rb
-- infod/W/du.rb
-- infod/W/core.rb
-- infod/W/wiki.rb
-- infod/W/image.rb
-- infod/W/ls.rb
-- infod/W/schema.rb
-- infod/W/blog.rb
-- infod/W/tree.rb
-- infod/W/grep.rb
-- infod/W/vfs.rb
-- infod/W/html.rb
-- infod/W/find.rb
-- infod/W/kv.rb
-- infod/W/page.rb
-- infod/W/search.rb
-- infod/W/text.rb
-- infod/W/edit.rb
-- infod/W/chat.rb
-- infod/W/shell.rb
-- infod/Es/sqlite.rb
-- infod/Es/redis.rb
-- infod/Es/fs.rb
-- infod/Es/groonga.rb
-- infod/Es.rb
-- infod/Rb.rb
-- infod/Th/POST.rb
-- infod/Th/uid.rb
-- infod/Th/HEAD.rb
-- infod/Th/500.rb
-- infod/Th/local.rb
-- infod/Th/GET.rb
+- infod/Th/perf.rb
+- infod/Th/util.rb
 - infod/Th/PATCH.rb
+- infod/Th/POST.rb
 - infod/Th/404.rb
+- infod/Th/GET.rb
+- infod/Th/500.rb
+- infod/Th/HEAD.rb
+- infod/Th/uid.rb
+- infod/Es.rb
+- infod/H/audio.rb
+- infod/H/microblog.rb
+- infod/H/forum.rb
+- infod/H/hf.rb
+- infod/H/edit.rb
+- infod/H/threads.rb
+- infod/H/mail.rb
+- infod/H/blog.rb
+- infod/H/facets.rb
+- infod/H/cal.rb
+- infod/H/who.rb
+- infod/H/wiki.rb
+- infod/H/histogram.rb
+- infod/H/time.rb
+- infod/K.rb
+- infod/Rb.rb
+- infod/Y.rb
 - infod/infod.rb
+- infod/Es/fs.rb
+- infod/Es/pdf.rb
+- infod/Es/csv.rb
+- infod/Es/grep.rb
+- infod/Es/filter.rb
+- infod/Es/json.rb
+- infod/Es/sh.rb
+- infod/Es/man.rb
+- infod/Es/glob.rb
+- infod/Es/ls.rb
+- infod/Es/html.rb
+- infod/Es/code.rb
+- infod/Es/text.rb
+- infod/Es/feed.rb
+- infod/Es/du.rb
+- infod/Es/groonga.rb
+- infod/Es/out.rb
+- infod/Es/mail.rb
+- infod/Es/image.rb
+- infod/Es/css.rb
+- infod/Es/kv.rb
+- infod/Es/rdf.rb
+- infod/Es/schema.rb
+- infod/Es/search.rb
+- infod/Es/mime.rb
+- infod/Es/index.rb
+- infod/Es/find.rb
+- infod/Es/pager.rb
+- infod/Es/in.rb
+- infod/H.rb
 - infod/N.rb
+- infod/Th.rb
 homepage: http://whats-your.name/www/
 licenses:
 - Unlicense
@@ -124,6 +153,5 @@ rubyforge_project:
 rubygems_version: 1.8.23
 signing_key: 
 specification_version: 3
-summary: a data/filesystem web-server
+summary: a www-server
 test_files: []
-has_rdoc: 

data/infod/Es/redis.rb

@@ -1,3 +0,0 @@
-class E
-
-end

data/infod/Es/sqlite.rb

@@ -1,3 +0,0 @@
-class E
-
-end

data/infod/Th/local.rb

@@ -1,22 +0,0 @@
-class E
-=begin
- this code is not loaded by default
-
- server looks in hostname-root paths for *.rb files, reporting found code:
- site config http://data.whats-your.name/data.rb 
-
-=end
-  
-  # disallow custom-query crawling on all sites
-  fn '/robots.txt/GET',->e,r{
-    [200,{'Content-Type'=>'text/plain'},["User-agent: *\nDisallow: /*?*\n"]]}
-  
-  # schema search forward from site root
-  fn 'http://data.whats-your.name/GET',->e,r{
-    [302,{'Location'=>'/schema'},[]]}  
-  
-  # webize PS(1)
-  fn '/ps/GET',->e,r{
-    [200,{'Content-Type'=>'text/plain'},[`ps aux`]]}
-
-end