home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: SHell self-extracting ARchive
(archive/shar).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| SHell self-extracting ARchive (archive/shar)
| magic
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| POSIX shell script text executable
| default
| |
| 99%
| file
| C source text
| default
| |
| 98%
| file
| a /bin/sh script, ASCII text executable
| default (weak)
| |
| 100%
| perlTextCheck
| Likely Text (Perl)
| default
| |
| 100%
| siegfried
| fmt/329 Shell Archive Format
| default
| |
| 100%
| gt2
| Shell Skript: '/bin/sh'
| default (weak)
| |
| 100%
| detectItEasy
| Format: Plain text[LF]
| default
| |
| 100%
| binwalkID
| Executable script, shebang: "/bin/sh"
| default (weak)
| |
| 100%
| xdgMime
| application/x-shellscript
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 23 21 20 2f 62 69 6e 2f | 73 68 0a 23 20 54 68 69 |#! /bin/|sh.# Thi|
|00000010| 73 20 69 73 20 61 20 73 | 68 65 6c 6c 20 61 72 63 |s is a s|hell arc|
|00000020| 68 69 76 65 2e 20 20 52 | 65 6d 6f 76 65 20 61 6e |hive. R|emove an|
|00000030| 79 74 68 69 6e 67 20 62 | 65 66 6f 72 65 20 74 68 |ything b|efore th|
|00000040| 69 73 20 6c 69 6e 65 2c | 20 74 68 65 6e 20 75 6e |is line,| then un|
|00000050| 70 61 63 6b 0a 23 20 69 | 74 20 62 79 20 73 61 76 |pack.# i|t by sav|
|00000060| 69 6e 67 20 69 74 20 69 | 6e 74 6f 20 61 20 66 69 |ing it i|nto a fi|
|00000070| 6c 65 20 61 6e 64 20 74 | 79 70 69 6e 67 20 22 73 |le and t|yping "s|
|00000080| 68 20 66 69 6c 65 22 2e | 20 20 54 6f 20 6f 76 65 |h file".| To ove|
|00000090| 72 77 72 69 74 65 20 65 | 78 69 73 74 69 6e 67 0a |rwrite e|xisting.|
|000000a0| 23 20 66 69 6c 65 73 2c | 20 74 79 70 65 20 22 73 |# files,| type "s|
|000000b0| 68 20 66 69 6c 65 20 2d | 63 22 2e 20 20 59 6f 75 |h file -|c". You|
|000000c0| 20 63 61 6e 20 61 6c 73 | 6f 20 66 65 65 64 20 74 | can als|o feed t|
|000000d0| 68 69 73 20 61 73 20 73 | 74 61 6e 64 61 72 64 20 |his as s|tandard |
|000000e0| 69 6e 70 75 74 20 76 69 | 61 0a 23 20 75 6e 73 68 |input vi|a.# unsh|
|000000f0| 61 72 2c 20 6f 72 20 62 | 79 20 74 79 70 69 6e 67 |ar, or b|y typing|
|00000100| 20 22 73 68 20 3c 66 69 | 6c 65 22 2c 20 65 2e 67 | "sh <fi|le", e.g|
|00000110| 2e 2e 20 20 49 66 20 74 | 68 69 73 20 61 72 63 68 |.. If t|his arch|
|00000120| 69 76 65 20 69 73 20 63 | 6f 6d 70 6c 65 74 65 2c |ive is c|omplete,|
|00000130| 20 79 6f 75 0a 23 20 77 | 69 6c 6c 20 73 65 65 20 | you.# w|ill see |
|00000140| 74 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 6d 65 |the foll|owing me|
|00000150| 73 73 61 67 65 20 61 74 | 20 74 68 65 20 65 6e 64 |ssage at| the end|
|00000160| 3a 0a 23 09 09 22 45 6e | 64 20 6f 66 20 73 68 65 |:.#.."En|d of she|
|00000170| 6c 6c 20 61 72 63 68 69 | 76 65 2e 22 0a 23 20 43 |ll archi|ve.".# C|
|00000180| 6f 6e 74 65 6e 74 73 3a | 20 20 4d 61 6b 65 66 69 |ontents:| Makefi|
|00000190| 6c 65 20 6d 61 63 68 69 | 64 2e 63 20 6d 61 63 68 |le machi|d.c mach|
|000001a0| 69 64 2e 64 65 66 73 20 | 6d 61 63 68 69 64 5f 74 |id.defs |machid_t|
|000001b0| 79 70 65 73 2e 64 65 66 | 73 20 6d 63 6c 69 65 6e |ypes.def|s mclien|
|000001c0| 74 2e 63 0a 23 20 20 20 | 6d 61 63 68 69 64 5f 74 |t.c.# |machid_t|
|000001d0| 79 70 65 73 2e 68 0a 23 | 20 57 72 61 70 70 65 64 |ypes.h.#| Wrapped|
|000001e0| 20 62 79 20 72 70 64 40 | 45 52 4e 53 54 2e 4d 41 | by rpd@|ERNST.MA|
|000001f0| 43 48 2e 43 53 2e 43 4d | 55 2e 45 44 55 20 6f 6e |CH.CS.CM|U.EDU on|
|00000200| 20 4d 6f 6e 20 44 65 63 | 20 20 32 20 31 36 3a 30 | Mon Dec| 2 16:0|
|00000210| 36 3a 31 32 20 31 39 39 | 31 0a 50 41 54 48 3d 2f |6:12 199|1.PATH=/|
|00000220| 62 69 6e 3a 2f 75 73 72 | 2f 62 69 6e 3a 2f 75 73 |bin:/usr|/bin:/us|
|00000230| 72 2f 75 63 62 20 3b 20 | 65 78 70 6f 72 74 20 50 |r/ucb ; |export P|
|00000240| 41 54 48 0a 69 66 20 74 | 65 73 74 20 2d 66 20 4d |ATH.if t|est -f M|
|00000250| 61 6b 65 66 69 6c 65 20 | 2d 61 20 22 24 7b 31 7d |akefile |-a "${1}|
|00000260| 22 20 21 3d 20 22 2d 63 | 22 20 3b 20 74 68 65 6e |" != "-c|" ; then|
|00000270| 20 0a 20 20 65 63 68 6f | 20 73 68 61 72 3a 20 57 | . echo| shar: W|
|00000280| 69 6c 6c 20 6e 6f 74 20 | 6f 76 65 72 2d 77 72 69 |ill not |over-wri|
|00000290| 74 65 20 65 78 69 73 74 | 69 6e 67 20 66 69 6c 65 |te exist|ing file|
|000002a0| 20 5c 22 4d 61 6b 65 66 | 69 6c 65 5c 22 0a 65 6c | \"Makef|ile\".el|
|000002b0| 73 65 0a 65 63 68 6f 20 | 73 68 61 72 3a 20 45 78 |se.echo |shar: Ex|
|000002c0| 74 72 61 63 74 69 6e 67 | 20 5c 22 4d 61 6b 65 66 |tracting| \"Makef|
|000002d0| 69 6c 65 5c 22 20 5c 28 | 32 37 37 20 63 68 61 72 |ile\" \(|277 char|
|000002e0| 61 63 74 65 72 73 5c 29 | 0a 73 65 64 20 22 73 2f |acters\)|.sed "s/|
|000002f0| 5e 58 2f 2f 22 20 3e 4d | 61 6b 65 66 69 6c 65 20 |^X//" >M|akefile |
|00000300| 3c 3c 27 45 4e 44 5f 4f | 46 5f 4d 61 6b 65 66 69 |<<'END_O|F_Makefi|
|00000310| 6c 65 27 0a 58 61 6c 6c | 20 3a 20 6d 61 63 68 69 |le'.Xall| : machi|
|00000320| 64 20 6d 63 6c 69 65 6e | 74 0a 58 0a 58 6d 61 63 |d mclien|t.X.Xmac|
|00000330| 68 69 64 20 3a 20 6d 61 | 63 68 69 64 2e 6f 20 6d |hid : ma|chid.o m|
|00000340| 61 63 68 69 64 53 65 72 | 76 65 72 2e 6f 0a 58 09 |achidSer|ver.o.X.|
|00000350| 24 28 43 43 29 20 2d 6f | 20 24 40 20 6d 61 63 68 |$(CC) -o| $@ mach|
|00000360| 69 64 2e 6f 20 6d 61 63 | 68 69 64 53 65 72 76 65 |id.o mac|hidServe|
|00000370| 72 2e 6f 20 2d 6c 74 68 | 72 65 61 64 73 20 2d 6c |r.o -lth|reads -l|
|00000380| 6d 61 63 68 0a 58 0a 58 | 6d 63 6c 69 65 6e 74 20 |mach.X.X|mclient |
|00000390| 3a 20 6d 63 6c 69 65 6e | 74 2e 6f 20 6d 61 63 68 |: mclien|t.o mach|
|000003a0| 69 64 55 73 65 72 2e 6f | 0a 58 09 24 28 43 43 29 |idUser.o|.X.$(CC)|
|000003b0| 20 2d 6f 20 24 40 20 6d | 63 6c 69 65 6e 74 2e 6f | -o $@ m|client.o|
|000003c0| 20 6d 61 63 68 69 64 55 | 73 65 72 2e 6f 20 2d 6c | machidU|ser.o -l|
|000003d0| 6d 61 63 68 0a 58 0a 58 | 6d 63 6c 69 65 6e 74 2e |mach.X.X|mclient.|
|000003e0| 6f 20 3a 20 6d 61 63 68 | 69 64 2e 68 0a 58 0a 58 |o : mach|id.h.X.X|
|000003f0| 6d 61 63 68 69 64 2e 68 | 20 6d 61 63 68 69 64 55 |machid.h| machidU|
|00000400| 73 65 72 2e 63 20 6d 61 | 63 68 69 64 53 65 72 76 |ser.c ma|chidServ|
|00000410| 65 72 2e 63 20 3a 20 6d | 61 63 68 69 64 2e 64 65 |er.c : m|achid.de|
|00000420| 66 73 0a 58 09 6d 69 67 | 20 6d 61 63 68 69 64 2e |fs.X.mig| machid.|
|00000430| 64 65 66 73 0a 45 4e 44 | 5f 4f 46 5f 4d 61 6b 65 |defs.END|_OF_Make|
|00000440| 66 69 6c 65 0a 69 66 20 | 74 65 73 74 20 32 37 37 |file.if |test 277|
|00000450| 20 2d 6e 65 20 60 77 63 | 20 2d 63 20 3c 4d 61 6b | -ne `wc| -c <Mak|
|00000460| 65 66 69 6c 65 60 3b 20 | 74 68 65 6e 0a 20 20 20 |efile`; |then. |
|00000470| 20 65 63 68 6f 20 73 68 | 61 72 3a 20 5c 22 4d 61 | echo sh|ar: \"Ma|
|00000480| 6b 65 66 69 6c 65 5c 22 | 20 75 6e 70 61 63 6b 65 |kefile\"| unpacke|
|00000490| 64 20 77 69 74 68 20 77 | 72 6f 6e 67 20 73 69 7a |d with w|rong siz|
|000004a0| 65 21 0a 66 69 0a 23 20 | 65 6e 64 20 6f 66 20 6f |e!.fi.# |end of o|
|000004b0| 76 65 72 77 72 69 74 69 | 6e 67 20 63 68 65 63 6b |verwriti|ng check|
|000004c0| 0a 66 69 0a 69 66 20 74 | 65 73 74 20 2d 66 20 6d |.fi.if t|est -f m|
|000004d0| 61 63 68 69 64 2e 63 20 | 2d 61 20 22 24 7b 31 7d |achid.c |-a "${1}|
|000004e0| 22 20 21 3d 20 22 2d 63 | 22 20 3b 20 74 68 65 6e |" != "-c|" ; then|
|000004f0| 20 0a 20 20 65 63 68 6f | 20 73 68 61 72 3a 20 57 | . echo| shar: W|
|00000500| 69 6c 6c 20 6e 6f 74 20 | 6f 76 65 72 2d 77 72 69 |ill not |over-wri|
|00000510| 74 65 20 65 78 69 73 74 | 69 6e 67 20 66 69 6c 65 |te exist|ing file|
|00000520| 20 5c 22 6d 61 63 68 69 | 64 2e 63 5c 22 0a 65 6c | \"machi|d.c\".el|
|00000530| 73 65 0a 65 63 68 6f 20 | 73 68 61 72 3a 20 45 78 |se.echo |shar: Ex|
|00000540| 74 72 61 63 74 69 6e 67 | 20 5c 22 6d 61 63 68 69 |tracting| \"machi|
|00000550| 64 2e 63 5c 22 20 5c 28 | 31 30 38 36 35 20 63 68 |d.c\" \(|10865 ch|
|00000560| 61 72 61 63 74 65 72 73 | 5c 29 0a 73 65 64 20 22 |aracters|\).sed "|
|00000570| 73 2f 5e 58 2f 2f 22 20 | 3e 6d 61 63 68 69 64 2e |s/^X//" |>machid.|
|00000580| 63 20 3c 3c 27 45 4e 44 | 5f 4f 46 5f 6d 61 63 68 |c <<'END|_OF_mach|
|00000590| 69 64 2e 63 27 0a 58 23 | 69 6e 63 6c 75 64 65 20 |id.c'.X#|include |
|000005a0| 3c 73 74 64 69 6f 2e 68 | 3e 0a 58 23 69 6e 63 6c |<stdio.h|>.X#incl|
|000005b0| 75 64 65 20 3c 6d 61 63 | 68 2e 68 3e 0a 58 23 69 |ude <mac|h.h>.X#i|
|000005c0| 6e 63 6c 75 64 65 20 3c | 63 74 68 72 65 61 64 73 |nclude <|cthreads|
|000005d0| 2e 68 3e 0a 58 23 69 6e | 63 6c 75 64 65 20 3c 6d |.h>.X#in|clude <m|
|000005e0| 61 63 68 2f 6d 65 73 73 | 61 67 65 2e 68 3e 0a 58 |ach/mess|age.h>.X|
|000005f0| 23 69 6e 63 6c 75 64 65 | 20 3c 6d 61 63 68 2f 6e |#include| <mach/n|
|00000600| 6f 74 69 66 79 2e 68 3e | 0a 58 23 69 6e 63 6c 75 |otify.h>|.X#inclu|
|00000610| 64 65 20 3c 6d 61 63 68 | 5f 65 72 72 6f 72 2e 68 |de <mach|_error.h|
|00000620| 3e 0a 58 23 69 6e 63 6c | 75 64 65 20 22 6d 61 63 |>.X#incl|ude "mac|
|00000630| 68 69 64 5f 74 79 70 65 | 73 2e 68 22 0a 58 0a 58 |hid_type|s.h".X.X|
|00000640| 73 74 61 74 69 63 20 6d | 61 63 68 5f 70 6f 72 74 |static m|ach_port|
|00000650| 5f 74 20 73 65 72 76 69 | 63 65 3b 09 2f 2a 20 6f |_t servi|ce;./* o|
|00000660| 75 72 20 6f 77 6e 20 73 | 65 72 76 69 63 65 20 70 |ur own s|ervice p|
|00000670| 6f 72 74 20 2a 2f 0a 58 | 73 74 61 74 69 63 20 6d |ort */.X|static m|
|00000680| 61 63 68 5f 70 6f 72 74 | 5f 74 20 6e 6f 74 69 66 |ach_port|_t notif|
|00000690| 79 3b 09 2f 2a 20 6f 75 | 72 20 6e 6f 74 69 66 69 |y;./* ou|r notifi|
|000006a0| 63 61 74 69 6f 6e 20 70 | 6f 72 74 20 2a 2f 0a 58 |cation p|ort */.X|
|000006b0| 0a 58 73 74 61 74 69 63 | 20 61 6e 79 5f 74 20 73 |.Xstatic| any_t s|
|000006c0| 65 72 76 65 72 5f 74 68 | 72 65 61 64 28 29 3b 0a |erver_th|read();.|
|000006d0| 58 73 74 61 74 69 63 20 | 62 6f 6f 6c 65 61 6e 5f |Xstatic |boolean_|
|000006e0| 74 20 6d 61 63 68 69 64 | 5f 64 65 6d 75 78 28 29 |t machid|_demux()|
|000006f0| 3b 0a 58 0a 58 65 78 74 | 65 72 6e 20 62 6f 6f 6c |;.X.Xext|ern bool|
|00000700| 65 61 6e 5f 74 20 6d 61 | 63 68 69 64 5f 73 65 72 |ean_t ma|chid_ser|
|00000710| 76 65 72 28 29 3b 0a 58 | 65 78 74 65 72 6e 20 62 |ver();.X|extern b|
|00000720| 6f 6f 6c 65 61 6e 5f 74 | 20 6e 6f 74 69 66 79 5f |oolean_t| notify_|
|00000730| 73 65 72 76 65 72 28 29 | 3b 0a 58 0a 58 73 74 61 |server()|;.X.Xsta|
|00000740| 74 69 63 20 76 6f 69 64 | 0a 58 75 73 61 67 65 28 |tic void|.Xusage(|
|00000750| 29 0a 58 7b 0a 58 20 20 | 20 20 71 75 69 74 28 31 |).X{.X | quit(1|
|00000760| 2c 20 22 75 73 61 67 65 | 3a 20 6d 61 63 68 69 64 |, "usage|: machid|
|00000770| 20 5b 6e 75 6d 2d 74 68 | 72 65 61 64 73 5d 5c 6e | [num-th|reads]\n|
|00000780| 22 29 3b 0a 58 7d 0a 58 | 0a 58 6d 61 69 6e 28 61 |");.X}.X|.Xmain(a|
|00000790| 72 67 63 2c 20 61 72 67 | 76 29 0a 58 20 20 20 20 |rgc, arg|v).X |
|000007a0| 69 6e 74 20 61 72 67 63 | 3b 0a 58 20 20 20 20 63 |int argc|;.X c|
|000007b0| 68 61 72 20 2a 61 72 67 | 76 5b 5d 3b 0a 58 7b 0a |har *arg|v[];.X{.|
|000007c0| 58 20 20 20 20 69 6e 74 | 20 69 2c 20 6e 75 6d 5f |X int| i, num_|
|000007d0| 74 68 72 65 61 64 73 3b | 0a 58 20 20 20 20 6d 61 |threads;|.X ma|
|000007e0| 63 68 5f 70 6f 72 74 5f | 74 20 70 73 65 74 3b 0a |ch_port_|t pset;.|
|000007f0| 58 20 20 20 20 6b 65 72 | 6e 5f 72 65 74 75 72 6e |X ker|n_return|
|00000800| 5f 74 20 6b 72 3b 0a 58 | 0a 58 20 20 20 20 73 77 |_t kr;.X|.X sw|
|00000810| 69 74 63 68 20 28 61 72 | 67 63 29 20 7b 0a 58 20 |itch (ar|gc) {.X |
|00000820| 20 20 20 20 20 63 61 73 | 65 20 31 3a 0a 58 09 6e | cas|e 1:.X.n|
|00000830| 75 6d 5f 74 68 72 65 61 | 64 73 20 3d 20 31 3b 0a |um_threa|ds = 1;.|
|00000840| 58 09 62 72 65 61 6b 3b | 0a 58 20 20 20 20 20 20 |X.break;|.X |
|00000850| 63 61 73 65 20 32 3a 0a | 58 09 6e 75 6d 5f 74 68 |case 2:.|X.num_th|
|00000860| 72 65 61 64 73 20 3d 20 | 61 74 6f 69 28 61 72 67 |reads = |atoi(arg|
|00000870| 76 5b 31 5d 29 3b 0a 58 | 09 69 66 20 28 6e 75 6d |v[1]);.X|.if (num|
|00000880| 5f 74 68 72 65 61 64 73 | 20 3c 20 30 29 0a 58 09 |_threads| < 0).X.|
|00000890| 20 20 20 20 75 73 61 67 | 65 28 29 3b 0a 58 09 62 | usag|e();.X.b|
|000008a0| 72 65 61 6b 3b 0a 58 20 | 20 20 20 20 20 64 65 66 |reak;.X | def|
|000008b0| 61 75 6c 74 3a 0a 58 09 | 75 73 61 67 65 28 29 3b |ault:.X.|usage();|
|000008c0| 0a 58 20 20 20 20 7d 0a | 58 0c 0a 58 20 20 20 20 |.X }.|X..X |
|000008d0| 2f 2a 0a 58 20 20 20 20 | 20 2a 09 41 6c 6c 6f 63 |/*.X | *.Alloc|
|000008e0| 61 74 65 20 6f 75 72 20 | 73 65 72 76 69 63 65 20 |ate our |service |
|000008f0| 70 6f 72 74 20 61 6e 64 | 20 63 68 65 63 6b 20 69 |port and| check i|
|00000900| 74 20 69 6e 74 6f 20 74 | 68 65 20 6e 61 6d 65 20 |t into t|he name |
|00000910| 73 65 72 76 69 63 65 2e | 0a 58 20 20 20 20 20 2a |service.|.X *|
|00000920| 2f 0a 58 0a 58 20 20 20 | 20 28 76 6f 69 64 29 20 |/.X.X | (void) |
|00000930| 6d 61 63 68 5f 70 6f 72 | 74 5f 61 6c 6c 6f 63 61 |mach_por|t_alloca|
|00000940| 74 65 28 6d 61 63 68 5f | 74 61 73 6b 5f 73 65 6c |te(mach_|task_sel|
|00000950| 66 28 29 2c 0a 58 09 09 | 09 20 20 20 20 20 20 4d |f(),.X..|. M|
|00000960| 41 43 48 5f 50 4f 52 54 | 5f 52 49 47 48 54 5f 52 |ACH_PORT|_RIGHT_R|
|00000970| 45 43 45 49 56 45 2c 20 | 26 73 65 72 76 69 63 65 |ECEIVE, |&service|
|00000980| 29 3b 0a 58 0a 58 20 20 | 20 20 6b 72 20 3d 20 6e |);.X.X | kr = n|
|00000990| 65 74 6e 61 6d 65 5f 63 | 68 65 63 6b 5f 69 6e 28 |etname_c|heck_in(|
|000009a0| 6e 61 6d 65 5f 73 65 72 | 76 65 72 5f 70 6f 72 74 |name_ser|ver_port|
|000009b0| 2c 20 22 64 65 6d 6f 4d | 61 63 68 49 44 22 2c 0a |, "demoM|achID",.|
|000009c0| 58 09 09 09 20 20 6d 61 | 63 68 5f 74 61 73 6b 5f |X... ma|ch_task_|
|000009d0| 73 65 6c 66 28 29 2c 20 | 73 65 72 76 69 63 65 29 |self(), |service)|
|000009e0| 3b 0a 58 20 20 20 20 69 | 66 20 28 6b 72 20 21 3d |;.X i|f (kr !=|
|000009f0| 20 4b 45 52 4e 5f 53 55 | 43 43 45 53 53 29 0a 58 | KERN_SU|CCESS).X|
|00000a00| 09 71 75 69 74 28 31 2c | 20 22 6d 61 63 68 69 64 |.quit(1,| "machid|
|00000a10| 3a 20 6e 65 74 6e 61 6d | 65 5f 63 68 65 63 6b 5f |: netnam|e_check_|
|00000a20| 69 6e 3a 20 25 73 5c 6e | 22 2c 20 6d 61 63 68 5f |in: %s\n|", mach_|
|00000a30| 65 72 72 6f 72 5f 73 74 | 72 69 6e 67 28 6b 72 29 |error_st|ring(kr)|
|00000a40| 29 3b 0a 58 0a 58 20 20 | 20 20 2f 2a 0a 58 20 20 |);.X.X | /*.X |
|00000a50| 20 20 20 2a 09 41 6c 6c | 6f 63 61 74 65 20 61 20 | *.All|ocate a |
|00000a60| 70 6f 72 74 20 66 6f 72 | 20 72 65 63 65 69 76 69 |port for| receivi|
|00000a70| 6e 67 20 6e 6f 74 69 66 | 69 63 61 74 69 6f 6e 73 |ng notif|ications|
|00000a80| 20 61 6e 64 20 61 20 70 | 6f 72 74 20 73 65 74 2c | and a p|ort set,|
|00000a90| 0a 58 20 20 20 20 20 2a | 09 61 6e 64 20 70 75 74 |.X *|.and put|
|00000aa0| 20 74 68 65 20 73 65 72 | 76 69 63 65 20 70 6f 72 | the ser|vice por|
|00000ab0| 74 20 61 6e 64 20 74 68 | 65 20 6e 6f 74 69 66 79 |t and th|e notify|
|00000ac0| 20 70 6f 72 74 20 69 6e | 74 6f 20 74 68 65 20 70 | port in|to the p|
|00000ad0| 6f 72 74 20 73 65 74 2e | 0a 58 20 20 20 20 20 2a |ort set.|.X *|
|00000ae0| 2f 0a 58 0a 58 20 20 20 | 20 28 76 6f 69 64 29 20 |/.X.X | (void) |
|00000af0| 6d 61 63 68 5f 70 6f 72 | 74 5f 61 6c 6c 6f 63 61 |mach_por|t_alloca|
|00000b00| 74 65 28 6d 61 63 68 5f | 74 61 73 6b 5f 73 65 6c |te(mach_|task_sel|
|00000b10| 66 28 29 2c 0a 58 09 09 | 09 20 20 20 20 20 20 4d |f(),.X..|. M|
|00000b20| 41 43 48 5f 50 4f 52 54 | 5f 52 49 47 48 54 5f 52 |ACH_PORT|_RIGHT_R|
|00000b30| 45 43 45 49 56 45 2c 20 | 26 6e 6f 74 69 66 79 29 |ECEIVE, |¬ify)|
|00000b40| 3b 0a 58 0a 58 20 20 20 | 20 28 76 6f 69 64 29 20 |;.X.X | (void) |
|00000b50| 6d 61 63 68 5f 70 6f 72 | 74 5f 61 6c 6c 6f 63 61 |mach_por|t_alloca|
|00000b60| 74 65 28 6d 61 63 68 5f | 74 61 73 6b 5f 73 65 6c |te(mach_|task_sel|
|00000b70| 66 28 29 2c 0a 58 09 09 | 09 20 20 20 20 20 20 4d |f(),.X..|. M|
|00000b80| 41 43 48 5f 50 4f 52 54 | 5f 52 49 47 48 54 5f 50 |ACH_PORT|_RIGHT_P|
|00000b90| 4f 52 54 5f 53 45 54 2c | 20 26 70 73 65 74 29 3b |ORT_SET,| &pset);|
|00000ba0| 0a 58 0a 58 20 20 20 20 | 28 76 6f 69 64 29 20 6d |.X.X |(void) m|
|00000bb0| 61 63 68 5f 70 6f 72 74 | 5f 6d 6f 76 65 5f 6d 65 |ach_port|_move_me|
|00000bc0| 6d 62 65 72 28 6d 61 63 | 68 5f 74 61 73 6b 5f 73 |mber(mac|h_task_s|
|00000bd0| 65 6c 66 28 29 2c 20 73 | 65 72 76 69 63 65 2c 20 |elf(), s|ervice, |
|00000be0| 70 73 65 74 29 3b 0a 58 | 0a 58 20 20 20 20 28 76 |pset);.X|.X (v|
|00000bf0| 6f 69 64 29 20 6d 61 63 | 68 5f 70 6f 72 74 5f 6d |oid) mac|h_port_m|
|00000c00| 6f 76 65 5f 6d 65 6d 62 | 65 72 28 6d 61 63 68 5f |ove_memb|er(mach_|
|00000c10| 74 61 73 6b 5f 73 65 6c | 66 28 29 2c 20 6e 6f 74 |task_sel|f(), not|
|00000c20| 69 66 79 2c 20 70 73 65 | 74 29 3b 0a 58 0a 58 20 |ify, pse|t);.X.X |
|00000c30| 20 20 20 2f 2a 0a 58 20 | 20 20 20 20 2a 09 43 72 | /*.X | *.Cr|
|00000c40| 65 61 74 65 20 74 68 72 | 65 61 64 73 20 74 6f 20 |eate thr|eads to |
|00000c50| 73 65 72 76 69 63 65 20 | 6d 65 73 73 61 67 65 73 |service |messages|
|00000c60| 20 72 65 63 65 69 76 65 | 64 20 66 72 6f 6d 20 74 | receive|d from t|
|00000c70| 68 65 20 70 6f 72 74 20 | 73 65 74 2e 0a 58 20 20 |he port |set..X |
|00000c80| 20 20 20 2a 2f 0a 58 0a | 58 20 20 20 20 66 6f 72 | */.X.|X for|
|00000c90| 20 28 69 20 3d 20 30 3b | 20 69 20 3c 20 6e 75 6d | (i = 0;| i < num|
|00000ca0| 5f 74 68 72 65 61 64 73 | 3b 20 69 2b 2b 29 0a 58 |_threads|; i++).X|
|00000cb0| 09 63 74 68 72 65 61 64 | 5f 64 65 74 61 63 68 28 |.cthread|_detach(|
|00000cc0| 63 74 68 72 65 61 64 5f | 66 6f 72 6b 28 73 65 72 |cthread_|fork(ser|
|00000cd0| 76 65 72 5f 74 68 72 65 | 61 64 2c 20 28 61 6e 79 |ver_thre|ad, (any|
|00000ce0| 5f 74 29 20 70 73 65 74 | 29 29 3b 0a 58 0a 58 20 |_t) pset|));.X.X |
|00000cf0| 20 20 20 2f 2a 0a 58 20 | 20 20 20 20 2a 09 54 68 | /*.X | *.Th|
|00000d00| 69 73 20 74 68 72 65 61 | 64 20 69 73 6e 27 74 20 |is threa|d isn't |
|00000d10| 6e 65 65 64 65 64 20 61 | 6e 79 20 6c 6f 6e 67 65 |needed a|ny longe|
|00000d20| 72 2e 0a 58 20 20 20 20 | 20 2a 2f 0a 58 0a 58 20 |r..X | */.X.X |
|00000d30| 20 20 20 63 74 68 72 65 | 61 64 5f 65 78 69 74 28 | cthre|ad_exit(|
|00000d40| 30 29 3b 0a 58 20 20 20 | 20 2f 2a 4e 4f 54 52 45 |0);.X | /*NOTRE|
|00000d50| 41 43 48 45 44 2a 2f 0a | 58 7d 0a 58 0c 0a 58 2f |ACHED*/.|X}.X..X/|
|00000d60| 2a 20 61 6e 20 75 70 70 | 65 72 20 62 6f 75 6e 64 |* an upp|er bound|
|00000d70| 20 6f 6e 20 6d 65 73 73 | 61 67 65 73 20 74 68 61 | on mess|ages tha|
|00000d80| 74 20 77 65 20 68 61 6e | 64 6c 65 20 2a 2f 0a 58 |t we han|dle */.X|
|00000d90| 23 64 65 66 69 6e 65 20 | 4d 41 58 5f 4d 53 47 5f |#define |MAX_MSG_|
|00000da0| 53 49 5a 45 09 35 31 32 | 0a 58 0a 58 73 74 61 74 |SIZE.512|.X.Xstat|
|00000db0| 69 63 20 61 6e 79 5f 74 | 0a 58 73 65 72 76 65 72 |ic any_t|.Xserver|
|00000dc0| 5f 74 68 72 65 61 64 28 | 61 72 67 29 0a 58 20 20 |_thread(|arg).X |
|00000dd0| 20 20 61 6e 79 5f 74 20 | 61 72 67 3b 0a 58 7b 0a | any_t |arg;.X{.|
|00000de0| 58 20 20 20 20 6d 61 63 | 68 5f 70 6f 72 74 5f 74 |X mac|h_port_t|
|00000df0| 20 70 73 65 74 20 3d 20 | 28 6d 61 63 68 5f 70 6f | pset = |(mach_po|
|00000e00| 72 74 5f 74 29 20 61 72 | 67 3b 0a 58 20 20 20 20 |rt_t) ar|g;.X |
|00000e10| 6b 65 72 6e 5f 72 65 74 | 75 72 6e 5f 74 20 6b 72 |kern_ret|urn_t kr|
|00000e20| 3b 0a 58 0a 58 20 20 20 | 20 6b 72 20 3d 20 6d 61 |;.X.X | kr = ma|
|00000e30| 63 68 5f 6d 73 67 5f 73 | 65 72 76 65 72 28 6d 61 |ch_msg_s|erver(ma|
|00000e40| 63 68 69 64 5f 64 65 6d | 75 78 2c 20 4d 41 58 5f |chid_dem|ux, MAX_|
|00000e50| 4d 53 47 5f 53 49 5a 45 | 2c 20 70 73 65 74 29 3b |MSG_SIZE|, pset);|
|00000e60| 0a 58 20 20 20 20 71 75 | 69 74 28 31 2c 20 22 6d |.X qu|it(1, "m|
|00000e70| 61 63 68 69 64 3a 20 6d | 61 63 68 5f 6d 73 67 5f |achid: m|ach_msg_|
|00000e80| 73 65 72 76 65 72 3a 20 | 25 73 5c 6e 22 2c 20 6d |server: |%s\n", m|
|00000e90| 61 63 68 5f 65 72 72 6f | 72 5f 73 74 72 69 6e 67 |ach_erro|r_string|
|00000ea0| 28 6b 72 29 29 3b 0a 58 | 20 20 20 20 72 65 74 75 |(kr));.X| retu|
|00000eb0| 72 6e 20 30 3b 0a 58 7d | 0a 58 0a 58 73 74 61 74 |rn 0;.X}|.X.Xstat|
|00000ec0| 69 63 20 62 6f 6f 6c 65 | 61 6e 5f 74 0a 58 6d 61 |ic boole|an_t.Xma|
|00000ed0| 63 68 69 64 5f 64 65 6d | 75 78 28 72 65 71 75 65 |chid_dem|ux(reque|
|00000ee0| 73 74 2c 20 72 65 70 6c | 79 29 0a 58 20 20 20 20 |st, repl|y).X |
|00000ef0| 6d 61 63 68 5f 6d 73 67 | 5f 68 65 61 64 65 72 5f |mach_msg|_header_|
|00000f00| 74 20 2a 72 65 71 75 65 | 73 74 2c 20 2a 72 65 70 |t *reque|st, *rep|
|00000f10| 6c 79 3b 0a 58 7b 0a 58 | 20 20 20 20 2f 2a 0a 58 |ly;.X{.X| /*.X|
|00000f20| 20 20 20 20 20 2a 09 48 | 61 6e 64 6c 65 20 61 20 | *.H|andle a |
|00000f30| 72 65 71 75 65 73 74 20 | 6d 65 73 73 61 67 65 20 |request |message |
|00000f40| 62 61 73 65 64 20 6f 6e | 20 74 68 65 20 70 6f 72 |based on| the por|
|00000f50| 74 0a 58 20 20 20 20 20 | 2a 09 66 72 6f 6d 20 77 |t.X |*.from w|
|00000f60| 68 69 63 68 20 69 74 20 | 77 61 73 20 72 65 63 65 |hich it |was rece|
|00000f70| 69 76 65 64 2e 0a 58 20 | 20 20 20 20 2a 2f 0a 58 |ived..X | */.X|
|00000f80| 0a 58 20 20 20 20 69 66 | 20 28 72 65 71 75 65 73 |.X if| (reques|
|00000f90| 74 2d 3e 6d 73 67 68 5f | 6c 6f 63 61 6c 5f 70 6f |t->msgh_|local_po|
|00000fa0| 72 74 20 3d 3d 20 73 65 | 72 76 69 63 65 29 0a 58 |rt == se|rvice).X|
|00000fb0| 09 72 65 74 75 72 6e 20 | 6d 61 63 68 69 64 5f 73 |.return |machid_s|
|00000fc0| 65 72 76 65 72 28 72 65 | 71 75 65 73 74 2c 20 72 |erver(re|quest, r|
|00000fd0| 65 70 6c 79 29 3b 0a 58 | 20 20 20 20 65 6c 73 65 |eply);.X| else|
|00000fe0| 20 69 66 20 28 72 65 71 | 75 65 73 74 2d 3e 6d 73 | if (req|uest->ms|
|00000ff0| 67 68 5f 6c 6f 63 61 6c | 5f 70 6f 72 74 20 3d 3d |gh_local|_port ==|
|00001000| 20 6e 6f 74 69 66 79 29 | 0a 58 09 72 65 74 75 72 | notify)|.X.retur|
|00001010| 6e 20 6e 6f 74 69 66 79 | 5f 73 65 72 76 65 72 28 |n notify|_server(|
|00001020| 72 65 71 75 65 73 74 2c | 20 72 65 70 6c 79 29 3b |request,| reply);|
|00001030| 0a 58 20 20 20 20 65 6c | 73 65 0a 58 09 71 75 69 |.X el|se.X.qui|
|00001040| 74 28 31 2c 20 22 6d 61 | 63 68 69 64 3a 20 6d 61 |t(1, "ma|chid: ma|
|00001050| 63 68 69 64 5f 64 65 6d | 75 78 3a 20 62 61 64 20 |chid_dem|ux: bad |
|00001060| 6c 6f 63 61 6c 20 70 6f | 72 74 20 25 78 5c 6e 22 |local po|rt %x\n"|
|00001070| 2c 0a 58 09 20 20 20 20 | 20 72 65 71 75 65 73 74 |,.X. | request|
|00001080| 2d 3e 6d 73 67 68 5f 6c | 6f 63 61 6c 5f 70 6f 72 |->msgh_l|ocal_por|
|00001090| 74 29 3b 0a 58 7d 0a 58 | 0a 58 73 74 61 74 69 63 |t);.X}.X|.Xstatic|
|000010a0| 20 6d 61 63 68 5f 69 64 | 5f 74 20 6e 61 6d 65 5f | mach_id|_t name_|
|000010b0| 6c 6f 6f 6b 75 70 28 29 | 3b 0a 58 73 74 61 74 69 |lookup()|;.Xstati|
|000010c0| 63 20 6b 65 72 6e 5f 72 | 65 74 75 72 6e 5f 74 20 |c kern_r|eturn_t |
|000010d0| 70 6f 72 74 5f 6c 6f 6f | 6b 75 70 28 29 3b 0a 58 |port_loo|kup();.X|
|000010e0| 73 74 61 74 69 63 20 76 | 6f 69 64 20 70 6f 72 74 |static v|oid port|
|000010f0| 5f 64 65 73 74 72 6f 79 | 28 29 3b 0a 58 0a 58 2f |_destroy|();.X.X/|
|00001100| 2a 0a 58 20 2a 09 54 68 | 69 73 20 6c 6f 63 6b 20 |*.X *.Th|is lock |
|00001110| 70 72 6f 74 65 63 74 73 | 20 61 6c 6c 20 73 68 61 |protects| all sha|
|00001120| 72 65 64 20 64 61 74 61 | 2e 0a 58 20 2a 2f 0a 58 |red data|..X */.X|
|00001130| 0a 58 73 74 61 74 69 63 | 20 73 74 72 75 63 74 20 |.Xstatic| struct |
|00001140| 6d 75 74 65 78 20 6c 6f | 63 6b 20 3d 20 4d 55 54 |mutex lo|ck = MUT|
|00001150| 45 58 5f 49 4e 49 54 49 | 41 4c 49 5a 45 52 3b 0a |EX_INITI|ALIZER;.|
|00001160| 58 0c 0a 58 2f 2a 09 53 | 65 72 76 65 72 20 66 75 |X..X/*.S|erver fu|
|00001170| 6e 63 74 69 6f 6e 73 20 | 66 6f 72 20 74 68 65 20 |nctions |for the |
|00001180| 6d 61 63 68 69 64 20 69 | 6e 74 65 72 66 61 63 65 |machid i|nterface|
|00001190| 2e 09 2a 2f 0a 58 0a 58 | 6b 65 72 6e 5f 72 65 74 |..*/.X.X|kern_ret|
|000011a0| 75 72 6e 5f 74 0a 58 64 | 6f 5f 72 65 67 69 73 74 |urn_t.Xd|o_regist|
|000011b0| 65 72 28 73 65 72 76 65 | 72 2c 20 70 6f 72 74 2c |er(serve|r, port,|
|000011c0| 20 6e 61 6d 65 70 29 0a | 58 20 20 20 20 6d 61 63 | namep).|X mac|
|000011d0| 68 5f 70 6f 72 74 5f 74 | 20 73 65 72 76 65 72 3b |h_port_t| server;|
|000011e0| 0a 58 20 20 20 20 6d 61 | 63 68 5f 70 6f 72 74 5f |.X ma|ch_port_|
|000011f0| 74 20 70 6f 72 74 3b 0a | 58 20 20 20 20 6d 61 63 |t port;.|X mac|
|00001200| 68 5f 69 64 5f 74 20 2a | 6e 61 6d 65 70 3b 0a 58 |h_id_t *|namep;.X|
|00001210| 7b 0a 58 20 20 20 20 6d | 61 63 68 5f 69 64 5f 74 |{.X m|ach_id_t|
|00001220| 20 6e 61 6d 65 3b 0a 58 | 0a 58 20 20 20 20 2f 2a | name;.X|.X /*|
|00001230| 0a 58 20 20 20 20 20 2a | 09 57 65 20 68 61 76 65 |.X *|.We have|
|00001240| 20 61 20 70 6f 72 74 20 | 72 69 67 68 74 20 74 68 | a port |right th|
|00001250| 61 74 20 6d 75 73 74 20 | 62 65 20 63 6f 6e 73 75 |at must |be consu|
|00001260| 6d 65 64 2e 0a 58 20 20 | 20 20 20 2a 09 6e 61 6d |med..X | *.nam|
|00001270| 65 5f 6c 6f 6f 6b 75 70 | 20 64 6f 65 73 20 74 68 |e_lookup| does th|
|00001280| 69 73 20 66 6f 72 20 75 | 73 2e 0a 58 20 20 20 20 |is for u|s..X |
|00001290| 20 2a 2f 0a 58 0a 58 20 | 20 20 20 6d 75 74 65 78 | */.X.X | mutex|
|000012a0| 5f 6c 6f 63 6b 28 26 6c | 6f 63 6b 29 3b 0a 58 20 |_lock(&l|ock);.X |
|000012b0| 20 20 20 6e 61 6d 65 20 | 3d 20 6e 61 6d 65 5f 6c | name |= name_l|
|000012c0| 6f 6f 6b 75 70 28 70 6f | 72 74 29 3b 0a 58 20 20 |ookup(po|rt);.X |
|000012d0| 20 20 6d 75 74 65 78 5f | 75 6e 6c 6f 63 6b 28 26 | mutex_|unlock(&|
|000012e0| 6c 6f 63 6b 29 3b 0a 58 | 0a 58 20 20 20 20 2a 6e |lock);.X|.X *n|
|000012f0| 61 6d 65 70 20 3d 20 6e | 61 6d 65 3b 0a 58 20 20 |amep = n|ame;.X |
|00001300| 20 20 72 65 74 75 72 6e | 20 4b 45 52 4e 5f 53 55 | return| KERN_SU|
|00001310| 43 43 45 53 53 3b 0a 58 | 7d 0a 58 0a 58 6b 65 72 |CCESS;.X|}.X.Xker|
|00001320| 6e 5f 72 65 74 75 72 6e | 5f 74 0a 58 64 6f 5f 6c |n_return|_t.Xdo_l|
|00001330| 6f 6f 6b 75 70 28 73 65 | 72 76 65 72 2c 20 6e 61 |ookup(se|rver, na|
|00001340| 6d 65 2c 20 70 6f 72 74 | 70 29 0a 58 20 20 20 20 |me, port|p).X |
|00001350| 6d 61 63 68 5f 70 6f 72 | 74 5f 74 20 73 65 72 76 |mach_por|t_t serv|
|00001360| 65 72 3b 0a 58 20 20 20 | 20 6d 61 63 68 5f 69 64 |er;.X | mach_id|
|00001370| 5f 74 20 6e 61 6d 65 3b | 0a 58 20 20 20 20 6d 61 |_t name;|.X ma|
|00001380| 63 68 5f 70 6f 72 74 5f | 74 20 2a 70 6f 72 74 70 |ch_port_|t *portp|
|00001390| 3b 0a 58 7b 0a 58 20 20 | 20 20 6d 61 63 68 5f 70 |;.X{.X | mach_p|
|000013a0| 6f 72 74 5f 74 20 70 6f | 72 74 3b 0a 58 20 20 20 |ort_t po|rt;.X |
|000013b0| 20 6b 65 72 6e 5f 72 65 | 74 75 72 6e 5f 74 20 6b | kern_re|turn_t k|
|000013c0| 72 3b 0a 58 0a 58 20 20 | 20 20 2f 2a 0a 58 20 20 |r;.X.X | /*.X |
|000013d0| 20 20 20 2a 09 57 65 20 | 6d 75 73 74 20 72 65 74 | *.We |must ret|
|000013e0| 75 72 6e 20 61 20 70 6f | 72 74 20 72 69 67 68 74 |urn a po|rt right|
|000013f0| 20 72 65 66 65 72 65 6e | 63 65 20 74 6f 20 70 75 | referen|ce to pu|
|00001400| 74 20 69 6e 74 6f 20 74 | 68 65 20 72 65 70 6c 79 |t into t|he reply|
|00001410| 0a 58 20 20 20 20 20 2a | 09 6d 65 73 73 61 67 65 |.X *|.message|
|00001420| 2e 20 20 70 6f 72 74 5f | 6c 6f 6f 6b 75 70 20 72 |. port_|lookup r|
|00001430| 65 74 75 72 6e 73 20 61 | 20 72 65 66 65 72 65 6e |eturns a| referen|
|00001440| 63 65 20 66 6f 72 20 75 | 73 2e 0a 58 20 20 20 20 |ce for u|s..X |
|00001450| 20 2a 2f 0a 58 20 20 20 | 20 6d 75 74 65 78 5f 6c | */.X | mutex_l|
|00001460| 6f 63 6b 28 26 6c 6f 63 | 6b 29 3b 0a 58 20 20 20 |ock(&loc|k);.X |
|00001470| 20 6b 72 20 3d 20 70 6f | 72 74 5f 6c 6f 6f 6b 75 | kr = po|rt_looku|
|00001480| 70 28 6e 61 6d 65 2c 20 | 26 70 6f 72 74 29 3b 0a |p(name, |&port);.|
|00001490| 58 20 20 20 20 6d 75 74 | 65 78 5f 75 6e 6c 6f 63 |X mut|ex_unloc|
|000014a0| 6b 28 26 6c 6f 63 6b 29 | 3b 0a 58 20 20 20 20 69 |k(&lock)|;.X i|
|000014b0| 66 20 28 6b 72 20 21 3d | 20 4b 45 52 4e 5f 53 55 |f (kr !=| KERN_SU|
|000014c0| 43 43 45 53 53 29 0a 58 | 09 72 65 74 75 72 6e 20 |CCESS).X|.return |
|000014d0| 6b 72 3b 0a 58 0a 58 20 | 20 20 20 2a 70 6f 72 74 |kr;.X.X | *port|
|000014e0| 70 20 3d 20 70 6f 72 74 | 3b 0a 58 20 20 20 20 72 |p = port|;.X r|
|000014f0| 65 74 75 72 6e 20 4b 45 | 52 4e 5f 53 55 43 43 45 |eturn KE|RN_SUCCE|
|00001500| 53 53 3b 0a 58 7d 0a 58 | 0c 0a 58 2f 2a 0a 58 20 |SS;.X}.X|..X/*.X |
|00001510| 2a 09 53 65 72 76 65 72 | 20 66 75 6e 63 74 69 6f |*.Server| functio|
|00001520| 6e 73 20 66 6f 72 20 74 | 68 65 20 6e 6f 74 69 66 |ns for t|he notif|
|00001530| 69 63 61 74 69 6f 6e 20 | 69 6e 74 65 72 66 61 63 |ication |interfac|
|00001540| 65 2e 0a 58 20 2a 09 57 | 65 20 73 68 6f 75 6c 64 |e..X *.W|e should|
|00001550| 20 6f 6e 6c 79 20 67 65 | 74 20 64 65 61 64 2d 6e | only ge|t dead-n|
|00001560| 61 6d 65 20 6e 6f 74 69 | 66 69 63 61 74 69 6f 6e |ame noti|fication|
|00001570| 73 2e 0a 58 20 2a 2f 0a | 58 0a 58 6b 65 72 6e 5f |s..X */.|X.Xkern_|
|00001580| 72 65 74 75 72 6e 5f 74 | 0a 58 64 6f 5f 6d 61 63 |return_t|.Xdo_mac|
|00001590| 68 5f 6e 6f 74 69 66 79 | 5f 64 65 61 64 5f 6e 61 |h_notify|_dead_na|
|000015a0| 6d 65 28 6e 6f 74 69 66 | 79 2c 20 6e 61 6d 65 29 |me(notif|y, name)|
|000015b0| 0a 58 20 20 20 20 6d 61 | 63 68 5f 70 6f 72 74 5f |.X ma|ch_port_|
|000015c0| 74 20 6e 6f 74 69 66 79 | 3b 0a 58 20 20 20 20 6d |t notify|;.X m|
|000015d0| 61 63 68 5f 70 6f 72 74 | 5f 74 20 6e 61 6d 65 3b |ach_port|_t name;|
|000015e0| 0a 58 7b 0a 58 20 20 20 | 20 2f 2a 0a 58 20 20 20 |.X{.X | /*.X |
|000015f0| 20 20 2a 09 54 68 65 20 | 64 65 61 64 2d 6e 61 6d | *.The |dead-nam|
|00001600| 65 20 6e 6f 74 69 66 69 | 63 61 74 69 6f 6e 20 67 |e notifi|cation g|
|00001610| 65 6e 65 72 61 74 65 64 | 20 61 6e 20 65 78 74 72 |enerated| an extr|
|00001620| 61 20 72 65 66 65 72 65 | 6e 63 65 0a 58 20 20 20 |a refere|nce.X |
|00001630| 20 20 2a 09 66 6f 72 20 | 74 68 65 20 64 65 61 64 | *.for |the dead|
|00001640| 20 6e 61 6d 65 2e 20 20 | 70 6f 72 74 5f 64 65 73 | name. |port_des|
|00001650| 74 72 6f 79 20 63 6f 6e | 73 75 6d 65 73 20 69 74 |troy con|sumes it|
|00001660| 20 66 6f 72 20 75 73 2e | 0a 58 20 20 20 20 20 2a | for us.|.X *|
|00001670| 2f 0a 58 0a 58 20 20 20 | 20 6d 75 74 65 78 5f 6c |/.X.X | mutex_l|
|00001680| 6f 63 6b 28 26 6c 6f 63 | 6b 29 3b 0a 58 20 20 20 |ock(&loc|k);.X |
|00001690| 20 70 6f 72 74 5f 64 65 | 73 74 72 6f 79 28 6e 61 | port_de|stroy(na|
|000016a0| 6d 65 29 3b 0a 58 20 20 | 20 20 6d 75 74 65 78 5f |me);.X | mutex_|
|000016b0| 75 6e 6c 6f 63 6b 28 26 | 6c 6f 63 6b 29 3b 0a 58 |unlock(&|lock);.X|
|000016c0| 20 20 20 20 72 65 74 75 | 72 6e 20 4b 45 52 4e 5f | retu|rn KERN_|
|000016d0| 53 55 43 43 45 53 53 3b | 0a 58 7d 0a 58 0a 58 6b |SUCCESS;|.X}.X.Xk|
|000016e0| 65 72 6e 5f 72 65 74 75 | 72 6e 5f 74 0a 58 64 6f |ern_retu|rn_t.Xdo|
|000016f0| 5f 6d 61 63 68 5f 6e 6f | 74 69 66 79 5f 70 6f 72 |_mach_no|tify_por|
|00001700| 74 5f 64 65 6c 65 74 65 | 64 28 6e 6f 74 69 66 79 |t_delete|d(notify|
|00001710| 2c 20 6e 61 6d 65 29 0a | 58 20 20 20 20 6d 61 63 |, name).|X mac|
|00001720| 68 5f 70 6f 72 74 5f 74 | 20 6e 6f 74 69 66 79 3b |h_port_t| notify;|
|00001730| 0a 58 20 20 20 20 6d 61 | 63 68 5f 70 6f 72 74 5f |.X ma|ch_port_|
|00001740| 74 20 6e 61 6d 65 3b 0a | 58 7b 0a 58 20 20 20 20 |t name;.|X{.X |
|00001750| 71 75 69 74 28 31 2c 20 | 22 6d 61 63 68 69 64 3a |quit(1, |"machid:|
|00001760| 20 64 6f 5f 6d 61 63 68 | 5f 6e 6f 74 69 66 79 5f | do_mach|_notify_|
|00001770| 70 6f 72 74 5f 64 65 6c | 65 74 65 64 5c 6e 22 29 |port_del|eted\n")|
|00001780| 3b 0a 58 20 20 20 20 72 | 65 74 75 72 6e 20 4b 45 |;.X r|eturn KE|
|00001790| 52 4e 5f 46 41 49 4c 55 | 52 45 3b 0a 58 7d 0a 58 |RN_FAILU|RE;.X}.X|
|000017a0| 0a 58 6b 65 72 6e 5f 72 | 65 74 75 72 6e 5f 74 0a |.Xkern_r|eturn_t.|
|000017b0| 58 64 6f 5f 6d 61 63 68 | 5f 6e 6f 74 69 66 79 5f |Xdo_mach|_notify_|
|000017c0| 6d 73 67 5f 61 63 63 65 | 70 74 65 64 28 6e 6f 74 |msg_acce|pted(not|
|000017d0| 69 66 79 2c 20 6e 61 6d | 65 29 0a 58 20 20 20 20 |ify, nam|e).X |
|000017e0| 6d 61 63 68 5f 70 6f 72 | 74 5f 74 20 6e 6f 74 69 |mach_por|t_t noti|
|000017f0| 66 79 3b 0a 58 20 20 20 | 20 6d 61 63 68 5f 70 6f |fy;.X | mach_po|
|00001800| 72 74 5f 74 20 6e 61 6d | 65 3b 0a 58 7b 0a 58 20 |rt_t nam|e;.X{.X |
|00001810| 20 20 20 71 75 69 74 28 | 31 2c 20 22 6d 61 63 68 | quit(|1, "mach|
|00001820| 69 64 3a 20 64 6f 5f 6d | 61 63 68 5f 6e 6f 74 69 |id: do_m|ach_noti|
|00001830| 66 79 5f 6d 73 67 5f 61 | 63 63 65 70 74 65 64 5c |fy_msg_a|ccepted\|
|00001840| 6e 22 29 3b 0a 58 20 20 | 20 20 72 65 74 75 72 6e |n");.X | return|
|00001850| 20 4b 45 52 4e 5f 46 41 | 49 4c 55 52 45 3b 0a 58 | KERN_FA|ILURE;.X|
|00001860| 7d 0a 58 0c 0a 58 6b 65 | 72 6e 5f 72 65 74 75 72 |}.X..Xke|rn_retur|
|00001870| 6e 5f 74 0a 58 64 6f 5f | 6d 61 63 68 5f 6e 6f 74 |n_t.Xdo_|mach_not|
|00001880| 69 66 79 5f 70 6f 72 74 | 5f 64 65 73 74 72 6f 79 |ify_port|_destroy|
|00001890| 65 64 28 6e 6f 74 69 66 | 79 2c 20 70 6f 72 74 29 |ed(notif|y, port)|
|000018a0| 0a 58 20 20 20 20 6d 61 | 63 68 5f 70 6f 72 74 5f |.X ma|ch_port_|
|000018b0| 74 20 6e 6f 74 69 66 79 | 3b 0a 58 20 20 20 20 6d |t notify|;.X m|
|000018c0| 61 63 68 5f 70 6f 72 74 | 5f 74 20 70 6f 72 74 3b |ach_port|_t port;|
|000018d0| 0a 58 7b 0a 58 20 20 20 | 20 71 75 69 74 28 31 2c |.X{.X | quit(1,|
|000018e0| 20 22 6d 61 63 68 69 64 | 3a 20 64 6f 5f 6d 61 63 | "machid|: do_mac|
|000018f0| 68 5f 6e 6f 74 69 66 79 | 5f 70 6f 72 74 5f 64 65 |h_notify|_port_de|
|00001900| 73 74 72 6f 79 65 64 5c | 6e 22 29 3b 0a 58 20 20 |stroyed\|n");.X |
|00001910| 20 20 72 65 74 75 72 6e | 20 4b 45 52 4e 5f 46 41 | return| KERN_FA|
|00001920| 49 4c 55 52 45 3b 0a 58 | 7d 0a 58 0a 58 6b 65 72 |ILURE;.X|}.X.Xker|
|00001930| 6e 5f 72 65 74 75 72 6e | 5f 74 0a 58 64 6f 5f 6d |n_return|_t.Xdo_m|
|00001940| 61 63 68 5f 6e 6f 74 69 | 66 79 5f 6e 6f 5f 73 65 |ach_noti|fy_no_se|
|00001950| 6e 64 65 72 73 28 6e 6f | 74 69 66 79 2c 20 6d 73 |nders(no|tify, ms|
|00001960| 63 6f 75 6e 74 29 0a 58 | 20 20 20 20 6d 61 63 68 |count).X| mach|
|00001970| 5f 70 6f 72 74 5f 74 20 | 6e 6f 74 69 66 79 3b 0a |_port_t |notify;.|
|00001980| 58 20 20 20 20 6d 61 63 | 68 5f 70 6f 72 74 5f 6d |X mac|h_port_m|
|00001990| 73 63 6f 75 6e 74 5f 74 | 20 6d 73 63 6f 75 6e 74 |scount_t| mscount|
|000019a0| 3b 0a 58 7b 0a 58 20 20 | 20 20 71 75 69 74 28 31 |;.X{.X | quit(1|
|000019b0| 2c 20 22 6d 61 63 68 69 | 64 3a 20 64 6f 5f 6d 61 |, "machi|d: do_ma|
|000019c0| 63 68 5f 6e 6f 74 69 66 | 79 5f 6e 6f 5f 73 65 6e |ch_notif|y_no_sen|
|000019d0| 64 65 72 73 5c 6e 22 29 | 3b 0a 58 20 20 20 20 72 |ders\n")|;.X r|
|000019e0| 65 74 75 72 6e 20 4b 45 | 52 4e 5f 46 41 49 4c 55 |eturn KE|RN_FAILU|
|000019f0| 52 45 3b 0a 58 7d 0a 58 | 0a 58 6b 65 72 6e 5f 72 |RE;.X}.X|.Xkern_r|
|00001a00| 65 74 75 72 6e 5f 74 0a | 58 64 6f 5f 6d 61 63 68 |eturn_t.|Xdo_mach|
|00001a10| 5f 6e 6f 74 69 66 79 5f | 73 65 6e 64 5f 6f 6e 63 |_notify_|send_onc|
|00001a20| 65 28 70 6f 72 74 29 0a | 58 20 20 20 20 6d 61 63 |e(port).|X mac|
|00001a30| 68 5f 70 6f 72 74 5f 74 | 20 70 6f 72 74 3b 0a 58 |h_port_t| port;.X|
|00001a40| 7b 0a 58 20 20 20 20 71 | 75 69 74 28 31 2c 20 22 |{.X q|uit(1, "|
|00001a50| 6d 61 63 68 69 64 3a 20 | 64 6f 5f 6d 61 63 68 5f |machid: |do_mach_|
|00001a60| 6e 6f 74 69 66 79 5f 73 | 65 6e 64 5f 6f 6e 63 65 |notify_s|end_once|
|00001a70| 5c 6e 22 29 3b 0a 58 20 | 20 20 20 72 65 74 75 72 |\n");.X | retur|
|00001a80| 6e 20 4b 45 52 4e 5f 46 | 41 49 4c 55 52 45 3b 0a |n KERN_F|AILURE;.|
|00001a90| 58 7d 0a 58 0c 0a 58 2f | 2a 0a 58 20 2a 09 54 68 |X}.X..X/|*.X *.Th|
|00001aa0| 65 20 73 69 6e 67 6c 65 | 20 6d 75 74 65 78 20 70 |e single| mutex p|
|00001ab0| 72 6f 74 65 63 74 73 20 | 74 68 69 73 20 64 61 74 |rotects |this dat|
|00001ac0| 61 2e 0a 58 20 2a 09 54 | 68 65 20 66 75 6e 63 74 |a..X *.T|he funct|
|00001ad0| 69 6f 6e 73 20 62 65 6c | 6f 77 20 61 6c 6c 20 61 |ions bel|ow all a|
|00001ae0| 73 73 75 6d 65 20 74 68 | 65 20 6d 75 74 65 78 20 |ssume th|e mutex |
|00001af0| 69 73 20 68 65 6c 64 2e | 0a 58 20 2a 2f 0a 58 0a |is held.|.X */.X.|
|00001b00| 58 73 74 61 74 69 63 20 | 6d 61 63 68 5f 69 64 5f |Xstatic |mach_id_|
|00001b10| 74 20 6e 65 78 74 5f 6d | 61 63 68 69 64 5f 6e 61 |t next_m|achid_na|
|00001b20| 6d 65 20 3d 20 31 3b 0a | 58 0a 58 74 79 70 65 64 |me = 1;.|X.Xtyped|
|00001b30| 65 66 20 73 74 72 75 63 | 74 20 70 6f 72 74 5f 72 |ef struc|t port_r|
|00001b40| 65 63 6f 72 64 20 7b 0a | 58 20 20 20 20 73 74 72 |ecord {.|X str|
|00001b50| 75 63 74 20 70 6f 72 74 | 5f 72 65 63 6f 72 64 20 |uct port|_record |
|00001b60| 2a 70 72 5f 70 6e 6e 65 | 78 74 3b 09 2f 2a 20 6c |*pr_pnne|xt;./* l|
|00001b70| 69 6e 6b 20 66 6f 72 20 | 70 6f 72 74 2d 3e 6e 61 |ink for |port->na|
|00001b80| 6d 65 20 68 61 73 68 20 | 74 61 62 6c 65 20 2a 2f |me hash |table */|
|00001b90| 0a 58 20 20 20 20 73 74 | 72 75 63 74 20 70 6f 72 |.X st|ruct por|
|00001ba0| 74 5f 72 65 63 6f 72 64 | 20 2a 70 72 5f 6e 70 6e |t_record| *pr_npn|
|00001bb0| 65 78 74 3b 09 2f 2a 20 | 6c 69 6e 6b 20 66 6f 72 |ext;./* |link for|
|00001bc0| 20 6e 61 6d 65 2d 3e 70 | 6f 72 74 20 68 61 73 68 | name->p|ort hash|
|00001bd0| 20 74 61 62 6c 65 20 2a | 2f 0a 58 20 20 20 20 6d | table *|/.X m|
|00001be0| 61 63 68 5f 70 6f 72 74 | 5f 74 20 70 72 5f 70 6f |ach_port|_t pr_po|
|00001bf0| 72 74 3b 09 09 2f 2a 20 | 61 20 73 65 6e 64 20 72 |rt;../* |a send r|
|00001c00| 69 67 68 74 20 66 6f 72 | 20 74 68 65 20 70 6f 72 |ight for| the por|
|00001c10| 74 20 2a 2f 0a 58 20 20 | 20 20 6d 61 63 68 5f 70 |t */.X | mach_p|
|00001c20| 6f 72 74 5f 75 72 65 66 | 73 5f 74 20 70 72 5f 75 |ort_uref|s_t pr_u|
|00001c30| 72 65 66 73 3b 09 09 2f | 2a 20 6e 75 6d 62 65 72 |refs;../|* number|
|00001c40| 20 6f 66 20 75 72 65 66 | 73 20 77 65 20 68 6f 6c | of uref|s we hol|
|00001c50| 64 20 2a 2f 0a 58 20 20 | 20 20 6d 61 63 68 5f 69 |d */.X | mach_i|
|00001c60| 64 5f 74 20 70 72 5f 6e | 61 6d 65 3b 09 09 09 2f |d_t pr_n|ame;.../|
|00001c70| 2a 20 74 68 65 20 4d 61 | 63 68 49 44 20 66 6f 72 |* the Ma|chID for|
|00001c80| 20 74 68 65 20 70 6f 72 | 74 20 2a 2f 0a 58 7d 20 | the por|t */.X} |
|00001c90| 70 6f 72 74 5f 72 65 63 | 6f 72 64 5f 74 3b 0a 58 |port_rec|ord_t;.X|
|00001ca0| 0a 58 23 64 65 66 69 6e | 65 09 48 41 53 48 5f 54 |.X#defin|e.HASH_T|
|00001cb0| 41 42 4c 45 5f 53 49 5a | 45 20 32 35 36 0a 58 0a |ABLE_SIZ|E 256.X.|
|00001cc0| 58 2f 2a 20 67 6f 6f 64 | 20 68 61 73 68 20 66 75 |X/* good| hash fu|
|00001cd0| 6e 63 74 69 6f 6e 20 66 | 6f 72 20 70 6f 72 74 20 |nction f|or port |
|00001ce0| 6e 61 6d 65 73 20 63 6f | 6d 62 69 6e 65 0a 58 20 |names co|mbine.X |
|00001cf0| 20 20 74 68 65 20 6c 6f | 77 20 38 20 62 69 74 73 | the lo|w 8 bits|
|00001d00| 20 61 6e 64 20 74 68 65 | 20 68 69 67 68 20 32 34 | and the| high 24|
|00001d10| 20 62 69 74 73 20 2a 2f | 0a 58 0a 58 23 64 65 66 | bits */|.X.X#def|
|00001d20| 69 6e 65 09 50 4f 52 54 | 5f 48 41 53 48 28 70 6f |ine.PORT|_HASH(po|
|00001d30| 72 74 29 09 09 5c 0a 58 | 09 28 28 28 28 70 6f 72 |rt)..\.X|.((((por|
|00001d40| 74 29 20 26 20 30 78 66 | 66 29 20 2b 20 28 28 70 |t) & 0xf|f) + ((p|
|00001d50| 6f 72 74 29 20 3e 3e 20 | 38 29 29 20 25 20 48 41 |ort) >> |8)) % HA|
|00001d60| 53 48 5f 54 41 42 4c 45 | 5f 53 49 5a 45 29 0a 58 |SH_TABLE|_SIZE).X|
|00001d70| 0a 58 23 64 65 66 69 6e | 65 09 4e 41 4d 45 5f 48 |.X#defin|e.NAME_H|
|00001d80| 41 53 48 28 6e 61 6d 65 | 29 09 09 5c 0a 58 09 28 |ASH(name|)..\.X.(|
|00001d90| 28 6e 61 6d 65 29 20 25 | 20 48 41 53 48 5f 54 41 |(name) %| HASH_TA|
|00001da0| 42 4c 45 5f 53 49 5a 45 | 29 0a 58 0a 58 73 74 61 |BLE_SIZE|).X.Xsta|
|00001db0| 74 69 63 20 70 6f 72 74 | 5f 72 65 63 6f 72 64 5f |tic port|_record_|
|00001dc0| 74 20 2a 70 6f 72 74 5f | 74 6f 5f 6e 61 6d 65 5b |t *port_|to_name[|
|00001dd0| 48 41 53 48 5f 54 41 42 | 4c 45 5f 53 49 5a 45 5d |HASH_TAB|LE_SIZE]|
|00001de0| 3b 0a 58 73 74 61 74 69 | 63 20 70 6f 72 74 5f 72 |;.Xstati|c port_r|
|00001df0| 65 63 6f 72 64 5f 74 20 | 2a 6e 61 6d 65 5f 74 6f |ecord_t |*name_to|
|00001e00| 5f 70 6f 72 74 5b 48 41 | 53 48 5f 54 41 42 4c 45 |_port[HA|SH_TABLE|
|00001e10| 5f 53 49 5a 45 5d 3b 0a | 58 0c 0a 58 2f 2a 20 6c |_SIZE];.|X..X/* l|
|00001e20| 6f 6f 6b 20 66 6f 72 20 | 61 20 70 6f 72 74 20 69 |ook for |a port i|
|00001e30| 6e 20 74 68 65 20 70 6f | 72 74 2d 3e 6e 61 6d 65 |n the po|rt->name|
|00001e40| 20 68 61 73 68 20 74 61 | 62 6c 65 20 2a 2f 0a 58 | hash ta|ble */.X|
|00001e50| 0a 58 73 74 61 74 69 63 | 20 70 6f 72 74 5f 72 65 |.Xstatic| port_re|
|00001e60| 63 6f 72 64 5f 74 20 2a | 0a 58 66 69 6e 64 5f 70 |cord_t *|.Xfind_p|
|00001e70| 6f 72 74 28 70 6f 72 74 | 29 0a 58 20 20 20 20 6d |ort(port|).X m|
|00001e80| 61 63 68 5f 70 6f 72 74 | 5f 74 20 70 6f 72 74 3b |ach_port|_t port;|
|00001e90| 0a 58 7b 0a 58 20 20 20 | 20 70 6f 72 74 5f 72 65 |.X{.X | port_re|
|00001ea0| 63 6f 72 64 5f 74 20 2a | 74 68 69 73 3b 0a 58 0a |cord_t *|this;.X.|
|00001eb0| 58 20 20 20 20 66 6f 72 | 20 28 74 68 69 73 20 3d |X for| (this =|
|00001ec0| 20 70 6f 72 74 5f 74 6f | 5f 6e 61 6d 65 5b 50 4f | port_to|_name[PO|
|00001ed0| 52 54 5f 48 41 53 48 28 | 70 6f 72 74 29 5d 3b 0a |RT_HASH(|port)];.|
|00001ee0| 58 09 20 74 68 69 73 20 | 21 3d 20 4e 55 4c 4c 3b |X. this |!= NULL;|
|00001ef0| 0a 58 09 20 74 68 69 73 | 20 3d 20 74 68 69 73 2d |.X. this| = this-|
|00001f00| 3e 70 72 5f 70 6e 6e 65 | 78 74 29 0a 58 09 69 66 |>pr_pnne|xt).X.if|
|00001f10| 20 28 74 68 69 73 2d 3e | 70 72 5f 70 6f 72 74 20 | (this->|pr_port |
|00001f20| 3d 3d 20 70 6f 72 74 29 | 0a 58 09 20 20 20 20 72 |== port)|.X. r|
|00001f30| 65 74 75 72 6e 20 74 68 | 69 73 3b 0a 58 0a 58 20 |eturn th|is;.X.X |
|00001f40| 20 20 20 72 65 74 75 72 | 6e 20 4e 55 4c 4c 3b 0a | retur|n NULL;.|
|00001f50| 58 7d 0a 58 0a 58 2f 2a | 20 6c 6f 6f 6b 20 66 6f |X}.X.X/*| look fo|
|00001f60| 72 20 61 20 6e 61 6d 65 | 20 69 6e 20 74 68 65 20 |r a name| in the |
|00001f70| 6e 61 6d 65 2d 3e 70 6f | 72 74 20 68 61 73 68 20 |name->po|rt hash |
|00001f80| 74 61 62 6c 65 20 2a 2f | 0a 58 0a 58 73 74 61 74 |table */|.X.Xstat|
|00001f90| 69 63 20 70 6f 72 74 5f | 72 65 63 6f 72 64 5f 74 |ic port_|record_t|
|00001fa0| 20 2a 0a 58 66 69 6e 64 | 5f 6e 61 6d 65 28 6e 61 | *.Xfind|_name(na|
|00001fb0| 6d 65 29 0a 58 20 20 20 | 20 6d 61 63 68 5f 69 64 |me).X | mach_id|
|00001fc0| 5f 74 20 6e 61 6d 65 3b | 0a 58 7b 0a 58 20 20 20 |_t name;|.X{.X |
|00001fd0| 20 70 6f 72 74 5f 72 65 | 63 6f 72 64 5f 74 20 2a | port_re|cord_t *|
|00001fe0| 74 68 69 73 3b 0a 58 0a | 58 20 20 20 20 66 6f 72 |this;.X.|X for|
|00001ff0| 20 28 74 68 69 73 20 3d | 20 6e 61 6d 65 5f 74 6f | (this =| name_to|
|00002000| 5f 70 6f 72 74 5b 4e 41 | 4d 45 5f 48 41 53 48 28 |_port[NA|ME_HASH(|
|00002010| 6e 61 6d 65 29 5d 3b 0a | 58 09 20 74 68 69 73 20 |name)];.|X. this |
|00002020| 21 3d 20 4e 55 4c 4c 3b | 0a 58 09 20 74 68 69 73 |!= NULL;|.X. this|
|00002030| 20 3d 20 74 68 69 73 2d | 3e 70 72 5f 6e 70 6e 65 | = this-|>pr_npne|
|00002040| 78 74 29 0a 58 09 69 66 | 20 28 74 68 69 73 2d 3e |xt).X.if| (this->|
|00002050| 70 72 5f 6e 61 6d 65 20 | 3d 3d 20 6e 61 6d 65 29 |pr_name |== name)|
|00002060| 0a 58 09 20 20 20 20 72 | 65 74 75 72 6e 20 74 68 |.X. r|eturn th|
|00002070| 69 73 3b 0a 58 0a 58 20 | 20 20 20 72 65 74 75 72 |is;.X.X | retur|
|00002080| 6e 20 4e 55 4c 4c 3b 0a | 58 7d 0a 58 0c 0a 58 23 |n NULL;.|X}.X..X#|
|00002090| 64 65 66 69 6e 65 09 4d | 41 58 5f 55 52 45 46 53 |define.M|AX_UREFS|
|000020a0| 09 31 30 30 30 09 2f 2a | 20 6d 61 78 20 75 72 65 |.1000./*| max ure|
|000020b0| 66 73 20 77 65 20 77 69 | 6c 6c 20 68 6f 6c 64 20 |fs we wi|ll hold |
|000020c0| 66 6f 72 20 61 20 70 6f | 72 74 20 2a 2f 0a 58 23 |for a po|rt */.X#|
|000020d0| 64 65 66 69 6e 65 20 4d | 4f 52 45 5f 55 52 45 46 |define M|ORE_UREF|
|000020e0| 53 09 31 30 30 09 2f 2a | 20 77 68 65 6e 20 77 65 |S.100./*| when we|
|000020f0| 20 6e 65 65 64 20 75 72 | 65 66 73 2c 20 68 6f 77 | need ur|efs, how|
|00002100| 20 6d 61 6e 79 20 74 6f | 20 6d 61 6b 65 20 2a 2f | many to| make */|
|00002110| 0a 58 0a 58 2f 2a 20 61 | 64 64 20 61 20 75 73 65 |.X.X/* a|dd a use|
|00002120| 72 2d 72 65 66 65 72 65 | 6e 63 65 20 74 6f 20 74 |r-refere|nce to t|
|00002130| 68 65 20 70 6f 72 74 20 | 72 65 63 6f 72 64 20 2a |he port |record *|
|00002140| 2f 0a 58 0a 58 73 74 61 | 74 69 63 20 76 6f 69 64 |/.X.Xsta|tic void|
|00002150| 0a 58 61 64 64 5f 72 65 | 66 65 72 65 6e 63 65 28 |.Xadd_re|ference(|
|00002160| 70 72 29 0a 58 20 20 20 | 20 70 6f 72 74 5f 72 65 |pr).X | port_re|
|00002170| 63 6f 72 64 5f 74 20 2a | 70 72 3b 0a 58 7b 0a 58 |cord_t *|pr;.X{.X|
|00002180| 20 20 20 20 6b 65 72 6e | 5f 72 65 74 75 72 6e 5f | kern|_return_|
|00002190| 74 20 6b 72 3b 0a 58 0a | 58 20 20 20 20 69 66 20 |t kr;.X.|X if |
|000021a0| 28 2b 2b 70 72 2d 3e 70 | 72 5f 75 72 65 66 73 20 |(++pr->p|r_urefs |
|000021b0| 3e 20 4d 41 58 5f 55 52 | 45 46 53 29 20 7b 0a 58 |> MAX_UR|EFS) {.X|
|000021c0| 09 2f 2a 20 72 65 6d 6f | 76 65 20 65 78 63 65 73 |./* remo|ve exces|
|000021d0| 73 20 75 73 65 72 20 72 | 65 66 65 72 65 6e 63 65 |s user r|eference|
|000021e0| 73 20 68 65 6c 64 20 62 | 79 20 74 68 69 73 20 6d |s held b|y this m|
|000021f0| 6f 64 75 6c 65 20 2a 2f | 0a 58 0a 58 09 6b 72 20 |odule */|.X.X.kr |
|00002200| 3d 20 6d 61 63 68 5f 70 | 6f 72 74 5f 6d 6f 64 5f |= mach_p|ort_mod_|
|00002210| 72 65 66 73 28 6d 61 63 | 68 5f 74 61 73 6b 5f 73 |refs(mac|h_task_s|
|00002220| 65 6c 66 28 29 2c 20 70 | 72 2d 3e 70 72 5f 70 6f |elf(), p|r->pr_po|
|00002230| 72 74 2c 0a 58 09 09 09 | 09 4d 41 43 48 5f 50 4f |rt,.X...|.MACH_PO|
|00002240| 52 54 5f 52 49 47 48 54 | 5f 53 45 4e 44 2c 0a 58 |RT_RIGHT|_SEND,.X|
|00002250| 09 09 09 09 31 20 2d 20 | 70 72 2d 3e 70 72 5f 75 |....1 - |pr->pr_u|
|00002260| 72 65 66 73 29 3b 0a 58 | 09 69 66 20 28 6b 72 20 |refs);.X|.if (kr |
|00002270| 3d 3d 20 4b 45 52 4e 5f | 49 4e 56 41 4c 49 44 5f |== KERN_|INVALID_|
|00002280| 52 49 47 48 54 29 0a 58 | 09 20 20 20 20 6b 72 20 |RIGHT).X|. kr |
|00002290| 3d 20 6d 61 63 68 5f 70 | 6f 72 74 5f 6d 6f 64 5f |= mach_p|ort_mod_|
|000022a0| 72 65 66 73 28 6d 61 63 | 68 5f 74 61 73 6b 5f 73 |refs(mac|h_task_s|
|000022b0| 65 6c 66 28 29 2c 20 70 | 72 2d 3e 70 72 5f 70 6f |elf(), p|r->pr_po|
|000022c0| 72 74 2c 0a 58 09 09 09 | 09 20 20 20 20 4d 41 43 |rt,.X...|. MAC|
|000022d0| 48 5f 50 4f 52 54 5f 52 | 49 47 48 54 5f 44 45 41 |H_PORT_R|IGHT_DEA|
|000022e0| 44 5f 4e 41 4d 45 2c 0a | 58 09 09 09 09 20 20 20 |D_NAME,.|X.... |
|000022f0| 20 31 20 2d 20 70 72 2d | 3e 70 72 5f 75 72 65 66 | 1 - pr-|>pr_uref|
|00002300| 73 29 3b 0a 58 09 69 66 | 20 28 6b 72 20 21 3d 20 |s);.X.if| (kr != |
|00002310| 4b 45 52 4e 5f 53 55 43 | 43 45 53 53 29 0a 58 09 |KERN_SUC|CESS).X.|
|00002320| 20 20 20 20 71 75 69 74 | 28 31 2c 20 22 6d 61 63 | quit|(1, "mac|
|00002330| 68 69 64 3a 20 61 64 64 | 5f 72 65 66 65 72 65 6e |hid: add|_referen|
|00002340| 63 65 3a 20 6d 61 63 68 | 5f 70 6f 72 74 5f 6d 6f |ce: mach|_port_mo|
|00002350| 64 5f 72 65 66 73 3a 20 | 25 73 5c 6e 22 2c 0a 58 |d_refs: |%s\n",.X|
|00002360| 09 09 20 6d 61 63 68 5f | 65 72 72 6f 72 5f 73 74 |.. mach_|error_st|
|00002370| 72 69 6e 67 28 6b 72 29 | 29 3b 0a 58 0a 58 09 70 |ring(kr)|);.X.X.p|
|00002380| 72 2d 3e 70 72 5f 75 72 | 65 66 73 20 3d 20 31 3b |r->pr_ur|efs = 1;|
|00002390| 0a 58 20 20 20 20 7d 0a | 58 7d 0a 58 0c 0a 58 2f |.X }.|X}.X..X/|
|000023a0| 2a 20 74 61 6b 65 20 61 | 20 75 73 65 72 2d 72 65 |* take a| user-re|
|000023b0| 66 65 72 65 6e 63 65 20 | 66 72 6f 6d 20 74 68 65 |ference |from the|
|000023c0| 20 70 6f 72 74 20 72 65 | 63 6f 72 64 20 2a 2f 0a | port re|cord */.|
|000023d0| 58 0a 58 73 74 61 74 69 | 63 20 76 6f 69 64 0a 58 |X.Xstati|c void.X|
|000023e0| 73 75 62 5f 72 65 66 65 | 72 65 6e 63 65 28 70 72 |sub_refe|rence(pr|
|000023f0| 29 0a 58 20 20 20 20 70 | 6f 72 74 5f 72 65 63 6f |).X p|ort_reco|
|00002400| 72 64 5f 74 20 2a 70 72 | 3b 0a 58 7b 0a 58 20 20 |rd_t *pr|;.X{.X |
|00002410| 20 20 6b 65 72 6e 5f 72 | 65 74 75 72 6e 5f 74 20 | kern_r|eturn_t |
|00002420| 6b 72 3b 0a 58 0a 58 20 | 20 20 20 69 66 20 28 2d |kr;.X.X | if (-|
|00002430| 2d 70 72 2d 3e 70 72 5f | 75 72 65 66 73 20 3d 3d |-pr->pr_|urefs ==|
|00002440| 20 30 29 20 7b 0a 58 09 | 2f 2a 20 63 72 65 61 74 | 0) {.X.|/* creat|
|00002450| 65 20 6d 6f 72 65 20 75 | 73 65 72 20 72 65 66 65 |e more u|ser refe|
|00002460| 72 65 6e 63 65 73 20 66 | 6f 72 20 74 68 69 73 20 |rences f|or this |
|00002470| 6d 6f 64 75 6c 65 20 2a | 2f 0a 58 0a 58 09 6b 72 |module *|/.X.X.kr|
|00002480| 20 3d 20 6d 61 63 68 5f | 70 6f 72 74 5f 6d 6f 64 | = mach_|port_mod|
|00002490| 5f 72 65 66 73 28 6d 61 | 63 68 5f 74 61 73 6b 5f |_refs(ma|ch_task_|
|000024a0| 73 65 6c 66 28 29 2c 20 | 70 72 2d 3e 70 72 5f 70 |self(), |pr->pr_p|
|000024b0| 6f 72 74 2c 0a 58 09 09 | 09 4d 41 43 48 5f 50 4f |ort,.X..|.MACH_PO|
|000024c0| 52 54 5f 52 49 47 48 54 | 5f 53 45 4e 44 2c 20 4d |RT_RIGHT|_SEND, M|
|000024d0| 4f 52 45 5f 55 52 45 46 | 53 29 3b 0a 58 09 69 66 |ORE_UREF|S);.X.if|
|000024e0| 20 28 6b 72 20 3d 3d 20 | 4b 45 52 4e 5f 49 4e 56 | (kr == |KERN_INV|
|000024f0| 41 4c 49 44 5f 52 49 47 | 48 54 29 0a 58 09 20 20 |ALID_RIG|HT).X. |
|00002500| 20 20 6b 72 20 3d 20 6d | 61 63 68 5f 70 6f 72 74 | kr = m|ach_port|
|00002510| 5f 6d 6f 64 5f 72 65 66 | 73 28 6d 61 63 68 5f 74 |_mod_ref|s(mach_t|
|00002520| 61 73 6b 5f 73 65 6c 66 | 28 29 2c 20 70 72 2d 3e |ask_self|(), pr->|
|00002530| 70 72 5f 70 6f 72 74 2c | 0a 58 09 09 09 4d 41 43 |pr_port,|.X...MAC|
|00002540| 48 5f 50 4f 52 54 5f 52 | 49 47 48 54 5f 44 45 41 |H_PORT_R|IGHT_DEA|
|00002550| 44 5f 4e 41 4d 45 2c 20 | 4d 4f 52 45 5f 55 52 45 |D_NAME, |MORE_URE|
|00002560| 46 53 29 3b 0a 58 09 69 | 66 20 28 6b 72 20 21 3d |FS);.X.i|f (kr !=|
|00002570| 20 4b 45 52 4e 5f 53 55 | 43 43 45 53 53 29 0a 58 | KERN_SU|CCESS).X|
|00002580| 09 20 20 20 20 71 75 69 | 74 28 31 2c 20 22 6d 61 |. qui|t(1, "ma|
|00002590| 63 68 69 64 3a 20 73 75 | 62 5f 72 65 66 65 72 65 |chid: su|b_refere|
|000025a0| 6e 63 65 3a 20 6d 61 63 | 68 5f 70 6f 72 74 5f 6d |nce: mac|h_port_m|
|000025b0| 6f 64 5f 72 65 66 73 3a | 20 25 73 5c 6e 22 2c 0a |od_refs:| %s\n",.|
|000025c0| 58 09 09 20 6d 61 63 68 | 5f 65 72 72 6f 72 5f 73 |X.. mach|_error_s|
|000025d0| 74 72 69 6e 67 28 6b 72 | 29 29 3b 0a 58 0a 58 09 |tring(kr|));.X.X.|
|000025e0| 70 72 2d 3e 70 72 5f 75 | 72 65 66 73 20 2b 3d 20 |pr->pr_u|refs += |
|000025f0| 4d 4f 52 45 5f 55 52 45 | 46 53 3b 0a 58 20 20 20 |MORE_URE|FS;.X |
|00002600| 20 7d 0a 58 7d 0a 58 0c | 0a 58 2f 2a 20 63 6f 6e | }.X}.X.|.X/* con|
|00002610| 76 65 72 74 20 61 20 73 | 65 6e 64 20 72 69 67 68 |vert a s|end righ|
|00002620| 74 20 74 6f 20 6f 75 72 | 20 65 78 70 6f 72 74 65 |t to our| exporte|
|00002630| 64 20 6e 61 6d 65 2c 0a | 58 20 20 20 63 6f 6e 73 |d name,.|X cons|
|00002640| 75 6d 69 6e 67 20 61 20 | 75 73 65 72 2d 72 65 66 |uming a |user-ref|
|00002650| 65 72 65 6e 63 65 20 66 | 6f 72 20 74 68 65 20 73 |erence f|or the s|
|00002660| 65 6e 64 20 72 69 67 68 | 74 20 2a 2f 0a 58 0a 58 |end righ|t */.X.X|
|00002670| 73 74 61 74 69 63 20 6d | 61 63 68 5f 69 64 5f 74 |static m|ach_id_t|
|00002680| 0a 58 6e 61 6d 65 5f 6c | 6f 6f 6b 75 70 28 70 6f |.Xname_l|ookup(po|
|00002690| 72 74 29 0a 58 20 20 20 | 20 6d 61 63 68 5f 70 6f |rt).X | mach_po|
|000026a0| 72 74 5f 74 20 70 6f 72 | 74 3b 0a 58 7b 0a 58 20 |rt_t por|t;.X{.X |
|000026b0| 20 20 20 70 6f 72 74 5f | 72 65 63 6f 72 64 5f 74 | port_|record_t|
|000026c0| 20 2a 74 68 69 73 2c 20 | 2a 2a 62 75 63 6b 65 74 | *this, |**bucket|
|000026d0| 3b 0a 58 20 20 20 20 6d | 61 63 68 5f 70 6f 72 74 |;.X m|ach_port|
|000026e0| 5f 74 20 70 72 65 76 69 | 6f 75 73 3b 0a 58 20 20 |_t previ|ous;.X |
|000026f0| 20 20 6b 65 72 6e 5f 72 | 65 74 75 72 6e 5f 74 20 | kern_r|eturn_t |
|00002700| 6b 72 3b 0a 58 0a 58 20 | 20 20 20 69 66 20 28 21 |kr;.X.X | if (!|
|00002710| 4d 41 43 48 5f 50 4f 52 | 54 5f 56 41 4c 49 44 28 |MACH_POR|T_VALID(|
|00002720| 70 6f 72 74 29 29 0a 58 | 09 72 65 74 75 72 6e 20 |port)).X|.return |
|00002730| 30 3b 0a 58 0a 58 20 20 | 20 20 74 68 69 73 20 3d |0;.X.X | this =|
|00002740| 20 66 69 6e 64 5f 70 6f | 72 74 28 70 6f 72 74 29 | find_po|rt(port)|
|00002750| 3b 0a 58 20 20 20 20 69 | 66 20 28 74 68 69 73 20 |;.X i|f (this |
|00002760| 21 3d 20 4e 55 4c 4c 29 | 20 7b 0a 58 09 2f 2a 20 |!= NULL)| {.X./* |
|00002770| 66 6f 75 6e 64 20 61 6e | 20 65 78 69 73 74 69 6e |found an| existin|
|00002780| 67 20 70 6f 72 74 20 72 | 65 63 6f 72 64 20 2a 2f |g port r|ecord */|
|00002790| 0a 58 0a 58 09 61 64 64 | 5f 72 65 66 65 72 65 6e |.X.X.add|_referen|
|000027a0| 63 65 28 74 68 69 73 29 | 3b 0a 58 09 72 65 74 75 |ce(this)|;.X.retu|
|000027b0| 72 6e 20 74 68 69 73 2d | 3e 70 72 5f 6e 61 6d 65 |rn this-|>pr_name|
|000027c0| 3b 0a 58 20 20 20 20 7d | 0a 58 0a 58 20 20 20 20 |;.X }|.X.X |
|000027d0| 2f 2a 20 6e 6f 20 70 6f | 72 74 20 72 65 63 6f 72 |/* no po|rt recor|
|000027e0| 64 2c 20 73 6f 20 63 72 | 65 61 74 65 20 61 20 6e |d, so cr|eate a n|
|000027f0| 65 77 20 6f 6e 65 20 2a | 2f 0a 58 0a 58 20 20 20 |ew one *|/.X.X |
|00002800| 20 74 68 69 73 20 3d 20 | 28 70 6f 72 74 5f 72 65 | this = |(port_re|
|00002810| 63 6f 72 64 5f 74 20 2a | 29 20 6d 61 6c 6c 6f 63 |cord_t *|) malloc|
|00002820| 28 73 69 7a 65 6f 66 20 | 2a 74 68 69 73 29 3b 0a |(sizeof |*this);.|
|00002830| 58 20 20 20 20 69 66 20 | 28 74 68 69 73 20 3d 3d |X if |(this ==|
|00002840| 20 4e 55 4c 4c 29 0a 58 | 09 71 75 69 74 28 31 2c | NULL).X|.quit(1,|
|00002850| 20 22 6d 61 63 68 69 64 | 3a 20 6d 61 6c 6c 6f 63 | "machid|: malloc|
|00002860| 20 66 61 69 6c 65 64 5c | 6e 22 29 3b 0a 58 0a 58 | failed\|n");.X.X|
|00002870| 20 20 20 20 74 68 69 73 | 2d 3e 70 72 5f 70 6f 72 | this|->pr_por|
|00002880| 74 20 3d 20 70 6f 72 74 | 3b 0a 58 20 20 20 20 74 |t = port|;.X t|
|00002890| 68 69 73 2d 3e 70 72 5f | 6e 61 6d 65 20 3d 20 6e |his->pr_|name = n|
|000028a0| 65 78 74 5f 6d 61 63 68 | 69 64 5f 6e 61 6d 65 2b |ext_mach|id_name+|
|000028b0| 2b 3b 0a 58 20 20 20 20 | 74 68 69 73 2d 3e 70 72 |+;.X |this->pr|
|000028c0| 5f 75 72 65 66 73 20 3d | 20 31 3b 09 09 2f 2a 20 |_urefs =| 1;../* |
|000028d0| 63 6f 6e 73 75 6d 65 20 | 61 20 75 73 65 72 2d 72 |consume |a user-r|
|000028e0| 65 66 65 72 65 6e 63 65 | 20 2a 2f 0a 58 0a 58 20 |eference| */.X.X |
|000028f0| 20 20 20 2f 2a 20 6c 69 | 6e 6b 20 72 65 63 6f 72 | /* li|nk recor|
|00002900| 64 20 69 6e 74 6f 20 70 | 6f 72 74 2d 3e 6e 61 6d |d into p|ort->nam|
|00002910| 65 20 68 61 73 68 20 74 | 61 62 6c 65 20 2a 2f 0a |e hash t|able */.|
|00002920| 58 0a 58 20 20 20 20 62 | 75 63 6b 65 74 20 3d 20 |X.X b|ucket = |
|00002930| 26 70 6f 72 74 5f 74 6f | 5f 6e 61 6d 65 5b 50 4f |&port_to|_name[PO|
|00002940| 52 54 5f 48 41 53 48 28 | 70 6f 72 74 29 5d 3b 0a |RT_HASH(|port)];.|
|00002950| 58 20 20 20 20 74 68 69 | 73 2d 3e 70 72 5f 70 6e |X thi|s->pr_pn|
|00002960| 6e 65 78 74 20 3d 20 2a | 62 75 63 6b 65 74 3b 0a |next = *|bucket;.|
|00002970| 58 20 20 20 20 2a 62 75 | 63 6b 65 74 20 3d 20 74 |X *bu|cket = t|
|00002980| 68 69 73 3b 0a 58 0a 58 | 20 20 20 20 2f 2a 20 6c |his;.X.X| /* l|
|00002990| 69 6e 6b 20 72 65 63 6f | 72 64 20 69 6e 74 6f 20 |ink reco|rd into |
|000029a0| 6e 61 6d 65 2d 3e 70 6f | 72 74 20 68 61 73 68 20 |name->po|rt hash |
|000029b0| 74 61 62 6c 65 20 2a 2f | 0a 58 0a 58 20 20 20 20 |table */|.X.X |
|000029c0| 62 75 63 6b 65 74 20 3d | 20 26 6e 61 6d 65 5f 74 |bucket =| &name_t|
|000029d0| 6f 5f 70 6f 72 74 5b 4e | 41 4d 45 5f 48 41 53 48 |o_port[N|AME_HASH|
|000029e0| 28 74 68 69 73 2d 3e 70 | 72 5f 6e 61 6d 65 29 5d |(this->p|r_name)]|
|000029f0| 3b 0a 58 20 20 20 20 74 | 68 69 73 2d 3e 70 72 5f |;.X t|his->pr_|
|00002a00| 6e 70 6e 65 78 74 20 3d | 20 2a 62 75 63 6b 65 74 |npnext =| *bucket|
|00002a10| 3b 0a 58 20 20 20 20 2a | 62 75 63 6b 65 74 20 3d |;.X *|bucket =|
|00002a20| 20 74 68 69 73 3b 0a 58 | 0c 0a 58 20 20 20 20 2f | this;.X|..X /|
|00002a30| 2a 20 72 65 71 75 65 73 | 74 20 61 20 64 65 61 64 |* reques|t a dead|
|00002a40| 2d 6e 61 6d 65 20 6e 6f | 74 69 66 69 63 61 74 69 |-name no|tificati|
|00002a50| 6f 6e 20 2a 2f 0a 58 0a | 58 20 20 20 20 6b 72 20 |on */.X.|X kr |
|00002a60| 3d 20 6d 61 63 68 5f 70 | 6f 72 74 5f 72 65 71 75 |= mach_p|ort_requ|
|00002a70| 65 73 74 5f 6e 6f 74 69 | 66 69 63 61 74 69 6f 6e |est_noti|fication|
|00002a80| 28 6d 61 63 68 5f 74 61 | 73 6b 5f 73 65 6c 66 28 |(mach_ta|sk_self(|
|00002a90| 29 2c 20 70 6f 72 74 2c | 0a 58 09 09 09 4d 41 43 |), port,|.X...MAC|
|00002aa0| 48 5f 4e 4f 54 49 46 59 | 5f 44 45 41 44 5f 4e 41 |H_NOTIFY|_DEAD_NA|
|00002ab0| 4d 45 2c 20 54 52 55 45 | 2c 0a 58 09 09 09 6e 6f |ME, TRUE|,.X...no|
|00002ac0| 74 69 66 79 2c 20 4d 41 | 43 48 5f 4d 53 47 5f 54 |tify, MA|CH_MSG_T|
|00002ad0| 59 50 45 5f 4d 41 4b 45 | 5f 53 45 4e 44 5f 4f 4e |YPE_MAKE|_SEND_ON|
|00002ae0| 43 45 2c 0a 58 09 09 09 | 26 70 72 65 76 69 6f 75 |CE,.X...|&previou|
|00002af0| 73 29 3b 0a 58 20 20 20 | 20 69 66 20 28 28 6b 72 |s);.X | if ((kr|
|00002b00| 20 21 3d 20 4b 45 52 4e | 5f 53 55 43 43 45 53 53 | != KERN|_SUCCESS|
|00002b10| 29 20 7c 7c 20 28 70 72 | 65 76 69 6f 75 73 20 21 |) || (pr|evious !|
|00002b20| 3d 20 4d 41 43 48 5f 50 | 4f 52 54 5f 4e 55 4c 4c |= MACH_P|ORT_NULL|
|00002b30| 29 29 0a 58 09 71 75 69 | 74 28 31 2c 20 22 6d 61 |)).X.qui|t(1, "ma|
|00002b40| 63 68 69 64 3a 20 6d 61 | 63 68 5f 70 6f 72 74 5f |chid: ma|ch_port_|
|00002b50| 72 65 71 75 65 73 74 5f | 6e 6f 74 69 66 69 63 61 |request_|notifica|
|00002b60| 74 69 6f 6e 3a 20 25 73 | 5c 6e 22 2c 0a 58 09 20 |tion: %s|\n",.X. |
|00002b70| 20 20 20 20 6d 61 63 68 | 5f 65 72 72 6f 72 5f 73 | mach|_error_s|
|00002b80| 74 72 69 6e 67 28 6b 72 | 29 29 3b 0a 58 0a 58 20 |tring(kr|));.X.X |
|00002b90| 20 20 20 72 65 74 75 72 | 6e 20 74 68 69 73 2d 3e | retur|n this->|
|00002ba0| 70 72 5f 6e 61 6d 65 3b | 0a 58 7d 0a 58 0a 58 2f |pr_name;|.X}.X.X/|
|00002bb0| 2a 20 63 6f 6e 76 65 72 | 74 20 61 6e 20 65 78 70 |* conver|t an exp|
|00002bc0| 6f 72 74 65 64 20 6e 61 | 6d 65 20 74 6f 20 61 20 |orted na|me to a |
|00002bd0| 73 65 6e 64 20 72 69 67 | 68 74 2c 0a 58 20 20 20 |send rig|ht,.X |
|00002be0| 72 65 74 75 72 6e 69 6e | 67 20 61 20 75 73 65 72 |returnin|g a user|
|00002bf0| 2d 72 65 66 65 72 65 6e | 63 65 20 66 6f 72 20 74 |-referen|ce for t|
|00002c00| 68 65 20 73 65 6e 64 20 | 72 69 67 68 74 20 2a 2f |he send |right */|
|00002c10| 0a 58 0a 58 73 74 61 74 | 69 63 20 6b 65 72 6e 5f |.X.Xstat|ic kern_|
|00002c20| 72 65 74 75 72 6e 5f 74 | 0a 58 70 6f 72 74 5f 6c |return_t|.Xport_l|
|00002c30| 6f 6f 6b 75 70 28 6e 61 | 6d 65 2c 20 70 6f 72 74 |ookup(na|me, port|
|00002c40| 70 29 0a 58 20 20 20 20 | 6d 61 63 68 5f 69 64 5f |p).X |mach_id_|
|00002c50| 74 20 6e 61 6d 65 3b 0a | 58 20 20 20 20 6d 61 63 |t name;.|X mac|
|00002c60| 68 5f 70 6f 72 74 5f 74 | 20 2a 70 6f 72 74 70 3b |h_port_t| *portp;|
|00002c70| 0a 58 7b 0a 58 20 20 20 | 20 70 6f 72 74 5f 72 65 |.X{.X | port_re|
|00002c80| 63 6f 72 64 5f 74 20 2a | 74 68 69 73 3b 0a 58 0a |cord_t *|this;.X.|
|00002c90| 58 20 20 20 20 74 68 69 | 73 20 3d 20 66 69 6e 64 |X thi|s = find|
|00002ca0| 5f 6e 61 6d 65 28 6e 61 | 6d 65 29 3b 0a 58 20 20 |_name(na|me);.X |
|00002cb0| 20 20 69 66 20 28 74 68 | 69 73 20 3d 3d 20 4e 55 | if (th|is == NU|
|00002cc0| 4c 4c 29 0a 58 09 72 65 | 74 75 72 6e 20 4b 45 52 |LL).X.re|turn KER|
|00002cd0| 4e 5f 49 4e 56 41 4c 49 | 44 5f 4e 41 4d 45 3b 0a |N_INVALI|D_NAME;.|
|00002ce0| 58 0a 58 20 20 20 20 73 | 75 62 5f 72 65 66 65 72 |X.X s|ub_refer|
|00002cf0| 65 6e 63 65 28 74 68 69 | 73 29 3b 0a 58 20 20 20 |ence(thi|s);.X |
|00002d00| 20 2a 70 6f 72 74 70 20 | 3d 20 74 68 69 73 2d 3e | *portp |= this->|
|00002d10| 70 72 5f 70 6f 72 74 3b | 0a 58 20 20 20 20 72 65 |pr_port;|.X re|
|00002d20| 74 75 72 6e 20 4b 45 52 | 4e 5f 53 55 43 43 45 53 |turn KER|N_SUCCES|
|00002d30| 53 3b 0a 58 7d 0a 58 0c | 0a 58 2f 2a 20 64 65 73 |S;.X}.X.|.X/* des|
|00002d40| 74 72 6f 79 20 74 68 65 | 20 70 6f 72 74 20 72 65 |troy the| port re|
|00002d50| 63 6f 72 64 20 6f 66 20 | 61 20 64 65 61 64 20 70 |cord of |a dead p|
|00002d60| 6f 72 74 2c 20 63 6f 6e | 73 75 6d 69 6e 67 0a 58 |ort, con|suming.X|
|00002d70| 20 20 20 61 6e 20 65 78 | 74 72 61 20 75 73 65 72 | an ex|tra user|
|00002d80| 2d 72 65 66 65 72 65 6e | 63 65 20 66 6f 72 20 74 |-referen|ce for t|
|00002d90| 68 65 20 64 65 61 64 2d | 6e 61 6d 65 20 6e 6f 74 |he dead-|name not|
|00002da0| 69 66 69 63 61 74 69 6f | 6e 20 2a 2f 0a 58 0a 58 |ificatio|n */.X.X|
|00002db0| 73 74 61 74 69 63 20 76 | 6f 69 64 0a 58 70 6f 72 |static v|oid.Xpor|
|00002dc0| 74 5f 64 65 73 74 72 6f | 79 28 70 6f 72 74 29 0a |t_destro|y(port).|
|00002dd0| 58 20 20 20 20 6d 61 63 | 68 5f 70 6f 72 74 5f 74 |X mac|h_port_t|
|00002de0| 20 70 6f 72 74 3b 0a 58 | 7b 0a 58 20 20 20 20 70 | port;.X|{.X p|
|00002df0| 6f 72 74 5f 72 65 63 6f | 72 64 5f 74 20 2a 74 68 |ort_reco|rd_t *th|
|00002e00| 69 73 2c 20 2a 2a 70 72 | 65 76 3b 0a 58 20 20 20 |is, **pr|ev;.X |
|00002e10| 20 6b 65 72 6e 5f 72 65 | 74 75 72 6e 5f 74 20 6b | kern_re|turn_t k|
|00002e20| 72 3b 0a 58 0a 58 20 20 | 20 20 2f 2a 20 72 65 6d |r;.X.X | /* rem|
|00002e30| 6f 76 65 20 74 68 65 20 | 70 6f 72 74 20 72 65 63 |ove the |port rec|
|00002e40| 6f 72 64 20 66 72 6f 6d | 20 70 6f 72 74 2d 3e 6e |ord from| port->n|
|00002e50| 61 6d 65 20 68 61 73 68 | 20 74 61 62 6c 65 20 2a |ame hash| table *|
|00002e60| 2f 0a 58 0a 58 20 20 20 | 20 66 6f 72 20 28 70 72 |/.X.X | for (pr|
|00002e70| 65 76 20 3d 20 26 70 6f | 72 74 5f 74 6f 5f 6e 61 |ev = &po|rt_to_na|
|00002e80| 6d 65 5b 50 4f 52 54 5f | 48 41 53 48 28 70 6f 72 |me[PORT_|HASH(por|
|00002e90| 74 29 5d 3b 0a 58 09 20 | 28 74 68 69 73 20 3d 20 |t)];.X. |(this = |
|00002ea0| 2a 70 72 65 76 29 20 21 | 3d 20 4e 55 4c 4c 3b 0a |*prev) !|= NULL;.|
|00002eb0| 58 09 20 70 72 65 76 20 | 3d 20 26 74 68 69 73 2d |X. prev |= &this-|
|00002ec0| 3e 70 72 5f 70 6e 6e 65 | 78 74 29 0a 58 09 69 66 |>pr_pnne|xt).X.if|
|00002ed0| 20 28 74 68 69 73 2d 3e | 70 72 5f 70 6f 72 74 20 | (this->|pr_port |
|00002ee0| 3d 3d 20 70 6f 72 74 29 | 0a 58 09 20 20 20 20 62 |== port)|.X. b|
|00002ef0| 72 65 61 6b 3b 0a 58 20 | 20 20 20 69 66 20 28 74 |reak;.X | if (t|
|00002f00| 68 69 73 20 3d 3d 20 4e | 55 4c 4c 29 0a 58 09 71 |his == N|ULL).X.q|
|00002f10| 75 69 74 28 31 2c 20 22 | 6d 61 63 68 69 64 3a 20 |uit(1, "|machid: |
|00002f20| 70 6f 72 74 5f 64 65 73 | 74 72 6f 79 3a 20 64 69 |port_des|troy: di|
|00002f30| 64 6e 27 74 20 66 69 6e | 64 20 70 6f 72 74 5c 6e |dn't fin|d port\n|
|00002f40| 22 29 3b 0a 58 20 20 20 | 20 2a 70 72 65 76 20 3d |");.X | *prev =|
|00002f50| 20 74 68 69 73 2d 3e 70 | 72 5f 70 6e 6e 65 78 74 | this->p|r_pnnext|
|00002f60| 3b 0a 58 0a 58 20 20 20 | 20 2f 2a 20 72 65 6d 6f |;.X.X | /* remo|
|00002f70| 76 65 20 74 68 65 20 70 | 6f 72 74 20 72 65 63 6f |ve the p|ort reco|
|00002f80| 72 64 20 66 72 6f 6d 20 | 6e 61 6d 65 2d 3e 70 6f |rd from |name->po|
|00002f90| 72 74 20 68 61 73 68 20 | 74 61 62 6c 65 20 2a 2f |rt hash |table */|
|00002fa0| 0a 58 0a 58 20 20 20 20 | 66 6f 72 20 28 70 72 65 |.X.X |for (pre|
|00002fb0| 76 20 3d 20 26 6e 61 6d | 65 5f 74 6f 5f 70 6f 72 |v = &nam|e_to_por|
|00002fc0| 74 5b 4e 41 4d 45 5f 48 | 41 53 48 28 74 68 69 73 |t[NAME_H|ASH(this|
|00002fd0| 2d 3e 70 72 5f 6e 61 6d | 65 29 5d 3b 0a 58 09 20 |->pr_nam|e)];.X. |
|00002fe0| 28 74 68 69 73 20 3d 20 | 2a 70 72 65 76 29 20 21 |(this = |*prev) !|
|00002ff0| 3d 20 4e 55 4c 4c 3b 0a | 58 09 20 70 72 65 76 20 |= NULL;.|X. prev |
|00003000| 3d 20 26 74 68 69 73 2d | 3e 70 72 5f 6e 70 6e 65 |= &this-|>pr_npne|
|00003010| 78 74 29 0a 58 09 69 66 | 20 28 74 68 69 73 2d 3e |xt).X.if| (this->|
|00003020| 70 72 5f 70 6f 72 74 20 | 3d 3d 20 70 6f 72 74 29 |pr_port |== port)|
|00003030| 0a 58 09 20 20 20 20 62 | 72 65 61 6b 3b 0a 58 20 |.X. b|reak;.X |
|00003040| 20 20 20 69 66 20 28 74 | 68 69 73 20 3d 3d 20 4e | if (t|his == N|
|00003050| 55 4c 4c 29 0a 58 09 71 | 75 69 74 28 31 2c 20 22 |ULL).X.q|uit(1, "|
|00003060| 6d 61 63 68 69 64 3a 20 | 70 6f 72 74 5f 64 65 73 |machid: |port_des|
|00003070| 74 72 6f 79 3a 20 64 69 | 64 6e 27 74 20 66 69 6e |troy: di|dn't fin|
|00003080| 64 20 70 6f 72 74 5c 6e | 22 29 3b 0a 58 20 20 20 |d port\n|");.X |
|00003090| 20 2a 70 72 65 76 20 3d | 20 74 68 69 73 2d 3e 70 | *prev =| this->p|
|000030a0| 72 5f 6e 70 6e 65 78 74 | 3b 0a 58 0a 58 20 20 20 |r_npnext|;.X.X |
|000030b0| 20 2f 2a 20 64 65 61 6c | 6c 6f 63 61 74 65 20 74 | /* deal|locate t|
|000030c0| 68 65 20 64 65 61 64 20 | 6e 61 6d 65 20 2a 2f 0a |he dead |name */.|
|000030d0| 58 0a 58 20 20 20 20 6b | 72 20 3d 20 6d 61 63 68 |X.X k|r = mach|
|000030e0| 5f 70 6f 72 74 5f 6d 6f | 64 5f 72 65 66 73 28 6d |_port_mo|d_refs(m|
|000030f0| 61 63 68 5f 74 61 73 6b | 5f 73 65 6c 66 28 29 2c |ach_task|_self(),|
|00003100| 20 70 6f 72 74 2c 0a 58 | 09 09 09 20 20 20 20 4d | port,.X|... M|
|00003110| 41 43 48 5f 50 4f 52 54 | 5f 52 49 47 48 54 5f 44 |ACH_PORT|_RIGHT_D|
|00003120| 45 41 44 5f 4e 41 4d 45 | 2c 0a 58 09 09 09 20 20 |EAD_NAME|,.X... |
|00003130| 20 20 2d 20 28 74 68 69 | 73 2d 3e 70 72 5f 75 72 | - (thi|s->pr_ur|
|00003140| 65 66 73 20 2b 20 31 29 | 29 3b 0a 58 20 20 20 20 |efs + 1)|);.X |
|00003150| 69 66 20 28 6b 72 20 21 | 3d 20 4b 45 52 4e 5f 53 |if (kr !|= KERN_S|
|00003160| 55 43 43 45 53 53 29 0a | 58 09 71 75 69 74 28 31 |UCCESS).|X.quit(1|
|00003170| 2c 20 22 6d 61 63 68 69 | 64 3a 20 70 6f 72 74 5f |, "machi|d: port_|
|00003180| 64 65 73 74 72 6f 79 3a | 20 6d 61 63 68 5f 70 6f |destroy:| mach_po|
|00003190| 72 74 5f 6d 6f 64 5f 72 | 65 66 73 3a 20 25 73 5c |rt_mod_r|efs: %s\|
|000031a0| 6e 22 2c 0a 58 09 20 20 | 20 20 20 6d 61 63 68 5f |n",.X. | mach_|
|000031b0| 65 72 72 6f 72 5f 73 74 | 72 69 6e 67 28 6b 72 29 |error_st|ring(kr)|
|000031c0| 29 3b 0a 58 0a 58 20 20 | 20 20 66 72 65 65 28 28 |);.X.X | free((|
|000031d0| 63 68 61 72 20 2a 29 20 | 74 68 69 73 29 3b 0a 58 |char *) |this);.X|
|000031e0| 7d 0a 45 4e 44 5f 4f 46 | 5f 6d 61 63 68 69 64 2e |}.END_OF|_machid.|
|000031f0| 63 0a 69 66 20 74 65 73 | 74 20 31 30 38 36 35 20 |c.if tes|t 10865 |
|00003200| 2d 6e 65 20 60 77 63 20 | 2d 63 20 3c 6d 61 63 68 |-ne `wc |-c <mach|
|00003210| 69 64 2e 63 60 3b 20 74 | 68 65 6e 0a 20 20 20 20 |id.c`; t|hen. |
|00003220| 65 63 68 6f 20 73 68 61 | 72 3a 20 5c 22 6d 61 63 |echo sha|r: \"mac|
|00003230| 68 69 64 2e 63 5c 22 20 | 75 6e 70 61 63 6b 65 64 |hid.c\" |unpacked|
|00003240| 20 77 69 74 68 20 77 72 | 6f 6e 67 20 73 69 7a 65 | with wr|ong size|
|00003250| 21 0a 66 69 0a 23 20 65 | 6e 64 20 6f 66 20 6f 76 |!.fi.# e|nd of ov|
|00003260| 65 72 77 72 69 74 69 6e | 67 20 63 68 65 63 6b 0a |erwritin|g check.|
|00003270| 66 69 0a 69 66 20 74 65 | 73 74 20 2d 66 20 6d 61 |fi.if te|st -f ma|
|00003280| 63 68 69 64 2e 64 65 66 | 73 20 2d 61 20 22 24 7b |chid.def|s -a "${|
|00003290| 31 7d 22 20 21 3d 20 22 | 2d 63 22 20 3b 20 74 68 |1}" != "|-c" ; th|
|000032a0| 65 6e 20 0a 20 20 65 63 | 68 6f 20 73 68 61 72 3a |en . ec|ho shar:|
|000032b0| 20 57 69 6c 6c 20 6e 6f | 74 20 6f 76 65 72 2d 77 | Will no|t over-w|
|000032c0| 72 69 74 65 20 65 78 69 | 73 74 69 6e 67 20 66 69 |rite exi|sting fi|
|000032d0| 6c 65 20 5c 22 6d 61 63 | 68 69 64 2e 64 65 66 73 |le \"mac|hid.defs|
|000032e0| 5c 22 0a 65 6c 73 65 0a | 65 63 68 6f 20 73 68 61 |\".else.|echo sha|
|000032f0| 72 3a 20 45 78 74 72 61 | 63 74 69 6e 67 20 5c 22 |r: Extra|cting \"|
|00003300| 6d 61 63 68 69 64 2e 64 | 65 66 73 5c 22 20 5c 28 |machid.d|efs\" \(|
|00003310| 34 36 38 20 63 68 61 72 | 61 63 74 65 72 73 5c 29 |468 char|acters\)|
|00003320| 0a 73 65 64 20 22 73 2f | 5e 58 2f 2f 22 20 3e 6d |.sed "s/|^X//" >m|
|00003330| 61 63 68 69 64 2e 64 65 | 66 73 20 3c 3c 27 45 4e |achid.de|fs <<'EN|
|00003340| 44 5f 4f 46 5f 6d 61 63 | 68 69 64 2e 64 65 66 73 |D_OF_mac|hid.defs|
|00003350| 27 0a 58 73 75 62 73 79 | 73 74 65 6d 20 6d 61 63 |'.Xsubsy|stem mac|
|00003360| 68 69 64 20 34 33 37 35 | 33 30 30 3b 0a 58 0a 58 |hid 4375|300;.X.X|
|00003370| 2f 2a 0a 58 20 2a 09 41 | 20 73 69 6d 70 6c 65 20 |/*.X *.A| simple |
|00003380| 69 6e 74 65 72 66 61 63 | 65 20 74 6f 20 65 73 74 |interfac|e to est|
|00003390| 61 62 6c 69 73 68 20 61 | 6e 64 20 71 75 65 72 79 |ablish a|nd query|
|000033a0| 20 6d 61 70 70 69 6e 67 | 73 0a 58 20 2a 09 62 65 | mapping|s.X *.be|
|000033b0| 74 77 65 65 6e 20 73 65 | 6e 64 20 72 69 67 68 74 |tween se|nd right|
|000033c0| 73 20 61 6e 64 20 4d 61 | 63 68 49 44 73 2e 0a 58 |s and Ma|chIDs..X|
|000033d0| 20 2a 2f 0a 58 0a 58 75 | 73 65 72 70 72 65 66 69 | */.X.Xu|serprefi|
|000033e0| 78 20 6d 61 63 68 69 64 | 5f 3b 0a 58 73 65 72 76 |x machid|_;.Xserv|
|000033f0| 65 72 70 72 65 66 69 78 | 20 64 6f 5f 3b 0a 58 0a |erprefix| do_;.X.|
|00003400| 58 23 69 6e 63 6c 75 64 | 65 20 3c 6d 61 63 68 2f |X#includ|e <mach/|
|00003410| 73 74 64 5f 74 79 70 65 | 73 2e 64 65 66 73 3e 0a |std_type|s.defs>.|
|00003420| 58 23 69 6e 63 6c 75 64 | 65 20 22 6d 61 63 68 69 |X#includ|e "machi|
|00003430| 64 5f 74 79 70 65 73 2e | 64 65 66 73 22 0a 58 0a |d_types.|defs".X.|
|00003440| 58 72 6f 75 74 69 6e 65 | 20 72 65 67 69 73 74 65 |Xroutine| registe|
|00003450| 72 28 0a 58 09 09 73 65 | 72 76 65 72 09 09 3a 20 |r(.X..se|rver..: |
|00003460| 6d 61 63 68 5f 70 6f 72 | 74 5f 74 3b 0a 58 09 09 |mach_por|t_t;.X..|
|00003470| 70 6f 72 74 09 09 3a 20 | 6d 61 63 68 5f 70 6f 72 |port..: |mach_por|
|00003480| 74 5f 74 20 3d 0a 58 09 | 09 09 09 09 4d 41 43 48 |t_t =.X.|....MACH|
|00003490| 5f 4d 53 47 5f 54 59 50 | 45 5f 50 4f 52 54 5f 53 |_MSG_TYP|E_PORT_S|
|000034a0| 45 4e 44 3b 0a 58 09 6f | 75 74 09 6e 61 6d 65 09 |END;.X.o|ut.name.|
|000034b0| 09 3a 20 6d 61 63 68 5f | 69 64 5f 74 29 3b 0a 58 |.: mach_|id_t);.X|
|000034c0| 0a 58 72 6f 75 74 69 6e | 65 20 6c 6f 6f 6b 75 70 |.Xroutin|e lookup|
|000034d0| 28 0a 58 09 09 73 65 72 | 76 65 72 09 09 3a 20 6d |(.X..ser|ver..: m|
|000034e0| 61 63 68 5f 70 6f 72 74 | 5f 74 3b 0a 58 09 09 6e |ach_port|_t;.X..n|
|000034f0| 61 6d 65 09 09 3a 20 6d | 61 63 68 5f 69 64 5f 74 |ame..: m|ach_id_t|
|00003500| 3b 0a 58 09 6f 75 74 09 | 70 6f 72 74 09 09 3a 20 |;.X.out.|port..: |
|00003510| 6d 61 63 68 5f 70 6f 72 | 74 5f 74 20 3d 0a 58 09 |mach_por|t_t =.X.|
|00003520| 09 09 09 09 4d 41 43 48 | 5f 4d 53 47 5f 54 59 50 |....MACH|_MSG_TYP|
|00003530| 45 5f 4d 4f 56 45 5f 53 | 45 4e 44 29 3b 0a 45 4e |E_MOVE_S|END);.EN|
|00003540| 44 5f 4f 46 5f 6d 61 63 | 68 69 64 2e 64 65 66 73 |D_OF_mac|hid.defs|
|00003550| 0a 69 66 20 74 65 73 74 | 20 34 36 38 20 2d 6e 65 |.if test| 468 -ne|
|00003560| 20 60 77 63 20 2d 63 20 | 3c 6d 61 63 68 69 64 2e | `wc -c |<machid.|
|00003570| 64 65 66 73 60 3b 20 74 | 68 65 6e 0a 20 20 20 20 |defs`; t|hen. |
|00003580| 65 63 68 6f 20 73 68 61 | 72 3a 20 5c 22 6d 61 63 |echo sha|r: \"mac|
|00003590| 68 69 64 2e 64 65 66 73 | 5c 22 20 75 6e 70 61 63 |hid.defs|\" unpac|
|000035a0| 6b 65 64 20 77 69 74 68 | 20 77 72 6f 6e 67 20 73 |ked with| wrong s|
|000035b0| 69 7a 65 21 0a 66 69 0a | 23 20 65 6e 64 20 6f 66 |ize!.fi.|# end of|
|000035c0| 20 6f 76 65 72 77 72 69 | 74 69 6e 67 20 63 68 65 | overwri|ting che|
|000035d0| 63 6b 0a 66 69 0a 69 66 | 20 74 65 73 74 20 2d 66 |ck.fi.if| test -f|
|000035e0| 20 6d 61 63 68 69 64 5f | 74 79 70 65 73 2e 64 65 | machid_|types.de|
|000035f0| 66 73 20 2d 61 20 22 24 | 7b 31 7d 22 20 21 3d 20 |fs -a "$|{1}" != |
|00003600| 22 2d 63 22 20 3b 20 74 | 68 65 6e 20 0a 20 20 65 |"-c" ; t|hen . e|
|00003610| 63 68 6f 20 73 68 61 72 | 3a 20 57 69 6c 6c 20 6e |cho shar|: Will n|
|00003620| 6f 74 20 6f 76 65 72 2d | 77 72 69 74 65 20 65 78 |ot over-|write ex|
|00003630| 69 73 74 69 6e 67 20 66 | 69 6c 65 20 5c 22 6d 61 |isting f|ile \"ma|
|00003640| 63 68 69 64 5f 74 79 70 | 65 73 2e 64 65 66 73 5c |chid_typ|es.defs\|
|00003650| 22 0a 65 6c 73 65 0a 65 | 63 68 6f 20 73 68 61 72 |".else.e|cho shar|
|00003660| 3a 20 45 78 74 72 61 63 | 74 69 6e 67 20 5c 22 6d |: Extrac|ting \"m|
|00003670| 61 63 68 69 64 5f 74 79 | 70 65 73 2e 64 65 66 73 |achid_ty|pes.defs|
|00003680| 5c 22 20 5c 28 31 37 30 | 20 63 68 61 72 61 63 74 |\" \(170| charact|
|00003690| 65 72 73 5c 29 0a 73 65 | 64 20 22 73 2f 5e 58 2f |ers\).se|d "s/^X/|
|000036a0| 2f 22 20 3e 6d 61 63 68 | 69 64 5f 74 79 70 65 73 |/" >mach|id_types|
|000036b0| 2e 64 65 66 73 20 3c 3c | 27 45 4e 44 5f 4f 46 5f |.defs <<|'END_OF_|
|000036c0| 6d 61 63 68 69 64 5f 74 | 79 70 65 73 2e 64 65 66 |machid_t|ypes.def|
|000036d0| 73 27 0a 58 23 69 66 6e | 64 65 66 09 5f 4d 41 43 |s'.X#ifn|def._MAC|
|000036e0| 48 49 44 5f 54 59 50 45 | 53 5f 44 45 46 53 5f 0a |HID_TYPE|S_DEFS_.|
|000036f0| 58 23 64 65 66 69 6e 65 | 20 5f 4d 41 43 48 49 44 |X#define| _MACHID|
|00003700| 5f 54 59 50 45 53 5f 44 | 45 46 53 5f 0a 58 0a 58 |_TYPES_D|EFS_.X.X|
|00003710| 23 69 6e 63 6c 75 64 65 | 20 3c 6d 61 63 68 2f 73 |#include| <mach/s|
|00003720| 74 64 5f 74 79 70 65 73 | 2e 64 65 66 73 3e 0a 58 |td_types|.defs>.X|
|00003730| 0a 58 74 79 70 65 20 6d | 61 63 68 5f 69 64 5f 74 |.Xtype m|ach_id_t|
|00003740| 20 3d 20 75 6e 73 69 67 | 6e 65 64 3b 0a 58 0a 58 | = unsig|ned;.X.X|
|00003750| 69 6d 70 6f 72 74 20 22 | 6d 61 63 68 69 64 5f 74 |import "|machid_t|
|00003760| 79 70 65 73 2e 68 22 3b | 0a 58 0a 58 23 65 6e 64 |ypes.h";|.X.X#end|
|00003770| 69 66 09 5f 4d 41 43 48 | 49 44 5f 54 59 50 45 53 |if._MACH|ID_TYPES|
|00003780| 5f 44 45 46 53 5f 0a 45 | 4e 44 5f 4f 46 5f 6d 61 |_DEFS_.E|ND_OF_ma|
|00003790| 63 68 69 64 5f 74 79 70 | 65 73 2e 64 65 66 73 0a |chid_typ|es.defs.|
|000037a0| 69 66 20 74 65 73 74 20 | 31 37 30 20 2d 6e 65 20 |if test |170 -ne |
|000037b0| 60 77 63 20 2d 63 20 3c | 6d 61 63 68 69 64 5f 74 |`wc -c <|machid_t|
|000037c0| 79 70 65 73 2e 64 65 66 | 73 60 3b 20 74 68 65 6e |ypes.def|s`; then|
|000037d0| 0a 20 20 20 20 65 63 68 | 6f 20 73 68 61 72 3a 20 |. ech|o shar: |
|000037e0| 5c 22 6d 61 63 68 69 64 | 5f 74 79 70 65 73 2e 64 |\"machid|_types.d|
|000037f0| 65 66 73 5c 22 20 75 6e | 70 61 63 6b 65 64 20 77 |efs\" un|packed w|
|00003800| 69 74 68 20 77 72 6f 6e | 67 20 73 69 7a 65 21 0a |ith wron|g size!.|
|00003810| 66 69 0a 23 20 65 6e 64 | 20 6f 66 20 6f 76 65 72 |fi.# end| of over|
|00003820| 77 72 69 74 69 6e 67 20 | 63 68 65 63 6b 0a 66 69 |writing |check.fi|
|00003830| 0a 69 66 20 74 65 73 74 | 20 2d 66 20 6d 63 6c 69 |.if test| -f mcli|
|00003840| 65 6e 74 2e 63 20 2d 61 | 20 22 24 7b 31 7d 22 20 |ent.c -a| "${1}" |
|00003850| 21 3d 20 22 2d 63 22 20 | 3b 20 74 68 65 6e 20 0a |!= "-c" |; then .|
|00003860| 20 20 65 63 68 6f 20 73 | 68 61 72 3a 20 57 69 6c | echo s|har: Wil|
|00003870| 6c 20 6e 6f 74 20 6f 76 | 65 72 2d 77 72 69 74 65 |l not ov|er-write|
|00003880| 20 65 78 69 73 74 69 6e | 67 20 66 69 6c 65 20 5c | existin|g file \|
|00003890| 22 6d 63 6c 69 65 6e 74 | 2e 63 5c 22 0a 65 6c 73 |"mclient|.c\".els|
|000038a0| 65 0a 65 63 68 6f 20 73 | 68 61 72 3a 20 45 78 74 |e.echo s|har: Ext|
|000038b0| 72 61 63 74 69 6e 67 20 | 5c 22 6d 63 6c 69 65 6e |racting |\"mclien|
|000038c0| 74 2e 63 5c 22 20 5c 28 | 32 34 37 30 20 63 68 61 |t.c\" \(|2470 cha|
|000038d0| 72 61 63 74 65 72 73 5c | 29 0a 73 65 64 20 22 73 |racters\|).sed "s|
|000038e0| 2f 5e 58 2f 2f 22 20 3e | 6d 63 6c 69 65 6e 74 2e |/^X//" >|mclient.|
|000038f0| 63 20 3c 3c 27 45 4e 44 | 5f 4f 46 5f 6d 63 6c 69 |c <<'END|_OF_mcli|
|00003900| 65 6e 74 2e 63 27 0a 58 | 23 69 6e 63 6c 75 64 65 |ent.c'.X|#include|
|00003910| 20 3c 73 74 64 69 6f 2e | 68 3e 0a 58 23 69 6e 63 | <stdio.|h>.X#inc|
|00003920| 6c 75 64 65 20 3c 6d 61 | 63 68 2e 68 3e 0a 58 23 |lude <ma|ch.h>.X#|
|00003930| 69 6e 63 6c 75 64 65 20 | 3c 6d 61 63 68 2f 6d 65 |include |<mach/me|
|00003940| 73 73 61 67 65 2e 68 3e | 0a 58 23 69 6e 63 6c 75 |ssage.h>|.X#inclu|
|00003950| 64 65 20 3c 6d 61 63 68 | 5f 65 72 72 6f 72 2e 68 |de <mach|_error.h|
|00003960| 3e 0a 58 23 69 6e 63 6c | 75 64 65 20 3c 73 65 72 |>.X#incl|ude <ser|
|00003970| 76 65 72 73 2f 6e 65 74 | 6e 61 6d 65 2e 68 3e 0a |vers/net|name.h>.|
|00003980| 58 23 69 6e 63 6c 75 64 | 65 20 22 6d 61 63 68 69 |X#includ|e "machi|
|00003990| 64 2e 68 22 0a 58 0a 58 | 6d 61 69 6e 28 61 72 67 |d.h".X.X|main(arg|
|000039a0| 63 2c 20 61 72 67 76 29 | 0a 58 20 20 20 20 69 6e |c, argv)|.X in|
|000039b0| 74 20 61 72 67 63 3b 0a | 58 20 20 20 20 63 68 61 |t argc;.|X cha|
|000039c0| 72 20 2a 61 72 67 76 3b | 0a 58 7b 0a 58 20 20 20 |r *argv;|.X{.X |
|000039d0| 20 6d 61 63 68 5f 70 6f | 72 74 5f 74 20 73 65 72 | mach_po|rt_t ser|
|000039e0| 76 65 72 3b 0a 58 20 20 | 20 20 6b 65 72 6e 5f 72 |ver;.X | kern_r|
|000039f0| 65 74 75 72 6e 5f 74 20 | 6b 72 3b 0a 58 0a 58 20 |eturn_t |kr;.X.X |
|00003a00| 20 20 20 2f 2a 20 6c 6f | 6f 6b 75 70 20 74 68 65 | /* lo|okup the|
|00003a10| 20 70 6f 72 74 20 66 6f | 72 20 74 68 65 20 6d 61 | port fo|r the ma|
|00003a20| 63 68 69 64 20 73 65 72 | 76 69 63 65 20 2a 2f 0a |chid ser|vice */.|
|00003a30| 58 0a 58 20 20 20 20 6b | 72 20 3d 20 6e 65 74 6e |X.X k|r = netn|
|00003a40| 61 6d 65 5f 6c 6f 6f 6b | 5f 75 70 28 6e 61 6d 65 |ame_look|_up(name|
|00003a50| 5f 73 65 72 76 65 72 5f | 70 6f 72 74 2c 20 22 22 |_server_|port, ""|
|00003a60| 2c 20 22 64 65 6d 6f 4d | 61 63 68 49 44 22 2c 20 |, "demoM|achID", |
|00003a70| 26 73 65 72 76 65 72 29 | 3b 0a 58 20 20 20 20 69 |&server)|;.X i|
|00003a80| 66 20 28 6b 72 20 21 3d | 20 4b 45 52 4e 5f 53 55 |f (kr !=| KERN_SU|
|00003a90| 43 43 45 53 53 29 0a 58 | 09 71 75 69 74 28 31 2c |CCESS).X|.quit(1,|
|00003aa0| 20 22 6d 63 6c 69 65 6e | 74 3a 20 6e 65 74 6e 61 | "mclien|t: netna|
|00003ab0| 6d 65 5f 6c 6f 6f 6b 5f | 75 70 28 64 65 6d 6f 4d |me_look_|up(demoM|
|00003ac0| 61 63 68 49 44 29 3a 20 | 25 73 5c 6e 22 2c 0a 58 |achID): |%s\n",.X|
|00003ad0| 09 20 20 20 20 20 6d 61 | 63 68 5f 65 72 72 6f 72 |. ma|ch_error|
|00003ae0| 5f 73 74 72 69 6e 67 28 | 6b 72 29 29 3b 0a 58 0c |_string(|kr));.X.|
|00003af0| 0a 58 20 20 20 20 2f 2a | 20 6c 6f 6f 70 20 72 65 |.X /*| loop re|
|00003b00| 61 64 69 6e 67 20 61 6e | 64 20 65 78 65 63 75 74 |ading an|d execut|
|00003b10| 69 6e 67 20 63 6f 6d 6d | 61 6e 64 73 20 75 6e 74 |ing comm|ands unt|
|00003b20| 69 6c 20 65 6f 66 20 2a | 2f 0a 58 0a 58 20 20 20 |il eof *|/.X.X |
|00003b30| 20 66 6f 72 20 28 3b 3b | 29 20 7b 0a 58 09 63 68 | for (;;|) {.X.ch|
|00003b40| 61 72 20 63 6f 6d 6d 61 | 6e 64 5b 32 5d 3b 0a 58 |ar comma|nd[2];.X|
|00003b50| 09 6d 61 63 68 5f 70 6f | 72 74 5f 74 20 70 6f 72 |.mach_po|rt_t por|
|00003b60| 74 3b 0a 58 09 6d 61 63 | 68 5f 69 64 5f 74 20 6e |t;.X.mac|h_id_t n|
|00003b70| 61 6d 65 3b 0a 58 0a 58 | 09 70 72 69 6e 74 66 28 |ame;.X.X|.printf(|
|00003b80| 22 6d 63 6c 69 65 6e 74 | 3e 20 22 29 3b 0a 58 09 |"mclient|> ");.X.|
|00003b90| 69 66 20 28 73 63 61 6e | 66 28 22 25 31 73 22 2c |if (scan|f("%1s",|
|00003ba0| 20 63 6f 6d 6d 61 6e 64 | 29 20 3c 20 31 29 20 7b | command|) < 1) {|
|00003bb0| 0a 58 09 20 20 20 20 70 | 72 69 6e 74 66 28 22 5c |.X. p|rintf("\|
|00003bc0| 6e 22 29 3b 0a 58 09 20 | 20 20 20 62 72 65 61 6b |n");.X. | break|
|00003bd0| 3b 0a 58 09 7d 0a 58 0a | 58 09 73 77 69 74 63 68 |;.X.}.X.|X.switch|
|00003be0| 20 28 63 6f 6d 6d 61 6e | 64 5b 30 5d 29 20 7b 0a | (comman|d[0]) {.|
|00003bf0| 58 09 20 20 63 61 73 65 | 20 27 3f 27 3a 0a 58 09 |X. case| '?':.X.|
|00003c00| 20 20 63 61 73 65 20 27 | 68 27 3a 0a 58 09 20 20 | case '|h':.X. |
|00003c10| 20 20 70 72 69 6e 74 66 | 28 22 43 6f 6d 6d 61 6e | printf|("Comman|
|00003c20| 64 73 3a 5c 6e 22 29 3b | 0a 58 09 20 20 20 20 70 |ds:\n");|.X. p|
|00003c30| 72 69 6e 74 66 28 22 61 | 20 20 20 20 20 20 20 20 |rintf("a| |
|00003c40| 2d 20 61 6c 6c 6f 63 61 | 74 65 20 61 20 70 6f 72 |- alloca|te a por|
|00003c50| 74 5c 6e 22 29 3b 0a 58 | 09 20 20 20 20 70 72 69 |t\n");.X|. pri|
|00003c60| 6e 74 66 28 22 64 20 3c | 70 6f 72 74 3e 20 2d 20 |ntf("d <|port> - |
|00003c70| 64 65 61 6c 6c 6f 63 61 | 74 65 20 61 20 70 6f 72 |dealloca|te a por|
|00003c80| 74 5c 6e 22 29 3b 0a 58 | 09 20 20 20 20 70 72 69 |t\n");.X|. pri|
|00003c90| 6e 74 66 28 22 72 20 3c | 70 6f 72 74 3e 20 2d 20 |ntf("r <|port> - |
|00003ca0| 72 65 67 69 73 74 65 72 | 20 61 20 70 6f 72 74 20 |register| a port |
|00003cb0| 74 6f 20 67 65 74 20 61 | 20 6e 61 6d 65 5c 6e 22 |to get a| name\n"|
|00003cc0| 29 3b 0a 58 09 20 20 20 | 20 70 72 69 6e 74 66 28 |);.X. | printf(|
|00003cd0| 22 6c 20 3c 6e 61 6d 65 | 3e 20 2d 20 6c 6f 6f 6b |"l <name|> - look|
|00003ce0| 75 70 20 61 20 6e 61 6d | 65 20 74 6f 20 67 65 74 |up a nam|e to get|
|00003cf0| 20 61 20 70 6f 72 74 5c | 6e 22 29 3b 0a 58 09 20 | a port\|n");.X. |
|00003d00| 20 20 20 62 72 65 61 6b | 3b 0a 58 0c 0a 58 09 20 | break|;.X..X. |
|00003d10| 20 63 61 73 65 20 27 61 | 27 3a 0a 58 09 20 20 20 | case 'a|':.X. |
|00003d20| 20 2f 2a 20 61 6c 6c 6f | 63 61 74 65 20 61 20 70 | /* allo|cate a p|
|00003d30| 6f 72 74 20 2a 2f 0a 58 | 0a 58 09 20 20 20 20 6b |ort */.X|.X. k|
|00003d40| 72 20 3d 20 6d 61 63 68 | 5f 70 6f 72 74 5f 61 6c |r = mach|_port_al|
|00003d50| 6c 6f 63 61 74 65 28 6d | 61 63 68 5f 74 61 73 6b |locate(m|ach_task|
|00003d60| 5f 73 65 6c 66 28 29 2c | 0a 58 09 09 09 09 20 20 |_self(),|.X.... |
|00003d70| 20 20 4d 41 43 48 5f 50 | 4f 52 54 5f 52 49 47 48 | MACH_P|ORT_RIGH|
|00003d80| 54 5f 52 45 43 45 49 56 | 45 2c 20 26 70 6f 72 74 |T_RECEIV|E, &port|
|00003d90| 29 3b 0a 58 09 20 20 20 | 20 69 66 20 28 6b 72 20 |);.X. | if (kr |
|00003da0| 3d 3d 20 4b 45 52 4e 5f | 53 55 43 43 45 53 53 29 |== KERN_|SUCCESS)|
|00003db0| 0a 58 09 09 70 72 69 6e | 74 66 28 22 61 6c 6c 6f |.X..prin|tf("allo|
|00003dc0| 63 61 74 65 64 20 70 6f | 72 74 20 25 78 5c 6e 22 |cated po|rt %x\n"|
|00003dd0| 2c 20 70 6f 72 74 29 3b | 0a 58 09 20 20 20 20 65 |, port);|.X. e|
|00003de0| 6c 73 65 0a 58 09 09 70 | 72 69 6e 74 66 28 22 6d |lse.X..p|rintf("m|
|00003df0| 63 6c 69 65 6e 74 3a 20 | 6d 61 63 68 5f 70 6f 72 |client: |mach_por|
|00003e00| 74 5f 61 6c 6c 6f 63 61 | 74 65 3a 20 25 73 5c 6e |t_alloca|te: %s\n|
|00003e10| 22 2c 0a 58 09 09 20 20 | 20 20 20 20 20 6d 61 63 |",.X.. | mac|
|00003e20| 68 5f 65 72 72 6f 72 5f | 73 74 72 69 6e 67 28 6b |h_error_|string(k|
|00003e30| 72 29 29 3b 0a 58 09 20 | 20 20 20 62 72 65 61 6b |r));.X. | break|
|00003e40| 3b 0a 58 0a 58 09 20 20 | 63 61 73 65 20 27 64 27 |;.X.X. |case 'd'|
|00003e50| 3a 0a 58 09 20 20 20 20 | 69 66 20 28 73 63 61 6e |:.X. |if (scan|
|00003e60| 66 28 22 25 78 22 2c 20 | 26 70 6f 72 74 29 20 3c |f("%x", |&port) <|
|00003e70| 20 31 29 20 7b 0a 58 09 | 09 70 72 69 6e 74 66 28 | 1) {.X.|.printf(|
|00003e80| 22 73 79 6e 74 61 78 20 | 65 72 72 6f 72 5c 6e 22 |"syntax |error\n"|
|00003e90| 29 3b 0a 58 09 09 62 72 | 65 61 6b 3b 0a 58 09 20 |);.X..br|eak;.X. |
|00003ea0| 20 20 20 7d 0a 58 0a 58 | 09 20 20 20 20 2f 2a 20 | }.X.X|. /* |
|00003eb0| 64 65 73 74 72 6f 79 20 | 61 6c 6c 20 72 69 67 68 |destroy |all righ|
|00003ec0| 74 73 20 66 6f 72 20 74 | 68 65 20 70 6f 72 74 20 |ts for t|he port |
|00003ed0| 2a 2f 0a 58 0a 58 09 20 | 20 20 20 6b 72 20 3d 20 |*/.X.X. | kr = |
|00003ee0| 6d 61 63 68 5f 70 6f 72 | 74 5f 64 65 73 74 72 6f |mach_por|t_destro|
|00003ef0| 79 28 6d 61 63 68 5f 74 | 61 73 6b 5f 73 65 6c 66 |y(mach_t|ask_self|
|00003f00| 28 29 2c 20 70 6f 72 74 | 29 3b 0a 58 09 20 20 20 |(), port|);.X. |
|00003f10| 20 69 66 20 28 6b 72 20 | 3d 3d 20 4b 45 52 4e 5f | if (kr |== KERN_|
|00003f20| 53 55 43 43 45 53 53 29 | 0a 58 09 09 70 72 69 6e |SUCCESS)|.X..prin|
|00003f30| 74 66 28 22 64 65 61 6c | 6c 6f 63 61 74 65 64 20 |tf("deal|located |
|00003f40| 70 6f 72 74 20 25 78 5c | 6e 22 2c 20 70 6f 72 74 |port %x\|n", port|
|00003f50| 29 3b 0a 58 09 20 20 20 | 20 65 6c 73 65 0a 58 09 |);.X. | else.X.|
|00003f60| 09 70 72 69 6e 74 66 28 | 22 6d 63 6c 69 65 6e 74 |.printf(|"mclient|
|00003f70| 3a 20 6d 61 63 68 5f 70 | 6f 72 74 5f 64 65 73 74 |: mach_p|ort_dest|
|00003f80| 72 6f 79 3a 20 25 73 5c | 6e 22 2c 0a 58 09 09 20 |roy: %s\|n",.X.. |
|00003f90| 20 20 20 20 20 20 6d 61 | 63 68 5f 65 72 72 6f 72 | ma|ch_error|
|00003fa0| 5f 73 74 72 69 6e 67 28 | 6b 72 29 29 3b 0a 58 09 |_string(|kr));.X.|
|00003fb0| 20 20 20 20 62 72 65 61 | 6b 3b 0a 58 0c 0a 58 09 | brea|k;.X..X.|
|00003fc0| 20 20 63 61 73 65 20 27 | 72 27 3a 0a 58 09 20 20 | case '|r':.X. |
|00003fd0| 20 20 69 66 20 28 73 63 | 61 6e 66 28 22 25 78 22 | if (sc|anf("%x"|
|00003fe0| 2c 20 26 70 6f 72 74 29 | 20 3c 20 31 29 20 7b 0a |, &port)| < 1) {.|
|00003ff0| 58 09 09 70 72 69 6e 74 | 66 28 22 73 79 6e 74 61 |X..print|f("synta|
|00004000| 78 20 65 72 72 6f 72 5c | 6e 22 29 3b 0a 58 09 09 |x error\|n");.X..|
|00004010| 62 72 65 61 6b 3b 0a 58 | 09 20 20 20 20 7d 0a 58 |break;.X|. }.X|
|00004020| 0a 58 09 20 20 20 20 2f | 2a 20 67 65 74 20 61 20 |.X. /|* get a |
|00004030| 6e 61 6d 65 20 66 6f 72 | 20 74 68 65 20 70 6f 72 |name for| the por|
|00004040| 74 2c 20 75 73 69 6e 67 | 20 61 20 6e 65 77 20 73 |t, using| a new s|
|00004050| 65 6e 64 20 72 69 67 68 | 74 20 2a 2f 0a 58 0a 58 |end righ|t */.X.X|
|00004060| 09 20 20 20 20 6b 72 20 | 3d 20 6d 61 63 68 69 64 |. kr |= machid|
|00004070| 5f 72 65 67 69 73 74 65 | 72 28 73 65 72 76 65 72 |_registe|r(server|
|00004080| 2c 20 70 6f 72 74 2c 20 | 4d 41 43 48 5f 4d 53 47 |, port, |MACH_MSG|
|00004090| 5f 54 59 50 45 5f 4d 41 | 4b 45 5f 53 45 4e 44 2c |_TYPE_MA|KE_SEND,|
|000040a0| 20 26 6e 61 6d 65 29 3b | 0a 58 09 20 20 20 20 69 | &name);|.X. i|
|000040b0| 66 20 28 6b 72 20 3d 3d | 20 4b 45 52 4e 5f 53 55 |f (kr ==| KERN_SU|
|000040c0| 43 43 45 53 53 29 0a 58 | 09 09 70 72 69 6e 74 66 |CCESS).X|..printf|
|000040d0| 28 22 72 65 67 69 73 74 | 65 72 20 70 6f 72 74 20 |("regist|er port |
|000040e0| 25 78 20 3d 3e 20 6e 61 | 6d 65 20 25 64 5c 6e 22 |%x => na|me %d\n"|
|000040f0| 2c 20 70 6f 72 74 2c 20 | 6e 61 6d 65 29 3b 0a 58 |, port, |name);.X|
|00004100| 09 20 20 20 20 65 6c 73 | 65 0a 58 09 09 70 72 69 |. els|e.X..pri|
|00004110| 6e 74 66 28 22 6d 63 6c | 69 65 6e 74 3a 20 6d 61 |ntf("mcl|ient: ma|
|00004120| 63 68 69 64 5f 72 65 67 | 69 73 74 65 72 3a 20 25 |chid_reg|ister: %|
|00004130| 73 5c 6e 22 2c 0a 58 09 | 09 20 20 20 20 20 20 20 |s\n",.X.|. |
|00004140| 6d 61 63 68 5f 65 72 72 | 6f 72 5f 73 74 72 69 6e |mach_err|or_strin|
|00004150| 67 28 6b 72 29 29 3b 0a | 58 09 20 20 20 20 62 72 |g(kr));.|X. br|
|00004160| 65 61 6b 3b 0a 58 0a 58 | 09 20 20 63 61 73 65 20 |eak;.X.X|. case |
|00004170| 27 6c 27 3a 0a 58 09 20 | 20 20 20 69 66 20 28 73 |'l':.X. | if (s|
|00004180| 63 61 6e 66 28 22 25 64 | 22 2c 20 26 6e 61 6d 65 |canf("%d|", &name|
|00004190| 29 20 3c 20 31 29 20 7b | 0a 58 09 09 70 72 69 6e |) < 1) {|.X..prin|
|000041a0| 74 66 28 22 73 79 6e 74 | 61 78 20 65 72 72 6f 72 |tf("synt|ax error|
|000041b0| 5c 6e 22 29 3b 0a 58 09 | 09 62 72 65 61 6b 3b 0a |\n");.X.|.break;.|
|000041c0| 58 09 20 20 20 20 7d 0a | 58 0a 58 09 20 20 20 20 |X. }.|X.X. |
|000041d0| 2f 2a 20 63 6f 6e 76 65 | 72 74 20 74 68 65 20 6e |/* conve|rt the n|
|000041e0| 61 6d 65 20 74 6f 20 61 | 20 73 65 6e 64 20 72 69 |ame to a| send ri|
|000041f0| 67 68 74 2c 20 77 68 69 | 63 68 20 77 65 20 64 6f |ght, whi|ch we do|
|00004200| 6e 27 74 20 64 65 61 6c | 6c 6f 63 61 74 65 20 2a |n't deal|locate *|
|00004210| 2f 0a 58 0a 58 09 20 20 | 20 20 6b 72 20 3d 20 6d |/.X.X. | kr = m|
|00004220| 61 63 68 69 64 5f 6c 6f | 6f 6b 75 70 28 73 65 72 |achid_lo|okup(ser|
|00004230| 76 65 72 2c 20 6e 61 6d | 65 2c 20 26 70 6f 72 74 |ver, nam|e, &port|
|00004240| 29 3b 0a 58 09 20 20 20 | 20 69 66 20 28 6b 72 20 |);.X. | if (kr |
|00004250| 3d 3d 20 4b 45 52 4e 5f | 53 55 43 43 45 53 53 29 |== KERN_|SUCCESS)|
|00004260| 0a 58 09 09 70 72 69 6e | 74 66 28 22 6c 6f 6f 6b |.X..prin|tf("look|
|00004270| 75 70 20 6e 61 6d 65 20 | 25 64 20 3d 3e 20 70 6f |up name |%d => po|
|00004280| 72 74 20 25 78 5c 6e 22 | 2c 20 6e 61 6d 65 2c 20 |rt %x\n"|, name, |
|00004290| 70 6f 72 74 29 3b 0a 58 | 09 20 20 20 20 65 6c 73 |port);.X|. els|
|000042a0| 65 0a 58 09 09 70 72 69 | 6e 74 66 28 22 6d 63 6c |e.X..pri|ntf("mcl|
|000042b0| 69 65 6e 74 3a 20 6d 61 | 63 68 69 64 5f 6c 6f 6f |ient: ma|chid_loo|
|000042c0| 6b 75 70 3a 20 25 73 5c | 6e 22 2c 0a 58 09 09 20 |kup: %s\|n",.X.. |
|000042d0| 20 20 20 20 20 20 6d 61 | 63 68 5f 65 72 72 6f 72 | ma|ch_error|
|000042e0| 5f 73 74 72 69 6e 67 28 | 6b 72 29 29 3b 0a 58 09 |_string(|kr));.X.|
|000042f0| 20 20 20 20 62 72 65 61 | 6b 3b 0a 58 09 7d 0a 58 | brea|k;.X.}.X|
|00004300| 20 20 20 20 7d 0a 58 0a | 58 20 20 20 20 65 78 69 | }.X.|X exi|
|00004310| 74 28 30 29 3b 0a 58 7d | 0a 45 4e 44 5f 4f 46 5f |t(0);.X}|.END_OF_|
|00004320| 6d 63 6c 69 65 6e 74 2e | 63 0a 69 66 20 74 65 73 |mclient.|c.if tes|
|00004330| 74 20 32 34 37 30 20 2d | 6e 65 20 60 77 63 20 2d |t 2470 -|ne `wc -|
|00004340| 63 20 3c 6d 63 6c 69 65 | 6e 74 2e 63 60 3b 20 74 |c <mclie|nt.c`; t|
|00004350| 68 65 6e 0a 20 20 20 20 | 65 63 68 6f 20 73 68 61 |hen. |echo sha|
|00004360| 72 3a 20 5c 22 6d 63 6c | 69 65 6e 74 2e 63 5c 22 |r: \"mcl|ient.c\"|
|00004370| 20 75 6e 70 61 63 6b 65 | 64 20 77 69 74 68 20 77 | unpacke|d with w|
|00004380| 72 6f 6e 67 20 73 69 7a | 65 21 0a 66 69 0a 23 20 |rong siz|e!.fi.# |
|00004390| 65 6e 64 20 6f 66 20 6f | 76 65 72 77 72 69 74 69 |end of o|verwriti|
|000043a0| 6e 67 20 63 68 65 63 6b | 0a 66 69 0a 69 66 20 74 |ng check|.fi.if t|
|000043b0| 65 73 74 20 2d 66 20 6d | 61 63 68 69 64 5f 74 79 |est -f m|achid_ty|
|000043c0| 70 65 73 2e 68 20 2d 61 | 20 22 24 7b 31 7d 22 20 |pes.h -a| "${1}" |
|000043d0| 21 3d 20 22 2d 63 22 20 | 3b 20 74 68 65 6e 20 0a |!= "-c" |; then .|
|000043e0| 20 20 65 63 68 6f 20 73 | 68 61 72 3a 20 57 69 6c | echo s|har: Wil|
|000043f0| 6c 20 6e 6f 74 20 6f 76 | 65 72 2d 77 72 69 74 65 |l not ov|er-write|
|00004400| 20 65 78 69 73 74 69 6e | 67 20 66 69 6c 65 20 5c | existin|g file \|
|00004410| 22 6d 61 63 68 69 64 5f | 74 79 70 65 73 2e 68 5c |"machid_|types.h\|
|00004420| 22 0a 65 6c 73 65 0a 65 | 63 68 6f 20 73 68 61 72 |".else.e|cho shar|
|00004430| 3a 20 45 78 74 72 61 63 | 74 69 6e 67 20 5c 22 6d |: Extrac|ting \"m|
|00004440| 61 63 68 69 64 5f 74 79 | 70 65 73 2e 68 5c 22 20 |achid_ty|pes.h\" |
|00004450| 5c 28 31 30 38 20 63 68 | 61 72 61 63 74 65 72 73 |\(108 ch|aracters|
|00004460| 5c 29 0a 73 65 64 20 22 | 73 2f 5e 58 2f 2f 22 20 |\).sed "|s/^X//" |
|00004470| 3e 6d 61 63 68 69 64 5f | 74 79 70 65 73 2e 68 20 |>machid_|types.h |
|00004480| 3c 3c 27 45 4e 44 5f 4f | 46 5f 6d 61 63 68 69 64 |<<'END_O|F_machid|
|00004490| 5f 74 79 70 65 73 2e 68 | 27 0a 58 23 69 66 6e 64 |_types.h|'.X#ifnd|
|000044a0| 65 66 09 5f 4d 41 43 48 | 49 44 5f 54 59 50 45 53 |ef._MACH|ID_TYPES|
|000044b0| 5f 48 5f 0a 58 23 64 65 | 66 69 6e 65 09 5f 4d 41 |_H_.X#de|fine._MA|
|000044c0| 43 48 49 44 5f 54 59 50 | 45 53 5f 48 5f 0a 58 0a |CHID_TYP|ES_H_.X.|
|000044d0| 58 74 79 70 65 64 65 66 | 20 75 6e 73 69 67 6e 65 |Xtypedef| unsigne|
|000044e0| 64 20 69 6e 74 20 6d 61 | 63 68 5f 69 64 5f 74 3b |d int ma|ch_id_t;|
|000044f0| 0a 58 0a 58 23 65 6e 64 | 69 66 09 5f 4d 41 43 48 |.X.X#end|if._MACH|
|00004500| 49 44 5f 54 59 50 45 53 | 5f 48 5f 0a 45 4e 44 5f |ID_TYPES|_H_.END_|
|00004510| 4f 46 5f 6d 61 63 68 69 | 64 5f 74 79 70 65 73 2e |OF_machi|d_types.|
|00004520| 68 0a 69 66 20 74 65 73 | 74 20 31 30 38 20 2d 6e |h.if tes|t 108 -n|
|00004530| 65 20 60 77 63 20 2d 63 | 20 3c 6d 61 63 68 69 64 |e `wc -c| <machid|
|00004540| 5f 74 79 70 65 73 2e 68 | 60 3b 20 74 68 65 6e 0a |_types.h|`; then.|
|00004550| 20 20 20 20 65 63 68 6f | 20 73 68 61 72 3a 20 5c | echo| shar: \|
|00004560| 22 6d 61 63 68 69 64 5f | 74 79 70 65 73 2e 68 5c |"machid_|types.h\|
|00004570| 22 20 75 6e 70 61 63 6b | 65 64 20 77 69 74 68 20 |" unpack|ed with |
|00004580| 77 72 6f 6e 67 20 73 69 | 7a 65 21 0a 66 69 0a 23 |wrong si|ze!.fi.#|
|00004590| 20 65 6e 64 20 6f 66 20 | 6f 76 65 72 77 72 69 74 | end of |overwrit|
|000045a0| 69 6e 67 20 63 68 65 63 | 6b 0a 66 69 0a 65 63 68 |ing chec|k.fi.ech|
|000045b0| 6f 20 73 68 61 72 3a 20 | 45 6e 64 20 6f 66 20 73 |o shar: |End of s|
|000045c0| 68 65 6c 6c 20 61 72 63 | 68 69 76 65 2e 0a 65 78 |hell arc|hive..ex|
|000045d0| 69 74 20 30 0a | |it 0. | |
+--------+-------------------------+-------------------------+--------+--------+
