-
Notifications
You must be signed in to change notification settings - Fork 54
/
posix.closedir.m
40 lines (32 loc) · 1.3 KB
/
posix.closedir.m
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
%-----------------------------------------------------------------------------%
% vim: ft=mercury ts=4 sw=4 et
%-----------------------------------------------------------------------------%
% Copyright (C) 2001 The University of Melbourne.
% Copyright (C) 2018-2019 The Mercury team.
% This file is distributed under the terms specified in COPYING.LIB.
%-----------------------------------------------------------------------------%
%
% Module: posix.closedir.m.
% Main author: Michael Day <miked@lendtech.com.au>
%
%-----------------------------------------------------------------------------%
:- module posix.closedir.
:- interface.
:- import_module io.
:- pred closedir(dir::in, io::di, io::uo) is det.
%-----------------------------------------------------------------------------%
%-----------------------------------------------------------------------------%
:- implementation.
:- pragma foreign_decl("C", "
#include <sys/types.h>
#include <dirent.h>
").
:- pragma foreign_proc("C",
closedir(Dir::in, _IO0::di, _IO::uo),
[promise_pure, will_not_call_mercury, thread_safe, tabled_for_io],
"
closedir(Dir);
").
%-----------------------------------------------------------------------------%
:- end_module posix.closedir.
%-----------------------------------------------------------------------------%