unmaintained: New home for misfit Factor vocabularies.

[factor-unmaintained.git] / triggers / triggers.factor

diff --git a/triggers/triggers.factor b/triggers/triggers.factor
new file mode 100644 (file)
index 0000000..83dc4c5
--- /dev/null
+++ b/triggers/triggers.factor
@@ -0,0 +1,28 @@
+! Copyright (C) 2008 Alex Chapman
+! See http://factorcode.org/license.txt for BSD license.
+USING: assocs digraphs kernel namespaces sequences ;
+IN: triggers
+
+: triggers ( -- triggers )
+    \ triggers global [ drop H{ } clone ] cache ;
+
+: trigger-graph ( trigger -- graph )
+    triggers [ drop <digraph> ] cache ;
+
+: reset-trigger ( trigger -- )
+    <digraph> swap triggers set-at ;
+
+: add-trigger ( key quot trigger -- )
+    ! trigger should be a symbol. Note that symbols with the same name but
+    ! different vocab are not equal
+    trigger-graph add-vertex ; 
+
+: before ( key1 key2 trigger -- )
+    trigger-graph add-edge ;
+
+: after ( key1 key2 trigger -- )
+    swapd before ;
+
+: call-trigger ( trigger -- )
+    trigger-graph topological-sorted-values [ call ] each ;
+