(***********************************************************************)
(*                                                                     *)
(*                                 GALAX                               *)
(*                             XQuery Engine                           *)
(*                                                                     *)
(*  Copyright 2001-2003, Lucent Technologies.                          *)
(*  Distributed only by permission.                                    *)
(*                                                                     *)
(***********************************************************************)

(* $Id: args.mli,v 1.4 2003/05/28 14:47:38 simeon Exp $ *)

(* Module Args
   Description:
     This module implements extraction of function arguments for
     various arities.
*)

(* Arguments extraction *)

val get_param0: 'a list -> unit
val get_param1: 'a list -> 'a
val get_param2: 'a list -> ('a * 'a)
val get_param3: 'a list -> ('a * 'a * 'a)

