2 files changed, 48 insertions, 0 deletions
diff --git a/dev-lang/helium/files/digest-helium-1.2 b/dev-lang/helium/files/digest-helium-1.2
new file mode 100644
index 000000000000..c3cf03e43437
--- /dev/null
+++ b/dev-lang/helium/files/digest-helium-1.2
@@ -0,0 +1,2 @@
+MD5 6ea1d6e4436e137d75f5354b4758f299 helium-1.2-src.tar.gz 1200565
+MD5 d9caae2afdbd60a4a1f58174d318464a Hint.jar 120170
diff --git a/dev-lang/helium/files/helium-1.2-readline.patch b/dev-lang/helium/files/helium-1.2-readline.patch
new file mode 100644
index 000000000000..c382ffb177ef
--- /dev/null
+++ b/dev-lang/helium/files/helium-1.2-readline.patch
@@ -0,0 +1,46 @@
+--- helium-1.2/heliumNT/src/Makefile.in.orig	2004-01-22 08:04:57.000000000 -0200
++++ helium-1.2/heliumNT/src/Makefile.in	2004-02-05 18:33:35.000000000 -0200
+@@ -256,7 +256,7 @@
+ 	@echo "****************************************************"
+ 	@echo "  TextHint: the textual Helium interpreter"
+ 	@echo "****************************************************"
+-	$(HC) $(HC_OPTS) --make -iutils -o $(HELIUMBINDIR)/texthint$(EXE) texthint/Main.hs 
++	$(HC) $(HC_OPTS) --make -package util -iutils -o $(HELIUMBINDIR)/texthint$(EXE) texthint/Main.hs 
+ 	$(STRIP) $(HELIUMBINDIR)/texthint$(EXE)
+ 
+ # AG sources
+--- helium-1.2/heliumNT/src/texthint/Main.hs.orig	2003-03-06 11:45:13.000000000 -0300
++++ helium-1.2/heliumNT/src/texthint/Main.hs	2004-02-05 18:40:08.000000000 -0200
+@@ -2,6 +2,7 @@
+ 
+ import Char
+ import List(isPrefixOf, isSuffixOf)
++import Readline
+ import Monad(when)
+ import IO(stdout, hFlush)
+ import System(system, getEnv, getArgs, exitWith, ExitCode(..))  
+@@ -64,6 +65,11 @@
+             cmdLoadModule (head args) initialState
+         else
+             return initialState
++
++    -- Initialize readline
++    initialize
++    -- Deactivate filename completion
++    setCompletionEntryFunction (Just (const $ return []))
+             
+     -- Enter read-eval-print loop            
+     loop stateAfterLoad
+@@ -79,9 +85,9 @@
+ 
+ loop :: State -> IO State
+ loop state = do
+-    putStr (prompt state)
+-    hFlush stdout
+-    command' <- getLine
++    command'' <- readline (prompt state)
++    let command' = maybe ":q" id command''
++    addHistory command'
+     let command = trim command'
+     newState <- case command of
+         (':':cmd:rest) ->