1 files changed, 32 insertions, 5 deletions

diff --git a/_.lua b/_.lua
index c1710ee..42c3b4a 100755
--- a/_.lua
+++ b/_.lua
@@ -59,10 +59,12 @@ _._ = function(c)
         self.logging = true
         return self
     end
+
     function exe:show()
         self.showing = true
         return self
     end
+
     function exe:Nice(c)
         if nil == c then
             self.cmd = 'ionice -c3 nice -n 19 ' .. self.cmd
@@ -71,6 +73,7 @@ _._ = function(c)
         end
         return self
     end
+
     function exe:timeout(c)
         -- timeout returns a status of - command status if --preserve-status; "128+9" (actually 137) if --kill-after ends up being done; 124 if it had to TERM; command status if all went well.
         -- --kill-after means "send KILL after TERM fails.
@@ -81,33 +84,40 @@ _._ = function(c)
         end
         return self
     end
-    function exe:also(c)
+
+    function exe:also(c)        -- Should be called "then" but that's a reserved word.
         if nil == c then c = '' else c = ' ' .. c end
         self.cmd = self.cmd .. '; ' .. c .. ' '
         return self
     end
+
     function exe:And(c)
         if nil == c then c = '' else c = ' ' .. c end
         self.cmd = self.cmd .. ' && ' .. c .. ' '
         return self
     end
+
     function exe:Or(c)
         if nil == c then c = '' end
         self.cmd = self.cmd .. ' || ' .. c .. ' '
         return self
     end
+
     function exe:noErr()
         self.cmd = self.cmd .. ' 2>/dev/null '
         return self
     end
+
     function exe:noOut()
         self.cmd = self.cmd .. ' 1>/dev/null '
         return self
     end
+
     function exe:wait(w)
         self.cmd = self.cmd .. ' && touch ' .. w .. ' '
         return self
     end
+
     function exe:Do()
     --[[    "The condition expression of a control structure can return any
             value. Both false and nil are considered false. All values different
@@ -135,23 +145,40 @@ _._ = function(c)
         end
         return self
     end
+
     function exe:fork(host)
-        if nil ~= host then self.cmd = self.cmd .. ';  r=$?; if [ $r -ge 124 ]; then echo "$r ' .. host .. ' failed forked command ' .. string.gsub(self.cmd, '"', "'") .. '"; fi' end
+--      if nil ~= host then self.cmd = self.cmd .. ';  r=$?; if [ $r -ge 124 ]; then echo "$r ' .. host .. ' failed forked command ' .. string.gsub(self.cmd, '"', "'") .. '"; fi' end
         self.cmd = '{ ' .. self.cmd .. ' ; } & '
         if true == self.logging then D(" forking - " .. self.cmd) end
         os.execute(self.cmd)
         return self
     end
+
+    function exe:forkOnce()
+        if _.running(self.command) then
+            D('Already running ' .. self.command)
+        else
+            self:fork()
+        end
+    end
+
     return exe
 end
+
 local __ = _._
 
+_.runnable = function(c)
+    return ( 0 == __('which ' .. c):Do().status )
+end
 
-_.exists = function(c)
-    if 0 == __('which ' .. c):Do().status then return true end
-    return false
+_.running = function(c)
+        return ( 1 ~= tonumber(__("pgrep -u $USER -cf " .. c):Do().lines[1]) )
 end
 
+_.exists = function(f)
+    local h, e = io.open(f, "r")
+    if nil == h then return false else h:close();  return true end
+end
 
 _.killEmAll = function(all)
     for i,l in ipairs(all) do