monotone-commits-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Monotone-commits-diffs] net.venge.monotone: 0d7c5448743182134e8d15dff2


From: code
Subject: [Monotone-commits-diffs] net.venge.monotone: 0d7c5448743182134e8d15dff21eb61fd9aab2f6
Date: Sun, 6 Mar 2011 13:08:18 +0100 (CET)

revision:            0d7c5448743182134e8d15dff21eb61fd9aab2f6
date:                2011-03-06T12:07:40
author:              Richard Levitte <address@hidden>
branch:              net.venge.monotone
changelog:
* display_branches.lua: moved to the wiki.
  http://wiki.monotone.ca/extra/contrib/display_branches/

manifest:
format_version "1"

new_manifest [d4b1490f0076663a35b5a40af52a4fc7416a8826]

old_revision [2d399e313ddbd2f9ae1a238d1b4f4365a7c5f7f6]

delete "contrib/display_branches.lua"
============================================================
--- contrib/display_branches.lua	5b9602203db9c299e7821b18078786a8a7fe5574
+++ /dev/null	
@@ -1,109 +0,0 @@
--- Lua snippet to display what branches were affected by revisions and certs
--- that came into the database.  I integrate it into my ~/.monotone/monotonerc
--- /Richard Levitte
---
--- Released as public domain
-
-do
-   netsync_branches = {}
-
-   function RL_note_netsync_cert_received(direction,rev_id,key,name,value,nonce)
-      if name == "branch" then
-	 if netsync_branches[direction][nonce][value] == nil then
-	    netsync_branches[direction][nonce][value] = 1
-	 else
-	    netsync_branches[direction][nonce][value] =
-	       netsync_branches[direction][nonce][value] + 1
-	 end
-      end
-   end
-
-   notifier = {
-      ["start"] =
-	 function(session_id,...)
-	    netsync_branches["received"] = {}
-	    netsync_branches["sent"] = {}
-	    netsync_branches["received"][session_id] = {}
-	    netsync_branches["sent"][session_id] = {}
-	    return "continue",nil
-	 end,
-      ["revision_received"] =
-	 function(new_id,revision,certs,session_id)
-	    for _, item in pairs(certs) do
-	       RL_note_netsync_cert_received("received",
-					     new_id,
-					     item.key,
-					     item.name,
-					     item.value,
-					     session_id)
-	    end
-	    return "continue",nil
-	 end,
-      ["revision_sent"] =
-	 function(new_id,revision,certs,session_id)
-	    for _, item in pairs(certs) do
-	       RL_note_netsync_cert_received("sent",
-					     new_id,
-					     item.key,
-					     item.name,
-					     item.value,
-					     session_id)
-	    end
-	    return "continue",nil
-	 end,
-      ["cert_received"] =
-	 function(rev_id,key,name,value,session_id)
-	    RL_note_netsync_cert_received("received",
-					  rev_id,
-					  key,name,value,
-					  session_id)
-	    return "continue",nil
-	 end,
-      ["cert_sent"] =
-	 function(rev_id,key,name,value,session_id)
-	    RL_note_netsync_cert_received("sent",
-					  rev_id,
-					  key,name,value,
-					  session_id)
-	    return "continue",nil
-	 end,
-      ["end"] =
-	 function(session_id,status)
-	    -- only try to display results if we got
-	    -- at least partial contents
-	    if status > 211 then
-	       return "continue",nil
-	    end
-
-	    local first = true
-	    for item, amount in pairs(netsync_branches["received"][session_id])
-	    do
-	       if first then
-		  io.stderr:write("Received data on branches:\n")
-		  first = false
-	       end
-	       io.stderr:write("  ",item,"  (",amount,")\n")   
-	    end
-	    netsync_branches["received"][session_id] = nil
-
-	    first = true
-	    for item, amount in pairs(netsync_branches["sent"][session_id])
-	    do
-	       if first then
-		  io.stderr:write("Sent data on branches:\n")
-		  first = false
-	       end
-	       io.stderr:write("  ",item,"  (",amount,")\n")   
-	    end
-	    netsync_branches["sent"][session_id] = nil
-	    return "continue",nil
-	 end
-   }
-
-   local v,m = push_hook_functions(notifier)
-   if not v then
-      error(m)
-   elseif m then
-      io.stderr:write("Warning: ",m,"\n")
-   end
-end

reply via email to

[Prev in Thread] Current Thread [Next in Thread]