1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
(***********************************************************************)
(* *)
(* Objective Caml *)
(* *)
(* Pierre Weis, projet Cristal, INRIA Rocquencourt *)
(* *)
(* Copyright 2001 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *)
(* only by permission. *)
(* *)
(***********************************************************************)
type valeur =
| Inconnue
| Ent of int
| Bool of bool
| Tableau of int * valeur array;;
exception Erreur_excution of string;;
let ent_val = function
| Ent n -> n
| _ -> raise(Erreur_excution "entier attendu")
and bool_val = function
| Bool b -> b
| _ -> raise(Erreur_excution "boolen attendu")
and tableau_val = function
| Tableau(inf, t) -> (inf, t)
| _ -> raise(Erreur_excution "tableau attendu");;
let affiche_valeur v =
print_int(ent_val v); print_newline();;
let lire_valeur () =
let entre = read_line () in
try Ent(int_of_string entre)
with Failure _ -> raise(Erreur_excution "erreur de lecture");;
|
