first commit

perl/lib/Graph-Easy-0.76/t/fun/0000.txt

@@ -0,0 +1,22 @@
+# Example from Graphviz extension
+# http://www.wickle.com/wiki/index.php/Graphviz_extension
+
+node.red { background: red; }
+
+ [ ns ] { class: red } -> [ addons ]
+ -> [ metamod ] { class: red }
+ -> [ dlls2 ] { label: dlls }
+
+ [ metamod ] -> [ doc ] -> [html ]
+
+ [ ns ] -> [ logs ]
+ [ ns ] -> [ gfx ] -> [ vgui ]
+ [ addons ] -> [ amxmodx ] -> [ configs ] { class: red }
+
+ [ amxmodx ] -> [ data ] -> [ lang ]
+ [ amxmodx ] -> [ dlls ]
+ [ amxmodx ] -> [ plugins ] { class: red }
+
+ [ doc ] -> [ txt ]
+
+

perl/lib/Graph-Easy-0.76/t/fun/0010.txt

@@ -0,0 +1,5 @@
+# Elan and Roy on Teamwork
+# http://www.cafepress.com/orderofthestick.10272636?zoom=yes#zoom
+
+[ Teamwork ] { fill: yellow; title: Elan; }
+-- is the key to --> [ Victory ] { fill: red; title: Roy; }

perl/lib/Graph-Easy-0.76/t/fun/0011.txt

@@ -0,0 +1,8 @@
+# Elan and Roy on Teamwork
+# http://www.cafepress.com/orderofthestick.10272636?zoom=yes#zoom
+
+[ Teamwork ] { fill: yellow; title: Elan; }
+-- is the key to --> [ Victory ] { fill: red; title: Roy; }
+
+[ Victory ]  -- the order of the --> [ Stick ] { fill: #ff80a0; }
+[ Victory ]  -- Treasure --> [ Haley ] { fill: lightblue; }

perl/lib/Graph-Easy-0.76/t/fun/0020.txt

@@ -0,0 +1,7 @@
+# Enlightment
+# http://bloodgate.com/perl/graph/
+
+ [ Textual description ] { fill: #804020; }
+-> [ Parser ] { fill: #a06040; }
+-> [ Layouter ] { fill: #d08060; }
+-> [ Output (ASCII/HTML) ] { fill: #ffa090; }

perl/lib/Graph-Easy-0.76/t/fun/0030.txt

@@ -0,0 +1,18 @@
+# Example from Graphviz extension
+# http://www.wickle.com/wiki/index.php/Graphviz_extension
+
+node { shape: circle; }
+
+[ main ] { shape: rect; } # this is a comment
+-> [ parse ]
+-> [ execute ]
+-> [ make_string ] { label: make a\n string; }
+
+[ main ] ..> [ init ]
+[ main ] -- Testlabel --> [ cleanup ]
+
+[ init ] -> [ make_string ]
+
+[ main ] == 100 times ==> { color: red; style: bold; } [ printf ] 	# bold red edge!
+
+[ execute ] -> { color: red; } [ compare ] { shape: rect; background: #c1b2ff; }

perl/lib/Graph-Easy-0.76/t/fun/0131.txt

@@ -0,0 +1,23 @@
+# Three non-overlapping groups
+
+group.dmz { fill: #ffa070; }
+group.outer { fill: #f07070; }
+
+( Internal Network:
+  [ Workstation ]
+) { fill: #70b070; }
+
+[ Workstation ] --> [ Inner Firewall ]
+
+( DMZ:
+[ Inner Firewall ] -> [ Proxy ]
+--> [ Outer Firewall ]
+[ Proxy ] --> [ Database\n Server ]
+) { class: dmz; }
+
+( Outer:
+  [ Internet ]
+) { class: outer }
+
+[ Outer Firewall ] --> [ Internet ]
+

perl/lib/Graph-Easy-0.76/t/fun/0200.txt

@@ -0,0 +1,13 @@
+# Example from: http://wiki.debian.org.hk/w/Generate_SSL_cert
+# http://wiki.debian.org.hk/w/Generate_SSL_cert
+
+[ Start ] { shape: rounded; }
+-- openssl\n genrsa --> [ key ]
+-- openssl\n req --> [ Certificate\n Signing\n Request\n (CSR) ]
+-> [ CA ] { label: "Certificate\n Authority\n (CA)"; shape: circle; }
+-> [ Certificate\n (CRT) ]
+
+[ CA ] -> [ Certificate\n Revocation\n List\n (CRL) ]
+
+[ CA Key ] -> [ CA ]
+

perl/lib/Graph-Easy-0.76/t/fun/biofuel.txt

@@ -0,0 +1,27 @@
+# Example from: http://www.islandseeds.org/wiki/Biofuel
+# http://www.islandseeds.org/wiki/Biofuel
+
+graph { flow: east; }
+node { shape: ellipse; }
+
+   [ solar energy ] { fill: yellow; }
+   [ water] { fill: cyan; }
+   [ soil ] { fill: burlywood; }
+
+-> [ vegetation ]
+-> [ processing ]
+-> [ biofuel ]
+-> [ combustion ]
+-> [ useful work ] { fill: lightgray; }
+
+[ combustion ] -> [ carbon dioxide ]
+[ combustion ] -> [ pollution ]
+
+[ processing ] ..> [ compost ] ..> [ soil ]
+[ processing ] ..> [ carbon dioxide ]
+[ processing ] ..> [ pollution ]
+
+[ water ] -> [ vegetation ]
+[ solar energy ] -> [ vegetation ]
+
+

perl/lib/Graph-Easy-0.76/t/fun/geek_dating.txt

@@ -0,0 +1,39 @@
+# The famous 1999 geek dating flow char from userfriendly.org
+# http://www.userfriendly.org/cartoons/archives/99mar/19990314.html
+
+graph { label: GEEK DATING FLOWCHART; font-size: 3em; color: red; font: serif; }
+node { text-wrap: auto; color: black; font-size: 0.8em; }
+edge { color: black; }
+edge.yes { label: Yes; }
+edge.no { label: No; }
+
+[ Start ] { label: Do you have someone in mind? } --> { class: no; flow: forward; } [ GPF ] { fill: #00b0ff; }
+
+[ Start ] --> { class: yes; }
+  [ Available ] { label: Are they available? } --> { class: yes; } [ Exist ] { label: Do they know you exist? }
+
+  --> { class: yes; } [ Truly remararkable. They're available and they know you exist. Will wonders never cease. ]
+   { origin: Exist; offset: 0,4; }
+  --> { end: back, 0; } [ Askout ] { label: So now you just need to ask them out on a date. What do they say? }
+  --> { class: yes; } [ Hahahaha! Yeah. Right. ]
+  --> { start: front,0; end: right, 0; } [ End ] { label: Well, you can still have a date with your Palm S<Pilot>; format: pod; }
+
+  [ Available ] --> { class: no; } [ GPF ]
+
+  [ Exist ] --> { class: no; }
+  [ Ask them if they like Computers: ]
+  --> { class: no; } [ Ask them if they like 'Star Wars': ]
+  --> { class: no; } [ Ask them if they like the "Hitchhiker's Guide': ]
+  --> { class: no; } [ Qualities ] { label: Ask them if they have any redeeming qualities at all: }
+
+  [ Ask them if they like Computers: ],
+  [ Ask them if they like 'Star Wars': ]
+  [ Ask them if they like the "Hitchhiker's Guide': ],
+  [ Qualities ] --> { class: yes; end: back, 0; } [ Lying ] { label: They're lying. Ditch them; }
+
+  [ Qualities ] --> { class: no; } [ Smell ] { label: At least they're honest. Ask them if you smell bad: }
+  --> { class: no; } [ Lying ]
+  --> [ End ]
+
+  [ Smell ] --> { class: yes;} [ Yup, they're honest all right. But now you know they think you smell bad. Ditch them. ] --> [ End ]
+

perl/lib/Graph-Easy-0.76/t/fun/overview.txt

@@ -0,0 +1,21 @@
+graph { flow: south; }
+
+node.input { fill: lime; }
+node.output { fill: darkorange; }
+node.dot { fill: gold; }
+
+[ Text ], [ Graphviz ] { class: input; } -> [ Parser ]
+
+[ Perl ] { class: input; }, [ Parser ] -> [ Graph::Easy ]  -> { start: front; }
+  [ Text2 ] { label: Text; }, [ Graphviz2 ] { class: output }
+
+[ Graph::Easy ] -> [ Layouter ]
+
+[ Graphviz2 ] { label: Graphviz; }
+
+ -> { minlen: 1; } [ dot ] { fill: #8080ff; } -> { start: front; }
+  [ .pdf ], [ .png ], [ .ps ] { class: dot; }
+
+ [ Layouter ] { offset: 2,0; origin: Graph::Easy; } -> { start: front; }
+  [ ASCII /\nUnicode ], [ HTML ], [ SVG ] { class: output }
+