The unpac monorepo manager self-hosting as a monorepo using unpac
Merge pull request #114 from alyssais/statx
Fix statx constant fallback values, and fix with musl 1.2.5
authored by
Thomas Leonard
and committed by
GitHub
47195da0
0460c036
+12
-13
+12
-13
vendor/opam/uring/lib/uring/include/discover.ml
+12
-13
vendor/opam/uring/lib/uring/include/discover.ml
···
113
113
let new_flags =
114
114
C.C_define.Type.[
115
115
(* Masks *)
116
-
"STATX_MNT_ID", Int;
117
-
"STATX_DIOALIGN", Int;
116
+
"STATX_MNT_ID", Int, 0x00001000;
117
+
"STATX_DIOALIGN", Int, 0x00002000;
118
118
(* File Attributes *)
119
-
"STATX_ATTR_VERITY", Int;
120
-
"STATX_ATTR_DAX", Int;
119
+
"STATX_ATTR_COMPRESSED", Int, 0x00000004;
120
+
"STATX_ATTR_IMMUTABLE", Int, 0x00000010;
121
+
"STATX_ATTR_APPEND", Int, 0x00000020;
122
+
"STATX_ATTR_NODUMP", Int, 0x00000040;
123
+
"STATX_ATTR_ENCRYPTED", Int, 0x00000800;
124
+
"STATX_ATTR_VERITY", Int, 0x00100000;
125
+
"STATX_ATTR_DAX", Int, 0x00200000;
121
126
]
122
127
in
123
128
let new_flag_prelude =
124
129
let def_flag = function
125
-
| name, C.C_define.Type.Int ->
126
-
Printf.sprintf "#ifndef %s\n#define %s 0\n#endif\n" name name;
130
+
| name, C.C_define.Type.Int, v ->
131
+
Printf.sprintf "#ifndef %s\n#define %s %d\n#endif\n" name name v;
127
132
| _ -> assert false
128
133
in
129
134
String.concat "" (List.map def_flag new_flags)
···
157
162
"STATX_BLOCKS", Int;
158
163
"STATX_BASIC_STATS", Int;
159
164
"STATX_BTIME", Int;
160
-
161
-
"STATX_ATTR_COMPRESSED", Int;
162
-
"STATX_ATTR_IMMUTABLE", Int;
163
-
"STATX_ATTR_APPEND", Int;
164
-
"STATX_ATTR_NODUMP", Int ;
165
-
"STATX_ATTR_ENCRYPTED", Int;
166
-
] @ new_flags)
165
+
] @ List.map (fun (n, t, _) -> n, t) new_flags)
167
166
|> List.fold_left (fun (ats, stats, attrs) (v, k) -> match String.split_on_char '_' v, k with
168
167
| "AT" :: name, C.C_define.Value.Int v ->
169
168
let ocaml_name = String.lowercase_ascii (String.concat "_" name) in