#include <SWI-Prolog.h>
#include <unistd.h>

foreign_t
pl_alarm(term_t time)
{ 
  double t;
  
  if ( PL_get_float(time, &t) )
    { alarm((long)(t+0.5));
      
      PL_succeed;
    }
  
  PL_fail;
}


install_t
install()
{ 
  PL_register_foreign("alarm", 1, pl_alarm, 0);
}