From 7afaa255c15679c642b440fac17e481aaa0b63d5 Mon Sep 17 00:00:00 2001
From: Sam Anklesaria <sam@Tintin.local>
Date: Wed, 29 Apr 2009 21:51:19 -0500
Subject: [PATCH] string frying

---
 extra/str-fry/authors.txt    | 1 +
 extra/str-fry/str-fry.factor | 4 ++++
 extra/str-fry/summary.txt    | 1 +
 3 files changed, 6 insertions(+)
 create mode 100644 extra/str-fry/authors.txt
 create mode 100644 extra/str-fry/str-fry.factor
 create mode 100644 extra/str-fry/summary.txt

diff --git a/extra/str-fry/authors.txt b/extra/str-fry/authors.txt
new file mode 100644
index 0000000000..ce0899f16e
--- /dev/null
+++ b/extra/str-fry/authors.txt
@@ -0,0 +1 @@
+Sam Anklesaria
\ No newline at end of file
diff --git a/extra/str-fry/str-fry.factor b/extra/str-fry/str-fry.factor
new file mode 100644
index 0000000000..aafdaa95d9
--- /dev/null
+++ b/extra/str-fry/str-fry.factor
@@ -0,0 +1,4 @@
+USING: kernel sequences splitting strings.parser ;
+IN: str-fry
+: str-fry ( str -- quot ) "_" split unclip [ [ rot glue ] reduce ] 2curry ;
+SYNTAX: I" parse-string rest str-fry over push-all ;
\ No newline at end of file
diff --git a/extra/str-fry/summary.txt b/extra/str-fry/summary.txt
new file mode 100644
index 0000000000..7755f5ae9a
--- /dev/null
+++ b/extra/str-fry/summary.txt
@@ -0,0 +1 @@
+String Frying
\ No newline at end of file