home *** CD-ROM | disk | FTP | other *** search
/* * uw IPC * * Copyright 1986 by John D. Bruner. All rights reserved. Permission to * copy this program is given provided that the copy is not sold and that * this copyright notice is included. */ #include <sys/types.h> #include <sys/file.h> #include <sys/stat.h> #include <sys/socket.h> #include <sys/un.h> #include <sys/ioctl.h> #include <sys/uio.h> #include <netinet/in.h> #include <strings.h> #include <netdb.h> #include <errno.h> #include <stdio.h> #include "uw_param.h" #include "uw_err.h" #include "uw_opt.h" #include "uw_win.h" #include "uw_fd.h" #include "uw_pcl.h" #include "uw_ipc.h" #ifndef ntohs /* declaring these as one-element arrays or as NULL pointers is a HACK */ extern unsigned long ntohl(), htonl(); extern unsigned short ntohs(), htons(); static struct netadj na_ntoh[1] = { (short (*)())ntohs, (long (*)())ntohl, ntohs, ntohl }; static struct netadj na_hton[1] = { (short (*)())htons, (long (*)())htonl, htons, htonl }; #else static struct netadj *na_ntoh = NULL; static struct netadj *na_hton = NULL; #endif static int have_udport; static char uipc_port[] = "/tmp/uwXXXXXX"; static int inet_sd; static struct ipcmsg { int im_len; struct uwipc im_msg; } *inet_buf; extern int errno; ipc_init(use_uipc) { ipc_isinit(); if (use_uipc) ipc_udinit(); } /* * UNIX-domain */ static ipc_udinit() { register int len; register char *cp; register fildes_t sd; auto struct sockaddr_un sa; auto char *env[2]; extern char *mktemp(); len = strlen(UIPC_ENV) + sizeof uipc_port + 1; if ((cp = malloc(len)) != NULL) { (void)sprintf(cp, "%s=%s", UIPC_ENV, mktemp(uipc_port)); env[0] = cp; env[1] = (char *)0; env_set(env); sa.sun_family = AF_UNIX; (void)strncpy(sa.sun_path, uipc_port, sizeof sa.sun_path-1); sa.sun_path[sizeof sa.sun_path-1] = '\0'; if ((sd = socket(AF_UNIX, SOCK_DGRAM, 0)) >= 0 && bind(sd,&sa,sizeof sa.sun_family+strlen(sa.sun_path)) >= 0){ have_udport = 1; (void)chmod(uipc_port, S_IREAD|S_IWRITE); (void)fcntl(sd, F_SETFL, FNDELAY); fdmap[sd].f_type = FDT_UDSOCK; FD_SET(sd, &selmask[0].sm_rd); } } } ipc_exit() { if (have_udport) (void)unlink(uipc_port); } ipc_udrecv(sd) register fildes_t sd; { register struct window *w; register int cnt; struct msghdr msg; auto int fd; struct iovec iov; struct stat st1, st2; union { struct uwipc uwip; char data[1024]; } buf; /* * main() calls this routine when there is a message waiting on * the UNIX-domain socket. The message's access rights are * expected to contain the file descriptor for the "master" side * of a pseudo-tty. The message contains the name of the pty. * The sender is expected to start up a process on the slave side * of the pty. This allows the host end to create windows which * run something other than the shell. */ fd = -1; iov.iov_base = (caddr_t)buf.data; iov.iov_len = sizeof buf - 1; msg.msg_name = (caddr_t)0; msg.msg_namelen = 0; msg.msg_iov = &iov; msg.msg_iovlen = 1; msg.msg_accrights = (caddr_t)&fd; msg.msg_accrightslen = sizeof fd; if ((cnt=recvmsg(sd, &msg, 0)) < 0 || cnt != buf.uwip.uwip_len) return; switch (buf.uwip.uwip_cmd) { case UWC_NEWT: if (msg.msg_accrightslen > 0 && fd >= 0) { /* * We can't trust the process which connected to us, * so we verify that it really passed us a pseudo-tty's * file descriptor by checking the device name and its * inode number. [Of course, if someone else wants to * hand us a terminal session running under their * uid....] */ if (cnt == sizeof buf) cnt--; buf.data[cnt] = '\0'; if (strncmp(buf.uwip.uwip_newt.uwnt_pty, "/dev/pty", sizeof "/dev/pty"-1) || fstat(fd, &st1) < 0 || stat(buf.uwip.uwip_newt.uwnt_pty, &st2) < 0 || st1.st_dev != st2.st_dev || st1.st_ino != st2.st_ino) { (void)close(fd); return; } /* * OK, we believe the sender. We allocate a window and * tell the Macintosh to create that window on its end. * If we have no fDCko1O buuuid...fif someone else wantsaL, nitcEn_pathtxp.uwT st2.st o*)0; I,iHT_pathluang We ase, iOcourse MacintosSto contain incl1hluangT N b║sg_accrighmàizeofallows the host end to creas = '\0'e buf - uwi; if (i*bufbind(sd,&sa ocate . lhis alRT st2.st m ocate . RmR end màizeofallows the hSLhos1hlCellate aRmR endui/* 6T: if (mofa ar = &3Sssion eudo-ohluangT p-N_n eudoe/* M.sun_family ne el.h> #r =rOcoOC A▒et_sd;buf te aRmR/dev/pty", tic in ar(sdXipc_port fallo-a.sun_pgEDuw . Rw contailCer 8ptoameL0); _e(f (mof(voi * OK,sW)spriar = zeof eev/pw ncl1hle╞ { inKaRmT ...fin a1({ Minet_ _e(f (mof(vpe = FD) ocate . lhis alRT st2.st m ocate . RmR end màizeofallows the hSLhos1hlCellate aRmR endui/* 6T: if (mofa ar = &3Sssion eudo-ohluangT p-N_n eudoe/* M.sun_family ne e on its mily ne e on its mily ne e on its mily ne e on its mily ne e on its mily ne e on its mily ne e on its mily ne e on its mily ne e on its mily ne e on its mily ne e on its mily ne e on its mily ne e on its mily ne e on its mily ne e on its mily ne e on its mily ne ebmallo ie .ginsA its milymeLmk _e(f 1RmT angT s* OK,sW)Yne e B7 b*include iy n1u; msg.ows th 4ts mitrnceeeFEderK mieate winde e B7 b*include iyOK,sW)Yne _ msg.owucan't zeof eev/oD * fio-t itD luangT p-N_n eudoe/* M.sun_family ne e on switch (bh" GINindne e o-t itly ne e #includearun(uver cnt != buf OK,r= FD) fd;D luanly ne╔uion euuSt msg static stru └e e oaluanly ne╔uluang alndui/* 6T: uEily ne e on i e o= 1; msg.mru └0);ndr_uangT p-("/dev/tty",O_RDWR), (int)TIOCNOTTY, (char *)0); (void)I mih creas = on itha } /* * UNIX-domain */ static ipc_udinit() { register int ltatich(0); ( oid)8B if (cntly ne e f milkludgeamily ne{ i.,&sa,sizeof sa Insteaha r. Ewucamne e oGlem, if a luNIX this proieve thru(len)) != NULL) if al on its"ngT l al "izeof sa(uipc Insteabyha r. EwucamnF_UNIX, SOC its <st(h->hR enrpossibly) &e{ i.,& enrpoh->hRe _gdespc_pe hSLhe{ i.,& enr.s& enripcic str0x7f000001L)te . 128.0.0.1buf;0)NIX-domaiunlink(u &e{ geamily ne{ r int its mncl1h"%s=na0 /unlif) nO_RDWRistr ; tryINi"/dml_ne * l1h"%sloopb eof "/tartalRT alp-(dylRT_neusty", sizloopb l1h"%seof "/dRT j soe/* , siz/* fficiencyINf itty", stelyw "/t eudo-ohle{ i.,& enr.s& enripcic str0x7f000001L)tits milunlink(u &e{ geamily ne{ r int its ms1hlCellate ascintosSo contain } bufe╔uluang L1u; n.sun_atiomty",sizeof ilys UNIX-domail1u; nnk(u NWINDOWr int its m1hlCellate ascintoso containufe╔uluang alndui/* 6T: t(fd, e on p(voT: enrf (c */ * firon)())* UNIX-d)Yne _ed us a psincludf sa In staha r.k(u ssibly) &e{ u &e{ its int its mnc huh? O en'e , <strov =o-ohl1hlCellate ascintoso containuf if ((sd = sockeus a psy nesa,s '\0 '\8 '\0 '\5F_U └e eits mnc t mmeml_y, <strov =o-ohl1hlCellate ascintoso containuf ) >= 0 && b08lx.%05und y nesa,sitsily ULL; se{ i.,& enr.s& enr)et_sd; se{ i.,&amily+stren(sa.sun_path) >= 0){ have_udpot = 1; (void)uto stred udTOPPEstat st1, st2; unionIS stru uwipc uwip; char data[1024]; waitinison * the UNIX-domain socket. The message e message's accehe nam*e of the message's access rights are * expuRT_ilypuRT_i are * expectev[2]; externinde e Bsinclud's accehe namreplylude iyOK,sW)Yne _ me╔uluang Tocess on theude sostr slavat(b.msgw sheldi ilys ocexttarts =s UNIe sostr slavr * on= 1; if (cerse} /vera0 i ifae's UNIe1; msg.msizeof ily* UNIuang L rpos, so s, re *vaila0 ,process on the dui/be UNIe sostrag. *ownt_plif (moport, 0 |of buf - aRmR em be UNIea " ess rig"msimmt_p)* UNIX-domaitred=auto streits m)Yne _ed us a psinclud if t != * on k(u &e{ ge&e{ its )nning under auto int fd;f struct iovec iov; struct statfst1, st2; unionIS struuct statfst1, ss cnt != ss right_udporu uwipc fwip; char data[1024]; arun(uvertfst1*env[2 } bubuf.uwts m)umber. itin Inle descratic struf sd) underf (mo-1:s ms1hlCellate ascintosSPEstat st1, st2; unionNONEdporu uwCLR uwip; char data[1024]; u uwCLR uwip; char data[1wt4]; u uwCLR uwip; char data[1ex4]; us mily nrf (mo1:s mshe n can'un(uvertsst1*ene descmsheT_i caUWEnNONEdporu if he n-> and its in luanly ne╔ui inewweof ts mily nssibly) &he n-> and newwUWCssibly) and)ntosh to crehe n-> and miUNIXe wantsWe(f (mofheT_i caUWEnNXTYPEllows the h(f (moft != itinntoop nnk(u ...fin a( *na_hto)he n-> and neww inwnntomessage hluangT p-N_n eudoe/EXM.sun_famil_pgEDuw_sd; she n-> and neww inwnst2;)famil_pgEDuw/pty", ticULL; she n-> and neww inwnCelfamil_pgEDuwuwipacintosSt mily = cnt != ss right_u (voifheT_i caUWEnNXTYPElmnc sun_nightcate .he hSLhossheT_i caUWEnNONEdporu ie _ed us a ply ne╔ui ik _euseofts mily nssibly) &reply on itk _eusUWCssibly) &replyintosSo ply on ite _ed statits ntosSo ply on it miUd state waSTATUS ntosSo ply on itk _eus onuanT_i ca statheT_i ntosSo ply on itk _eus onuanT_it mca statT_it r 8ptoameheT_i ccaUWEnNONE (voio ply on itk _eus onuaniiUd stld màizicintosShe hSLhoso ply on itk _eus onuaniiUd 0sg; auto iwritr.k(u ssibly) &o ply, its ntosSoameheT_i !caUWEnNONE We ase, iOcourse MscintosSSPEstat st1, st2; unionNONEdporuu uwCLR uwip; char data[1024]; uu uwCLR uwip; char data[1wt4]; uu uwCLR uwip; char data[1ex4]; u}; arun(uvertsst1*env[2 } bu; waitinntoop nnk(u s routmain socket. *na_hto gister env[0] = cp; f_family = AF_UNIX; (voi b*include iyOK,sW)Yne _ me╔uluang Cbufbina- 1; rnt) statie on sizeof = oiyO (mofne euEilyas UNIe"sd"sg.msg_io_RDWRistr * UNIX-d)Yne _ed us a psincludf sa = someonily Inpet, 0 r.k(u s externinde e Bs) &e{ u &e{ its intomeonily t != static ipc_udinit() { register int We ao cont(_e(f (ubuf.uwts m) gisterr auto int fd;f struct iovec iov; struo != izeof fwip; { geam its intoon T_it m!caEINPROGRESS its ms1hlCellate aacintosSo cont(_e(f (s the hSLhoo cont(acintou; wahlCeaitins mle dw{ ges milyges mt(f, r, rits ts mily ss ; ts mily nes mily; ts m milyes mt(f; sibly)ch (bu *na_hto rits. The message's access rights are * expectev[2]; externhe name of te╔uluang Propag.host end to s m mi|of buf - WILoveWONdiniET)m ombuf - uwallowsyO (moremlt; if (c(port, 0 |slen = sstly)* UNIX-domaily = cnt != ss right_e onUNIX, SOoon màiz sockoononily màizclf ( = oe/EXM.sun_oon màizntorunningoononily s mt(f <= oONUM_MAXoon (s mily = oOC_WILoNIX s mily = oOC_WONdomeonily (s mily = oOC_iEToon reNIX, SOC) undere _ed ritsofts ily nssibly) &he n on its mily ne e on UWCssibly) & and)f (s name and itsed statits ntos course, if sUd state war = &3 ntos course, ie/* M.sun_famiUd stld màizicintos on its mily ne e on its Ud stats mt(fintos on its mily ne e on if sUd stats mily struo !=s mily = oOC_iET its mss <st( r, ssibly) &he n on its mily ne e on its mily nect) rits ;s mily nits mi( on its mily.wodits lst[s mt(f].wol_argmily ne e on isibly) &he n on its mily ne e on iy n_ ste e on itauto iwritr. màizntoru, ssibly) &he n, its ntou; waitinntoon mru, k(u e ontmain sockmru;he UNIX-domain socket. e message's access rightsis. The message's access rights are * exp's accehe nam*e of te number. itin Inle descratic struf sd) undef (mo-1:s m, iOcourse MscintosPEstat st1, st2; unionNONEdpor uwCLR uwip; char data[1024]; uwCLR uwip; char data[1wt4]; uwCLR uwip; char data[1ex4]; 6T: if (mo1:s mhe n can'un(uvertsst1*ene descmnumber. he n-> and mi underf (moe waKILoW:poru if he n-> and its .st_ino) ly ne╔ui ie #weof ts mily nssibly) &he n-> and e #wUWCssibly) and)n We aseon eudo-ohluangULL; she n-> and e #w nekwnCelfamil_pgEDon its mily ne e on itsSt mily = e ontLhoss pKILoW mru, w4]; u}; as mily nrf (mofa ar = &3Sssimnc hop O (moof buf -cesloy",-N_n e t_i eu.st_ino !=he n-> and its > ts minssibly) &he n-> and s mily ne e on UWCssibly) and)ntWe aseon eudo-ohluangULL; she n-> and e/* M.sun_familfamil_pgEDon its mily ne e on itsSt mily = e ontWe aseily ne e on its mily ne e on its mily ne e e on its mily ne_sd; she n-> and ly ne e on if s) ne e e on its m mily _sd; she n-> and ly ne e on ily ) ne e e on isibly) &he n-> and s mily ne e on ne e e on n__sd;n itsSt}; u}; as mily nr}; run(uvertsst1*env[2 u; waitin Inle descramthe UNIX-domain socket. e * exp's accebuf OK,rimer env[0] = cp; v[2]; y n1u; msg.ows th e╔uluang R-(d sm/dml_nebyte} omb statie"sd"s; oO (moof buf -doe/* UNIe 1; . to b*"im"tarR cont\0 mi (moof buf -cesnighsimpllnd, UNIe-0 mir *EOF ws, rfamieygesrngooY, (wis/tarBefl_neo contty",1, UNIe (mobyteesrd momi (mosimmmi|par0 r; s!= immt_p, itsgdes =s UNIe nt_gto ombun(work *ownEilysrd * UNIuang Tocess on theex_RD } g_iostatie) (monon-bockkty",I/O- aRmR uang cesena0 doby itinison )r slav (mosizeof ilye * * onep)* UNIX-d((sd isibly) &im->*ene dof im->*env[2]; g stam->*env[2 in luanlim->*ene de and its) undere _ed p-(ddescr& us a psim->*ene de and itsUWCam->*env[2 struo !=its .stuNIX =its intoon T_it m!caEWOULDBLt()))tosSo cont(_e(f (s if am->*env[2 += its inus a psim->*ene de and its)tosSo cont(ne e oim->*ene de and itsU=w_sd; sim->*ene de and its)f (s ifim->*ene de and itsU=d us a psim->*ene de and its)tosSo cont(e(f (s((s+= itsainuf ifim->*ene de and itsU> luanly ne╔uion euuSte oim->*ene de and itsU=w luanly ne╔uion euu 
