nouns.mli 1.53 KB
Newer Older
huet's avatar
huet committed
1 2 3 4 5 6
(**************************************************************************)
(*                                                                        *)
(*                     The Sanskrit Heritage Platform                     *)
(*                                                                        *)
(*                              Gérard Huet                               *)
(*                                                                        *)
7
(* ©2018 Institut National de Recherche en Informatique et en Automatique *)
huet's avatar
huet committed
8 9 10 11 12 13 14 15 16
(**************************************************************************)

(*i module Nouns : sig i*)

open Skt_morph;
open Morphology; (* [inflected_map] *)

type declension_class = 
  [ Gender of gender  (* declined substantive, adjective, number, pronoun *)
17
  | Ind of ind_kind   (* indeclinable form *)
huet's avatar
huet committed
18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
  ]
and nmorph = (string * declension_class)
;
exception Report of string
;
value compute_decls : Word.word -> list nmorph -> unit; 
value compute_extra_iic : list string -> unit;
value compute_extra : list string -> unit;
value enter_extra_ifcs : unit -> unit; 
value enter_extra_iifcs : unit -> unit; 
value fake_compute_decls : 
     nmorph -> string -> ( inflected_map    (* nouns *)
                         * inflected_map    (* pronouns *)
                         * inflected_map    (* vocas *)
                         * inflected_map    (* iics *)
                         * inflected_map ); (* adverbs ifcs *)

value extract_current_cache : string -> inflected_map; (* used in Interface *)

(*i end; i*)