X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Flib%2Fghc%2FReadline.lhs;h=16cb0216d7bc8dea35b222c10c7673a535edbeef;hp=e3eeece84022e3373a40bb2f2d7f9d1b796686bf;hb=10521d8418fd3a1cf32882718b5bd28992db36fd;hpb=7fa716e248a1f11fa686965f57aebbb83b74fa7b diff --git a/ghc/lib/ghc/Readline.lhs b/ghc/lib/ghc/Readline.lhs index e3eeece..16cb021 100644 --- a/ghc/lib/ghc/Readline.lhs +++ b/ghc/lib/ghc/Readline.lhs @@ -99,7 +99,7 @@ i.e. add the (KeyCode,RlCallbackFunction) key to the assoc. list and register the generic callback for this KeyCode. The entry point that $genericRlCback$ calls would then read the -global variables $current_i$ and $current_kc$ and do a lookup: +global variables $current\_i$ and $current\_kc$ and do a lookup: \begin{code} rlAddDefun :: String -> -- Function Name @@ -121,10 +121,10 @@ rlAddDefun name cback key = The C function $genericRlCallback$ puts the callback arguments into global variables and enters the Haskell world through the $haskellRlEntry$ function. Before exiting, the Haskell function will -deposit its result in the global varariable $rl_return$. +deposit its result in the global varariable $rl\_return$. In the Haskell action that is invoked via $enterStablePtr$, a match -between the Keycode in $current_kc$ and the Haskell callback needs to +between the Keycode in $current\_kc$ and the Haskell callback needs to be made. To essentially keep the same assoc. list of (KeyCode,cback function) as Readline does, we make use of yet another global variable $cbackList$: