menu di testo semplice in Haskell

Question

Vorrei sapere qual è la soluzione migliore per creare menu semplice con funzionalità descritte di seguito (pseudo codice), proprio come ci sono abituato:

while (true) { 
    x = readLine(); 
    case (x): 
     x == "1" then do sth1 function 
     x == "2" then do sth2 function 
} 

O forse altre idee su come creare un menu non nello schema sopra descritto?

Answer 1

Qualcosa di simile

menu :: IO() 
menu = do 
     putStrLn . unlines $ map concatNums choices 
     choice <- getLine 
     case validate choice of 
     Just n -> execute . read $ choice 
     Nothing -> putStrLn "Please try again" 

     menu 
    where concatNums (i, (s, _)) = show i ++ ".) " ++ s 

validate :: String -> Maybe Int 
validate s = isValid (reads s) 
    where isValid []   = Nothing 
     isValid ((n, _):_) 
       | outOfBounds n = Nothing 
       | otherwise  = Just n 
     outOfBounds n = (n < 1) || (n > length choices) 

choices :: [(Int, (String, IO()))] 
choices = zip [1.. ] [ 
    ("DoSomething", foo) 
, ("Quit", bar) 
] 

execute :: Int -> IO() 
execute n = doExec $ filter (\(i, _) -> i == n) choices 
    where doExec ((_, (_,f)):_) = f 

foo = undefined 
bar = undefined 

Probabilmente si può dividere l'enumerazione di "scelte" in modo da avere solo le descrizioni e le funzioni al suo interno, un po 'di separazione, ma questo funziona. Valutare la funzione "menu" ti permetterà di scegliere cosa fare!

Answer 2

Ci sono alcuni pacchetti freddi per modi di alto livello per costruire sistemi di linea di comando in generale:

1. ui-command: Un quadro per i programmi a riga di comando amichevoli
2. haskeline: Un'interfaccia a riga di comando per l'input dell'utente, scritte in Haskell.
3. HCL: libreria di alto livello per la creazione di interfacce a linea di comando.

Mi piace particolarmente il comando ui, poiché è un intero framework per gli strumenti della riga di comando: invierà alle funzioni del gestore fornite per ogni comando e fornirà anche l'aiuto specifico del comando all'utente.

L'obiettivo è una sensazione raffinata, piuttosto che una sensazione di hacker.

Answer 3

Ecco un altro esempio che è un po 'più simile a un menu, in quanto legge i singoli caratteri in modo che reagiscano direttamente, senza richiedere all'utente di premere Invio.

import System.IO 
import System.Exit 

import Control.Monad 


main = forever (printMenu >> readChoice >>= menuAction) 

printMenu = putStr "\np)rint 'Hello, world!'\ne)xit\nyour choice: " >> hFlush stdout 

readChoice = hSetBuffering stdin NoBuffering >> hSetEcho stdin False >> getChar 

menuAction 'p' = putStrLn "\nHello, world!" 
menuAction 'e' = exitSuccess 
menuAction _ = hPutStrLn stderr "\nInvalid choice."