infod 0.0.3.2 → 0.0.3.3

data/infod/HEAD.rb

@@ -1,23 +0,0 @@
-class E
-
-  def HEAD
-    self.GET.do{|s,h,b|[s,h,[]]}
-  end
-
-  def OPTIONS
-    [200,{},[]]
-  end
-
-  # HEAD response-codes on a (.u) list of URIs
-  def checkURIs
-    r = uris.map{|u|
-      c = [`curl -IsA 404? "#{u}"`.lines.to_a[0].match(/\d{3}/)[0].to_i,u] # HEAD
-      puts c.join ' ' 
-      c } # status, uri tuple
-    puts "\n\n"
-    r.map{|c|
-      # show anomalies
-      puts c.join(' ') unless c[0] == 200 }
-  end
-
-end

data/infod/find.rb

@@ -1,19 +0,0 @@
-#watch __FILE__
-class E
-
-  fn 'set/find',->e,q,m,x=''{
-    q['q'].do{|q|
-      r = '-iregex ' + ('.*' + q + '.*' + x).sh
-      s = q['size'].do{|s| s.match(/^\d+$/) && '-size +' + s + 'M'} || ""
-      t = q['day'].do{|d| d.match(/^\d+$/) && '-ctime -' + d } || ""
-      [e,e.pathSegment].compact.select(&:e).map{|e|
-        `find #{e.sh} #{t} #{s} #{r} | head -n 1000`.
-        lines.map{|l|l.chomp.unpathFs}}.compact.flatten}}
-
-  fn 'view/find',->i,e{
-    {_: :form, method: :GET, action: e['REQUEST_PATH'].t,
-      c: [{_: :input, name: :set, value: :find, type: :hidden},
-          {_: :input, name: :view, value: :ls, type: :hidden},
-          {_: :input, name: :q, style: 'float: left;font-size:1.3em'}]}}
-
-end

data/infod/glob.rb

@@ -1,25 +0,0 @@
-#watch __FILE__
-class E
-
-  def glob p=""
-    (Pathname.glob d + p).map &:E
-  end
-
-  fn 'set/glob',->d,e=nil,_=nil{
-    p = [d,d.pathSegment].compact.map(&:glob).flatten[0..4e2].compact.partition &:inside
-    p[0] }
-
-  fn 'req/randomFile',->e,r{
-    g = F['set/glob'][e]
-    !g.empty? ? [302, {Location: g[rand g.length].uri}, []] : [404]}
-
-  def docs
-    base = docBase
-    [(base if pathSegment!='/' && base.e),         # doc-base
-     (self if base != self && e && uri[-1]!='/'),  # requested path
-     base.glob(".{e,html,n3,nt,owl,rdf,ttl,txt}"), # docs
-     ((d? && uri[-1]=='/' && uri.size>1) ? c : []) # trailing slash -> child resources
-    ].flatten.compact
-  end
-
-end

data/infod/kv.rb

@@ -1,56 +0,0 @@
-#watch __FILE__
-class E
-
-  def []= p,o
-    self[p,o]
-  end
-
-  def [] p,o=nil, v=nil
-    if o # set
-      editFs p,o,v
-    else # get
-      (concatURI p).properties
-    end
-  end
-
-  def editFs p, o, oO=nil
-    p = p.E
-    o = p.literal o unless o.class == E
-    t = (concatURI p).concatURI o
-    if oO                # updated triple
-      if t.e             # old triple exists?
-        t.deleteNode     # remove triple
-        indexEdit p,o,'' # unindex
-      end                # add
-      self[p,oO] unless oO.class==String && oO.empty? # 3rd arg is new value, empty-string -> nil
-    else
-      unless t.e          # triple exists?
-        indexEdit p,o,nil # index triple
-        if o.f            # add triple
-          o.ln t          # hard link
-        elsif o.e
-          o.ln_s t        # symbolic link
-        else
-          t.mk            # dir entry
-        end
-      end
-    end
-  end
-
-  def triplrDoc &f
-    docBase.glob('#*').map{|s| s.triplrResource &f}
-  end
-
-  def triplrResource
-    properties.map{|p|self[p].map{|o| yield uri, p.uri, o}}
-  end
-
-  def deletePredicate p
-    self[p].each{|o|self[p,o,'']}
-  end
-
-  def properties
-    subtree.map &:ro
-   end
-
-end

data/infod/page.rb

@@ -1,19 +0,0 @@
-#watch __FILE__
-class E
-
-  fn 'view/'+HTTP+'Response',->d,e{
-    u = d['#']
-
-    [u[Prev].do{|p|
-       {_: :a, rel: :prev, href: p.uri, c: '←',
-         style: 'color:#fff;background-color:#eee;font-size:2.3em;float:left;clear:both;margin-right:.3em'}},
-     u[Next].do{|n|
-       {_: :a, rel: :next, href: n.uri, c: '→',
-         style: 'color:#fff;background-color:#eee;font-size:2.3em;float:right;clear:both;border-radius:0'}},
-
-     {_: :a, href: e['REQUEST_PATH'].sub(/\.html$/,'') + e.q.merge({'view'=>'data'}).qs, # data browser
-       c: {_: :img, src: '/css/misc/cube.png', style: 'height:2em;background-color:white;padding:.54em;border-radius:1em;margin:.2em'}},
-     (H.js '/js/pager'),(H.once e,:mu,(H.js '/js/mu')) # (n)ext (p)rev key mappings
-    ]}
-
-end

data/infod/postscript.rb

@@ -1,26 +0,0 @@
-#watch __FILE__
-class E
-
-  def triplrPS
-    p = E[dirname + '/.' + File.basename(path) + '/']
-    unless p.e # && p.m > m 
-      p.mk
-      `gs -dSAFER -dBATCH -dNOPAUSE -sDEVICE=png16m -r300 -sOutputFile='#{p.sh}%03d.png' -dTextAlphaBits=4 #{sh}`
-    end
-    yield uri, Content, `ps2txt #{sh}`.hrefs
-    p.a('*.png').glob.map{|i|
-      yield uri, DC+'Image', i }
-  end
-
-  F['view/'+MIMEtype+'application/postscript']=->r,e{
-    [(H.once e, :mu,   (H.js '/js/mu')),(H.once e, :book, (H.js '/js/book')),
-     {_: :style, c: 'div[type="book"] a {background-color:#ccc;color:#fff;float:left;margin:.16em}'},
-     r.values.map{|d|
-      d[DC+'Image'].do{|is|
-        is = is.sort_by(&:uri)
-        {type: :book,
-          c: [{_: :img, style:'float:left;max-width:100%', src: is[0].url},
-              {name: :pages,
-                c: is.map{|i|{_: :a,href: i.url, c: i.E.bare}}}]}}}]}
-
-end

data/infod/ruby.rb

@@ -1,57 +0,0 @@
-class Array
-  def head; self[0] end
-  def tail; self[1..-1] end
-  def h; join.h end
-  def intersperse i
-    inject([]){|a,b|a << b << i}[0..-2]
-  end
-  def cr; intersperse "\n" end
-end
-
-class FalseClass
-  def do; false end
-end
-
-class Fixnum
-  def max i; i > self ? self : i end
-  def min i; i < self ? self : i end
-end
-
-class Float
-  def max i; i > self ? self : i end
-  def min i; i < self ? self : i end
-end
-
-class Hash
-  def except *ks
-    clone.do{|h|
-      ks.map{|k|h.delete k}
-      h}
-  end
-  def has_keys ks; ks.each{|k|
-      return false unless has_key? k
-    }; true
-  end
-  def has_any_key ks; ks.each{|k|
-      return true if has_key? k
-    }; false
-  end
-end
-
-class NilClass
-  def do; nil end
-  def html e=nil,g=nil; "" end
-end
-
-class Object
-  def id; self end
-  def do; yield self end
-  def maybeURI; nil end
-end
-
-class String
-  def h; Digest::SHA1.hexdigest self end
-  def tail; self[1..-1] end
-  def to_utf8; encode('UTF-8', undef: :replace) end
-  def t; match(/\/$/) ? self : self+'/' end
-end

data/infod/sh.rb

@@ -1,19 +0,0 @@
-class E
-
-  # util, URI prefix, cleaner -> tripleStream
-  def triplrStdOut e,f='/',g=/^\s*(.*?)\s*$/,a=sh
-
-    `#{e} #{a}|grep :`.each_line{|i|
-
-      i = i.split /:/
-
-    yield uri, (f + (i[0].match(g)||[0,i[0]])[1].                            # s
-     gsub(/\s/,'_').gsub(/\//,'-').gsub(/[\(\)]+/,'')),                      # p
-      i.tail.join(':').strip.do{|v|v.match(/^[0-9\.]+$/) ? v.to_f : v.hrefs} # o
-    }
-    nil
-  rescue
-    nil
-  end
-
-end

data/infod/wiki.rb

@@ -1,18 +0,0 @@
-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