mirror of /home/gitosis/repositories/libowfat.git
Mirror of :pserver:cvs@cvs.fefe.de:/cvs libowfat
https://www.fefe.de/libowfat/
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
27 lines
611 B
27 lines
611 B
#include <stralloc.h> |
|
#include <buffer.h> |
|
#include <io.h> |
|
#include <errmsg.h> |
|
#include <unistd.h> |
|
|
|
int main() { |
|
static stralloc line; |
|
buffer in; |
|
char buf[4096]; |
|
int64 fd; |
|
char* home; |
|
long r; |
|
|
|
errmsg_iam("buffer_getline"); |
|
|
|
if (!(home=getenv("HOME"))) die(1,"no $HOME"); |
|
if (!stralloc_copys(&line,home) || !stralloc_cats(&line,"/.slrnrc") || !stralloc_0(&line)) |
|
die(1,"out of memory"); |
|
if (!io_readfile(&fd,line.s)) |
|
diesys(1,"could not open ~/.slrnrc"); |
|
buffer_init(&in,read,fd,buf,sizeof buf); |
|
|
|
while ((r=buffer_getnewline_sa(&in,&line))>0) { |
|
write(1,line.s,line.len); |
|
} |
|
}
|
|
|