Cài đặt argv [0] trong Haskell?

Question

Có cách nào để đặt argv[0] trong chương trình Haskell (ví dụ, một được biên dịch bằng ghc) không?

Tôi đã tìm thấy các chức năng getProgName và withProgName trong System.Environment, nhưng dường như không thay đổi báo cáo ps (Ubuntu) nào.

import System.Environment 

main = 
    do name <- getProgName 
    putStrLn $ "Hello, my name is " ++ name 
    withProgName "other" $ do 
     newname <- getProgName 
     putStrLn $ "Name now set to " ++ newname 
     putStrLn "What is your name: " 
     -- allow time to run ps 
     ans <- getLine 
     putStrLn $ "Pleased to meet you, " ++ ans 

Answer 1

Không có cách nào di động để làm điều này, nhưng trên Linux 2.6.9 và lên tên quá trình có thể được thay đổi với prctl() bằng cách sử dụng hoạt động PR_SET_NAME, vì vậy chúng tôi chỉ cần một chút FFI để sử dụng nó từ Haskell. (Nó thường là một ý tưởng tốt để kiểm tra nếu có bất kỳ ràng buộc trên Hackage, nhưng trong trường hợp này tôi không thể tìm thấy bất kỳ).

{-# LANGUAGE ForeignFunctionInterface #-} 

import Foreign.C 

foreign import ccall "sys/prctl.h prctl" 
    prctl :: CInt -> CString -> CULong -> CULong -> CULong -> IO CInt 

setProgName :: String -> IO() 
setProgName title = 
    withCString title $ \title' -> do 
    res <- prctl pr_set_name title' 0 0 0 
    return() 
    where pr_set_name = 15 

Điều này có vẻ phù hợp để thay đổi tên như được thấy bởi ps. Tuy nhiên, giá trị trả về bởi getProgName dường như được lưu vào bộ nhớ cache khi chương trình bắt đầu, vì vậy bạn sẽ phải kết hợp điều này với withProgName để xem thay đổi trong chương trình của bạn.

Answer 2

Tên chương trình được cố định tại thời điểm chương trình bắt đầu, vì vậy bất kỳ cơ chế nào để thay đổi tên chương trình được báo cáo sẽ là hệ điều hành cụ thể. Theo tôi biết, không có cách nào để làm điều này với các thư viện chuẩn, và tìm kiếm nhanh chóng của Hackage không hiển thị bất cứ điều gì. Tôi không chắc chắn có bất kỳ cách nào để thực hiện điều này với Linux ở nơi đầu tiên, khác hơn là tái thực hiện chương trình tương tự với một khác nhau argv[0].