#include "substdio.h"#include "strerr.h"#include "error.h"#include "open.h"#include "readwrite.h"#include "exit.h"extern void hier();#define FATAL "install: fatal: "int fdsourcedir = -1;void h(home,uid,gid,mode)char *home;int uid;int gid;int mode;{  if (mkdir(home,0700) == -1)    if (errno != error_exist)      strerr_die4sys(111,FATAL,"unable to mkdir ",home,": ");  if (chown(home,uid,gid) == -1)    strerr_die4sys(111,FATAL,"unable to chown ",home,": ");  if (chmod(home,mode) == -1)    strerr_die4sys(111,FATAL,"unable to chmod ",home,": ");}void d(home,subdir,uid,gid,mode)char *home;char *subdir;int uid;int gid;int mode;{  if (chdir(home) == -1)    strerr_die4sys(111,FATAL,"unable to switch to ",home,": ");  if (mkdir(subdir,0700) == -1)    if (errno != error_exist)      strerr_die6sys(111,FATAL,"unable to mkdir ",home,"/",subdir,": ");  if (chown(subdir,uid,gid) == -1)    strerr_die6sys(111,FATAL,"unable to chown ",home,"/",subdir,": ");  if (chmod(subdir,mode) == -1)    strerr_die6sys(111,FATAL,"unable to chmod ",home,"/",subdir,": ");}void p(home,fifo,uid,gid,mode)char *home;char *fifo;int uid;int gid;int mode;{  if (chdir(home) == -1)    strerr_die4sys(111,FATAL,"unable to switch to ",home,": ");  if (fifo_make(fifo,0700) == -1)    if (errno != error_exist)      strerr_die6sys(111,FATAL,"unable to mkfifo ",home,"/",fifo,": ");  if (chown(fifo,uid,gid) == -1)    strerr_die6sys(111,FATAL,"unable to chown ",home,"/",fifo,": ");  if (chmod(fifo,mode) == -1)    strerr_die6sys(111,FATAL,"unable to chmod ",home,"/",fifo,": ");}char inbuf[SUBSTDIO_INSIZE];char outbuf[SUBSTDIO_OUTSIZE];substdio ssin;substdio ssout;void c(home,subdir,file,uid,gid,mode)char *home;char *subdir;char *file;int uid;int gid;int mode;{  int fdin;  int fdout;  if (fchdir(fdsourcedir) == -1)    strerr_die2sys(111,FATAL,"unable to switch back to source directory: ");  fdin = open_read(file);  if (fdin == -1)    strerr_die4sys(111,FATAL,"unable to read ",file,": ");  substdio_fdbuf(&ssin,read,fdin,inbuf,sizeof inbuf);  if (chdir(home) == -1)    strerr_die4sys(111,FATAL,"unable to switch to ",home,": ");  if (chdir(subdir) == -1)    strerr_die6sys(111,FATAL,"unable to switch to ",home,"/",subdir,": ");  fdout = open_trunc(file);  if (fdout == -1)    strerr_die6sys(111,FATAL,"unable to write .../",subdir,"/",file,": ");  substdio_fdbuf(&ssout,write,fdout,outbuf,sizeof outbuf);  switch(substdio_copy(&ssout,&ssin)) {    case -2:      strerr_die4sys(111,FATAL,"unable to read ",file,": ");    case -3:      strerr_die6sys(111,FATAL,"unable to write .../",subdir,"/",file,": ");  }  close(fdin);  if (substdio_flush(&ssout) == -1)    strerr_die6sys(111,FATAL,"unable to write .../",subdir,"/",file,": ");  if (fsync(fdout) == -1)    strerr_die6sys(111,FATAL,"unable to write .../",subdir,"/",file,": ");  if (close(fdout) == -1) /* NFS silliness */    strerr_die6sys(111,FATAL,"unable to write .../",subdir,"/",file,": ");  if (chown(file,uid,gid) == -1)    strerr_die6sys(111,FATAL,"unable to chown .../",subdir,"/",file,": ");  if (chmod(file,mode) == -1)    strerr_die6sys(111,FATAL,"unable to chmod .../",subdir,"/",file,": ");}void z(home,file,len,uid,gid,mode)char *home;char *file;int len;int uid;int gid;int mode;{  int fdout;  if (chdir(home) == -1)    strerr_die4sys(111,FATAL,"unable to switch to ",home,": ");  fdout = open_trunc(file);  if (fdout == -1)    strerr_die6sys(111,FATAL,"unable to write ",home,"/",file,": ");  substdio_fdbuf(&ssout,write,fdout,outbuf,sizeof outbuf);  while (len-- > 0)    if (substdio_put(&ssout,"",1) == -1)      strerr_die6sys(111,FATAL,"unable to write ",home,"/",file,": ");  if (substdio_flush(&ssout) == -1)    strerr_die6sys(111,FATAL,"unable to write ",home,"/",file,": ");  if (fsync(fdout) == -1)    strerr_die6sys(111,FATAL,"unable to write ",home,"/",file,": ");  if (close(fdout) == -1) /* NFS silliness */    strerr_die6sys(111,FATAL,"unable to write ",home,"/",file,": ");  if (chown(file,uid,gid) == -1)    strerr_die6sys(111,FATAL,"unable to chown ",home,"/",file,": ");  if (chmod(file,mode) == -1)    strerr_die6sys(111,FATAL,"unable to chmod ",home,"/",file,": ");}void main(){  fdsourcedir = open_read(".");  if (fdsourcedir == -1)    strerr_die2sys(111,FATAL,"unable to open current directory: ");  umask(077);  hier();  _exit(0);}