blob: ca1959e157e7cd123541029e671413422f10a080 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
/* ISC license. */
#include <errno.h>
#include <skalibs/buffer.h>
#include <skalibs/stralloc.h>
#include <skalibs/djbunix.h>
#include <skalibs/skamisc.h>
#include <skalibs/unix-transactional.h>
int opengetlnclose (char const *fn, stralloc *sa, int sep)
{
char buf[BUFFER_INSIZE] ;
buffer b ;
register int r ;
register int e ;
int fd = open_readb(fn) ;
if (fd < 0) return -1 ;
buffer_init(&b, &buffer_read, fd, buf, BUFFER_INSIZE) ;
r = skagetln(&b, sa, sep) ;
e = errno ;
fd_close(fd) ;
errno = e ;
return r ;
}
|