Carp/core/System.carp

(system-include "carp_system.h")

(defmodule System
  (doc free "Frees an object. Should not be called except in direst circumstances.")
  (register free (Fn [t] ()))
  (doc time "Gets the current system time as an integer.")
  (register time (Fn [] Int))
  (doc nanotime "Gets the current system time in nanoseconds as a long.")
  (register nanotime (Fn [] Long))
  (doc sleep-seconds "Sleeps for a specified number of seconds.")
  (register sleep-seconds (Fn [Int] ()))
  (doc sleep-seconds "Sleeps for a specified number of microseconds.")
  (register sleep-micros (Fn [Int] ()))
  (doc system "Performs a system command.")
  (register system (Fn [&String] ()))
  (doc get-arg "Gets the command line argument at a specified index.")
  (register get-arg (Fn [Int] (Ref String)))
  (doc get-args-len "Gets the number of command line arguments.")
  (register get-args-len (Fn [] Int))
  (register fork (Fn [] Int) "fork")
  (register wait (Fn [(Ptr Int)] Int) "wait")
  (register get-exit-status (Fn [Int] Int) "WEXITSTATUS")
  (register signal (Fn [Int (Fn [Int] ())] ()) "signal")
  (register signal-abort Int "SIGABRT")
  (register signal-fpe Int "SIGFPE")
  (register signal-ill Int "SIGILL")
  (register signal-int Int "SIGINT")
  (register signal-segv Int "SIGSEGV")
  (register signal-term Int "SIGTERM")
)