(*
 *
 *)

(*
 * implementazione della funzione NAME
 *)
let func_name value =
 try (
  let i = Str.search_forward (Str.regexp "[^/]*\.") value 0 in
   let s = Str.matched_string value in 
    let retVal = Str.string_before s ((String.length s) - 1) in
     retVal
 ) with
  Not_found -> ""
;;

(** TEST **)

(*
print_endline (func_name Sys.argv.(1));;
*)