nothing is inline anymore

[CleanReadLine.git] / ReadLine.icl

diff --git a/ReadLine.icl b/ReadLine.icl
index cb4cfbb..b377371 100644 (file)
--- a/ReadLine.icl
+++ b/ReadLine.icl
@@ -11,14 +11,14 @@ readLine s h e = code {
        }
 
 setReadLineName :: !String !*env -> !*env
-setReadLineName s e = code inline {
-                       ccall cleanSetReadLineName "S-"
+setReadLineName s e = code {
+                       ccall cleanSetReadLineName "S:V:A"
        }
 
 //Initializing History and State Management
 usingHistory :: !*env -> !*env
-usingHistory e = code inline {
-                       ccall cleanUsingHistory "-"
+usingHistory e = code {
+                       ccall cleanUsingHistory ":V:A"
        }
 
 historyGetHistoryState :: !*env -> (!HistoryState, !*env)
@@ -28,8 +28,8 @@ historyGetHistoryState e
 = ({HistoryState | entries=entries, offset=offset, flags=flags}, e)
        where
                getState :: !*env -> (!Int, !Int, !Int, !*env)
-               getState e= code inline {
-                       ccall cleanGetState "-III"
+               getState e= code {
+                       ccall cleanGetState ":VIII:A"
                }
                getItems :: !Int !*env -> (![HistoryItem], !*env)
                getItems 0 e = ([], e)
@@ -39,8 +39,8 @@ historyGetHistoryState e
                = ([{line=line,timestamp=timestamp}:rest], e)
 
                getItem :: !Int !*env -> (!String, !String, !*env)
-               getItem i e = code inline {
-                       ccall cleanGetHistoryItem "I-SS"
+               getItem i e = code {
+                       ccall cleanGetHistoryItem "I:VSS:A"
                }
                
 
@@ -49,13 +49,13 @@ historySetHistoryState hs e = abort "Not Implemented"
 
 //History List Management
 addHistory :: !String !*env -> !*env
-addHistory s e = code inline {
-                       ccall cleanAddHistory "S-"
+addHistory s e = code {
+                       ccall cleanAddHistory "S:V:A"
        }
 
 clearHistory :: !*env -> !*env
-clearHistory e = code inline{
-                       ccall cleanClearHistory "-"
+clearHistory e = code {
+                       ccall cleanClearHistory ":V:A"
        }
 
 //Information About the History List