[Top][All Lists]
[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Monotone-commits-diffs] net.venge.monotone: 0d7c5448743182134e8d15dff21eb61fd9aab2f6,
code <=