Revision 81959e7b src/hs2py.hs

b/src/hs2py.hs
1 
{-# LANGUAGE TemplateHaskell #-}
2 

  		





  1
  3
  
    
{-| Haskell to Python opcode generation program.


  		





  2
  4
  
    

  		





  3
  5
  
    
-}


  		





  ......




  25
  27
  
    

  		





  26
  28
  
    
import Ganeti.Hs2Py.GenOpCodes


  		





  27
  29
  
    
import Ganeti.Hs2Py.ListConstants


  		





  
  30
  
    
import Ganeti.THH.PyRPC


  		





  
  31
  
    
import qualified Ganeti.WConfd.Core as WConfd


  		





  28
  32
  
    

  		





  29
  33
  
    
import System.Environment (getArgs)


  		





  30
  34
  
    
import System.Exit (exitFailure)


  		





  ......




  36
  40
  
    
  case args of


  		





  37
  41
  
    
    ["--opcodes"] -> putStrLn showPyClasses


  		





  38
  42
  
    
    ["--constants"] -> putConstants


  		





  
  43
  
    
    ["--wconfd-rpc"] -> putStrLn $


  		





  
  44
  
    
      $( genPyUDSRpcStubStr "ClientRpcStub" "WCONFD_SOCKET"


  		





  
  45
  
    
                            WConfd.exportedFunctions )


  		





  39
  46
  
    
    _ -> do


  		





  40
  
  
    
      hPutStrLn stderr "Usage: hs2py --opcodes | --constants"


  		





  
  47
  
    
      hPutStrLn stderr "Usage: hs2py --opcodes\


  		





  
  48
  
    
                                  \| --constants\


  		





  
  49
  
    
                                  \| --wconfd-rpc"


  		





  41
  50
  
    
      exitFailure


  		












Also available in:
  Unified diff