Source file `uucp__script.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
(*---------------------------------------------------------------------------
   Copyright (c) 2014 The uucp programmers. All rights reserved.
   SPDX-License-Identifier: ISC
  ---------------------------------------------------------------------------*)

include Uucp_script_base

let compare = compare
let script u = Uucp_rmap.get Uucp_script_data.script_map (Uchar.to_int u)
let script_extensions u =
  match Uucp_rmap.get Uucp_script_data.script_extensions_map (Uchar.to_int u)
  with
  | [] -> [ script u ]
  | scripts -> scripts