Revision f1b816b7 src/AutoConf.hs.in

b/src/AutoConf.hs.in
28 28 

  		





  29
  29
  
    
module AutoConf where


  		





  30
  30
  
    

  		





  
  31
  
    
split :: String -> [String]


  		





  
  32
  
    
split str =


  		





  
  33
  
    
  case span (/= ',') str of


  		





  
  34
  
    
    (x, []) -> [x]


  		





  
  35
  
    
    (x, _:xs) -> x:split xs


  		





  
  36
  
    

  		





  31
  37
  
    
packageVersion :: String


  		





  32
  38
  
    
packageVersion = "PACKAGE_VERSION"


  		





  33
  39
  
    

  		





  ......




  68
  74
  
    
exportDir = "EXPORT_DIR"


  		





  69
  75
  
    

  		





  70
  76
  
    
osSearchPath :: [String]


  		





  71
  
  
    
osSearchPath = OS_SEARCH_PATH[]


  		





  
  77
  
    
osSearchPath = split OS_SEARCH_PATH


  		





  72
  78
  
    

  		





  73
  79
  
    
esSearchPath :: [String]


  		





  74
  
  
    
esSearchPath = ES_SEARCH_PATH[]


  		





  
  80
  
    
esSearchPath = split ES_SEARCH_PATH


  		





  75
  81
  
    

  		





  76
  82
  
    
xenBootloader :: String


  		





  77
  83
  
    
xenBootloader = "XEN_BOOTLOADER"


  		





  ......




  92
  98
  
    
sharedFileStorageDir = "SHARED_FILE_STORAGE_DIR"


  		





  93
  99
  
    

  		





  94
  100
  
    
iallocatorSearchPath :: [String]


  		





  95
  
  
    
iallocatorSearchPath = IALLOCATOR_SEARCH_PATH[]


  		





  
  101
  
    
iallocatorSearchPath = split IALLOCATOR_SEARCH_PATH


  		





  96
  102
  
    

  		





  97
  103
  
    
kvmPath :: String


  		





  98
  104
  
    
kvmPath = "KVM_PATH"


  		












Also available in:
  Unified diff