infod 0.0.1

data/infod/W/source.rb

@@ -0,0 +1,35 @@
+class E
+  
+  # show available querystring aliases
+  fn '/qs/GET',->e,r{H([H.css('/css/404'),F['?'].html]).hR}
+
+  def triplrSourceCode
+    # MIME                   strip x-
+    m = mime.split(/\//)[-1].sub(/^x-/,'')
+
+    # show line numbers?
+    n = @r.has_key?('n') && "--line-number-ref=#{uri.sh}"
+
+    yield uri,Content,
+    `source-highlight -f html -o STDOUT -i #{sh} -s #{m} #{n}`
+  end
+
+  fn 'view/code',->d,e{[{_: :style, c: 'body{background-color:white;color:black}'},
+    d.values.map{|r|[r.E.do{|e|[{_: :a,name: e.uri},e.html(e.base,true)]},'<br>',
+                      r[Content]]}]}
+
+  # ls /usr/share/source-highlight/*.lang | xargs -i basename {} .lang | tr "\n" " "
+  %w{ada applescript asm awk bat bib bison caml changelog c clipper cobol conf cpp csharp css desktop diff d erlang errors flex fortran function glsl haskell haskell_literate haxe html html_simple java javascript key_string langdef latex ldap lisp log logtalk lsm lua m4 makefile manifest nohilite number outlang oz pascal pc perl php postscript prolog properties proto python ruby scala script_comment sh slang sml spec sql style symbols tcl texinfo todo url vala vbscript xml}
+    .map{|l|
+    ma = 'application/' + l
+    mt = 'text/x-' + l
+    # extension -> MIME
+    MIME[l.to_sym] ||= ma
+    # triplr/view mappings
+    [ma,mt].map{|m|
+      MIMEsource[m] ||= [:triplrSourceCode]
+
+      fn 'view/'+m, F['view/code']
+  }}
+
+end

data/infod/W/table.rb

@@ -0,0 +1,87 @@
+#watch __FILE__
+class E
+  
+  # property selector toolbar
+  fn 'view/p',->d,e{
+    [H.once(e,'property.toolbar',H.once(e,'p',(H.once e,:mu,H.js('/js/mu')),
+     H.js('/js/p'),
+     H.css('/css/table')),
+     {_: :a, href: '#', c: '-', id: :hideP},
+     {_: :a, href: '#', c: '+', id: :showP},
+     {_: :span, id: 'properties',
+       c: E.graphProperties(d).map{|k|
+         {_: :a, class: :n, href: k, c: k.label+' '}}},
+       {_: :style, id: :pS},
+       {_: :style, id: :lS}),
+     (Fn 'view/'+(e.q['pv']||'tab'),d,e)]}
+
+  # table layout, sparse matrix of rows/cols - see table/elements for usage
+  fn 'view/t',->d,e,l=nil,a=nil{
+    [H.once(e,'table',H.css('/css/table')),
+     {_: :table, c:
+     {_: :tbody, c: (Fn 'table/'+(l||e.q['table']),d).do{|t|
+          rx = t.keys.max
+          rm = t.keys.min
+          c = t.values.map(&:keys)
+          cm = c.map(&:min).min
+          cx = c.map(&:max).max
+          (rm..rx).map{|r|
+            {_: :tr, c: 
+              t[r].do{|r|
+                (cm..cx).map{|c|
+                  r[c].do{|c|
+                    {_: :td, class: :cell, c:(Fn 'view/'+(a||e.q['cellview']),c,e)}
+                    }||{_: :td}}}}}}}}]}
+
+# a simple tabular view
+  fn 'view/table',->i,e{
+    [H.css('/css/table'),
+     (Fn 'table',i.values,e)]}
+
+  F['view/tab']=F['view/table']
+
+  fn 'table',->es,q=nil{
+    ks = {} # predicate table
+    es.map{|e|e.respond_to?(:keys) &&
+              e.keys.map{|k|ks[k]=true}}
+    keys = ks.keys
+    keys.empty? ? es.html :
+    H({_: :table,:class => :tab,
+        c: [{_: :tr,
+              c: keys.map{|k|
+                {_: :td, class: :label, property: k,
+                  c: q ? {_: :a,
+                    href: q['REQUEST_PATH']+q.q.except('reverse').merge({'sort'=>k}).merge(q.q.member?('reverse') ? {} : {'reverse'=>true}).qs,
+                    c: (Fn 'abbrURI',k)} : k}}},
+            *es.map{|e|
+              {_: :tr, about: e.uri, c:
+                keys.map{|k|
+                  {_: :td, property: k, c: e[k].do{|v|
+                      (v.class==Array ? v : [v]).map(&:html).join ' '}}}}}]})}
+  
+  fn 'table/elements',->d{ m={}
+    g='http://www.daml.org/2003/01/periodictable/PeriodicTable#group'
+    p='http://www.daml.org/2003/01/periodictable/PeriodicTable#period'
+    d.map{|u,r|
+      r[g].do{|g|   g = g[0].uri.match(/[0-9]+$/)
+        r[p].do{|p| p = p[0].uri.match(/[0-9]+$/)
+          g && p &&
+          (g = g[0].to_i
+           p = p[0].to_i
+           m[p]     ||= {}
+           m[p][g]  ||= {}
+           m[p][g][u] = r
+           )}}}
+    m}
+
+  F["?"]||={}
+  F["?"].update({'elements'=>{'view' => 'p','pv' => 't','table' => 'elements', 'cellview' => 'element'}})
+
+ # element
+  fn 'view/element',->d,e{
+    l = d[d.keys[0]]
+    [H.once(e,'elements.css',H.css('/css/elements')),
+     {class: l['http://www.daml.org/2003/01/periodictable/PeriodicTable#classification'].do{|p|p[0].uri.label},
+       c: [l['http://www.daml.org/2003/01/periodictable/PeriodicTable#symbol'],(Fn 'view',d,e)]}]}
+  
+end

data/infod/W/text.rb

@@ -0,0 +1,94 @@
+# -*- coding: utf-8 -*-
+#watch __FILE__
+
+class String
+  def hrefs i=false
+    (partition /(https?:\/\/(\([^)]*\)|[,.]\S|[^\s),.”\'\"<>\]])+)/).do{|p|
+      p[0].gsub('<','&lt;').gsub('>','&gt;')+
+      (p[1].empty?&&''||'<a rel=untyped href='+p[1]+'>'+p[1].do{|p|
+         i && p.match(/(gif|jpg|png|tiff)$/i) &&
+         "<img src=#{p}>" || p
+       }+'</a>')+
+      (p[2].empty?&&''||p[2].hrefs)
+    }
+  rescue
+    self
+  end
+  def camelToke
+    scan /[A-Z]+(?=\b|[A-Z][a-z])|[A-Z]?[a-z]+/
+  end
+end
+
+class E
+
+  fn 'view/monospace',->d,e{
+    [(H.once e,'text',(H.css '/css/text')),
+     d.values.map{|v|
+      v[Content].do{|c|
+        {class: :text,
+           c: [{_: :a, href: v.url+'?view', c: v.label, style: "background-color:" + E.c},
+               {_: :pre,  c: c }]}}}]}
+
+  F['view/'+MIMEtype+'application/word']= F['view/monospace']
+  F['view/'+MIMEtype+'blob']            = F['view/monospace']
+  F['view/'+MIMEtype+'text/plain']      = F['view/monospace']
+  F['view/'+MIMEtype+'text/rtf']        = F['view/monospace']
+
+  fn 'view/'+MIMEtype+'text/nfo',->r,_{r.values.map{|r|{_: :pre,
+      style: 'background-color:#000;padding:2em;color:#fff;float:left;font-family: "Courier New", "DejaVu Sans Mono", monospace; font-size: 13px; line-height: 13px',
+        c: [{_: :a, 
+              style: 'color:#0f0;font-size:1.1em;font-weight:bold', 
+              c: r.E.bare, 
+              href: r.uri+'?view=txt'},
+            '<br>',r[Content]]}}}
+
+  fn 'view/title',->d,e{i=F['view/title/item']
+    d.map{|u,r|[i.(r,e),' ']}}
+
+  fn 'view/title/item',->r,e{{_: :a,href: r.E.url,c:r[e.q['title']||Title],class: :title}}
+
+  # linebreak-delimited list of URIs
+  def triplrUriList
+    open(d).readlines.map{|l|
+      l = l.chomp
+      yield uri, '/link', l
+      yield   l, '/link', uri
+    }
+  end
+
+  # list of uris in a .u doc
+  def uris
+    graph.keys.map &:E
+  end
+  
+  def triplrANSI
+    yield uri, Content, `cat #{sh} | aha`
+  end
+
+  def triplrRTF
+    yield uri, Content, `which catdoc && catdoc #{sh}`.hrefs
+  end
+
+  def triplrWord
+    yield uri, Content, `which antiword && antiword #{sh}`.hrefs
+  end
+
+  fn Render+'text/plain',->d,_=nil{
+    d.map{|u,r|# each resource
+      [u,"\n", # subject URI
+       r.map{|k,v| # each predicate
+         p = k.split(/[\/#]/)[-1]       # predicate
+         k == 'uri' ||                  # already displayed
+         [" "*(16-p.size).min(1),p," ", # align objects 
+          (v.class==Array ? v:[v]).map{|v|# each object
+            v.respond_to?(:uri) ? v.uri : # object-URI
+            v.to_s.                       # object-content
+            gsub(/<\/*(br|p|div)[^>]*>/,"\n").           # add linebreaks 
+            gsub(/<a.*?href="*([^'">\s]+)[^>]*>/,'\1 '). # unwrap links
+            gsub(/<[^>]+>/,'').                          # remove HTML
+            gsub(/\n+/,"\n")}.                           # collapse empty space
+          intersperse(' '),"\n"]},"\n"]}.join}           # collate
+
+  fn Render+'text/uri',->d,_=nil{d.keys.join "\n"}
+
+end

data/infod/W/tree.rb

@@ -0,0 +1,26 @@
+class E
+
+  fn 'view/tree',->d,e{ t={}; c={}
+    d.map{|u,r| l=t
+      u.split(/[\/#]/).
+      map{|s|
+        l=(l[s] ||= {})}
+      l['#']={u => r}}
+    r=->t,d=0{
+      t.except('#').map{|k,t_|
+        {_: :div, class: :branch,style: 'background-color:'+(c[d]||=E.c),
+         c: [t_['#'].do{|t|Fn 'view/'+e.q['treev'],t,e}||k,r.(t_,d+1)]}}}
+  [(H.once e,'tree',(H.css '/css/tree')),r.(t)]}
+
+  fn 'view/treeR',->d,e{ t={}; c={}
+   d.map{|_,r| r.map{|p,o| l = t
+     p.split(/[\/#]/).map{|s|l=(l[s]||={})}
+          l['#']||=[]
+          l['#'].push o}}
+    r=->t,d=0{
+      t.except('#').map{|k,t_|
+        {_: :div, class: :branch,style: 'background-color:'+(c[d]||=E.c),
+     c: ['<b>',k,'</b>',{class: :treeO,c: t_['#'].html},r.(t_,d+1)]}}}
+  [(H.once e,'tree',(H.css '/css/tree')),r.(t)]}
+
+end

data/infod/W/vfs.rb

@@ -0,0 +1,175 @@
+%w{date digest/sha1 fileutils json open-uri pathname}.each{|r|require(r)}
+
+class E
+
+  def d
+    node.to_s
+  end
+
+  def node
+    Pathname.new FSbase + path
+  end
+  alias_method :no, :node
+
+  # glob :: pattern -> [E]
+  def glob p=""
+    (Pathname.glob d + p).map &:E
+  end
+  fn 'set/glob',->d,e,m{d.glob}
+  fn 'graph/glob',->d,e,m{d.glob.map{|c|c.fromStream m, :triplrInode, false}}
+  
+  def parent
+    E Pathname.new(uri).parent
+  end
+
+  def siblings
+    parent.c
+  end
+
+  def jail
+    no.expand_path.to_s.index(E::FSbase)==0 && @r['PATH_INFO'] !~ /\.\./ && self
+  end
+
+  def children
+    no.c.map &:E
+  end
+  alias_method :c, :children
+
+
+  # node exists?
+  def exist?
+    no.exist?
+  end
+  alias_method :e, :exist?
+
+  # directory?
+  def d?
+    no.directory?
+  end
+
+  # file?
+  def file?
+    no.file?
+  end
+  alias_method :f, :file?
+
+  # modification time
+  def mtime
+    no.stat.mtime if e
+  end
+  alias_method :m, :mtime
+
+  def triplrInode r=true
+    e && (d? && (yield uri, Posix + 'dir#parent', parent
+                 r && c.map{|c| yield uri, Posix + 'dir#child', c})
+      node.stat.do{|s|[:size,:ftype,:mtime].map{|p|
+          yield uri,Stat+p.to_s,(s.send p)}})
+  end
+  
+  # create node
+  def dir
+    e || FileUtils.mkdir_p(d)
+    self
+  end
+
+  # create link
+  def ln t
+    t = E(t) # cast bare URI/string to resource
+    if !t.e  # destination exists?
+      t.no.dirname.dir # ensure containing dir exists
+#      puts [:ln,uri].join ' '
+      FileUtils.symlink no, t.no # create link
+    end
+  end
+
+  def touch
+    FileUtils.touch no
+    self
+  end
+    
+  def deleteNode
+    puts "-node #{d}" if e
+    no.deleteNode if e
+    self
+  end
+
+  def size
+    no.size
+  end
+
+  def read
+    f ? r : get
+  end
+
+  def get
+    (open uri).read
+  end
+
+  # read file - check if it exists & parse JSON if requested
+  def r p=false
+    if f
+      (p ? JSON.parse(readFile)[0] : readFile)
+    else
+    p ? {} : nil
+    end
+  rescue
+    p ? {} : nil
+  end
+
+  # write file - make sure dir exists & serialize JSON if requested
+  def w o,s=false
+#    puts "write #{uri} #{s}"
+    dirname.dir
+    writeFile (s ? [o].to_json : o)
+    self
+  end
+
+  def writeFile c
+    File.open(d,'w'){|f|f << c}
+  end
+
+  def readFile
+    File.open(d).read
+  end
+
+  def readlink
+    no.symlink? ? no.readlink.E : self
+  end
+
+end
+
+class Pathname
+  
+  def dir
+    mkpath unless exist? 
+  end
+
+  # append to path
+  def a s
+    Pathname.new to_s+s
+  end
+
+  # path -> E
+  def E
+    to_s.force_encoding('UTF-8').pathToURI false
+  end
+
+  def c
+    return [] unless directory?
+    children.delete_if{|n| n.basename.to_s.match /^(\.+|#{E::S})$/}
+    rescue
+      []
+  end
+  
+  def deleteNode
+    FileUtils.send file? ? :rm : :rmdir,self
+    parent.deleteNode if parent.c.empty?
+  end
+
+end
+
+class File::Stat
+  def utime
+    mtime.to_i
+  end
+end

data/infod/W/wiki.rb

@@ -0,0 +1,18 @@
+class E
+
+  def triplrMarkdown
+    require 'markdown'
+    yield uri,Content,Markdown.new(r).to_html
+  end
+
+  def triplrOrg
+    require 'org-ruby'
+    r.do{|r|
+      yield uri,Content,Orgmode::Parser.new(r).to_html}
+  end
+
+  def triplrTextile; require 'redcloth'
+    yield uri,Content,RedCloth.new(r).to_html
+  end
+
+end

data/infod/W.rb

@@ -0,0 +1,34 @@
+%w{
+core
+vfs
+audio
+cal
+chat
+color
+css
+csv
+du
+edit
+examine/examine
+feed
+find
+grep
+html
+image
+json
+kv
+ls
+mail
+page
+post
+pdf
+rdf
+schema
+search
+shell
+source
+table
+text
+tree
+wiki
+}.each{|r|require_relative 'W/'+r}

data/infod/Y.rb

@@ -0,0 +1,17 @@
+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
+end
+
+# URI named functions
+def Fn a,*g; E::F[a].(*g) end
+def fn u,y
+#  E::F[u.to_s] && puts("#{u} redefined")
+  E::F[u.to_s] = y end

data/infod/infod.rb

@@ -0,0 +1,13 @@
+
+# the table of elements
+
+# Es search
+# 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}

data/infod.rb

@@ -0,0 +1,13 @@
+
+# the table of elements
+
+# Es search
+# 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}

metadata

@@ -0,0 +1,129 @@
+--- !ruby/object:Gem::Specification
+name: infod
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+  prerelease: 
+platform: ruby
+authors:
+- <carmen@whats-your.name>
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-09-01 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: thin
+  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 data/filesystem web-server
+email: _@whats-your.name
+executables:
+- infod
+extensions: []
+extra_rdoc_files: []
+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/PATCH.rb
+- infod/Th/404.rb
+- infod/infod.rb
+- infod/N.rb
+homepage: http://whats-your.name/www/
+licenses:
+- Unlicense
+post_install_message: 
+rdoc_options: []
+require_paths:
+- .
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.23
+signing_key: 
+specification_version: 3
+summary: a data/filesystem web-server
+test_files: []
+has_rdoc: