File: comment_header.ml

package info (click to toggle)
ocamlformat 0.28.1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 14,436 kB
  • sloc: ml: 63,321; pascal: 4,769; lisp: 229; sh: 217; makefile: 121
file content (61 lines) | stat: -rw-r--r-- 2,015 bytes parent folder | download | duplicates (2)
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
(**************************************************************************)
(*                                                                        *)
(*                                 XXXXX                                  *)
(*                                                                        *)
(*             XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXxx           *)
(*                                                                        *)
(*   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX     *)
(*     XXXXXXXXXXXxXX.                                                    *)
(*                                                                        *)
(*   XXXXXXXXXXXXXXXXXXX.  XXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXX    *)
(*   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXxX          *)
(*   XXXXXXX XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXX XXXXXXXXXXXXXXXXX          *)
(*                                                                        *)
(**************************************************************************)

(* XXXXXXX xxxxxxxxxxxxx XXXXXXXXXXXXXXXXXXXXx xxxxxxxxx xxxxxxxxx x xxxxxx
   xxxxxx. *)

open Module

type typ = typ

(* XXXXXXXXXXXXXX XX XXxxxxxxxx *)


(* b *)(*******)
       (*     *)
       (*     *)
       (*     *)
       (*     *)
       (*******)(* b *)


(*******)
(*     *)
(*     *)
(*     *)
(*     *)
(*****)


(* xxxxxxxxxxxxxxxxx, xxxxxxx xxxxxx (xxxxxxxxxxxxxx) xxxxxxxxx xxxxxxx
   xxxxxxxxxxxxxx xxxxxxxxxxxxx. *)
(* xx xxxxxxxxxxxxxx, x xxxxxxxxxxxxxx "xxxxxxxxx" xxxxxxxxxxxxxxxxxxxx
   xxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxx xxxxx. *)

(* TEST
  arguments = "???"
  *)

(* On Windows the runtime expand windows wildcards (asterisks and
 * question marks).
 *
 * This file is a non-regression test for github's PR#1623.
 *
 * On Windows 64bits, a segfault was triggered when one argument consists
 * only of wildcards.
 *
 * The source code of this test is empty: we just check the arguments
 * expansion.
 * *)