[MLton-commit] r5859
Matthew Fluet
fluet at mlton.org
Mon Aug 13 14:25:54 PDT 2007
Updating MLton structure to match wiki documentation
----------------------------------------------------------------------
U mlton/trunk/basis-library/mlton/int-inf.sig
U mlton/trunk/basis-library/mlton/platform.sig
U mlton/trunk/basis-library/mlton/process.sig
U mlton/trunk/basis-library/mlton/rlimit.sig
U mlton/trunk/basis-library/mlton/rlimit.sml
U mlton/trunk/basis-library/mlton/rusage.sig
U mlton/trunk/basis-library/mlton/syslog.sig
U mlton/trunk/basis-library/mlton/syslog.sml
U mlton/trunk/basis-library/mlton/thread.sig
U mlton/trunk/basis-library/mlton/world.sig
U mlton/trunk/basis-library/primitive/basis-ffi.sml
U mlton/trunk/runtime/basis/MLton/Rlimit/rlimit-consts.c
U mlton/trunk/runtime/basis/MLton/Syslog/Syslog-consts.c
U mlton/trunk/runtime/basis-ffi.h
U mlton/trunk/runtime/gen/basis-ffi.def
U mlton/trunk/runtime/gen/basis-ffi.h
U mlton/trunk/runtime/gen/basis-ffi.sml
----------------------------------------------------------------------
Modified: mlton/trunk/basis-library/mlton/int-inf.sig
===================================================================
--- mlton/trunk/basis-library/mlton/int-inf.sig 2007-08-13 19:07:24 UTC (rev 5858)
+++ mlton/trunk/basis-library/mlton/int-inf.sig 2007-08-13 21:25:51 UTC (rev 5859)
@@ -9,12 +9,12 @@
sig
type t
- structure BigWord : WORD
- structure SmallInt : INTEGER
-
val areSmall: t * t -> bool
val gcd: t * t -> t
val isSmall: t -> bool
+
+ structure BigWord : WORD
+ structure SmallInt : INTEGER
datatype rep =
Big of BigWord.word vector
| Small of SmallInt.int
Modified: mlton/trunk/basis-library/mlton/platform.sig
===================================================================
--- mlton/trunk/basis-library/mlton/platform.sig 2007-08-13 19:07:24 UTC (rev 5858)
+++ mlton/trunk/basis-library/mlton/platform.sig 2007-08-13 21:25:51 UTC (rev 5859)
@@ -19,17 +19,8 @@
structure OS:
sig
- datatype t =
- AIX
- | Cygwin
- | Darwin
- | FreeBSD
- | HPUX
- | Linux
- | MinGW
- | NetBSD
- | OpenBSD
- | Solaris
+ datatype t = AIX | Cygwin | Darwin | FreeBSD | HPUX
+ | Linux | MinGW | NetBSD | OpenBSD | Solaris
val fromString: string -> t option
val host: t
Modified: mlton/trunk/basis-library/mlton/process.sig
===================================================================
--- mlton/trunk/basis-library/mlton/process.sig 2007-08-13 19:07:24 UTC (rev 5858)
+++ mlton/trunk/basis-library/mlton/process.sig 2007-08-13 21:25:51 UTC (rev 5859)
@@ -9,6 +9,10 @@
sig
type pid
+ val spawn: {args: string list, path: string} -> pid
+ val spawne: {args: string list, env: string list, path: string} -> pid
+ val spawnp: {file: string, args: string list} -> pid
+
(* Process handle *)
type ('stdin, 'stdout, 'stderr) t
@@ -69,7 +73,4 @@
val getStdout: ('stdin, 'stdout, 'stderr) t -> ('stdout, input) Child.t
val kill: ('stdin, 'stdout, 'stderr) t * Posix.Signal.signal -> unit
val reap: ('stdin, 'stdout, 'stderr) t -> Posix.Process.exit_status
- val spawn: {args: string list, path: string} -> pid
- val spawne: {args: string list, env: string list, path: string} -> pid
- val spawnp: {file: string, args: string list} -> pid
end
Modified: mlton/trunk/basis-library/mlton/rlimit.sig
===================================================================
--- mlton/trunk/basis-library/mlton/rlimit.sig 2007-08-13 19:07:24 UTC (rev 5858)
+++ mlton/trunk/basis-library/mlton/rlimit.sig 2007-08-13 21:25:51 UTC (rev 5859)
@@ -26,11 +26,11 @@
val stackSize: t (* STACK max stack size *)
val virtualMemorySize: t (* AS virtual memory limit *)
-(* NOT STANDARD
+(* NOT STANDARD *)
val lockedInMemorySize: t (* MEMLOCK max locked address space *)
val numProcesses: t (* NPROC max number of processes *)
val residentSetSize: t (* RSS max resident set size *)
- *)
+(* *)
val get: t -> {hard: RLim.t, soft: RLim.t}
val set: t * {hard: RLim.t, soft: RLim.t} -> unit
Modified: mlton/trunk/basis-library/mlton/rlimit.sml
===================================================================
--- mlton/trunk/basis-library/mlton/rlimit.sml 2007-08-13 19:07:24 UTC (rev 5858)
+++ mlton/trunk/basis-library/mlton/rlimit.sml 2007-08-13 21:25:51 UTC (rev 5859)
@@ -35,10 +35,10 @@
val stackSize = STACK
val virtualMemorySize = AS
-(* NOT STANDARD
+(* NOT STANDARD *)
val lockedInMemorySize = MEMLOCK
val numProcesses = NPROC
val residentSetSize = RSS
-*)
+(* *)
end
Modified: mlton/trunk/basis-library/mlton/rusage.sig
===================================================================
--- mlton/trunk/basis-library/mlton/rusage.sig 2007-08-13 19:07:24 UTC (rev 5858)
+++ mlton/trunk/basis-library/mlton/rusage.sig 2007-08-13 21:25:51 UTC (rev 5859)
@@ -9,11 +9,8 @@
signature MLTON_RUSAGE =
sig
type t = {utime: Time.time, (* user time *)
- stime: Time.time (* system time *)
- }
+ stime: Time.time} (* system time *)
val measureGC: bool -> unit
- val rusage: unit -> {children: t,
- gc: t,
- self: t}
+ val rusage: unit -> {children: t, gc: t, self: t}
end
Modified: mlton/trunk/basis-library/mlton/syslog.sig
===================================================================
--- mlton/trunk/basis-library/mlton/syslog.sig 2007-08-13 19:07:24 UTC (rev 5858)
+++ mlton/trunk/basis-library/mlton/syslog.sig 2007-08-13 21:25:51 UTC (rev 5859)
@@ -22,9 +22,9 @@
val NDELAY : openflag
val NOWAIT : openflag
val ODELAY : openflag
-(* NOT STANDARD
+(* NOT STANDARD *)
val PERROR : openflag
-*)
+(* *)
val PID : openflag
type facility
@@ -44,9 +44,9 @@
val LPR : facility
val MAIL : facility
val NEWS : facility
-(* NOT STANDARD
+(* NOT STANDARD *)
val SYSLOG : facility
-*)
+(* *)
val USER : facility
val UUCP : facility
Modified: mlton/trunk/basis-library/mlton/syslog.sml
===================================================================
--- mlton/trunk/basis-library/mlton/syslog.sml 2007-08-13 19:07:24 UTC (rev 5858)
+++ mlton/trunk/basis-library/mlton/syslog.sml 2007-08-13 21:25:51 UTC (rev 5859)
@@ -25,6 +25,9 @@
val NDELAY = LOG_NDELAY
val NOWAIT = LOG_NOWAIT
val ODELAY = LOG_ODELAY
+(* NOT STANDARD *)
+ val PERROR = LOG_PERROR
+(* *)
val PID = LOG_PID
end
@@ -48,9 +51,9 @@
val LPR = LOG_LPR
val MAIL = LOG_MAIL
val NEWS = LOG_NEWS
-(* NOT STANDARD
+(* NOT STANDARD *)
val SYSLOG = LOG_SYSLOG
-*)
+(* *)
val USER = LOG_USER
val UUCP = LOG_UUCP
end
Modified: mlton/trunk/basis-library/mlton/thread.sig
===================================================================
--- mlton/trunk/basis-library/mlton/thread.sig 2007-08-13 19:07:24 UTC (rev 5858)
+++ mlton/trunk/basis-library/mlton/thread.sig 2007-08-13 21:25:51 UTC (rev 5859)
@@ -13,9 +13,9 @@
sig
datatype t = NonAtomic | Atomic of int
end
+ val atomically: (unit -> 'a) -> 'a
val atomicBegin: unit -> unit
val atomicEnd: unit -> unit
- val atomically: (unit -> 'a) -> 'a
val atomicState: unit -> AtomicState.t
structure Runnable :
@@ -25,6 +25,12 @@
type 'a t
+ (* atomicSwitch f
+ * as switch, but assumes an atomic calling context. Upon
+ * switch-ing back to the current thread, an implicit atomicEnd is
+ * performed.
+ *)
+ val atomicSwitch: ('a t -> Runnable.t) -> 'a
(* new f
* create a new thread that, when run, applies f to
* the value given to the thread. f must terminate by
@@ -49,12 +55,6 @@
* atomically.
*)
val switch: ('a t -> Runnable.t) -> 'a
- (* atomicSwitch f
- * as switch, but assumes an atomic calling context. Upon
- * switch-ing back to the current thread, an implicit atomicEnd is
- * performed.
- *)
- val atomicSwitch: ('a t -> Runnable.t) -> 'a
end
signature MLTON_THREAD_EXTRA =
Modified: mlton/trunk/basis-library/mlton/world.sig
===================================================================
--- mlton/trunk/basis-library/mlton/world.sig 2007-08-13 19:07:24 UTC (rev 5858)
+++ mlton/trunk/basis-library/mlton/world.sig 2007-08-13 21:25:51 UTC (rev 5859)
@@ -8,9 +8,10 @@
signature MLTON_WORLD =
sig
+ datatype status = Clone | Original
+
val load: string -> 'a
(* Save the world to resume with the current thread. *)
- datatype status = Clone | Original
val save: string -> status
(* Save the world to resume with the given thread. *)
val saveThread: string * MLtonThread.Runnable.t -> unit
Modified: mlton/trunk/basis-library/primitive/basis-ffi.sml
===================================================================
--- mlton/trunk/basis-library/primitive/basis-ffi.sml 2007-08-13 19:07:24 UTC (rev 5858)
+++ mlton/trunk/basis-library/primitive/basis-ffi.sml 2007-08-13 21:25:51 UTC (rev 5859)
@@ -94,7 +94,10 @@
val getHard = _import "MLton_Rlimit_getHard" : unit -> C_RLim.t;
val getSoft = _import "MLton_Rlimit_getSoft" : unit -> C_RLim.t;
val INFINITY = _const "MLton_Rlimit_INFINITY" : C_RLim.t;
+val MEMLOCK = _const "MLton_Rlimit_MEMLOCK" : C_Int.t;
val NOFILE = _const "MLton_Rlimit_NOFILE" : C_Int.t;
+val NPROC = _const "MLton_Rlimit_NPROC" : C_Int.t;
+val RSS = _const "MLton_Rlimit_RSS" : C_Int.t;
val set = _import "MLton_Rlimit_set" : C_Int.t * C_RLim.t * C_RLim.t -> (C_Int.t) C_Errno.t;
val STACK = _const "MLton_Rlimit_STACK" : C_Int.t;
end
@@ -134,6 +137,7 @@
val LOG_LPR = _const "MLton_Syslog_Facility_LOG_LPR" : C_Int.t;
val LOG_MAIL = _const "MLton_Syslog_Facility_LOG_MAIL" : C_Int.t;
val LOG_NEWS = _const "MLton_Syslog_Facility_LOG_NEWS" : C_Int.t;
+val LOG_SYSLOG = _const "MLton_Syslog_Facility_LOG_SYSLOG" : C_Int.t;
val LOG_USER = _const "MLton_Syslog_Facility_LOG_USER" : C_Int.t;
val LOG_UUCP = _const "MLton_Syslog_Facility_LOG_UUCP" : C_Int.t;
end
@@ -143,6 +147,7 @@
val LOG_NDELAY = _const "MLton_Syslog_Logopt_LOG_NDELAY" : C_Int.t;
val LOG_NOWAIT = _const "MLton_Syslog_Logopt_LOG_NOWAIT" : C_Int.t;
val LOG_ODELAY = _const "MLton_Syslog_Logopt_LOG_ODELAY" : C_Int.t;
+val LOG_PERROR = _const "MLton_Syslog_Logopt_LOG_PERROR" : C_Int.t;
val LOG_PID = _const "MLton_Syslog_Logopt_LOG_PID" : C_Int.t;
end
val openlog = _import "MLton_Syslog_openlog" : NullString8.t * C_Int.t * C_Int.t -> unit;
Modified: mlton/trunk/runtime/basis/MLton/Rlimit/rlimit-consts.c
===================================================================
--- mlton/trunk/runtime/basis/MLton/Rlimit/rlimit-consts.c 2007-08-13 19:07:24 UTC (rev 5858)
+++ mlton/trunk/runtime/basis/MLton/Rlimit/rlimit-consts.c 2007-08-13 21:25:51 UTC (rev 5859)
@@ -11,6 +11,25 @@
const C_Int_t MLton_Rlimit_CPU = RLIMIT_CPU;
const C_Int_t MLton_Rlimit_DATA = RLIMIT_DATA;
const C_Int_t MLton_Rlimit_FSIZE = RLIMIT_FSIZE;
+/* NOT STANDARD */
+#if (defined (RLIMIT_MEMLOCK))
+const C_Int_t MLton_Rlimit_MEMLOCK = RLIMIT_MEMLOCK;
+#else
+const C_Int_t MLton_Rlimit_MEMLOCK = -1;
+#endif
+/* */
const C_Int_t MLton_Rlimit_NOFILE = RLIMIT_NOFILE;
+/* NOT STANDARD */
+#if (defined (RLIMIT_NPROC))
+const C_Int_t MLton_Rlimit_NPROC = RLIMIT_NPROC;
+#else
+const C_Int_t MLton_Rlimit_NPROC = -1;
+#endif
+#if (defined (RLIMIT_RSS))
+const C_Int_t MLton_Rlimit_RSS = RLIMIT_RSS;
+#else
+const C_Int_t MLton_Rlimit_RSS = -1;
+#endif
+/* */
const C_Int_t MLton_Rlimit_STACK = RLIMIT_STACK;
const C_RLim_t MLton_Rlimit_INFINITY = RLIM_INFINITY;
Modified: mlton/trunk/runtime/basis/MLton/Syslog/Syslog-consts.c
===================================================================
--- mlton/trunk/runtime/basis/MLton/Syslog/Syslog-consts.c 2007-08-13 19:07:24 UTC (rev 5858)
+++ mlton/trunk/runtime/basis/MLton/Syslog/Syslog-consts.c 2007-08-13 21:25:51 UTC (rev 5859)
@@ -4,6 +4,13 @@
const C_Int_t MLton_Syslog_Logopt_LOG_NDELAY = LOG_NDELAY;
const C_Int_t MLton_Syslog_Logopt_LOG_NOWAIT = LOG_NOWAIT;
const C_Int_t MLton_Syslog_Logopt_LOG_ODELAY = LOG_ODELAY;
+/* NOT STANDARD */
+#if (defined (LOG_PERROR))
+const C_Int_t MLton_Syslog_Logopt_LOG_PERROR = LOG_PERROR;
+#else
+const C_Int_t MLton_Syslog_Logopt_LOG_PERROR = -1;
+#endif
+/* */
const C_Int_t MLton_Syslog_Logopt_LOG_PID = LOG_PID;
const C_Int_t MLton_Syslog_Facility_LOG_AUTH = LOG_AUTH;
@@ -21,6 +28,13 @@
const C_Int_t MLton_Syslog_Facility_LOG_LPR = LOG_LPR;
const C_Int_t MLton_Syslog_Facility_LOG_MAIL = LOG_MAIL;
const C_Int_t MLton_Syslog_Facility_LOG_NEWS = LOG_NEWS;
+/* NOT STANDARD */
+#if (defined (LOG_SYSLOG))
+const C_Int_t MLton_Syslog_Facility_LOG_SYSLOG = LOG_SYSLOG;
+#else
+const C_Int_t MLton_Syslog_Facility_LOG_SYSLOG = -1;
+#endif
+/* */
const C_Int_t MLton_Syslog_Facility_LOG_USER = LOG_USER;
const C_Int_t MLton_Syslog_Facility_LOG_UUCP = LOG_UUCP;
Modified: mlton/trunk/runtime/basis-ffi.h
===================================================================
--- mlton/trunk/runtime/basis-ffi.h 2007-08-13 19:07:24 UTC (rev 5858)
+++ mlton/trunk/runtime/basis-ffi.h 2007-08-13 21:25:51 UTC (rev 5859)
@@ -62,7 +62,10 @@
C_RLim_t MLton_Rlimit_getHard(void);
C_RLim_t MLton_Rlimit_getSoft(void);
extern const C_RLim_t MLton_Rlimit_INFINITY;
+extern const C_Int_t MLton_Rlimit_MEMLOCK;
extern const C_Int_t MLton_Rlimit_NOFILE;
+extern const C_Int_t MLton_Rlimit_NPROC;
+extern const C_Int_t MLton_Rlimit_RSS;
C_Errno_t(C_Int_t) MLton_Rlimit_set(C_Int_t,C_RLim_t,C_RLim_t);
extern const C_Int_t MLton_Rlimit_STACK;
C_Time_t MLton_Rusage_children_stime_sec(void);
@@ -94,12 +97,14 @@
extern const C_Int_t MLton_Syslog_Facility_LOG_LPR;
extern const C_Int_t MLton_Syslog_Facility_LOG_MAIL;
extern const C_Int_t MLton_Syslog_Facility_LOG_NEWS;
+extern const C_Int_t MLton_Syslog_Facility_LOG_SYSLOG;
extern const C_Int_t MLton_Syslog_Facility_LOG_USER;
extern const C_Int_t MLton_Syslog_Facility_LOG_UUCP;
extern const C_Int_t MLton_Syslog_Logopt_LOG_CONS;
extern const C_Int_t MLton_Syslog_Logopt_LOG_NDELAY;
extern const C_Int_t MLton_Syslog_Logopt_LOG_NOWAIT;
extern const C_Int_t MLton_Syslog_Logopt_LOG_ODELAY;
+extern const C_Int_t MLton_Syslog_Logopt_LOG_PERROR;
extern const C_Int_t MLton_Syslog_Logopt_LOG_PID;
void MLton_Syslog_openlog(NullString8_t,C_Int_t,C_Int_t);
extern const C_Int_t MLton_Syslog_Severity_LOG_ALERT;
Modified: mlton/trunk/runtime/gen/basis-ffi.def
===================================================================
--- mlton/trunk/runtime/gen/basis-ffi.def 2007-08-13 19:07:24 UTC (rev 5858)
+++ mlton/trunk/runtime/gen/basis-ffi.def 2007-08-13 21:25:51 UTC (rev 5859)
@@ -51,7 +51,10 @@
MLton.Rlimit.DATA = _const : C_Int.t
MLton.Rlimit.FSIZE = _const : C_Int.t
MLton.Rlimit.INFINITY = _const : C_RLim.t
+MLton.Rlimit.MEMLOCK = _const : C_Int.t
MLton.Rlimit.NOFILE = _const : C_Int.t
+MLton.Rlimit.NPROC = _const : C_Int.t
+MLton.Rlimit.RSS = _const : C_Int.t
MLton.Rlimit.STACK = _const : C_Int.t
MLton.Rlimit.get = _import : C_Int.t -> C_Int.t C_Errno.t
MLton.Rlimit.getHard = _import : unit -> C_RLim.t
@@ -85,12 +88,14 @@
MLton.Syslog.Facility.LOG_LPR = _const : C_Int.t
MLton.Syslog.Facility.LOG_MAIL = _const : C_Int.t
MLton.Syslog.Facility.LOG_NEWS = _const : C_Int.t
+MLton.Syslog.Facility.LOG_SYSLOG = _const : C_Int.t
MLton.Syslog.Facility.LOG_USER = _const : C_Int.t
MLton.Syslog.Facility.LOG_UUCP = _const : C_Int.t
MLton.Syslog.Logopt.LOG_CONS = _const : C_Int.t
MLton.Syslog.Logopt.LOG_NDELAY = _const : C_Int.t
MLton.Syslog.Logopt.LOG_NOWAIT = _const : C_Int.t
MLton.Syslog.Logopt.LOG_ODELAY = _const : C_Int.t
+MLton.Syslog.Logopt.LOG_PERROR = _const : C_Int.t
MLton.Syslog.Logopt.LOG_PID = _const : C_Int.t
MLton.Syslog.Severity.LOG_ALERT = _const : C_Int.t
MLton.Syslog.Severity.LOG_CRIT = _const : C_Int.t
Modified: mlton/trunk/runtime/gen/basis-ffi.h
===================================================================
--- mlton/trunk/runtime/gen/basis-ffi.h 2007-08-13 19:07:24 UTC (rev 5858)
+++ mlton/trunk/runtime/gen/basis-ffi.h 2007-08-13 21:25:51 UTC (rev 5859)
@@ -62,7 +62,10 @@
C_RLim_t MLton_Rlimit_getHard(void);
C_RLim_t MLton_Rlimit_getSoft(void);
extern const C_RLim_t MLton_Rlimit_INFINITY;
+extern const C_Int_t MLton_Rlimit_MEMLOCK;
extern const C_Int_t MLton_Rlimit_NOFILE;
+extern const C_Int_t MLton_Rlimit_NPROC;
+extern const C_Int_t MLton_Rlimit_RSS;
C_Errno_t(C_Int_t) MLton_Rlimit_set(C_Int_t,C_RLim_t,C_RLim_t);
extern const C_Int_t MLton_Rlimit_STACK;
C_Time_t MLton_Rusage_children_stime_sec(void);
@@ -94,12 +97,14 @@
extern const C_Int_t MLton_Syslog_Facility_LOG_LPR;
extern const C_Int_t MLton_Syslog_Facility_LOG_MAIL;
extern const C_Int_t MLton_Syslog_Facility_LOG_NEWS;
+extern const C_Int_t MLton_Syslog_Facility_LOG_SYSLOG;
extern const C_Int_t MLton_Syslog_Facility_LOG_USER;
extern const C_Int_t MLton_Syslog_Facility_LOG_UUCP;
extern const C_Int_t MLton_Syslog_Logopt_LOG_CONS;
extern const C_Int_t MLton_Syslog_Logopt_LOG_NDELAY;
extern const C_Int_t MLton_Syslog_Logopt_LOG_NOWAIT;
extern const C_Int_t MLton_Syslog_Logopt_LOG_ODELAY;
+extern const C_Int_t MLton_Syslog_Logopt_LOG_PERROR;
extern const C_Int_t MLton_Syslog_Logopt_LOG_PID;
void MLton_Syslog_openlog(NullString8_t,C_Int_t,C_Int_t);
extern const C_Int_t MLton_Syslog_Severity_LOG_ALERT;
Modified: mlton/trunk/runtime/gen/basis-ffi.sml
===================================================================
--- mlton/trunk/runtime/gen/basis-ffi.sml 2007-08-13 19:07:24 UTC (rev 5858)
+++ mlton/trunk/runtime/gen/basis-ffi.sml 2007-08-13 21:25:51 UTC (rev 5859)
@@ -94,7 +94,10 @@
val getHard = _import "MLton_Rlimit_getHard" : unit -> C_RLim.t;
val getSoft = _import "MLton_Rlimit_getSoft" : unit -> C_RLim.t;
val INFINITY = _const "MLton_Rlimit_INFINITY" : C_RLim.t;
+val MEMLOCK = _const "MLton_Rlimit_MEMLOCK" : C_Int.t;
val NOFILE = _const "MLton_Rlimit_NOFILE" : C_Int.t;
+val NPROC = _const "MLton_Rlimit_NPROC" : C_Int.t;
+val RSS = _const "MLton_Rlimit_RSS" : C_Int.t;
val set = _import "MLton_Rlimit_set" : C_Int.t * C_RLim.t * C_RLim.t -> (C_Int.t) C_Errno.t;
val STACK = _const "MLton_Rlimit_STACK" : C_Int.t;
end
@@ -134,6 +137,7 @@
val LOG_LPR = _const "MLton_Syslog_Facility_LOG_LPR" : C_Int.t;
val LOG_MAIL = _const "MLton_Syslog_Facility_LOG_MAIL" : C_Int.t;
val LOG_NEWS = _const "MLton_Syslog_Facility_LOG_NEWS" : C_Int.t;
+val LOG_SYSLOG = _const "MLton_Syslog_Facility_LOG_SYSLOG" : C_Int.t;
val LOG_USER = _const "MLton_Syslog_Facility_LOG_USER" : C_Int.t;
val LOG_UUCP = _const "MLton_Syslog_Facility_LOG_UUCP" : C_Int.t;
end
@@ -143,6 +147,7 @@
val LOG_NDELAY = _const "MLton_Syslog_Logopt_LOG_NDELAY" : C_Int.t;
val LOG_NOWAIT = _const "MLton_Syslog_Logopt_LOG_NOWAIT" : C_Int.t;
val LOG_ODELAY = _const "MLton_Syslog_Logopt_LOG_ODELAY" : C_Int.t;
+val LOG_PERROR = _const "MLton_Syslog_Logopt_LOG_PERROR" : C_Int.t;
val LOG_PID = _const "MLton_Syslog_Logopt_LOG_PID" : C_Int.t;
end
val openlog = _import "MLton_Syslog_openlog" : NullString8.t * C_Int.t * C_Int.t -> unit;
More information about the MLton-commit
mailing list