Início / coding / Perguntas / 79249457
Accepted
kesarling
Asked: 2024-12-04 07:24:22 +0800 CST

Por que printf não funciona com ccall em haskell?

  • 772

ERM:

{-# LANGUAGE ForeignFunctionInterface #-}

import GHC.Ptr
import Foreign
import Foreign.C
import Control.Monad

foreign import ccall unsafe "fibonacci.c fib" c_fib :: Int -> Int

example :: IO ()
example =
    print (c_fib 5)     

main = example

fibonacci.c

int fib(const int n) {
    if (n == 1) {
        printf("here");
        return 1;
    }
    else {
        return n*fib(n-1);
    }
}

resultado:

120 // does not print "here"

O que está acontecendo?

haskell

1 respostas

  1. Best Answer

    Isso acontece porque o stdout é armazenado em buffer de linha e printf("here")não libera o buffer.

    Você pode liberá-lo imprimindo uma nova linha ( printf("here\n")), ou explicitamente.

    printf("here");
fflush(stdout);
    • 3

relate perguntas