summaryrefslogtreecommitdiffstats
path: root/stdlib
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib')
-rw-r--r--stdlib/char.ml4
-rw-r--r--stdlib/filename.ml2
-rw-r--r--stdlib/pervasives.ml4
-rw-r--r--stdlib/random.ml2
-rw-r--r--stdlib/stdLabels.mli8
-rw-r--r--stdlib/string.ml8
-rw-r--r--stdlib/string.mli6
-rw-r--r--stdlib/stringLabels.mli6
-rw-r--r--stdlib/sys.ml22
-rw-r--r--stdlib/sys.mli18
10 files changed, 40 insertions, 40 deletions
diff --git a/stdlib/char.ml b/stdlib/char.ml
index 012317e0e..a316dab12 100644
--- a/stdlib/char.ml
+++ b/stdlib/char.ml
@@ -21,9 +21,9 @@ external unsafe_chr: int -> char = "%identity"
let chr n =
if n < 0 or n > 255 then invalid_arg "Char.chr" else unsafe_chr n
-external is_printable: char -> bool = "is_printable"
+external is_printable: char -> bool = "caml_is_printable"
-external string_create: int -> string = "create_string"
+external string_create: int -> string = "caml_create_string"
external string_unsafe_get : string -> int -> char = "%string_unsafe_get"
external string_unsafe_set : string -> int -> char -> unit
= "%string_unsafe_set"
diff --git a/stdlib/filename.ml b/stdlib/filename.ml
index 96f5aafa0..15f65e0dd 100644
--- a/stdlib/filename.ml
+++ b/stdlib/filename.ml
@@ -213,7 +213,7 @@ let chop_extension name =
invalid_arg "Filename.chop_extension"
external open_desc: string -> open_flag list -> int -> int = "caml_sys_open"
-external close_desc: int -> unit = "sys_close"
+external close_desc: int -> unit = "caml_sys_close"
let prng = Random.State.make_self_init ();;
diff --git a/stdlib/pervasives.ml b/stdlib/pervasives.ml
index 1aa3c439a..b31da0259 100644
--- a/stdlib/pervasives.ml
+++ b/stdlib/pervasives.ml
@@ -137,9 +137,9 @@ external classify_float: float -> fpclass = "classify_float"
(* String operations -- more in module String *)
external string_length : string -> int = "%string_length"
-external string_create: int -> string = "create_string"
+external string_create: int -> string = "caml_create_string"
external string_blit : string -> int -> string -> int -> int -> unit
- = "blit_string" "noalloc"
+ = "caml_blit_string" "noalloc"
let (^) s1 s2 =
let l1 = string_length s1 and l2 = string_length s2 in
diff --git a/stdlib/random.ml b/stdlib/random.ml
index 9374cb6c6..bdf238fd4 100644
--- a/stdlib/random.ml
+++ b/stdlib/random.ml
@@ -20,7 +20,7 @@
It is seeded by a MD5-based PRNG.
*)
-external random_seed: unit -> int = "sys_random_seed";;
+external random_seed: unit -> int = "caml_sys_random_seed";;
module State = struct
diff --git a/stdlib/stdLabels.mli b/stdlib/stdLabels.mli
index 08ec70f5a..509eccb62 100644
--- a/stdlib/stdLabels.mli
+++ b/stdlib/stdLabels.mli
@@ -104,7 +104,7 @@ module String :
external length : string -> int = "%string_length"
external get : string -> int -> char = "%string_safe_get"
external set : string -> int -> char -> unit = "%string_safe_set"
- external create : int -> string = "create_string"
+ external create : int -> string = "caml_create_string"
val make : int -> char -> string
val copy : string -> string
val sub : string -> pos:int -> len:int -> string
@@ -130,7 +130,7 @@ module String :
external unsafe_set : string -> int -> char -> unit = "%string_unsafe_set"
external unsafe_blit :
src:string -> src_pos:int -> dst:string -> dst_pos:int -> len:int ->
- unit = "blit_string" "noalloc"
- external unsafe_fill :
- string -> pos:int -> len:int -> char -> unit = "fill_string" "noalloc"
+ unit = "caml_blit_string" "noalloc"
+ external unsafe_fill : string -> pos:int -> len:int -> char -> unit
+ = "caml_fill_string" "noalloc"
end
diff --git a/stdlib/string.ml b/stdlib/string.ml
index 6f2495c7e..00b4b3d83 100644
--- a/stdlib/string.ml
+++ b/stdlib/string.ml
@@ -18,13 +18,13 @@
external length : string -> int = "%string_length"
external get : string -> int -> char = "%string_safe_get"
external set : string -> int -> char -> unit = "%string_safe_set"
-external create : int -> string = "create_string"
+external create : int -> string = "caml_create_string"
external unsafe_get : string -> int -> char = "%string_unsafe_get"
external unsafe_set : string -> int -> char -> unit = "%string_unsafe_set"
external unsafe_blit : string -> int -> string -> int -> int -> unit
- = "blit_string" "noalloc"
+ = "caml_blit_string" "noalloc"
external unsafe_fill : string -> int -> int -> char -> unit
- = "fill_string" "noalloc"
+ = "caml_fill_string" "noalloc"
let make n c =
let s = create n in
@@ -78,7 +78,7 @@ let concat sep l =
tl;
r
-external is_printable: char -> bool = "is_printable"
+external is_printable: char -> bool = "caml_is_printable"
external char_code: char -> int = "%identity"
external char_chr: int -> char = "%identity"
diff --git a/stdlib/string.mli b/stdlib/string.mli
index 3bdc12783..4e8aea4f4 100644
--- a/stdlib/string.mli
+++ b/stdlib/string.mli
@@ -35,7 +35,7 @@ external set : string -> int -> char -> unit = "%string_safe_set"
Raise [Invalid_argument "index out of bounds"]
if [n] is outside the range 0 to [(String.length s - 1)]. *)
-external create : int -> string = "create_string"
+external create : int -> string = "caml_create_string"
(** [String.create n] returns a fresh string of length [n].
The string initially contains arbitrary characters.
Raise [Invalid_argument] if [n < 0] or [n > Sys.max_string_length].
@@ -157,6 +157,6 @@ val compare: t -> t -> int
external unsafe_get : string -> int -> char = "%string_unsafe_get"
external unsafe_set : string -> int -> char -> unit = "%string_unsafe_set"
external unsafe_blit :
- string -> int -> string -> int -> int -> unit = "blit_string" "noalloc"
+ string -> int -> string -> int -> int -> unit = "caml_blit_string" "noalloc"
external unsafe_fill :
- string -> int -> int -> char -> unit = "fill_string" "noalloc"
+ string -> int -> int -> char -> unit = "caml_fill_string" "noalloc"
diff --git a/stdlib/stringLabels.mli b/stdlib/stringLabels.mli
index 884690e46..b1f957751 100644
--- a/stdlib/stringLabels.mli
+++ b/stdlib/stringLabels.mli
@@ -33,7 +33,7 @@ external set : string -> int -> char -> unit = "%string_safe_set"
0 to [(String.length s - 1)].
You can also write [s.[n] <- c] instead of [String.set s n c]. *)
-external create : int -> string = "create_string"
+external create : int -> string = "caml_create_string"
(** [String.create n] returns a fresh string of length [n].
The string initially contains arbitrary characters.
Raise [Invalid_argument] if [n < 0] or [n > Sys.max_string_length].
@@ -149,6 +149,6 @@ external unsafe_get : string -> int -> char = "%string_unsafe_get"
external unsafe_set : string -> int -> char -> unit = "%string_unsafe_set"
external unsafe_blit :
src:string -> src_pos:int -> dst:string -> dst_pos:int -> len:int ->
- unit = "blit_string" "noalloc"
+ unit = "caml_blit_string" "noalloc"
external unsafe_fill :
- string -> pos:int -> len:int -> char -> unit = "fill_string" "noalloc"
+ string -> pos:int -> len:int -> char -> unit = "caml_fill_string" "noalloc"
diff --git a/stdlib/sys.ml b/stdlib/sys.ml
index c011554d0..cb53c8258 100644
--- a/stdlib/sys.ml
+++ b/stdlib/sys.ml
@@ -15,23 +15,23 @@
(* System interface *)
-external get_config: unit -> string * int = "sys_get_config"
-external get_argv: unit -> string * string array = "sys_get_argv"
+external get_config: unit -> string * int = "caml_sys_get_config"
+external get_argv: unit -> string * string array = "caml_sys_get_argv"
let (executable_name, argv) = get_argv()
let (os_type, word_size) = get_config()
let max_array_length = (1 lsl (word_size - 10)) - 1;;
let max_string_length = word_size / 8 * max_array_length - 1;;
-external file_exists: string -> bool = "sys_file_exists"
-external remove: string -> unit = "sys_remove"
-external rename : string -> string -> unit = "sys_rename"
-external getenv: string -> string = "sys_getenv"
-external command: string -> int = "sys_system_command"
-external time: unit -> float = "sys_time"
-external chdir: string -> unit = "sys_chdir"
-external getcwd: unit -> string = "sys_getcwd"
-external readdir : string -> string array = "sys_read_directory"
+external file_exists: string -> bool = "caml_sys_file_exists"
+external remove: string -> unit = "caml_sys_remove"
+external rename : string -> string -> unit = "caml_sys_rename"
+external getenv: string -> string = "caml_sys_getenv"
+external command: string -> int = "caml_sys_system_command"
+external time: unit -> float = "caml_sys_time"
+external chdir: string -> unit = "caml_sys_chdir"
+external getcwd: unit -> string = "caml_sys_getcwd"
+external readdir : string -> string array = "caml_sys_read_directory"
let interactive = ref false
diff --git a/stdlib/sys.mli b/stdlib/sys.mli
index 551e958a6..e1b871b08 100644
--- a/stdlib/sys.mli
+++ b/stdlib/sys.mli
@@ -24,34 +24,34 @@ val argv : string array
val executable_name : string
(** The name of the file containing the executable currently running. *)
-external file_exists : string -> bool = "sys_file_exists"
+external file_exists : string -> bool = "caml_sys_file_exists"
(** Test if a file with the given name exists. *)
-external remove : string -> unit = "sys_remove"
+external remove : string -> unit = "caml_sys_remove"
(** Remove the given file name from the file system. *)
-external rename : string -> string -> unit = "sys_rename"
+external rename : string -> string -> unit = "caml_sys_rename"
(** Rename a file. The first argument is the old name and the
second is the new name. *)
-external getenv : string -> string = "sys_getenv"
+external getenv : string -> string = "caml_sys_getenv"
(** Return the value associated to a variable in the process
environment. Raise [Not_found] if the variable is unbound. *)
-external command : string -> int = "sys_system_command"
+external command : string -> int = "caml_sys_system_command"
(** Execute the given shell command and return its exit code. *)
-external time : unit -> float = "sys_time"
+external time : unit -> float = "caml_sys_time"
(** Return the processor time, in seconds, used by the program
since the beginning of execution. *)
-external chdir : string -> unit = "sys_chdir"
+external chdir : string -> unit = "caml_sys_chdir"
(** Change the current working directory of the process. *)
-external getcwd : unit -> string = "sys_getcwd"
+external getcwd : unit -> string = "caml_sys_getcwd"
(** Return the current working directory of the process. *)
-external readdir : string -> string array = "sys_read_directory"
+external readdir : string -> string array = "caml_sys_read_directory"
(** Return the names of all files present in the given directory.
Names denoting the current directory and the parent directory
(["."] and [".."] in Unix) are not returned. Each string in the
generated by cgit v1.2.3-70-g09d2 (git 2.46.0) at 2025-03-19 08:14:02 +0000