mothra: forgot to add snarf.c
This commit is contained in:
parent
948d0a1180
commit
8007596779
60
sys/src/cmd/mothra/libpanel/snarf.c
Normal file
60
sys/src/cmd/mothra/libpanel/snarf.c
Normal file
|
@ -0,0 +1,60 @@
|
||||||
|
#include <u.h>
|
||||||
|
#include <libc.h>
|
||||||
|
#include <draw.h>
|
||||||
|
#include <event.h>
|
||||||
|
#include <panel.h>
|
||||||
|
#include "pldefs.h"
|
||||||
|
|
||||||
|
void plputsnarf(char *s){
|
||||||
|
int fd;
|
||||||
|
|
||||||
|
if(s==0 || *s=='\0')
|
||||||
|
return;
|
||||||
|
if((fd=open("/dev/snarf", OWRITE|OTRUNC))>=0){
|
||||||
|
write(fd, s, strlen(s));
|
||||||
|
close(fd);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
char *plgetsnarf(void){
|
||||||
|
int fd, n, r;
|
||||||
|
char *s, *x;
|
||||||
|
|
||||||
|
if((fd=open("/dev/snarf", OREAD))<0)
|
||||||
|
return nil;
|
||||||
|
n=0;
|
||||||
|
s=nil;
|
||||||
|
for(;;){
|
||||||
|
if((x=realloc(s, n+1024))==0)
|
||||||
|
break;
|
||||||
|
s=x;
|
||||||
|
if((r = read(fd, s+n, 1024)) <= 0)
|
||||||
|
break;
|
||||||
|
n += r;
|
||||||
|
}
|
||||||
|
close(fd);
|
||||||
|
if(n <= 0){
|
||||||
|
free(s);
|
||||||
|
return nil;
|
||||||
|
}
|
||||||
|
s[n] = '\0';
|
||||||
|
return s;
|
||||||
|
}
|
||||||
|
void plsnarf(Panel *p){
|
||||||
|
char *s;
|
||||||
|
|
||||||
|
if(p==0 || p->snarf==0)
|
||||||
|
return;
|
||||||
|
s=p->snarf(p);
|
||||||
|
plputsnarf(s);
|
||||||
|
free(s);
|
||||||
|
}
|
||||||
|
void plpaste(Panel *p){
|
||||||
|
char *s;
|
||||||
|
|
||||||
|
if(p==0 || p->paste==0)
|
||||||
|
return;
|
||||||
|
if(s=plgetsnarf()){
|
||||||
|
p->paste(p, s);
|
||||||
|
free(s);
|
||||||
|
}
|
||||||
|
}
|
Loading…
Reference in a new issue