cscope.out

cscope 15 Z:\software\webs-2-5"               0000429560
	@CE/main.c

19 
	~<wšdows.h
>

20 
	~<wšsock.h
>

22 
	~"../wsIÁº.h
"

24 #ifdeà
WEBS_SSL_SUPPORT


25 
	~"../websSSL.h
"

28 #ifdeà
USER_MANAGEMENT_SUPPORT


29 
	~"../um.h
"

30 
fÜmDefšeU£rMgmt
();

37 
HWND
 
	ghwnd
;

38 
	gsockS”viûTime
 = 1000;

39 
ch¬_t
 *
	gt™Ë
 = 
T
("GoAhead WebServer");

40 
ch¬_t
 *
	gÇme
 = 
T
("gowebs");

41 
ch¬_t
 *
	groÙWeb
 = 
T
("/www");

42 
ch¬_t
 *
	gdemoWeb
 = 
T
("/wwwdemo");

43 
ch¬_t
 *
	g·sswÜd
 = 
T
("");

44 
	gpÜt
 = 80;

45 
	g»Œ›s
 = 5;

46 
	gfšished
;

50 
š™Webs
(
demo
);

51 
CALLBACK
 
websWšdProc
(
HWND
 
hwnd
, 
msg
,

52 
wp
, 
Í
);

53 
a¥Te¡
(
eid
, 
webs_t
 
wp
, 
¬gc
, 
ch¬_t
 **
¬gv
);

54 
fÜmTe¡
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
);

55 
wšdowsIn™
(
HINSTANCE
 
hš¡ªû
);

56 
websHomePageHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
,

57 
¬g
, 
ch¬_t
 *
u¾
, ch¬_ˆ*
·th
, ch¬_ˆ*
qu”y
);

58 
´štMemSts
(
hªdË
, 
ch¬_t
 *
fmt
, ...);

59 
memL—ks
();

66 
WINAPI
 
	$WšMaš
(
HINSTANCE
 
hš¡ªû
, HINSTANCE 
h´evš¡ªû
,

67 
LPTSTR
 
¬gs
, 
cmd_show
)

69 
i
, 
demo
 = 0;

71 
i
 = 1; i < 
¬gc
; i++) {

72 ià(
	`¡rcmp
(
¬gv
[
i
], "-demo") == 0) {

73 
demo
++;

83 
	`bÝ’
(
NULL
, (60 * 1024), 
B_USE_MALLOC
);

88 ià(
	`wšdowsIn™
(
hš¡ªû
) < 0) {

89  
FALSE
;

95 ià(
	`š™Webs
(
demo
) < 0) {

96  
FALSE
;

99 #ifdeà
WEBS_SSL_SUPPORT


100 
	`websSSLO³n
();

108 !
fšished
) {

109 ià(
	`sock‘R—dy
(-1è|| 
	`sock‘S–eù
(-1, 
sockS”viûTime
)) {

110 
	`sock‘Proûss
(-1);

112 
	`emfSchedProûss
();

113 
	`websCgiCËªup
();

116 #ifdeà
WEBS_SSL_SUPPORT


117 
	`websSSLClo£
();

123 #ifdeà
USER_MANAGEMENT_SUPPORT


124 
	`umClo£
();

130 
	`websClo£S”v”
();

131 
	`sock‘Clo£
();

132 #ifdeà
B_STATS


133 
	`memL—ks
();

135 
	`bþo£
();

137 
	}
}

144 
	$š™Webs
(
demo
)

146 
ho¡’t
 *
hp
;

147 
š_addr
 
šddr
;

148 
ch¬_t
 
wbuf
[128];

149 
ho¡
[64];

150 *
ý
;

155 
	`sock‘O³n
();

160 #ifdeà
USER_MANAGEMENT_SUPPORT


161 
	`umO³n
();

162 
	`umRe¡Üe
(
	`T
("umconfig.txt"));

169 ià(
	`g‘ho¡Çme
(
ho¡
, (host)) < 0) {

170 
	`”rÜ
(
E_L
, 
E_LOG
, 
	`T
("Can't get hostname"));

173 ià((
hp
 = 
	`g‘ho¡byÇme
(
ho¡
)è=ð
NULL
) {

174 
	`”rÜ
(
E_L
, 
E_LOG
, 
	`T
("Can't get host‡ddress"));

177 
	`memýy
((*è&
šddr
, (*è
hp
->
h_addr_li¡
[0],

178 (
size_t
è
hp
->
h_Ëngth
);

183 ià(
demo
) {

184 
	`websS‘DeçuÉDœ
(
demoWeb
);

186 
	`websS‘DeçuÉDœ
(
roÙWeb
);

192 
ý
 = 
	`š‘_Áß
(
šddr
);

193 
	`ascToUni
(
wbuf
, 
ý
, 
	`mš
(
	`¡¾’
(cp) + 1, (wbuf)));

194 
	`websS‘I·ddr
(
wbuf
);

195 
	`ascToUni
(
wbuf
, 
hp
->
h_Çme
, 
	`mš
(
	`¡¾’
(hp->h_name) + 1, (wbuf)));

196 
	`websS‘Ho¡
(
wbuf
);

201 
	`websS‘DeçuÉPage
(
	`T
("default.asp"));

202 
	`websS‘PasswÜd
(
·sswÜd
);

208 
	`websO³nS”v”
(
pÜt
, 
»Œ›s
);

215 
	`websU¾HªdËrDefše
(
	`T
(""), 
NULL
, 0, 
websSecur™yHªdËr
,

216 
WEBS_HANDLER_FIRST
);

217 
	`websU¾HªdËrDefše
(
	`T
("/gofÜm"), 
NULL
, 0, 
websFÜmHªdËr
, 0);

218 
	`websU¾HªdËrDefše
(
	`T
("/cgi-bš"), 
NULL
, 0, 
websCgiHªdËr
, 0);

219 
	`websU¾HªdËrDefše
(
	`T
(""), 
NULL
, 0, 
websDeçuÉHªdËr
,

220 
WEBS_HANDLER_LAST
);

226 
	`websA¥Defše
(
	`T
("a¥Te¡"), 
a¥Te¡
);

227 
	`websFÜmDefše
(
	`T
("fÜmTe¡"), 
fÜmTe¡
);

232 #ifdeà
USER_MANAGEMENT_SUPPORT


233 
	`fÜmDefšeU£rMgmt
();

239 
	`websU¾HªdËrDefše
(
	`T
("/"), 
NULL
, 0, 
websHomePageHªdËr
, 0);

241 
	}
}

248 
	$wšdowsIn™
(
HINSTANCE
 
hš¡ªû
)

254 
WNDCLASS
 
wc
;

256 
	`emfIn¡S‘
((è
hš¡ªû
);

258 
wc
.
¡yË
 = 0;

259 
wc
.
hbrBackground
 = 
NULL
;

260 
wc
.
hCursÜ
 = 
NULL
;

261 
wc
.
cbClsExŒa
 = 0;

262 
wc
.
cbWndExŒa
 = 0;

263 
wc
.
hIn¡ªû
 = 
hš¡ªû
;

264 
wc
.
hIcÚ
 = 
NULL
;

265 
wc
.
ÍâWndProc
 = (
WNDPROC
è
websWšdProc
;

266 
wc
.
ÍszM’uName
 = 
NULL
;

267 
wc
.
ÍszCÏssName
 = 
Çme
;

268 ià(! 
	`Regi¡”CÏss
(&
wc
)) {

275 
hwnd
 = 
	`C»©eWšdow
(
Çme
, 
t™Ë
, 
WS_VISIBLE
,

276 
CW_USEDEFAULT
, 0, 0, 0, 
NULL
, NULL, 
hš¡ªû
, NULL);

277 ià(
hwnd
 =ð
NULL
) {

280 
	`ShowWšdow
(
hwnd
, 
SW_MINIMIZE
);

281 
	`Upd©eWšdow
(
hwnd
);

285 
	}
}

296 
CALLBACK
 
	$websWšdProc
(
HWND
 
hwnd
, 
msg
,

297 
wp
, 
Í
)

299 
msg
) {

300 
WM_DESTROY
:

301 
	`Po¡Qu™Mes§ge
(0);

302 
fšished
++;

305  
	`DefWšdowProc
(
hwnd
, 
msg
, 
wp
, 
Í
);

306 
	}
}

316 
	$a¥Te¡
(
eid
, 
webs_t
 
wp
, 
¬gc
, 
ch¬_t
 **
¬gv
)

318 
ch¬_t
 *
Çme
, *
add»ss
;

320 ià(
	`ejArgs
(
¬gc
, 
¬gv
, 
	`T
("% %s"), &
Çme
, &
add»ss
) < 2) {

321 
	`websE¼Ü
(
wp
, 400, 
	`T
("Insufficient‡rgs\n"));

324  
	`websWr™e
(
wp
, 
	`T
("Name: %s, Add»s %s"), 
Çme
, 
add»ss
);

325 
	}
}

333 
	$fÜmTe¡
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
)

335 
ch¬_t
 *
Çme
, *
add»ss
;

337 
Çme
 = 
	`websG‘V¬
(
wp
, 
	`T
("name"), T("Joe Smith"));

338 
add»ss
 = 
	`websG‘V¬
(
wp
, 
	`T
("address"), T("1212 Milky Way Ave."));

340 
	`websH—d”
(
wp
);

341 
	`websWr™e
(
wp
, 
	`T
("<body><h2>Name: %s, Add»ss: %s</h2>\n"), 
Çme
, 
add»ss
);

342 
	`websFoÙ”
(
wp
);

343 
	`websDÚe
(
wp
, 200);

344 
	}
}

351 
	$websHomePageHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
,

352 
¬g
, 
ch¬_t
 *
u¾
, ch¬_ˆ*
·th
, ch¬_ˆ*
qu”y
)

357 ià(*
u¾
 =ð'\0' || 
	`g¡rcmp
(u¾, 
	`T
("/")) == 0) {

358 
	`websRedœeù
(
wp
, 
	`T
("home.asp"));

362 
	}
}

365 #ifdeà
B_STATS


366 
	$memL—ks
()

368 
fd
;

370 ià((
fd
 = 
	`gÝ’
(
	`T
("Ëak.txt"), 
O_CREAT
 | 
O_TRUNC
 | 
O_WRONLY
)) >= 0) {

371 
	`b¡©s
(
fd
, 
´štMemSts
);

372 
	`þo£
(
fd
);

374 
	}
}

381 
	$´štMemSts
(
hªdË
, 
ch¬_t
 *
fmt
, ...)

383 
va_li¡
 
¬gs
;

384 
ch¬_t
 
buf
[256];

386 
	`va_¡¬t
(
¬gs
, 
fmt
);

387 
	`v¥rštf
(
buf
, 
fmt
, 
¬gs
);

388 
	`va_’d
(
¬gs
);

389 
	`wr™e
(
hªdË
, 
buf
, 
	`¡¾’
(buf));

390 
	}
}

	@CE/wincompat.c

18 
	#IN_GETOPT


	)

20 
	~<wšdows.h
>

22 #ifdeà
UEMF


23 
	~"../uemf.h
"

25 
	~"basic/basicIÁ”Çl.h
"

26 
	~<dœeù.h
>

27 
	~<fúŽ.h
>

28 
	~<g‘Ýt.h
>

29 
	~<io.h
>

30 
	~<pwd.h
>

31 
	~<¡©.h
>

32 
	~<¡dio.h
>

33 
	~<¡ršg.h
>

34 
	~<time.h
>

35 
	~<timeb.h
>

36 
	~<ty³s.h
>

37 
	~<uni¡d.h
>

38 
	~<ulim™.h
>

44 
HANDLE
 
	mhªd
;

45 } 
	tfh_t
;

49 
	g”ºo
;

50 
	$__deþ¥ec
(
dÎexpÜt
è
Ý‹¼
 = 1;

51 
	$__deþ¥ec
(
dÎexpÜt
è
Ýtšd
 = 1;

52 
	$__deþ¥ec
(
dÎexpÜt
è
ÝtÝt
;

53 
	$__deþ¥ec
(
dÎexpÜt
è
ch¬_t
* 
Ýrg
;

57 
Ýtswi
 = '-';

59 
fh_t
 **
f
;

60 
fMax
;

65 
tm
 
loÿÉm
;

70 
ch¬_t
 
loÿlùime
[32];

72 
ch¬_t
 *
mÚths
[] = {

73 
	`T
("Jan"), T("Feb"), T("Mar"), T("Apr"), T("May"), T("Jun"), T("Jul"),

74 
	`T
("Aug"), T("Sep"), T("Oct"), T("Nov"), T("Dec")

75 
	}
};

77 
ch¬_t
 *
	gdays
[] = {

78 
T
("Sun"), T("Mon"), T("Tue"), T("Wed"), T("Thu"), T("Fri"), T("Sat")

81 
ch¬_t
 
	gûCwd
[
LF_PATHSIZE
];

83 
ch¬_t
 *
_wg‘cwd
(ch¬_ˆ*
dœ
, 
Ën
);

84 
_wchdœ
(*
·th
);

88 
uid_t
 
	$g‘euid
()

91 
	}
}

95 
	$g‘Ýt
(
¬gc
, 
ch¬_t
* cÚ¡ * 
¬gv
, cÚ¡ ch¬_t* 
Ýts
)

97 
ch¬_t
 *
ý
;

98 
ch¬_t
 
nosw™ch
[3];

99 
¥
 = 1;

100 
c
;

102 
	`g¡º£t
(
nosw™ch
, 
Ýtswi
, 2);

103 
nosw™ch
[2]=0;

104 ià(
¥
 == 1) {

105 ià(
Ýtšd
 >ð
¬gc
 ||

106 
¬gv
[
Ýtšd
][0] !ð
Ýtswi
 ||‡rgv[optind][1] == '\0') {

107 (
EOF
);

109 ià(
	`g¡rcmp
(
¬gv
[
Ýtšd
], 
nosw™ch
) == 0) {

110 
Ýtšd
++;

111 (
EOF
);

114 
ÝtÝt
 = 
c
 = 
¬gv
[
Ýtšd
][
¥
];

115 ià(
c
 =ð':' || (
ý
 = 
	`g¡rchr
(
Ýts
, (
ch¬_t
èc)è=ð
NULL
) {

116 ià(
¬gv
[
Ýtšd
][++
¥
] == '\0') {

117 
Ýtšd
++;

118 
¥
 = 1;

122 ià(*++
ý
 == ':') {

123 ià(
¬gv
[
Ýtšd
][
¥
+1] != '\0') {

124 
Ýrg
 = &
¬gv
[
Ýtšd
++][
¥
+1];

125 } ià(++
Ýtšd
 >ð
¬gc
) {

126 
¥
 = 1;

129 
Ýrg
 = 
¬gv
[
Ýtšd
++];

131 
¥
 = 1;

133 ià(
¬gv
[
Ýtšd
][++
¥
] == '\0') {

134 
¥
 = 1;

135 
Ýtšd
++;

137 
Ýrg
 = 
NULL
;

139 (
c
);

140 
	}
}

147 
	$¦“p
(
s
)

149 
	`SË•
(
s
 * 1000);

151 
	}
}

158 
	$Çp
(
ms
)

160 
	`SË•
(
ms
);

162 
	}
}

169 
time_t
 
	$timeM£c
()

171 
timeb
 
tbnow
;

172 
time_t
 
£c
;

173 
m£c
;

174 
time_t
 
¡¬t
 = 0;

175 
time_t
 
¡¬t_m£c
;

177 
	`áime
(&
tbnow
);

178 ià(
¡¬t
 == 0) {

179 
¡¬t
 = 
tbnow
.
time
;

180 
¡¬t_m£c
 = 
tbnow
.
mžl™m
;

182 
£c
 = 
tbnow
.
time
 - 
¡¬t
;

183 
m£c
 = 
tbnow
.
mžl™m
 - 
¡¬t_m£c
;

184 ià(
m£c
 < 0) {

185 
m£c
 += 1000;

186 
£c
 -= 1;

188  
£c
 * 1000 + 
m£c
;

189 
	}
}

199 
	#SECS_BETWEEN_1601_AND_1970
 3054510208

	)

201 
time_t
 
	$fžeTimeToUnixEpochTime
(
FILETIME
 
f
)

203 
ULARGE_INTEGER
 
uli
;

205 
uli
.
LowP¬t
 = 
f
.
dwLowD©eTime
;

206 
uli
.
HighP¬t
 = 
f
.
dwHighD©eTime
;

207 
uli
.
QuadP¬t
 /= 10000000;

209 ((
time_t
è
uli
.
QuadP¬t
 - 
SECS_BETWEEN_1601_AND_1970
);

210 
	}
}

217 
time_t
 
	$time
(
time_t
 *
tim”
)

219 
SYSTEMTIME
 
¡ime
;

220 
FILETIME
 
áime
;

221 
time_t
 
tmp
;

223 
	`G‘LoÿlTime
(&
¡ime
);

224 
	`Sy¡emTimeToFžeTime
(&
¡ime
, &
áime
);

225 
tmp
 = 
	`fžeTimeToUnixEpochTime
(
áime
);

226 ià(
tim”
 !ð
NULL
) {

227 *
tim”
 = 
tmp
;

229  
tmp
;

230 
	}
}

237 
tm
* 
	$loÿÉime
(cÚ¡ 
time_t
 *
tim”
)

239 
SYSTEMTIME
 
¡ime
;

240 
	`G‘LoÿlTime
(&
¡ime
);

242 
loÿÉm
.
tm_£c
 = 
¡ime
.
wSecÚd
;

243 
loÿÉm
.
tm_mš
 = 
¡ime
.
wMšu‹
;

244 
loÿÉm
.
tm_hour
 = 
¡ime
.
wHour
;

245 
loÿÉm
.
tm_mday
 = 
¡ime
.
wDay
;

246 
loÿÉm
.
tm_wday
 = 
¡ime
.
wDayOfW“k
;

247 
loÿÉm
.
tm_mÚ
 = 
¡ime
.
wMÚth
 - 1;

248 
loÿÉm
.
tm_y—r
 = 
¡ime
.
wY—r
 - 1900;

253 
loÿÉm
.
tm_yday
 = -1;

254 
loÿÉm
.
tm_isd¡
 = -1;

255 
loÿÉm
.
tm_tzadj
 = -1;

256 
loÿÉm
.
tm_Çme
[0] = 0;

257  &
loÿÉm
;

258 
	}
}

260 #iâdeà
LITTLEFOOT


266 
ch¬_t
* 
	$_wùime
(cÚ¡ 
time_t
 *
tim”
)

268 
SYSTEMTIME
 
¡ime
;

269 
FILETIME
 
áime
;

270 
ULARGE_INTEGER
 
uli
;

272 
uli
.
QuadP¬t
 = *
tim”
 * 10000000;

273 
áime
.
dwLowD©eTime
 = 
uli
.
LowP¬t
;

274 
áime
.
dwHighD©eTime
 = 
uli
.
HighP¬t
;

276 ià(
	`FžeTimeToSy¡emTime
(&
áime
, &
¡ime
) == 0) {

277  
NULL
;

280 
	`w¥rštf
(
loÿlùime
, 
	`T
("%s %s %02d %02d:%02d:%02d %04d\n"),

281 
days
[
¡ime
.
wDayOfW“k
], 
mÚths
[¡ime.
wMÚth
 - 1], stime.
wDay
,

282 
¡ime
.
wHour
, stime.
wMšu‹
, stime.
wSecÚd
, stime.
wY—r
);

283  
loÿlùime
;

284 
	}
}

291 
ch¬_t
 *
	$_wasùime
(cÚ¡ 
tm
 *
tim•Œ
)

293 
ch¬_t
 
¡rTime
[52];

295 
	`w¥rštf
(
¡rTime
, 
	`T
("%s %s %02d %02d:%02d:%02d %04d\n"),

296 
days
[
tim•Œ
->
tm_wday
], 
mÚths
[tim•Œ->
tm_mÚ
],im•Œ->
tm_mday
,

297 
tim•Œ
->
tm_hour
,im•Œ->
tm_mš
,im•Œ->
tm_£c
,

298 (
tim•Œ
->
tm_y—r
 + 1900));

300  &
¡rTime
[0];

301 
	}
}

309 
	$áime
(
timeb
 *

)

311 

->
time
 = 
	`time
(
NULL
);

312 

->
mžl™m
 = 0;

314 #ifdeà
UNSUPPORTED


315 
timezÚe
;

316 
d¡æag
;

318 
	}
}

325 
	$_wÝ’
(cÚ¡ 
ch¬_t
 *
·th
, 
oæag
, ...)

327 
HANDLE
 
hFže
;

328 
DWORD
 
dwDesœedAcûss
, 
dwSh¬eMode
, 
dwC»©iÚDi¥os™iÚ
;

329 
fh_t
 *
å
;

330 
fid
;

331 
ch¬_t
 *
cwd
, *
fž•©h
;

333 
fž•©h
 = 
	`b®loc
(
B_L
, 
LF_PATHSIZE
 * (
ch¬_t
));

334 
cwd
 = 
	`b®loc
(
B_L
, 
LF_PATHSIZE
 * (
ch¬_t
));

336 ià((*
·th
 != '/') && (*path != '\\')) {

337 
cwd
 = 
	`_wg‘cwd
(cwd, 
LF_PATHSIZE
);

338 ià(
cwd
 =ð
NULL
) {

341 
	`fmtAÎoc
(&
fž•©h
, 
LF_PATHSIZE
, 
	`T
("%s/%s"), 
cwd
, 
·th
);

343 
	`wcsýy
(
fž•©h
, 
·th
);

346 
dwDesœedAcûss
 = 0;

347 ià(((
oæag
 & 0xFè=ð
O_RDONLY
è|| (oæag & 
O_RDWR
)) {

348 
dwDesœedAcûss
 |ð
GENERIC_READ
;

350 ià(
oæag
 & 
O_WRONLY
 || oæag & 
O_RDWR
) {

351 
dwDesœedAcûss
 |ð
GENERIC_WRITE
;

353 
dwSh¬eMode
 = 
FILE_SHARE_READ
 | 
FILE_SHARE_WRITE
;

354 ià(
oæag
 & 
O_CREAT
) {

355 
dwC»©iÚDi¥os™iÚ
 = 
OPEN_ALWAYS
;

357 
dwC»©iÚDi¥os™iÚ
 = 
OPEN_EXISTING
;

360 ià((
hFže
 = 
	`C»©eFže
(
fž•©h
, 
dwDesœedAcûss
, 
dwSh¬eMode
, 
NULL
,

361 
dwC»©iÚDi¥os™iÚ
, 
FILE_ATTRIBUTE_NORMAL
,

362 
NULL
)è=ð
INVALID_HANDLE_VALUE
) {

363 
	`bä“
(
B_L
, 
fž•©h
);

364 
	`bä“
(
B_L
, 
cwd
);

371 ià((
fid
 = 
	`hAÎocEÁry
((***è&
f
, &
fMax
, (
fh_t
))) < 0) {

372 
	`bä“
(
B_L
, 
fž•©h
);

373 
	`bä“
(
B_L
, 
cwd
);

376 
å
 = 
f
[
fid
];

377 
å
->
hªd
 = 
hFže
;

378 
	`bä“
(
B_L
, 
fž•©h
);

379 
	`bä“
(
B_L
, 
cwd
);

381  
fid
;

382 
	}
}

389 
	$þo£
(
fid
)

391 
fh_t
 *
å
;

393 
	`a_as£¹
(0 <ð
fid
 && fid < 
fMax
);

394 
å
 = 
f
[
fid
];

395 ià(
å
 =ð
NULL
) {

398 
	`Clo£HªdË
(
å
->
hªd
);

399 
fMax
 = 
	`hF»e
((***è&
f
, 
fid
);

400 
	`bä“Saã
(
B_L
, 
å
);

403 
	}
}

410 
	$»ad
(
fid
, *
buf
, 
Ën
)

412 
fh_t
 *
å
;

413 
by‹sR—d
;

415 
	`a_as£¹
(0 <ð
fid
 && fid < 
fMax
);

416 
å
 = 
f
[
fid
];

417 ià(
å
 =ð
NULL
) {

421 ià(
	`R—dFže
(
å
->
hªd
, 
buf
, 
Ën
, &
by‹sR—d
, 
NULL
) == 0) {

424  
by‹sR—d
;

425 
	}
}

432 
	$»adAscToUni
(
fid
, **
buf
, 
Ën
)

434 
fh_t
 *
å
;

435 
by‹sR—d
;

436 
ch¬_t
 *
uniBuf
;

438 
	`a_as£¹
(0 <ð
fid
 && fid < 
fMax
);

439 
å
 = 
f
[
fid
];

440 ià(
å
 =ð
NULL
) {

444 ià(
	`R—dFže
(
å
->
hªd
, *
buf
, 
Ën
, &
by‹sR—d
, 
NULL
) == 0) {

448 
uniBuf
 = 
	`b®locAscToUni
(*
buf
, 
Ën
);

449 
	`bä“
(
B_L
, *
buf
);

450 *
buf
 = 
uniBuf
;

452  
by‹sR—d
;

453 
	}
}

460 
	$wr™e
(
fid
, *
buf
, 
Ën
)

462 
fh_t
 *
å
;

463 
by‹sWr™‹n
;

465 
	`a_as£¹
(0 <ð
fid
 && fid < 
fMax
);

466 
å
 = 
f
[
fid
];

467 ià(
å
 =ð
NULL
) {

471 ià(
	`Wr™eFže
(
å
->
hªd
, 
buf
, 
Ën
, &
by‹sWr™‹n
, 
NULL
) == 0) {

474  
by‹sWr™‹n
;

475 
	}
}

482 
	$wr™eUniToAsc
(
fid
, *
buf
, 
Ën
)

484 
fh_t
 *
å
;

485 
by‹sWr™‹n
;

486 *
asciiBuf
;

488 
	`a_as£¹
(0 <ð
fid
 && fid < 
fMax
);

489 
å
 = 
f
[
fid
];

490 ià(
å
 =ð
NULL
) {

494 
asciiBuf
 = 
	`b®locUniToAsc
(
buf
, 
Ën
);

496 ià(
	`Wr™eFže
(
å
->
hªd
, 
asciiBuf
, 
Ën
, &
by‹sWr™‹n
, 
NULL
) == 0) {

497 
	`bä“
(
B_L
, 
asciiBuf
);

500 
	`bä“
(
B_L
, 
asciiBuf
);

501  
by‹sWr™‹n
;

502 
	}
}

509 
	$_wuÆšk
(
ch¬_t
 *
fže
)

511 
ch¬_t
 *
cwd
, *
cwdFže
;

513 
cwdFže
 = 
NULL
;

514 ià((*
fže
 != '/') && (*file != '\\')) {

515 
cwd
 = 
	`b®loc
(
B_L
, 
LF_PATHSIZE
);

516 
	`gg‘cwd
(
cwd
, 
LF_PATHSIZE
 / (
ch¬_t
));

517 
	`fmtAÎoc
(&
cwdFže
, 
LF_PATHSIZE
 / (
ch¬_t
), 
	`T
("%s/%s"), 
cwd
, 
fže
);

518 
	`bä“
(
B_L
, 
cwd
);

519 
fže
 = 
cwdFže
;

522 ià(
	`D–‘eFže
(
fže
è!ð
TRUE
) {

523 
	`bä“Saã
(
B_L
, 
cwdFže
);

526 
	`bä“Saã
(
B_L
, 
cwdFže
);

528 
	}
}

535 
	$_wmkdœ
(cÚ¡ 
ch¬_t
 *
·th
)

537 
ch¬_t
 *
cwd
, *
cwdP©h
;

539 
cwdP©h
 = 
NULL
;

540 ià((*
·th
 != '/') && (*path != '\\')) {

541 
cwd
 = 
	`b®loc
(
B_L
, 
LF_PATHSIZE
);

542 
	`gg‘cwd
(
cwd
, 
LF_PATHSIZE
 / (
ch¬_t
));

543 
	`fmtAÎoc
(&
cwdP©h
, 
LF_PATHSIZE
, 
	`T
("%s/%s"), 
cwd
, 
·th
);

544 
	`bä“
(
B_L
, 
cwd
);

545 
·th
 = 
cwdP©h
;

548 ià(
	`C»©eDœeùÜy
(
·th
, 
NULL
) == 0) {

549 
	`bä“Saã
(
B_L
, 
cwdP©h
);

552 
	`bä“Saã
(
B_L
, 
cwdP©h
);

554 
	}
}

561 
	$_wrmdœ
(cÚ¡ 
ch¬_t
 *
·th
)

563 
ch¬_t
 *
cwd
, *
cwdP©h
;

565 
cwdP©h
 = 
NULL
;

566 ià((*
·th
 != '/') && (*path != '\\')) {

567 
cwd
 = 
	`b®loc
(
B_L
, 
LF_PATHSIZE
);

568 
	`gg‘cwd
(
cwd
, 
LF_PATHSIZE
 / (
ch¬_t
));

569 
	`fmtAÎoc
(&
cwdP©h
, 
LF_PATHSIZE
, 
	`T
("%s/%s"), 
cwd
, 
·th
);

570 
	`bä“
(
B_L
, 
cwd
);

571 
·th
 = 
cwdP©h
;

574 ià(
	`RemoveDœeùÜy
(
·th
) == 0) {

575 
	`bä“Saã
(
B_L
, 
cwdP©h
);

578 
	`bä“Saã
(
B_L
, 
cwdP©h
);

580 
	}
}

587 
	$f¡©
(
fid
, 
_¡©
 *
sbuf
)

589 
BY_HANDLE_FILE_INFORMATION
 
šfo
;

590 
size
;

591 
fh_t
 *
å
;

593 
	`a_as£¹
(0 <ð
fid
 && fid < 
fMax
);

594 
å
 = 
f
[
fid
];

595 ià(
å
 =ð
NULL
 || fp->
hªd
 =ð
INVALID_HANDLE_VALUE
) {

599 
size
 = 
	`G‘FžeSize
(
å
->
hªd
, 
NULL
);

600 ià(
size
 == 0xFFFFFFFF) {

603 
sbuf
->
¡_size
 = (è
size
;

605 ià(
	`G‘FžeInfÜm©iÚByHªdË
(
å
->
hªd
, &
šfo
)) {

606 ià(
šfo
.
dwFžeA‰ribu‹s
 & 
FILE_ATTRIBUTE_DIRECTORY
) {

607 
sbuf
->
¡_mode
 = 
S_IFDIR
;

609 
sbuf
->
¡_mode
 = 
S_IFREG
;

611 
sbuf
->
¡_mtime
 = 
	`fžeTimeToUnixEpochTime
(
šfo
.
áLa¡Wr™eTime
);

616 
	}
}

623 
	$_w¡©
(
ch¬_t
 *
fž’ame
, 
_¡©
 *
sbuf
)

625 
DWORD
 
dwA‰ribu‹s
;

626 
fid
, 
rc
;

628 
	`mem£t
(
sbuf
, 0, (
_¡©
));

629 
dwA‰ribu‹s
 = 
	`G‘FžeA‰ribu‹s
(
fž’ame
);

630 ià(
dwA‰ribu‹s
 !ð0xFFFFFFFF && dwA‰ribu‹ & 
FILE_ATTRIBUTE_DIRECTORY
) {

631 
sbuf
->
¡_mode
 = 
S_IFDIR
;

634 
sbuf
->
¡_mode
 = 
S_IFREG
;

636 ià((
fid
 = 
	`_wÝ’
(
fž’ame
, 0, 0)) < 0) {

640 
rc
 = 
	`f¡©
(
fid
, 
sbuf
);

641 
	`þo£
(
fid
);

643  
rc
;

644 
	}
}

651 
	$_w»Çme
(cÚ¡ 
ch¬_t
 *
ÞdÇme
, cÚ¡ ch¬_ˆ*
ÃwÇme
)

653 
ch¬_t
 *
cwd
, *
cwdOldÇme
, *
cwdNewÇme
;

655 
cwdOldÇme
 = 
cwd
 = 
NULL
;

656 ià((*
ÞdÇme
 != '/') && (*oldname != '\\')) {

657 
cwd
 = 
	`b®loc
(
B_L
, 
LF_PATHSIZE
);

658 
	`gg‘cwd
(
cwd
, 
LF_PATHSIZE
 / (
ch¬_t
));

659 
	`fmtAÎoc
(&
cwdOldÇme
, 
LF_PATHSIZE
, 
	`T
("%s/%s"), 
cwd
, 
ÞdÇme
);

660 
ÞdÇme
 = 
cwdOldÇme
;

663 
cwdNewÇme
 = 
NULL
;

664 ià((*
ÃwÇme
 != '/') && (*newname != '\\')) {

665 ià(
cwd
 !ð
NULL
) {

666 
cwd
 = 
	`b®loc
(
B_L
, 
LF_PATHSIZE
);

667 
	`gg‘cwd
(
cwd
, 
LF_PATHSIZE
 / (
ch¬_t
));

669 
	`fmtAÎoc
(&
cwdNewÇme
, 
LF_PATHSIZE
, 
	`T
("%s/%s"), 
cwd
, 
ÃwÇme
);

670 
ÃwÇme
 = 
cwdNewÇme
;

673 ià(
	`MoveFže
(
ÞdÇme
, 
ÃwÇme
) == 0) {

674 
	`bä“Saã
(
B_L
, 
cwdOldÇme
);

675 
	`bä“Saã
(
B_L
, 
cwdNewÇme
);

676 
	`bä“Saã
(
B_L
, 
cwd
);

679 
	`bä“Saã
(
B_L
, 
cwdOldÇme
);

680 
	`bä“Saã
(
B_L
, 
cwdNewÇme
);

681 
	`bä“Saã
(
B_L
, 
cwd
);

684 
	}
}

691 
	$_wacûss
(cÚ¡ *
·th
, 
mode
)

693 
fid
, 
omode
;

695 ià(
mode
 =ð
R_OK
) {

696 
omode
 = 
O_RDONLY
;

697 } ià(
mode
 =ð
W_OK
) {

698 
omode
 = 
O_RDWR
;

700 
	`a_as£¹
(0);

702 ià((
fid
 = 
	`_wÝ’
(
·th
, 
omode
)) < 0) {

705 
	`þo£
(
fid
);

707 
	}
}

715 
FILE
* 
	$fdÝ’
(
hªdË
, cÚ¡ *
mode
)

717  (
FILE
*è
hªdË
;

718 
	}
}

721 
	$fþo£
(
FILE
 *
¡»am
)

723 
fh_t
 *
å
;

724 
fid
;

726 
fid
 = 0; fid > 
fMax
; fid++) {

727 ià((
å
 = 
f
[
fid
]è!ð
NULL
) {

728 ià(
å
->
hªd
 =ð
¡»am
) {

729 
	`þo£
(
fid
);

734  
EOF
;

735 
	}
}

737 
	$fæush
(
FILE
* 
¡»am
)

740 
	}
}

747 
	$l£ek
(
hªdË
, 
off£t
, 
Üigš
)

749 
fh_t
 *
å
;

751 
å
 = 
f
[
hªdË
];

752  
	`S‘FžePoš‹r
(
å
->
hªd
, 
off£t
, 
NULL
, 
Üigš
);

753 
	}
}

768 
	$isuµ”
(
c
)

770 ià(
c
 >= 'A' && c <= 'Z') {

774 
	}
}

781 
	$i¦ow”
(
c
)

783 ià(
c
 >= 'a' && c <= 'z') {

787 
	}
}

794 
	$isdig™
(
c
)

796 ià(
c
 >= '0' && c <= '9') {

800 
	}
}

807 
	$is¥aû
(
c
)

809 ià(
c
 >= 0x9 && c <= 0xd || c == 0x20) {

813 
	}
}

820 
	$i¥ršt
(
c
)

822 ià(
c
 >= 0x20 && c <= 0x7e) {

826 
	}
}

833 
	$isxdig™
(
c
)

835 ià((
c
 >= '0' && c <= '9') ||

836 (
c
 >= 'a' && c <= 'f') ||

837 (
c
 >= 'A' && c <= 'F')) {

841 
	}
}

846 #iâdeà
LITTLEFOOT


847 
	$umask
(
mode
)

850 
	}
}

858 
	$w´štf
(cÚ¡ 
ch¬_t
 *
fmt
, ...)

861 
	}
}

865 
	$fw´štf
(
FILE
 *
¡»am
, cÚ¡ 
ch¬_t
 *
fmt
, ...)

868 
	}
}

870 
	$åutws
(cÚ¡ 
ch¬_t
 *
fmt
, 
FILE
 *
¡»am
)

873 
	}
}

876 #iâdeà
LITTLEFOOT


877 
	$_wexecvp
(
ch¬_t
 *
·th
, ch¬_t** 
¬gv
)

880 
	}
}

888 
ch¬_t
 *
	$_wg‘cwd
(
ch¬_t
 *
dœ
, 
Ën
)

890 ià(
Ën
 > 
LF_PATHSIZE
) {

891  
NULL
;

893  
	`wcsýy
(
dœ
, 
ûCwd
);

895 
	}
}

902 
	$_wchdœ
(*
·th
)

904 
ch¬_t
 *
p
;

905 
ch¬_t
 
buf
[
LF_PATHSIZE
];

906 
Ën
;

907 
g¡©_t
 
¡©Dœ
;

912 *
·th
 == ' ') {

913 
·th
++;

916 ià(
·th
 =ð
NULL
 || *path == '\0') {

918 } ià((*
·th
 == '/') || (*path == '\\')) {

919 
	`wcsýy
(
ûCwd
, 
·th
);

927 
p
 = 
·th
; *p;…++) {

928 ià(*
p
 == '\\') {

929 *
p
 = '/';

933 
	`g¡rýy
(
buf
, 
ûCwd
);

934 
p
 = 
buf
; *p;…++) {

935 ià(*
p
 == '\\') {

936 *
p
 = '/';

940 ià(*
·th
 == '.' && *(path+1) == '/') {

941 
·th
++;

942 *
·th
 == '/') {

943 
·th
++;

946 *
·th
 == '.' && *(path+1) == '.') {

947 
·th
 += 2;

948 ià((
p
 = 
	`wc¤chr
(
buf
, '/')è=ð
NULL
) {

951 *
p
 = '\0';

952 ià(*
·th
 == '\0') {

955 ià(*
·th
 != '/') {

958 *
·th
 == '/') {

959 
·th
++;

965 *
·th
 == '.' || *path == ' ') {

966 
·th
++;

972 
Ën
 = 
	`wc¦’
(
buf
);

973 ià(*(
buf
 + 
Ën
 - 1) != '/') {

974 *(
buf
 + 
Ën
) = '/';

975 *(
buf
 + 
Ën
 + 1) = '\0';

976 
Ën
++;

978 ià((
Ën
 + 
	`g¡¾’
(
·th
è+ 1è> 
LF_PATHSIZE
 ) {

981 
	`g¡rýy
(
buf
+
Ën
, 
·th
);

983 ià(
	`_w¡©
(
buf
, &
¡©Dœ
) == -1) {

986 
	`g¡rýy
(
ûCwd
, 
buf
);

989 
	}
}

996 
	$_wchmod
(cÚ¡ 
ch¬_t
 *
fž’ame
, 
pmode
)

999 
	}
}

	@CE/wincompat.h

8 #iâdeà
_h_WINCOMPAT


9 
	#_h_WINCOMPAT
 1

	)

14 
	tFILE
;

16 
	#BUFSIZ
 1024

	)

17 
	#PATHSIZE
 1024

	)

22 
ex™
(
¡©us
);

23 
_wmkdœ
(cÚ¡ *
·th
);

24 * 
_wg‘cwd
(*
dœ
, 
Ën
);

26 
l£ek
(
hªdË
, 
off£t
, 
Üigš
);

27 
	#SEEK_CUR
 1

	)

28 
	#SEEK_END
 2

	)

29 
	#SEEK_SET
 0

	)

31 
	#EOF
 (-1)

	)

36 
	#O_RDONLY
 0x0

	)

37 
	#O_WRONLY
 0x1

	)

38 
	#O_RDWR
 0x2

	)

39 
	#O_ACCMODE
 0x3

	)

40 
	#O_NDELAY
 0x4

	)

41 
	#O_APPEND
 0x8

	)

42 
	#O_NONBLOCK
 0x10

	)

43 
	#O_BINARY
 0x20

	)

44 
	#O_CREAT
 0x40

	)

45 
	#O_TRUNC
 0x80

	)

46 
	#O_NOCTTY
 0x100

	)

48 
_wÝ’
(cÚ¡ * 
fž’ame
, 
oæag
, ...);

49 
»ad
(
hªdË
, * 
bufãr
, 
couÁ
);

50 
wr™e
(
hªdË
, cÚ¡ * 
bufãr
, 
couÁ
);

51 
þo£
(
hªdË
);

52 
_w»Çme
(cÚ¡ * 
ÞdÇme
, cÚ¡ * 
ÃwÇme
);

53 
FILE
* 
fdÝ’
(
hªdË
, cÚ¡ * 
mode
);

58 
g‘Ýt
(, * const *, const *);

63 #undeà
u_lÚg


64 #undeà
u_shÜt


66 
	tmode_t
;

67 
	tu_ch¬
;

68 
	tušt
;

69 
	tušt_t
;

70 
	tu_št
;

71 
	tu_lÚg
;

72 
	tulÚg
;

73 
	tu_shÜt
;

74 
	tushÜt
;

75 
	tunch¬
;

76 * 
	tÿddr_t
;

77 
	tpid_t
;

78 
	tuid_t
;

79 
	tgid_t
;

85 
_wuÆšk
(* 
fž’ame
);

86 
_w»Çme
(cÚ¡ * 
ÞdÇme
, cÚ¡ * 
ÃwÇme
);

87 
_wacûss
(cÚ¡ * 
·th
, 
mode
);

88 
_wchdœ
(* 
·th
);

89 
_wexecvp
(*
·th
, ** 
¬gv
);

90 
umask
(
mode
);

95 
isuµ”
(
c
);

96 
i¦ow”
(
c
);

97 
isdig™
(
c
);

98 
is¥aû
(
c
);

99 
i¥ršt
(
c
);

100 
isxdig™
(
c
);

105 
	s_¡©
 {

107 
	m¡_size
;

108 
	m¡_mode
;

111 
	m¡_size
;

112 
	m¡_mode
;

114 
time_t
 
	m¡_©ime
;

115 
time_t
 
	m¡_mtime
;

116 
time_t
 
	m¡_ùime
;

119 
	#S_IFREG
 0100000

	)

120 
	#S_IFDIR
 0040000

	)

122 
_w¡©
(* 
·th
, 
_¡©
* 
bufãr
);

123 
f¡©
(
fž’umb”
, 
_¡©
* 
bufãr
);

129 
	#EINTR
 4

	)

130 
	#ENXIO
 6

	)

131 
	#EBADF
 9

	)

132 
	#EAGAIN
 11

	)

133 
	#EINVAL
 22

	)

135 
”ºo
;

140 
	stm


142 
	mtm_£c
;

143 
	mtm_mš
;

144 
	mtm_hour
;

145 
	mtm_mday
;

146 
	mtm_mÚ
;

147 
	mtm_y—r
;

148 
	mtm_wday
;

149 
	mtm_yday
;

150 
	mtm_isd¡
;

151 
	#LTZNMAX
 50

	)

152 
	mtm_tzadj
;

153 
	mtm_Çme
[
LTZNMAX
];

157 * 
_wùime
(cÚ¡ 
time_t
* 
tim”
);

158 
time_t
 
time
Ñime_t* 
tim”
);

159 
tm
 *
loÿÉime
(cÚ¡ 
time_t
* 
tim”
);

160 *
_wasùime
(cÚ¡ 
tm
 *
tim•Œ
);

165 
	stimeb
 {

167 
time_t
 
	mtime
;

168 
	mmžl™m
;

169 
	mtimezÚe
;

170 
	md¡æag
;

173 
áime
(
timeb
* 

);

178 
Çp
();

179 
¦“p
(
£cs
);

180 
uid_t
 
g‘euid
();

182 
	#R_OK
 4

	)

183 
	#W_OK
 2

	)

184 
	#X_OK
 1

	)

185 
	#F_OK
 0

	)

187 * 
¡rdup
(cÚ¡ *
s
);

	@ECOS/main.c

19 
	~"../uemf.h
"

20 
	~"../wsIÁº.h
"

22 
	~<ÃtwÜk.h
>

29 
ch¬_t
 *
	g·sswÜd
 = 
T
("");

30 
	gpÜt
 = 80;

31 
	g»Œ›s
 = 5;

32 
	gfšished
;

36 
š™Webs
();

37 
a¥Te¡
(
eid
, 
webs_t
 
wp
, 
¬gc
, 
ch¬_t
 **
¬gv
);

38 
fÜmTe¡
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
);

39 
websHomePageHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
,

40 
¬g
, 
ch¬_t
* 
u¾
, ch¬_t* 
·th
, ch¬_t* 
qu”y
);

42 #ifdeà
B_STATS


43 #”rÜ 
WARNING
: 
B_STATS
 
dœeùive
 
is
 
nÙ
 
suµÜ‹d
 
š
 
this
 
OS
!

51 
	$maš
(
¬gc
, ** 
¬gv
)

59 
	`bÝ’
(
NULL
, (60 * 1024), 
B_USE_MALLOC
);

64 ià(
	`š™Webs
() < 0) {

73 !
fšished
) {

74 ià(
	`sock‘R—dy
(-1è|| 
	`sock‘S–eù
(-1, 2000)) {

75 
	`sock‘Proûss
(-1);

77 
	`emfSchedProûss
();

83 
	`websClo£S”v”
();

84 
	`sock‘Clo£
();

85 
	`bþo£
();

87 
	}
}

94 
	$š™Webs
()

96 
ho¡
[128];

97 *
ý
;

98 
ch¬_t
 
wbuf
[128];

104 
	`š™_®l_ÃtwÜk_š‹rçûs
();

109 
	`sock‘O³n
();

114 
	`websS‘DeçuÉDœ
("/www");

115 
ý
 = 
	`š‘_Áß
(
‘h0_boÙp_d©a
.
bp_yŸddr
);

116 
	`ascToUni
(
wbuf
, 
ý
, 
	`mš
(
	`¡¾’
(cp) + 1, (wbuf)));

117 
	`websS‘I·ddr
(
wbuf
);

118 
	`ascToUni
(
wbuf
, 
ho¡
, 
	`mš
(
	`¡¾’
(host) + 1, (wbuf)));

119 
	`websS‘Ho¡
(
wbuf
);

124 
	`websS‘DeçuÉPage
(
	`T
("home.htm"));

125 
	`websS‘PasswÜd
(
·sswÜd
);

131 
	`websO³nS”v”
(
pÜt
, 
»Œ›s
);

138 
	`websU¾HªdËrDefše
(
	`T
(""), 
NULL
, 0, 
websSecur™yHªdËr
,

139 
WEBS_HANDLER_FIRST
);

140 
	`websU¾HªdËrDefše
(
	`T
("/gofÜm"), 
NULL
, 0, 
websFÜmHªdËr
, 0);

141 
	`websU¾HªdËrDefše
(
	`T
(""), 
NULL
, 0, 
websDeçuÉHªdËr
,

142 
WEBS_HANDLER_LAST
);

148 
	`websA¥Defše
(
	`T
("a¥Te¡"), 
a¥Te¡
);

149 
	`websFÜmDefše
(
	`T
("fÜmTe¡"), 
fÜmTe¡
);

154 
	`websU¾HªdËrDefše
(
	`T
("/"), 
NULL
, 0, 
websHomePageHªdËr
, 0);

156 
	}
}

165 
	$a¥Te¡
(
eid
, 
webs_t
 
wp
, 
¬gc
, 
ch¬_t
 **
¬gv
)

167 
ch¬_t
 *
Çme
, *
add»ss
;

169 ià(
	`ejArgs
(
¬gc
, 
¬gv
, 
	`T
("% %s"), &
Çme
, &
add»ss
) < 2) {

170 
	`websE¼Ü
(
wp
, 400, 
	`T
("Insufficient‡rgs\n"));

174  
	`websWr™e
(
wp
, 
	`T
("Name: %s, Add»s %s"), 
Çme
, 
add»ss
);

175 
	}
}

183 
	$fÜmTe¡
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
)

185 
ch¬_t
 *
Çme
, *
add»ss
;

187 
Çme
 = 
	`websG‘V¬
(
wp
, 
	`T
("name"), T("Joe Smith"));

188 
add»ss
 = 
	`websG‘V¬
(
wp
, 
	`T
("address"), T("1212 Milky Way Ave."));

190 
	`websH—d”
(
wp
);

191 
	`websWr™e
(
wp
, 
	`T
("<body><h2>Name: %s, Add»ss: %s</h2>\n"), 
Çme
, 
add»ss
);

192 
	`websFoÙ”
(
wp
);

193 
	`websDÚe
(
wp
, 200);

194 
	}
}

201 
	$websHomePageHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
,

202 
¬g
, 
ch¬_t
* 
u¾
, ch¬_t* 
·th
, ch¬_t* 
qu”y
)

207 ià(*
u¾
 =ð'\0' || 
	`g¡rcmp
(u¾, 
	`T
("/")) == 0) {

208 
	`websRedœeù
(
wp
, 
	`T
("home.asp"));

212 
	}
}

219 
	$£nd
(
s
, cÚ¡ *
buf
, 
size_t
 
Ën
, 
æags
)

221  
	`wr™e
(
s
, 
buf
, 
Ën
);

222 
	}
}

224 
	$»cv
(
s
, *
buf
, 
size_t
 
Ën
, 
æags
)

226  
	`»ad
(
s
, 
buf
, 
Ën
);

227 
	}
}

	@LINUX/main.c

18 
	~"../uemf.h
"

19 
	~"../wsIÁº.h
"

20 
	~<sigÇl.h
>

21 
	~<uni¡d.h
>

22 
	~<sys/ty³s.h
>

24 #ifdeà
WEBS_SSL_SUPPORT


25 
	~"../websSSL.h
"

28 #ifdeà
USER_MANAGEMENT_SUPPORT


29 
	~"../um.h
"

30 
fÜmDefšeU£rMgmt
();

39 
ch¬_t
 *
	groÙWeb
 = 
T
("www");

40 
ch¬_t
 *
	gdemoWeb
 = 
T
("wwwdemo");

41 
ch¬_t
 *
	g·sswÜd
 = 
T
("");

42 
	gpÜt
 = 
WEBS_DEFAULT_PORT
;

43 
	g»Œ›s
 = 5;

44 
	gfšished
 = 0;

48 
š™Webs
(
demo
);

49 
a¥Te¡
(
eid
, 
webs_t
 
wp
, 
¬gc
, 
ch¬_t
 **
¬gv
);

50 
fÜmTe¡
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
);

51 
websHomePageHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
,

52 
¬g
, 
ch¬_t
 *
u¾
, ch¬_ˆ*
·th
, ch¬_ˆ*
qu”y
);

53 
sigštHªdËr
();

54 #ifdeà
B_STATS


55 
´štMemSts
(
hªdË
, 
ch¬_t
 *
fmt
, ...);

56 
memL—ks
();

64 
	$maš
(
¬gc
, ** 
¬gv
)

66 
i
, 
demo
 = 0;

68 
i
 = 1; i < 
¬gc
; i++) {

69 ià(
	`¡rcmp
(
¬gv
[
i
], "-demo") == 0) {

70 
demo
++;

80 
	`bÝ’
(
NULL
, (60 * 1024), 
B_USE_MALLOC
);

81 
	`sigÇl
(
SIGPIPE
, 
SIG_IGN
);

82 
	`sigÇl
(
SIGINT
, 
sigštHªdËr
);

83 
	`sigÇl
(
SIGTERM
, 
sigštHªdËr
);

88 ià(
	`š™Webs
(
demo
) < 0) {

92 #ifdeà
WEBS_SSL_SUPPORT


93 
	`websSSLO³n
();

102 
fšished
 = 0;

103 !
fšished
) {

104 ià(
	`sock‘R—dy
(-1è|| 
	`sock‘S–eù
(-1, 1000)) {

105 
	`sock‘Proûss
(-1);

107 
	`websCgiCËªup
();

108 
	`emfSchedProûss
();

111 #ifdeà
WEBS_SSL_SUPPORT


112 
	`websSSLClo£
();

115 #ifdeà
USER_MANAGEMENT_SUPPORT


116 
	`umClo£
();

122 
	`websClo£S”v”
();

123 
	`sock‘Clo£
();

124 #ifdeà
B_STATS


125 
	`memL—ks
();

127 
	`bþo£
();

129 
	}
}

134 
	$sigštHªdËr
(
unu£d
)

136 
fšished
 = 1;

137 
	}
}

144 
	$š™Webs
(
demo
)

146 
ho¡’t
 *
hp
;

147 
š_addr
 
šddr
;

148 
ho¡
[128], 
dœ
[128], 
webdœ
[128];

149 *
ý
;

150 
ch¬_t
 
wbuf
[128];

155 
	`sock‘O³n
();

157 #ifdeà
USER_MANAGEMENT_SUPPORT


161 
	`umO³n
();

162 
	`umRe¡Üe
(
	`T
("umconfig.txt"));

169 ià(
	`g‘ho¡Çme
(
ho¡
, (host)) < 0) {

170 
	`”rÜ
(
E_L
, 
E_LOG
, 
	`T
("Can't get hostname"));

173 ià((
hp
 = 
	`g‘ho¡byÇme
(
ho¡
)è=ð
NULL
) {

174 
	`”rÜ
(
E_L
, 
E_LOG
, 
	`T
("Can't get host‡ddress"));

177 
	`memýy
((*è&
šddr
, (*è
hp
->
h_addr_li¡
[0],

178 (
size_t
è
hp
->
h_Ëngth
);

184 
	`g‘cwd
(
dœ
, (dir));

185 ià((
ý
 = 
	`¡¼chr
(
dœ
, '/'))) {

186 *
ý
 = '\0';

188 ià(
demo
) {

189 
	`¥rštf
(
webdœ
, "%s/%s", 
dœ
, 
demoWeb
);

191 
	`¥rštf
(
webdœ
, "%s/%s", 
dœ
, 
roÙWeb
);

197 
	`websS‘DeçuÉDœ
(
webdœ
);

198 
ý
 = 
	`š‘_Áß
(
šddr
);

199 
	`ascToUni
(
wbuf
, 
ý
, 
	`mš
(
	`¡¾’
(cp) + 1, (wbuf)));

200 
	`websS‘I·ddr
(
wbuf
);

201 
	`ascToUni
(
wbuf
, 
ho¡
, 
	`mš
(
	`¡¾’
(host) + 1, (wbuf)));

202 
	`websS‘Ho¡
(
wbuf
);

207 
	`websS‘DeçuÉPage
(
	`T
("default.asp"));

208 
	`websS‘PasswÜd
(
·sswÜd
);

214 
	`websO³nS”v”
(
pÜt
, 
»Œ›s
);

221 
	`websU¾HªdËrDefše
(
	`T
(""), 
NULL
, 0, 
websSecur™yHªdËr
,

222 
WEBS_HANDLER_FIRST
);

223 
	`websU¾HªdËrDefše
(
	`T
("/gofÜm"), 
NULL
, 0, 
websFÜmHªdËr
, 0);

224 
	`websU¾HªdËrDefše
(
	`T
("/cgi-bš"), 
NULL
, 0, 
websCgiHªdËr
, 0);

225 
	`websU¾HªdËrDefše
(
	`T
(""), 
NULL
, 0, 
websDeçuÉHªdËr
,

226 
WEBS_HANDLER_LAST
);

232 
	`websA¥Defše
(
	`T
("a¥Te¡"), 
a¥Te¡
);

233 
	`websFÜmDefše
(
	`T
("fÜmTe¡"), 
fÜmTe¡
);

238 #ifdeà
USER_MANAGEMENT_SUPPORT


239 
	`fÜmDefšeU£rMgmt
();

245 
	`websU¾HªdËrDefše
(
	`T
("/"), 
NULL
, 0, 
websHomePageHªdËr
, 0);

247 
	}
}

256 
	$a¥Te¡
(
eid
, 
webs_t
 
wp
, 
¬gc
, 
ch¬_t
 **
¬gv
)

258 
ch¬_t
 *
Çme
, *
add»ss
;

260 ià(
	`ejArgs
(
¬gc
, 
¬gv
, 
	`T
("% %s"), &
Çme
, &
add»ss
) < 2) {

261 
	`websE¼Ü
(
wp
, 400, 
	`T
("Insufficient‡rgs\n"));

264  
	`websWr™e
(
wp
, 
	`T
("Name: %s, Add»s %s"), 
Çme
, 
add»ss
);

265 
	}
}

273 
	$fÜmTe¡
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
)

275 
ch¬_t
 *
Çme
, *
add»ss
;

277 
Çme
 = 
	`websG‘V¬
(
wp
, 
	`T
("name"), T("Joe Smith"));

278 
add»ss
 = 
	`websG‘V¬
(
wp
, 
	`T
("address"), T("1212 Milky Way Ave."));

280 
	`websH—d”
(
wp
);

281 
	`websWr™e
(
wp
, 
	`T
("<body><h2>Name: %s, Add»ss: %s</h2>\n"), 
Çme
, 
add»ss
);

282 
	`websFoÙ”
(
wp
);

283 
	`websDÚe
(
wp
, 200);

284 
	}
}

291 
	$websHomePageHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
,

292 
¬g
, 
ch¬_t
 *
u¾
, ch¬_ˆ*
·th
, ch¬_ˆ*
qu”y
)

297 ià(*
u¾
 =ð'\0' || 
	`g¡rcmp
(u¾, 
	`T
("/")) == 0) {

298 
	`websRedœeù
(
wp
, 
WEBS_DEFAULT_HOME
);

302 
	}
}

306 #ifdeà
B_STATS


307 
	$memL—ks
()

309 
fd
;

311 ià((
fd
 = 
	`gÝ’
(
	`T
("Ëak.txt"), 
O_CREAT
 | 
O_TRUNC
 | 
O_WRONLY
, 0666)) >= 0) {

312 
	`b¡©s
(
fd
, 
´štMemSts
);

313 
	`þo£
(
fd
);

315 
	}
}

322 
	$´štMemSts
(
hªdË
, 
ch¬_t
 *
fmt
, ...)

324 
va_li¡
 
¬gs
;

325 
ch¬_t
 
buf
[256];

327 
	`va_¡¬t
(
¬gs
, 
fmt
);

328 
	`v¥rštf
(
buf
, 
fmt
, 
¬gs
);

329 
	`va_’d
(
¬gs
);

330 
	`wr™e
(
hªdË
, 
buf
, 
	`¡¾’
(buf));

331 
	}
}

	@LYNX/main.c

19 
	~"../uemf.h
"

20 
	~"../wsIÁº.h
"

21 
	~<sigÇl.h
>

22 
	~<uni¡d.h
>

23 
	~<sys/ty³s.h
>

25 #ifdeà
WEBS_SSL_SUPPORT


26 
	~"../websSSL.h
"

29 #ifdeà
USER_MANAGEMENT_SUPPORT


30 
	~"../um.h
"

31 
fÜmDefšeU£rMgmt
();

40 
ch¬_t
 *
	groÙWeb
 = 
T
("www");

41 
ch¬_t
 *
	gdemoWeb
 = 
T
("wwwdemo");

42 
ch¬_t
 *
	g·sswÜd
 = 
T
("");

43 
	gpÜt
 = 80;

44 
	g»Œ›s
 = 5;

45 
	gfšished
;

49 
š™Webs
(
demo
);

50 
a¥Te¡
(
eid
, 
webs_t
 
wp
, 
¬gc
, 
ch¬_t
 **
¬gv
);

51 
fÜmTe¡
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
);

52 
websHomePageHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
,

53 
¬g
, 
ch¬_t
 *
u¾
, ch¬_ˆ*
·th
, ch¬_ˆ*
qu”y
);

54 #ifdeà
B_STATS


55 
´štMemSts
(
hªdË
, 
ch¬_t
 *
fmt
, ...);

56 
memL—ks
();

64 
	$maš
(
¬gc
, **
¬gv
)

66 
i
, 
demo
 = 0;

68 
i
 = 1; i < 
¬gc
; i++) {

69 ià(
	`¡rcmp
(
¬gv
[
i
], "-demo") == 0) {

70 
demo
++;

80 
	`bÝ’
(
NULL
, (60 * 1024), 
B_USE_MALLOC
);

81 
	`sigÇl
(
SIGPIPE
, 
SIG_IGN
);

86 ià(
	`š™Webs
(
demo
) < 0) {

90 #ifdeà
WEBS_SSL_SUPPORT


91 
	`websSSLO³n
();

99 !
fšished
) {

100 ià(
	`sock‘R—dy
(-1è|| 
	`sock‘S–eù
(-1, 1000)) {

101 
	`sock‘Proûss
(-1);

103 
	`websCgiCËªup
();

104 
	`emfSchedProûss
();

107 #ifdeà
WEBS_SSL_SUPPORT


108 
	`websSSLClo£
();

111 #ifdeà
USER_MANAGEMENT_SUPPORT


112 
	`umClo£
();

118 
	`websClo£S”v”
();

119 
	`sock‘Clo£
();

120 #ifdeà
B_STATS


121 
	`memL—ks
();

123 
	`bþo£
();

125 
	}
}

132 
	$š™Webs
(
demo
)

134 
ho¡’t
 *
hp
;

135 
š_addr
 
šddr
;

136 
ho¡
[128], 
dœ
[128], 
webdœ
[128];

137 *
ý
;

138 
ch¬_t
 
wbuf
[128];

143 
	`sock‘O³n
();

145 #ifdeà
USER_MANAGEMENT_SUPPORT


149 
	`umO³n
();

150 
	`umRe¡Üe
(
	`T
("umconfig.txt"));

157 ià(
	`g‘ho¡Çme
(
ho¡
, (host)) < 0) {

158 
	`”rÜ
(
E_L
, 
E_LOG
, 
	`T
("Can't get hostname"));

161 ià((
hp
 = 
	`g‘ho¡byÇme
(
ho¡
)è=ð
NULL
) {

162 
	`”rÜ
(
E_L
, 
E_LOG
, 
	`T
("Can't get host‡ddress"));

165 
	`memýy
((*è&
šddr
, (*è
hp
->
h_addr_li¡
[0],

166 (
size_t
è
hp
->
h_Ëngth
);

171 
	`g‘cwd
(
dœ
, (dir));

172 ià((
ý
 = 
	`¡¼chr
(
dœ
, '/'))) {

173 *
ý
 = '\0';

175 ià(
demo
) {

176 
	`¥rštf
(
webdœ
, "%s/%s", 
dœ
, 
demoWeb
);

178 
	`¥rštf
(
webdœ
, "%s/%s", 
dœ
, 
roÙWeb
);

184 
	`websS‘DeçuÉDœ
(
webdœ
);

185 
ý
 = 
	`š‘_Áß
(
šddr
);

186 
	`ascToUni
(
wbuf
, 
ý
, 
	`mš
(
	`¡¾’
(cp) + 1, (wbuf)));

187 
	`websS‘I·ddr
(
wbuf
);

188 
	`ascToUni
(
wbuf
, 
ho¡
, 
	`mš
(
	`¡¾’
(host) + 1, (wbuf)));

189 
	`websS‘Ho¡
(
wbuf
);

194 
	`websS‘DeçuÉPage
(
	`T
("default.asp"));

195 
	`websS‘PasswÜd
(
·sswÜd
);

201 
	`websO³nS”v”
(
pÜt
, 
»Œ›s
);

208 
	`websU¾HªdËrDefše
(
	`T
(""), 
NULL
, 0, 
websSecur™yHªdËr
,

209 
WEBS_HANDLER_FIRST
);

210 
	`websU¾HªdËrDefše
(
	`T
("/gofÜm"), 
NULL
, 0, 
websFÜmHªdËr
, 0);

211 
	`websU¾HªdËrDefše
(
	`T
("/cgi-bš"), 
NULL
, 0, 
websCgiHªdËr
, 0);

212 
	`websU¾HªdËrDefše
(
	`T
(""), 
NULL
, 0, 
websDeçuÉHªdËr
,

213 
WEBS_HANDLER_LAST
);

219 
	`websA¥Defše
(
	`T
("a¥Te¡"), 
a¥Te¡
);

220 
	`websFÜmDefše
(
	`T
("fÜmTe¡"), 
fÜmTe¡
);

225 #ifdeà
USER_MANAGEMENT_SUPPORT


226 
	`fÜmDefšeU£rMgmt
();

232 
	`websU¾HªdËrDefše
(
	`T
("/"), 
NULL
, 0, 
websHomePageHªdËr
, 0);

234 
	}
}

243 
	$a¥Te¡
(
eid
, 
webs_t
 
wp
, 
¬gc
, 
ch¬_t
 **
¬gv
)

245 
ch¬_t
 *
Çme
, *
add»ss
;

247 ià(
	`ejArgs
(
¬gc
, 
¬gv
, 
	`T
("% %s"), &
Çme
, &
add»ss
) < 2) {

248 
	`websE¼Ü
(
wp
, 400, 
	`T
("Insufficient‡rgs\n"));

251  
	`websWr™e
(
wp
, 
	`T
("Name: %s, Add»s %s"), 
Çme
, 
add»ss
);

252 
	}
}

259 
	$fÜmTe¡
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
)

261 
ch¬_t
 *
Çme
, *
add»ss
;

263 
Çme
 = 
	`websG‘V¬
(
wp
, 
	`T
("name"), T("Joe Smith"));

264 
add»ss
 = 
	`websG‘V¬
(
wp
, 
	`T
("address"), T("1212 Milky Way Ave."));

266 
	`websH—d”
(
wp
);

267 
	`websWr™e
(
wp
, 
	`T
("<body><h2>Name: %s, Add»ss: %s</h2>\n"), 
Çme
, 
add»ss
);

268 
	`websFoÙ”
(
wp
);

269 
	`websDÚe
(
wp
, 200);

270 
	}
}

277 
	$websHomePageHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
,

278 
¬g
, 
ch¬_t
 *
u¾
, ch¬_ˆ*
·th
, ch¬_ˆ*
qu”y
)

283 ià(*
u¾
 =ð'\0' || 
	`g¡rcmp
(u¾, 
	`T
("/")) == 0) {

284 
	`websRedœeù
(
wp
, 
	`T
("home.asp"));

288 
	}
}

292 #ifdeà
B_STATS


293 
	$memL—ks
()

295 
fd
;

297 ià((
fd
 = 
	`gÝ’
(
	`T
("Ëak.txt"), 
O_CREAT
 | 
O_TRUNC
 | 
O_WRONLY
)) >= 0) {

298 
	`b¡©s
(
fd
, 
´štMemSts
);

299 
	`þo£
(
fd
);

301 
	}
}

308 
	$´štMemSts
(
hªdË
, 
ch¬_t
 *
fmt
, ...)

310 
va_li¡
 
¬gs
;

311 
ch¬_t
 
buf
[256];

313 
	`va_¡¬t
(
¬gs
, 
fmt
);

314 
	`v¥rštf
(
buf
, 
fmt
, 
¬gs
);

315 
	`va_’d
(
¬gs
);

316 
	`wr™e
(
hªdË
, 
buf
, 
	`¡¾’
(buf));

317 
	}
}

	@MACOSX/main.c

19 
	~"../uemf.h
"

20 
	~"../wsIÁº.h
"

21 
	~<sigÇl.h
>

22 
	~<uni¡d.h
>

23 
	~<sys/ty³s.h
>

25 #ifdeà
WEBS_SSL_SUPPORT


26 
	~"../websSSL.h
"

29 #ifdeà
USER_MANAGEMENT_SUPPORT


30 
	~"../um.h
"

31 
fÜmDefšeU£rMgmt
();

36 
ch¬_t
 *
	groÙWeb
 = 
T
("www");

37 
ch¬_t
 *
	gdemoWeb
 = 
T
("wwwdemo");

38 
ch¬_t
 *
	g·sswÜd
 = 
T
("");

39 
	gpÜt
 = 
WEBS_DEFAULT_PORT
;

41 
	g»Œ›s
 = 5;

42 
	gfšished
 = 0;

46 
š™Webs
(
demo
);

47 
a¥Te¡
(
eid
, 
webs_t
 
wp
, 
¬gc
, 
ch¬_t
 **
¬gv
);

48 
fÜmTe¡
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
);

49 
websHomePageHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
,

50 
¬g
, 
ch¬_t
 *
u¾
, ch¬_ˆ*
·th
, ch¬_ˆ*
qu”y
);

51 
sigštHªdËr
();

52 #ifdeà
B_STATS


53 
´štMemSts
(
hªdË
, 
ch¬_t
 *
fmt
, ...);

54 
memL—ks
();

62 
	$maš
(
¬gc
, ** 
¬gv
)

64 
i
, 
demo
 = 0;

66 
i
 = 1; i < 
¬gc
; i++) {

67 ià(
	`¡rcmp
(
¬gv
[
i
], "-demo") == 0) {

68 
demo
++;

78 
	`bÝ’
(
NULL
, (60 * 1024), 
B_USE_MALLOC
);

79 
	`sigÇl
(
SIGPIPE
, 
SIG_IGN
);

80 
	`sigÇl
(
SIGINT
, 
sigštHªdËr
);

81 
	`sigÇl
(
SIGTERM
, 
sigštHªdËr
);

86 ià(
	`š™Webs
(
demo
) < 0) {

90 #ifdeà
WEBS_SSL_SUPPORT


91 
	`websSSLO³n
();

100 
fšished
 = 0;

101 !
fšished
) {

102 ià(
	`sock‘R—dy
(-1è|| 
	`sock‘S–eù
(-1, 1000)) {

103 
	`sock‘Proûss
(-1);

105 
	`websCgiCËªup
();

106 
	`emfSchedProûss
();

109 #ifdeà
WEBS_SSL_SUPPORT


110 
	`websSSLClo£
();

113 #ifdeà
USER_MANAGEMENT_SUPPORT


114 
	`umClo£
();

120 
	`websClo£S”v”
();

121 
	`sock‘Clo£
();

122 #ifdeà
B_STATS


123 
	`memL—ks
();

125 
	`bþo£
();

127 
	}
}

132 
	$sigštHªdËr
(
unu£d
)

134 
fšished
 = 1;

135 
	}
}

141 
	$š™Webs
(
demo
)

143 
ho¡’t
 *
hp
;

144 
š_addr
 
šddr
;

145 
ho¡
[128], 
dœ
[128], 
webdœ
[128];

146 *
ý
;

147 
ch¬_t
 
wbuf
[128];

152 
	`sock‘O³n
();

154 #ifdeà
USER_MANAGEMENT_SUPPORT


158 
	`umO³n
();

159 
	`umRe¡Üe
(
	`T
("umconfig.txt"));

166 ià(
	`g‘ho¡Çme
(
ho¡
, (host)) < 0) {

167 
	`”rÜ
(
E_L
, 
E_LOG
, 
	`T
("Can't get hostname"));

170 ià((
hp
 = 
	`g‘ho¡byÇme
(
ho¡
)è=ð
NULL
) {

171 
	`”rÜ
(
E_L
, 
E_LOG
, 
	`T
("Can't get host‡ddress"));

174 
	`memýy
((*è&
šddr
, (*è
hp
->
h_addr_li¡
[0],

175 (
size_t
è
hp
->
h_Ëngth
);

181 
	`g‘cwd
(
dœ
, (dir));

182 ià((
ý
 = 
	`¡¼chr
(
dœ
, '/'))) {

183 *
ý
 = '\0';

186 ià(
demo
) {

187 
	`¥rštf
(
webdœ
, "%s/%s", 
dœ
, 
demoWeb
);

189 
	`¥rštf
(
webdœ
, "%s/%s", 
dœ
, 
roÙWeb
);

195 
	`websS‘DeçuÉDœ
(
webdœ
);

196 
ý
 = 
	`š‘_Áß
(
šddr
);

197 
	`ascToUni
(
wbuf
, 
ý
, 
	`mš
(
	`¡¾’
(cp) + 1, (wbuf)));

198 
	`websS‘I·ddr
(
wbuf
);

199 
	`ascToUni
(
wbuf
, 
ho¡
, 
	`mš
(
	`¡¾’
(host) + 1, (wbuf)));

200 
	`websS‘Ho¡
(
wbuf
);

205 
	`websS‘DeçuÉPage
(
	`T
("default.asp"));

206 
	`websS‘PasswÜd
(
·sswÜd
);

212 
	`websO³nS”v”
(
pÜt
, 
»Œ›s
);

219 
	`websU¾HªdËrDefše
(
	`T
(""), 
NULL
, 0, 
websSecur™yHªdËr
,

220 
WEBS_HANDLER_FIRST
);

221 
	`websU¾HªdËrDefše
(
	`T
("/gofÜm"), 
NULL
, 0, 
websFÜmHªdËr
, 0);

222 
	`websU¾HªdËrDefše
(
	`T
("/cgi-bš"), 
NULL
, 0, 
websCgiHªdËr
, 0);

223 
	`websU¾HªdËrDefše
(
	`T
(""), 
NULL
, 0, 
websDeçuÉHªdËr
,

224 
WEBS_HANDLER_LAST
);

230 
	`websA¥Defše
(
	`T
("a¥Te¡"), 
a¥Te¡
);

231 
	`websFÜmDefše
(
	`T
("fÜmTe¡"), 
fÜmTe¡
);

236 #ifdeà
USER_MANAGEMENT_SUPPORT


237 
	`fÜmDefšeU£rMgmt
();

243 
	`websU¾HªdËrDefše
(
	`T
("/"), 
NULL
, 0, 
websHomePageHªdËr
, 0);

245 
	}
}

254 
	$a¥Te¡
(
eid
, 
webs_t
 
wp
, 
¬gc
, 
ch¬_t
 **
¬gv
)

256 
ch¬_t
 *
Çme
, *
add»ss
;

258 ià(
	`ejArgs
(
¬gc
, 
¬gv
, 
	`T
("% %s"), &
Çme
, &
add»ss
) < 2) {

259 
	`websE¼Ü
(
wp
, 400, 
	`T
("Insufficient‡rgs\n"));

262  
	`websWr™e
(
wp
, 
	`T
("Name: %s, Add»s %s"), 
Çme
, 
add»ss
);

263 
	}
}

271 
	$fÜmTe¡
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
)

273 
ch¬_t
 *
Çme
, *
add»ss
;

275 
Çme
 = 
	`websG‘V¬
(
wp
, 
	`T
("name"), T("Joe Smith"));

276 
add»ss
 = 
	`websG‘V¬
(
wp
, 
	`T
("address"), T("1212 Milky Way Ave."));

278 
	`websH—d”
(
wp
);

279 
	`websWr™e
(
wp
, 
	`T
("<body><h2>Name: %s, Add»ss: %s</h2>\n"), 
Çme
, 
add»ss
);

280 
	`websFoÙ”
(
wp
);

281 
	`websDÚe
(
wp
, 200);

282 
	}
}

289 
	$websHomePageHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
,

290 
¬g
, 
ch¬_t
 *
u¾
, ch¬_ˆ*
·th
, ch¬_ˆ*
qu”y
)

295 ià(*
u¾
 =ð'\0' || 
	`g¡rcmp
(u¾, 
	`T
("/")) == 0) {

296 
	`websRedœeù
(
wp
, 
WEBS_DEFAULT_HOME
);

300 
	}
}

304 #ifdeà
B_STATS


305 
	$memL—ks
()

307 
fd
;

309 ià((
fd
 = 
	`gÝ’
(
	`T
("Ëak.txt"), 
O_CREAT
 | 
O_TRUNC
 | 
O_WRONLY
)) >= 0) {

310 
	`b¡©s
(
fd
, 
´štMemSts
);

311 
	`þo£
(
fd
);

313 
	}
}

320 
	$´štMemSts
(
hªdË
, 
ch¬_t
 *
fmt
, ...)

322 
va_li¡
 
¬gs
;

323 
ch¬_t
 
buf
[256];

325 
	`va_¡¬t
(
¬gs
, 
fmt
);

326 
	`v¥rštf
(
buf
, 
fmt
, 
¬gs
);

327 
	`va_’d
(
¬gs
);

328 
	`wr™e
(
hªdË
, 
buf
, 
	`¡¾’
(buf));

329 
	}
}

	@NW/main.c

19 
	~"../uemf.h
"

20 
	~"../wsIÁº.h
"

21 
	~<sigÇl.h
>

22 
	~<sys/ty³s.h
>

24 #ifdeà
WEBS_SSL_SUPPORT


25 
	~"../websSSL.h
"

28 #ifdeà
USER_MANAGEMENT_SUPPORT


29 
	~"../um.h
"

30 
fÜmDefšeU£rMgmt
();

39 
ch¬_t
 *
	groÙWeb
 = 
T
("www");

40 
ch¬_t
 *
	gdemoWeb
 = 
T
("wwwdemo");

41 
ch¬_t
 *
	g·sswÜd
 = 
T
("");

42 
	gpÜt
 = 80;

43 
	g»Œ›s
 = 5;

44 
	gfšished
;

51 #ifdeà
debug


52 
	#P
Ð
x
 ) 
	`´štf
Ð"\rWEBS: %d\n\r", x )

	)

53 
	#Ps
Ð
x
, 
s
 ) 
	`´štf
Ð"\rWEBS: %d [%s]\n\r", x, s )

	)

55 
	#P
Ð
x
 )

	)

56 
	#Ps
Ð
x
, 
s
 )

	)

59 
	gNETDB_DEFINE_CONTEXT
 ;

60 
	gNETINET_DEFINE_CONTEXT
 ;

64 
NLMþ—nup
( ) ;

65 
š™Webs
(
demo
);

66 
a¥Te¡
(
eid
, 
webs_t
 
wp
, 
¬gc
, 
ch¬_t
 **
¬gv
);

67 
fÜmTe¡
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
);

68 
websHomePageHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
,

69 
¬g
, 
ch¬_t
 *
u¾
, ch¬_ˆ*
·th
, ch¬_ˆ*
qu”y
);

71 #ifdeà
B_STATS


72 
´štMemSts
(
hªdË
, 
ch¬_t
 *
fmt
, ...);

73 
memL—ks
();

76 
SigT”mSigÇlHªdËr
Ð
sigty³
 );

77 
NLMþ—nup
( );

84 
	$maš
(
¬gc
, ** 
¬gv
)

86 
i
, 
demo
 = 0;

88 
i
 = 1; i < 
¬gc
; i++) {

89 ià(
	`¡rcmp
(
¬gv
[
i
], "-demo") == 0) {

90 
demo
++;

97 
	`sigÇl
Ð
SIGTERM
, 
SigT”mSigÇlHªdËr
 ) ;

105 
	`bÝ’
(
NULL
, (60 * 1024), 
B_USE_MALLOC
);

107 
	`P
( 1 ) ;

113 
	`S‘Cu¼’tNameS·û
( 4 ) ;

118 ià(
	`š™Webs
(
demo
) < 0) {

122 #ifdeà
WEBS_SSL_SUPPORT


123 
	`websSSLO³n
();

126 
	`P
( 20 ) ;

133 !
fšished
) {

134 ià(
	`sock‘R—dy
(-1è|| 
	`sock‘S–eù
(-1, 1000)) {

135 
	`sock‘Proûss
(-1);

136 
	`Th»adSw™ch
() ;

138 
	`websCgiCËªup
();

139 
	`emfSchedProûss
();

142 
	`NLMþ—nup
() ;

145 
	}
}

152 
	$š™Webs
(
demo
)

154 
ho¡’t
 *
hp
;

155 
š_addr
 
šddr
;

156 
ho¡
[128], 
dœ
[128], 
webdœ
[128];

157 *
ý
;

158 
ch¬_t
 
wbuf
[128];

159 
ch¬_t
 *
addr
;

161 
	`P
( 2 ) ;

165 
	`sock‘O³n
();

167 
	`P
( 3 ) ;

169 #ifdeà
USER_MANAGEMENT_SUPPORT


173 
	`umO³n
();

174 
	`umRe¡Üe
(
	`T
("umconfig.txt"));

181 ià(
	`g‘ho¡Çme
(
ho¡
, (host)) < 0) {

182 
	`”rÜ
(
E_L
, 
E_LOG
, 
	`T
("Can't get hostname"));

186 
	`P
( 4 ) ;

188 ià((
hp
 = 
	`g‘ho¡byÇme
(
ho¡
)è=ð
NULL
) {

189 
	`”rÜ
(
E_L
, 
E_LOG
, 
	`T
("Can't get host‡ddress"));

193 
	`P
( 5 ) ;

195 
	`memýy
((*è&
šddr
, (*è
hp
->
h_addr_li¡
[0],

196 (
size_t
è
hp
->
h_Ëngth
);

202 
	`g‘cwd
(
dœ
, (dir));

203 
	`Ps
Ð6, 
dœ
 ) ;

204 ià((
ý
 = 
	`¡¼chr
(
dœ
, '/')))

205 
ý
 ++ ;

207 
ý
 = 
dœ
 ;

209 
	`Ps
Ð6, 
ý
 ) ;

211 ià(
demo
) {

212 
	`¥rštf
(
webdœ
, "%s/%s", 
ý
, 
demoWeb
);

214 
	`¥rštf
(
webdœ
, "%s/%s", 
ý
, 
roÙWeb
);

217 
	`Ps
Ð6, 
webdœ
 ) ;

222 
	`websS‘DeçuÉDœ
(
webdœ
);

223 
addr
 = 
	`š‘_Áß
(
šddr
);

224 
	`ascToUni
(
wbuf
, 
addr
, 
	`g¡¾’
(ipaddr) + 1);

225 
	`websS‘I·ddr
(
wbuf
);

226 
	`ascToUni
(
wbuf
, 
ho¡
, 
	`g¡¾’
(host) + 1);

227 
	`websS‘Ho¡
(
wbuf
);

229 
	`P
( 7 ) ;

234 
	`websS‘DeçuÉPage
(
	`T
("default.asp"));

235 
	`websS‘PasswÜd
(
·sswÜd
);

237 
	`P
( 8 ) ;

243 
	`websO³nS”v”
(
pÜt
, 
»Œ›s
);

245 
	`P
( 9 ) ;

252 
	`websU¾HªdËrDefše
(
	`T
(""), 
NULL
, 0, 
websSecur™yHªdËr
,

253 
WEBS_HANDLER_FIRST
);

254 
	`websU¾HªdËrDefše
(
	`T
("/gofÜm"), 
NULL
, 0, 
websFÜmHªdËr
, 0);

255 
	`websU¾HªdËrDefše
(
	`T
("/cgi-bš"), 
NULL
, 0, 
websCgiHªdËr
, 0);

256 
	`websU¾HªdËrDefše
(
	`T
(""), 
NULL
, 0, 
websDeçuÉHªdËr
,

257 
WEBS_HANDLER_LAST
);

259 
	`P
( 10 ) ;

265 
	`websA¥Defše
(
	`T
("a¥Te¡"), 
a¥Te¡
);

266 
	`websFÜmDefše
(
	`T
("fÜmTe¡"), 
fÜmTe¡
);

268 
	`P
( 11 ) ;

273 #ifdeà
USER_MANAGEMENT_SUPPORT


274 
	`fÜmDefšeU£rMgmt
();

280 
	`websU¾HªdËrDefše
(
	`T
("/"), 
NULL
, 0, 
websHomePageHªdËr
, 0);

282 
	`P
( 12 ) ;

285 
	}
}

292 
	$NLMþ—nup
( )

294 
	`P
( 23 ) ;

296 #ifdeà
WEBS_SSL_SUPPORT


297 
	`websSSLClo£
();

300 #ifdeà
USER_MANAGEMENT_SUPPORT


301 
	`umClo£
();

307 
	`websClo£S”v”
();

309 
	`P
( 24 ) ;

311 
	`sock‘Clo£
();

312 #ifdeà
B_STATS


313 
	`memL—ks
();

315 
	`P
( 25 ) ;

317 
	`bþo£
();

319 
	`P
( 26 ) ;

320 
	}
}

328 #´agm¨
off
(
uÄeã»nûd
)

329 
	$SigT”mSigÇlHªdËr
Ð
sigty³
 )

330 #´agm¨
	`Ú
(
uÄeã»nûd
)

332 
fšished
 ++ ;

333 
	`NLMþ—nup
() ;

334 
	}
}

343 
	$a¥Te¡
(
eid
, 
webs_t
 
wp
, 
¬gc
, 
ch¬_t
 **
¬gv
)

345 
ch¬_t
 *
Çme
, *
add»ss
;

347 ià(
	`ejArgs
(
¬gc
, 
¬gv
, 
	`T
("% %s"), &
Çme
, &
add»ss
) < 2) {

348 
	`websE¼Ü
(
wp
, 400, 
	`T
("Insufficient‡rgs\n"));

351  
	`websWr™e
(
wp
, 
	`T
("Name: %s, Add»s %s"), 
Çme
, 
add»ss
);

352 
	}
}

360 
	$fÜmTe¡
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
)

362 
ch¬_t
 *
Çme
, *
add»ss
;

364 
Çme
 = 
	`websG‘V¬
(
wp
, 
	`T
("name"), T("Joe Smith"));

365 
add»ss
 = 
	`websG‘V¬
(
wp
, 
	`T
("address"), T("1212 Milky Way Ave."));

367 
	`websH—d”
(
wp
);

368 
	`websWr™e
(
wp
, 
	`T
("<body><h2>Name: %s, Add»ss: %s</h2>\n"), 
Çme
, 
add»ss
);

369 
	`websFoÙ”
(
wp
);

370 
	`websDÚe
(
wp
, 200);

371 
	}
}

378 
	$websHomePageHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
,

379 
¬g
, 
ch¬_t
 *
u¾
, ch¬_ˆ*
·th
, ch¬_ˆ*
qu”y
)

384 ià(*
u¾
 =ð'\0' || 
	`g¡rcmp
(u¾, 
	`T
("/")) == 0) {

385 
	`websRedœeù
(
wp
, 
	`T
("home.asp"));

389 
	}
}

393 #ifdeà
B_STATS


394 
	$memL—ks
()

396 
fd
;

398 ià((
fd
 = 
	`gÝ’
(
	`T
("Ëak.txt"), 
O_CREAT
 | 
O_TRUNC
 | 
O_WRONLY
)) >= 0) {

399 
	`b¡©s
(
fd
, 
´štMemSts
);

400 
	`þo£
(
fd
);

402 
	}
}

409 
	$´štMemSts
(
hªdË
, 
ch¬_t
 *
fmt
, ...)

411 
va_li¡
 
¬gs
;

412 
ch¬_t
 
buf
[256];

414 
	`va_¡¬t
(
¬gs
, 
fmt
);

415 
	`v¥rštf
(
buf
, 
fmt
, 
¬gs
);

416 
	`va_’d
(
¬gs
);

417 
	`wr™e
(
hªdË
, 
buf
, 
	`¡¾’
(buf));

418 
	}
}

	@QNX4/main.c

23 
	~"../uemf.h
"

24 
	~"../wsIÁº.h
"

25 
	~<sigÇl.h
>

27 #ifdeà
WEBS_SSL_SUPPORT


28 
	~"../websSSL.h
"

31 #ifdeà
USER_MANAGEMENT_SUPPORT


32 
	~"../um.h
"

33 
fÜmDefšeU£rMgmt
();

41 
ch¬_t
 *
	groÙWeb
 = 
T
("www");

42 
ch¬_t
 *
	gdemoWeb
 = 
T
("wwwdemo");

43 
ch¬_t
 *
	g·sswÜd
 = 
T
("");

44 
	gpÜt
 = 80;

45 
	g»Œ›s
 = 5;

46 
	gfšished
;

50 
š™Webs
(
demo
);

51 
a¥Te¡
(
eid
, 
webs_t
 
wp
, 
¬gc
, 
ch¬_t
 **
¬gv
);

52 
fÜmTe¡
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
);

53 
websHomePageHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
,

54 
¬g
, 
ch¬_t
 *
u¾
, ch¬_ˆ*
·th
, ch¬_ˆ*
qu”y
);

55 #ifdeà
B_STATS


56 
´štMemSts
(
hªdË
, 
ch¬_t
 *
fmt
, ...);

57 
memL—ks
();

65 
	$maš
(
¬gc
, **
¬gv
)

67 
i
, 
demo
 = 0;

69 
i
 = 1; i < 
¬gc
; i++) {

70 ià(
	`¡rcmp
(
¬gv
[
i
], "-demo") == 0) {

71 
demo
++;

81 
	`bÝ’
(
NULL
, (60 * 1024), 
B_USE_MALLOC
);

82 
	`sigÇl
 (
SIGPIPE
, 
SIG_IGN
);

87 ià(
	`š™Webs
(
demo
) < 0) {

91 #ifdeà
WEBS_SSL_SUPPORT


92 
	`websSSLO³n
();

100 !
fšished
) {

101 ià(
	`sock‘R—dy
(-1è|| 
	`sock‘S–eù
(-1, 1000)) {

102 
	`sock‘Proûss
(-1);

104 
	`websCgiCËªup
();

105 
	`emfSchedProûss
();

108 #ifdeà
WEBS_SSL_SUPPORT


109 
	`websSSLClo£
();

112 #ifdeà
USER_MANAGEMENT_SUPPORT


113 
	`umClo£
();

119 
	`websClo£S”v”
();

120 
	`sock‘Clo£
();

121 #ifdeà
B_STATS


122 
	`memL—ks
();

124 
	`bþo£
();

126 
	}
}

133 
	$š™Webs
(
demo
)

135 
ho¡’t
 *
hp
;

136 
š_addr
 
šddr
;

137 
ho¡
[128], 
dœ
[128], 
webdœ
[128];

138 *
ý
;

139 
ch¬_t
 
wbuf
[128];

144 
	`sock‘O³n
();

146 #ifdeà
USER_MANAGEMENT_SUPPORT


150 
	`umO³n
();

151 
	`umRe¡Üe
(
	`T
("umconfig.txt"));

158 ià(
	`g‘ho¡Çme
(
ho¡
, (host)) < 0) {

159 
	`”rÜ
(
E_L
, 
E_LOG
, 
	`T
("Can't get hostname"));

162 ià((
hp
 = 
	`g‘ho¡byÇme
(
ho¡
)è=ð
NULL
) {

163 
	`”rÜ
(
E_L
, 
E_LOG
, 
	`T
("Can't get host‡ddress"));

166 
	`memýy
((*è&
šddr
, (*è
hp
->
h_addr_li¡
[0],

167 (
size_t
è
hp
->
h_Ëngth
);

172 
	`g‘cwd
(
dœ
, (dir));

173 ià((
ý
 = 
	`¡¼chr
(
dœ
, '/'))) {

174 *
ý
 = '\0';

176 ià(
demo
) {

177 
	`¥rštf
(
webdœ
, "%s/%s", 
dœ
, 
demoWeb
);

179 
	`¥rštf
(
webdœ
, "%s/%s", 
dœ
, 
roÙWeb
);

185 
	`websS‘DeçuÉDœ
(
webdœ
);

186 
ý
 = 
	`š‘_Áß
(
šddr
);

187 
	`ascToUni
(
wbuf
, 
ý
, 
	`mš
(
	`¡¾’
(cp) + 1, (wbuf)));

188 
	`websS‘I·ddr
(
wbuf
);

189 
	`ascToUni
(
wbuf
, 
ho¡
, 
	`mš
(
	`¡¾’
(host) + 1, (wbuf)));

190 
	`websS‘Ho¡
(
wbuf
);

195 
	`websS‘DeçuÉPage
(
	`T
("default.asp"));

196 
	`websS‘PasswÜd
(
·sswÜd
);

202 
	`websO³nS”v”
(
pÜt
, 
»Œ›s
);

209 
	`websU¾HªdËrDefše
(
	`T
(""), 
NULL
, 0, 
websSecur™yHªdËr
,

210 
WEBS_HANDLER_FIRST
);

211 
	`websU¾HªdËrDefše
(
	`T
("/gofÜm"), 
NULL
, 0, 
websFÜmHªdËr
, 0);

212 
	`websU¾HªdËrDefše
(
	`T
("/cgi-bš"), 
NULL
, 0, 
websCgiHªdËr
, 0);

213 
	`websU¾HªdËrDefše
(
	`T
(""), 
NULL
, 0, 
websDeçuÉHªdËr
,

214 
WEBS_HANDLER_LAST
);

220 
	`websA¥Defše
(
	`T
("a¥Te¡"), 
a¥Te¡
);

221 
	`websFÜmDefše
(
	`T
("fÜmTe¡"), 
fÜmTe¡
);

226 #ifdeà
USER_MANAGEMENT_SUPPORT


227 
	`fÜmDefšeU£rMgmt
();

233 
	`websU¾HªdËrDefše
(
	`T
("/"), 
NULL
, 0, 
websHomePageHªdËr
, 0);

235 
	}
}

244 
	$a¥Te¡
(
eid
, 
webs_t
 
wp
, 
¬gc
, 
ch¬_t
 **
¬gv
)

246 
ch¬_t
 *
Çme
, *
add»ss
;

248 ià(
	`ejArgs
(
¬gc
, 
¬gv
, 
	`T
("% %s"), &
Çme
, &
add»ss
) < 2) {

249 
	`websE¼Ü
(
wp
, 400, 
	`T
("Insufficient‡rgs\n"));

252  
	`websWr™e
(
wp
, 
	`T
("Name: %s, Add»s %s"), 
Çme
, 
add»ss
);

253 
	}
}

260 
	$fÜmTe¡
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
)

262 
ch¬_t
 *
Çme
, *
add»ss
;

264 
Çme
 = 
	`websG‘V¬
(
wp
, 
	`T
("name"), T("Joe Smith"));

265 
add»ss
 = 
	`websG‘V¬
(
wp
, 
	`T
("address"), T("1212 Milky Way Ave."));

267 
	`websH—d”
(
wp
);

268 
	`websWr™e
(
wp
, 
	`T
("<body><h2>Name: %s, Add»ss: %s</h2>\n"), 
Çme
, 
add»ss
);

269 
	`websFoÙ”
(
wp
);

270 
	`websDÚe
(
wp
, 200);

271 
	}
}

278 
	$websHomePageHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
,

279 
¬g
, 
ch¬_t
 *
u¾
, ch¬_ˆ*
·th
, ch¬_ˆ*
qu”y
)

284 ià(*
u¾
 =ð'\0' || 
	`g¡rcmp
(u¾, 
	`T
("/")) == 0) {

285 
	`websRedœeù
(
wp
, 
	`T
("home.asp"));

289 
	}
}

293 #ifdeà
B_STATS


294 
	$memL—ks
()

296 
fd
;

298 ià((
fd
 = 
	`gÝ’
(
	`T
("Ëak.txt"), 
O_CREAT
 | 
O_TRUNC
 | 
O_WRONLY
)) >= 0) {

299 
	`b¡©s
(
fd
, 
´štMemSts
);

300 
	`þo£
(
fd
);

302 
	}
}

309 
	$´štMemSts
(
hªdË
, 
ch¬_t
 *
fmt
, ...)

311 
va_li¡
 
¬gs
;

312 
ch¬_t
 
buf
[256];

314 
	`va_¡¬t
(
¬gs
, 
fmt
);

315 
	`v¥rštf
(
buf
, 
fmt
, 
¬gs
);

316 
	`va_’d
(
¬gs
);

317 
	`wr™e
(
hªdË
, 
buf
, 
	`¡¾’
(buf));

318 
	}
}

	@VXWORKS/main.c

19 
	~<’vLib.h
>

20 
	~<ho¡Lib.h
>

21 
	~<iosLib.h
>

22 
	~<lßdLib.h
>

23 
	~<sigLib.h
>

24 
	~<sysSymTbl.h
>

25 
	~<uÆdLib.h
>

27 
	~"../uemf.h
"

28 
	~"../wsIÁº.h
"

30 #ifdeà
WEBS_SSL_SUPPORT


31 
	~"../websSSL.h
"

34 #ifdeà
USER_MANAGEMENT_SUPPORT


35 
	~"../um.h
"

36 
fÜmDefšeU£rMgmt
();

43 
	#ROOT_DIR
 
	`T
("/©a0/webs")

	)

45 
ch¬_t
 *
	groÙWeb
 = 
T
("www");

46 
ch¬_t
 *
	gdemoWeb
 = 
T
("wwwdemo");

47 
ch¬_t
 *
	g·sswÜd
 = 
T
("");

48 
	gpÜt
 = 80;

49 
	g»Œ›s
 = 5;

50 
	gfšished
;

54 
š™Webs
(
demo
);

55 
a¥Te¡
(
eid
, 
webs_t
 
wp
, 
¬gc
, 
ch¬_t
 **
¬gv
);

56 
fÜmTe¡
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
);

57 
websHomePageHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
,

58 
¬g
, 
ch¬_t
 *
u¾
, ch¬_ˆ*
·th
, ch¬_ˆ*
qu”y
);

59 
websT”mSigHªdËr
(
signo
);

60 #ifdeà
B_STATS


61 
´štMemSts
(
hªdË
, 
ch¬_t
 *
fmt
, ...);

62 
memL—ks
();

70 
	$websvxmaš
(
¬gc
, **
¬gv
)

72 
i
, 
demo
 = 0;

74 
i
 = 1; i < 
¬gc
; i++) {

75 ià(
	`¡rcmp
(
¬gv
[
i
], "-demo") == 0) {

76 
demo
++;

86 
	`bÝ’
(
NULL
, (60 * 1024), 
B_USE_MALLOC
);

91 
fšished
 = 0;

92 ià(
	`š™Webs
(
demo
) < 0) {

96 #ifdeà
WEBS_SSL_SUPPORT


97 
	`websSSLO³n
();

105 !
fšished
) {

106 ià(
	`sock‘R—dy
(-1è|| 
	`sock‘S–eù
(-1, 2000)) {

107 
	`sock‘Proûss
(-1);

109 
	`websCgiCËªup
();

110 
	`emfSchedProûss
();

113 #ifdeà
WEBS_SSL_SUPPORT


114 
	`websSSLClo£
();

117 #ifdeà
USER_MANAGEMENT_SUPPORT


118 
	`umClo£
();

124 
	`websClo£S”v”
();

125 
	`sock‘Clo£
();

126 
	`symSubClo£
();

127 #ifdeà
B_STATS


128 
	`memL—ks
();

130 
	`bþo£
();

132 
	}
}

139 
	$š™Webs
(
demo
)

141 
š_addr
 
šddr
;

142 *
pSŒšg
;

143 
ho¡
[64], 
webdœ
[128];

144 
ch¬_t
 
wbuf
[128];

149 
	`sock‘O³n
();

150 
	`symSubO³n
();

152 #ifdeà
USER_MANAGEMENT_SUPPORT


156 
	`umO³n
();

157 
	`umRe¡Üe
(
	`T
("umconfig.txt"));

164 ià(
	`g‘ho¡Çme
(
ho¡
, (host)) < 0) {

165 
	`”rÜ
(
E_L
, 
E_LOG
, 
	`T
("Can't get hostname"));

168 
šddr
.
s_addr
 = (è
	`ho¡G‘ByName
(
ho¡
);

174 ià(
demo
) {

175 
	`¥rštf
(
webdœ
, "%s/%s", 
ROOT_DIR
, 
demoWeb
);

177 
	`¥rštf
(
webdœ
, "%s/%s", 
ROOT_DIR
, 
roÙWeb
);

183 
	`websS‘DeçuÉDœ
(
webdœ
);

184 
pSŒšg
 = 
	`š‘_Áß
(
šddr
);

185 
	`ascToUni
(
wbuf
, 
pSŒšg
, 
	`mš
(
	`¡¾’
(pString) + 1, (wbuf)));

186 
	`ä“
(
pSŒšg
);

187 
	`websS‘I·ddr
(
wbuf
);

188 
	`ascToUni
(
wbuf
, 
ho¡
, 
	`mš
(
	`¡¾’
(host) + 1, (wbuf)));

189 
	`websS‘Ho¡
(
wbuf
);

194 
	`websS‘DeçuÉPage
(
	`T
("default.asp"));

195 
	`websS‘PasswÜd
(
·sswÜd
);

201 
	`websO³nS”v”
(
pÜt
, 
»Œ›s
);

208 
	`websU¾HªdËrDefše
(
	`T
(""), 
NULL
, 0, 
websSecur™yHªdËr
,

209 
WEBS_HANDLER_FIRST
);

210 
	`websU¾HªdËrDefše
(
	`T
("/gofÜm"), 
NULL
, 0, 
websFÜmHªdËr
, 0);

211 
	`websU¾HªdËrDefše
(
	`T
("/cgi-bš"), 
NULL
, 0, 
websCgiHªdËr
, 0);

212 
	`websU¾HªdËrDefše
(
	`T
(""), 
NULL
, 0, 
websDeçuÉHªdËr
,

213 
WEBS_HANDLER_LAST
);

219 
	`websA¥Defše
(
	`T
("a¥Te¡"), 
a¥Te¡
);

220 
	`websFÜmDefše
(
	`T
("fÜmTe¡"), 
fÜmTe¡
);

225 #ifdeà
USER_MANAGEMENT_SUPPORT


226 
	`fÜmDefšeU£rMgmt
();

232 
	`websU¾HªdËrDefše
(
	`T
("/"), 
NULL
, 0, 
websHomePageHªdËr
, 0);

237 
	`sigÇl
(
SIGTERM
, 
websT”mSigHªdËr
);

238 
	`sigÇl
(
SIGKILL
, 
websT”mSigHªdËr
);

241 
	}
}

250 
	$a¥Te¡
(
eid
, 
webs_t
 
wp
, 
¬gc
, 
ch¬_t
 **
¬gv
)

252 
ch¬_t
 *
Çme
, *
add»ss
;

254 ià(
	`ejArgs
(
¬gc
, 
¬gv
, 
	`T
("% %s"), &
Çme
, &
add»ss
) < 2) {

255 
	`websE¼Ü
(
wp
, 400, 
	`T
("Insufficient‡rgs\n"));

258  
	`websWr™e
(
wp
, 
	`T
("Name: %s, Add»s %s"), 
Çme
, 
add»ss
);

259 
	}
}

266 
	$fÜmTe¡
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
)

268 
ch¬_t
 *
Çme
, *
add»ss
;

270 
Çme
 = 
	`websG‘V¬
(
wp
, 
	`T
("name"), T("Joe Smith"));

271 
add»ss
 = 
	`websG‘V¬
(
wp
, 
	`T
("address"), T("1212 Milky Way Ave."));

273 
	`websH—d”
(
wp
);

274 
	`websWr™e
(
wp
, 
	`T
("<body><h2>Name: %s, Add»ss: %s</h2>\n"), 
Çme
, 
add»ss
);

275 
	`websFoÙ”
(
wp
);

276 
	`websDÚe
(
wp
, 200);

277 
	}
}

284 
	$websHomePageHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
,

285 
¬g
, 
ch¬_t
 *
u¾
, ch¬_ˆ*
·th
, ch¬_ˆ*
qu”y
)

290 ià(*
u¾
 =ð'\0' || 
	`g¡rcmp
(u¾, 
	`T
("/")) == 0) {

291 
	`websRedœeù
(
wp
, 
	`T
("home.asp"));

295 
	}
}

305 
	$websT”mSigHªdËr
(
signo
)

307 ià(
signo
 =ð
SIGTERM
) {

308 
fšished
 = 1;

309 } ià(
signo
 =ð
SIGKILL
) {

310 #ifdeà
WEBS_SSL_SUPPORT


311 
	`websSSLClo£
();

314 #ifdeà
USER_MANAGEMENT_SUPPORT


315 
	`umClo£
();

317 
	`websClo£S”v”
();

318 
	`sock‘Clo£
();

319 
	`symSubClo£
();

320 #ifdeà
B_STATS


321 
	`memL—ks
();

323 
	`bþo£
();

324 
	`ex™
(1);

326 
	}
}

336 
ch¬_t
 *
	$g‘AbsÞu‹P©h
(
ch¬_t
 *
·th
)

338 
ch¬_t
 *
ž
;

339 
ch¬_t
 *
dev
;

347 ià(
	`iosDevFšd
(
·th
, &
ž
è!ð
NULL
 &&…ath !=ail) {

348  
	`b¡rdup
(
B_L
, 
·th
);

350 
dev
 = 
	`b®loc
(
B_L
, 
LF_PATHSIZE
);

351 
	`g‘cwd
(
dev
, 
LF_PATHSIZE
);

352 
	`¡rÿt
(
dev
, "/");

353 
	`¡rÿt
(
dev
, 
·th
);

354  
dev
;

355 
	}
}

362 
	$vxchdœ
(
ch¬_t
 *
dœÇme
)

364 
rc
;

365 
ch¬_t
 *
·th
;

370 
·th
 = 
	`g‘AbsÞu‹P©h
(
dœÇme
);

377 
rc
 = 
	`chdœ
(
·th
);

378 
	`bä“
(
B_L
, 
·th
);

379  
rc
;

380 
	}
}

383 #ifdeà
B_STATS


384 
	$memL—ks
()

386 
fd
;

388 ià((
fd
 = 
	`gÝ’
(
	`T
("Ëak.txt"), 
O_CREAT
 | 
O_TRUNC
 | 
O_WRONLY
, 0644)) >= 0) {

389 
	`b¡©s
(
fd
, 
´štMemSts
);

390 
	`þo£
(
fd
);

392 
	}
}

399 
	$´štMemSts
(
hªdË
, 
ch¬_t
 *
fmt
, ...)

401 
va_li¡
 
¬gs
;

402 
ch¬_t
 
buf
[256];

404 
	`va_¡¬t
(
¬gs
, 
fmt
);

405 
	`v¥rštf
(
buf
, 
fmt
, 
¬gs
);

406 
	`va_’d
(
¬gs
);

407 
	`wr™e
(
hªdË
, 
buf
, 
	`¡¾’
(buf));

408 
	}
}

	@VXWORKS/vxcgitst.c

1 
	~<’vLib.h
>

2 
	~<¡dio.h
>

4 
	$vxcg™¡_cg›Áry
(
¬gc
, **
¬gv
)

6 
	`´štf
("\r\n");

7 
	`’vShow
(
NULL
);

8 
	}
}

	@WIN/main.c

19 
	~<dœeù.h
>

20 
	~<wšdows.h
>

21 
	~<wšu£r.h
>

22 
	~<´oûss.h
>

24 
	~"../wsIÁº.h
"

26 #ifdeà
WEBS_SSL_SUPPORT


27 
	~"../websSSL.h
"

30 #ifdeà
USER_MANAGEMENT_SUPPORT


31 
	~"../um.h
"

32 
fÜmDefšeU£rMgmt
();

41 
	#IDM_ABOUTBOX
 0xF200

	)

42 
	#IDS_ABOUTBOX
 "AboutBox"

	)

43 
	#IDC_VERSION
 101

	)

44 
	#IDC_BUILDDATE
 102

	)

45 
	#IDC_DISMISS
 103

	)

46 
	#SOCK_DFT_SVC_TIME
 20

	)

52 
ch¬_t
 *
	groÙWeb
 = 
T
("www");

53 
ch¬_t
 *
	gdemoWeb
 = 
T
("wwwdemo");

54 
ch¬_t
 *
	g·sswÜd
 = 
T
("");

57 
	gpÜt
 = 
WEBS_DEFAULT_PORT
;

58 
ch¬_t
 *
	gt™Ë
 = 
T
("GoAhead WebServer");

59 
ch¬_t
 *
	gÇme
 = 
T
("gowebs");

60 
HWND
 
	ghwnd
;

61 
HWND
 
	ghwndAbout
;

62 
	g»Œ›s
 = 5;

63 
	gfšished
;

64 
	gsockS”viûTime
;

68 
š™Webs
(
demo
);

69 
CALLBACK
 
websWšdProc
(
HWND
 
hwnd
, 
msg
,

70 
wp
, 
Í
);

71 
CALLBACK
 
websAboutProc
(
HWND
 
hwnd
, 
msg
,

72 
wp
, 
Í
);

73 
»gi¡”AboutBox
(
HINSTANCE
 
hIn¡ªû
);

74 
ü—‹AboutBox
(
HINSTANCE
 
hIn¡ªû
, 
HWND
 
hwnd
);

75 
a¥Te¡
(
eid
, 
webs_t
 
wp
, 
¬gc
, 
ch¬_t
 **
¬gv
);

76 
WPARAM
 
checkWšdowsMsgLoÝ
();

77 
fÜmTe¡
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
);

78 
wšdowsIn™
(
HINSTANCE
 
hš¡ªû
);

79 
wšdowsClo£
(
HINSTANCE
 
hš¡ªû
);

80 
websHomePageHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
,

81 
ch¬_t
 *
webDœ
, 
¬g
, ch¬_ˆ*
u¾
, ch¬_ˆ*
·th
,

82 
ch¬_t
 *
qu”y
);

83 
´štMemSts
(
hªdË
, 
ch¬_t
 *
fmt
, ...);

84 
memL—ks
();

86 
LPWORD
 
ÍwAlign
(LPWORD);

87 
nCÝyAnsiToWideCh¬
(
LPWORD
, 
LPSTR
);

88 
ûÁ”WšdowOnDi¥Ïy
(
HWND
 
hwndC’‹r
);

94 
APIENTRY
 
	$WšMaš
(
HINSTANCE
 
hš¡ªû
, HINSTANCE 
h´evš¡ªû
,

95 *
¬gs
, 
cmd_show
)

97 
WPARAM
 
rc
;

98 #ifdeà
USE_DEMO_MODE


99 
demo
 = 1;

101 
demo
 = 0;

110 
	`bÝ’
(
NULL
, (60 * 1024), 
B_USE_MALLOC
);

116 ià(
	`wšdowsIn™
(
hš¡ªû
) < 0) {

117  
FALSE
;

123 ià(
	`š™Webs
(
demo
) < 0) {

124  
FALSE
;

127 #ifdeà
WEBS_SSL_SUPPORT


128 
	`websSSLO³n
();

137 !
fšished
) {

138 ià(
	`sock‘R—dy
(-1è|| 
	`sock‘S–eù
(-1, 
sockS”viûTime
)) {

139 
	`sock‘Proûss
(-1);

141 
	`emfSchedProûss
();

142 
	`websCgiCËªup
();

143 ià((
rc
 = 
	`checkWšdowsMsgLoÝ
()) != 0) {

148 #ifdeà
WEBS_SSL_SUPPORT


149 
	`websSSLClo£
();

155 #ifdeà
USER_MANAGEMENT_SUPPORT


156 
	`umClo£
();

162 
	`websClo£S”v”
();

163 
	`sock‘Clo£
();

168 
	`wšdowsClo£
(
hš¡ªû
);

170 #ifdeà
B_STATS


171 
	`memL—ks
();

173 
	`bþo£
();

174  
rc
;

175 
	}
}

182 
	$š™Webs
(
demo
)

184 
ho¡’t
 *
hp
;

185 
š_addr
 
šddr
;

186 *
ý
;

187 
ho¡
[64], 
dœ
[128];

188 
ch¬_t
 
dœ_t
[128];

189 
ch¬_t
 
wbuf
[256];

194 
	`sock‘O³n
();

199 #ifdeà
USER_MANAGEMENT_SUPPORT


200 
	`umO³n
();

201 
	`umRe¡Üe
(
	`T
("umconfig.txt"));

208 ià(
	`g‘ho¡Çme
(
ho¡
, (host)) < 0) {

209 
	`”rÜ
(
E_L
, 
E_LOG
, 
	`T
("Can't get hostname"));

212 ià((
hp
 = 
	`g‘ho¡byÇme
(
ho¡
)è=ð
NULL
) {

213 
	`”rÜ
(
E_L
, 
E_LOG
, 
	`T
("Can't get host‡ddress"));

216 
	`memýy
((*è&
šddr
, (*è
hp
->
h_addr_li¡
[0],

217 (
size_t
è
hp
->
h_Ëngth
);

222 
	`g‘cwd
(
dœ
, (dir));

223 
ý
 = 
dœ
; *cp; cp++) {

224 ià(*
ý
 == '\\')

225 *
ý
 = '/';

227 ià(
ý
 = 
	`¡¼chr
(
dœ
, '/')) {

228 *
ý
 = '\0';

230 
	`ascToUni
(
dœ_t
, 
dœ
, (dir_t));

232 ià(
demo
) {

233 
	`g¥rštf
(
wbuf
, 
	`T
("%s/%s"), 
dœ_t
, 
demoWeb
);

235 
	`g¥rštf
(
wbuf
, 
	`T
("%s/%s"), 
dœ_t
, 
roÙWeb
);

237 
	`websS‘DeçuÉDœ
(
wbuf
);

238 
ý
 = 
	`š‘_Áß
(
šddr
);

239 
	`ascToUni
(
wbuf
, 
ý
, 
	`mš
(
	`¡¾’
(cp) + 1, (wbuf)));

240 
	`websS‘I·ddr
(
wbuf
);

241 
	`ascToUni
(
wbuf
, 
hp
->
h_Çme
, 
	`mš
(
	`¡¾’
(hp->h_name) + 1, (wbuf)));

242 
	`websS‘Ho¡
(
wbuf
);

247 
	`websS‘DeçuÉPage
(
	`T
("default.asp"));

248 
	`websS‘PasswÜd
(
·sswÜd
);

254 
	`websO³nS”v”
(
pÜt
, 
»Œ›s
);

261 
	`websU¾HªdËrDefše
(
	`T
(""), 
NULL
, 0, 
websSecur™yHªdËr
,

262 
WEBS_HANDLER_FIRST
);

263 
	`websU¾HªdËrDefše
(
	`T
("/gofÜm"), 
NULL
, 0, 
websFÜmHªdËr
, 0);

264 
	`websU¾HªdËrDefše
(
	`T
("/cgi-bš"), 
NULL
, 0, 
websCgiHªdËr
, 0);

265 
	`websU¾HªdËrDefše
(
	`T
(""), 
NULL
, 0, 
websDeçuÉHªdËr
,

266 
WEBS_HANDLER_LAST
);

272 
	`websA¥Defše
(
	`T
("a¥Te¡"), 
a¥Te¡
);

273 
	`websFÜmDefše
(
	`T
("fÜmTe¡"), 
fÜmTe¡
);

277 #ifdeà
USER_MANAGEMENT_SUPPORT


278 
	`fÜmDefšeU£rMgmt
();

284 
	`websU¾HªdËrDefše
(
	`T
("/"), 
NULL
, 0, 
websHomePageHªdËr
, 0);

289 
sockS”viûTime
 = 
SOCK_DFT_SVC_TIME
;

292 
	}
}

300 
	$wšdowsIn™
(
HINSTANCE
 
hš¡ªû
)

302 
WNDCLASS
 
wc
;

303 
HMENU
 
hSysM’u
;

305 
	`emfIn¡S‘
((è
hš¡ªû
);

307 
wc
.
¡yË
 = 
CS_HREDRAW
 | 
CS_VREDRAW
;

308 
wc
.
hbrBackground
 = (
HBRUSH
)(
COLOR_WINDOW
+1);

309 
wc
.
hCursÜ
 = 
	`LßdCursÜ
(
NULL
, 
IDC_ARROW
);

310 
wc
.
cbClsExŒa
 = 0;

311 
wc
.
cbWndExŒa
 = 0;

312 
wc
.
hIn¡ªû
 = 
hš¡ªû
;

313 
wc
.
hIcÚ
 = 
NULL
;

314 
wc
.
ÍâWndProc
 = (
WNDPROC
è
websWšdProc
;

315 
wc
.
ÍszM’uName
 = wc.
ÍszCÏssName
 = 
Çme
;

316 ià(! 
	`Regi¡”CÏss
(&
wc
)) {

323 
hwnd
 = 
	`C»©eWšdow
(
Çme
, 
t™Ë
, 
WS_MINIMIZE
 | 
WS_POPUPWINDOW
,

324 
CW_USEDEFAULT
, 0, 0, 0, 
NULL
, NULL, 
hš¡ªû
, NULL);

325 ià(
hwnd
 =ð
NULL
) {

333 
hSysM’u
 = 
	`G‘Sy¡emM’u
(
hwnd
, 
FALSE
);

334 ià(
hSysM’u
 !ð
NULL
)

336 
	`Aµ’dM’u
(
hSysM’u
, 
MF_SEPARATOR
, 0, 
NULL
);

337 
	`Aµ’dM’u
(
hSysM’u
, 
MF_STRING
, 
IDM_ABOUTBOX
, 
	`T
("About WebServer"));

340 
	`ShowWšdow
(
hwnd
, 
SW_SHOWNORMAL
);

341 
	`Upd©eWšdow
(
hwnd
);

343 
hwndAbout
 = 
NULL
;

345 
	}
}

352 
	$wšdowsClo£
(
HINSTANCE
 
hIn¡ªû
)

354 
nR‘uº
;

356 
nR‘uº
 = 
	`UÄegi¡”CÏss
(
Çme
, 
hIn¡ªû
);

358 ià(
hwndAbout
) {

359 
	`De¡royWšdow
(
hwndAbout
);

362  
nR‘uº
;

363 
	}
}

370 
CALLBACK
 
	$websWšdProc
(
HWND
 
hwnd
, 
msg
,

371 
wp
, 
Í
)

373 
msg
) {

374 
WM_DESTROY
:

375 
	`Po¡Qu™Mes§ge
(0);

376 
fšished
++;

379 
WM_SYSCOMMAND
:

380 ià(
wp
 =ð
IDM_ABOUTBOX
) {

381 ià(!
hwndAbout
) {

382 
	`ü—‹AboutBox
((
HINSTANCE
è
	`emfIn¡G‘
(), 
hwnd
);

384 ià(
hwndAbout
) {

385 
	`ShowWšdow
(
hwndAbout
, 
SW_SHOWNORMAL
);

391  
	`DefWšdowProc
(
hwnd
, 
msg
, 
wp
, 
Í
);

392 
	}
}

399 
WPARAM
 
	$checkWšdowsMsgLoÝ
()

401 
MSG
 
msg
;

403 ià(
	`P“kMes§ge
(&
msg
, 
NULL
, 0, 0, 
PM_NOREMOVE
)) {

404 ià(!
	`G‘Mes§ge
(&
msg
, 
NULL
, 0, 0è|| msg.
mes§ge
 =ð
WM_QUIT
) {

405  
msg
.
wP¬am
;

408 
	`T¿n¦©eMes§ge
(&
msg
);

409 
	`Di¥©chMes§ge
(&
msg
);

413 
	}
}

420 
CALLBACK
 
	$websAboutProc
(
HWND
 
hwndDlg
, 
msg
,

421 
wp
, 
Í
)

423 
lResuÉ
;

424 
HWND
 
hwnd
;

426 
lResuÉ
 = 
	`DefWšdowProc
(
hwndDlg
, 
msg
, 
wp
, 
Í
);

428 
msg
) {

429 
WM_CREATE
:

430 
hwndAbout
 = 
hwndDlg
;

433 
WM_DESTROY
:

434 
hwndAbout
 = 
NULL
;

437 
WM_COMMAND
:

438 ià(
wp
 =ð
IDOK
) {

439 
	`EndDŸlog
(
hwndDlg
, 0);

440 
	`Po¡Mes§ge
(
hwndDlg
, 
WM_CLOSE
, 0, 0);

444 
WM_INITDIALOG
:

448 
hwnd
 = 
	`G‘DlgI‹m
(
hwndDlg
, 
IDC_VERSION
);

449 ià(
hwnd
) {

450 
	`S‘WšdowText
(
hwnd
, 
WEBS_VERSION
);

453 
hwnd
 = 
	`G‘DlgI‹m
(
hwndDlg
, 
IDC_BUILDDATE
);

454 ià(
hwnd
) {

455 
	`S‘WšdowText
(
hwnd
, 
__DATE__
);

458 
	`S‘WšdowText
(
hwndDlg
, 
	`T
("GoAhead WebServer"));

459 
	`ûÁ”WšdowOnDi¥Ïy
(
hwndDlg
);

461 
hwndAbout
 = 
hwndDlg
;

463 
lResuÉ
 = 
FALSE
;

467  
lResuÉ
;

468 
	}
}

475 
	$»gi¡”AboutBox
(
HINSTANCE
 
hIn¡ªû
)

477 
WNDCLASS
 
wc
;

479 
wc
.
¡yË
 = 0;

480 
wc
.
ÍâWndProc
 = (
WNDPROC
)
websAboutProc
;

482 
wc
.
cbClsExŒa
 = 0;

483 
wc
.
cbWndExŒa
 = 0;

484 
wc
.
hIn¡ªû
 = hInstance;

485 
wc
.
hIcÚ
 = 
NULL
;

486 
wc
.
hCursÜ
 = 
	`LßdCursÜ
(
NULL
, 
IDC_ARROW
);

487 
wc
.
hbrBackground
 = 
	`G‘StockObjeù
(
LTGRAY_BRUSH
);

488 
wc
.
ÍszM’uName
 = 
NULL
;

489 
wc
.
ÍszCÏssName
 = 
IDS_ABOUTBOX
;

491 ià(!
	`Regi¡”CÏss
(&
wc
)) {

496 
	}
}

504 
LPWORD
 
	$ÍwAlign
(
LPWORD
 
ÍIn
)

506 
ULONG
 
ul
;

508 
ul
 = (
ULONG
è
ÍIn
;

509 
ul
 +=3;

510 
ul
 >>=2;

511 
ul
 <<=2;

512  (
LPWORD
è
ul
;

513 
	}
}

523 
	$nCÝyAnsiToWideCh¬
(
LPWORD
 
ÍWCSŒ
, 
LPSTR
 
ÍAnsiIn
)

525 
cchAnsi
 = 
	`l¡¾’
(
ÍAnsiIn
);

527  
	`MuÉiBy‹ToWideCh¬
(
	`G‘ACP
(),

528 
MB_PRECOMPOSED
, 
ÍAnsiIn
, 
cchAnsi
, 
ÍWCSŒ
, cchAnsi) + 1;

529 
	}
}

536 
	$ü—‹AboutBox
(
HINSTANCE
 
hIn¡ªû
, 
HWND
 
hwnd
)

538 
WORD
 *
p
, *
pdlg‹m¶©e
;

539 
nch¬
;

540 
DWORD
 
lStyË
;

541 
HWND
 
hwndR‘uº
;

546 
pdlg‹m¶©e
 = 
p
 = (
PWORD
è
	`LoÿlAÎoc
(
LPTR
, 1000);

552 
lStyË
 = 
WS_DLGFRAME
 | 
WS_POPUP
 | 
WS_VISIBLE
 | 
WS_CLIPCHILDREN
 | 
DS_SETFONT
;

553 *
p
++ = 
	`LOWORD
(
lStyË
);

554 *
p
++ = 
	`HIWORD
(
lStyË
);

555 *
p
++ = 0;

556 *
p
++ = 0;

557 *
p
++ = 7;

558 *
p
++ = 210;

559 *
p
++ = 10;

560 *
p
++ = 200;

561 *
p
++ = 100;

562 *
p
++ = 0;

563 *
p
++ = 0;

568 
nch¬
 = 
	`nCÝyAnsiToWideCh¬
(
p
, 
WEBS_NAME
);

569 
p
 +ð
nch¬
;

574 *
p
++ = 11;

575 
nch¬
 = 
	`nCÝyAnsiToWideCh¬
(
p
, 
	`T
("Arial Bold"));

576 
p
 +ð
nch¬
;

581 
p
 = 
	`ÍwAlign
(p);

586 
lStyË
 = 
SS_CENTER
 | 
WS_VISIBLE
 | 
WS_CHILD
 | 
WS_TABSTOP
;

587 *
p
++ = 
	`LOWORD
(
lStyË
);

588 *
p
++ = 
	`HIWORD
(
lStyË
);

589 *
p
++ = 0;

590 *
p
++ = 0;

591 *
p
++ = 10;

592 *
p
++ = 10;

593 *
p
++ = 180;

594 *
p
++ = 15;

595 *
p
++ = 1;

600 
nch¬
 = 
	`nCÝyAnsiToWideCh¬
(
p
, 
	`TEXT
("STATIC"));

601 
p
 +ð
nch¬
;

606 
nch¬
 = 
	`nCÝyAnsiToWideCh¬
(
p
,

607 
	`TEXT
("GoAh—d WebS”v” "è
WEBS_VERSION
);

608 
p
 +ð
nch¬
;

609 #ifdeà
WEBS_SSL_SUPPORT


610 
p
 -ð(
ch¬_t
);

611 
nch¬
 = 
	`nCÝyAnsiToWideCh¬
(
p
,

612 
	`TEXT
("\n"è
SSL_NAME
 TEXT(" "è
SSL_VERSION
);

613 
p
 +ð
nch¬
;

618 *
p
++ = 0;

623 
p
 = 
	`ÍwAlign
(p);

628 
lStyË
 = 
SS_CENTER
 | 
WS_VISIBLE
 | 
WS_CHILD
 | 
WS_TABSTOP
;

629 *
p
++ = 
	`LOWORD
(
lStyË
);

630 *
p
++ = 
	`HIWORD
(
lStyË
);

631 *
p
++ = 0;

632 *
p
++ = 0;

633 *
p
++ = 10;

634 *
p
++ = 30;

635 *
p
++ = 180;

636 *
p
++ = 15;

637 *
p
++ = 1;

642 
nch¬
 = 
	`nCÝyAnsiToWideCh¬
(
p
, 
	`TEXT
("STATIC"));

643 
p
 +ð
nch¬
;

648 
nch¬
 = 
	`nCÝyAnsiToWideCh¬
(
p
, 
GOAHEAD_COPYRIGHT
);

649 
p
 +ð
nch¬
;

654 *
p
++ = 0;

658 
p
 = 
	`ÍwAlign
(p);

663 
lStyË
 = 
SS_RIGHT
 | 
WS_VISIBLE
 | 
WS_CHILD
 | 
WS_TABSTOP
;

664 *
p
++ = 
	`LOWORD
(
lStyË
);

665 *
p
++ = 
	`HIWORD
(
lStyË
);

666 *
p
++ = 0;

667 *
p
++ = 0;

668 *
p
++ = 28;

669 *
p
++ = 50;

670 *
p
++ = 70;

671 *
p
++ = 10;

672 *
p
++ = 1;

673 
nch¬
 = 
	`nCÝyAnsiToWideCh¬
(
p
, 
	`T
("STATIC"));

674 
p
 +ð
nch¬
;

675 
nch¬
 = 
	`nCÝyAnsiToWideCh¬
(
p
, 
	`T
("Version:"));

676 
p
 +ð
nch¬
;

677 *
p
++ = 0;

682 
p
 = 
	`ÍwAlign
(p);

683 
lStyË
 = 
SS_LEFT
 | 
WS_VISIBLE
 | 
WS_CHILD
 | 
WS_TABSTOP
;

684 *
p
++ = 
	`LOWORD
(
lStyË
);

685 *
p
++ = 
	`HIWORD
(
lStyË
);

686 *
p
++ = 0;

687 *
p
++ = 0;

688 *
p
++ = 102;

689 *
p
++ = 50;

690 *
p
++ = 70;

691 *
p
++ = 10;

692 *
p
++ = 
IDC_VERSION
;

693 
nch¬
 = 
	`nCÝyAnsiToWideCh¬
(
p
, 
	`T
("STATIC"));

694 
p
 +ð
nch¬
;

695 
nch¬
 = 
	`nCÝyAnsiToWideCh¬
(
p
, 
	`T
("version"));

696 
p
 +ð
nch¬
;

697 *
p
++ = 0;

701 
p
 = 
	`ÍwAlign
(p);

702 
lStyË
 = 
SS_RIGHT
 | 
WS_VISIBLE
 | 
WS_CHILD
 | 
WS_TABSTOP
;

703 *
p
++ = 
	`LOWORD
(
lStyË
);

704 *
p
++ = 
	`HIWORD
(
lStyË
);

705 *
p
++ = 0;

706 *
p
++ = 0;

707 *
p
++ = 28;

708 *
p
++ = 65;

709 *
p
++ = 70;

710 *
p
++ = 10;

711 *
p
++ = 1;

712 
nch¬
 = 
	`nCÝyAnsiToWideCh¬
(
p
, 
	`T
("STATIC"));

713 
p
 +ð
nch¬
;

714 
nch¬
 = 
	`nCÝyAnsiToWideCh¬
(
p
, 
	`T
("Build Date:"));

715 
p
 +ð
nch¬
;

716 *
p
++ = 0;

720 
p
 = 
	`ÍwAlign
(p);

721 
lStyË
 = 
SS_LEFT
 | 
WS_VISIBLE
 | 
WS_CHILD
 | 
WS_TABSTOP
;

722 *
p
++ = 
	`LOWORD
(
lStyË
);

723 *
p
++ = 
	`HIWORD
(
lStyË
);

724 *
p
++ = 0;

725 *
p
++ = 0;

726 *
p
++ = 102;

727 *
p
++ = 65;

728 *
p
++ = 70;

729 *
p
++ = 10;

730 *
p
++ = 
IDC_BUILDDATE
;

731 
nch¬
 = 
	`nCÝyAnsiToWideCh¬
(
p
, 
	`T
("STATIC"));

732 
p
 +ð
nch¬
;

733 
nch¬
 = 
	`nCÝyAnsiToWideCh¬
(
p
, 
	`T
("Build Date"));

734 
p
 +ð
nch¬
;

735 *
p
++ = 0;

739 
p
 = 
	`ÍwAlign
(p);

740 
lStyË
 = 
BS_PUSHBUTTON
 | 
WS_VISIBLE
 | 
WS_CHILD
 | 
WS_TABSTOP
;

741 *
p
++ = 
	`LOWORD
(
lStyË
);

742 *
p
++ = 
	`HIWORD
(
lStyË
);

743 *
p
++ = 0;

744 *
p
++ = 0;

745 *
p
++ = 80;

746 *
p
++ = 80;

747 *
p
++ = 40;

748 *
p
++ = 10;

749 *
p
++ = 
IDOK
;

750 
nch¬
 = 
	`nCÝyAnsiToWideCh¬
(
p
, 
	`T
("BUTTON"));

751 
p
 +ð
nch¬
;

752 
nch¬
 = 
	`nCÝyAnsiToWideCh¬
(
p
, 
	`T
("OK"));

753 
p
 +ð
nch¬
;

754 *
p
++ = 0;

756 
hwndR‘uº
 = 
	`C»©eDŸlogIndœeù
(
hIn¡ªû
,

757 (
LPDLGTEMPLATE
è
pdlg‹m¶©e
, 
hwnd
, (
DLGPROC
è
websAboutProc
);

759 
	`LoÿlF»e
(
	`LoÿlHªdË
(
pdlg‹m¶©e
));

762 
	}
}

771 
	$a¥Te¡
(
eid
, 
webs_t
 
wp
, 
¬gc
, 
ch¬_t
 **
¬gv
)

773 
ch¬_t
 *
Çme
, *
add»ss
;

775 ià(
	`ejArgs
(
¬gc
, 
¬gv
, 
	`T
("% %s"), &
Çme
, &
add»ss
) < 2) {

776 
	`websE¼Ü
(
wp
, 400, 
	`T
("Insufficient‡rgs\n"));

779  
	`websWr™e
(
wp
, 
	`T
("Name: %s, Add»s %s"), 
Çme
, 
add»ss
);

780 
	}
}

788 
	$fÜmTe¡
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
)

790 
ch¬_t
 *
Çme
, *
add»ss
;

792 
Çme
 = 
	`websG‘V¬
(
wp
, 
	`T
("name"), T("Joe Smith"));

793 
add»ss
 = 
	`websG‘V¬
(
wp
, 
	`T
("address"), T("1212 Milky Way Ave."));

795 
	`websH—d”
(
wp
);

796 
	`websWr™e
(
wp
, 
	`T
("<body><h2>Name: %s, Add»ss: %s</h2>\n"), 
Çme
, 
add»ss
);

797 
	`websFoÙ”
(
wp
);

798 
	`websDÚe
(
wp
, 200);

799 
	}
}

806 
	$websHomePageHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
,

807 
¬g
, 
ch¬_t
 *
u¾
, ch¬_ˆ*
·th
, ch¬_ˆ*
qu”y
)

812 ià(*
u¾
 =ð'\0' || 
	`g¡rcmp
(u¾, 
	`T
("/")) == 0) {

813 
	`websRedœeù
(
wp
, 
WEBS_DEFAULT_HOME
);

817 
	}
}

821 #ifdeà
B_STATS


822 
	$memL—ks
()

824 
fd
;

826 ià((
fd
 = 
	`gÝ’
(
	`T
("Ëak.txt"), 
O_CREAT
 | 
O_TRUNC
 | 
O_WRONLY
)) >= 0) {

827 
	`b¡©s
(
fd
, 
´štMemSts
);

828 
	`þo£
(
fd
);

830 
	}
}

837 
	$´štMemSts
(
hªdË
, 
ch¬_t
 *
fmt
, ...)

839 
va_li¡
 
¬gs
;

840 
ch¬_t
 
buf
[256];

842 
	`va_¡¬t
(
¬gs
, 
fmt
);

843 
	`v¥rštf
(
buf
, 
fmt
, 
¬gs
);

844 
	`va_’d
(
¬gs
);

845 
	`wr™e
(
hªdË
, 
buf
, 
	`¡¾’
(buf));

846 
	}
}

854 
	#RCWIDTH
(
rc
è(Ôc).
right
 - (rc).
Ëá
)

	)

855 
	#RCHEIGHT
(
rc
è(Ôc).
bÙtom
 - (rc).
tÝ
)

	)

857 
	$ûÁ”WšdowOnDi¥Ïy
(
HWND
 
hwndC’‹r
)

859 
xLeá
, 
yTÝ
, 
cxDi¥
, 
cyDi¥
;

860 
RECT
 
rcDlg
;

862 
	`a_as£¹
(
	`IsWšdow
(
hwndC’‹r
));

867 
	`G‘WšdowReù
(
hwndC’‹r
, &
rcDlg
);

872 
cxDi¥
 = 
	`G‘Sy¡emM‘rics
(
SM_CXFULLSCREEN
);

873 
cyDi¥
 = 
	`G‘Sy¡emM‘rics
(
SM_CYFULLSCREEN
);

878 
xLeá
 = 
cxDi¥
 / 2 - 
	`RCWIDTH
(
rcDlg
) / 2;

879 
yTÝ
 = 
cyDi¥
 / 2 - 
	`RCHEIGHT
(
rcDlg
) / 2;

884 ià(
xLeá
 < 0) {

885 
xLeá
 = 0;

886 } ià(
xLeá
 + 
	`RCWIDTH
(
rcDlg
è> 
cxDi¥
) {

887 
xLeá
 = 
cxDi¥
 - 
	`RCWIDTH
(
rcDlg
);

890 ià(
yTÝ
 < 0) {

891 
yTÝ
 = 0;

892 } ià(
yTÝ
 + 
	`RCHEIGHT
(
rcDlg
è> 
cyDi¥
) {

893 
yTÝ
 = 
cyDi¥
 - 
	`RCHEIGHT
(
rcDlg
);

899 
	`S‘WšdowPos
(
hwndC’‹r
, 
HWND_TOP
, 
xLeá
, 
yTÝ
, -1, -1,

900 
SWP_NOSIZE
 | 
SWP_NOZORDER
 | 
SWP_NOACTIVATE
);

901 
	}
}

	@asp.c

20 
	~"wsIÁº.h
"

24 
sym_fd_t
 
	gwebsA¥FunùiÚs
 = -1;

25 
	ga¥O³nCouÁ
 = 0;

29 
ch¬_t
 *
¡¹okcmp
(ch¬_ˆ*
s1
, ch¬_ˆ*
s2
);

30 
ch¬_t
 *
skWh™e
(ch¬_ˆ*
s
);

37 
	$websA¥O³n
()

39 ià(++
a¥O³nCouÁ
 == 1) {

43 
websA¥FunùiÚs
 = 
	`symO³n
(
WEBS_SYM_INIT
 * 2);

48 
	`websA¥Defše
(
	`T
("wr™e"), 
websA¥Wr™e
);

51 
	}
}

58 
	$websA¥Clo£
()

60 ià(--
a¥O³nCouÁ
 <= 0) {

61 ià(
websA¥FunùiÚs
 != -1) {

62 
	`symClo£
(
websA¥FunùiÚs
);

63 
websA¥FunùiÚs
 = -1;

66 
	}
}

75 
	$websA¥Reque¡
(
webs_t
 
wp
, 
ch¬_t
 *
Í©h
)

77 
websStTy³
 
sbuf
;

78 *
rbuf
;

79 
ch¬_t
 *
tok’
, *
Ïng
, *
»suÉ
, *
·th
, *
•
, *
ý
, *
buf
, *
Ãx
;

80 
ch¬_t
 *
Ï¡
;

81 
rc
, 
’gše
, 
Ën
, 
ejid
;

83 
	`a_as£¹
(
	`websV®id
(
wp
));

84 
	`a_as£¹
(
Í©h
 && *lpath);

86 
rc
 = -1;

87 
buf
 = 
NULL
;

88 
rbuf
 = 
NULL
;

89 
’gše
 = 
EMF_SCRIPT_EJSCRIPT
;

90 
wp
->
æags
 |ð
WEBS_HEADER_DONE
;

91 
·th
 = 
	`websG‘Reque¡P©h
(
wp
);

96 
ejid
 = 
	`ejO³nEngše
(
wp
->
cgiV¬s
, 
websA¥FunùiÚs
);

97 ià(
ejid
 < 0) {

98 
	`websE¼Ü
(
wp
, 200, 
	`T
("Can't create Ejscriptƒngine"));

99 
dÚe
;

101 
	`ejS‘U£rHªdË
(
ejid
, 
wp
);

103 ià(
	`websPageSt
(
wp
, 
Í©h
, 
·th
, &
sbuf
) < 0) {

104 
	`websE¼Ü
(
wp
, 404, 
	`T
("Cª'ˆ¡© %s"), 
Í©h
);

105 
dÚe
;

111 
Ën
 = 
sbuf
.
size
 * ();

112 ià((
rbuf
 = 
	`b®loc
(
B_L
, 
Ën
 + 1)è=ð
NULL
) {

113 
	`websE¼Ü
(
wp
, 200, 
	`T
("Can't get memory"));

114 
dÚe
;

116 
rbuf
[
Ën
] = '\0';

118 ià(
	`websPageR—dD©a
(
wp
, 
rbuf
, 
Ën
) !=†en) {

119 
	`websE¼Ü
(
wp
, 200, 
	`T
("Cªˆ»ad %s"), 
Í©h
);

120 
dÚe
;

122 
	`websPageClo£
(
wp
);

127 ià((
buf
 = 
	`b®locAscToUni
(
rbuf
, 
Ën
)è=ð
NULL
) {

128 
	`websE¼Ü
(
wp
, 200, 
	`T
("Can't get memory"));

129 
dÚe
;

135 
Ï¡
 = 
buf
;

136 
rc
 = 0;

137 
rc
 =ð0 && *
Ï¡
 && ((
Ãx
 = 
	`g¡r¡r
Öa¡, 
	`T
("<%"))è!ð
NULL
)) {

138 
	`websWr™eBlock
(
wp
, 
Ï¡
, (
Ãx
 -†ast));

139 
Ãx
 = 
	`skWh™e
(nextp + 2);

144 
tok’
 = 
	`T
("language");

146 ià((
Ïng
 = 
	`¡¹okcmp
(
Ãx
, 
tok’
)è!ð
NULL
) {

147 ià((
ý
 = 
	`¡¹okcmp
(
Ïng
, 
	`T
("=javasüt"))è!ð
NULL
) {

148 
’gše
 = 
EMF_SCRIPT_EJSCRIPT
;

150 
ý
 = 
Ãx
;

152 
Ãx
 = 
ý
;

158 ià((
•
 = 
	`g¡r¡r
(
Ãx
, 
	`T
("%>"))è!ð
NULL
) {

160 *
•
 = '\0';

161 
Ï¡
 = 
•
 + 2;

162 
Ãx
 = 
	`skWh™e
(nextp);

166 
ý
 = 
Ãx
; *cp; ) {

167 ià(*
ý
 == '\\' && (cp[1] == '\r' || cp[1] == '\n')) {

168 *
ý
++ = ' ';

169 *
ý
 == '\r' || *cp == '\n') {

170 *
ý
++ = ' ';

173 
ý
++;

181 ià(*
Ãx
) {

182 
»suÉ
 = 
NULL
;

183 ià(
’gše
 =ð
EMF_SCRIPT_EJSCRIPT
) {

184 
rc
 = 
	`sütEv®
(
’gše
, 
Ãx
, &
»suÉ
, (*è
ejid
);

186 
rc
 = 
	`sütEv®
(
’gše
, 
Ãx
, &
»suÉ
, 
wp
);

188 ià(
rc
 < 0) {

194 ià(
	`websV®id
(
wp
)) {

195 ià(
»suÉ
) {

196 
	`websWr™e
(
wp
, 
	`T
("<h2><b>ASP Error: %s</b></h2>\n"),

197 
»suÉ
);

198 
	`websWr™e
(
wp
, 
	`T
("<´e>%s</´e>"), 
Ãx
);

199 
	`bä“
(
B_L
, 
»suÉ
);

201 
	`websWr™e
(
wp
, 
	`T
("<h2><b>ASP Error</b></h2>\n%s\n"),

202 
Ãx
);

204 
	`websWr™e
(
wp
, 
	`T
("</body></html>\n"));

205 
rc
 = 0;

207 
dÚe
;

212 
	`websE¼Ü
(
wp
, 200, 
	`T
("UÁ”mš©ed süˆš %s: \n"), 
Í©h
);

213 
rc
 = -1;

214 
dÚe
;

220 ià(
Ï¡
 && *Ï¡ && 
rc
 == 0) {

221 
	`websWr™eBlock
(
wp
, 
Ï¡
, 
	`g¡¾’
(last));

223 
rc
 = 0;

228 
dÚe
:

229 ià(
	`websV®id
(
wp
)) {

230 
	`websPageClo£
(
wp
);

231 ià(
ejid
 >= 0) {

232 
	`ejClo£Engše
(
ejid
);

235 
	`bä“Saã
(
B_L
, 
buf
);

236 
	`bä“Saã
(
B_L
, 
rbuf
);

237  
rc
;

238 
	}
}

245 
websA¥Defše
(
ch¬_t
 *
Çme
,

246 (*
â
)(
ejid
, 
webs_t
 
wp
, 
¬gc
, 
ch¬_t
 **
¬gv
))

248  
	`ejS‘Glob®FunùiÚDœeù
(
websA¥FunùiÚs
, 
Çme
,

249 ((*)(, *, , 
ch¬_t
**)è
â
);

250 
	}
}

257 
	$websA¥Wr™e
(
ejid
, 
webs_t
 
wp
, 
¬gc
, 
ch¬_t
 **
¬gv
)

259 
i
;

261 
	`a_as£¹
(
	`websV®id
(
wp
));

263 
i
 = 0; i < 
¬gc
; ) {

264 
	`a_as£¹
(
¬gv
);

265 ià(
	`websWr™eBlock
(
wp
, 
¬gv
[
i
], 
	`g¡¾’
(argv[i])) < 0) {

268 ià(++
i
 < 
¬gc
) {

269 ià(
	`websWr™eBlock
(
wp
, 
	`T
(" "), 2) < 0) {

275 
	}
}

283 
ch¬_t
 *
	$¡¹okcmp
(
ch¬_t
 *
s1
, ch¬_ˆ*
s2
)

285 
Ën
;

287 
s1
 = 
	`skWh™e
(s1);

288 
Ën
 = 
	`g¡¾’
(
s2
);

289 
Ën
 = 
	`g¡¾’
(
s2
);†’ > 0 && (
	`tÞow”
(*
s1
) ==olower(*s2));†en--) {

290 ià(*
s2
 == '\0') {

291  
s1
;

293 
s1
++;

294 
s2
++;

296 ià(
Ën
 == 0) {

297  
s1
;

299  
NULL
;

300 
	}
}

307 
ch¬_t
 *
	$skWh™e
(
ch¬_t
 *
s
)

309 
	`a_as£¹
(
s
);

311 ià(
s
 =ð
NULL
) {

312  
s
;

314 *
s
 && 
	`gis¥aû
(*s)) {

315 
s
++;

317  
s
;

318 
	}
}

	@balloc.c

28 
	#IN_BALLOC


	)

30 
	~"uemf.h
"

32 
	~<¡d¬g.h
>

33 
	~<¡dlib.h
>

35 #iâdeà
NO_BALLOC


41 #ifdeà
B_STATS


47 
	m®loc
;

48 
	mšu£
;

49 } 
	tbStsTy³
;

52 
ch¬_t
 
	mfže
[
FNAMESIZE
];

53 
	m®loÿ‹d
;

54 
	mcouÁ
;

55 
	mtimes
;

56 
	mÏrge¡
;

57 
	mq
;

58 } 
	tbStsFžeTy³
;

64 *
	m±r
;

65 
bStsFžeTy³
 *
	mwho
;

66 } 
	tbStsBlkTy³
;

68 
bStsTy³
 
	gbSts
[
B_MAX_CLASS
];

69 
bStsFžeTy³
 
	gbStsFžes
[
B_MAX_FILES
];

70 
bStsBlkTy³
 
	gbStsBlks
[
B_MAX_BLOCKS
];

71 
	gbStsBlksMax
 = 0;

72 
	gbStsFžesMax
 = 0;

73 
	gbStsMemInU£
 = 0;

74 
	gbStsB®locInU£
 = 0;

75 
	gbStsMemMax
 = 0;

76 
	gbStsB®locMax
 = 0;

77 *
	gbSckMš
 = (*) -1;

78 *
	gbSckS¹
;

79 
	gbStsMemM®loc
 = 0;

90 
	#ROUNDUP4
(
size
è((sizeè% 4è? (sizeè+ (4 - ((sizeè% 4)è: (size)

	)

97 
bTy³
 *
	gbQh—d
[
B_MAX_CLASS
];

98 *
	gbF»eBuf
;

99 *
	gbF»eNext
;

100 
	gbF»eSize
;

101 
	gbF»eLeá
;

102 
	gbFÏgs
 = 
B_USE_MALLOC
;

103 
	gbÝ’CouÁ
 = 0;

107 #ifdeà
B_STATS


108 
bStsAÎoc
(
B_ARGS_DEC
, *
±r
, 
q
, 
size
);

109 
bStsF»e
(
B_ARGS_DEC
, *
±r
, 
q
, 
size
);

110 
b¡©sWr™e
(
hªdË
, 
ch¬_t
 *
fmt
, ...);

111 
bStsFžeSÜt
(cÚ¡ *
ý1
, cÚ¡ *
ý2
);

114 #ià(
defšed
 (
B_FILL
è|| defšed (
B_VERIFY_CAUSES_SEVERE_OVERHEAD
))

115 
bFžlBlock
(*
buf
, 
bufsize
);

118 #ifdeà
B_VERIFY_CAUSES_SEVERE_OVERHEAD


119 
v”ifyU£dBlock
(
bTy³
 *
bp
, 
q
);

120 
v”ifyF»eBlock
(
bTy³
 *
bp
, 
q
);

121 
v”ifyB®locS·û
();

124 
b®locG‘Size
(
size
, *
q
);

137 
	$bÝ’
(*
buf
, 
bufsize
, 
æags
)

139 
bFÏgs
 = 
æags
;

141 #ifdeà
BASTARD_TESTING


142 
	`¤ªd
(
	`time
(0L));

149 ià(++
bÝ’CouÁ
 > 1) {

153 ià(
buf
 =ð
NULL
) {

154 ià(
bufsize
 == 0) {

155 
bufsize
 = 
B_DEFAULT_MEM
;

157 #ifdeà
IRIX


158 
bufsize
 = 
	`ROUNDUP4
(bufsize);

160 ià((
buf
 = 
	`m®loc
(
bufsize
)è=ð
NULL
) {

165 --
bÝ’CouÁ
;

168 #ifdeà
B_STATS


169 
bStsMemM®loc
 +ð
bufsize
;

172 
bFÏgs
 |ð
B_USER_BUF
;

175 
bF»eSize
 = 
bF»eLeá
 = 
bufsize
;

176 
bF»eBuf
 = 
bF»eNext
 = 
buf
;

177 
	`mem£t
(
bQh—d
, 0, (bQhead));

178 #ià(
	`defšed
 (
B_FILL
è|| defšed (
B_VERIFY_CAUSES_SEVERE_OVERHEAD
))

179 
	`bFžlBlock
(
buf
, 
bufsize
);

181 #ifdeà
B_STATS


182 
bSckS¹
 = &
buf
;

184 #ifdeà
B_VERIFY_CAUSES_SEVERE_OVERHEAD


185 
	`v”ifyF»eBlock
(
buf
, 
bufsize
);

188 
	}
}

195 
	$bþo£
()

197 #ifdeà
B_VERIFY_CAUSES_SEVERE_OVERHEAD


198 
	`v”ifyB®locS·û
();

200 ià(--
bÝ’CouÁ
 <ð0 && !(
bFÏgs
 & 
B_USER_BUF
)) {

201 
	`ä“
(
bF»eBuf
);

202 
bÝ’CouÁ
 = 0;

204 
	}
}

212 *
	$b®loc
(
B_ARGS_DEC
, 
size
)

214 
bTy³
 *
bp
;

215 
q
, 
memSize
;

220 ià(
bF»eBuf
 =ð
NULL
) {

221 ià(
	`bÝ’
(
NULL
, 
B_DEFAULT_MEM
, 0) < 0) {

222  
NULL
;

225 #ifdeà
B_VERIFY_CAUSES_SEVERE_OVERHEAD


226 
	`v”ifyB®locS·û
();

228 ià(
size
 < 0) {

229  
NULL
;

232 #ifdeà
BASTARD_TESTING


233 ià(
	`¿nd
() == 0x7fff) {

234  
NULL
;

239 
memSize
 = 
	`b®locG‘Size
(
size
, &
q
);

241 ià(
q
 >ð
B_MAX_CLASS
) {

245 ià(
bFÏgs
 & 
B_USE_MALLOC
) {

246 #ifdeà
B_STATS


247 
	`b¡©s
(0, 
NULL
);

249 #ifdeà
IRIX


250 
memSize
 = 
	`ROUNDUP4
(memSize);

252 
bp
 = (
bTy³
*è
	`m®loc
(
memSize
);

253 ià(
bp
 =ð
NULL
) {

254 
	`ŒaûRaw
(
	`T
("B: malloc failed\n"));

255  
NULL
;

257 #ifdeà
B_STATS


258 
bStsMemM®loc
 +ð
memSize
;

260 #ià(
	`defšed
 (
B_FILL
è|| defšed (
B_VERIFY_CAUSES_SEVERE_OVERHEAD
))

261 
	`bFžlBlock
(
bp
, 
memSize
);

265 
	`ŒaûRaw
(
	`T
("B: malloc failed\n"));

266  
NULL
;

272 
bp
->
u
.
size
 = 
memSize
 - (
bTy³
);

273 
bp
->
æags
 = 
B_MALLOCED
;

275 } ià((
bp
 = 
bQh—d
[
q
]è!ð
NULL
) {

279 
bQh—d
[
q
] = 
bp
->
u
.
Ãxt
;

280 #ifdeà
B_VERIFY_CAUSES_SEVERE_OVERHEAD


281 
	`v”ifyF»eBlock
(
bp
, 
q
);

283 #ià(
	`defšed
 (
B_FILL
è|| defšed (
B_VERIFY_CAUSES_SEVERE_OVERHEAD
))

284 
	`bFžlBlock
(
bp
, 
memSize
);

286 
bp
->
u
.
size
 = 
memSize
 - (
bTy³
);

287 
bp
->
æags
 = 0;

290 ià(
bF»eLeá
 > 
memSize
) {

295 
bp
 = (
bTy³
*è
bF»eNext
;

296 #ifdeà
B_VERIFY_CAUSES_SEVERE_OVERHEAD


297 
	`v”ifyF»eBlock
(
bp
, 
q
);

299 
bF»eNext
 +ð
memSize
;

300 
bF»eLeá
 -ð
memSize
;

301 #ià(
	`defšed
 (
B_FILL
è|| defšed (
B_VERIFY_CAUSES_SEVERE_OVERHEAD
))

302 
	`bFžlBlock
(
bp
, 
memSize
);

304 
bp
->
u
.
size
 = 
memSize
 - (
bTy³
);

305 
bp
->
æags
 = 0;

307 } ià(
bFÏgs
 & 
B_USE_MALLOC
) {

308 #ifdeà
B_STATS


309 
Úû
 = 0;

310 ià(
Úû
++ == 0) {

311 
	`b¡©s
(0, 
NULL
);

317 #ifdeà
IRIX


318 
memSize
 = 
	`ROUNDUP4
(memSize);

320 ià((
bp
 = (
bTy³
*è
	`m®loc
(
memSize
)è=ð
NULL
) {

321 
	`ŒaûRaw
(
	`T
("B: malloc failed\n"));

322  
NULL
;

324 #ifdeà
B_STATS


325 
bStsMemM®loc
 +ð
memSize
;

327 #ià(
	`defšed
 (
B_FILL
è|| defšed (
B_VERIFY_CAUSES_SEVERE_OVERHEAD
))

328 
	`bFžlBlock
(
bp
, 
memSize
);

330 
bp
->
u
.
size
 = 
memSize
 - (
bTy³
);

331 
bp
->
æags
 = 
B_MALLOCED
;

334 
	`ŒaûRaw
(
	`T
("B: malloc failed\n"));

335  
NULL
;

339 #ifdeà
B_STATS


340 
	`bStsAÎoc
(
B_ARGS
, 
bp
, 
q
, 
memSize
);

342 
bp
->
æags
 |ð
B_INTEGRITY
;

349 #ifdeà
B_STATS


350 ià(
bStsB®locInU£
 =ð
bStsB®locMax
) {

351 
	`b¡©s
(0, 
NULL
);

355  (*è((*è
bp
 + (
bTy³
));

356 
	}
}

365 
	$bä“
(
B_ARGS_DEC
, *
mp
)

367 
bTy³
 *
bp
;

368 
q
, 
memSize
;

370 #ifdeà
B_VERIFY_CAUSES_SEVERE_OVERHEAD


371 
	`v”ifyB®locS·û
();

373 
bp
 = (
bTy³
*è((*è
mp
 - (bType));

375 
	`a_as£¹
((
bp
->
æags
 & 
B_INTEGRITY_MASK
è=ð
B_INTEGRITY
);

377 ià((
bp
->
æags
 & 
B_INTEGRITY_MASK
è!ð
B_INTEGRITY
) {

381 
memSize
 = 
	`b®locG‘Size
(
bp
->
u
.
size
, &
q
);

383 #ifdeà
B_VERIFY_CAUSES_SEVERE_OVERHEAD


384 
	`v”ifyU£dBlock
(
bp
,
q
);

386 #ifdeà
B_STATS


387 
	`bStsF»e
(
B_ARGS
, 
bp
, 
q
, bp->
u
.
size
+(
bTy³
));

389 ià(
bp
->
æags
 & 
B_MALLOCED
) {

390 
	`ä“
(
bp
);

394 #ifdeà
B_VERIFY_CAUSES_SEVERE_OVERHEAD


395 
	`bFžlBlock
(
bp
, 
memSize
);

401 
bp
->
u
.
Ãxt
 = 
bQh—d
[
q
];

402 
bQh—d
[
q
] = 
bp
;

404 
bp
->
æags
 = 
B_FILL_WORD
;

405 
	}
}

412 
	$bä“Saã
(
B_ARGS_DEC
, *
mp
)

414 ià(
mp
) {

415 
	`bä“
(
B_ARGS
, 
mp
);

417 
	}
}

420 #ifdeà
UNICODE


425 *
	$b¡rdupA
(
B_ARGS_DEC
, *
s
)

427 *
ý
;

428 
Ën
;

430 ià(
s
 =ð
NULL
) {

431 
s
 = "";

433 
Ën
 = 
	`¡¾’
(
s
) + 1;

434 ià(
ý
 = 
	`b®loc
(
B_ARGS
, 
Ën
)) {

435 
	`¡rýy
(
ý
, 
s
);

437  
ý
;

438 
	}
}

448 
ch¬_t
 *
	$b¡rdup
(
B_ARGS_DEC
, 
ch¬_t
 *
s
)

450 
ch¬_t
 *
ý
;

451 
Ën
;

453 ià(
s
 =ð
NULL
) {

454 
s
 = 
	`T
("");

456 
Ën
 = 
	`g¡¾’
(
s
) + 1;

457 ià((
ý
 = 
	`b®loc
(
B_ARGS
, 
Ën
 * (
ch¬_t
))è!ð
NULL
) {

458 
	`g¡ºýy
(
ý
, 
s
, 
Ën
 * (
ch¬_t
));

460  
ý
;

461 
	}
}

470 *
	$b»®loc
(
B_ARGS_DEC
, *
mp
, 
Ãwsize
)

472 
bTy³
 *
bp
;

473 *
Ãwbuf
;

475 ià(
mp
 =ð
NULL
) {

476  
	`b®loc
(
B_ARGS
, 
Ãwsize
);

478 
bp
 = (
bTy³
*è((*è
mp
 - (bType));

479 
	`a_as£¹
((
bp
->
æags
 & 
B_INTEGRITY_MASK
è=ð
B_INTEGRITY
);

485 ià(
bp
->
u
.
size
 >ð
Ãwsize
) {

486  
mp
;

488 ià((
Ãwbuf
 = 
	`b®loc
(
B_ARGS
, 
Ãwsize
)è!ð
NULL
) {

489 
	`memýy
(
Ãwbuf
, 
mp
, 
bp
->
u
.
size
);

490 
	`bä“
(
B_ARGS
, 
mp
);

492  
Ãwbuf
;

493 
	}
}

503 
	$b®locG‘Size
(
size
, *
q
)

505 
mask
;

507 
mask
 = (
size
 =ð0è? 0 : (size-1è>> 
B_SHIFT
;

508 *
q
 = 0; 
mask
; mask >>= 1) {

509 *
q
 = *q + 1;

511  ((1 << (
B_SHIFT
 + *
q
)è+ (
bTy³
));

512 
	}
}

515 #ià(
defšed
 (
B_FILL
è|| defšed (
B_VERIFY_CAUSES_SEVERE_OVERHEAD
))

520 
	$bFžlBlock
(*
buf
, 
bufsize
)

522 
	`mem£t
(
buf
, 
B_FILL_CHAR
, 
bufsize
);

523 
	}
}

527 #ifdeà
B_STATS


533 
b¡©s
(
hªdË
, (*
wr™eâ
)(hªdË, 
ch¬_t
 *
fmt
, ...))

535 
bStsFžeTy³
 *
å
, *
fžes
;

536 
bStsBlkTy³
 *
blkp
;

537 
bTy³
 *
bp
;

538 
ch¬_t
 *
ý
;

539 
q
, 
couÁ
, 
mem
, 
tÙ®
, 
Ën
;

540 
»cur£PrÙeù
 = 0;

542 ià(
»cur£PrÙeù
++ > 0) {

543 
»cur£PrÙeù
--;

547 ià(
wr™eâ
 =ð
NULL
) {

548 
wr™eâ
 = 
b¡©sWr™e
;

554 (*
wr™eâ
)(
hªdË
, 
	`T
("\nMemory Stats\n"));

561 (*
wr™eâ
)(
hªdË
, " Q Size Free Bytes Inuse Bytes Allocs\n");

563 
tÙ®
 = 0;

564 
q
 = 0; q < 
B_MAX_CLASS
; q++) {

565 
couÁ
 = 0;

566 
bp
 = 
bQh—d
[
q
]; bp; b°ðbp->
u
.
Ãxt
) {

567 
couÁ
++;

569 
mem
 = 
couÁ
 * (1 << (
q
 + 
B_SHIFT
));

570 
tÙ®
 +ð
mem
;

571 (*
wr™eâ
)(
hªdË
,

572 
	`T
("%2d %5d %4d %6d %4d %5d %4d\n"),

573 
q
, 1 << (q + 
B_SHIFT
), 
couÁ
, 
mem
, 
bSts
[q].
šu£
,

574 
bSts
[
q
].
šu£
 * (1 << (q + 
B_SHIFT
)), bSts[q].
®loc
);

577 (*
wr™eâ
)(
hªdË
, 
	`T
("\n"));

595 (*
wr™eâ
)(
hªdË
, 
	`T
("In™ŸÈä“†i¡ siz %7d\n"), 
bF»eSize
);

596 (*
wr™eâ
)(
hªdË
, 
	`T
("Max memÜy m®loûd %7d\n"), 
bStsMemM®loc
);

597 (*
wr™eâ
)(
hªdË
, 
	`T
("Max memÜyƒv” u£d %7d\n"), 
bStsMemMax
);

598 (*
wr™eâ
)(
hªdË
, 
	`T
("Max memÜyƒv” b®loûd %7d\n"), 
bStsB®locMax
);

599 (*
wr™eâ
)(
hªdË
, 
	`T
("MemÜy cu¼’Žy iÀu£ %7d\n"), 
bStsMemInU£
);

600 (*
wr™eâ
)(
hªdË
, 
	`T
("MemÜy cu¼’Žy b®loûd %7d\n"), 
bStsB®locInU£
);

601 (*
wr™eâ
)(
hªdË
, 
	`T
("Max block ®loÿ‹d %7d\n"), 
bStsBlksMax
);

602 (*
wr™eâ
)(
hªdË
, 
	`T
("Maximum stack used %7d\n"),

603 (è
bSckS¹
 - (è
bSckMš
);

605 (*
wr™eâ
)(
hªdË
, 
	`T
("F»memÜy oÀ®Èqueue %7d\n"), 
tÙ®
);

606 (*
wr™eâ
)(
hªdË
, 
	`T
("F»li¡ bufã¸Ëá %7d\n"), 
bF»eLeá
);

607 (*
wr™eâ
)(
hªdË
, 
	`T
("TÙ® f»memÜy %7d\n"), 
bF»eLeá
 + 
tÙ®
);

612 
Ën
 = (
bStsFžeTy³
è* 
B_MAX_FILES
;

613 
fžes
 = 
	`m®loc
(
Ën
);

614 ià(
fžes
 =ð
NULL
) {

615 (*
wr™eâ
)(
hªdË
, 
	`T
("Can't‡llocate stats memory\n"));

616 
»cur£PrÙeù
--;

619 
	`memýy
(
fžes
, 
bStsFžes
, 
Ën
);

620 
	`qsÜt
(
fžes
, 
bStsFžesMax
, (
bStsFžeTy³
), 
bStsFžeSÜt
);

622 (*
wr™eâ
)(
hªdË
, 
	`T
("\nMemory Currently Allocated\n"));

623 
tÙ®
 = 0;

624 (*
wr™eâ
)(
hªdË
,

625 
	`T
(" bytes, blocks in use,otalimes,")

626 
	`T
("largest, q\n"));

628 
å
 = 
fžes
; f°< &fžes[
bStsFžesMax
]; fp++) {

629 ià(
å
->
fže
[0]) {

630 (*
wr™eâ
)(
hªdË
, 
	`T
("%18s, %7d, %5d, %6d, %7d,%4d\n"),

631 
å
->
fže
, fp->
®loÿ‹d
, fp->
couÁ
, fp->
times
, fp->
Ïrge¡
,

632 
å
->
q
);

633 
tÙ®
 +ð
å
->
®loÿ‹d
;

636 (*
wr™eâ
)(
hªdË
, 
	`T
("\nTÙ®‡Îoÿ‹d %7d\n\n"), 
tÙ®
);

641 (*
wr™eâ
)(
hªdË
, 
	`T
("\nStrings\n"));

642 
blkp
 = &
bStsBlks
[
bStsBlksMax
 - 1]; blkp >= bStatsBlks; blkp--) {

643 ià(
blkp
->
±r
) {

644 
ý
 = (
ch¬_t
*è((*è
blkp
->
±r
 + (
bTy³
));

645 
å
 = 
blkp
->
who
;

646 ià(
	`gi§Êum
(*
ý
)) {

647 (*
wr™eâ
)(
hªdË
, 
	`T
("%-50 ®loÿ‹d by %s\n"), 
ý
,

648 
å
->
fže
);

652 
	`ä“
(
fžes
);

653 
»cur£PrÙeù
--;

654 
	}
}

661 
	$bStsFžeSÜt
(cÚ¡ *
ý1
, cÚ¡ *
ý2
)

663 
bStsFžeTy³
 *
s1
, *
s2
;

665 
s1
 = (
bStsFžeTy³
*è
ý1
;

666 
s2
 = (
bStsFžeTy³
*è
ý2
;

668 ià(
s1
->
®loÿ‹d
 < 
s2
->allocated)

670 ià(
s1
->
®loÿ‹d
 =ð
s2
->allocated)

673 
	}
}

680 
	$bStsAÎoc
(
B_ARGS_DEC
, *
±r
, 
q
, 
size
)

682 
memSize
;

683 
bStsFžeTy³
 *
å
;

684 
bStsBlkTy³
 *
bp
;

685 
ch¬_t
 
Çme
[
FNAMESIZE
 + 10];

687 
	`g¥rštf
(
Çme
, 
	`T
("%s:%d"), 
B_ARGS
);

689 
bSts
[
q
].
®loc
++;

690 
bSts
[
q
].
šu£
++;

691 
bStsMemInU£
 +ð
size
;

692 ià(
bStsMemInU£
 > 
bStsMemMax
) {

693 
bStsMemMax
 = 
bStsMemInU£
;

695 
memSize
 = (1 << (
B_SHIFT
 + 
q
)è+ (
bTy³
);

696 
bStsB®locInU£
 +ð
memSize
;

697 ià(
bStsB®locInU£
 > 
bStsB®locMax
) {

698 
bStsB®locMax
 = 
bStsB®locInU£
;

705 ià((*è&
fže
 < 
bSckMš
) {

706 
bSckMš
 = (*è&
fže
;

712 
å
 = 
bStsFžes
; f°< &bStsFžes[
bStsFžesMax
]; fp++) {

713 ià(
å
->
fže
[0] =ðfže[0] && 
	`g¡rcmp
(å->fže, 
Çme
) == 0) {

714 
å
->
®loÿ‹d
 +ð
size
;

715 
å
->
couÁ
++;

716 
å
->
times
++;

717 ià(
å
->
Ïrge¡
 < 
size
) {

718 
å
->
Ïrge¡
 = 
size
;

719 
å
->
q
 = q;

728 ià(
å
 >ð&
bStsFžes
[
bStsFžesMax
]) {

729 
å
 = 
bStsFžes
; f°< &bStsFžes[
B_MAX_FILES
]; fp++) {

730 ià(
å
->
fže
[0] == '\0') {

731 
	`g¡ºýy
(
å
->
fže
, 
Çme
, 
	`TSZ
(fp->file));

732 
å
->
®loÿ‹d
 +ð
size
;

733 
å
->
couÁ
++;

734 
å
->
times
++;

735 
å
->
Ïrge¡
 = 
size
;

736 
å
->
q
 = q;

737 ià((
å
 - 
bStsFžes
è>ð
bStsFžesMax
) {

738 
bStsFžesMax
 = (
å
 - 
bStsFžes
) + 1;

748 
bp
 = 
bStsBlks
; b°< &bStsBlks[
B_MAX_BLOCKS
]; bp++) {

749 ià(
bp
->
±r
 =ð
NULL
) {

750 
bp
->
±r
 =…tr;

751 
bp
->
who
 = 
å
;

752 ià((
bp
 - 
bStsBlks
è>ð
bStsBlksMax
) {

753 
bStsBlksMax
 = (
bp
 - 
bStsBlks
) + 1;

758 
	}
}

765 
	$bStsF»e
(
B_ARGS_DEC
, *
±r
, 
q
, 
size
)

767 
memSize
;

768 
bStsFžeTy³
 *
å
;

769 
bStsBlkTy³
 *
bp
;

771 
memSize
 = (1 << (
B_SHIFT
 + 
q
)è+ (
bTy³
);

772 
bStsMemInU£
 -ð
size
;

773 
bStsB®locInU£
 -ð
memSize
;

774 
bSts
[
q
].
šu£
--;

779 
bp
 = &
bStsBlks
[
bStsBlksMax
 - 1]; bp >= bStatsBlks; bp--) {

780 ià(
bp
->
±r
 ==…tr) {

781 
bp
->
±r
 = 
NULL
;

782 
å
 = 
bp
->
who
;

783 
bp
->
who
 = 
NULL
;

784 
å
->
®loÿ‹d
 -ð
size
;

785 
å
->
couÁ
--;

789 
	}
}

796 #undeà
¥rštf


797 
	$b¡©sWr™e
(
hªdË
, 
ch¬_t
 *
fmt
, ...)

799 
va_li¡
 
¬gs
;

800 
ch¬_t
 
buf
[
BUF_MAX
];

802 
	`va_¡¬t
(
¬gs
, 
fmt
);

803 
	`v¥rštf
(
buf
, 
fmt
, 
¬gs
);

804 
	`va_’d
(
¬gs
);

805 
	`ŒaûRaw
(
buf
);

806 
	}
}

815 
b¡©s
(
hªdË
, (*
wr™eâ
)(hªdË, 
ch¬_t
 *
fmt
, ...))

817 
	}
}

821 #ifdeà
B_VERIFY_CAUSES_SEVERE_OVERHEAD


838 
	$v”ifyU£dBlock
(
bTy³
 *
bp
, 
q
)

840 
memSize
, 
size
;

841 *
p
;

843 
memSize
 = (1 << (
B_SHIFT
 + 
q
)è+ (
bTy³
);

844 
	`a_as£¹
((
bp
->
æags
 & ~
B_MALLOCED
è=ð
B_INTEGRITY
);

845 
size
 = 
bp
->
u
.size;

846 
p
 = ((*)
bp
)+(
bTy³
)+
size
;… < ((*)bp)+
memSize
;…++) {

847 
	`a_as£¹
(*
p
 =ð
B_FILL_CHAR
);

849 
	}
}

857 
	$v”ifyF»eBlock
(
bTy³
 *
bp
, 
q
)

859 
memSize
;

860 *
p
;

862 
memSize
 = (1 << (
B_SHIFT
 + 
q
)è+ (
bTy³
);

863 
p
 = ((*)
bp
)+(*);… < ((*)bp)+
memSize
;…++) {

864 
	`a_as£¹
(*
p
 =ð
B_FILL_CHAR
);

866 
bp
 = (
bTy³
 *)
p
;

867 
	`a_as£¹
((
bp
->
æags
 & ~
B_MALLOCED
è=ð
B_INTEGRITY
 ||

868 
bp
->
æags
 =ð
B_FILL_WORD
);

869 
	}
}

879 
	$v”ifyB®locS·û
()

881 
q
;

882 *
p
;

883 
bTy³
 *
bp
;

888 
q
 = 0; q < 
B_MAX_CLASS
; q++) {

889 
bp
 = 
bQh—d
[
q
]; b°!ð
NULL
; b°ðbp->
u
.
Ãxt
) {

890 
	`v”ifyF»eBlock
(
bp
, 
q
);

897 
p
 = 
bF»eBuf
;

898 
p
 < (
bF»eBuf
 + 
bF»eSize
)) {

899 
bp
 = (
bTy³
 *)
p
;

900 ià(
bp
->
u
.
size
 > 0xFFFFF) {

901 
p
 +ð(
bp
->
u
);

902 
p
 < (
bF»eBuf
 + 
bF»eSize
è&& *°=ð
B_FILL_CHAR
) {

903 
p
++;

906 
	`a_as£¹
(((
bp
->
æags
 & ~
B_MALLOCED
è=ð
B_INTEGRITY
) ||

907 
bp
->
æags
 =ð
B_FILL_WORD
);

908 
p
 +ð((
bTy³
è+ 
bp
->
u
.
size
);

909 
p
 < (
bF»eBuf
 + 
bF»eSize
è&& *°=ð
B_FILL_CHAR
) {

910 
p
++;

914 
	}
}

920 
	$bÝ’
(*
buf
, 
bufsize
, 
æags
)

923 
	}
}

927 
	$bþo£
()

929 
	}
}

933 
b¡©s
(
hªdË
, (*
wr™eâ
)(hªdË, 
ch¬_t
 *
fmt
, ...))

935 
	}
}

939 
ch¬_t
 *
	$b¡rdupNoB®loc
(
ch¬_t
 *
s
)

941 #ifdeà
UNICODE


942 ià(
s
) {

943  
	`wcsdup
(
s
);

945  
	`wcsdup
(
	`T
(""));

948  
	`b¡rdupANoB®loc
(
s
);

950 
	}
}

954 *
	$b¡rdupANoB®loc
(*
s
)

956 * 
buf
;

958 ià(
s
 =ð
NULL
) {

959 
s
 = "";

961 
buf
 = 
	`m®loc
(
	`¡¾’
(
s
)+1);

962 
	`¡rýy
(
buf
, 
s
);

963  
buf
;

964 
	}
}

	@cgi.c

21 
	~"wsIÁº.h
"

22 
	~"uemf.h
"

27 
webs_t
 
	mwp
;

28 
ch¬_t
 *
	m¡dIn
;

29 
ch¬_t
 *
	m¡dOut
;

30 
ch¬_t
 *
	mcgiP©h
;

31 
ch¬_t
 **
	m¬gp
;

32 
ch¬_t
 **
	m’vp
;

33 
	mhªdË
;

34 
	måÏûm¬k
;

35 } 
	tcgiRec
;

36 
cgiRec
 **
	gcgiLi¡
;

37 
	gcgiMax
;

44 
	$websCgiHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
, 
¬g
,

45 
ch¬_t
 *
u¾
, ch¬_ˆ*
·th
, ch¬_t* 
qu”y
)

47 
cgiRec
 *
cg
;

48 
sym_t
 *
s
;

49 
ch¬_t
 
cgiBuf
[
FNAMESIZE
], *
¡dIn
, *
¡dOut
, 
cwd
[FNAMESIZE];

50 
ch¬_t
 *
ý
, *
cgiName
, *
cgiP©h
, **
¬gp
, **
’vp
, **
•
;

51 
n
, 
’vpsize
, 
¬gpsize
, 
pHªdË
, 
cid
, 
rc
;

52 
	`a_as£¹
(
	`websV®id
(
wp
));

53 
	`a_as£¹
(
u¾
 && *url);

54 
	`a_as£¹
(
·th
 && *path == '/');

60 #ifdeà
WEBS_WHITELIST_SUPPORT


61 ià((
rc
 = 
	`websWh™–i¡Check
(
wp
->
u¾
)è< 0 || !Ôø& 
WHITELIST_CGI
)) {

62 
	`websBuždWh™–i¡
();

63 ià((
rc
 = 
	`websWh™–i¡Check
(
wp
->
u¾
)è< 0 || !Ôø& 
WHITELIST_CGI
)) {

64 
	`websE¼Ü
(
wp
, 500, 
	`T
("Invalid CGI URL"));

68 ià(!(
wp
->
æags
 & 
WEBS_SECURE
è&& (
rc
 & 
WHITELIST_SSL
)) {

69 
	`websE¼Ü
(
wp
, 500, 
	`T
("HTTPS Access Required"));

74 
websSts
.
cgiH™s
++;

80 
	`g¡ºýy
(
cgiBuf
, 
·th
, 
	`TSZ
(cgiBuf));

81 ià((
cgiName
 = 
	`g¡rchr
(&
cgiBuf
[1], '/')è=ð
NULL
) {

82 
	`websE¼Ü
(
wp
, 200, 
	`T
("Missing CGI‚ame"));

85 
cgiName
++;

86 ià((
ý
 = 
	`g¡rchr
(
cgiName
, '/')è!ð
NULL
) {

87 *
ý
 = '\0';

89 
	`fmtAÎoc
(&
cgiP©h
, 
FNAMESIZE
, 
	`T
("%s/%s/%s"), 
	`websG‘DeçuÉDœ
(),

90 
CGI_BIN
, 
cgiName
);

91 #iâdeà
VXWORKS


98 
g¡©_t
 
sbuf
;

99 ià(
	`g¡©
(
cgiP©h
, &
sbuf
è!ð0 || (sbuf.
¡_mode
 & 
S_IFREG
) == 0) {

100 
	`websE¼Ü
(
wp
, 404, 
	`T
("CGI…rocess file does‚otƒxist"));

101 
	`bä“
(
B_L
, 
cgiP©h
);

104 #ià(
	`defšed
 (
WIN
è|| defšed (
CE
))

105 ià(
	`g¡r¡r
(
cgiP©h
, 
	`T
(".exe")è=ð
NULL
 &&

106 
	`g¡r¡r
(
cgiP©h
, 
	`T
(".b©")è=ð
NULL
) {

107 #–ià(
	`defšed
 (
NW
))

108 ià(
	`g¡r¡r
(
cgiP©h
, 
	`T
(".Æm")è=ð
NULL
) {

110 ià(
	`gacûss
(
cgiP©h
, 
X_OK
) != 0) {

112 
	`websE¼Ü
(
wp
, 200, 
	`T
("CGI…rocess file is‚otƒxecutable"));

113 
	`bä“
(
B_L
, 
cgiP©h
);

123 
	`gg‘cwd
(
cwd
, 
FNAMESIZE
);

127 ià((
ý
 = 
	`g¡¼chr
(
cgiP©h
, '/')è!ð
NULL
) {

128 *
ý
 = '\0';

129 
	`gchdœ
(
cgiP©h
);

130 *
ý
 = '/';

143 
¬gpsize
 = 10;

144 
¬gp
 = 
	`b®loc
(
B_L
, 
¬gpsize
 * (
ch¬_t
 *));

145 *
¬gp
 = 
cgiP©h
;

146 
n
 = 1;

147 ià(
	`g¡rchr
(
qu”y
, '='è=ð
NULL
) {

148 
	`websDecodeU¾
(
qu”y
, qu”y, 
	`g¡¾’
(query));

149 
ý
 = 
	`g¡¹ok
(
qu”y
, 
	`T
(" ")); c°!ð
NULL
; ) {

150 *(
¬gp
+
n
èð
ý
;

151 
n
++;

152 ià(
n
 >ð
¬gpsize
) {

153 
¬gpsize
 *= 2;

154 
¬gp
 = 
	`b»®loc
(
B_L
,‡rgp, 
¬gpsize
 * (
ch¬_t
 *));

156 
ý
 = 
	`g¡¹ok
(
NULL
, 
	`T
(" "));

159 *(
¬gp
+
n
èð
NULL
;

170 
’vpsize
 = 
WEBS_SYM_INIT
;

171 
’vp
 = 
	`b®loc
(
B_L
, 
’vpsize
 * (
ch¬_t
 *));

172 
n
 = 0;

173 
	`fmtAÎoc
(
’vp
+
n
, 
FNAMESIZE
, 
	`T
("%s=%s"),T("PATH_TRANSLATED"), 
cgiP©h
);

174 
n
++;

175 
	`fmtAÎoc
(
’vp
+
n
, 
FNAMESIZE
, 
	`T
("%s=%s/%s"),T("SCRIPT_NAME"),

176 
CGI_BIN
, 
cgiName
);

177 
n
++;

178 
	`fmtAÎoc
(
’vp
+
n
, 
FNAMESIZE
, 
	`T
("%s=%s"),T("REMOTE_USER"), 
wp
->
u£rName
);

179 
n
++;

180 
	`fmtAÎoc
(
’vp
+
n
, 
FNAMESIZE
, 
	`T
("%s=%s"),T("AUTH_TYPE"), 
wp
->
authTy³
);

181 
n
++;

182 
s
 = 
	`symFœ¡
(
wp
->
cgiV¬s
); s !ð
NULL
; s = 
	`symNext
(wp->cgiVars)) {

183 ià(
s
->
cÚ‹Á
.
v®id
 && s->cÚ‹Á.
ty³
 =ð
¡ršg
 &&

184 
	`g¡rcmp
(
s
->
Çme
.
v®ue
.
¡ršg
, 
	`T
("REMOTE_HOST")) != 0 &&

185 
	`g¡rcmp
(
s
->
Çme
.
v®ue
.
¡ršg
, 
	`T
("HTTP_AUTHORIZATION")) != 0) {

186 
	`fmtAÎoc
(
’vp
+
n
, 
FNAMESIZE
, 
	`T
("%s=%s"), 
s
->
Çme
.
v®ue
.
¡ršg
,

187 
s
->
cÚ‹Á
.
v®ue
.
¡ršg
);

188 
n
++;

189 ià(
n
 >ð
’vpsize
) {

190 
’vpsize
 *= 2;

191 
’vp
 = 
	`b»®loc
(
B_L
,ƒnvp, 
’vpsize
 * (
ch¬_t
 *));

195 *(
’vp
+
n
èð
NULL
;

200 ià(
wp
->
cgiStdš
 =ð
NULL
) {

201 
wp
->
cgiStdš
 = 
	`websG‘CgiCommName
();

203 
¡dIn
 = 
wp
->
cgiStdš
;

204 
¡dOut
 = 
	`websG‘CgiCommName
();

209 ià((
pHªdË
 = 
	`websLaunchCgiProc
(
cgiP©h
, 
¬gp
, 
’vp
, 
¡dIn
, 
¡dOut
))

211 
	`websE¼Ü
(
wp
, 200, 
	`T
("failedo spawn CGIask"));

212 
•
 = 
’vp
; *• !ð
NULL
;ƒp++) {

213 
	`bä“Saã
(
B_L
, *
•
);

215 
	`bä“Saã
(
B_L
, 
cgiP©h
);

216 
	`bä“Saã
(
B_L
, 
¬gp
);

217 
	`bä“Saã
(
B_L
, 
’vp
);

218 
	`bä“Saã
(
B_L
, 
¡dOut
);

224 
cid
 = 
	`hAÎocEÁry
((***è&
cgiLi¡
, &
cgiMax
, (
cgiRec
));

225 
cg
 = 
cgiLi¡
[
cid
];

226 
cg
->
hªdË
 = 
pHªdË
;

227 
cg
->
¡dIn
 = stdIn;

228 
cg
->
¡dOut
 = stdOut;

229 
cg
->
cgiP©h
 = cgiPath;

230 
cg
->
¬gp
 =‡rgp;

231 
cg
->
’vp
 =ƒnvp;

232 
cg
->
wp
 = wp;

233 
cg
->
åÏûm¬k
 = 0;

234 
	`websTimeoutCªûl
(
wp
);

239 
	`gchdœ
(
cwd
);

241 
	}
}

247 
	$websCgiG©h”Ouut
 (
cgiRec
 *
cg
)

249 
g¡©_t
 
sbuf
;

250 
ch¬_t
 
cgiBuf
[
FNAMESIZE
];

251 #ià
	`defšed
(
WIN32
)

252 
”ºo_t
 
”rÜ
;

255 ià((
	`g¡©
(
cg
->
¡dOut
, &
sbuf
) == 0) &&

256 (
sbuf
.
¡_size
 > 
cg
->
åÏûm¬k
)) {

257 
fdout
;

258 #ià!
	`defšed
(
WIN32
)

259 
fdout
 = 
	`gÝ’
(
cg
->
¡dOut
, 
O_RDONLY
 | 
O_BINARY
, 0444 );

261 
”rÜ
 = 
	`_sÝ’_s
(&
fdout
, 
cg
->
¡dOut
, 
O_RDONLY
 | 
O_BINARY
, 
_SH_DENYNO
, 0444);

268 ià(
fdout
 >= 0) {

269 
webs_t
 
wp
 = 
cg
->wp;

270 
nR—d
;

274 ià(
cg
->
åÏûm¬k
 == 0) {

275 
	`websWr™e
(
wp
, 
	`T
("HTTP/1.0 200 OK\r\n"));

277 
	`gl£ek
(
fdout
, 
cg
->
åÏûm¬k
, 
SEEK_SET
);

278 (
nR—d
 = 
	`g»ad
(
fdout
, 
cgiBuf
, 
FNAMESIZE
)) > 0) {

279 
	`websWr™eBlock
(
wp
, 
cgiBuf
, 
nR—d
);

280 
cg
->
åÏûm¬k
 +ð
nR—d
;

282 
	`gþo£
(
fdout
);

285 
	}
}

294 
	$websCgiCËªup
()

296 
cgiRec
 *
cg
;

297 
webs_t
 
wp
;

298 
ch¬_t
 **
•
;

299 
cid
, 
nTr›s
;

300 
cid
 = 0; cid < 
cgiMax
; cid++) {

301 ià((
cg
 = 
cgiLi¡
[
cid
]è!ð
NULL
) {

302 
wp
 = 
cg
->wp;

303 
	`websCgiG©h”Ouut
 (
cg
);

304 ià(
	`websCheckCgiProc
(
cg
->
hªdË
) == 0) {

308 
nTr›s
 = 0;

313 (
cg
->
åÏûm¬k
 =ð0è&& (
nTr›s
 < 100)) {

314 
	`websCgiG©h”Ouut
(
cg
);

319 ià(
cg
->
åÏûm¬k
 == 0) {

320 #ifdeà
WIN


321 
	`SË•
(10);

324 
nTr›s
++;

326 ià(
cg
->
åÏûm¬k
 == 0) {

327 
	`websE¼Ü
(
wp
, 200, 
	`T
("CGI generated‚o output"));

329 
	`websDÚe
(
wp
, 200);

334 
	`guÆšk
(
cg
->
¡dIn
);

335 
	`guÆšk
(
cg
->
¡dOut
);

341 
cgiMax
 = 
	`hF»e
((***è&
cgiLi¡
, 
cid
);

342 
•
 = 
cg
->
’vp
;ƒ°!ð
NULL
 && *ep != NULL;ƒp++) {

343 
	`bä“Saã
(
B_L
, *
•
);

345 
	`bä“Saã
(
B_L
, 
cg
->
cgiP©h
);

346 
	`bä“Saã
(
B_L
, 
cg
->
¬gp
);

347 
	`bä“Saã
(
B_L
, 
cg
->
’vp
);

348 
	`bä“Saã
(
B_L
, 
cg
->
¡dOut
);

349 
	`bä“Saã
(
B_L
, 
cg
);

353 
	}
}

364 #ifdeà
CE


371 
ch¬_t
 *
	$websG‘CgiCommName
()

378 
ch¬_t
 *
²ame1
, *
²ame2
;

380 
²ame1
 = 
	`gtm²am
(
NULL
, 
	`T
("cgi"));

381 
²ame2
 = 
	`b¡rdup
(
B_L
, 
²ame1
);

382 
	`ä“
(
²ame1
);

383  
²ame2
;

385  
NULL
;

386 
	}
}

395 
	$websLaunchCgiProc
(
ch¬_t
 *
cgiP©h
, ch¬_ˆ**
¬gp
, ch¬_ˆ**
’vp
,

396 
ch¬_t
 *
¡dIn
, ch¬_ˆ*
¡dOut
)

398 
PROCESS_INFORMATION
 
´ocšfo
;

399 
DWORD
 
dwC»©eFÏgs
;

400 *
fuÎdœ
;

401 
BOOL
 
bR‘uº
;

402 
i
, 
nL’
;

407 
nL’
 = 
	`g¡¾’
(
cgiP©h
);

408 
i
 = 0; i < 
nL’
; i++) {

409 ià(
cgiP©h
[
i
] == '/') {

410 
cgiP©h
[
i
] = '\\';

414 
fuÎdœ
 = 
NULL
;

415 
dwC»©eFÏgs
 = 
CREATE_NEW_CONSOLE
;

422 
´ocšfo
.
hTh»ad
 = 
NULL
;

423 
bR‘uº
 = 
	`C»©eProûss
(

424 
cgiP©h
,

425 
NULL
,

426 
NULL
,

427 
NULL
,

429 
dwC»©eFÏgs
,

430 
NULL
,

431 
NULL
,

432 
NULL
,

433 &
´ocšfo
);

435 ià(
bR‘uº
 == 0) {

436 
DWORD
 
dw
;

437 
dw
 = 
	`G‘La¡E¼Ü
();

440 
	`Clo£HªdË
(
´ocšfo
.
hTh»ad
);

442  (è
´ocšfo
.
dwProûssId
;

443 
	}
}

449 
	$websCheckCgiProc
(
hªdË
)

451 
nR‘uº
;

452 
DWORD
 
ex™Code
;

454 
nR‘uº
 = 
	`G‘Ex™CodeProûss
((
HANDLE
)
hªdË
, &
ex™Code
);

459 ià((
nR‘uº
 =ð0è|| (
ex™Code
 !ð
STILL_ACTIVE
)) {

460 
	`Clo£HªdË
((
HANDLE
)
hªdË
);

465 
	}
}

471 #ià
defšed
(
LINUX
è|| defšed(
LYNX
è|| defšed(
MACOSX
è|| defšed(
QNX4
)

473 
	~<sys/wa™.h
>

480 
ch¬_t
 *
	$websG‘CgiCommName
()

482 
ch¬_t
 *
²ame1
, *
²ame2
;

484 
²ame1
 = 
	`‹m²am
(
NULL
, 
	`T
("cgi"));

485 
²ame2
 = 
	`b¡rdup
(
B_L
, 
²ame1
);

486 
	`ä“
(
²ame1
);

487  
²ame2
;

488 
	}
}

495 
	$websLaunchCgiProc
(
ch¬_t
 *
cgiP©h
, ch¬_ˆ**
¬gp
, ch¬_ˆ**
’vp
,

496 
ch¬_t
 *
¡dIn
, ch¬_ˆ*
¡dOut
)

498 
pid
, 
fdš
, 
fdout
, 
h¡dš
, 
h¡dout
, 
rc
;

500 
fdš
 = 
fdout
 = 
h¡dš
 = 
h¡dout
 = 
rc
 = -1;

501 ià((
fdš
 = 
	`Ý’
(
¡dIn
, 
O_RDWR
 | 
O_CREAT
, 0666)) < 0 ||

502 (
fdout
 = 
	`Ý’
(
¡dOut
, 
O_RDWR
 | 
O_CREAT
, 0666)) < 0 ||

503 (
h¡dš
 = 
	`dup
(0)) == -1 ||

504 (
h¡dout
 = 
	`dup
(1)) == -1 ||

505 
	`dup2
(
fdš
, 0) == -1 ||

506 
	`dup2
(
fdout
, 1) == -1) {

507 
DONE
;

510 
rc
 = 
pid
 = 
	`fÜk
();

511 ià(
pid
 == 0) {

515 ià(
	`execve
(
cgiP©h
, 
¬gp
, 
’vp
) == -1) {

516 
	`´štf
("content-type:ext/html\n\n"

519 
	`ex™
 (0);

522 
DONE
:

523 ià(
h¡dout
 >= 0) {

524 
	`dup2
(
h¡dout
, 1);

525 
	`þo£
(
h¡dout
);

527 ià(
h¡dš
 >= 0) {

528 
	`dup2
(
h¡dš
, 0);

529 
	`þo£
(
h¡dš
);

531 ià(
fdout
 >= 0) {

532 
	`þo£
(
fdout
);

534 ià(
fdš
 >= 0) {

535 
	`þo£
(
fdš
);

537  
rc
;

538 
	}
}

544 
	$websCheckCgiProc
(
hªdË
)

549 ià(
	`wa™pid
(
hªdË
, 
NULL
, 
WNOHANG
) == handle) {

554 
	}
}

561 #ifdeà
NW


569 
ch¬_t
 *
	$websG‘CgiCommName
()

571 
ch¬_t
 *
²ame
;

573 
²ame
 = 
	`b¡rdup
(
B_L
, 
	`tm²am
Ð
NULL
 ) );

574  
²ame
;

575 
	}
}

581 
	$websLaunchCgiProc
(
ch¬_t
 *
cgiP©h
, ch¬_ˆ**
¬gp
, ch¬_ˆ**
’vp
,

582 
ch¬_t
 *
¡dIn
, ch¬_ˆ*
¡dOut
)

584 
pid
, 
fdš
, 
fdout
, 
h¡dš
, 
h¡dout
, 
rc
;

586 
fdš
 = 
fdout
 = -1;

587 ià((
fdš
 = 
	`Ý’
(
¡dIn
, 
O_RDWR
 | 
O_CREAT
, 0666)) < 0 ||

588 (
fdout
 = 
	`Ý’
(
¡dOut
, 
O_RDWR
 | 
O_CREAT
, 0666)) < 0 )

589 
DONE
;

602 
rc
 = 
	`¥awnvp
Ð
P_NOWAIT
, 
cgiP©h
, 
¬gp
 ) ;

604 ifÐ
rc
 != 0) {

605 
	`ex™
 (0);

608 
DONE
:

609 ià(
fdout
 >= 0) {

610 
	`þo£
(
fdout
);

612 ià(
fdš
 >= 0) {

613 
	`þo£
(
fdš
);

615  
rc
;

616 
	}
}

622 
	$websCheckCgiProc
(
hªdË
)

627 ifÐ
hªdË
 ) {

632 
	}
}

639 #ifdeà
VXWORKS


641 
vxWebsCgiEÁry
(*
’ŒyAddr
(
¬gc
, 
ch¬_t
 **
¬gv
),

642 
ch¬_t
 **
¬gv
, ch¬_ˆ**
’vp
, ch¬_ˆ*
¡dIn
, ch¬_ˆ*
¡dOut
);

649 
ch¬_t
 *
	$websG‘CgiCommName
()

651 
ch¬_t
 *
Šame
, 
buf
[
FNAMESIZE
];

653 
	`fmtAÎoc
(&
Šame
,
FNAMESIZE
, 
	`T
("%s/%s"), 
	`gg‘cwd
(
buf
, FNAMESIZE),

654 
	`tm²am
(
NULL
));

655  
Šame
;

656 
	}
}

688 
	$websLaunchCgiProc
(
ch¬_t
 *
cgiP©h
, ch¬_ˆ**
¬gp
, ch¬_ˆ**
’vp
,

689 
ch¬_t
 *
¡dIn
, ch¬_ˆ*
¡dOut
)

691 
SYM_TYPE
 
±y³
;

692 
ch¬_t
 *
p
, *
ba£Çme
, *
pEÁry
, *
²ame
, *
’ŒyAddr
, **
µ
;

693 
´iÜ™y
, 
rc
, 
fd
;

698 ià(()(
p
 = 
	`g¡¼chr
(
cgiP©h
, '/') + 1) == 1) {

699 
p
 = 
cgiP©h
;

701 
ba£Çme
 = 
	`b¡rdup
(
B_L
, 
p
);

702 ià((
p
 = 
	`g¡¼chr
(
ba£Çme
, '.')è!ð
NULL
) {

703 *
p
 = '\0';

710 
	`uÆd
(
cgiP©h
, 0);

711 
	`skPriÜ™yG‘
(
	`skIdS–f
(), &
´iÜ™y
);

712 
rc
 = 
fd
 = -1;

718 
µ
 = 
’vp
, 
pEÁry
 = 
NULL
;…p != NULL && *pp != NULL;…p++) {

719 ià(
	`g¡ºcmp
(*
µ
, 
	`T
("cgientry="), 9) == 0) {

720 
pEÁry
 = 
	`b¡rdup
(
B_L
, *
µ
 + 9);

724 ià(
pEÁry
 =ð
NULL
) {

725 
	`fmtAÎoc
(&
pEÁry
, 
LF_PATHSIZE
, 
	`T
("%s_%s"), 
ba£Çme
, T("cgientry"));

727 
’ŒyAddr
 = 0;

728 ià(
	`symFšdByName
(
sysSymTbl
, 
pEÁry
, &
’ŒyAddr
, &
±y³
) == -1) {

729 
	`fmtAÎoc
(&
²ame
, 
VALUE_MAX_STRING
, 
	`T
("_%s"), 
pEÁry
);

730 
	`symFšdByName
(
sysSymTbl
, 
²ame
, &
’ŒyAddr
, &
±y³
);

731 
	`bä“Saã
(
B_L
, 
²ame
);

733 ià(
’ŒyAddr
 != 0) {

734 
rc
 = 
	`skS·wn
(
pEÁry
, 
´iÜ™y
, 0, 20000, (*)
vxWebsCgiEÁry
,

735 ()
’ŒyAddr
, ()
¬gp
, ()
’vp
, ()
¡dIn
, ()
¡dOut
,

737 
DONE
;

743 ià((
fd
 = 
	`gÝ’
(
cgiP©h
, 
O_RDONLY
 | 
O_BINARY
, 0666)) < 0 ||

744 
	`lßdModuË
(
fd
, 
LOAD_GLOBAL_SYMBOLS
è=ð
NULL
) {

745 
DONE
;

747 ià((
	`symFšdByName
(
sysSymTbl
, 
pEÁry
, &
’ŒyAddr
, &
±y³
)) == -1) {

748 
	`fmtAÎoc
(&
²ame
, 
VALUE_MAX_STRING
, 
	`T
("_%s"), 
pEÁry
);

749 
	`symFšdByName
(
sysSymTbl
, 
²ame
, &
’ŒyAddr
, &
±y³
);

750 
	`bä“Saã
(
B_L
, 
²ame
);

752 ià(
’ŒyAddr
 != 0) {

753 
rc
 = 
	`skS·wn
(
pEÁry
, 
´iÜ™y
, 0, 20000, (*)
vxWebsCgiEÁry
,

754 ()
’ŒyAddr
, ()
¬gp
, ()
’vp
, ()
¡dIn
, ()
¡dOut
,

758 
DONE
:

759 ià(
fd
 != -1) {

760 
	`gþo£
(
fd
);

762 
	`bä“
(
B_L
, 
ba£Çme
);

763 
	`bä“
(
B_L
, 
pEÁry
);

764  
rc
;

765 
	}
}

774 
vxWebsCgiEÁry
(*
’ŒyAddr
(
¬gc
, 
ch¬_t
 **
¬gv
),

775 
ch¬_t
 **
¬gp
, ch¬_ˆ**
’vp
, ch¬_ˆ*
¡dIn
, ch¬_ˆ*
¡dOut
)

777 
ch¬_t
 **
	gp
;

778 
	g¬gc
, 
	gskId
, 
	gfdš
, 
	gfdout
;

784 
	gskId
 = 
skIdS–f
();

785 ià((
	gfdout
 = 
gÝ’
(
¡dOut
, 
O_RDWR
 | 
O_CREAT
, 0666)) < 0 &&

786 (
	gfdout
 = 
ü—t
(
¡dOut
, 
O_RDWR
)) < 0) {

787 
ex™
(0);

789 
ioTaskStdS‘
(
skId
, 1, 
fdout
);

791 ià((
	gfdš
 = 
gÝ’
(
¡dIn
, 
O_RDONLY
 | 
O_CREAT
, 0666)) < 0 &&

792 (
	gfdš
 = 
ü—t
(
¡dIn
, 
O_RDWR
)) < 0) {

793 
´štf
("content-type:ext/html\n\n"

794 "Cª‚Ù c»©CGI stdšØ%s\n", 
¡dIn
);

795 
gþo£
(
fdout
);

796 
ex™
 (0);

798 
ioTaskStdS‘
(
skId
, 0, 
fdš
);

803 
	g¬gc
 = 0, 
	gp
 = 
¬gp
;… !ð
NULL
 && *
p
 != NULL;…++,‡rgc++) {

809 ià(
’vPriv©eC»©e
(
skId
, -1è!ð
OK
) {

810 
´štf
("content-type:ext/html\n\n"

812 
gþo£
(
fdš
);

813 
gþo£
(
fdout
);

814 
ex™
 (0);

816 
	gp
 = 
’vp
;… !ð
NULL
 && *
p
 != NULL;…++) {

817 
pu‹nv
(*
p
);

823 (*
	g’ŒyAddr
)(
	g¬gc
, 
	g¬gp
);

829 
’vPriv©eDe¡roy
(
skId
);

830 
gþo£
(
fdš
);

831 
gþo£
(
fdout
);

832 
ex™
(0);

840 
	$websCheckCgiProc
(
hªdË
)

842 
STATUS
 
¡©
;

846 
¡©
 = 
	`skIdV”ify
(
hªdË
);

848 ià(
¡©
 =ð
OK
) {

853 
	}
}

859 #ifdeà
WIN


871 *
	$bËToBlock
(**
bË
)

873 *
pBlock
;

874 *
pEÁry
;

875 
size_t
 
sizeBlock
;

876 
šdex
;

878 
	`a_as£¹
(
bË
);

883 
sizeBlock
 = 1;

884 
šdex
 = 0; 
bË
[index]; index++) {

885 
sizeBlock
 +ð
	`¡¾’
(
bË
[
šdex
]) + 1;

891 
pBlock
 = 
	`b®loc
(
B_L
, 
sizeBlock
);

893 ià(
pBlock
 !ð
NULL
) {

894 
pEÁry
 = (*è
pBlock
;

896 
šdex
 = 0; 
bË
[index]; index++) {

897 
	`¡rýy
(
pEÁry
, 
bË
[
šdex
]);

898 
pEÁry
 +ð
	`¡¾’
(pEntry) + 1;

904 *
pEÁry
 = '\0';

907  
pBlock
;

908 
	}
}

915 
ch¬_t
 *
	$websG‘CgiCommName
()

917 
ch¬_t
 *
²ame1
, *
²ame2
;

919 
²ame1
 = 
	`‹m²am
(
NULL
, 
	`T
("cgi"));

920 
²ame2
 = 
	`b¡rdup
(
B_L
, 
²ame1
);

921 
	`ä“
(
²ame1
);

922  
²ame2
;

923 
	}
}

930 
	$websLaunchCgiProc
(
ch¬_t
 *
cgiP©h
, ch¬_ˆ**
¬gp
, ch¬_ˆ**
’vp
,

931 
ch¬_t
 *
¡dIn
, ch¬_ˆ*
¡dOut
)

933 
STARTUPINFO
 
Ãwšfo
;

934 
SECURITY_ATTRIBUTES
 
£cur™y
;

935 
PROCESS_INFORMATION
 
´ocšfo
;

936 
DWORD
 
dwC»©eFÏgs
;

937 
ch¬_t
 *
cmdLše
;

938 
ch¬_t
 **
pArgs
;

939 
BOOL
 
bR‘uº
;

940 
i
, 
nL’
;

941 *
pEnvD©a
;

946 
nL’
 = 
	`g¡¾’
(
cgiP©h
);

947 
i
 = 0; i < 
nL’
; i++) {

948 ià(
cgiP©h
[
i
] == '/') {

949 
cgiP©h
[
i
] = '\\';

955 
nL’
 = 0;

956 
pArgs
 = 
¬gp
;

957 
pArgs
 && *pArgs && **pArgs) {

958 
nL’
 +ð
	`g¡¾’
(*
pArgs
) + 1;

959 
pArgs
++;

964 
cmdLše
 = 
	`b®loc
(
B_L
, (
ch¬_t
è* 
nL’
);

965 
	`a_as£¹
 (
cmdLše
);

966 
	`g¡rýy
(
cmdLše
, "");

968 
pArgs
 = 
¬gp
;

969 
pArgs
 && *pArgs && **pArgs) {

970 
	`g¡rÿt
(
cmdLše
, *
pArgs
);

971 
	`g¡rÿt
(
cmdLše
, 
	`T
(" "));

972 
pArgs
++;

978 
	`mem£t
 (&
Ãwšfo
, 0, (newinfo));

979 
Ãwšfo
.
cb
 = (newinfo);

980 
Ãwšfo
.
dwFÏgs
 = 
STARTF_USESHOWWINDOW
 | 
STARTF_USESTDHANDLES
;

981 
Ãwšfo
.
wShowWšdow
 = 
SW_HIDE
;

982 
Ãwšfo
.
ÍT™Ë
 = 
NULL
;

987 
£cur™y
.
nL’gth
 = (
SECURITY_ATTRIBUTES
);

988 
£cur™y
.
ÍSecur™yDesütÜ
 = 
NULL
;

989 
£cur™y
.
bInh”™HªdË
 = 
TRUE
;

994 
Ãwšfo
.
hStdIÅut
 = 
	`C»©eFže
(
¡dIn
, 
GENERIC_READ
,

995 
FILE_SHARE_READ
, &
£cur™y
, 
OPEN_ALWAYS
, 
FILE_ATTRIBUTE_NORMAL
, 
NULL
);

999 
Ãwšfo
.
hStdOuut
 = 
	`C»©eFže
(
¡dOut
, 
GENERIC_READ
 | 
GENERIC_WRITE
,

1000 
FILE_SHARE_READ
 + 
FILE_SHARE_WRITE
, &
£cur™y
, 
OPEN_ALWAYS
,

1001 
FILE_ATTRIBUTE_NORMAL
, 
NULL
);

1002 
	`S‘FžePoš‹r
 (
Ãwšfo
.
hStdOuut
, 0, 
NULL
, 
FILE_END
);

1007 
Ãwšfo
.
hStdE¼Ü
 =‚ewšfo.
hStdOuut
;

1009 
dwC»©eFÏgs
 = 
CREATE_NEW_CONSOLE
;

1010 
pEnvD©a
 = 
	`bËToBlock
(
’vp
);

1017 
´ocšfo
.
hProûss
 = 
NULL
;

1018 
bR‘uº
 = 
	`C»©eProûss
(

1019 
NULL
,

1020 
cmdLše
,

1021 
NULL
,

1022 
NULL
,

1023 
TRUE
,

1024 
dwC»©eFÏgs
,

1025 
pEnvD©a
,

1026 
NULL
,

1027 &
Ãwšfo
,

1028 &
´ocšfo
);

1030 ià(
´ocšfo
.
hTh»ad
 !ð
NULL
) {

1031 
	`Clo£HªdË
(
´ocšfo
.
hTh»ad
);

1034 ià(
Ãwšfo
.
hStdIÅut
) {

1035 
	`Clo£HªdË
(
Ãwšfo
.
hStdIÅut
);

1038 ià(
Ãwšfo
.
hStdOuut
) {

1039 
	`Clo£HªdË
(
Ãwšfo
.
hStdOuut
);

1042 
	`bä“
(
B_L
, 
pEnvD©a
);

1043 
	`bä“
(
B_L
, 
cmdLše
);

1045 ià(
bR‘uº
 == 0) {

1048  (è
´ocšfo
.
hProûss
;

1050 
	}
}

1057 
	$websCheckCgiProc
(
hªdË
)

1059 
nR‘uº
;

1060 
DWORD
 
ex™Code
;

1062 
nR‘uº
 = 
	`G‘Ex™CodeProûss
((
HANDLE
)
hªdË
, &
ex™Code
);

1067 ià((
nR‘uº
 =ð0è|| (
ex™Code
 !ð
STILL_ACTIVE
)) {

1068 
	`Clo£HªdË
((
HANDLE
)
hªdË
);

1073 
	}
}

	@default.c

26 
	~"wsIÁº.h
"

30 
ch¬_t
 *
	gwebsDeçuÉPage
;

31 
ch¬_t
 *
	gwebsDeçuÉDœ
;

34 
	#MAX_URL_DEPTH
 8

	)

36 #ifdeà
WEBS_WHITELIST_SUPPORT


38 #iâdeà
WIN


39 
	~<dœ’t.h
>

43 
	#WHITELIST_BLOCKED
 0x100

	)

44 
	#WHITELIST_DIR
 0x200

	)

46 #ifdeà
WEBS_SSL_SUPPORT


47 
	s_s¦Li¡
 {

48 
_s¦Li¡
 *
	mÃxt
;

49 *
	mu¾
;

50 } 
	ts¦Li¡_t
;

52 
s¦Li¡_t
 *
	gs¦Li¡
;

55 
	s_fžeNode
 {

56 
_fžeNode
 *
	mÃxt
;

57 
_fžeNode
 *
	mchžd
;

58 *
	mÇme
;

59 
	mæags
;

60 } 
	tfžeNode_t
;

62 
fžeNode_t
 *
	gwh™–i¡
 = 
NULL
;

64 
websBuždWh™–i¡Recursive
(*
_·th
, 
fžeNode_t
 *
dœ
, 
Ëv–
);

65 
fžeNode_t
* 
websWh™–i¡CheckRecursive
(fžeNode_ˆ*
n
, *
·th
);

66 
websD–‘eWh™–i¡Recursive
(
fžeNode_t
 *
dœ
);

67 
websMakeP©h
(*
d
, *
¤c
, *
subdœ
, 
wždÿrd
);

69 
	#websBuždWh™–i¡
()

	)

72 
websDeçuÉWr™eEv’t
(
webs_t
 
wp
);

82 
	$websDeçuÉHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
, 
¬g
,

83 
ch¬_t
 *
u¾
, ch¬_ˆ*
·th
, ch¬_ˆ*
qu”y
)

85 
websStTy³
 
sbuf
;

86 
ch¬_t
 *
Í©h
, *
tmp
, *
d©e
;

87 
by‹s
, 
æags
, 
nch¬s
, 
rc
;

89 
	`a_as£¹
(
	`websV®id
(
wp
));

90 
	`a_as£¹
(
u¾
 && *url);

91 
	`a_as£¹
(
·th
);

92 
	`a_as£¹
(
qu”y
);

94 
æags
 = 
	`websG‘Reque¡FÏgs
(
wp
);

102 #ifdeà
WEBS_WHITELIST_SUPPORT


103 ià((
rc
 = 
	`websWh™–i¡Check
(
wp
->
u¾
)) < 0) {

104 
	`websBuždWh™–i¡
();

105 ià((
rc
 = 
	`websWh™–i¡Check
(
wp
->
u¾
)) < 0) {

106 
	`websE¼Ü
(
wp
, 404, 
	`T
("Cannot open URL"));

110 ià(!(
æags
 & 
WEBS_SECURE
è&& (
rc
 & 
WHITELIST_SSL
)) {

111 
	`websE¼Ü
(
wp
, 500, 
	`T
("HTTPS‡ccess„equired"));

118 ià(
	`websV®id©eU¾
(
wp
, 
·th
) < 0) {

124 
	`websE¼Ü
(
wp
, 500, 
	`T
("Invalid URL"));

125 
	`websBuždWh™–i¡
();

128 
Í©h
 = 
	`websG‘Reque¡L·th
(
wp
);

129 
nch¬s
 = 
	`g¡¾’
(
Í©h
) - 1;

130 ià(
Í©h
[
nch¬s
] == '/' ||†path[nchars] == '\\') {

131 
Í©h
[
nch¬s
] = '\0';

137 ià(
	`websPageIsDœeùÜy
(
Í©h
)) {

138 
nch¬s
 = 
	`g¡¾’
(
·th
);

139 ià(
·th
[
nch¬s
-1] == '/' ||…ath[nchars-1] == '\\') {

140 
·th
[--
nch¬s
] = '\0';

142 
nch¬s
 +ð
	`g¡¾’
(
websDeçuÉPage
) + 2;

143 
	`fmtAÎoc
(&
tmp
, 
nch¬s
, 
	`T
("%s/%s"), 
·th
, 
websDeçuÉPage
);

144 
	`websRedœeù
(
wp
, 
tmp
);

145 
	`bä“Saã
(
B_L
, 
tmp
);

152 ià(
	`websPageO³n
(
wp
, 
Í©h
, 
·th
, 
O_RDONLY
 | 
O_BINARY
,

166 
	`websE¼Ü
(
wp
, 404, 
	`T
("Cannot open URL"));

167 
	`websBuždWh™–i¡
();

171 ià(
	`websPageSt
(
wp
, 
Í©h
, 
·th
, &
sbuf
) < 0) {

177 
	`websE¼Ü
(
wp
, 400, 
	`T
("Cannot stat…age for URL"));

178 
	`websBuždWh™–i¡
();

187 
websSts
.
loÿlH™s
++;

188 #ifdeà
WEBS_IF_MODIFIED_SUPPORT


189 ià(
æags
 & 
WEBS_IF_MODIFIED
 && !(æag & 
WEBS_ASP
)) {

190 ià(
sbuf
.
mtime
 <ð
wp
->
sšû
) {

191 
	`websWr™e
(
wp
, 
	`T
("HTTP/1.0 304 Use†ocal copy\r\n"));

197 
	`websWr™e
(
wp
, 
	`T
("S”v”: %s\r\n"), 
WEBS_NAME
);

199 ià(
æags
 & 
WEBS_KEEP_ALIVE
) {

200 
	`websWr™e
(
wp
, 
	`T
("Connection: keep-alive\r\n"));

202 
	`websWr™e
(
wp
, 
	`T
("\r\n"));

203 
	`websS‘Reque¡FÏgs
(
wp
, 
æags
 |ð
WEBS_HEADER_DONE
);

204 
	`websDÚe
(
wp
, 304);

213 ià((
d©e
 = 
	`websG‘D©eSŒšg
(
NULL
)) != NULL) {

214 
	`websWr™e
(
wp
, 
	`T
("HTTP/1.0 200 OK\r\nD©e: %s\r\n"), 
d©e
);

219 #ifdeà
WEBS_SSL_SUPPORT


220 
	`websWr™e
(
wp
, 
	`T
("Server: %s/%s %s/%s\r\n"),

221 
WEBS_NAME
, 
WEBS_VERSION
, 
SSL_NAME
, 
SSL_VERSION
);

223 
	`websWr™e
(
wp
, 
	`T
("S”v”: %s/%s\r\n"), 
WEBS_NAME
, 
WEBS_VERSION
);

225 
	`bä“
(
B_L
, 
d©e
);

227 
æags
 |ð
WEBS_HEADER_DONE
;

233 ià(
æags
 & 
WEBS_ASP
) {

234 
by‹s
 = 0;

235 
	`websWr™e
(
wp
, 
	`T
("Pragma:‚o-cache\r\nCache-Control:‚o-cache\r\n"));

238 ià((
d©e
 = 
	`websG‘D©eSŒšg
(&
sbuf
)è!ð
NULL
) {

239 
	`websWr™e
(
wp
, 
	`T
("La¡-modif›d: %s\r\n"), 
d©e
);

240 
	`bä“
(
B_L
, 
d©e
);

242 
by‹s
 = 
sbuf
.
size
;

245 ià(
by‹s
) {

246 
	`websWr™e
(
wp
, 
	`T
("CÚ‹Á-Ëngth: %d\r\n"), 
by‹s
);

247 
	`websS‘Reque¡By‹s
(
wp
, 
by‹s
);

249 
	`websWr™e
(
wp
, 
	`T
("CÚ‹Á-ty³: %s\r\n"), 
	`websG‘Reque¡Ty³
(wp));

251 ià((
æags
 & 
WEBS_KEEP_ALIVE
è&& !(æag & 
WEBS_ASP
)) {

252 
	`websWr™e
(
wp
, 
	`T
("Connection: keep-alive\r\n"));

254 
	`websWr™e
(
wp
, 
	`T
("\r\n"));

259 ià(
æags
 & 
WEBS_HEAD_REQUEST
) {

260 
	`websDÚe
(
wp
, 200);

267 ià(
æags
 & 
WEBS_ASP
) {

268 ià(
	`websA¥Reque¡
(
wp
, 
Í©h
) < 0) {

271 
	`websDÚe
(
wp
, 200);

277 
	`websS‘Reque¡Sock‘HªdËr
(
wp
, 
SOCKET_WRITABLE
, 
websDeçuÉWr™eEv’t
);

279 
	}
}

281 #ifdeà
WIN32


283 
	$badP©h
(
ch¬_t
* 
·th
, ch¬_t* 
badP©h
, 
badL’
)

285 
»tv®
 = 0;

286 
Ën
 = 
	`g¡¾’
(
·th
);

287 
i
 = 0;

289 ià(
Ën
 <ð
badL’
 +1)

291 
i
 = 0; i < 
badL’
; ++i)

293 ià(
badP©h
[
i
] !ð
	`gtÞow”
(
·th
[i]))

302 
»tv®
 = 1;

303 ià(
badL’
 + 1 =ð
Ën
)

306 ià(
	`gi§Êum
(
·th
[
Ën
-1]))

311 
»tv®
 = 0;

315  
»tv®
;

316 
	}
}

318 
	$isBadWšdowsP©h
(
ch¬_t
** 
·¹s
, 
·¹CouÁ
)

352 
OSVERSIONINFO
 
v”siÚ
;

353 
i
;

354 
v”siÚ
.
dwOSV”siÚInfoSize
 = (
OSVERSIONINFO
);

355 ià(
	`G‘V”siÚEx
(&
v”siÚ
))

357 ià(
VER_PLATFORM_WIN32_NT
 !ð
v”siÚ
.
dwPÏtfÜmId
)

362 
i
 = 0; i < 
·¹CouÁ
; ++i)

369 (
	`badP©h
(
·¹s
[
i
], 
	`T
("con"), 3)) ||

370 (
	`badP©h
(
·¹s
[
i
], 
	`T
("com"), 3)) ||

371 (
	`badP©h
(
·¹s
[
i
], 
	`T
("nul"), 3)) ||

372 (
	`badP©h
(
·¹s
[
i
], 
	`T
("aux"), 3)) ||

373 (
	`badP©h
(
·¹s
[
i
], 
	`T
("clock$"), 6)) ||

374 (
	`badP©h
(
·¹s
[
i
], 
	`T
("config$"), 7)) ) {

385 
	}
}

394 
	$websV®id©eU¾
(
webs_t
 
wp
, 
ch¬_t
 *
·th
)

403 
ch¬_t
 *
·¹s
[
MAX_URL_DEPTH
];

404 
ch¬_t
 *
tok’
, *
dœ
, *
Í©h
;

405 
i
, 
Ën
, 
Å¬t
;

407 
	`a_as£¹
(
	`websV®id
(
wp
));

408 
	`a_as£¹
(
·th
);

410 
dœ
 = 
	`websG‘Reque¡Dœ
(
wp
);

411 ià(
dœ
 =ð
NULL
 || *dir == '\0') {

418 
·th
 = 
	`b¡rdup
(
B_L
,…ath);

419 
	`websDecodeU¾
(
·th
,…©h, 
	`g¡¾’
(path));

421 
Ën
 = 
Å¬t
 = 0;

422 
·¹s
[0] = 
NULL
;

450 
tok’
 = 
	`g¡rchr
(
·th
, '\\');

451 
tok’
 !ð
NULL
) {

452 *
tok’
 = '/';

453 
tok’
 = 
	`g¡rchr
(token, '\\');

455 
tok’
 = 
	`g¡¹ok
(
·th
, 
	`T
("/"));

461 
tok’
 !ð
NULL
)

463 ià(
Å¬t
 >ð
MAX_URL_DEPTH
)

468 
	`bä“
(
B_L
, 
·th
);

471 ià(
	`g¡rcmp
(
tok’
, 
	`T
("..")) == 0)

473 ià(
Å¬t
 > 0)

475 
Å¬t
--;

477 } ià(
	`g¡rcmp
(
tok’
, 
	`T
(".")) != 0) {

478 
·¹s
[
Å¬t
] = 
tok’
;

479 
Ën
 +ð
	`g¡¾’
(
tok’
) + 1;

480 
Å¬t
++;

482 
tok’
 = 
	`g¡¹ok
(
NULL
, 
	`T
("/"));

485 #ifdeà
WIN32


486 ià(
	`isBadWšdowsP©h
(
·¹s
, 
Å¬t
))

488 
	`bä“
(
B_L
, 
·th
);

497 ià(
Å¬t
 || (
	`g¡rcmp
(
·th
, 
	`T
("/")) == 0) || (path[0] == '\0')) {

498 
Í©h
 = 
	`b®loc
(
B_L
, (
	`g¡¾’
(
dœ
è+ 1 + 
Ën
 + 1è* (
ch¬_t
));

499 
	`g¡rýy
(
Í©h
, 
dœ
);

501 
i
 = 0; i < 
Å¬t
; i++) {

502 
	`g¡rÿt
(
Í©h
, 
	`T
("/"));

503 
	`g¡rÿt
(
Í©h
, 
·¹s
[
i
]);

505 
	`websS‘Reque¡L·th
(
wp
, 
Í©h
);

506 
	`bä“
(
B_L
, 
·th
);

507 
	`bä“
(
B_L
, 
Í©h
);

509 
	`bä“
(
B_L
, 
·th
);

513 
	}
}

521 
	$websDeçuÉWr™eEv’t
(
webs_t
 
wp
)

523 
Ën
, 
wrÙe
, 
æags
, 
by‹s
, 
wr™‹n
;

524 *
buf
;

526 
	`a_as£¹
(
	`websV®id
(
wp
));

528 
æags
 = 
	`websG‘Reque¡FÏgs
(
wp
);

530 
	`websS‘TimeM¬k
(
wp
);

532 
wrÙe
 = 
by‹s
 = 0;

533 
wr™‹n
 = 
	`websG‘Reque¡Wr™‹n
(
wp
);

538 iàÐ!(
æags
 & 
WEBS_ASP
)) {

539 
by‹s
 = 
	`websG‘Reque¡By‹s
(
wp
);

544 ià((
buf
 = 
	`b®loc
(
B_L
, 
PAGE_READ_BUFSIZE
)è=ð
NULL
) {

545 
	`websE¼Ü
(
wp
, 200, 
	`T
("Can't get memory"));

547 (
Ën
 = 
	`websPageR—dD©a
(
wp
, 
buf
, 
PAGE_READ_BUFSIZE
)) > 0) {

548 ià((
wrÙe
 = 
	`websWr™eD©aNÚBlock
(
wp
, 
buf
, 
Ën
)) < 0) {

551 
wr™‹n
 +ð
wrÙe
;

552 ià(
wrÙe
 !ð
Ën
) {

553 
	`websPageS“k
(
wp
, - (
Ën
 - 
wrÙe
));

560 ià(
Ën
 == 0) {

561 
	`a_as£¹
(
wr™‹n
 >ð
by‹s
);

562 
wr™‹n
 = 
by‹s
;

564 
	`bä“
(
B_L
, 
buf
);

571 
	`websS‘Reque¡Wr™‹n
(
wp
, 
wr™‹n
);

572 ià(
wrÙe
 < 0 || 
wr™‹n
 >ð
by‹s
) {

573 
	`websDÚe
(
wp
, 200);

575 
	}
}

582 
	$websDeçuÉO³n
()

584 #ifdeà
WEBS_WHITELIST_SUPPORT


585 #ifdeà
WEBS_SSL_SUPPORT


586 
s¦Li¡
 = 
NULL
;

588 
wh™–i¡
 = 
NULL
;

589 
	`websBuždWh™–i¡
();

591 
	}
}

598 
	$websDeçuÉClo£
()

600 #ifdeà
WEBS_WHITELIST_SUPPORT


601 #ifdeà
WEBS_SSL_SUPPORT


602 
s¦Li¡_t
 *
l
;

603 
s¦Li¡
 !ð
NULL
) {

604 
l
 = 
s¦Li¡
;

605 
s¦Li¡
 = s¦Li¡->
Ãxt
;

606 
	`bä“Saã
(
B_L
, 
l
->
u¾
);

607 
	`bä“
(
B_L
, 
l
);

610 
	`websD–‘eWh™–i¡
();

612 ià(
websDeçuÉPage
) {

613 
	`bä“
(
B_L
, 
websDeçuÉPage
);

614 
websDeçuÉPage
 = 
NULL
;

616 ià(
websDeçuÉDœ
) {

617 
	`bä“
(
B_L
, 
websDeçuÉDœ
);

618 
websDeçuÉDœ
 = 
NULL
;

620 
	}
}

627 
ch¬_t
 *
	$websG‘DeçuÉPage
()

629  
websDeçuÉPage
;

630 
	}
}

637 
ch¬_t
 *
	$websG‘DeçuÉDœ
()

639  
websDeçuÉDœ
;

640 
	}
}

647 
	$websS‘DeçuÉPage
(
ch¬_t
 *
·ge
)

649 
	`a_as£¹
(
·ge
 && *page);

651 ià(
websDeçuÉPage
) {

652 
	`bä“
(
B_L
, 
websDeçuÉPage
);

654 
websDeçuÉPage
 = 
	`b¡rdup
(
B_L
, 
·ge
);

655 
	}
}

662 
	$websS‘DeçuÉDœ
(
ch¬_t
 *
dœ
)

664 
	`a_as£¹
(
dœ
 && *dir);

665 ià(
websDeçuÉDœ
) {

666 
	`bä“
(
B_L
, 
websDeçuÉDœ
);

668 
websDeçuÉDœ
 = 
	`b¡rdup
(
B_L
, 
dœ
);

669 
	}
}

671 #ifdeà
WEBS_WHITELIST_SUPPORT


678 
	$websWh™–i¡Check
(*
u¾
)

680 
fžeNode_t
 *
n
;

681 ià((
n
 = 
	`websWh™–i¡CheckRecursive
(
wh™–i¡
, 
u¾
)è=ð
NULL
) {

684  
n
->
æags
;

685 
	}
}

687 
fžeNode_t
* 
	$websWh™–i¡CheckRecursive
(
fžeNode_t
 *
n
, *
·th
)

689 *
c
, *
p
;

691 ià(
n
 =ð
NULL
)  NULL;

692 ià((
n
->
æags
 & 
WHITELIST_BLOCKED
) != 0) {

693  
	`websWh™–i¡CheckRecursive
(
n
->
Ãxt
, 
·th
);

695 ià(
n
->
Çme
) {

696 
c
 = 
n
->
Çme
, 
p
 = 
·th
; *c != '\0' && *p != '\0'; c++,…++) {

697 ià(
	`tÞow”
(*
c
è!ðtÞow”(*
p
)) {

702 ià(*
p
 =ð'\0' && (*
c
 == '\0' || (*c == '/' && *(c+1) == '\0'))) {

703  
n
;

705 ià(*
c
 =ð'\0' && (
n
->
æags
 & 
WHITELIST_DIR
)) {

706  
	`websWh™–i¡CheckRecursive
(
n
->
chžd
, 
p
);

708  
	`websWh™–i¡CheckRecursive
(
n
->
Ãxt
, 
·th
);

709 
	}
}

717 #ifdeà
WEBS_SSL_SUPPORT


718 
	$websRequœeSSL
(*
u¾
)

720 
s¦Li¡_t
 *
l
;

721 
sz
;

723 
l
 = 
	`b®loc
(
B_L
, (
s¦Li¡_t
));

724 
	`mem£t
(
l
, 0x0, (
s¦Li¡_t
));

725 
sz
 = 
	`¡¾’
(
u¾
) + 1;

726 ià(
u¾
[
sz
 - 2] == '/') {

727 
l
->
u¾
 = 
	`b¡rdup
(
B_L
, url);

729 
sz
++;

730 
l
->
u¾
 = 
	`b®loc
(
B_L
, 
sz
);

731 
	`memýy
(
l
->
u¾
, u¾, 
sz
 - 1);

732 
l
->
u¾
[
sz
 - 2] = '/';

733 
l
->
u¾
[
sz
 - 1] = '\0';

735 
l
->
Ãxt
 = 
s¦Li¡
;

736 
s¦Li¡
 = 
l
;

737 
	`websBuždWh™–i¡
();

739 
	}
}

746 
	$websD–‘eWh™–i¡
()

748 
	`websD–‘eWh™–i¡Recursive
(
wh™–i¡
);

749 
wh™–i¡
 = 
NULL
;

750 
	}
}

752 
	$websD–‘eWh™–i¡Recursive
(
fžeNode_t
 *
dœ
)

754 ià(
dœ
 =ð
NULL
) ;

755 ià(
dœ
->
chžd
) {

756 
	`websD–‘eWh™–i¡Recursive
(
dœ
->
chžd
);

758 ià(
dœ
->
Ãxt
) {

759 
	`websD–‘eWh™–i¡Recursive
(
dœ
->
Ãxt
);

761 ià(
dœ
->
Çme
) {

762 
	`bä“
(
B_L
, 
dœ
->
Çme
);

764 
	`mem£t
(
dœ
, 0x0, (
fžeNode_t
));

765 
	`bä“
(
B_L
, 
dœ
);

766 
	}
}

772 
	$websBuždWh™–i¡
()

774 ià(
websDeçuÉDœ
 =ð
NULL
 || *websDefaultDir == '\0') {

777 
	`websD–‘eWh™–i¡Recursive
(
wh™–i¡
);

778 
wh™–i¡
 = 
	`b®loc
(
B_L
, (
fžeNode_t
));

779 
	`mem£t
(
wh™–i¡
, 0x0, (
fžeNode_t
));

780 
wh™–i¡
->
Çme
 = 
	`b¡rdup
(
B_L
, "/");

781 
wh™–i¡
->
æags
 |ð
WHITELIST_DIR
;

782  
	`websBuždWh™–i¡Recursive
(
websDeçuÉDœ
, 
wh™–i¡
, 0);

783 
	}
}

789 #ifdeà
WIN32


790 
	$websBuždWh™–i¡Recursive
(*
_·th
, 
fžeNode_t
 *
dœ
, 
Ëv–
)

792 
WIN32_FIND_DATA
 
fšdD©a
;

793 
HANDLE
 
fh
;

794 
fžeNode_t
 *
úode
, *
Âode
;

795 #ifdeà
WEBS_SSL_SUPPORT


796 
s¦Li¡_t
 *
l
;

798 
rc
 = 0;

799 
fœ¡Time
;

800 
·th
[
MAX_PATH
];

801 
tmµ©h
[
MAX_PATH
];

803 
fœ¡Time
 = 1;

804 
úode
 = 
dœ
;

805 
	`websMakeP©h
(
·th
, 
_·th
, 
NULL
, 1);

806 
fh
 = 
	`FšdFœ¡Fže
((
LPCSTR
)
·th
, &
fšdD©a
);

807 
fh
 !ð
INVALID_HANDLE_VALUE
) {

808 ià((
	`¡rcmp
(
fšdD©a
.
cFžeName
, ".") == 0) ||

809 (
	`¡rcmp
(
fšdD©a
.
cFžeName
, "..") == 0) ||

810 (
fšdD©a
.
dwFžeA‰ribu‹s
 & 
FILE_ATTRIBUTE_HIDDEN
) ||

811 (
fšdD©a
.
dwFžeA‰ribu‹s
 & 
FILE_ATTRIBUTE_SYSTEM
)) {

812 
ÃxtFže
;

814 
Âode
 = 
	`b®loc
(
B_L
, (
fžeNode_t
));

815 
	`mem£t
(
Âode
, 0x0, (
fžeNode_t
));

816 ià(
fšdD©a
.
dwFžeA‰ribu‹s
 & 
FILE_ATTRIBUTE_DIRECTORY
) {

817 
	`fmtAÎoc
(&(
Âode
->
Çme
), 
MAX_PATH
, "%s/", 
fšdD©a
.
cFžeName
);

818 
Âode
->
æags
 |ð
WHITELIST_DIR
;

820 
Âode
->
Çme
 = 
	`b¡rdup
(
B_L
, 
fšdD©a
.
cFžeName
);

822 ià(
fœ¡Time
) {

823 
úode
->
chžd
 = 
Âode
;

824 
fœ¡Time
 = 0;

826 
úode
->
Ãxt
 = 
Âode
;

828 
úode
 = 
Âode
;

829 ià(
	`¡ºcmp
(
·th
 + 
	`¡¾’
(
websDeçuÉDœ
), "/" 
CGI_BIN
,

830 
	`¡¾’
(
CGI_BIN
) + 1) == 0) {

831 
úode
->
æags
 |ð
WHITELIST_CGI
;

833 #ifdeà
WEBS_SSL_SUPPORT


834 
l
 = 
s¦Li¡
;† !ð
NULL
;† =†->
Ãxt
) {

835 ià(
	`¡ºcmp
(
·th
 + 
	`¡¾’
(
websDeçuÉDœ
), 
l
->
u¾
,

836 
	`¡¾’
(
l
->
u¾
)) == 0) {

837 
úode
->
æags
 |ð
WHITELIST_SSL
;

841 ià(
fšdD©a
.
dwFžeA‰ribu‹s
 & 
FILE_ATTRIBUTE_DIRECTORY
) {

842 
	`websMakeP©h
(
tmµ©h
, 
·th
, 
fšdD©a
.
cFžeName
, 1);

843 ià(
Ëv–
 < 
MAX_URL_DEPTH
) {

844 ià(
	`websBuždWh™–i¡Recursive
(
tmµ©h
, 
úode
, 
Ëv–
 + 1) < 0){

845 
úode
->
æags
 |ð
WHITELIST_BLOCKED
;

849 
ÃxtFže
:

850 ià(
	`FšdNextFže
(
fh
, &
fšdD©a
) == 0) {

851 ià(
	`G‘La¡E¼Ü
(è!ð
ERROR_NO_MORE_FILES
) {

852 
rc
 = -1;

857 
	`FšdClo£
(
fh
);

858  
rc
;

859 
	}
}

866 
	$websBuždWh™–i¡Recursive
(*
_·th
, 
fžeNode_t
 *
dœ
, 
Ëv–
)

868 
dœ’t
 *
fšdD©a
, *
»suÉ
;

869 
DIR
 *
fh
;

870 
fžeNode_t
 *
úode
, *
Âode
;

871 
fœ¡Time
;

872 
·th
[
PATH_MAX
];

873 
tmµ©h
[
PATH_MAX
];

875 
fœ¡Time
 = 1;

876 
úode
 = 
dœ
;

886 ià((
dœ’t
è> 
PATH_MAX
) {

887 
fšdD©a
 = 
	`b®loc
(
B_L
, (
dœ’t
));

889 
fšdD©a
 = 
	`b®loc
(
B_L
, (
dœ’t
è+ 
PATH_MAX
);

891 
	`websMakeP©h
(
·th
, 
_·th
, 
NULL
, 0);

892 ià((
fh
 = 
	`Ý’dœ
(
·th
)è=ð
NULL
) {

893 
	`bä“
(
B_L
, 
fšdD©a
);

896 (
	`»addœ_r
(
fh
, 
fšdD©a
, &
»suÉ
) == 0) &&„esult) {

897 ià((
	`¡rcmp
(
fšdD©a
->
d_Çme
, ".") == 0) ||

898 (
	`¡rcmp
(
fšdD©a
->
d_Çme
, "..") == 0) ||

899 (
fšdD©a
->
d_ty³
 !ð
DT_REG
 && fšdD©a->d_ty³ !ð
DT_DIR
)) {

902 
Âode
 = 
	`b®loc
(
B_L
, (
fžeNode_t
));

903 
	`mem£t
(
Âode
, 0x0, (
fžeNode_t
));

904 ià(
fšdD©a
->
d_ty³
 =ð
DT_DIR
) {

905 
	`fmtAÎoc
(&(
Âode
->
Çme
), 
PATH_MAX
, "%s/", 
fšdD©a
->
d_Çme
);

906 
Âode
->
æags
 |ð
WHITELIST_DIR
;

908 
Âode
->
Çme
 = 
	`b¡rdup
(
B_L
, 
fšdD©a
->
d_Çme
);

910 ià(
fœ¡Time
) {

911 
úode
->
chžd
 = 
Âode
;

912 
fœ¡Time
 = 0;

914 
úode
->
Ãxt
 = 
Âode
;

916 
úode
 = 
Âode
;

917 ià(
	`¡ºcmp
(
·th
 + 
	`¡¾’
(
websDeçuÉDœ
), "/" 
CGI_BIN
,

918 
	`¡¾’
(
CGI_BIN
) + 1) == 0) {

919 
úode
->
æags
 |ð
WHITELIST_CGI
;

921 #ifdeà
WEBS_SSL_SUPPORT


922 
s¦Li¡_t
 *
l
;

923 
l
 = 
s¦Li¡
;† !ð
NULL
;† =†->
Ãxt
) {

924 ià(
	`¡ºcmp
(
·th
 + 
	`¡¾’
(
websDeçuÉDœ
), 
l
->
u¾
,

925 
	`¡¾’
(
l
->
u¾
)) == 0) {

926 
úode
->
æags
 |ð
WHITELIST_SSL
;

931 ià(
fšdD©a
->
d_ty³
 =ð
DT_DIR
) {

932 
	`websMakeP©h
(
tmµ©h
, 
·th
, 
fšdD©a
->
d_Çme
, 0);

933 ià(
Ëv–
 < 
MAX_URL_DEPTH
) {

934 ià(
	`websBuždWh™–i¡Recursive
(
tmµ©h
, 
úode
, 
Ëv–
 + 1) < 0){

935 
úode
->
æags
 |ð
WHITELIST_BLOCKED
;

940 
	`bä“
(
B_L
, 
fšdD©a
);

941 
	`þo£dœ
(
fh
);

943 
	}
}

951 
	$websMakeP©h
(*
d
, *
¤c
, *
subdœ
, 
wždÿrd
)

953 
max
;

954 *
a
;

956 #ià
WIN


957 
max
 = 
MAX_PATH
 - 4 - (
subdœ
 ? 
	`¡¾’
(subdir) : 0);

959 
max
 = 
PATH_MAX
 - 4 - (
subdœ
 ? 
	`¡¾’
(subdir) : 0);

961 
a
 = 
¤c
; *¨!ð'\0' && ()× - srcè< 
max
;‡++, 
d
++) {

962 *
d
 = *
a
;

964 ià(*(
d
 - 1) == '*') d -= 1;

965 ià(
subdœ
) {

966 ià(*(
d
 - 1) != '/') {

967 *
d
 = '/'; d++;

969 
a
 = 
subdœ
; *a != '\0';‡++) {

970 *
d
 = *
a
; d++;

973 ià(*(
d
 - 1) != '/') {

974 *
d
 = '/'; d++;

976 ià(
wždÿrd
) {

977 *
d
 = '*'; d++;

979 *
d
 = '\0';

980 
	}
}

	@ej.h

10 #iâdeà
_h_EJ


11 
	#_h_EJ
 1

	)

22 
	~"uemf.h
"

28 
ejArgs
(
¬gc
, 
ch¬_t
 **
¬gv
, ch¬_ˆ*
fmt
, ...);

29 
ejS‘ResuÉ
(
eid
, 
ch¬_t
 *
s
);

30 
ejO³nEngše
(
sym_fd_t
 
v¬ŸbËs
, sym_fd_ˆ
funùiÚs
);

31 
ejClo£Engše
(
eid
);

32 
ejS‘Glob®FunùiÚ
(
eid
, 
ch¬_t
 *
Çme
,

33 (*
â
)(
eid
, *
hªdË
, 
¬gc
, 
ch¬_t
 **
¬gv
));

34 
	`ejS‘V¬
(
eid
, 
ch¬_t
 *
v¬
, ch¬_ˆ*
v®ue
);

35 
	`ejG‘V¬
(
eid
, 
ch¬_t
 *
v¬
, ch¬_ˆ**
v®ue
);

36 
ch¬_t
 *
	`ejEv®
(
eid
, ch¬_ˆ*
süt
, ch¬_ˆ**
emsg
);

	@ejIntrn.h

10 #iâdeà
_h_EJINTERNAL


11 
	#_h_EJINTERNAL
 1

	)

22 
	~<ùy³.h
>

23 
	~<¡d¬g.h
>

24 
	~<¡dlib.h
>

26 #ifdeà
WIN32


27 
	~<sh¬e.h
>

30 #ifdeà
LYNX


31 
	~<uni¡d.h
>

34 #ifdeà
QNX4


35 
	~<dœ’t.h
>

38 
	~"uemf.h
"

39 
	~"ej.h
"

45 
	#EJ_INC
 110

	)

46 
	#EJ_SCRIPT_INC
 1023

	)

47 
	#EJ_OFFSET
 1

	)

48 
	#EJ_MAX_RECURSE
 100

	)

53 
	#TOK_ERR
 -1

	)

54 
	#TOK_LPAREN
 1

	)

55 
	#TOK_RPAREN
 2

	)

56 
	#TOK_IF
 3

	)

57 
	#TOK_ELSE
 4

	)

58 
	#TOK_LBRACE
 5

	)

59 
	#TOK_RBRACE
 6

	)

60 
	#TOK_LOGICAL
 7

	)

61 
	#TOK_EXPR
 8

	)

62 
	#TOK_SEMI
 9

	)

63 
	#TOK_LITERAL
 10

	)

64 
	#TOK_FUNCTION
 11

	)

65 
	#TOK_NEWLINE
 12

	)

66 
	#TOK_ID
 13

	)

67 
	#TOK_EOF
 14

	)

68 
	#TOK_COMMA
 15

	)

69 
	#TOK_VAR
 16

	)

70 
	#TOK_ASSIGNMENT
 17

	)

71 
	#TOK_FOR
 18

	)

72 
	#TOK_INC_DEC
 19

	)

73 
	#TOK_RETURN
 20

	)

78 
	#EXPR_LESS
 1

	)

79 
	#EXPR_LESSEQ
 2

	)

80 
	#EXPR_GREATER
 3

	)

81 
	#EXPR_GREATEREQ
 4

	)

82 
	#EXPR_EQ
 5

	)

83 
	#EXPR_NOTEQ
 6

	)

84 
	#EXPR_PLUS
 7

	)

85 
	#EXPR_MINUS
 8

	)

86 
	#EXPR_DIV
 9

	)

87 
	#EXPR_MOD
 10

	)

88 
	#EXPR_LSHIFT
 11

	)

89 
	#EXPR_RSHIFT
 12

	)

90 
	#EXPR_MUL
 13

	)

91 
	#EXPR_ASSIGNMENT
 14

	)

92 
	#EXPR_INC
 15

	)

93 
	#EXPR_DEC
 16

	)

94 
	#EXPR_BOOL_COMP
 17

	)

98 
	#COND_AND
 1

	)

99 
	#COND_OR
 2

	)

100 
	#COND_NOT
 3

	)

105 
	#STATE_ERR
 -1

	)

106 
	#STATE_EOF
 1

	)

107 
	#STATE_COND
 2

	)

108 
	#STATE_COND_DONE
 3

	)

109 
	#STATE_RELEXP
 4

	)

110 
	#STATE_RELEXP_DONE
 5

	)

111 
	#STATE_EXPR
 6

	)

112 
	#STATE_EXPR_DONE
 7

	)

113 
	#STATE_STMT
 8

	)

114 
	#STATE_STMT_DONE
 9

	)

115 
	#STATE_STMT_BLOCK_DONE
 10

	)

116 
	#STATE_ARG_LIST
 11

	)

117 
	#STATE_ARG_LIST_DONE
 12

	)

118 
	#STATE_DEC_LIST
 16

	)

119 
	#STATE_DEC_LIST_DONE
 17

	)

120 
	#STATE_DEC
 18

	)

121 
	#STATE_DEC_DONE
 19

	)

123 
	#STATE_RET
 20

	)

125 
	#STATE_BEGIN
 
STATE_STMT


	)

130 
	#FLAGS_EXE
 0x1

	)

131 
	#FLAGS_VARIABLES
 0x2

	)

132 
	#FLAGS_FUNCTIONS
 0x4

	)

138 
ch¬_t
 *
	mâame
;

139 
ch¬_t
 **
	m¬gs
;

140 
	mnArgs
;

141 } 
	tejfunc_t
;

146 
	sejEv®
 {

147 
ršgq_t
 
	mtokbuf
;

148 
ršgq_t
 
	msüt
;

149 
ch¬_t
 *
	mputBackTok’
;

150 
	mputBackTok’Id
;

151 
ch¬_t
 *
	mlše
;

152 
	mlšeL’gth
;

153 
	mlšeNumb”
;

154 
	mlšeCÞumn
;

155 } 
	tejšput_t
;

160 
	sej
 {

161 
ejšput_t
 *
	mšput
;

162 
sym_fd_t
 
	mfunùiÚs
;

163 
sym_fd_t
 *
	mv¬ŸbËs
;

164 
	mv¬ŸbËMax
;

165 
ejfunc_t
 *
	mfunc
;

166 
ch¬_t
 *
	m»suÉ
;

167 
ch¬_t
 *
	m”rÜ
;

168 
ch¬_t
 *
	mtok’
;

169 
	mtid
;

170 
	meid
;

171 
	mæags
;

172 *
	mu£rHªdË
;

173 } 
	tej_t
;

177 
ejO³nBlock
(
eid
);

178 
ejClo£Block
(
eid
, 
vid
);

179 
ch¬_t
 *
ejEv®Block
(
eid
, ch¬_ˆ*
süt
, ch¬_ˆ**
emsg
);

180 #iâdeà
__NO_EJ_FILE


181 
ch¬_t
 *
ejEv®Fže
(
eid
, ch¬_ˆ*
·th
, ch¬_ˆ**
emsg
);

183 
ejRemoveGlob®FunùiÚ
(
eid
, 
ch¬_t
 *
Çme
);

184 *
ejG‘Glob®FunùiÚ
(
eid
, 
ch¬_t
 *
Çme
);

185 
ejS‘Glob®FunùiÚDœeù
(
sym_fd_t
 
funùiÚs
, 
ch¬_t
 *
Çme
,

186 (*
â
)(
eid
, *
hªdË
, 
¬gc
, 
ch¬_t
 **
¬gv
));

187 
	`ejE¼Ü
(
ej_t
* 
•
, 
ch¬_t
* 
fmt
, ...);

188 
	`ejS‘U£rHªdË
(
eid
, * 
hªdË
);

189 *
	`ejG‘U£rHªdË
(
eid
);

190 
	`ejG‘LšeNumb”
(
eid
);

191 
ch¬_t
 *
	`ejG‘ResuÉ
(
eid
);

192 
	`ejS‘LoÿlV¬
(
eid
, 
ch¬_t
 *
v¬
, ch¬_ˆ*
v®ue
);

193 
	`ejS‘Glob®V¬
(
eid
, 
ch¬_t
 *
v¬
, ch¬_ˆ*
v®ue
);

195 
	`ejLexO³n
(
ej_t
* 
•
);

196 
	`ejLexClo£
(
ej_t
* 
•
);

197 
	`ejLexO³nSüt
(
ej_t
* 
•
, 
ch¬_t
 *
süt
);

198 
	`ejLexClo£Süt
(
ej_t
* 
•
);

199 
	`ejLexSaveIÅutS‹
(
ej_t
* 
•
, 
ejšput_t
* 
¡©e
);

200 
	`ejLexF»eIÅutS‹
(
ej_t
* 
•
, 
ejšput_t
* 
¡©e
);

201 
	`ejLexRe¡ÜeIÅutS‹
(
ej_t
* 
•
, 
ejšput_t
* 
¡©e
);

202 
	`ejLexG‘Tok’
(
ej_t
* 
•
, 
¡©e
);

203 
	`ejLexPutbackTok’
(
ej_t
* 
•
, 
tid
, 
ch¬_t
 *
¡ršg
);

205 
sym_fd_t
 
	`ejG‘V¬ŸbËTabË
(
eid
);

206 
sym_fd_t
 
	`ejG‘FunùiÚTabË
(
eid
);

208 
	`ejEmfO³n
(
eid
);

209 
	`ejEmfClo£
(
eid
);

211 
	`ejEmfDbR—d
(
eid
, *
hªdË
, 
¬gc
, 
ch¬_t
 **
¬gv
);

212 
	`ejEmfDbR—dKeyed
(
eid
, *
hªdË
, 
¬gc
, 
ch¬_t
 **
¬gv
);

213 
	`ejEmfDbTabËG‘Nrow
(
eid
, *
hªdË
, 
¬gc
, 
ch¬_t
 **
¬gv
);

214 
	`ejEmfDbD–‘eRow
(
eid
, *
hªdË
, 
¬gc
, 
ch¬_t
 **
¬gv
);

215 
	`ejEmfT¿û
(
eid
, *
hªdË
, 
¬gc
, 
ch¬_t
 **
¬gv
);

216 
	`ejEmfDbWr™e
(
eid
, *
hªdË
, 
¬gc
, 
ch¬_t
 **
¬gv
);

217 
	`ejEmfDbCÞËùTabË
(
eid
, *
hªdË
, 
¬gc
, 
ch¬_t
 **
¬gv
);

	@ejlex.c

19 
	~"ejIÁº.h
"

21 
	~"uemf.h
"

24 
	#OCTAL
 8

	)

25 
	#HEX
 16

	)

28 
g‘LexiÿlTok’
(
ej_t
* 
•
, 
¡©e
);

29 
tok’AddCh¬
(
ej_t
 *
•
, 
c
);

30 
šputG‘c
(
ej_t
* 
•
);

31 
šputPutback
(
ej_t
* 
•
, 
c
);

32 
ch¬CÚv”t
(
ej_t
* 
•
, 
ba£
, 
maxDig
);

39 
	$ejLexO³n
(
ej_t
* 
•
)

42 
	}
}

49 
	$ejLexClo£
(
ej_t
* 
•
)

51 
	}
}

58 
	$ejLexO³nSüt
(
ej_t
* 
•
, 
ch¬_t
 *
süt
)

60 
ejšput_t
 *

;

62 
	`a_as£¹
(
•
);

63 
	`a_as£¹
(
süt
);

65 ià((
•
->
šput
 = 
	`b®loc
(
B_L
, (
ejšput_t
))è=ð
NULL
) {

68 

 = 
•
->
šput
;

69 
	`mem£t
(

, 0, (*ip));

71 
	`a_as£¹
(

);

72 
	`a_as£¹
(

->
putBackTok’
 =ð
NULL
);

73 
	`a_as£¹
(

->
putBackTok’Id
 == 0);

78 ià(
	`ršgqO³n
(&

->
tokbuf
, 
EJ_INC
, -1) < 0) {

81 ià(
	`ršgqO³n
(&

->
süt
, 
EJ_SCRIPT_INC
, -1) < 0) {

87 
	`ršgqPutSŒ
(&

->
süt
, script);

89 

->
lšeNumb”
 = 1;

90 

->
lšeL’gth
 = 0;

91 

->
lšeCÞumn
 = 0;

92 

->
lše
 = 
NULL
;

95 
	}
}

102 
	$ejLexClo£Süt
(
ej_t
* 
•
)

104 
ejšput_t
 *

;

106 
	`a_as£¹
(
•
);

108 

 = 
•
->
šput
;

109 
	`a_as£¹
(

);

111 ià(

->
putBackTok’
) {

112 
	`bä“
(
B_L
, 

->
putBackTok’
);

113 

->
putBackTok’
 = 
NULL
;

115 

->
putBackTok’Id
 = 0;

117 ià(

->
lše
) {

118 
	`bä“
(
B_L
, 

->
lše
);

119 

->
lše
 = 
NULL
;

122 
	`ršgqClo£
(&

->
tokbuf
);

123 
	`ršgqClo£
(&

->
süt
);

125 
	`bä“
(
B_L
, 

);

126 
	}
}

133 
	$ejLexSaveIÅutS‹
(
ej_t
* 
•
, 
ejšput_t
* 
¡©e
)

135 
ejšput_t
 *

;

137 
	`a_as£¹
(
•
);

139 

 = 
•
->
šput
;

140 
	`a_as£¹
(

);

142 *
¡©e
 = *

;

143 ià(

->
putBackTok’
) {

144 
¡©e
->
putBackTok’
 = 
	`b¡rdup
(
B_L
, 

->putBackToken);

146 
	}
}

153 
	$ejLexRe¡ÜeIÅutS‹
(
ej_t
* 
•
, 
ejšput_t
* 
¡©e
)

155 
ejšput_t
 *

;

157 
	`a_as£¹
(
•
);

159 

 = 
•
->
šput
;

160 
	`a_as£¹
(

);

162 

->
tokbuf
 = 
¡©e
->tokbuf;

163 

->
süt
 = 
¡©e
->script;

164 

->
putBackTok’Id
 = 
¡©e
->putBackTokenId;

165 ià(

->
putBackTok’
) {

166 
	`bä“
(
B_L
, 

->
putBackTok’
);

168 ià(
¡©e
->
putBackTok’
) {

169 

->
putBackTok’
 = 
	`b¡rdup
(
B_L
, 
¡©e
->putBackToken);

171 
	}
}

178 
	$ejLexF»eIÅutS‹
(
ej_t
* 
•
, 
ejšput_t
* 
¡©e
)

180 ià(
¡©e
->
putBackTok’
) {

181 
	`bä“
(
B_L
, 
¡©e
->
putBackTok’
);

182 
¡©e
->
putBackTok’
 = 
NULL
;

184 
	}
}

191 
	$ejLexG‘Tok’
(
ej_t
* 
•
, 
¡©e
)

193 
•
->
tid
 = 
	`g‘LexiÿlTok’
Óp, 
¡©e
);

201  
•
->
tid
;

202 
	}
}

209 
	$g‘LexiÿlTok’
(
ej_t
* 
•
, 
¡©e
)

211 
ršgq_t
 *
šq
, *
tokq
;

212 
ejšput_t
* 

;

213 
dÚe
, 
tid
, 
c
, 
quÙe
, 
¡yË
;

215 
	`a_as£¹
(
•
);

216 

 = 
•
->
šput
;

217 
	`a_as£¹
(

);

219 
šq
 = &

->
süt
;

220 
tokq
 = &

->
tokbuf
;

222 
•
->
tid
 = -1;

223 
tid
 = -1;

224 
•
->
tok’
 = 
	`T
("");

226 
	`ršgqFlush
(
tokq
);

228 ià(

->
putBackTok’Id
 > 0) {

229 
	`ršgqPutSŒ
(
tokq
, 

->
putBackTok’
);

230 
tid
 = 

->
putBackTok’Id
;

231 

->
putBackTok’Id
 = 0;

232 
•
->
tok’
 = (
ch¬_t
*è
tokq
->
£rvp
;

233  
tid
;

236 ià((
c
 = 
	`šputG‘c
(
•
)) < 0) {

237  
TOK_EOF
;

240 
dÚe
 = 0; !done; ) {

241 
c
) {

243  
TOK_EOF
;

249 ià((
c
 = 
	`šputG‘c
(
•
)) < 0)

251 } 
c
 == ' ' || c == '\t' || c == '\r');

255  
TOK_NEWLINE
;

258 
	`tok’AddCh¬
(
•
, 
c
);

259  
TOK_LPAREN
;

262 
	`tok’AddCh¬
(
•
, 
c
);

263  
TOK_RPAREN
;

266 
	`tok’AddCh¬
(
•
, 
c
);

267  
TOK_LBRACE
;

270 
	`tok’AddCh¬
(
•
, 
c
);

271  
TOK_RBRACE
;

274 ià((
c
 = 
	`šputG‘c
(
•
)) < 0) {

275 
	`ejE¼Ü
(
•
, 
	`T
("Syntax Error"));

276  
TOK_ERR
;

278 ià(
c
 != '+' ) {

279 
	`šputPutback
(
•
, 
c
);

280 
	`tok’AddCh¬
(
•
, 
EXPR_PLUS
);

281  
TOK_EXPR
;

283 
	`tok’AddCh¬
(
•
, 
EXPR_INC
);

284  
TOK_INC_DEC
;

287 ià((
c
 = 
	`šputG‘c
(
•
)) < 0) {

288 
	`ejE¼Ü
(
•
, 
	`T
("Syntax Error"));

289  
TOK_ERR
;

291 ià(
c
 != '-' ) {

292 
	`šputPutback
(
•
, 
c
);

293 
	`tok’AddCh¬
(
•
, 
EXPR_MINUS
);

294  
TOK_EXPR
;

296 
	`tok’AddCh¬
(
•
, 
EXPR_DEC
);

297  
TOK_INC_DEC
;

300 
	`tok’AddCh¬
(
•
, 
EXPR_MUL
);

301  
TOK_EXPR
;

304 
	`tok’AddCh¬
(
•
, 
EXPR_MOD
);

305  
TOK_EXPR
;

311 ià((
c
 = 
	`šputG‘c
(
•
)) < 0) {

312 
	`ejE¼Ü
(
•
, 
	`T
("Syntax Error"));

313  
TOK_ERR
;

315 ià(
c
 != '*' && c != '/') {

316 
	`šputPutback
(
•
, 
c
);

317 
	`tok’AddCh¬
(
•
, 
EXPR_DIV
);

318  
TOK_EXPR
;

320 
¡yË
 = 
c
;

325 ià((
c
 = 
	`šputG‘c
(
•
)) < 0) {

326 
	`ejE¼Ü
(
•
, 
	`T
("Syntax Error"));

327  
TOK_ERR
;

329 ià(
c
 =ð'\n' && 
¡yË
 == '/') {

331 } ià(
c
 == '*') {

332 
c
 = 
	`šputG‘c
(
•
);

333 ià(
¡yË
 == '/') {

334 ià(
c
 == '\n') {

338 ià(
c
 == '/') {

347 ià((
c
 = 
	`šputG‘c
(
•
)) < 0) {

348  
TOK_EOF
;

353 ià((
c
 = 
	`šputG‘c
(
•
)) < 0) {

354 
	`ejE¼Ü
(
•
, 
	`T
("Syntax Error"));

355  
TOK_ERR
;

357 ià(
c
 == '<') {

358 
	`tok’AddCh¬
(
•
, 
EXPR_LSHIFT
);

359  
TOK_EXPR
;

360 } ià(
c
 == '=') {

361 
	`tok’AddCh¬
(
•
, 
EXPR_LESSEQ
);

362  
TOK_EXPR
;

364 
	`tok’AddCh¬
(
•
, 
EXPR_LESS
);

365 
	`šputPutback
(
•
, 
c
);

366  
TOK_EXPR
;

369 ià((
c
 = 
	`šputG‘c
(
•
)) < 0) {

370 
	`ejE¼Ü
(
•
, 
	`T
("Syntax Error"));

371  
TOK_ERR
;

373 ià(
c
 == '>') {

374 
	`tok’AddCh¬
(
•
, 
EXPR_RSHIFT
);

375  
TOK_EXPR
;

376 } ià(
c
 == '=') {

377 
	`tok’AddCh¬
(
•
, 
EXPR_GREATEREQ
);

378  
TOK_EXPR
;

380 
	`tok’AddCh¬
(
•
, 
EXPR_GREATER
);

381 
	`šputPutback
(
•
, 
c
);

382  
TOK_EXPR
;

385 ià((
c
 = 
	`šputG‘c
(
•
)) < 0) {

386 
	`ejE¼Ü
(
•
, 
	`T
("Syntax Error"));

387  
TOK_ERR
;

389 ià(
c
 == '=') {

390 
	`tok’AddCh¬
(
•
, 
EXPR_EQ
);

391  
TOK_EXPR
;

393 
	`šputPutback
(
•
, 
c
);

394  
TOK_ASSIGNMENT
;

397 ià((
c
 = 
	`šputG‘c
(
•
)) < 0) {

398 
	`ejE¼Ü
(
•
, 
	`T
("Syntax Error"));

399  
TOK_ERR
;

401 ià(
c
 == '=') {

402 
	`tok’AddCh¬
(
•
, 
EXPR_NOTEQ
);

403  
TOK_EXPR
;

405 
	`šputPutback
(
•
, 
c
);

406 
	`tok’AddCh¬
(
•
, 
EXPR_BOOL_COMP
);

407  
TOK_EXPR
;

410 
	`tok’AddCh¬
(
•
, 
c
);

411  
TOK_SEMI
;

414 
	`tok’AddCh¬
(
•
, 
c
);

415  
TOK_COMMA
;

418 ià((
c
 = 
	`šputG‘c
(
•
)) < 0 || c != '|') {

419 
	`ejE¼Ü
(
•
, 
	`T
("Syntax Error"));

420  
TOK_ERR
;

422 
	`tok’AddCh¬
(
•
, 
COND_OR
);

423  
TOK_LOGICAL
;

426 ià((
c
 = 
	`šputG‘c
(
•
)) < 0 || c != '&') {

427 
	`ejE¼Ü
(
•
, 
	`T
("Syntax Error"));

428  
TOK_ERR
;

430 
	`tok’AddCh¬
(
•
, 
COND_AND
);

431  
TOK_LOGICAL
;

435 
quÙe
 = 
c
;

436 ià((
c
 = 
	`šputG‘c
(
•
)) < 0) {

437 
	`ejE¼Ü
(
•
, 
	`T
("Syntax Error"));

438  
TOK_ERR
;

441 
c
 !ð
quÙe
) {

445 ià(
c
 == '\\') {

446 
c
 = 
	`šputG‘c
(
•
);

448 ià(
	`gisdig™
(
c
)) {

453 
	`šputPutback
(
•
, 
c
);

454 
c
 = 
	`ch¬CÚv”t
(
•
, 
OCTAL
, 3);

457 
c
) {

459 
c
 = '\n'; ;

461 
c
 = '\b'; ;

463 
c
 = '\f'; ;

465 
c
 = '\r'; ;

467 
c
 = '\t'; ;

472 
c
 = 
	`ch¬CÚv”t
(
•
, 
HEX
, 2);

478 
c
 = 
	`ch¬CÚv”t
(
•
, 
HEX
, 2);

479 
c
 = c*16 + 
	`ch¬CÚv”t
(
•
, 
HEX
, 2);

487 
	`ejE¼Ü
(
•
, 
	`T
("Invalid Escape Sequence"));

488  
TOK_ERR
;

491 ià(
	`tok’AddCh¬
(
•
, 
c
) < 0) {

492  
TOK_ERR
;

495 ià(
	`tok’AddCh¬
(
•
, 
c
) < 0) {

496  
TOK_ERR
;

499 ià((
c
 = 
	`šputG‘c
(
•
)) < 0) {

500 
	`ejE¼Ü
(
•
, 
	`T
("Unmatched Quote"));

501  
TOK_ERR
;

504  
TOK_LITERAL
;

509 ià(
	`tok’AddCh¬
(
•
, 
c
) < 0) {

510  
TOK_ERR
;

512 ià((
c
 = 
	`šputG‘c
(
•
)) < 0)

514 } 
	`gisdig™
(
c
));

515 
	`šputPutback
(
•
, 
c
);

516  
TOK_LITERAL
;

523 ià(
c
 == '\\') {

527 } ià(
	`tok’AddCh¬
(
•
, 
c
) < 0) {

530 ià((
c
 = 
	`šputG‘c
(
•
)) < 0) {

533 ià(!
	`gi§Êum
(
c
) && c != '$' && c != '_' &&

534 
c
 != '\\') {

538 ià(! 
	`gi§Íha
(*
tokq
->
£rvp
) && *tokq->servp != '$' &&

539 *
tokq
->
£rvp
 != '_') {

540 
	`ejE¼Ü
(
•
, 
	`T
("Inv®id id’tif›¸%s"), 
tokq
->
£rvp
);

541  
TOK_ERR
;

547 ià(
¡©e
 =ð
STATE_STMT
) {

548 ià(
	`g¡rcmp
(
•
->
tok’
, 
	`T
("if")) == 0) {

549  
TOK_IF
;

550 } ià(
	`g¡rcmp
(
•
->
tok’
, 
	`T
("else")) == 0) {

551  
TOK_ELSE
;

552 } ià(
	`g¡rcmp
(
•
->
tok’
, 
	`T
("var")) == 0) {

553  
TOK_VAR
;

554 } ià(
	`g¡rcmp
(
•
->
tok’
, 
	`T
("for")) == 0) {

555  
TOK_FOR
;

556 } ià(
	`g¡rcmp
(
•
->
tok’
, 
	`T
("return")) == 0) {

557 ià((
c
 == ';') || (c == '(')) {

558 
	`šputPutback
(
•
, 
c
);

560  
TOK_RETURN
;

568 
c
 == ' ' || c == '\t' || c == '\r' || c == '\n') {

569 ià((
c
 = 
	`šputG‘c
(
•
)) < 0)

573 
tid
 = (
c
 =ð'('è? 
TOK_FUNCTION
 : 
TOK_ID
;

574 
dÚe
++;

581 
	`šputPutback
(
•
, 
c
);

582  
tid
;

583 
	}
}

590 
	$ejLexPutbackTok’
(
ej_t
* 
•
, 
tid
, 
ch¬_t
 *
¡ršg
)

592 
ejšput_t
* 

;

594 
	`a_as£¹
(
•
);

595 

 = 
•
->
šput
;

596 
	`a_as£¹
(

);

598 ià(

->
putBackTok’
) {

599 
	`bä“
(
B_L
, 

->
putBackTok’
);

601 

->
putBackTok’Id
 = 
tid
;

602 

->
putBackTok’
 = 
	`b¡rdup
(
B_L
, 
¡ršg
);

603 
	}
}

610 
	$tok’AddCh¬
(
ej_t
 *
•
, 
c
)

612 
ejšput_t
* 

;

614 
	`a_as£¹
(
•
);

615 

 = 
•
->
šput
;

616 
	`a_as£¹
(

);

618 ià(
	`ršgqPutc
(&

->
tokbuf
, (
ch¬_t
è
c
) < 0) {

619 
	`ejE¼Ü
(
•
, 
	`T
("Tokenoo big"));

622 * ((
ch¬_t
*è

->
tokbuf
.
’dp
) = '\0';

623 
•
->
tok’
 = (
ch¬_t
*è

->
tokbuf
.
£rvp
;

626 
	}
}

633 
	$šputG‘c
(
ej_t
* 
•
)

635 
ejšput_t
 *

;

636 
c
, 
Ën
;

638 
	`a_as£¹
(
•
);

639 

 = 
•
->
šput
;

641 ià((
Ën
 = 
	`ršgqL’
(&

->
süt
)) == 0) {

645 
c
 = 
	`ršgqG‘c
(&

->
süt
);

647 ià(
c
 == '\n') {

648 

->
lšeNumb”
++;

649 

->
lšeCÞumn
 = 0;

651 ià((

->
lšeCÞumn
 + 2è>ð->
lšeL’gth
) {

652 

->
lšeL’gth
 +ð
EJ_INC
;

653 

->
lše
 = 
	`b»®loc
(
B_L
, ip->lše, ip->
lšeL’gth
 * (
ch¬_t
));

655 

->
lše
[->
lšeCÞumn
++] = 
c
;

656 

->
lše
[->
lšeCÞumn
] = '\0';

658  
c
;

659 
	}
}

666 
	$šputPutback
(
ej_t
* 
•
, 
c
)

668 
ejšput_t
 *

;

670 
	`a_as£¹
(
•
);

672 

 = 
•
->
šput
;

673 
	`ršgqIn£¹c
(&

->
süt
, (
ch¬_t
è
c
);

675 ià(

->
lšeCÞumn
 > 0) {

676 

->
lšeCÞumn
-- ;

678 

->
lše
[->
lšeCÞumn
] = '\0';

679 
	}
}

687 
	$ch¬CÚv”t
(
ej_t
* 
•
, 
ba£
, 
maxDig
)

689 
i
, 
c
, 
lv®
, 
cÚvCh¬
;

691 
lv®
 = 0;

692 
i
 = 0; i < 
maxDig
; i++) {

693 ià((
c
 = 
	`šputG‘c
(
•
)) < 0) {

699 
cÚvCh¬
 = 
ba£
;

700 ià(
	`gisdig™
(
c
)) {

701 
cÚvCh¬
 = 
c
 - '0';

702 } ià(
c
 >= 'a' && c <= 'f') {

703 
cÚvCh¬
 = 
c
 - 'a' + 10;

704 } ià(
c
 >= 'A' && c <= 'F') {

705 
cÚvCh¬
 = 
c
 - 'A' + 10;

710 ià(
cÚvCh¬
 >ð
ba£
) {

711 
	`šputPutback
(
•
, 
c
);

714 
lv®
 = (lv® * 
ba£
è+ 
cÚvCh¬
;

716  
lv®
;

717 
	}
}

	@ejparse.c

19 
	~"ejIÁº.h
"

21 #ifdeà
CE


22 
	~"CE/wšcom·t.h
"

27 
ej_t
 **
	gejHªdËs
;

28 
	gejMax
 = -1;

32 #iâdeà
B_STATS


33 
	#£tSŒšg
(
a
,
b
,
c
è
	`£t¡ršg
(b,c)

	)

36 
ej_t
 *
ejPŒ
(
eid
);

37 
þ—rSŒšg
(
ch¬_t
 **
±r
);

38 
£tSŒšg
(
B_ARGS_DEC
, 
ch¬_t
 **
±r
, ch¬_ˆ*
s
);

39 
­³ndSŒšg
(
ch¬_t
 **
±r
, ch¬_ˆ*
s
);

40 
·r£
(
ej_t
 *
•
, 
¡©e
, 
æags
);

41 
·r£Stmt
(
ej_t
 *
•
, 
¡©e
, 
æags
);

42 
·r£Deþ¬©iÚ
(
ej_t
 *
•
, 
¡©e
, 
æags
);

43 
·r£Args
(
ej_t
 *
•
, 
¡©e
, 
æags
);

44 
·r£CÚd
(
ej_t
 *
•
, 
¡©e
, 
æags
);

45 
·r£Ex´
(
ej_t
 *
•
, 
¡©e
, 
æags
);

46 
ev®Ex´
(
ej_t
 *
•
, 
ch¬_t
 *
lhs
, 
»l
, ch¬_ˆ*
rhs
);

47 
ev®CÚd
(
ej_t
 *
•
, 
ch¬_t
 *
lhs
, 
»l
, ch¬_ˆ*
rhs
);

48 
ev®FunùiÚ
(
ej_t
 *
•
);

49 
ä“Func
(
ejfunc_t
 *
func
);

50 
ejRemoveNewlšes
(
ej_t
 *
•
, 
¡©e
);

57 
	$ejO³nEngše
(
sym_fd_t
 
v¬ŸbËs
, sym_fd_ˆ
funùiÚs
)

59 
ej_t
 *
•
;

60 
eid
, 
vid
;

62 ià((
eid
 = 
	`hAÎocEÁry
((***è&
ejHªdËs
, &
ejMax
, (
ej_t
))) < 0) {

65 
•
 = 
ejHªdËs
[
eid
];

66 
•
->
eid
 =ƒid;

73 ià((
vid
 = 
	`hAÎoc
((***è&
•
->
v¬ŸbËs
)) < 0) {

74 
ejMax
 = 
	`hF»e
((***è&
ejHªdËs
, 
•
->
eid
);

77 ià(
vid
 >ð
•
->
v¬ŸbËMax
) {

78 
•
->
v¬ŸbËMax
 = 
vid
 + 1;

81 ià(
v¬ŸbËs
 == -1) {

82 
•
->
v¬ŸbËs
[
vid
] = 
	`symO³n
(64è+ 
EJ_OFFSET
;

83 
•
->
æags
 |ð
FLAGS_VARIABLES
;

85 
•
->
v¬ŸbËs
[
vid
] = v¬ŸbË + 
EJ_OFFSET
;

88 ià(
funùiÚs
 == -1) {

89 
•
->
funùiÚs
 = 
	`symO³n
(64);

90 
•
->
æags
 |ð
FLAGS_FUNCTIONS
;

92 
•
->
funùiÚs
 = functions;

95 
	`ejLexO³n
(
•
);

100 
	`ejS‘Glob®V¬
(
•
->
eid
, 
	`T
("nuÎ"), 
NULL
);

102  
•
->
eid
;

103 
	}
}

110 
	$ejClo£Engše
(
eid
)

112 
ej_t
 *
•
;

113 
i
;

115 ià((
•
 = 
	`ejPŒ
(
eid
)è=ð
NULL
) {

119 
	`bä“Saã
(
B_L
, 
•
->
”rÜ
);

120 
•
->
”rÜ
 = 
NULL
;

121 
	`bä“Saã
(
B_L
, 
•
->
»suÉ
);

122 
•
->
»suÉ
 = 
NULL
;

124 
	`ejLexClo£
(
•
);

126 
i
 = 
•
->
v¬ŸbËMax
 - 1; i >= 0; i--) {

127 ià(
•
->
æags
 & 
FLAGS_VARIABLES
) {

128 
	`symClo£
(
•
->
v¬ŸbËs
[
i
] - 
EJ_OFFSET
);

130 
•
->
v¬ŸbËMax
 = 
	`hF»e
((***è&•->
v¬ŸbËs
, 
i
);

133 ià(
•
->
æags
 & 
FLAGS_FUNCTIONS
) {

134 
	`symClo£
(
•
->
funùiÚs
);

137 
ejMax
 = 
	`hF»e
((***è&
ejHªdËs
, 
•
->
eid
);

138 
	`bä“
(
B_L
, 
•
);

139 
	}
}

141 #iâdeà
__NO_EJ_FILE


147 
ch¬_t
 *
	$ejEv®Fže
(
eid
, 
ch¬_t
 *
·th
, ch¬_ˆ**
emsg
)

149 
g¡©_t
 
sbuf
;

150 
ej_t
 *
•
;

151 
ch¬_t
 *
süt
, *
rs
;

152 *
fžeBuf
;

153 
fd
;

155 
	`a_as£¹
(
·th
 && *path);

157 ià(
emsg
) {

158 *
emsg
 = 
NULL
;

161 ià((
•
 = 
	`ejPŒ
(
eid
)è=ð
NULL
) {

162  
NULL
;

165 #ià!
	`defšed
(
WIN32
)

166 
fd
 = 
	`gÝ’
(
·th
, 
O_RDONLY
 | 
O_BINARY
, 0666);

168 
	`_sÝ’_s
(&
fd
, 
·th
, 
O_RDONLY
 | 
O_BINARY
, 
_SH_DENYNO
, 0666);

171 ià(
fd
 < 0) {

172 
	`ejE¼Ü
(
•
, 
	`T
("Bad hªdË %d"), 
eid
);

173  
NULL
;

176 ià(
	`g¡©
(
·th
, &
sbuf
) < 0) {

177 
	`gþo£
(
fd
);

178 
	`ejE¼Ü
(
•
, 
	`T
("Cªˆ¡© %s"), 
·th
);

179  
NULL
;

182 ià((
fžeBuf
 = 
	`b®loc
(
B_L
, 
sbuf
.
¡_size
 + 1)è=ð
NULL
) {

183 
	`gþo£
(
fd
);

184 
	`ejE¼Ü
(
•
, 
	`T
("Cªˆm®loø%d"), 
sbuf
.
¡_size
);

185  
NULL
;

188 ià(
	`g»ad
(
fd
, 
fžeBuf
, 
sbuf
.
¡_size
) != ()sbuf.st_size) {

189 
	`gþo£
(
fd
);

190 
	`bä“
(
B_L
, 
fžeBuf
);

191 
	`ejE¼Ü
(
•
, 
	`T
("E¼Ü„—dšg %s"), 
·th
);

192  
NULL
;

195 
fžeBuf
[
sbuf
.
¡_size
] = '\0';

196 
	`gþo£
(
fd
);

198 ià((
süt
 = 
	`b®locAscToUni
(
fžeBuf
, 
sbuf
.
¡_size
)è=ð
NULL
) {

199 
	`bä“
(
B_L
, 
fžeBuf
);

200 
	`ejE¼Ü
(
•
, 
	`T
("Cªˆm®loø%d"), 
sbuf
.
¡_size
 + 1);

201  
NULL
;

203 
	`bä“
(
B_L
, 
fžeBuf
);

205 
rs
 = 
	`ejEv®Block
(
eid
, 
süt
, 
emsg
);

207 
	`bä“
(
B_L
, 
süt
);

208  
rs
;

209 
	}
}

219 
	$ejO³nBlock
(
eid
)

221 
ej_t
 *
•
;

222 
vid
;

224 if((
•
 = 
	`ejPŒ
(
eid
)è=ð
NULL
) {

228 ià((
vid
 = 
	`hAÎoc
((***è&
•
->
v¬ŸbËs
)) < 0) {

232 ià(
vid
 >ð
•
->
v¬ŸbËMax
) {

233 
•
->
v¬ŸbËMax
 = 
vid
 + 1;

235 
•
->
v¬ŸbËs
[
vid
] = 
	`symO³n
(64è+ 
EJ_OFFSET
;

236  
vid
;

238 
	}
}

246 
	$ejClo£Block
(
eid
, 
vid
)

248 
ej_t
 *
•
;

250 if((
•
 = 
	`ejPŒ
(
eid
)è=ð
NULL
) {

253 
	`symClo£
(
•
->
v¬ŸbËs
[
vid
] - 
EJ_OFFSET
);

254 
•
->
v¬ŸbËMax
 = 
	`hF»e
((***è&•->
v¬ŸbËs
, 
vid
);

257 
	}
}

265 
ch¬_t
 *
	$ejEv®Block
(
eid
, 
ch¬_t
 *
süt
, ch¬_ˆ**
emsg
)

267 
ch¬_t
* 
»tuºV®
;

268 
vid
;

270 
	`a_as£¹
(
süt
);

272 
vid
 = 
	`ejO³nBlock
(
eid
);

273 
»tuºV®
 = 
	`ejEv®
(
eid
, 
süt
, 
emsg
);

274 
	`ejClo£Block
(
eid
, 
vid
);

276  
»tuºV®
;

277 
	}
}

286 
ch¬_t
 *
	$ejEv®
(
eid
, 
ch¬_t
 *
süt
, ch¬_ˆ**
emsg
)

288 
ej_t
 *
•
;

289 
ejšput_t
 *
ÞdBlock
;

290 
¡©e
;

291 *
’dËssLoÝTe¡
;

292 
loÝCouÁ”
;

295 
	`a_as£¹
(
süt
);

297 ià(
emsg
) {

298 *
emsg
 = 
NULL
;

301 ià((
•
 = 
	`ejPŒ
(
eid
)è=ð
NULL
) {

302  
NULL
;

305 
	`£tSŒšg
(
B_L
, &
•
->
»suÉ
, 
	`T
(""));

310 
ÞdBlock
 = 
•
->
šput
;

311 
	`ejLexO³nSüt
(
•
, 
süt
);

316 
loÝCouÁ”
 = 0;

317 
’dËssLoÝTe¡
 = 
NULL
;

320 
¡©e
 = 
	`·r£
(
•
, 
STATE_BEGIN
, 
FLAGS_EXE
);

322 ià(
¡©e
 =ð
STATE_RET
) {

323 
¡©e
 = 
STATE_EOF
;

330 ià(
’dËssLoÝTe¡
 =ð
•
->
šput
->
süt
.
£rvp
) {

331 ià(
loÝCouÁ”
++ > 10) {

332 
¡©e
 = 
STATE_ERR
;

333 
	`ejE¼Ü
(
•
, 
	`T
("Syntaxƒrror"));

336 
’dËssLoÝTe¡
 = 
•
->
šput
->
süt
.
£rvp
;

337 
loÝCouÁ”
 = 0;

339 } 
¡©e
 !ð
STATE_EOF
 && s‹ !ð
STATE_ERR
);

341 
	`ejLexClo£Süt
(
•
);

346 ià(
¡©e
 =ð
STATE_ERR
 && 
emsg
) {

347 *
emsg
 = 
	`b¡rdup
(
B_L
, 
•
->
”rÜ
);

353 
•
->
šput
 = 
ÞdBlock
;

355 ià(
¡©e
 =ð
STATE_EOF
) {

356  
•
->
»suÉ
;

359 ià(
¡©e
 =ð
STATE_ERR
) {

360  
NULL
;

363  
•
->
»suÉ
;

364 
	}
}

371 
	$·r£
(
ej_t
 *
•
, 
¡©e
, 
æags
)

373 
	`a_as£¹
(
•
);

375 
¡©e
) {

379 
STATE_STMT
:

380 ià((
¡©e
 = 
	`·r£Stmt
(
•
, s‹, 
æags
)è!ð
STATE_STMT_DONE
 &&

381 
¡©e
 !ð
STATE_EOF
 && s‹ !ð
STATE_STMT_BLOCK_DONE
 &&

382 
¡©e
 !ð
STATE_RET
) {

383 
¡©e
 = 
STATE_ERR
;

387 
STATE_DEC
:

388 ià((
¡©e
 = 
	`·r£Stmt
(
•
, s‹, 
æags
)è!ð
STATE_DEC_DONE
 &&

389 
¡©e
 !ð
STATE_EOF
) {

390 
¡©e
 = 
STATE_ERR
;

394 
STATE_EXPR
:

395 ià((
¡©e
 = 
	`·r£Stmt
(
•
, s‹, 
æags
)è!ð
STATE_EXPR_DONE
 &&

396 
¡©e
 !ð
STATE_EOF
) {

397 
¡©e
 = 
STATE_ERR
;

404 
STATE_DEC_LIST
:

405 
¡©e
 = 
	`·r£Deþ¬©iÚ
(
•
, s‹, 
æags
);

411 
STATE_ARG_LIST
:

412 
¡©e
 = 
	`·r£Args
(
•
, s‹, 
æags
);

418 
STATE_COND
:

419 
¡©e
 = 
	`·r£CÚd
(
•
, s‹, 
æags
);

425 
STATE_RELEXP
:

426 
¡©e
 = 
	`·r£Ex´
(
•
, s‹, 
æags
);

430 ià(
¡©e
 =ð
STATE_ERR
 && 
•
->
”rÜ
 =ð
NULL
) {

431 
	`ejE¼Ü
(
•
, 
	`T
("Syntaxƒrror"));

433  
¡©e
;

434 
	}
}

441 
	$·r£Stmt
(
ej_t
 *
•
, 
¡©e
, 
æags
)

443 
ejfunc_t
 
func
;

444 
ejfunc_t
 *
§veFunc
;

445 
ejšput_t
 
cÚdSüt
, 
’dSüt
, 
bodySüt
, 
šüSüt
;

446 
ch¬_t
 *
v®ue
, *
id’tif›r
;

447 
dÚe
, 
ex³ùSemi
, 
th’FÏgs
, 
–£FÏgs
, 
tid
, 
cÚd
, 
fÜFÏgs
;

448 
ejV¬Ty³
;

450 
	`a_as£¹
(
•
);

455 
’dSüt
.
putBackTok’
 = 
NULL
;

456 
bodySüt
.
putBackTok’
 = 
NULL
;

457 
šüSüt
.
putBackTok’
 = 
NULL
;

458 
cÚdSüt
.
putBackTok’
 = 
NULL
;

460 
ex³ùSemi
 = 0;

461 
§veFunc
 = 
NULL
;

463 
dÚe
 = 0; !done; ) {

464 
tid
 = 
	`ejLexG‘Tok’
(
•
, 
¡©e
);

466 
tid
) {

468 
	`ejLexPutbackTok’
(
•
, 
TOK_EXPR
,ƒp->
tok’
);

469 
dÚe
++;

472 
TOK_ERR
:

473 
¡©e
 = 
STATE_ERR
;

474 
dÚe
++;

477 
TOK_EOF
:

478 
¡©e
 = 
STATE_EOF
;

479 
dÚe
++;

482 
TOK_NEWLINE
:

485 
TOK_SEMI
:

489 ià(
¡©e
 !ð
STATE_STMT
) {

490 
	`ejLexPutbackTok’
(
•
, 
tid
,ƒp->
tok’
);

492 
dÚe
++;

495 
TOK_ID
:

499 
id’tif›r
 = 
NULL
;

500 
	`£tSŒšg
(
B_L
, &
id’tif›r
, 
•
->
tok’
);

504 
tid
 = 
	`ejLexG‘Tok’
(
•
, 
¡©e
);

505 ià(
tid
 =ð
TOK_ASSIGNMENT
) {

506 ià(
	`·r£
(
•
, 
STATE_RELEXP
, 
æags
è!ð
STATE_RELEXP_DONE
) {

507 
	`þ—rSŒšg
(&
id’tif›r
);

508 
”rÜ
;

510 ià(
æags
 & 
FLAGS_EXE
) {

511 iàÐ
¡©e
 =ð
STATE_DEC
 ) {

512 
	`ejS‘LoÿlV¬
(
•
->
eid
, 
id’tif›r
,ƒp->
»suÉ
);

514 
ejV¬Ty³
 = 
	`ejG‘V¬
(
•
->
eid
, 
id’tif›r
, &
v®ue
);

515 ià(
ejV¬Ty³
 > 0) {

516 
	`ejS‘LoÿlV¬
(
•
->
eid
, 
id’tif›r
,ƒp->
»suÉ
);

518 
	`ejS‘Glob®V¬
(
•
->
eid
, 
id’tif›r
,ƒp->
»suÉ
);

523 } ià(
tid
 =ð
TOK_INC_DEC
 ) {

524 
v®ue
 = 
NULL
;

525 ià(
æags
 & 
FLAGS_EXE
) {

526 
ejV¬Ty³
 = 
	`ejG‘V¬
(
•
->
eid
, 
id’tif›r
, &
v®ue
);

527 ià(
ejV¬Ty³
 < 0) {

528 
	`ejE¼Ü
(
•
, 
	`T
("Undefšed v¬ŸbË %s\n"), 
id’tif›r
);

529 
”rÜ
;

531 
	`£tSŒšg
(
B_L
, &
•
->
»suÉ
, 
v®ue
);

532 ià(
	`ev®Ex´
(
•
, 
v®ue
, (è*•->
tok’
, 
	`T
("1")) < 0) {

533 
¡©e
 = 
STATE_ERR
;

537 ià(
ejV¬Ty³
 > 0) {

538 
	`ejS‘LoÿlV¬
(
•
->
eid
, 
id’tif›r
,ƒp->
»suÉ
);

540 
	`ejS‘Glob®V¬
(
•
->
eid
, 
id’tif›r
,ƒp->
»suÉ
);

548 
v®ue
 = 
NULL
;

549 ià(
¡©e
 =ð
STATE_DEC
) {

550 ià(
	`ejG‘V¬
(
•
->
eid
, 
id’tif›r
, &
v®ue
) > 0) {

551 
	`ejE¼Ü
(
•
, 
	`T
("Variable‡lready declared"),

552 
id’tif›r
);

553 
	`þ—rSŒšg
(&
id’tif›r
);

554 
”rÜ
;

556 
	`ejS‘LoÿlV¬
(
•
->
eid
, 
id’tif›r
, 
NULL
);

558 iàÐ
æags
 & 
FLAGS_EXE
 ) {

559 ià(
	`ejG‘V¬
(
•
->
eid
, 
id’tif›r
, &
v®ue
) < 0) {

560 
	`ejE¼Ü
(
•
, 
	`T
("Undefined variable %s\n"),

561 
id’tif›r
);

562 
	`þ—rSŒšg
(&
id’tif›r
);

563 
”rÜ
;

567 
	`£tSŒšg
(
B_L
, &
•
->
»suÉ
, 
v®ue
);

568 
	`ejLexPutbackTok’
(
•
, 
tid
,ƒp->
tok’
);

570 
	`þ—rSŒšg
(&
id’tif›r
);

572 ià(
¡©e
 =ð
STATE_STMT
) {

573 
ex³ùSemi
++;

575 
dÚe
++;

578 
TOK_LITERAL
:

582 
	`£tSŒšg
(
B_L
, &
•
->
»suÉ
,ƒp->
tok’
);

583 ià(
¡©e
 =ð
STATE_STMT
) {

584 
ex³ùSemi
++;

586 
dÚe
++;

589 
TOK_FUNCTION
:

593 ià(
•
->
func
) {

594 
§veFunc
 = 
•
->
func
;

596 
	`mem£t
(&
func
, 0, (
ejfunc_t
));

597 
	`£tSŒšg
(
B_L
, &
func
.
âame
, 
•
->
tok’
);

598 
•
->
func
 = &func;

600 
	`£tSŒšg
(
B_L
, &
•
->
»suÉ
, 
	`T
(""));

601 ià(
	`ejLexG‘Tok’
(
•
, 
¡©e
è!ð
TOK_LPAREN
) {

602 
	`ä“Func
(&
func
);

603 
”rÜ
;

606 ià(
	`·r£
(
•
, 
STATE_ARG_LIST
, 
æags
è!ð
STATE_ARG_LIST_DONE
) {

607 
	`ä“Func
(&
func
);

608 
•
->
func
 = 
§veFunc
;

609 
”rÜ
;

614 ià(
æags
 & 
FLAGS_EXE
 && 
	`ev®FunùiÚ
(
•
) < 0) {

615 
	`ä“Func
(&
func
);

616 
•
->
func
 = 
§veFunc
;

617 
”rÜ
;

620 
	`ä“Func
(&
func
);

621 
•
->
func
 = 
§veFunc
;

623 ià(
	`ejLexG‘Tok’
(
•
, 
¡©e
è!ð
TOK_RPAREN
) {

624 
”rÜ
;

626 ià(
¡©e
 =ð
STATE_STMT
) {

627 
ex³ùSemi
++;

629 
dÚe
++;

632 
TOK_IF
:

633 ià(
¡©e
 !ð
STATE_STMT
) {

634 
”rÜ
;

636 ià(
	`ejLexG‘Tok’
(
•
, 
¡©e
è!ð
TOK_LPAREN
) {

637 
”rÜ
;

642 ià(
	`·r£
(
•
, 
STATE_COND
, 
æags
è!ð
STATE_COND_DONE
) {

643 
”rÜ
;

645 ià(
	`ejLexG‘Tok’
(
•
, 
¡©e
è!ð
TOK_RPAREN
) {

646 
”rÜ
;

652 ià(*
•
->
»suÉ
 == '1') {

653 
th’FÏgs
 = 
æags
;

654 
–£FÏgs
 = 
æags
 & ~
FLAGS_EXE
;

656 
th’FÏgs
 = 
æags
 & ~
FLAGS_EXE
;

657 
–£FÏgs
 = 
æags
;

662 
	`·r£
(
•
, 
STATE_STMT
, 
th’FÏgs
)) {

663 
STATE_RET
:

664  
STATE_RET
;

665 
STATE_STMT_DONE
:

668 
”rÜ
;

673 
	`ejRemoveNewlšes
(
•
, 
¡©e
);

674 
tid
 = 
	`ejLexG‘Tok’
(
•
, 
¡©e
);

675 ià(
tid
 !ð
TOK_ELSE
) {

676 
	`ejLexPutbackTok’
(
•
, 
tid
,ƒp->
tok’
);

677 
dÚe
++;

683 
	`·r£
(
•
, 
STATE_STMT
, 
–£FÏgs
)) {

684 
STATE_RET
:

685  
STATE_RET
;

686 
STATE_STMT_DONE
:

689 
”rÜ
;

691 
dÚe
++;

694 
TOK_FOR
:

702 ià(
¡©e
 !ð
STATE_STMT
) {

703 
”rÜ
;

705 ià(
	`ejLexG‘Tok’
(
•
, 
¡©e
è!ð
TOK_LPAREN
) {

706 
”rÜ
;

712 ià(
	`·r£
(
•
, 
STATE_EXPR
, 
æags
è!ð
STATE_EXPR_DONE
) {

713 
”rÜ
;

715 ià(
	`ejLexG‘Tok’
(
•
, 
¡©e
è!ð
TOK_SEMI
) {

716 
”rÜ
;

724 
	`ejLexSaveIÅutS‹
(
•
, &
cÚdSüt
);

725 ià(
	`·r£
(
•
, 
STATE_COND
, 
æags
è!ð
STATE_COND_DONE
) {

726 
”rÜ
;

728 
cÚd
 = (*
•
->
»suÉ
 != '0');

730 ià(
	`ejLexG‘Tok’
(
•
, 
¡©e
è!ð
TOK_SEMI
) {

731 
”rÜ
;

737 
fÜFÏgs
 = 
æags
 & ~
FLAGS_EXE
;

738 
	`ejLexSaveIÅutS‹
(
•
, &
šüSüt
);

739 ià(
	`·r£
(
•
, 
STATE_EXPR
, 
fÜFÏgs
è!ð
STATE_EXPR_DONE
) {

740 
”rÜ
;

742 ià(
	`ejLexG‘Tok’
(
•
, 
¡©e
è!ð
TOK_RPAREN
) {

743 
”rÜ
;

749 
	`ejLexSaveIÅutS‹
(
•
, &
bodySüt
);

750 ià(
	`·r£
(
•
, 
STATE_STMT
, 
fÜFÏgs
è!ð
STATE_STMT_DONE
) {

751 
”rÜ
;

753 
	`ejLexSaveIÅutS‹
(
•
, &
’dSüt
);

758 
cÚd
 && (
æags
 & 
FLAGS_EXE
) ) {

762 
	`ejLexRe¡ÜeIÅutS‹
(
•
, &
bodySüt
);

764 
	`·r£
(
•
, 
STATE_STMT
, 
æags
)) {

765 
STATE_RET
:

766  
STATE_RET
;

767 
STATE_STMT_DONE
:

770 
”rÜ
;

775 
	`ejLexRe¡ÜeIÅutS‹
(
•
, &
šüSüt
);

776 ià(
	`·r£
(
•
, 
STATE_EXPR
, 
æags
è!ð
STATE_EXPR_DONE
) {

777 
”rÜ
;

782 
	`ejLexRe¡ÜeIÅutS‹
(
•
, &
cÚdSüt
);

783 ià(
	`·r£
(
•
, 
STATE_COND
, 
æags
è!ð
STATE_COND_DONE
) {

784 
”rÜ
;

786 
cÚd
 = (*
•
->
»suÉ
 != '0');

788 
	`ejLexRe¡ÜeIÅutS‹
(
•
, &
’dSüt
);

789 
dÚe
++;

792 
TOK_VAR
:

793 ià(
	`·r£
(
•
, 
STATE_DEC_LIST
, 
æags
è!ð
STATE_DEC_LIST_DONE
) {

794 
”rÜ
;

796 
dÚe
++;

799 
TOK_COMMA
:

800 
	`ejLexPutbackTok’
(
•
, 
TOK_EXPR
,ƒp->
tok’
);

801 
dÚe
++;

804 
TOK_LPAREN
:

805 ià(
¡©e
 =ð
STATE_EXPR
) {

806 ià(
	`·r£
(
•
, 
STATE_RELEXP
, 
æags
è!ð
STATE_RELEXP_DONE
) {

807 
”rÜ
;

809 ià(
	`ejLexG‘Tok’
(
•
, 
¡©e
è!ð
TOK_RPAREN
) {

810 
”rÜ
;

812  
STATE_EXPR_DONE
;

814 
dÚe
++;

817 
TOK_RPAREN
:

818 
	`ejLexPutbackTok’
(
•
, 
tid
,ƒp->
tok’
);

819  
STATE_EXPR_DONE
;

821 
TOK_LBRACE
:

825 ià(
¡©e
 !ð
STATE_STMT
) {

826 
”rÜ
;

833 
¡©e
 = 
	`·r£
(
•
, 
STATE_STMT
, 
æags
);

834 } 
¡©e
 =ð
STATE_STMT_DONE
);

839 ià(
¡©e
 =ð
STATE_RET
) {

840  
¡©e
;

843 ià(
	`ejLexG‘Tok’
(
•
, 
¡©e
è!ð
TOK_RBRACE
) {

844 
”rÜ
;

846  
STATE_STMT_DONE
;

848 
TOK_RBRACE
:

849 ià(
¡©e
 =ð
STATE_STMT
) {

850 
	`ejLexPutbackTok’
(
•
, 
tid
,ƒp->
tok’
);

851  
STATE_STMT_BLOCK_DONE
;

853 
”rÜ
;

855 
TOK_RETURN
:

856 ià(
	`·r£
(
•
, 
STATE_RELEXP
, 
æags
è!ð
STATE_RELEXP_DONE
) {

857 
”rÜ
;

859 ià(
æags
 & 
FLAGS_EXE
) {

860  
	`ejLexG‘Tok’
(
•
, 
¡©e
è!ð
TOK_EOF
 );

861 
dÚe
++;

862  
STATE_RET
;

868 ià(
ex³ùSemi
) {

869 
tid
 = 
	`ejLexG‘Tok’
(
•
, 
¡©e
);

870 ià(
tid
 !ð
TOK_SEMI
 &&id !ð
TOK_NEWLINE
) {

871 
”rÜ
;

877 
	`ejRemoveNewlšes
(
•
, 
¡©e
);

883 
dÚeP¬£
:

884 ià(
tid
 =ð
TOK_FOR
) {

885 
	`ejLexF»eIÅutS‹
(
•
, &
cÚdSüt
);

886 
	`ejLexF»eIÅutS‹
(
•
, &
šüSüt
);

887 
	`ejLexF»eIÅutS‹
(
•
, &
’dSüt
);

888 
	`ejLexF»eIÅutS‹
(
•
, &
bodySüt
);

891 ià(
¡©e
 =ð
STATE_STMT
) {

892  
STATE_STMT_DONE
;

893 } ià(
¡©e
 =ð
STATE_DEC
) {

894  
STATE_DEC_DONE
;

895 } ià(
¡©e
 =ð
STATE_EXPR
) {

896  
STATE_EXPR_DONE
;

897 } ià(
¡©e
 =ð
STATE_EOF
) {

898  
¡©e
;

900  
STATE_ERR
;

906 
”rÜ
:

907 
¡©e
 = 
STATE_ERR
;

908 
dÚeP¬£
;

909 
	}
}

916 
	$·r£Deþ¬©iÚ
(
ej_t
 *
•
, 
¡©e
, 
æags
)

918 
tid
;

920 
	`a_as£¹
(
•
);

932 ià((
tid
 = 
	`ejLexG‘Tok’
(
•
, 
¡©e
)è!ð
TOK_ID
) {

933  
STATE_ERR
;

935 
	`ejLexPutbackTok’
(
•
, 
tid
,ƒp->
tok’
);

940 ià(
	`·r£
(
•
, 
STATE_DEC
, 
æags
è!ð
STATE_DEC_DONE
) {

941  
STATE_ERR
;

947 
tid
 = 
	`ejLexG‘Tok’
(
•
, 
¡©e
);

948 ià(
tid
 =ð
TOK_SEMI
) {

949  
STATE_DEC_LIST_DONE
;

950 } ià(
tid
 !ð
TOK_COMMA
) {

951  
STATE_ERR
;

953 } 
tid
 =ð
TOK_COMMA
);

955 ià(
tid
 !ð
TOK_SEMI
) {

956  
STATE_ERR
;

958  
STATE_DEC_LIST_DONE
;

959 
	}
}

966 
	$·r£Args
(
ej_t
 *
•
, 
¡©e
, 
æags
)

968 
tid
, 
aid
;

970 
	`a_as£¹
(
•
);

973 
¡©e
 = 
	`·r£
(
•
, 
STATE_RELEXP
, 
æags
);

974 ià(
¡©e
 =ð
STATE_EOF
 || s‹ =ð
STATE_ERR
) {

975  
¡©e
;

977 ià(
¡©e
 =ð
STATE_RELEXP_DONE
) {

978 
aid
 = 
	`hAÎoc
((***è&
•
->
func
->
¬gs
);

979 
•
->
func
->
¬gs
[
aid
] = 
	`b¡rdup
(
B_L
,ƒp->
»suÉ
);

980 
•
->
func
->
nArgs
++;

985 
tid
 = 
	`ejLexG‘Tok’
(
•
, 
¡©e
);

986 ià(
tid
 !ð
TOK_COMMA
) {

987 
	`ejLexPutbackTok’
(
•
, 
tid
,ƒp->
tok’
);

989 } 
tid
 =ð
TOK_COMMA
);

991 ià(
tid
 !ð
TOK_RPAREN
 && 
¡©e
 !ð
STATE_RELEXP_DONE
) {

992  
STATE_ERR
;

994  
STATE_ARG_LIST_DONE
;

995 
	}
}

1002 
	$·r£CÚd
(
ej_t
 *
•
, 
¡©e
, 
æags
)

1004 
ch¬_t
 *
lhs
, *
rhs
;

1005 
tid
, 
Ý”©Ü
;

1007 
	`a_as£¹
(
•
);

1009 
	`£tSŒšg
(
B_L
, &
•
->
»suÉ
, 
	`T
(""));

1010 
rhs
 = 
lhs
 = 
NULL
;

1011 
Ý”©Ü
 = 0;

1018 
¡©e
 = 
	`·r£
(
•
, 
STATE_RELEXP
, 
æags
);

1019 ià(
¡©e
 !ð
STATE_RELEXP_DONE
) {

1020 
¡©e
 = 
STATE_ERR
;

1024 ià(
Ý”©Ü
 > 0) {

1025 
	`£tSŒšg
(
B_L
, &
rhs
, 
•
->
»suÉ
);

1026 ià(
	`ev®CÚd
(
•
, 
lhs
, 
Ý”©Ü
, 
rhs
) < 0) {

1027 
¡©e
 = 
STATE_ERR
;

1031 
	`£tSŒšg
(
B_L
, &
lhs
, 
•
->
»suÉ
);

1033 
tid
 = 
	`ejLexG‘Tok’
(
•
, 
¡©e
);

1034 ià(
tid
 =ð
TOK_LOGICAL
) {

1035 
Ý”©Ü
 = (è*
•
->
tok’
;

1037 } ià(
tid
 =ð
TOK_RPAREN
 ||id =ð
TOK_SEMI
) {

1038 
	`ejLexPutbackTok’
(
•
, 
tid
,ƒp->
tok’
);

1039 
¡©e
 = 
STATE_COND_DONE
;

1043 
	`ejLexPutbackTok’
(
•
, 
tid
,ƒp->
tok’
);

1046 } 
¡©e
 =ð
STATE_RELEXP_DONE
);

1048 ià(
lhs
) {

1049 
	`bä“
(
B_L
, 
lhs
);

1052 ià(
rhs
) {

1053 
	`bä“
(
B_L
, 
rhs
);

1055  
¡©e
;

1056 
	}
}

1063 
	$·r£Ex´
(
ej_t
 *
•
, 
¡©e
, 
æags
)

1065 
ch¬_t
 *
lhs
, *
rhs
;

1066 
»l
, 
tid
;

1068 
	`a_as£¹
(
•
);

1070 
	`£tSŒšg
(
B_L
, &
•
->
»suÉ
, 
	`T
(""));

1071 
rhs
 = 
lhs
 = 
NULL
;

1072 
»l
 = 0;

1073 
tid
 = 0;

1080 ià(
tid
 =ð
TOK_LOGICAL
) {

1081 ià((
¡©e
 = 
	`·r£
(
•
, 
STATE_RELEXP
, 
æags
)è!ð
STATE_RELEXP_DONE
) {

1082 
¡©e
 = 
STATE_ERR
;

1086 ià((
¡©e
 = 
	`·r£
(
•
, 
STATE_EXPR
, 
æags
)è!ð
STATE_EXPR_DONE
) {

1087 
¡©e
 = 
STATE_ERR
;

1092 ià(
»l
 > 0) {

1093 
	`£tSŒšg
(
B_L
, &
rhs
, 
•
->
»suÉ
);

1094 ià(
tid
 =ð
TOK_LOGICAL
) {

1095 ià(
	`ev®CÚd
(
•
, 
lhs
, 
»l
, 
rhs
) < 0) {

1096 
¡©e
 = 
STATE_ERR
;

1100 ià(
	`ev®Ex´
(
•
, 
lhs
, 
»l
, 
rhs
) < 0) {

1101 
¡©e
 = 
STATE_ERR
;

1106 
	`£tSŒšg
(
B_L
, &
lhs
, 
•
->
»suÉ
);

1108 ià((
tid
 = 
	`ejLexG‘Tok’
(
•
, 
¡©e
)è=ð
TOK_EXPR
 ||

1109 
tid
 =ð
TOK_INC_DEC
 ||id =ð
TOK_LOGICAL
) {

1110 
»l
 = (è*
•
->
tok’
;

1113 
	`ejLexPutbackTok’
(
•
, 
tid
,ƒp->
tok’
);

1114 
¡©e
 = 
STATE_RELEXP_DONE
;

1117 } 
¡©e
 =ð
STATE_EXPR_DONE
);

1119 ià(
rhs
) {

1120 
	`bä“
(
B_L
, 
rhs
);

1123 ià(
lhs
) {

1124 
	`bä“
(
B_L
, 
lhs
);

1127  
¡©e
;

1128 
	}
}

1135 
	$ev®CÚd
(
ej_t
 *
•
, 
ch¬_t
 *
lhs
, 
»l
, ch¬_ˆ*
rhs
)

1137 
ch¬_t
 
buf
[16];

1138 
l
, 
r
, 
lv®
;

1140 
	`a_as£¹
(
lhs
);

1141 
	`a_as£¹
(
rhs
);

1142 
	`a_as£¹
(
»l
 > 0);

1144 
lv®
 = 0;

1145 ià(
	`gisdig™
(()*
lhs
è&& gisdig™(()*
rhs
)) {

1146 
l
 = 
	`g©oi
(
lhs
);

1147 
r
 = 
	`g©oi
(
rhs
);

1148 
»l
) {

1149 
COND_AND
:

1150 
lv®
 = 
l
 && 
r
;

1152 
COND_OR
:

1153 
lv®
 = 
l
 || 
r
;

1156 
	`ejE¼Ü
(
•
, 
	`T
("Bad o³¿tÜ %d"), 
»l
);

1160 ià(!
	`gisdig™
(()*
lhs
)) {

1161 
	`ejE¼Ü
(
•
, 
	`T
("CÚd™iÚ® mu¡ bnum”ic"), 
lhs
);

1163 
	`ejE¼Ü
(
•
, 
	`T
("CÚd™iÚ® mu¡ bnum”ic"), 
rhs
);

1167 
	`¡r™ß
(
lv®
, 
buf
, (buf));

1168 
	`£tSŒšg
(
B_L
, &
•
->
»suÉ
, 
buf
);

1170 
	}
}

1177 
	$ev®Ex´
(
ej_t
 *
•
, 
ch¬_t
 *
lhs
, 
»l
, ch¬_ˆ*
rhs
)

1179 
ch¬_t
 *
ý
, 
buf
[16];

1180 
num”ic
, 
l
, 
r
, 
lv®
;

1182 
	`a_as£¹
(
lhs
);

1183 
	`a_as£¹
(
rhs
);

1184 
	`a_as£¹
(
»l
 > 0);

1189 
num”ic
 = 1;

1190 
ý
 = 
lhs
; *cp; cp++) {

1191 ià(!
	`gisdig™
(()*
ý
)) {

1192 
num”ic
 = 0;

1197 ià(
num”ic
) {

1198 
ý
 = 
rhs
; *cp; cp++) {

1199 ià(!
	`gisdig™
(()*
ý
)) {

1200 
num”ic
 = 0;

1206 ià(
num”ic
) {

1207 
l
 = 
	`g©oi
(
lhs
);

1208 
r
 = 
	`g©oi
(
rhs
);

1209 
»l
) {

1210 
EXPR_PLUS
:

1211 
lv®
 = 
l
 + 
r
;

1213 
EXPR_INC
:

1214 
lv®
 = 
l
 + 1;

1216 
EXPR_MINUS
:

1217 
lv®
 = 
l
 - 
r
;

1219 
EXPR_DEC
:

1220 
lv®
 = 
l
 - 1;

1222 
EXPR_MUL
:

1223 
lv®
 = 
l
 * 
r
;

1225 
EXPR_DIV
:

1226 ià(
r
 != 0) {

1227 
lv®
 = 
l
 / 
r
;

1229 
lv®
 = 0;

1232 
EXPR_MOD
:

1233 ià(
r
 != 0) {

1234 
lv®
 = 
l
 % 
r
;

1236 
lv®
 = 0;

1239 
EXPR_LSHIFT
:

1240 
lv®
 = 
l
 << 
r
;

1242 
EXPR_RSHIFT
:

1243 
lv®
 = 
l
 >> 
r
;

1245 
EXPR_EQ
:

1246 
lv®
 = 
l
 =ð
r
;

1248 
EXPR_NOTEQ
:

1249 
lv®
 = 
l
 !ð
r
;

1251 
EXPR_LESS
:

1252 
lv®
 = (
l
 < 
r
) ? 1 : 0;

1254 
EXPR_LESSEQ
:

1255 
lv®
 = (
l
 <ð
r
) ? 1 : 0;

1257 
EXPR_GREATER
:

1258 
lv®
 = (
l
 > 
r
) ? 1 : 0;

1260 
EXPR_GREATEREQ
:

1261 
lv®
 = (
l
 >ð
r
) ? 1 : 0;

1263 
EXPR_BOOL_COMP
:

1264 
lv®
 = (
r
 == 0) ? 1 : 0;

1267 
	`ejE¼Ü
(
•
, 
	`T
("Bad o³¿tÜ %d"), 
»l
);

1272 
»l
) {

1273 
EXPR_PLUS
:

1274 
	`þ—rSŒšg
(&
•
->
»suÉ
);

1275 
	`­³ndSŒšg
(&
•
->
»suÉ
, 
lhs
);

1276 
	`­³ndSŒšg
(&
•
->
»suÉ
, 
rhs
);

1278 
EXPR_LESS
:

1279 
lv®
 = 
	`g¡rcmp
(
lhs
, 
rhs
) < 0;

1281 
EXPR_LESSEQ
:

1282 
lv®
 = 
	`g¡rcmp
(
lhs
, 
rhs
) <= 0;

1284 
EXPR_GREATER
:

1285 
lv®
 = 
	`g¡rcmp
(
lhs
, 
rhs
) > 0;

1287 
EXPR_GREATEREQ
:

1288 
lv®
 = 
	`g¡rcmp
(
lhs
, 
rhs
) >= 0;

1290 
EXPR_EQ
:

1291 
lv®
 = 
	`g¡rcmp
(
lhs
, 
rhs
) == 0;

1293 
EXPR_NOTEQ
:

1294 
lv®
 = 
	`g¡rcmp
(
lhs
, 
rhs
) != 0;

1296 
EXPR_INC
:

1297 
EXPR_DEC
:

1298 
EXPR_MINUS
:

1299 
EXPR_DIV
:

1300 
EXPR_MOD
:

1301 
EXPR_LSHIFT
:

1302 
EXPR_RSHIFT
:

1304 
	`ejE¼Ü
(
•
, 
	`T
("Bad operator"));

1309 
	`¡r™ß
(
lv®
, 
buf
, (buf));

1310 
	`£tSŒšg
(
B_L
, &
•
->
»suÉ
, 
buf
);

1312 
	}
}

1319 
	$ev®FunùiÚ
(
ej_t
 *
•
)

1321 
sym_t
 *
¥
;

1322 (*
â
)(
eid
, *
hªdË
, 
¬gc
, 
ch¬_t
 **
¬gv
);

1324 ià((
¥
 = 
	`symLookup
(
•
->
funùiÚs
,ƒp->
func
->
âame
)è=ð
NULL
) {

1325 
	`ejE¼Ü
(
•
, 
	`T
("Undefšed…roûdu» %s"),ƒp->
func
->
âame
);

1329 
â
 = ((*)(, *, , 
ch¬_t
**)è
¥
->
cÚ‹Á
.
v®ue
.
š‹g”
;

1330 ià(
â
 =ð
NULL
) {

1331 
	`ejE¼Ü
(
•
, 
	`T
("Undefšed…roûdu» %s"),ƒp->
func
->
âame
);

1335  (*
â
)(
•
->
eid
,ƒp->
u£rHªdË
,ƒp->
func
->
nArgs
,

1336 
•
->
func
->
¬gs
);

1337 
	}
}

1344 
	$ejE¼Ü
(
ej_t
* 
•
, 
ch¬_t
* 
fmt
, ...)

1346 
va_li¡
 
¬gs
;

1347 
ejšput_t
 *

;

1348 
ch¬_t
 *
”rbuf
, *
msgbuf
;

1350 
	`a_as£¹
(
•
);

1351 
	`a_as£¹
(
fmt
);

1352 

 = 
•
->
šput
;

1354 
	`va_¡¬t
(
¬gs
, 
fmt
);

1355 
msgbuf
 = 
NULL
;

1356 
	`fmtV®loc
(&
msgbuf
, 
E_MAX_ERROR
, 
fmt
, 
¬gs
);

1357 
	`va_’d
(
¬gs
);

1359 ià(
•
 && 

) {

1360 
	`fmtAÎoc
(&
”rbuf
, 
E_MAX_ERROR
, 
	`T
("%s\n At†ine %d,†ine => \n\n%s\n"),

1361 
msgbuf
, 

->
lšeNumb”
, ip->
lše
);

1362 
	`bä“Saã
(
B_L
, 
•
->
”rÜ
);

1363 
•
->
”rÜ
 = 
”rbuf
;

1365 
	`bä“Saã
(
B_L
, 
msgbuf
);

1366 
	}
}

1373 
	$þ—rSŒšg
(
ch¬_t
 **
±r
)

1375 
	`a_as£¹
(
±r
);

1377 ià(*
±r
) {

1378 
	`bä“
(
B_L
, *
±r
);

1380 *
±r
 = 
NULL
;

1381 
	}
}

1388 
	$£tSŒšg
(
B_ARGS_DEC
, 
ch¬_t
 **
±r
, ch¬_ˆ*
s
)

1390 
	`a_as£¹
(
±r
);

1392 ià(*
±r
) {

1393 
	`bä“
(
B_ARGS
, *
±r
);

1395 *
±r
 = 
	`b¡rdup
(
B_ARGS
, 
s
);

1396 
	}
}

1403 
	$­³ndSŒšg
(
ch¬_t
 **
±r
, ch¬_ˆ*
s
)

1405 
Ën
, 
ÞdËn
, 
size
;

1407 
	`a_as£¹
(
±r
);

1409 ià(*
±r
) {

1410 
Ën
 = 
	`g¡¾’
(
s
);

1411 
ÞdËn
 = 
	`g¡¾’
(*
±r
);

1412 
size
 = (
Ën
 + 
ÞdËn
 + 1è* (
ch¬_t
);

1413 *
±r
 = 
	`b»®loc
(
B_L
, *±r, 
size
);

1414 #ià!
	`defšed
(
WIN32
)

1415 
	`g¡rýy
(&(*
±r
)[
ÞdËn
], 
s
);

1417 
	`¡rýy_s
(&(*
±r
)[
ÞdËn
], 
size
 - oldËn, 
s
);

1420 *
±r
 = 
	`b¡rdup
(
B_L
, 
s
);

1422 
	}
}

1429 
ejS‘Glob®FunùiÚ
(
eid
, 
ch¬_t
 *
Çme
,

1430 (*
â
)(
eid
, *
hªdË
, 
¬gc
, 
ch¬_t
 **
¬gv
))

1432 
ej_t
 *
•
;

1434 ià((
•
 = 
	`ejPŒ
(
eid
)è=ð
NULL
) {

1437  
	`ejS‘Glob®FunùiÚDœeù
(
•
->
funùiÚs
, 
Çme
, 
â
);

1438 
	}
}

1445 
ejS‘Glob®FunùiÚDœeù
(
sym_fd_t
 
funùiÚs
, 
ch¬_t
 *
Çme
,

1446 (*
â
)(
eid
, *
hªdË
, 
¬gc
, 
ch¬_t
 **
¬gv
))

1448 ià(
	`symEÁ”
(
funùiÚs
, 
Çme
, 
	`v®ueIÁeg”
((è
â
), 0è=ð
NULL
) {

1452 
	}
}

1459 
	$ejRemoveGlob®FunùiÚ
(
eid
, 
ch¬_t
 *
Çme
)

1461 
ej_t
 *
•
;

1463 ià((
•
 = 
	`ejPŒ
(
eid
)è=ð
NULL
) {

1466  
	`symD–‘e
(
•
->
funùiÚs
, 
Çme
);

1467 
	}
}

1474 *
	$ejG‘Glob®FunùiÚ
(
eid
, 
ch¬_t
 *
Çme
)

1476 
ej_t
 *
•
;

1477 
sym_t
 *
¥
;

1478 (*
â
)(
eid
, *
hªdË
, 
¬gc
, 
ch¬_t
 **
¬gv
);

1480 ià((
•
 = 
	`ejPŒ
(
eid
)è=ð
NULL
) {

1481  
NULL
;

1484 ià((
¥
 = 
	`symLookup
(
•
->
funùiÚs
, 
Çme
)è!ð
NULL
) {

1485 
â
 = ((*)(, *, , 
ch¬_t
**)è
¥
->
cÚ‹Á
.
v®ue
.
š‹g”
;

1486  (*è
â
;

1488  
NULL
;

1489 
	}
}

1504 
	$ejArgs
(
¬gc
, 
ch¬_t
 **
¬gv
, ch¬_ˆ*
fmt
, ...)

1506 
va_li¡
 
v¬gs
;

1507 
ch¬_t
 *
ý
, **
¥
;

1508 *

;

1509 
¬gn
;

1511 
	`va_¡¬t
(
v¬gs
, 
fmt
);

1513 ià(
¬gv
 =ð
NULL
) {

1517 
¬gn
 = 0, 
ý
 = 
fmt
; c°&& *ý && 
¬gv
[argn]; ) {

1518 ià(*
ý
++ != '%') {

1522 *
ý
) {

1524 

 = 
	`va_¬g
(
v¬gs
, *);

1525 *

 = 
	`g©oi
(
¬gv
[
¬gn
]);

1529 
¥
 = 
	`va_¬g
(
v¬gs
, 
ch¬_t
**);

1530 *
¥
 = 
¬gv
[
¬gn
];

1537 
	`a_as£¹
(0);

1539 
¬gn
++;

1542 
	`va_’d
(
v¬gs
);

1543  
¬gn
;

1544 
	}
}

1551 
	$ejS‘U£rHªdË
(
eid
, * 
hªdË
)

1553 
ej_t
 *
•
;

1555 ià((
•
 = 
	`ejPŒ
(
eid
)è=ð
NULL
) {

1558 
•
->
u£rHªdË
 = 
hªdË
;

1559 
	}
}

1566 * 
	$ejG‘U£rHªdË
(
eid
)

1568 
ej_t
 *
•
;

1570 ià((
•
 = 
	`ejPŒ
(
eid
)è=ð
NULL
) {

1571  
NULL
;

1573  
•
->
u£rHªdË
;

1574 
	}
}

1581 
	$ejG‘LšeNumb”
(
eid
)

1583 
ej_t
 *
•
;

1585 ià((
•
 = 
	`ejPŒ
(
eid
)è=ð
NULL
) {

1588  
•
->
šput
->
lšeNumb”
;

1589 
	}
}

1596 
	$ejS‘ResuÉ
(
eid
, 
ch¬_t
 *
s
)

1598 
ej_t
 *
•
;

1600 ià((
•
 = 
	`ejPŒ
(
eid
)è=ð
NULL
) {

1603 
	`£tSŒšg
(
B_L
, &
•
->
»suÉ
, 
s
);

1604 
	}
}

1611 
ch¬_t
 *
	$ejG‘ResuÉ
(
eid
)

1613 
ej_t
 *
•
;

1615 ià((
•
 = 
	`ejPŒ
(
eid
)è=ð
NULL
) {

1616  
NULL
;

1618  
•
->
»suÉ
;

1619 
	}
}

1627 
	$ejS‘V¬
(
eid
, 
ch¬_t
 *
v¬
, ch¬_ˆ*
v®ue
)

1629 
ej_t
 *
•
;

1630 
v®ue_t
 
v
;

1632 
	`a_as£¹
(
v¬
 && *var);

1634 ià((
•
 = 
	`ejPŒ
(
eid
)è=ð
NULL
) {

1638 ià(
v®ue
 =ð
NULL
) {

1639 
v
 = 
	`v®ueSŒšg
(
v®ue
, 0);

1641 
v
 = 
	`v®ueSŒšg
(
v®ue
, 
VALUE_ALLOCATE
);

1643 
	`symEÁ”
(
•
->
v¬ŸbËs
[•->
v¬ŸbËMax
 - 1] - 
EJ_OFFSET
, 
v¬
, 
v
, 0);

1644 
	}
}

1652 
	$ejS‘LoÿlV¬
(
eid
, 
ch¬_t
 *
v¬
, ch¬_ˆ*
v®ue
)

1654 
ej_t
 *
•
;

1655 
v®ue_t
 
v
;

1657 
	`a_as£¹
(
v¬
 && *var);

1659 ià((
•
 = 
	`ejPŒ
(
eid
)è=ð
NULL
) {

1663 ià(
v®ue
 =ð
NULL
) {

1664 
v
 = 
	`v®ueSŒšg
(
v®ue
, 0);

1666 
v
 = 
	`v®ueSŒšg
(
v®ue
, 
VALUE_ALLOCATE
);

1668 
	`symEÁ”
(
•
->
v¬ŸbËs
[•->
v¬ŸbËMax
 - 1] - 
EJ_OFFSET
, 
v¬
, 
v
, 0);

1669 
	}
}

1677 
	$ejS‘Glob®V¬
(
eid
, 
ch¬_t
 *
v¬
, ch¬_ˆ*
v®ue
)

1679 
ej_t
 *
•
;

1680 
v®ue_t
 
v
;

1682 
	`a_as£¹
(
v¬
 && *var);

1684 ià((
•
 = 
	`ejPŒ
(
eid
)è=ð
NULL
) {

1688 ià(
v®ue
 =ð
NULL
) {

1689 
v
 = 
	`v®ueSŒšg
(
v®ue
, 0);

1691 
v
 = 
	`v®ueSŒšg
(
v®ue
, 
VALUE_ALLOCATE
);

1693 
	`symEÁ”
(
•
->
v¬ŸbËs
[0] - 
EJ_OFFSET
, 
v¬
, 
v
, 0);

1694 
	}
}

1701 
	$ejG‘V¬
(
eid
, 
ch¬_t
 *
v¬
, ch¬_ˆ**
v®ue
)

1703 
ej_t
 *
•
;

1704 
sym_t
 *
¥
;

1705 
i
;

1707 
	`a_as£¹
(
v¬
 && *var);

1708 
	`a_as£¹
(
v®ue
);

1710 ià((
•
 = 
	`ejPŒ
(
eid
)è=ð
NULL
) {

1714 
i
 = 
•
->
v¬ŸbËMax
 - 1;

1715 ià((
¥
 = 
	`symLookup
(
•
->
v¬ŸbËs
[
i
] - 
EJ_OFFSET
, 
v¬
)è=ð
NULL
) {

1716 
i
 = 0;

1717 ià((
¥
 = 
	`symLookup
(
•
->
v¬ŸbËs
[0] - 
EJ_OFFSET
, 
v¬
)è=ð
NULL
) {

1721 
	`a_as£¹
(
¥
->
cÚ‹Á
.
ty³
 =ð
¡ršg
);

1722 *
v®ue
 = 
¥
->
cÚ‹Á
.v®ue.
¡ršg
;

1723  
i
;

1724 
	}
}

1731 
sym_fd_t
 
	$ejG‘V¬ŸbËTabË
(
eid
)

1733 
ej_t
 *
•
;

1735 ià((
•
 = 
	`ejPŒ
(
eid
)è=ð
NULL
) {

1738  *
•
->
v¬ŸbËs
;

1739 
	}
}

1746 
sym_fd_t
 
	$ejG‘FunùiÚTabË
(
eid
)

1748 
ej_t
 *
•
;

1750 ià((
•
 = 
	`ejPŒ
(
eid
)è=ð
NULL
) {

1753  
•
->
funùiÚs
;

1754 
	}
}

1761 
	$ä“Func
(
ejfunc_t
 *
func
)

1763 
i
;

1765 
i
 = 
func
->
nArgs
 - 1; i >= 0; i--) {

1766 
	`bä“
(
B_L
, 
func
->
¬gs
[
i
]);

1767 
func
->
nArgs
 = 
	`hF»e
((***è&func->
¬gs
, 
i
);

1770 ià(
func
->
âame
) {

1771 
	`bä“
(
B_L
, 
func
->
âame
);

1772 
func
->
âame
 = 
NULL
;

1774 
	}
}

1781 
ej_t
 *
	$ejPŒ
(
eid
)

1783 
	`a_as£¹
(0 <ð
eid
 &&ƒid < 
ejMax
);

1785 ià(
eid
 < 0 ||ƒid >ð
ejMax
 || 
ejHªdËs
[eid] =ð
NULL
) {

1786 
	`ejE¼Ü
(
NULL
, 
	`T
("Bad hªdË %d"), 
eid
);

1787  
NULL
;

1789  
ejHªdËs
[
eid
];

1790 
	}
}

1796 
	$ejRemoveNewlšes
(
ej_t
 *
•
, 
¡©e
)

1798 
tid
;

1801 
tid
 = 
	`ejLexG‘Tok’
(
•
, 
¡©e
);

1802 } 
tid
 =ð
TOK_NEWLINE
);

1804 
	`ejLexPutbackTok’
(
•
, 
tid
,ƒp->
tok’
);

1805 
	}
}

	@emfdb.c

17 
	~"emfdb.h
"

18 
	~"wsIÁº.h
"

22 
	#KEYWORD_TABLE
 
	`T
("TABLE")

	)

23 
	#KEYWORD_ROW
 
	`T
("ROW")

	)

31 
ch¬_t
 *
	gbasicProdDœ
 = 
NULL
;

32 
ch¬_t
 *
	gbasicDeçuÉDœ
 = 
T
(".");

38 
	gdbMaxTabËs
 = 0;

39 
dbTabË_t
 **
	gdbLi¡TabËs
 = 
NULL
;

43 
üack
(
ch¬_t
 *
buf
, ch¬_ˆ**
key
, ch¬_ˆ**
v®
);

44 
ch¬_t
 *
Œim
(ch¬_ˆ*
¡r
);

45 
G‘CÞumnIndex
(
tid
, 
ch¬_t
 *
cÞName
);

52 
	$dbRegi¡”DBSchema
(
dbTabË_t
 *
pTabËRegi¡”
)

54 
dbTabË_t
 *
pTabË
;

55 
tid
;

57 
	`a_as£¹
(
pTabËRegi¡”
);

59 
	`Œaû
(4, 
	`T
("DB: Registering databaseable <%s>\n"),

60 
pTabËRegi¡”
->
Çme
);

65 
tid
 = 
	`hAÎocEÁry
((***è&
dbLi¡TabËs
,

66 &
dbMaxTabËs
, (
dbTabË_t
));

71 
	`a_as£¹
(
dbLi¡TabËs
);

72 
pTabË
 = 
dbLi¡TabËs
[
tid
];

73 
	`a_as£¹
(
pTabË
);

78 
pTabË
->
Çme
 = 
	`b¡rdup
(
B_L
, 
pTabËRegi¡”
->name);

83 
pTabË
->
nCÞumns
 = 
pTabËRegi¡”
->nColumns;

88 ià(
pTabË
->
nCÞumns
 > 0) {

89 
i
;

90 
pTabË
->
cÞumnNames
 = 
	`b®loc
(
B_L
, (
ch¬_t
 *è*…TabË->
nCÞumns
);

91 
pTabË
->
cÞumnTy³s
 = 
	`b®loc
(
B_L
, (*è*…TabË->
nCÞumns
);

93 
i
 = 0; (˜< 
pTabËRegi¡”
->
nCÞumns
); i++) {

94 
pTabË
->
cÞumnNames
[
i
] =

95 
	`b¡rdup
(
B_L
, 
pTabËRegi¡”
->
cÞumnNames
[
i
]);

96 
pTabË
->
cÞumnTy³s
[
i
] = 
pTabËRegi¡”
->columnTypes[i];

100 
pTabË
->
cÞumnNames
 = 
NULL
;

101 
pTabË
->
cÞumnTy³s
 = 
NULL
;

107 
pTabË
->
nRows
 = 0;

108 
pTabË
->
rows
 = 
NULL
;

111 
	}
}

119 
dbO³n
(
ch¬_t
 *
bËÇme
, ch¬_ˆ*
fž’ame
,

120 (*
g‘time
)(
did
), 
æags
)

122 
basicProdDœ
 = 
NULL
;

123 
basicDeçuÉDœ
 = 
	`T
(".");

124 
dbMaxTabËs
 = 0;

125 
dbLi¡TabËs
 = 
NULL
;

127 
	}
}

134 
	$dbClo£
(
did
)

136 
bË
, 
cÞumn
;

137 
dbTabË_t
 *
pTabË
;

142 
	`dbZ”o
(
did
);

147 
bË
 = 0;abË < 
dbMaxTabËs
;able++) {

148 
pTabË
 = 
dbLi¡TabËs
[
bË
];

150 ià(
pTabË
 !ð
NULL
) {

154 ià(
pTabË
->
nCÞumns
) {

155 
cÞumn
 = 0; cÞumÀ< 
pTabË
->
nCÞumns
; column++) {

156 
	`bä“Saã
(
B_L
, 
pTabË
->
cÞumnNames
[
cÞumn
]);

158 
	`bä“Saã
(
B_L
, 
pTabË
->
cÞumnNames
);

159 
	`bä“Saã
(
B_L
, 
pTabË
->
cÞumnTy³s
);

164 
	`bä“Saã
(
B_L
, 
pTabË
->
Çme
);

168 
	`bä“Saã
(
B_L
, 
pTabË
);

169 
	`hF»e
((***è&
dbLi¡TabËs
, 
bË
);

173 ià(
dbLi¡TabËs
) {

174 
	`bä“
(
B_L
, 
dbLi¡TabËs
);

180 
dbLi¡TabËs
 = 
NULL
;

181 
dbMaxTabËs
 = 0;

182 
	}
}

190 
	$dbZ”o
(
did
)

192 
bË
, 
row
, 
cÞumn
, 
nRows
, 
nCÞumns
;

193 *
pRow
;

194 
dbTabË_t
 *
pTabË
;

199 
bË
 = 0;abË < 
dbMaxTabËs
;able++) {

200 
pTabË
 = 
dbLi¡TabËs
[
bË
];

204 ià(
pTabË
) {

205 
nCÞumns
 = 
pTabË
->nColumns;

206 
nRows
 = 
pTabË
->nRows;

207 
row
 = 0;„ow < 
nRows
;„ow++) {

208 
pRow
 = 
pTabË
->
rows
[
row
];

209 ià(
pRow
) {

213 
cÞumn
 = 0; cÞumÀ< 
nCÞumns
; column++) {

214 ià(
pTabË
->
cÞumnTy³s
[
cÞumn
] =ð
T_STRING
) {

215 
	`bä“Saã
(
B_L
, (
ch¬_t
 *)(
pRow
[
cÞumn
]));

216 
pRow
[
cÞumn
] = ()
NULL
;

220 
	`bä“Saã
(
B_L
, 
pRow
);

221 
	`hF»e
((***è&
pTabË
->
rows
, 
row
);

225 
pTabË
->
rows
 = 
NULL
;

226 
pTabË
->
nRows
 = 0;

229 
	}
}

236 
	$dbS—rchSŒ
(
did
, 
ch¬_t
 *
bËÇme
,

237 
ch¬_t
 *
cÞName
, ch¬_ˆ*
v®ue
, 
æags
)

239 
tid
, 
nRows
, 
nCÞumns
, 
cÞumn
;

240 
m©ch
 = 0;

241 
dbTabË_t
 *
pTabË
;

243 
	`a_as£¹
(
bËÇme
);

244 
	`a_as£¹
(
cÞName
);

245 
	`a_as£¹
(
v®ue
);

247 
tid
 = 
	`dbG‘TabËId
(0, 
bËÇme
);

248 
	`a_as£¹
(
tid
 >= 0);

250 ià((
tid
 >ð0è&& (tid < 
dbMaxTabËs
è&& (
dbLi¡TabËs
[tid] !ð
NULL
)) {

251 
pTabË
 = 
dbLi¡TabËs
[
tid
];

253  
DB_ERR_TABLE_NOT_FOUND
;

256 
nCÞumns
 = 
pTabË
->nColumns;

257 
nRows
 = 
pTabË
->nRows;

258 
cÞumn
 = 
	`G‘CÞumnIndex
(
tid
, 
cÞName
);

259 
	`a_as£¹
 (
cÞumn
 >= 0);

261 ià(
cÞumn
 >= 0) {

262 
ch¬_t
 *
com·»V®
;

263 
row
, *
pRow
;

268 
row
 = 0;

269 
row
 < 
nRows
) {

270 
pRow
 = 
pTabË
->
rows
[
row
];

271 ià(
pRow
) {

272 
com·»V®
 = (
ch¬_t
 *)(
pRow
[
cÞumn
]);

273 ià(
NULL
 !ð
com·»V®
)

275 ià(
DB_CASE_INSENSITIVE
 =ð
æags
)

277 
m©ch
 = 
	`g¡ricmp
(
com·»V®
, 
v®ue
);

281 
m©ch
 = 
	`g¡rcmp
(
com·»V®
, 
v®ue
);

283 ià(0 =ð
m©ch
)

285  
row
;

289 
row
++;

295 
	`Œaû
(3, 
	`T
("DB: Unableo find column <%s> inable <%s>\n"),

296 
cÞName
, 
bËÇme
);

297  
DB_ERR_COL_NOT_FOUND
;

301 
	}
}

308 
	$dbAddRow
(
did
, 
ch¬_t
 *
bËÇme
)

310 
tid
, 
size
;

311 
dbTabË_t
 *
pTabË
;

313 
	`a_as£¹
(
bËÇme
);

315 
tid
 = 
	`dbG‘TabËId
(0, 
bËÇme
);

316 
	`a_as£¹
(
tid
 >= 0);

318 ià((
tid
 >ð0è&& (tid < 
dbMaxTabËs
è&& (
dbLi¡TabËs
[tid] !ð
NULL
)) {

319 
pTabË
 = 
dbLi¡TabËs
[
tid
];

321  
DB_ERR_TABLE_NOT_FOUND
;

324 
	`a_as£¹
(
pTabË
);

326 ià(
pTabË
) {

327 
	`Œaû
(5, 
	`T
("DB: Addšg‡„owØbË <%s>\n"), 
bËÇme
);

329 
size
 = 
pTabË
->
nCÞumns
 * 
	`max
((), (
ch¬_t
 *));

330  
	`hAÎocEÁry
((***è&(
pTabË
->
rows
), &ÕTabË->
nRows
), 
size
);

334 
	}
}

341 
	$dbD–‘eRow
(
did
, 
ch¬_t
 *
bËÇme
, 
row
)

343 
tid
, 
nCÞumns
, 
nRows
;

344 
dbTabË_t
 *
pTabË
;

346 
	`a_as£¹
(
bËÇme
);

347 
tid
 = 
	`dbG‘TabËId
(0, 
bËÇme
);

348 
	`a_as£¹
(
tid
 >= 0);

350 ià((
tid
 >ð0è&& (tid < 
dbMaxTabËs
è&& (
dbLi¡TabËs
[tid] !ð
NULL
)) {

351 
pTabË
 = 
dbLi¡TabËs
[
tid
];

353  
DB_ERR_TABLE_NOT_FOUND
;

356 
nCÞumns
 = 
pTabË
->nColumns;

357 
nRows
 = 
pTabË
->nRows;

359 ià((
row
 >ð0è&& (row < 
nRows
)) {

360 *
pRow
 = 
pTabË
->
rows
[
row
];

362 ià(
pRow
) {

363 
cÞumn
 = 0;

367 
cÞumn
 < 
nCÞumns
) {

368 ià(
pRow
[
cÞumn
] &&

369 (
pTabË
->
cÞumnTy³s
[
cÞumn
] =ð
T_STRING
)) {

370 
	`bä“
(
B_L
, (
ch¬_t
 *)
pRow
[
cÞumn
]);

373 
cÞumn
++;

378 
	`mem£t
(
pRow
, 0, 
nCÞumns
 * 
	`max
((), (
ch¬_t
 *)));

380 
	`bä“Saã
(
B_L
, 
pRow
);

381 
pTabË
->
nRows
 = 
	`hF»e
((***)&pTabË->
rows
, 
row
);

382 
	`Œaû
(5, 
	`T
("DB: Deleted„ow <%d> fromable <%s>\n"),

383 
row
, 
bËÇme
);

387 
	`Œaû
(3, 
	`T
("DB: Unableo delete„ow <%d> fromable <%s>\n"),

388 
row
, 
bËÇme
);

392 
	}
}

399 
	$dbS‘TabËNrow
(
did
, 
ch¬_t
 *
bËÇme
, 
nNewRows
)

401 
nR‘
, 
tid
, 
nRows
, 
nCÞumns
;

402 
dbTabË_t
 *
pTabË
;

404 
	`a_as£¹
(
bËÇme
);

405 
tid
 = 
	`dbG‘TabËId
(0, 
bËÇme
);

406 
	`a_as£¹
(
tid
 >= 0) ;

408 ià((
tid
 >ð0è&& (tid < 
dbMaxTabËs
è&& (
dbLi¡TabËs
[tid] !ð
NULL
)) {

409 
pTabË
 = 
dbLi¡TabËs
[
tid
];

411  
DB_ERR_TABLE_NOT_FOUND
;

414 
nR‘
 = -1;

416 
	`a_as£¹
(
pTabË
);

417 ià(
pTabË
) {

418 
nCÞumns
 = 
pTabË
->nColumns;

419 
nRows
 = 
pTabË
->nRows;

420 
nR‘
 = 0;

422 ià(
nRows
 >ð
nNewRows
) {

426 
	`Œaû
(4, 
	`T
("DB: Ignoring„ow seto <%d> inable <%s>\n"),

427 
nNewRows
, 
bËÇme
);

429 
	`Œaû
(4, 
	`T
("DB: Setting„owso <%d> inable <%s>\n"),

430 
nNewRows
, 
bËÇme
);

431 
pTabË
->
nRows
 < 
nNewRows
) {

432 ià(
	`dbAddRow
(
did
, 
bËÇme
) < 0) {

439  
nR‘
;

440 
	}
}

447 
	$dbG‘TabËNrow
(
did
, 
ch¬_t
 *
bËÇme
)

449 
tid
;

451 
	`a_as£¹
(
bËÇme
);

452 
tid
 = 
	`dbG‘TabËId
(
did
, 
bËÇme
);

454 ià((
tid
 >ð0è&& (tid < 
dbMaxTabËs
è&& (
dbLi¡TabËs
[tid] !ð
NULL
)) {

455  (
dbLi¡TabËs
[
tid
])->
nRows
;

459 
	}
}

466 
	$dbR—dIÁ
(
did
, 
ch¬_t
 *
bË
, ch¬_ˆ*
cÞumn
, 
row
, *
»tuºV®ue
)

468 
cÞIndex
, *
pRow
, 
tid
;

469 
dbTabË_t
 *
pTabË
;

471 
	`a_as£¹
(
bË
);

472 
	`a_as£¹
(
cÞumn
);

473 
	`a_as£¹
(
»tuºV®ue
);

475 
tid
 = 
	`dbG‘TabËId
(0, 
bË
);

476 
	`a_as£¹
(
tid
 >= 0);

481 ià(
tid
 < 0) {

482  
DB_ERR_TABLE_NOT_FOUND
;

488 
pTabË
 = 
dbLi¡TabËs
[
tid
];

489 ià(
pTabË
 =ð
NULL
) {

490  
DB_ERR_TABLE_DELETED
;

493 
	`a_as£¹
(
row
 >= 0);

495 ià((
row
 >ð0è&& (row < 
pTabË
->
nRows
)) {

496 
cÞIndex
 = 
	`G‘CÞumnIndex
(
tid
, 
cÞumn
);

497 
	`a_as£¹
(
cÞIndex
 >= 0);

499 ià(
cÞIndex
 >= 0) {

500 
pRow
 = 
pTabË
->
rows
[
row
];

501 ià(
pRow
) {

502 *
»tuºV®ue
 = 
pRow
[
cÞIndex
];

505  
DB_ERR_ROW_DELETED
;

507  
DB_ERR_COL_NOT_FOUND
;

510  
DB_ERR_ROW_NOT_FOUND
;

511 
	}
}

518 
	$dbR—dSŒ
(
did
, 
ch¬_t
 *
bË
, ch¬_ˆ*
cÞumn
, 
row
,

519 
ch¬_t
 **
»tuºV®ue
)

521  
	`dbR—dIÁ
(
did
, 
bË
, 
cÞumn
, 
row
, (*)
»tuºV®ue
);

522 
	}
}

531 
	$dbWr™eIÁ
(
did
, 
ch¬_t
 *
bË
, ch¬_ˆ*
cÞumn
, 
row
, 
iD©a
)

533 
tid
, 
cÞIndex
, *
pRow
;

534 
dbTabË_t
 *
pTabË
;

536 
	`a_as£¹
(
bË
);

537 
	`a_as£¹
(
cÞumn
);

542 
tid
 = 
	`dbG‘TabËId
(0, 
bË
);

543 
	`a_as£¹
(
tid
 >= 0);

545 ià(
tid
 < 0) {

546  
DB_ERR_TABLE_NOT_FOUND
;

549 
pTabË
 = 
dbLi¡TabËs
[
tid
];

551 ià(
pTabË
) {

555 
cÞIndex
 = 
	`G‘CÞumnIndex
(
tid
, 
cÞumn
);

556 
	`a_as£¹
(
cÞIndex
 >= 0);

557 ià(
cÞIndex
 >= 0) {

561 
	`a_as£¹
((
row
 >ð0è&& (row < 
pTabË
->
nRows
));

562 ià((
row
 >ð0è&& (row < 
pTabË
->
nRows
)) {

563 
pRow
 = 
pTabË
->
rows
[
row
];

564 ià(
pRow
) {

565 
pRow
[
cÞIndex
] = 
iD©a
;

568  
DB_ERR_ROW_DELETED
;

570  
DB_ERR_ROW_NOT_FOUND
;

572  
DB_ERR_COL_NOT_FOUND
;

575  
DB_ERR_TABLE_DELETED
;

576 
	}
}

586 
	$dbWr™eSŒ
(
did
, 
ch¬_t
 *
bË
, ch¬_ˆ*
cÞumn
, 
row
, ch¬_ˆ*
s
)

588 
tid
, 
cÞIndex
;

589 *
pRow
;

590 
ch¬_t
 *
±r
;

591 
dbTabË_t
 *
pTabË
;

593 
	`a_as£¹
(
bË
);

594 
	`a_as£¹
(
cÞumn
);

596 
tid
 = 
	`dbG‘TabËId
(0, 
bË
);

597 
	`a_as£¹
(
tid
 >= 0);

599 ià(
tid
 < 0) {

600  
DB_ERR_TABLE_NOT_FOUND
;

606 
pTabË
 = 
dbLi¡TabËs
[
tid
];

607 
	`a_as£¹
(
pTabË
);

608 ià(!
pTabË
) {

609  
DB_ERR_TABLE_DELETED
;

615 
cÞIndex
 = 
	`G‘CÞumnIndex
(
tid
, 
cÞumn
);

616 ià(
cÞIndex
 < 0) {

617  
DB_ERR_COL_NOT_FOUND
;

623 ià(
pTabË
->
cÞumnTy³s
[
cÞIndex
] !ð
T_STRING
) {

624  
DB_ERR_BAD_FORMAT
;

630 
	`a_as£¹
((
row
 >ð0è&& (row < 
pTabË
->
nRows
));

631 ià((
row
 >ð0è&& (row < 
pTabË
->
nRows
)) {

632 
pRow
 = 
pTabË
->
rows
[
row
];

634  
DB_ERR_ROW_NOT_FOUND
;

637 ià(!
pRow
) {

638  
DB_ERR_ROW_DELETED
;

645 ià(
pRow
[
cÞIndex
]) {

646 
	`bä“
(
B_L
, (
ch¬_t
 *è
pRow
[
cÞIndex
]);

653 
±r
 = 
	`b¡rdup
(
B_L
, 
s
);

654 
pRow
[
cÞIndex
] = ()
±r
;

657 
	}
}

664 
	$dbWr™eKeyV®ue
(
fd
, 
ch¬_t
 *
key
, ch¬_ˆ*
v®ue
)

666 
rc
;

667 
Ën
;

668 
ch¬_t
 *
pLšeOut
;

670 
	`a_as£¹
(
key
 && *key);

671 
	`a_as£¹
(
v®ue
);

673 
	`fmtAÎoc
(&
pLšeOut
, 
BUF_MAX
, 
	`T
("%s=%s\n"), 
key
, 
v®ue
);

675 ià(
pLšeOut
) {

676 
Ën
 = 
	`g¡¾’
(
pLšeOut
);

677 #ifdeà
CE


678 
rc
 = 
	`wr™eUniToAsc
(
fd
, 
pLšeOut
, 
Ën
);

680 
rc
 = 
	`gwr™e
(
fd
, 
pLšeOut
, 
Ën
);

682 
	`bä“
(
B_L
, 
pLšeOut
);

684 
rc
 = -1;

687  
rc
;

688 
	}
}

695 
	$dbSave
(
did
, 
ch¬_t
 *
fž’ame
, 
æags
)

697 
row
, 
cÞumn
, 
nCÞumns
, 
nRows
, 
fd
, 
rc
;

698 *
cÞTy³s
, *
pRow
, 
nR‘
, 
tid
;

699 
ch¬_t
 *
·th
, *
tmpFže
, *
tmpNum
;

700 
ch¬_t
 **
cÞNames
;

701 
dbTabË_t
 *
pTabË
;

703 
	`Œaû
(5, 
	`T
("DB: Abouto save databaseo file\n"));

705 
	`a_as£¹
(
dbMaxTabËs
 > 0);

710 
	`fmtAÎoc
(&
tmpFže
, 
FNAMESIZE
, 
	`T
("%s/d©a.tmp"), 
	`basicG‘ProduùDœ
());

711 #ià!
	`defšed
(
WIN32
)

712 
fd
 = 
	`gÝ’
(
tmpFže
,

713 
O_CREAT
 | 
O_TRUNC
 | 
O_WRONLY
 | 
O_BINARY
, 0666);

715 
	`_sÝ’_s
(&
fd
, 
tmpFže
, 
O_CREAT
 | 
O_TRUNC
 | 
O_WRONLY
 | 
O_BINARY
, 
_SH_DENYNO
, 0666);

718 ià(
fd
 < 0) {

719 
	`Œaû
(1, 
	`T
("WARNING: FažedØÝ’ fž%s\n"), 
tmpFže
);

720 
	`bä“
(
B_L
, 
tmpFže
);

724 
nR‘
 = 0;

726 
tid
 = 0; (tid < 
dbMaxTabËs
è&& (
nR‘
 != -1);id++) {

727 
pTabË
 = 
dbLi¡TabËs
[
tid
];

729 ià(
pTabË
) {

733 
rc
 = 
	`dbWr™eKeyV®ue
(
fd
, 
KEYWORD_TABLE
, 
pTabË
->
Çme
);

735 
nCÞumns
 = 
pTabË
->nColumns;

736 
nRows
 = 
pTabË
->nRows;

738 
row
 = 0; (row < 
nRows
è&& (
nR‘
 == 0);„ow++) {

739 
pRow
 = 
pTabË
->
rows
[
row
];

744 ià((
pRow
 =ð
NULL
) || (pRow[0] == '\0') ||

745 (*(
ch¬_t
 *)(
pRow
[0]) == '\0')) {

751 
	`fmtAÎoc
(&
tmpNum
, 20, 
	`T
("%d"), 
row
);

752 
rc
 = 
	`dbWr™eKeyV®ue
(
fd
, 
KEYWORD_ROW
, 
tmpNum
);

753 
	`bä“Saã
(
B_L
, 
tmpNum
);

755 
cÞNames
 = 
pTabË
->
cÞumnNames
;

756 
cÞTy³s
 = 
pTabË
->
cÞumnTy³s
;

760 
cÞumn
 = 0; (cÞumÀ< 
nCÞumns
è&& (
rc
 >= 0);

761 
cÞumn
++, 
cÞNames
++, 
cÞTy³s
++) {

762 ià(*
cÞTy³s
 =ð
T_STRING
) {

763 
rc
 = 
	`dbWr™eKeyV®ue
(
fd
, *
cÞNames
,

764 (
ch¬_t
 *)(
pRow
[
cÞumn
]));

766 
	`fmtAÎoc
(&
tmpNum
, 20, 
	`T
("%d"), 
pRow
[
cÞumn
]);

767 
rc
 = 
	`dbWr™eKeyV®ue
(
fd
, *
cÞNames
, 
tmpNum
);

768 
	`bä“Saã
(
B_L
, 
tmpNum
);

772 ià(
rc
 < 0) {

773 
	`Œaû
(1, 
	`T
("WARNING: Failedo writeo file %s\n"),

774 
tmpFže
);

775 
nR‘
 = -1;

781 
	`gþo£
(
fd
);

786 ià(
nR‘
 == 0) {

787 
	`fmtAÎoc
(&
·th
, 
FNAMESIZE
, 
	`T
("%s/%s"), 
	`basicG‘ProduùDœ
(), 
fž’ame
);

789 
	`guÆšk
(
·th
);

790 ià(
	`g»Çme
(
tmpFže
, 
·th
) != 0) {

791 
	`Œaû
(1, 
	`T
("WARNING: FažedØ»Çm% tØ%s\n"), 
tmpFže
, 
·th
);

792 
nR‘
 = -1;

795 
	`bä“
(
B_L
, 
·th
);

798 
	`bä“
(
B_L
, 
tmpFže
);

800  
nR‘
;

801 
	}
}

808 
	$üack
(
ch¬_t
 *
buf
, ch¬_ˆ**
key
, ch¬_ˆ**
v®
)

810 
ch¬_t
 *
±r
;

812 ià((
±r
 = 
	`g¡¼chr
(
buf
, '\n')è!ð
NULL
 ||

813 (
±r
 = 
	`g¡¼chr
(
buf
, '\r')è!ð
NULL
) {

814 *
±r
 = '\0';

820 ià((
±r
 = 
	`g¡r¡r
(
buf
, 
	`T
("="))è=ð
NULL
) {

824 *
±r
++ = '\0';

825 *
key
 = 
	`Œim
(
buf
);

826 *
v®
 = 
	`Œim
(
±r
);

829 
	}
}

838 
	$dbLßd
(
did
, 
ch¬_t
 *
fž’ame
, 
æags
)

840 
g¡©_t
 
sbuf
;

841 
ch¬_t
 *
buf
, *
keywÜd
, *
v®ue
, *
·th
, *
±r
;

842 
ch¬_t
 *
bËÇme
;

843 
fd
, 
tid
, 
row
;

844 
dbTabË_t
 *
pTabË
;

846 
	`a_as£¹
(
did
 >= 0);

848 
	`fmtAÎoc
(&
·th
, 
FNAMESIZE
, 
	`T
("%s/%s"), 
	`basicG‘ProduùDœ
(), 
fž’ame
);

849 
	`Œaû
(4, 
	`T
("DB: AbouˆtØ»ad d©¨fž<%s>\n"), 
·th
);

851 ià(
	`g¡©
(
·th
, &
sbuf
) < 0) {

852 
	`Œaû
(3, 
	`T
("DB: Failedo stat…ersistent data file.\n"));

853 
	`bä“
(
B_L
, 
·th
);

857 #ià!
	`defšed
(
WIN32
)

858 
fd
 = 
	`gÝ’
(
·th
, 
O_RDONLY
 | 
O_BINARY
, 0666);

860 
	`_sÝ’_s
(&
fd
, 
·th
, 
O_RDONLY
 | 
O_BINARY
, 
_SH_DENYNO
, 0666);

862 
	`bä“
(
B_L
, 
·th
);

864 ià(
fd
 < 0) {

865 
	`Œaû
(3, 
	`T
("DB: No…ersistent data file…resent.\n"));

869 ià(
sbuf
.
¡_size
 <= 0) {

870 
	`Œaû
(3, 
	`T
("DB: Persistent data file isƒmpty.\n"));

871 
	`gþo£
(
fd
);

877 
buf
 = 
	`b®loc
(
B_L
, 
sbuf
.
¡_size
 + 1);

878 #ifdeà
CE


879 ià(
	`»adAscToUni
(
fd
, &
buf
, 
sbuf
.
¡_size
) != ()sbuf.st_size) {

881 ià(
	`g»ad
(
fd
, 
buf
, 
sbuf
.
¡_size
) != ()sbuf.st_size) {

883 
	`Œaû
(3, 
	`T
("DB: Persistent data„ead failed.\n"));

884 
	`bä“
(
B_L
, 
buf
);

885 
	`gþo£
(
fd
);

889 
	`gþo£
(
fd
);

890 *(
buf
 + 
sbuf
.
¡_size
) = '\0';

892 
row
 = -1;

893 
tid
 = -1;

894 
pTabË
 = 
NULL
;

895 
±r
 = 
	`g¡¹ok
(
buf
, 
	`T
("\n"));

896 
bËÇme
 = 
NULL
;

899 ià(
	`üack
(
±r
, &
keywÜd
, &
v®ue
) < 0) {

900 
	`Œaû
(5, 
	`T
("DB: FažedØüack†š%s\n"), 
±r
);

904 
	`a_as£¹
(
keywÜd
 && *keyword);

906 ià(
	`g¡rcmp
(
keywÜd
, 
KEYWORD_TABLE
) == 0) {

910 ià(
bËÇme
) {

911 
	`bä“
(
B_L
, 
bËÇme
);

914 
bËÇme
 = 
	`b¡rdup
(
B_L
, 
v®ue
);

915 
tid
 = 
	`dbG‘TabËId
(
did
, 
bËÇme
);

917 ià(
tid
 >= 0) {

918 
pTabË
 = 
dbLi¡TabËs
[
tid
];

920 
pTabË
 = 
NULL
;

923 } ià(
	`g¡rcmp
(
keywÜd
, 
KEYWORD_ROW
) == 0) {

927 ià(
tid
 >= 0) {

928 
nRows
 = 
	`dbG‘TabËNrow
(
did
, 
bËÇme
);

930 ià(
	`dbS‘TabËNrow
(
did
, 
bËÇme
, 
nRows
 + 1) == 0) {

931 
row
 = 
nRows
;

935 } ià(
row
 != -1) {

939 
nCÞumn
 = 
	`G‘CÞumnIndex
(
tid
, 
keywÜd
);

941 ià((
nCÞumn
 >ð0è&& (
pTabË
 !ð
NULL
)) {

942 
nCÞumnTy³
 = 
pTabË
->
cÞumnTy³s
[
nCÞumn
];

943 ià(
nCÞumnTy³
 =ð
T_STRING
) {

944 
	`dbWr™eSŒ
(
did
, 
bËÇme
, 
keywÜd
, 
row
, 
v®ue
);

946 
	`dbWr™eIÁ
(
did
, 
bËÇme
, 
keywÜd
, 
row
, 
	`g¡¹oi
(
v®ue
));

950 } (
±r
 = 
	`g¡¹ok
(
NULL
, 
	`T
("\n"))) != NULL);

952 ià(
bËÇme
) {

953 
	`bä“
(
B_L
, 
bËÇme
);

956 
	`bä“
(
B_L
, 
buf
);

959 
	}
}

966 
	$dbG‘TabËId
(
did
, 
ch¬_t
 *
bËÇme
)

968 
tid
;

969 
dbTabË_t
 *
pTabË
;

971 
	`a_as£¹
(
bËÇme
);

973 
tid
 = 0; (tid < 
dbMaxTabËs
);id++) {

974 ià((
pTabË
 = 
dbLi¡TabËs
[
tid
]è!ð
NULL
) {

975 ià(
	`g¡rcmp
(
bËÇme
, 
pTabË
->
Çme
) == 0) {

976  
tid
;

982 
	}
}

989 
ch¬_t
 *
	$dbG‘TabËName
(
did
, 
tid
)

991 ià((
tid
 >ð0è&& (tid < 
dbMaxTabËs
è&& (
dbLi¡TabËs
[tid] !ð
NULL
)) {

992  (
dbLi¡TabËs
[
tid
])->
Çme
;

995  
NULL
;

996 
	}
}

1003 
ch¬_t
 *
	$Œim
(
ch¬_t
 *
¡r
)

1005 
	`is¥aû
(()*
¡r
)) {

1006 
¡r
++;

1008  
¡r
;

1009 
	}
}

1016 
	$G‘CÞumnIndex
(
tid
, 
ch¬_t
 *
cÞName
)

1018 
cÞumn
;

1019 
dbTabË_t
 *
pTabË
;

1021 
	`a_as£¹
(
cÞName
);

1023 ià((
tid
 >ð0è&& (tid < 
dbMaxTabËs
è&& (
dbLi¡TabËs
[tid] !ð
NULL
)) {

1024 
pTabË
 = 
dbLi¡TabËs
[
tid
];

1026 
cÞumn
 = 0; (cÞumÀ< 
pTabË
->
nCÞumns
); column++) {

1027 ià(
	`g¡rcmp
(
cÞName
, 
pTabË
->
cÞumnNames
[
cÞumn
]) == 0)

1028  
cÞumn
;

1033 
	}
}

1040 
	$basicS‘ProduùDœ
(
ch¬_t
 *
´oddœ
)

1042 
Ën
;

1044 ià(
basicProdDœ
 !ð
NULL
) {

1045 
	`bä“
(
B_L
, 
basicProdDœ
);

1048 
basicProdDœ
 = 
	`b¡rdup
(
B_L
, 
´oddœ
);

1052 
Ën
 = 
	`g¡¾’
(
basicProdDœ
);

1053 ià((
Ën
 > 0è&& *(
basicProdDœ
 +†en - 1) == '/') {

1054 *(
basicProdDœ
+
Ën
-1) = '\0';

1056 
	}
}

1063 
ch¬_t
 *
	$basicG‘ProduùDœ
()

1065 ià(
basicProdDœ
) {

1066  
basicProdDœ
;

1068  
basicDeçuÉDœ
;

1070 
	}
}

	@emfdb.h

17 #iâdeà
_h_EMFDB


18 
	#_h_EMFDB
 1

	)

20 
	~"uemf.h
"

25 
	#T_INT
 0

	)

26 
	#T_STRING
 1

	)

28 
	#DB_OK
 0

	)

29 
	#DB_ERR_GENERAL
 -1

	)

30 
	#DB_ERR_COL_NOT_FOUND
 -2

	)

31 
	#DB_ERR_COL_DELETED
 -3

	)

32 
	#DB_ERR_ROW_NOT_FOUND
 -4

	)

33 
	#DB_ERR_ROW_DELETED
 -5

	)

34 
	#DB_ERR_TABLE_NOT_FOUND
 -6

	)

35 
	#DB_ERR_TABLE_DELETED
 -7

	)

36 
	#DB_ERR_BAD_FORMAT
 -8

	)

42 
	#DB_CASE_INSENSITIVE
 1

	)

44 
	sdbTabË_s
 {

45 
ch¬_t
 *
	mÇme
;

46 
	mnCÞumns
;

47 
ch¬_t
 **
	mcÞumnNames
;

48 *
	mcÞumnTy³s
;

49 
	mnRows
;

50 **
	mrows
;

51 } 
	tdbTabË_t
;

58 
dbRegi¡”DBSchema
(
dbTabË_t
 *
sTabË
);

60 
dbO³n
(
ch¬_t
 *
d©aba£Çme
, ch¬_ˆ*
fž’ame
,

61 (*
g‘time
)(
did
), 
æags
);

62 
	`dbClo£
(
did
);

63 
	`dbG‘TabËId
(
did
, 
ch¬_t
 *
Šame
);

64 
ch¬_t
 *
	`dbG‘TabËName
(
did
, 
tid
);

65 
	`dbR—dIÁ
(
did
, 
ch¬_t
 *
bË
, ch¬_ˆ*
cÞumn
, 
row
,

66 *
»tuºV®ue
);

67 
	`dbR—dSŒ
(
did
, 
ch¬_t
 *
bË
, ch¬_ˆ*
cÞumn
, 
row
,

68 
ch¬_t
 **
»tuºV®ue
);

69 
	`dbWr™eIÁ
(
did
, 
ch¬_t
 *
bË
, ch¬_ˆ*
cÞumn
, 
row
,

70 
id©a
);

71 
	`dbWr™eSŒ
(
did
, 
ch¬_t
 *
bË
, ch¬_ˆ*
cÞumn
, 
row
,

72 
ch¬_t
 *
s
);

73 
	`dbAddRow
(
did
, 
ch¬_t
 *
bË
);

74 
	`dbD–‘eRow
(
did
, 
ch¬_t
 *
bË
, 
rid
);

75 
	`dbS‘TabËNrow
(
did
, 
ch¬_t
 *
bË
, 
nNewRows
);

76 
	`dbG‘TabËNrow
(
did
, 
ch¬_t
 *
bË
);

81 
	`dbSave
(
did
, 
ch¬_t
 *
fž’ame
, 
æags
);

86 
	`dbLßd
(
did
, 
ch¬_t
 *
fž’ame
, 
æags
);

93 
	`dbS—rchSŒ
(
did
, 
ch¬_t
 *
bË
, ch¬_ˆ*
cÞumn
,

94 
ch¬_t
 *
v®ue
, 
æags
);

96 
	`dbZ”o
(
did
);

98 
ch¬_t
 *
	`basicG‘ProduùDœ
();

99 
	`basicS‘ProduùDœ
(
ch¬_t
 *
´oddœ
);

	@form.c

22 
	~"wsIÁº.h
"

26 
sym_fd_t
 
	gfÜmSymb
 = -1;

33 
	$websFÜmHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
, 
¬g
,

34 
ch¬_t
 *
u¾
, ch¬_ˆ*
·th
, ch¬_ˆ*
qu”y
)

36 
sym_t
 *
¥
;

37 
ch¬_t
 
fÜmBuf
[
FNAMESIZE
];

38 
ch¬_t
 *
ý
, *
fÜmName
;

39 (*
â
)(*
sock
, 
ch¬_t
 *
·th
, ch¬_ˆ*
¬gs
);

41 
	`a_as£¹
(
	`websV®id
(
wp
));

42 
	`a_as£¹
(
u¾
 && *url);

43 
	`a_as£¹
(
·th
 && *path == '/');

45 
websSts
.
fÜmH™s
++;

50 
	`g¡ºýy
(
fÜmBuf
, 
·th
, 
	`TSZ
(formBuf));

51 ià((
fÜmName
 = 
	`g¡rchr
(&
fÜmBuf
[1], '/')è=ð
NULL
) {

52 
	`websE¼Ü
(
wp
, 200, 
	`T
("Missing form‚ame"));

55 
fÜmName
++;

56 ià((
ý
 = 
	`g¡rchr
(
fÜmName
, '/')è!ð
NULL
) {

57 *
ý
 = '\0';

64 
¥
 = 
	`symLookup
(
fÜmSymb
, 
fÜmName
);

65 ià(
¥
 =ð
NULL
) {

66 
	`websE¼Ü
(
wp
, 404, 
	`T
("FÜm % i nÙ defšed"), 
fÜmName
);

68 
â
 = ((*)(*, 
ch¬_t
 *, ch¬_ˆ*)è
¥
->
cÚ‹Á
.
v®ue
.
š‹g”
;

69 
	`a_as£¹
(
â
);

70 ià(
â
) {

74 (*
â
)((*è
wp
, 
fÜmName
, 
qu”y
);

81 ià(
	`websV®id
(
wp
)) {

82 
	`websE¼Ü
(
wp
, 200, 
	`T
("Form didn't call websDone"));

88 
	}
}

95 
websFÜmDefše
(
ch¬_t
 *
Çme
, (*
â
)(
webs_t
 
wp
, ch¬_ˆ*
·th
,

96 
ch¬_t
 *
qu”y
))

98 
	`a_as£¹
(
Çme
 && *name);

99 
	`a_as£¹
(
â
);

101 ià(
â
 =ð
NULL
) {

105 
	`symEÁ”
(
fÜmSymb
, 
Çme
, 
	`v®ueIÁeg”
((è
â
), (è
NULL
);

107 
	}
}

114 
	$websFÜmO³n
()

116 
fÜmSymb
 = 
	`symO³n
(
WEBS_SYM_INIT
);

117 
	}
}

124 
	$websFÜmClo£
()

126 ià(
fÜmSymb
 != -1) {

127 
	`symClo£
(
fÜmSymb
);

128 
fÜmSymb
 = -1;

130 
	}
}

138 
	$websH—d”
(
webs_t
 
wp
)

140 
	`a_as£¹
(
	`websV®id
(
wp
));

142 
	`websWr™e
(
wp
, 
	`T
("HTTP/1.0 200 OK\n"));

148 #ifdeà
WEBS_SSL_SUPPORT


149 
	`websWr™e
(
wp
, 
	`T
("Server: %s/%s %s/%s\r\n"),

150 
WEBS_NAME
, 
WEBS_VERSION
, 
SSL_NAME
, 
SSL_VERSION
);

152 
	`websWr™e
(
wp
, 
	`T
("S”v”: %s/%s\r\n"), 
WEBS_NAME
, 
WEBS_VERSION
);

155 
	`websWr™e
(
wp
, 
	`T
("Pragma:‚o-cache\n"));

156 
	`websWr™e
(
wp
, 
	`T
("Cache-control:‚o-cache\n"));

157 
	`websWr™e
(
wp
, 
	`T
("Content-Type:ext/html\n"));

158 
	`websWr™e
(
wp
, 
	`T
("\n"));

159 
	`websWr™e
(
wp
, 
	`T
("<html>\n"));

160 
	}
}

167 
	$websFoÙ”
(
webs_t
 
wp
)

169 
	`a_as£¹
(
	`websV®id
(
wp
));

171 
	`websWr™e
(
wp
, 
	`T
("</html>\n"));

172 
	}
}

	@h.c

20 
	~"uemf.h
"

29 
	#H_LEN
 0

	)

30 
	#H_USED
 1

	)

31 
	#H_OFFSET
 2

	)

33 
	#H_INCR
 16

	)

42 #ifdeà
B_STATS


43 
	$HALLOC
(
B_ARGS_DEC
, ***
m­
)

45 
	$hAÎoc
(***
m­
)

48 *
mp
;

49 
hªdË
, 
Ën
, 
memsize
, 
šü
;

51 
	`a_as£¹
(
m­
);

53 ià(*
m­
 =ð
NULL
) {

54 
šü
 = 
H_INCR
;

55 
memsize
 = (
šü
 + 
H_OFFSET
) * (**);

56 #ifdeà
B_STATS


57 ià((
mp
 = (*è
	`b®loc
(
B_ARGS
, 
memsize
)è=ð
NULL
) {

59 ià((
mp
 = (*è
	`b®loc
(
B_L
, 
memsize
)è=ð
NULL
) {

63 
	`mem£t
(
mp
, 0, 
memsize
);

64 
mp
[
H_LEN
] = 
šü
;

65 
mp
[
H_USED
] = 0;

66 *
m­
 = (**è&
mp
[
H_OFFSET
];

68 
mp
 = &((*(**)
m­
)[-
H_OFFSET
]);

71 
Ën
 = 
mp
[
H_LEN
];

76 ià(
mp
[
H_USED
] < mp[
H_LEN
]) {

77 
hªdË
 = 0; hªdË < 
Ën
; handle++) {

78 ià(
mp
[
hªdË
+
H_OFFSET
] == 0) {

79 
mp
[
H_USED
]++;

80  
hªdË
;

84 
hªdË
 = 
Ën
;

90 
Ën
 +ð
H_INCR
;

91 
memsize
 = (
Ën
 + 
H_OFFSET
) * (**);

92 ià((
mp
 = (*è
	`b»®loc
(
B_L
, (*èmp, 
memsize
)è=ð
NULL
) {

95 *
m­
 = (**è&
mp
[
H_OFFSET
];

96 
mp
[
H_LEN
] = 
Ën
;

97 
	`mem£t
(&
mp
[
H_OFFSET
 + 
Ën
 - 
H_INCR
], 0, (*) * H_INCR);

98 
mp
[
H_USED
]++;

99  
hªdË
;

100 
	}
}

108 
	$hF»e
(***
m­
, 
hªdË
)

110 *
mp
;

111 
Ën
;

113 
	`a_as£¹
(
m­
);

114 
mp
 = &((*(**)
m­
)[-
H_OFFSET
]);

115 
	`a_as£¹
(
mp
[
H_LEN
] >ð
H_INCR
);

117 
	`a_as£¹
(
mp
[
hªdË
 + 
H_OFFSET
]);

118 
	`a_as£¹
(
mp
[
H_USED
]);

119 
mp
[
hªdË
 + 
H_OFFSET
] = 0;

120 ià(--(
mp
[
H_USED
]) == 0) {

121 
	`bä“
(
B_L
, (*è
mp
);

122 *
m­
 = 
NULL
;

128 ià(*
m­
 =ð
NULL
) {

129 
hªdË
 = -1;

131 
Ën
 = 
mp
[
H_LEN
];

132 ià(
mp
[
H_USED
] < mp[
H_LEN
]) {

133 
hªdË
 = 
Ën
 - 1; handle >= 0; handle--) {

134 ià(
mp
[
hªdË
 + 
H_OFFSET
])

138 
hªdË
 = 
Ën
;

141  
hªdË
 + 1;

142 
	}
}

149 #ifdeà
B_STATS


150 
	$HALLOCENTRY
(
B_ARGS_DEC
, ***
li¡
, *
max
, 
size
)

152 
	$hAÎocEÁry
(***
li¡
, *
max
, 
size
)

155 
ch¬_t
 *
ý
;

156 
id
;

158 
	`a_as£¹
(
li¡
);

159 
	`a_as£¹
(
max
);

161 #ifdeà
B_STATS


162 ià((
id
 = 
	`HALLOC
(
B_ARGS
, (***è
li¡
)) < 0) {

164 ià((
id
 = 
	`hAÎoc
((***è
li¡
)) < 0) {

169 ià(
size
 > 0) {

170 #ifdeà
B_STATS


171 ià((
ý
 = 
	`b®loc
(
B_ARGS
, 
size
)è=ð
NULL
) {

173 ià((
ý
 = 
	`b®loc
(
B_L
, 
size
)è=ð
NULL
) {

175 
	`hF»e
(
li¡
, 
id
);

178 
	`a_as£¹
(
ý
);

179 
	`mem£t
(
ý
, 0, 
size
);

181 (*
li¡
)[
id
] = (*è
ý
;

184 ià(
id
 >ð*
max
) {

185 *
max
 = 
id
 + 1;

187  
id
;

188 
	}
}

	@handler.c

19 
	~"wsIÁº.h
"

23 
websU¾HªdËrTy³
 *
	gwebsU¾HªdËr
;

24 
	gwebsU¾HªdËrMax
;

25 
	gu¾HªdËrO³nCouÁ
 = 0;

29 
websU¾HªdËrSÜt
(cÚ¡ *
p1
, cÚ¡ *
p2
);

30 
websPublishHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
,

31 
sid
, 
ch¬_t
 *
u¾
, ch¬_ˆ*
·th
, ch¬_ˆ*
qu”y
);

32 
ch¬_t
 *
websCÚd’£MuÉËCh¬s
(ch¬_ˆ*
¡rToCÚd’£
, ch¬_ˆ
cCÚd’£
);

39 
	$websU¾HªdËrO³n
()

41 ià(++
u¾HªdËrO³nCouÁ
 == 1) {

42 
	`websA¥O³n
();

43 
websU¾HªdËr
 = 
NULL
;

44 
websU¾HªdËrMax
 = 0;

47 
	}
}

54 
	$websU¾HªdËrClo£
()

56 
websU¾HªdËrTy³
 *
¥
;

58 ià(--
u¾HªdËrO³nCouÁ
 <= 0) {

59 
	`websA¥Clo£
();

60 
¥
 = 
websU¾HªdËr
; s°< &websU¾HªdËr[
websU¾HªdËrMax
];

61 
¥
++) {

62 
	`bä“
(
B_L
, 
¥
->
u¾P»fix
);

63 ià(
¥
->
webDœ
) {

64 
	`bä“
(
B_L
, 
¥
->
webDœ
);

67 
	`bä“
(
B_L
, 
websU¾HªdËr
);

68 
websU¾HªdËrMax
 = 0;

70 
	}
}

82 
websU¾HªdËrDefše
(
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
, 
¬g
,

83 (*
hªdËr
)(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webdœ
, 
¬g
,

84 
ch¬_t
 *
u¾
, ch¬_ˆ*
·th
, ch¬_ˆ*
qu”y
), 
æags
)

86 
websU¾HªdËrTy³
 *
¥
;

87 
Ën
;

89 
	`a_as£¹
(
u¾P»fix
);

90 
	`a_as£¹
(
hªdËr
);

95 
Ën
 = (
websU¾HªdËrMax
 + 1è* (
websU¾HªdËrTy³
);

96 ià((
websU¾HªdËr
 = 
	`b»®loc
(
B_L
, websU¾HªdËr, 
Ën
)è=ð
NULL
) {

99 
¥
 = &
websU¾HªdËr
[
websU¾HªdËrMax
++];

100 
	`mem£t
(
¥
, 0, (
websU¾HªdËrTy³
));

102 
¥
->
u¾P»fix
 = 
	`b¡rdup
(
B_L
, urlPrefix);

103 
¥
->
Ën
 = 
	`g¡¾’
(¥->
u¾P»fix
);

104 ià(
webDœ
) {

105 
¥
->
webDœ
 = 
	`b¡rdup
(
B_L
, webDir);

107 
¥
->
webDœ
 = 
	`b¡rdup
(
B_L
, 
	`T
(""));

109 
¥
->
hªdËr
 = handler;

110 
¥
->
¬g
 =‡rg;

111 
¥
->
æags
 = flags;

116 
	`qsÜt
(
websU¾HªdËr
, 
websU¾HªdËrMax
, (
websU¾HªdËrTy³
),

117 
websU¾HªdËrSÜt
);

119 
	}
}

127 
websU¾HªdËrD–‘e
((*
hªdËr
)(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
,

128 
ch¬_t
 *
webDœ
, 
¬g
, ch¬_ˆ*
u¾
, ch¬_ˆ*
·th
, ch¬_ˆ*
qu”y
))

130 
websU¾HªdËrTy³
 *
¥
;

131 
i
;

133 
i
 = 0; i < 
websU¾HªdËrMax
; i++) {

134 
¥
 = &
websU¾HªdËr
[
i
];

135 ià(
¥
->
hªdËr
 == handler) {

136 
¥
->
hªdËr
 = 
NULL
;

141 
	}
}

148 
	$websU¾HªdËrSÜt
(cÚ¡ *
p1
, cÚ¡ *
p2
)

150 
websU¾HªdËrTy³
 *
s1
, *
s2
;

151 
rc
;

153 
	`a_as£¹
(
p1
);

154 
	`a_as£¹
(
p2
);

156 
s1
 = (
websU¾HªdËrTy³
*è
p1
;

157 
s2
 = (
websU¾HªdËrTy³
*è
p2
;

159 ià((
s1
->
æags
 & 
WEBS_HANDLER_FIRST
è|| (
s2
->æag & 
WEBS_HANDLER_LAST
)) {

163 ià((
s2
->
æags
 & 
WEBS_HANDLER_FIRST
è|| (
s1
->æag & 
WEBS_HANDLER_LAST
)) {

167 ià((
rc
 = 
	`g¡rcmp
(
s1
->
u¾P»fix
, 
s2
->urlPrefix)) == 0) {

168 ià(
s1
->
Ën
 < 
s2
->len) {

170 } ià(
s1
->
Ën
 > 
s2
->len) {

174  -
rc
;

175 
	}
}

182 
	$websPublish
(
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
·th
)

184  
	`websU¾HªdËrDefše
(
u¾P»fix
, 
·th
, 0, 
websPublishHªdËr
, 0);

185 
	}
}

192 
ch¬_t
 *
	$websG‘PublishDœ
(
ch¬_t
 *
·th
, ch¬_ˆ**
u¾P»fix
)

194 
websU¾HªdËrTy³
 *
¥
;

195 
i
;

197 
i
 = 0; i < 
websU¾HªdËrMax
; i++) {

198 
¥
 = &
websU¾HªdËr
[
i
];

199 ià(
¥
->
u¾P»fix
[0] == '\0') {

202 ià(
¥
->
hªdËr
 && 
	`g¡ºcmp
(¥->
u¾P»fix
, 
·th
, sp->
Ën
) == 0) {

203 ià(
u¾P»fix
) {

204 *
u¾P»fix
 = 
¥
->urlPrefix;

206  
¥
->
webDœ
;

209  
NULL
;

210 
	}
}

218 
	$websPublishHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
,

219 
sid
, 
ch¬_t
 *
u¾
, ch¬_ˆ*
·th
, ch¬_ˆ*
qu”y
)

221 
Ën
;

223 
	`a_as£¹
(
	`websV®id
(
wp
));

224 
	`a_as£¹
(
·th
);

230 
Ën
 = 
	`g¡¾’
(
u¾P»fix
) + 1;

231 
	`websS‘Reque¡P©h
(
wp
, 
webDœ
, &
·th
[
Ën
]);

233 
	}
}

242 
	$websU¾HªdËrReque¡
(
webs_t
 
wp
)

244 
websU¾HªdËrTy³
 *
¥
;

245 
i
, 
fœ¡
;

247 
	`a_as£¹
(
	`websV®id
(
wp
));

254 
	`sock‘D–‘eHªdËr
(
wp
->
sid
);

255 
wp
->
¡©e
 = 
WEBS_PROCESSING
;

256 
websSts
.
hªdËrH™s
++;

258 
	`websS‘Reque¡P©h
(
wp
, 
	`websG‘DeçuÉDœ
(), 
NULL
);

263 
	`websCÚd’£MuÉËCh¬s
(
wp
->
·th
, '/');

264 
	`websCÚd’£MuÉËCh¬s
(
wp
->
u¾
, '/');

268 ià((
wp
->
·th
[0] !ð'/'è|| 
	`¡rchr
(wp->path, '\\')) {

269 
	`websE¼Ü
(
wp
, 400, 
	`T
("Bad„equest"));

277 
fœ¡
 = 1;

278 
i
 = 0; i < 
websU¾HªdËrMax
; i++) {

279 
¥
 = &
websU¾HªdËr
[
i
];

280 ià(
¥
->
hªdËr
 && 
	`g¡ºcmp
(¥->
u¾P»fix
, 
wp
->
·th
, sp->
Ën
) == 0) {

281 ià(
fœ¡
) {

282 
	`websS‘Env
(
wp
);

283 
fœ¡
 = 0;

285 ià((*
¥
->
hªdËr
)(
wp
, sp->
u¾P»fix
, sp->
webDœ
, sp->
¬g
,

286 
wp
->
u¾
, wp->
·th
, wp->
qu”y
)) {

289 ià(!
	`websV®id
(
wp
)) {

290 
	`Œaû
(0,

291 
	`T
("webs: handler %s called websDone, but didn't„eturn 1\n"),

292 
¥
->
u¾P»fix
);

301 ià(
i
 >ð
websU¾HªdËrMax
) {

307 
	`websE¼Ü
(
wp
, 200, 
	`T
("No handler forhis URL"));

310 
	}
}

319 
ch¬_t
 *
	$websCÚd’£MuÉËCh¬s
(
ch¬_t
 *
¡rToCÚd’£
, ch¬_ˆ
cCÚd’£
)

321 ià(
¡rToCÚd’£
 !ð
NULL
) {

322 
ch¬_t
 *
pSŒ
, *
pSÿn
;

324 
pSŒ
 = 
pSÿn
 = 
¡rToCÚd’£
;

326 *
pSÿn
 && *
pSŒ
) {

330 (*
pSÿn
 =ð
cCÚd’£
) && (*(pScan + 1) == cCondense)) {

331 
pSÿn
++;

336 ià(
pSŒ
 !ð
pSÿn
) {

337 *
pSŒ
 = *
pSÿn
;

340 
pSÿn
++;

341 
pSŒ
++;

346 ià(
pSŒ
 !ð
pSÿn
) {

347 *
pSŒ
 = 0;

351  
¡rToCÚd’£
;

352 
	}
}

	@matrixSSLSocket.c

10 #ifdeà
WEBS_SSL_SUPPORT


12 
	~<¡dlib.h
>

13 
	~<¡dio.h
>

14 
	~"m©rixSSLSock‘.h
"

15 
	~"uemf.h
"

17 #ifdeà
MACOSX


18 
	#OSX
 1

	)

19 
	#LINUX
 1

	)

22 
	#MAX_WRITE_MSEC
 500

	)

28 
wa™FÜWr™eEv’t
(
fd
, 
m£c
);

29 
£tSock‘NÚblock
(
SOCKET
 
sock
);

38 
s¦Acû±
(
s¦CÚn_t
 **
cÚn
, 
SOCKET
 
fd
, 
s¦Keys_t
 *
keys
, 
št32
 
»sume
,

39 
	$št32
 (*
û¹V®id©Ü
)(
s¦_t
 *, 
psX509C”t_t
 *, 
št32
))

41 
s¦CÚn_t
 *
ý
;

42 
rc
;

44 ià(
»sume
 == 0) {

50 
ý
 = 
	`b®loc
(
B_L
, (
s¦CÚn_t
));

51 
	`mem£t
(
ý
, 0x0, (
s¦CÚn_t
));

52 
ý
->
fd
 = fd;

53 ià(
	`m©rixS¦NewS”v”SessiÚ
(&
ý
->
s¦
, 
keys
, 
û¹V®id©Ü
) < 0) {

54 
	`s¦F»eCÚÃùiÚ
(&
ý
);

57 #ifdeà
USE_NONBLOCKING_SSL_SOCKETS


59 
	`£tSock‘NÚblock
(
fd
);

62 
ý
 = *
cÚn
;

67 
rc
 = 
	`s¦R—d
(
ý
, 
NULL
, 0);

68 ià(
rc
 < 0) {

71 *
cÚn
 = 
ý
;

73 
	}
}

114 
	$s¦R—d
(
s¦CÚn_t
 *
ý
, *
šbuf
, 
šËn
)

116 *
buf
;

117 
rc
, 
Ën
, 
Œªsã¼ed
;

125 ià(
šbuf
 !ð
NULL
 && 
šËn
 > 0 && 
ý
->
±By‹s
 > 0 && cp->
±
) {

126 ià(
ý
->
±By‹s
 < 
šËn
) {

127 
šËn
 = 
ý
->
±By‹s
;

129 
	`memýy
(
šbuf
, 
ý
->
cu¼Pt
, 
šËn
);

130 
ý
->
cu¼Pt
 +ð
šËn
;

131 
ý
->
±By‹s
 -ð
šËn
;

133 ià(
ý
->
±By‹s
 == 0) {

134 
	`bä“
(
B_L
, 
ý
->
±
);

135 
ý
->
±
 = cp->
cu¼Pt
 = 
NULL
;

137  
šËn
;

146 
WRITE_MORE
:

147 ià((
Ën
 = 
	`m©rixS¦G‘Outd©a
(
ý
->
s¦
, &
buf
)) > 0) {

148 
Œªsã¼ed
 = 
	`£nd
(
ý
->
fd
, 
buf
, 
Ën
, 
MSG_NOSIGNAL
);

149 ià(
Œªsã¼ed
 <= 0) {

150 ià(
	`sock‘G‘E¼Ü
(è!ð
EWOULDBLOCK
) {

153 ià(
	`wa™FÜWr™eEv’t
(
ý
->
fd
, 
MAX_WRITE_MSEC
) == 0) {

154 
WRITE_MORE
;

159 ià((
rc
 = 
	`m©rixS¦S’tD©a
(
ý
->
s¦
, 
Œªsã¼ed
)) < 0) {

162 ià(
rc
 =ð
MATRIXSSL_REQUEST_CLOSE
) {

164 } ià(
rc
 =ð
MATRIXSSL_HANDSHAKE_COMPLETE
) {

169 ià(
rc
 =ð
MATRIXSSL_REQUEST_SEND
 || 
Œªsã¼ed
 < 
Ën
) {

170 
WRITE_MORE
;

173 } ià(
Ën
 < 0) {

177 
READ_MORE
:

180 ià((
Ën
 = 
	`m©rixS¦G‘R—dbuf
(
ý
->
s¦
, &
buf
)) <= 0) {

183 ià((
Œªsã¼ed
 = 
	`»cv
(
ý
->
fd
, 
buf
, 
Ën
, 
MSG_NOSIGNAL
)) < 0) {

185 ià(
	`sock‘G‘E¼Ü
(è=ð
EWOULDBLOCK
) {

188 
	`Œaû
(1, 
	`T
("RECVƒ¼Ü: %d\n"), 
	`sock‘G‘E¼Ü
());

191 ià(
Œªsã¼ed
 == 0) {

193 
	`Œaû
(4, 
	`T
("Closšg cÚÃùiÚ %d oÀEOF\n"), 
ý
->
fd
);

200 ià((
rc
 = 
	`m©rixS¦ReûivedD©a
(
ý
->
s¦
, 
Œªsã¼ed
, &
buf
,

201 (
ušt32
*)&
Ën
)) < 0) {

205 
PROCESS_MORE
:

206 
rc
) {

207 
MATRIXSSL_REQUEST_SEND
:

209 
WRITE_MORE
;

210 
MATRIXSSL_REQUEST_RECV
:

211 
READ_MORE
;

212 
MATRIXSSL_HANDSHAKE_COMPLETE
:

214 
READ_MORE
;

215 
MATRIXSSL_RECEIVED_ALERT
:

217 ià(*
buf
 =ð
SSL_ALERT_LEVEL_FATAL
) {

218 
	`Œaû
(1, 
	`T
("Fatal‡lert: %d, closing connection.\n"),

219 *(
buf
 + 1));

223 ià(*(
buf
 + 1è=ð
SSL_ALERT_CLOSE_NOTIFY
) {

227 
	`Œaû
(4, 
	`T
("W¬nšg‡Ë¹: %d\n"), *(
buf
 + 1));

228 ià((
rc
 = 
	`m©rixS¦Proûs£dD©a
(
ý
->
s¦
, &
buf
, (
ušt32
*)&
Ën
))

231 ià(
šbuf
 !ð
NULL
 && 
šËn
 > 0 && 
ý
->
±By‹s
 > 0 && cp->
±
) {

232 ià(
ý
->
±By‹s
 < 
šËn
) {

233 
šËn
 = 
ý
->
±By‹s
;

235 
	`memýy
(
šbuf
, 
ý
->
cu¼Pt
, 
šËn
);

236 
ý
->
cu¼Pt
 +ð
šËn
;

237 
ý
->
±By‹s
 -ð
šËn
;

239 ià(
ý
->
±By‹s
 == 0) {

240 
	`bä“
(
B_L
, 
ý
->
±
);

241 
ý
->
±
 = cp->
cu¼Pt
 = 
NULL
;

243  
šËn
;

248 
PROCESS_MORE
;

250 
MATRIXSSL_APP_DATA
:

251 ià(
ý
->
±By‹s
 == 0) {

256 
ý
->
±By‹s
 = 
Ën
;

257 
ý
->
±
 = 
	`b®loc
(
B_L
, 
Ën
);

258 
	`memýy
(
ý
->
±
, 
buf
, 
Ën
);

259 
ý
->
cu¼Pt
 = cp->
±
;

266 
	`psAs£¹
(
ý
->
±
 =ðý->
cu¼Pt
);

267 
ý
->
±
 = 
	`b»®loc
(
B_L
, cp->±, cp->
±By‹s
 + 
Ën
);

268 
	`memýy
(
ý
->
±
 + cp->
±By‹s
, 
buf
, 
Ën
);

269 
ý
->
cu¼Pt
 = cp->
±
;

270 
ý
->
±By‹s
 +ð
Ën
;

272 ià((
rc
 = 
	`m©rixS¦Proûs£dD©a
(
ý
->
s¦
, &
buf
, (
ušt32
*)&
Ën
))

277 ià(
rc
 > 0) {

278 
PROCESS_MORE
;

283 ià(
šbuf
 !ð0 && 
šËn
 > 0) {

284 ià(
ý
->
±By‹s
 < 
šËn
) {

285 
šËn
 = 
ý
->
±By‹s
;

287 
	`memýy
(
šbuf
, 
ý
->
cu¼Pt
, 
šËn
);

288 
ý
->
cu¼Pt
 +ð
šËn
;

289 
ý
->
±By‹s
 -ð
šËn
;

290  
šËn
;

298 
	}
}

333 
	$s¦Wr™e
(
s¦CÚn_t
 *
ý
, *
d©a
, 
Ën
)

335 *
buf
;

336 
rc
, 
Œªsã¼ed
, 
ùL’
;

345 ià(!
ý
->
£ndBlocked
) {

346 ià(
	`m©rixS¦G‘Wr™ebuf
(
ý
->
s¦
, &
buf
, 
Ën
) <†en) {

350 
	`memýy
((*)
buf
, 
d©a
, 
Ën
);

351 ià(
	`m©rixS¦EncodeWr™ebuf
(
ý
->
s¦
, 
Ën
) < 0) {

360 ià(
Ën
 !ð
ý
->
±ReqBy‹s
) {

361 
	`a_as£¹
(
Ën
 !ð
ý
->
±ReqBy‹s
);

365 
WRITE_MORE
:

372 
ùL’
 = 
	`m©rixS¦G‘Outd©a
(
ý
->
s¦
, &
buf
);

373 ià(
ùL’
 > 0) {

374 
Œªsã¼ed
 = 
	`£nd
(
ý
->
fd
, 
buf
, 
ùL’
, 
MSG_NOSIGNAL
);

375 ià(
Œªsã¼ed
 <= 0) {

376 #ifdeà
USE_NONBLOCKING_SSL_SOCKETS


377 ià(
	`sock‘G‘E¼Ü
(è!ð
EWOULDBLOCK
) {

380 ià(!
ý
->
£ndBlocked
) {

381 
ý
->
£ndBlocked
 = 1;

382 
ý
->
±ReqBy‹s
 = 
Ën
;

391 ià((
rc
 = 
	`m©rixS¦S’tD©a
(
ý
->
s¦
, 
Œªsã¼ed
)) < 0) {

395 ià(
rc
 =ð
MATRIXSSL_REQUEST_SEND
) {

396 
WRITE_MORE
;

399 
ý
->
£ndBlocked
 = 0;

400 
ý
->
±ReqBy‹s
 = 0;

401  
Ën
;

402 
	}
}

408 
	$s¦Wr™eClosu»AË¹
(
s¦CÚn_t
 *
ý
)

410 *
buf
;

411 
Ën
;

413 ià(
ý
 !ð
NULL
) {

414 ià(
	`m©rixS¦EncodeClosu»AË¹
(
ý
->
s¦
) >= 0) {

415 ià((
Ën
 = 
	`m©rixS¦G‘Outd©a
(
ý
->
s¦
, &
buf
)) > 0) {

417 
	`£tSock‘NÚblock
(
ý
->
fd
);

418 ià((
Ën
 = 
	`£nd
(
ý
->
fd
, 
buf
,†’, 
MSG_DONTWAIT
)) > 0) {

419 
	`m©rixS¦S’tD©a
(
ý
->
s¦
, 
Ën
);

424 
	}
}

431 
	$s¦F»eCÚÃùiÚ
(
s¦CÚn_t
 **
ýp
)

433 
s¦CÚn_t
 *
cÚn
;

435 
cÚn
 = *
ýp
;

436 
	`m©rixS¦D–‘eSessiÚ
(
cÚn
->
s¦
);

437 
cÚn
->
s¦
 = 
NULL
;

438 ià(
cÚn
->
±
 !ð
NULL
) {

439 
	`bä“
(
B_L
, 
cÚn
->
±
);

441 
	`bä“
(
B_L
, 
cÚn
);

442 *
ýp
 = 
NULL
;

443 
	}
}

450 
	$wa™FÜWr™eEv’t
(
fd
, 
m£c
)

452 
timev®
 
tv
;

453 
fd_£t
 
wr™eFds
;

455 
	`FD_ZERO
(&
wr™eFds
);

456 
	`FD_SET
(
fd
, &
wr™eFds
);

457 
tv
.
tv_£c
 = 
m£c
 / 1000;

458 
tv
.
tv_u£c
 = (
m£c
 % 1000) * 1000;

459 ià(
	`£Ëù
(
fd
 + 1, 
NULL
, &
wr™eFds
, NULL, &
tv
) > 0 &&

460 
	`FD_ISSET
(
fd
, &
wr™eFds
)) {

464 
	}
}

470 
	$£tSock‘NÚblock
(
SOCKET
 
sock
)

472 #ià
_WIN32


473 
block
 = 1;

474 
	`ioùlsock‘
(
sock
, 
FIONBIO
, &
block
);

475 #–ià
LINUX


476 
	`fúŽ
(
sock
, 
F_SETFL
, fúŽ(sock, 
F_GETFL
è| 
O_NONBLOCK
);

478 #ifdeà
MACOSX


480 
Úoff
 = 1;

481 
	`£tsockÝt
(
sock
, 
SOL_SOCKET
, 
SO_NOSIGPIPE
, (*)&
Úoff
, (onoff));

483 
	}
}

	@matrixSSLSocket.h

11 #ifdeà
WEBS_SSL_SUPPORT


13 #iâdeà
_h_SSLSOCKET


14 
	#_h_SSLSOCKET


	)

16 #ifdeà
__ýlu¥lus


20 
	~"m©rixs¦/m©rixs¦Api.h
"

25 
	#USE_NONBLOCKING_SSL_SOCKETS


	)

27 #ifdeà
MACOSX


28 
	#LINUX
 1

	)

29 
	#OSX
 1

	)

34 #ià
WIN32
 || 
WINCE


35 
	~<wšdows.h
>

36 
	~<wšsock.h
>

37 
	#fúŽ
(
A
, 
B
, 
C
)

	)

38 
	#MSG_NOSIGNAL
 0

	)

39 
	#MSG_DONTWAIT
 0

	)

40 
	#WOULD_BLOCK
 
WSAEWOULDBLOCK


	)

41 
	#g‘Sock‘E¼Ü
(è
	`WSAG‘La¡E¼Ü
()

	)

42 #–ià
LINUX


43 
	~<sys/sock‘.h
>

44 
	~<Ãtš‘/š.h
>

45 
	~<Ãtš‘/tý.h
>

46 
	~<¬·/š‘.h
>

47 #ifdeà
OSX


48 
	~<sys/sock‘.h
>

49 
	#MSG_NOSIGNAL
 0

	)

51 
	~<fúŽ.h
>

52 
	~<uni¡d.h
>

53 
	~<¡ršg.h
>

54 
	~<”ºo.h
>

55 
	#SOCKET_ERROR
 -1

	)

56 
	#g‘Sock‘E¼Ü
(è
”ºo


	)

57 
	#WOULD_BLOCK
 
EAGAIN


	)

58 
	#þo£sock‘
 
þo£


	)

59 
	#MAKEWORD
(
A
, 
B
)

	)

60 
	#WSAS¹up
(
A
, 
B
)

	)

61 
	#WSACËªup
()

	)

62 
	#INVALID_SOCKET
 -1

	)

63 
	tWSADATA
;

64 
	tSOCKET
;

65 #–ià
VXWORKS


66 
	~<ty³s.h
>

67 
	~<sock‘.h
>

68 
	~<Ãtš‘/š.h
>

69 
	~<Ãtš‘/tý.h
>

70 
	~<fúŽ.h
>

71 
	~<”ºo.h
>

72 
	#fúŽ
(
A
, 
B
, 
C
è
	`ioùl
(A, B, C)

	)

73 
	#SOCKET_ERROR
 -1

	)

74 
	#g‘Sock‘E¼Ü
(è
”ºo


	)

75 
	#WOULD_BLOCK
 
EAGAIN


	)

76 
	#þo£sock‘
 
þo£


	)

77 
	#MAKEWORD
(
A
, 
B
)

	)

78 
	#WSAS¹up
(
A
, 
B
)

	)

79 
	#WSACËªup
()

	)

80 
	#INVALID_SOCKET
 -1

	)

81 
	#MSG_NOSIGNAL
 0

	)

82 
	tWSADATA
;

83 
	tSOCKET
;

86 #ifdeà
MACOSX


87 #undeà
LINUX


88 #undeà
OSX


91 
	#s¦As£¹
(
C
èià(Cè; {
	`årštf
(
¡d”r
, "%s:%d sslAssert(%s)\n",\

92 
__FILE__
, 
__LINE__
, #C); }

	)

93 #iâdeà
mš


94 
	#mš
(
a
,
b
è((×è< (b)è? (aè: (b))

	)

100 
	#SSLSOCKET_EOF
 0x1

	)

101 
	#SSLSOCKET_CLOSE_NOTIFY
 0x2

	)

107 
s¦_t
 *
s¦
;

108 *
±
;

109 *
cu¼Pt
;

110 
±By‹s
;

111 
SOCKET
 
fd
;

112 
±ReqBy‹s
;

113 
£ndBlocked
;

114 } 
	ts¦CÚn_t
;

119 
s¦Acû±
(
s¦CÚn_t
 **
ý
, 
SOCKET
 
fd
, 
s¦Keys_t
 *
keys
, 
št32
 
»sume
,

120 (*
û¹V®id©Ü
)(
s¦_t
 *, 
psX509C”t_t
 *, 
št32
));

121 
s¦F»eCÚÃùiÚ
(
s¦CÚn_t
 **
ý
);

123 
s¦R—d
(
s¦CÚn_t
 *
ý
, *
buf
, 
Ën
);

124 
s¦Wr™e
(
s¦CÚn_t
 *
ý
, *
buf
, 
Ën
);

125 
s¦Wr™eClosu»AË¹
(
s¦CÚn_t
 *
ý
);

127 #ifdeà
__ýlu¥lus


	@md5.h

11 #iâdeà
_h_MD5


12 
	#_h_MD5
 1

	)

14 #iâdeà
WEBS_SSL_SUPPORT


16 #iâdeà
ulÚg32


17 
	tulÚg32
;

21 
ulÚg32
 
	mËngthHi
;

22 
ulÚg32
 
	mËngthLo
;

23 
ulÚg32
 
	m¡©e
[4], 
	mcu¾’
;

24 
	mbuf
[64];

25 } 
	tpsDige¡CÚ‹xt_t
;

27 
psDige¡CÚ‹xt_t
 
	tpsMd5CÚ‹xt_t
;

29 
psMd5In™
(
psMd5CÚ‹xt_t
 *
md
);

30 
psMd5Upd©e
(
psMd5CÚ‹xt_t
 *
md
, *
buf
,

31 
Ën
);

32 
psMd5Fš®
(
psMd5CÚ‹xt_t
 *
md
, *
hash
);

	@md5c.c

10 #ifdeà
DIGEST_ACCESS_SUPPORT


11 #iâdeà
WEBS_SSL_SUPPORT


12 
	~<¡ršg.h
>

13 
	~"md5.h
"

14 
	tšt32
;

16 
	#F
(
x
,
y
,
z
è(z ^ (x & (y ^ z)))

	)

17 
	#G
(
x
,
y
,
z
è(y ^ (z & (y ^ x)))

	)

18 
	#H
(
x
,
y
,
z
è(x^y^z)

	)

19 
	#I
(
x
,
y
,
z
è(y^(x|(~z)))

	)

21 #iâdeà
MIN


22 
	#MIN
(
x
, 
y
èÐ((x)<(y))?(x):(yè)

	)

25 
	#STORE32L
(
x
, 
y
) \

26 { (
y
)[3] = ()(((
x
)>>24)&255); \

27 (
y
)[2] = ()(((
x
)>>16)&255); \

28 (
y
)[1] = ()(((
x
)>>8)&255); \

29 (
y
)[0] = ()((
x
)&255); }

	)

31 
	#LOAD32L
(
x
, 
y
) \

32 { 
x
 = (()((
y
)[3] & 255)<<24) | \

33 (()((
y
)[2] & 255)<<16) | \

34 (()((
y
)[1] & 255)<<8) | \

35 (()((
y
)[0] & 255)); }

	)

37 #ifdeà
SMALL_CODE


39 
	#ROL
(
x
, 
y
) ( ((()(x)<<()((y)&31)) | \

40 ((()(
x
)&0xFFFFFFFFUL)>>()(32-((
y
)&31)))) & \

41 0xFFFFFFFFUL)

	)

43 
	#FF
(
a
,
b
,
c
,
d
,
M
,
s
,
t
) \

44 
a
 = (¨+ 
	`F
(
b
,
c
,
d
è+ 
M
 + 
t
);‡ = 
	`ROL
×, 
s
è+ b;

	)

46 
	#GG
(
a
,
b
,
c
,
d
,
M
,
s
,
t
) \

47 
a
 = (¨+ 
	`G
(
b
,
c
,
d
è+ 
M
 + 
t
);‡ = 
	`ROL
×, 
s
è+ b;

	)

49 
	#HH
(
a
,
b
,
c
,
d
,
M
,
s
,
t
) \

50 
a
 = (¨+ 
	`H
(
b
,
c
,
d
è+ 
M
 + 
t
);‡ = 
	`ROL
×, 
s
è+ b;

	)

52 
	#II
(
a
,
b
,
c
,
d
,
M
,
s
,
t
) \

53 
a
 = (¨+ 
	`I
(
b
,
c
,
d
è+ 
M
 + 
t
);‡ = 
	`ROL
×, 
s
è+ b;

	)

55 cÚ¡ 
	gWÜd”
[64] = {

62 cÚ¡ 
	gRÜd”
[64] = {

69 cÚ¡ 
ulÚg32
 
	gKÜd”
[] = {

90 
	#ROLc
(
x
, 
y
) ( ((()(x)<<()((y)&31)) | \

91 ((()(
x
)&0xFFFFFFFFUL)>>()(32-((
y
)&31)))) & \

92 0xFFFFFFFFUL)

	)

94 
	#FF
(
a
,
b
,
c
,
d
,
M
,
s
,
t
) \

95 
a
 = (¨+ 
	`F
(
b
,
c
,
d
è+ 
M
 + 
t
);‡ = 
	`ROLc
×, 
s
è+ b;

	)

97 
	#GG
(
a
,
b
,
c
,
d
,
M
,
s
,
t
) \

98 
a
 = (¨+ 
	`G
(
b
,
c
,
d
è+ 
M
 + 
t
);‡ = 
	`ROLc
×, 
s
è+ b;

	)

100 
	#HH
(
a
,
b
,
c
,
d
,
M
,
s
,
t
) \

101 
a
 = (¨+ 
	`H
(
b
,
c
,
d
è+ 
M
 + 
t
);‡ = 
	`ROLc
×, 
s
è+ b;

	)

103 
	#II
(
a
,
b
,
c
,
d
,
M
,
s
,
t
) \

104 
a
 = (¨+ 
	`I
(
b
,
c
,
d
è+ 
M
 + 
t
);‡ = 
	`ROLc
×, 
s
è+ b;

	)

108 
	$_md5_com´ess
(
psMd5CÚ‹xt_t
 *
md
)

110 
i
, 
W
[16], 
a
, 
b
, 
c
, 
d
;

111 #ifdeà
SMALL_CODE


112 
ulÚg32
 
t
;

118 
i
 = 0; i < 16; i++) {

119 
	`LOAD32L
(
W
[
i
], 
md
->
buf
 + (4*i));

125 
a
 = 
md
->
¡©e
[0];

126 
b
 = 
md
->
¡©e
[1];

127 
c
 = 
md
->
¡©e
[2];

128 
d
 = 
md
->
¡©e
[3];

130 #ifdeà
SMALL_CODE


131 
i
 = 0; i < 16; ++i) {

132 
	`FF
(
a
,
b
,
c
,
d
,
W
[
WÜd”
[
i
]],
RÜd”
[i],
KÜd”
[i]);

133 
t
 = 
d
; d = 
c
; c = 
b
; b = 
a
;‡ =;

136 ; 
i
 < 32; ++i) {

137 
	`GG
(
a
,
b
,
c
,
d
,
W
[
WÜd”
[
i
]],
RÜd”
[i],
KÜd”
[i]);

138 
t
 = 
d
; d = 
c
; c = 
b
; b = 
a
;‡ =;

141 ; 
i
 < 48; ++i) {

142 
	`HH
(
a
,
b
,
c
,
d
,
W
[
WÜd”
[
i
]],
RÜd”
[i],
KÜd”
[i]);

143 
t
 = 
d
; d = 
c
; c = 
b
; b = 
a
;‡ =;

146 ; 
i
 < 64; ++i) {

147 
	`II
(
a
,
b
,
c
,
d
,
W
[
WÜd”
[
i
]],
RÜd”
[i],
KÜd”
[i]);

148 
t
 = 
d
; d = 
c
; c = 
b
; b = 
a
;‡ =;

153 
	`FF
(
a
,
b
,
c
,
d
,
W
[0],7,0xd76aa478UL)

154 
	`FF
(
d
,
a
,
b
,
c
,
W
[1],12,0xe8c7b756UL)

155 
	`FF
(
c
,
d
,
a
,
b
,
W
[2],17,0x242070dbUL)

156 
	`FF
(
b
,
c
,
d
,
a
,
W
[3],22,0xc1bdceeeUL)

157 
	`FF
(
a
,
b
,
c
,
d
,
W
[4],7,0xf57c0fafUL)

158 
	`FF
(
d
,
a
,
b
,
c
,
W
[5],12,0x4787c62aUL)

159 
	`FF
(
c
,
d
,
a
,
b
,
W
[6],17,0xa8304613UL)

160 
	`FF
(
b
,
c
,
d
,
a
,
W
[7],22,0xfd469501UL)

161 
	`FF
(
a
,
b
,
c
,
d
,
W
[8],7,0x698098d8UL)

162 
	`FF
(
d
,
a
,
b
,
c
,
W
[9],12,0x8b44f7afUL)

163 
	`FF
(
c
,
d
,
a
,
b
,
W
[10],17,0xffff5bb1UL)

164 
	`FF
(
b
,
c
,
d
,
a
,
W
[11],22,0x895cd7beUL)

165 
	`FF
(
a
,
b
,
c
,
d
,
W
[12],7,0x6b901122UL)

166 
	`FF
(
d
,
a
,
b
,
c
,
W
[13],12,0xfd987193UL)

167 
	`FF
(
c
,
d
,
a
,
b
,
W
[14],17,0xa679438eUL)

168 
	`FF
(
b
,
c
,
d
,
a
,
W
[15],22,0x49b40821UL)

169 
	`GG
(
a
,
b
,
c
,
d
,
W
[1],5,0xf61e2562UL)

170 
	`GG
(
d
,
a
,
b
,
c
,
W
[6],9,0xc040b340UL)

171 
	`GG
(
c
,
d
,
a
,
b
,
W
[11],14,0x265e5a51UL)

172 
	`GG
(
b
,
c
,
d
,
a
,
W
[0],20,0xe9b6c7aaUL)

173 
	`GG
(
a
,
b
,
c
,
d
,
W
[5],5,0xd62f105dUL)

174 
	`GG
(
d
,
a
,
b
,
c
,
W
[10],9,0x02441453UL)

175 
	`GG
(
c
,
d
,
a
,
b
,
W
[15],14,0xd8a1e681UL)

176 
	`GG
(
b
,
c
,
d
,
a
,
W
[4],20,0xe7d3fbc8UL)

177 
	`GG
(
a
,
b
,
c
,
d
,
W
[9],5,0x21e1cde6UL)

178 
	`GG
(
d
,
a
,
b
,
c
,
W
[14],9,0xc33707d6UL)

179 
	`GG
(
c
,
d
,
a
,
b
,
W
[3],14,0xf4d50d87UL)

180 
	`GG
(
b
,
c
,
d
,
a
,
W
[8],20,0x455a14edUL)

181 
	`GG
(
a
,
b
,
c
,
d
,
W
[13],5,0xa9e3e905UL)

182 
	`GG
(
d
,
a
,
b
,
c
,
W
[2],9,0xfcefa3f8UL)

183 
	`GG
(
c
,
d
,
a
,
b
,
W
[7],14,0x676f02d9UL)

184 
	`GG
(
b
,
c
,
d
,
a
,
W
[12],20,0x8d2a4c8aUL)

185 
	`HH
(
a
,
b
,
c
,
d
,
W
[5],4,0xfffa3942UL)

186 
	`HH
(
d
,
a
,
b
,
c
,
W
[8],11,0x8771f681UL)

187 
	`HH
(
c
,
d
,
a
,
b
,
W
[11],16,0x6d9d6122UL)

188 
	`HH
(
b
,
c
,
d
,
a
,
W
[14],23,0xfde5380cUL)

189 
	`HH
(
a
,
b
,
c
,
d
,
W
[1],4,0xa4beea44UL)

190 
	`HH
(
d
,
a
,
b
,
c
,
W
[4],11,0x4bdecfa9UL)

191 
	`HH
(
c
,
d
,
a
,
b
,
W
[7],16,0xf6bb4b60UL)

192 
	`HH
(
b
,
c
,
d
,
a
,
W
[10],23,0xbebfbc70UL)

193 
	`HH
(
a
,
b
,
c
,
d
,
W
[13],4,0x289b7ec6UL)

194 
	`HH
(
d
,
a
,
b
,
c
,
W
[0],11,0xeaa127faUL)

195 
	`HH
(
c
,
d
,
a
,
b
,
W
[3],16,0xd4ef3085UL)

196 
	`HH
(
b
,
c
,
d
,
a
,
W
[6],23,0x04881d05UL)

197 
	`HH
(
a
,
b
,
c
,
d
,
W
[9],4,0xd9d4d039UL)

198 
	`HH
(
d
,
a
,
b
,
c
,
W
[12],11,0xe6db99e5UL)

199 
	`HH
(
c
,
d
,
a
,
b
,
W
[15],16,0x1fa27cf8UL)

200 
	`HH
(
b
,
c
,
d
,
a
,
W
[2],23,0xc4ac5665UL)

201 
	`II
(
a
,
b
,
c
,
d
,
W
[0],6,0xf4292244UL)

202 
	`II
(
d
,
a
,
b
,
c
,
W
[7],10,0x432aff97UL)

203 
	`II
(
c
,
d
,
a
,
b
,
W
[14],15,0xab9423a7UL)

204 
	`II
(
b
,
c
,
d
,
a
,
W
[5],21,0xfc93a039UL)

205 
	`II
(
a
,
b
,
c
,
d
,
W
[12],6,0x655b59c3UL)

206 
	`II
(
d
,
a
,
b
,
c
,
W
[3],10,0x8f0ccc92UL)

207 
	`II
(
c
,
d
,
a
,
b
,
W
[10],15,0xffeff47dUL)

208 
	`II
(
b
,
c
,
d
,
a
,
W
[1],21,0x85845dd1UL)

209 
	`II
(
a
,
b
,
c
,
d
,
W
[8],6,0x6fa87e4fUL)

210 
	`II
(
d
,
a
,
b
,
c
,
W
[15],10,0xfe2ce6e0UL)

211 
	`II
(
c
,
d
,
a
,
b
,
W
[6],15,0xa3014314UL)

212 
	`II
(
b
,
c
,
d
,
a
,
W
[13],21,0x4e0811a1UL)

213 
	`II
(
a
,
b
,
c
,
d
,
W
[4],6,0xf7537e82UL)

214 
	`II
(
d
,
a
,
b
,
c
,
W
[11],10,0xbd3af235UL)

215 
	`II
(
c
,
d
,
a
,
b
,
W
[2],15,0x2ad7d2bbUL)

216 
	`II
(
b
,
c
,
d
,
a
,
W
[9],21,0xeb86d391UL)

219 
md
->
¡©e
[0] = md->¡©e[0] + 
a
;

220 
md
->
¡©e
[1] = md->¡©e[1] + 
b
;

221 
md
->
¡©e
[2] = md->¡©e[2] + 
c
;

222 
md
->
¡©e
[3] = md->¡©e[3] + 
d
;

223 
	}
}

225 
	$psZ”omem
(*
d¡
, 
Ën
)

227 *
mem
 = (*)
d¡
;

229 ià(
d¡
 == (*)0) { ; }

230 
Ën
-- > 0è{ *
mem
++ = 0; }

231 
	}
}

233 
	$psBuºSck
(
Ën
)

235 
buf
[32];

237 
	`psZ”omem
(
buf
, (buf));

238 ià(
Ën
 > ()(
buf
)è{ 
	`psBuºSck
(len - (buf)); }

239 
	}
}

241 
	$md5_com´ess
(
psMd5CÚ‹xt_t
 *
md
)

243 
	`_md5_com´ess
(
md
);

244 
	`psBuºSck
(() * 21);

245 
	}
}

247 
	$psMd5In™
(
psMd5CÚ‹xt_t
* 
md
)

249 
md
->
¡©e
[0] = 0x67452301UL;

250 
md
->
¡©e
[1] = 0xefcdab89UL;

251 
md
->
¡©e
[2] = 0x98badcfeUL;

252 
md
->
¡©e
[3] = 0x10325476UL;

253 
md
->
cu¾’
 = 0;

254 #ifdeà
USE_INT64


255 
md
->
Ëngth
 = 0;

257 
md
->
ËngthHi
 = 0;

258 
md
->
ËngthLo
 = 0;

260 
	}
}

262 
	$psMd5Upd©e
(
psMd5CÚ‹xt_t
* 
md
, *
buf
, 
Ën
)

264 
n
;

266 
Ën
 > 0) {

267 
n
 = 
	`MIN
(
Ën
, (64 - 
md
->
cu¾’
));

268 
	`memýy
(
md
->
buf
 + md->
cu¾’
, buf, ()
n
);

269 
md
->
cu¾’
 +ð
n
;

270 
buf
 +ð
n
;

271 
Ën
 -ð
n
;

275 ià(
md
->
cu¾’
 == 64) {

276 
	`md5_com´ess
(
md
);

277 #ifdeà
USE_INT64


278 
md
->
Ëngth
 += 512;

280 
n
 = (
md
->
ËngthLo
 + 512) & 0xFFFFFFFFL;

281 ià(
n
 < 
md
->
ËngthLo
) {

282 
md
->
ËngthHi
++;

284 
md
->
ËngthLo
 = 
n
;

286 
md
->
cu¾’
 = 0;

289 
	}
}

291 
št32
 
	$psMd5Fš®
(
psMd5CÚ‹xt_t
* 
md
, *
hash
)

293 
št32
 
i
;

294 #iâdeà
USE_INT64


295 
n
;

298 ià(
hash
 =ð
NULL
) {

304 #ifdeà
USE_INT64


305 
md
->
Ëngth
 +ðmd->
cu¾’
 << 3;

307 
n
 = (
md
->
ËngthLo
 + (md->
cu¾’
 << 3)) & 0xFFFFFFFFL;

308 ià(
n
 < 
md
->
ËngthLo
) {

309 
md
->
ËngthHi
++;

311 
md
->
ËngthHi
 +ð(md->
cu¾’
 >> 29);

312 
md
->
ËngthLo
 = 
n
;

317 
md
->
buf
[md->
cu¾’
++] = ()0x80;

322 ià(
md
->
cu¾’
 > 56) {

323 
md
->
cu¾’
 < 64) {

324 
md
->
buf
[md->
cu¾’
++] = ()0;

326 
	`md5_com´ess
(
md
);

327 
md
->
cu¾’
 = 0;

332 
md
->
cu¾’
 < 56) {

333 
md
->
buf
[md->
cu¾’
++] = ()0;

338 #ifdeà
USE_INT64


339 
	`STORE64L
(
md
->
Ëngth
, md->
buf
+56);

341 
	`STORE32L
(
md
->
ËngthLo
, md->
buf
+56);

342 
	`STORE32L
(
md
->
ËngthHi
, md->
buf
+60);

344 
	`md5_com´ess
(
md
);

348 
i
 = 0; i < 4; i++) {

349 
	`STORE32L
(
md
->
¡©e
[
i
], 
hash
+(4*i));

351 
	`psZ”omem
(
md
, (
psMd5CÚ‹xt_t
));

353 
	}
}

	@mime.c

19 
	~"wsIÁº.h
"

25 
	#MORE_MIME_TYPES
 1

	)

26 
websMimeTy³
 
	gwebsMimeLi¡
[] = {

27 { 
T
("application/java"), T(".class") },

28 { 
T
("application/java"), T(".jar") },

29 { 
T
("text/html"), T(".asp") },

30 { 
T
("text/html"), T(".htm") },

31 { 
T
("text/html"), T(".html") },

32 { 
T
("text/xml"), T(".xml") },

33 { 
T
("image/gif"), T(".gif") },

34 { 
T
("image/jpeg"), T(".jpg") },

35 { 
T
("image/png"), T(".png") },

36 { 
T
("image/vnd.microsoft.icon"), T(".ico") },

37 { 
T
("text/css"), T(".css") },

38 { 
T
("text/plain"), T(".txt") },

39 { 
T
("application/x-javascript"), T(".js") },

40 { 
T
("application/x-shockwave-flash"), T(".swf") },

42 #ifdeà
MORE_MIME_TYPES


43 { 
T
("application/binary"), T(".exe") },

44 { 
T
("application/compress"), T(".z") },

45 { 
T
("application/gzip"), T(".gz") },

46 { 
T
("application/octet-stream"), T(".bin") },

47 { 
T
("application/oda"), T(".oda") },

48 { 
T
("application/pdf"), T(".pdf") },

49 { 
T
("application/postscript"), T(".ai") },

50 { 
T
("application/postscript"), T(".eps") },

51 { 
T
("application/postscript"), T(".ps") },

52 { 
T
("application/rtf"), T(".rtf") },

53 { 
T
("application/x-bcpio"), T(".bcpio") },

54 { 
T
("application/x-cpio"), T(".cpio") },

55 { 
T
("application/x-csh"), T(".csh") },

56 { 
T
("application/x-dvi"), T(".dvi") },

57 { 
T
("application/x-gtar"), T(".gtar") },

58 { 
T
("application/x-hdf"), T(".hdf") },

59 { 
T
("application/x-latex"), T(".latex") },

60 { 
T
("application/x-mif"), T(".mif") },

61 { 
T
("application/x-netcdf"), T(".nc") },

62 { 
T
("application/x-netcdf"), T(".cdf") },

63 { 
T
("application/x-ns-proxy-autoconfig"), T(".pac") },

64 { 
T
("application/x-patch"), T(".patch") },

65 { 
T
("application/x-sh"), T(".sh") },

66 { 
T
("application/x-shar"), T(".shar") },

67 { 
T
("application/x-sv4cpio"), T(".sv4cpio") },

68 { 
T
("application/x-sv4crc"), T(".sv4crc") },

69 { 
T
("application/x-tar"), T(".tar") },

70 { 
T
("application/x-tgz"), T(".tgz") },

71 { 
T
("application/x-tcl"), T(".tcl") },

72 { 
T
("application/x-tex"), T(".tex") },

73 { 
T
("application/x-texinfo"), T(".texinfo") },

74 { 
T
("application/x-texinfo"), T(".texi") },

75 { 
T
("application/x-troff"), T(".t") },

76 { 
T
("application/x-troff"), T(".tr") },

77 { 
T
("application/x-troff"), T(".roff") },

78 { 
T
("application/x-troff-man"), T(".man") },

79 { 
T
("application/x-troff-me"), T(".me") },

80 { 
T
("application/x-troff-ms"), T(".ms") },

81 { 
T
("application/x-ustar"), T(".ustar") },

82 { 
T
("application/x-wais-source"), T(".src") },

83 { 
T
("application/zip"), T(".zip") },

84 { 
T
("audio/basic"), T(".au snd") },

85 { 
T
("audio/x-aiff"), T(".aif") },

86 { 
T
("audio/x-aiff"), T(".aiff") },

87 { 
T
("audio/x-aiff"), T(".aifc") },

88 { 
T
("audio/x-wav"), T(".wav") },

89 { 
T
("audio/x-wav"), T(".ram") },

90 { 
T
("image/ief"), T(".ief") },

91 { 
T
("image/jpeg"), T(".jpeg") },

92 { 
T
("image/jpeg"), T(".jpe") },

93 { 
T
("image/tiff"), T(".tiff") },

94 { 
T
("image/tiff"), T(".tif") },

95 { 
T
("image/x-cmu-raster"), T(".ras") },

96 { 
T
("image/x-portable-anymap"), T(".pnm") },

97 { 
T
("image/x-portable-bitmap"), T(".pbm") },

98 { 
T
("image/x-portable-graymap"), T(".pgm") },

99 { 
T
("image/x-portable-pixmap"), T(".ppm") },

100 { 
T
("image/x-rgb"), T(".rgb") },

101 { 
T
("image/x-xbitmap"), T(".xbm") },

102 { 
T
("image/x-xpixmap"), T(".xpm") },

103 { 
T
("image/x-xwindowdump"), T(".xwd") },

104 { 
T
("text/html"), T(".cfm") },

105 { 
T
("text/html"), T(".shtm") },

106 { 
T
("text/html"), T(".shtml") },

107 { 
T
("text/richtext"), T(".rtx") },

108 { 
T
("text/tab-separated-values"), T(".tsv") },

109 { 
T
("text/x-setext"), T(".etx") },

110 { 
T
("video/mpeg"), T(".mpeg mpg mpe") },

111 { 
T
("video/quicktime"), T(".qt") },

112 { 
T
("video/quicktime"), T(".mov") },

113 { 
T
("video/x-msvideo"), T(".avi") },

114 { 
T
("video/x-sgi-movie"), T(".movie") },

116 { 
NULL
, NULL},

	@mime64.c

19 
	~"wsIÁº.h
"

27 
ch¬_t
 
	gm­64
[] = {

54 
	$websDecode64
(
ch¬_t
 *
outbuf
, ch¬_ˆ*
¡ršg
, 
ouŽ’
)

56 
shiábuf
;

57 
ch¬_t
 *
ý
, *
Ý
;

58 
c
, 
i
, 
j
, 
shiá
;

60 
Ý
 = 
outbuf
;

61 *
Ý
 = '\0';

62 
ý
 = 
¡ršg
;

63 *
ý
 && *cp != '=') {

67 
shiábuf
 = 0;

68 
shiá
 = 18;

69 
i
 = 0; i < 4 && *
ý
 && *cp != '='; i++, cp++) {

70 
c
 = 
m­64
[*
ý
 & 0xff];

71 ià(
c
 == -1) {

72 
	`”rÜ
(
E_L
, 
E_LOG
, 
	`T
("Bad sŒšg: % © %øšdex %d"), 
¡ršg
,

73 
c
, 
i
);

76 
shiábuf
 = shiábuà| (
c
 << 
shiá
);

77 
shiá
 -= 6;

83 --
i
;

84 ià((
Ý
 + 
i
è>ð&
outbuf
[
ouŽ’
]) {

85 
	`g¡rýy
(
outbuf
, 
	`T
("Stringoo big"));

88 
j
 = 0; j < 
i
; j++) {

89 *
Ý
++ = (
ch¬_t
è((
shiábuf
 >> (8 * (2 - 
j
))) & 0xff);

91 *
Ý
 = '\0';

94 
	}
}

	@misc.c

12 
	~"uemf.h
"

18 
	#kU£MemcÝy


	)

27 
	#STR_REALLOC
 0x1

	)

28 
	#STR_INC
 64

	)

31 
ch¬_t
 *
	ms
;

32 
	msize
;

33 
	mmax
;

34 
	mcouÁ
;

35 
	mæags
;

36 } 
	t¡rbuf_t
;

41 
	eæag
 {

42 
	mæag_nÚe
 = 0,

43 
	mæag_mšus
 = 1,

44 
	mæag_¶us
 = 2,

45 
	mæag_¥aû
 = 4,

46 
	mæag_hash
 = 8,

47 
	mæag_z”o
 = 16,

48 
	mæag_shÜt
 = 32,

49 
	mæag_lÚg
 = 64

54 
d¢´štf
(
ch¬_t
 **
s
, 
size
, ch¬_ˆ*
fmt
, 
va_li¡
 
¬g
,

55 
msize
);

56 
put_ch¬
(
¡rbuf_t
 *
buf
, 
ch¬_t
 
c
);

57 
put_¡ršg
(
¡rbuf_t
 *
buf
, 
ch¬_t
 *
s
, 
Ën
,

58 
width
, 
´ec
, 
æag
 
f
);

59 
put_ulÚg
(
¡rbuf_t
 *
buf
, 
v®ue
, 
ba£
,

60 
uµ”
, 
ch¬_t
 *
´efix
, 
width
, 
´ec
, 
æag
 
f
);

61 
g¡ºËn
(
ch¬_t
 *
s
, 
n
);

69 #ià(!
defšed
 (
LINUX
è&& !defšed (
LYNX
è&& !defšed (
MACOSX
))

70 
ch¬_t
 *
	$ba£Çme
(
ch¬_t
 *
Çme
)

72 
ch¬_t
 *
ý
;

74 #ià(
	`defšed
 (
NW
è|| defšed (
WIN
))

75 ià(((
ý
 = 
	`g¡¼chr
(
Çme
, '\\')è=ð
NULL
) &&

76 ((
ý
 = 
	`g¡¼chr
(
Çme
, '/')è=ð
NULL
)) {

77  
Çme
;

79 ià((
ý
 = 
	`g¡¼chr
(
Çme
, '/')è=ð
NULL
) {

80  
Çme
;

82 } ià(*(
ý
 + 1è=ð'\0' && c°=ð
Çme
) {

83  
Çme
;

84 } ià(*(
ý
 + 1è=ð'\0' && c°!ð
Çme
) {

85  
	`T
("");

87  ++
ý
;

89 
	}
}

98 
ch¬_t
 *
	$dœÇme
(
ch¬_t
 *
buf
, ch¬_ˆ*
Çme
, 
bufsize
)

100 
ch¬_t
 *
ý
;

101 
Ën
;

103 
	`a_as£¹
(
Çme
);

104 
	`a_as£¹
(
buf
);

105 
	`a_as£¹
(
bufsize
 > 0);

107 #ià(
	`defšed
 (
WIN
è|| defšed (
NW
))

108 ià((
ý
 = 
	`g¡¼chr
(
Çme
, '/')è=ð
NULL
 &&

109 (
ý
 = 
	`g¡¼chr
(
Çme
, '\\')è=ð
NULL
)

111 ià((
ý
 = 
	`g¡¼chr
(
Çme
, '/')è=ð
NULL
)

114 
	`g¡rýy
(
buf
, 
	`T
("."));

115  
buf
;

118 ià((*(
ý
 + 1è=ð'\0' && c°=ð
Çme
)) {

119 
	`g¡ºýy
(
buf
, 
	`T
("."), 
	`TSZ
(
bufsize
));

120 
	`g¡rýy
(
buf
, 
	`T
("."));

121  
buf
;

124 
Ën
 = 
ý
 - 
Çme
;

126 ià(
Ën
 < 
bufsize
) {

127 
	`g¡ºýy
(
buf
, 
Çme
, 
Ën
);

128 
buf
[
Ën
] = '\0';

130 
	`g¡ºýy
(
buf
, 
Çme
, 
	`TSZ
(
bufsize
));

131 
buf
[
bufsize
 - 1] = '\0';

134  
buf
;

135 
	}
}

145 
	$fmtAÎoc
(
ch¬_t
 **
s
, 
n
, ch¬_ˆ*
fmt
, ...)

147 
va_li¡
 
­
;

148 
»suÉ
;

150 
	`a_as£¹
(
s
);

151 
	`a_as£¹
(
fmt
);

153 *
s
 = 
NULL
;

154 
	`va_¡¬t
(
­
, 
fmt
);

155 
»suÉ
 = 
	`d¢´štf
(
s
, 
n
, 
fmt
, 
­
, 0);

156 
	`va_’d
(
­
);

157  
»suÉ
;

158 
	}
}

165 
	$fmtStic
(
ch¬_t
 *
s
, 
n
, ch¬_ˆ*
fmt
, ...)

167 
va_li¡
 
­
;

168 
»suÉ
;

170 
	`a_as£¹
(
s
);

171 
	`a_as£¹
(
fmt
);

172 
	`a_as£¹
(
n
 <= 256);

174 ià(
n
 <= 0) {

177 
	`va_¡¬t
(
­
, 
fmt
);

178 
»suÉ
 = 
	`d¢´štf
(&
s
, 
n
, 
fmt
, 
­
, 0);

179 
	`va_’d
(
­
);

180  
»suÉ
;

181 
	}
}

189 
	$fmtR—Îoc
(
ch¬_t
 **
s
, 
n
, 
msize
, ch¬_ˆ*
fmt
, ...)

191 
va_li¡
 
­
;

192 
»suÉ
;

194 
	`a_as£¹
(
s
);

195 
	`a_as£¹
(
fmt
);

197 ià(
msize
 == -1) {

198 *
s
 = 
NULL
;

200 
	`va_¡¬t
(
­
, 
fmt
);

201 
»suÉ
 = 
	`d¢´štf
(
s
, 
n
, 
fmt
, 
­
, 
msize
);

202 
	`va_’d
(
­
);

203  
»suÉ
;

204 
	}
}

211 
	$fmtV®loc
(
ch¬_t
 **
s
, 
n
, ch¬_ˆ*
fmt
, 
va_li¡
 
¬g
)

213 
	`a_as£¹
(
s
);

214 
	`a_as£¹
(
fmt
);

216 *
s
 = 
NULL
;

217  
	`d¢´štf
(
s
, 
n
, 
fmt
, 
¬g
, 0);

218 
	}
}

230 
	$d¢´štf
(
ch¬_t
 **
s
, 
size
, ch¬_ˆ*
fmt
, 
va_li¡
 
¬g
, 
msize
)

232 
¡rbuf_t
 
buf
;

233 
ch¬_t
 
c
;

235 
	`a_as£¹
(
s
);

236 
	`a_as£¹
(
fmt
);

238 
	`mem£t
(&
buf
, 0, (buf));

239 
buf
.
s
 = *s;

241 ià(*
s
 =ð
NULL
 || 
msize
 != 0) {

242 
buf
.
max
 = 
size
;

243 
buf
.
æags
 |ð
STR_REALLOC
;

244 ià(
msize
 != 0) {

245 
buf
.
size
 = 
	`max
(
msize
, 0);

247 ià(*
s
 !ð
NULL
 && 
msize
 != 0) {

248 
buf
.
couÁ
 = 
	`g¡¾’
(*
s
);

251 
buf
.
size
 = size;

254 (
c
 = *
fmt
++) != '\0') {

255 ià(
c
 !ð'%' || (øð*
fmt
++) == '%') {

256 
	`put_ch¬
(&
buf
, 
c
);

258 
æag
 
f
 = 
æag_nÚe
;

259 
width
 = 0;

260 
´ec
 = -1;

261  ; 
c
 !ð'\0'; c = *
fmt
++) {

262 ià(
c
 == '-') {

263 
f
 |ð
æag_mšus
;

264 } ià(
c
 == '+') {

265 
f
 |ð
æag_¶us
;

266 } ià(
c
 == ' ') {

267 
f
 |ð
æag_¥aû
;

268 } ià(
c
 == '#') {

269 
f
 |ð
æag_hash
;

270 } ià(
c
 == '0') {

271 
f
 |ð
æag_z”o
;

276 ià(
c
 == '*') {

277 
width
 = 
	`va_¬g
(
¬g
, );

278 ià(
width
 < 0) {

279 
f
 |ð
æag_mšus
;

280 
width
 = -width;

282 
c
 = *
fmt
++;

284  ; 
	`gisdig™
(()
c
); c = *
fmt
++) {

285 
width
 = width * 10 + (
c
 - '0');

288 ià(
c
 == '.') {

289 
f
 &ð~
æag_z”o
;

290 
c
 = *
fmt
++;

291 ià(
c
 == '*') {

292 
´ec
 = 
	`va_¬g
(
¬g
, );

293 
c
 = *
fmt
++;

295 
´ec
 = 0; 
	`gisdig™
(()
c
); c = *
fmt
++) {

296 
´ec
 =…»ø* 10 + (
c
 - '0');

300 ià(
c
 == 'h' || c == 'l') {

301 
f
 |ð(
c
 =ð'h' ? 
æag_shÜt
 : 
æag_lÚg
);

302 
c
 = *
fmt
++;

304 ià(
c
 == 'd' || c == 'i') {

305 
v®ue
;

306 ià(
f
 & 
æag_shÜt
) {

307 
v®ue
 = (è
	`va_¬g
(
¬g
, );

308 } ià(
f
 & 
æag_lÚg
) {

309 
v®ue
 = 
	`va_¬g
(
¬g
, );

311 
v®ue
 = 
	`va_¬g
(
¬g
, );

313 ià(
v®ue
 >= 0) {

314 ià(
f
 & 
æag_¶us
) {

315 
	`put_ulÚg
(&
buf
, 
v®ue
, 10, 0, 
	`T
("+"), 
width
, 
´ec
, 
f
);

316 } ià(
f
 & 
æag_¥aû
) {

317 
	`put_ulÚg
(&
buf
, 
v®ue
, 10, 0, 
	`T
(" "), 
width
, 
´ec
, 
f
);

319 
	`put_ulÚg
(&
buf
, 
v®ue
, 10, 0, 
NULL
, 
width
, 
´ec
, 
f
);

322 
	`put_ulÚg
(&
buf
, -
v®ue
, 10, 0, 
	`T
("-"), 
width
, 
´ec
, 
f
);

324 } ià(
c
 == 'o' || c == 'u' || c == 'x' || c == 'X') {

325 
v®ue
;

326 ià(
f
 & 
æag_shÜt
) {

327 
v®ue
 = (è
	`va_¬g
(
¬g
, );

328 } ià(
f
 & 
æag_lÚg
) {

329 
v®ue
 = 
	`va_¬g
(
¬g
, );

331 
v®ue
 = 
	`va_¬g
(
¬g
, );

333 ià(
c
 == 'o') {

334 ià(
f
 & 
æag_hash
 && 
v®ue
 != 0) {

335 
	`put_ulÚg
(&
buf
, 
v®ue
, 8, 0, 
	`T
("0"), 
width
, 
´ec
, 
f
);

337 
	`put_ulÚg
(&
buf
, 
v®ue
, 8, 0, 
NULL
, 
width
, 
´ec
, 
f
);

339 } ià(
c
 == 'u') {

340 
	`put_ulÚg
(&
buf
, 
v®ue
, 10, 0, 
NULL
, 
width
, 
´ec
, 
f
);

342 ià(
f
 & 
æag_hash
 && 
v®ue
 != 0) {

343 ià(
c
 == 'x') {

344 
	`put_ulÚg
(&
buf
, 
v®ue
, 16, 0, 
	`T
("0x"), 
width
,

345 
´ec
, 
f
);

347 
	`put_ulÚg
(&
buf
, 
v®ue
, 16, 1, 
	`T
("0X"), 
width
,

348 
´ec
, 
f
);

355 
	`put_ulÚg
(&
buf
, 
v®ue
, 16, ('X' =ð
c
è, 
NULL
, 
width
, 
´ec
, 
f
);

359 } ià(
c
 == 'c') {

360 
ch¬_t
 
v®ue
 = 
	`va_¬g
(
¬g
, );

361 
	`put_ch¬
(&
buf
, 
v®ue
);

363 } ià(
c
 == 's' || c == 'S') {

364 
ch¬_t
 *
v®ue
 = 
	`va_¬g
(
¬g
, char_t *);

365 ià(
v®ue
 =ð
NULL
) {

366 
	`put_¡ršg
(&
buf
, 
	`T
("ÒuÎ)"), -1, 
width
, 
´ec
, 
f
);

367 } ià(
f
 & 
æag_hash
) {

368 
	`put_¡ršg
(&
buf
,

369 
v®ue
 + 1, (
ch¬_t
è*v®ue, 
width
, 
´ec
, 
f
);

371 
	`put_¡ršg
(&
buf
, 
v®ue
, -1, 
width
, 
´ec
, 
f
);

373 } ià(
c
 == 'p') {

374 *
v®ue
 = 
	`va_¬g
(
¬g
, *);

375 
	`put_ulÚg
(&
buf
,

376 (è
v®ue
, 16, 0, 
	`T
("0x"), 
width
, 
´ec
, 
f
);

377 } ià(
c
 == 'n') {

378 ià(
f
 & 
æag_shÜt
) {

379 *
v®ue
 = 
	`va_¬g
(
¬g
, *);

380 *
v®ue
 = 
buf
.
couÁ
;

381 } ià(
f
 & 
æag_lÚg
) {

382 *
v®ue
 = 
	`va_¬g
(
¬g
, *);

383 *
v®ue
 = 
buf
.
couÁ
;

385 *
v®ue
 = 
	`va_¬g
(
¬g
, *);

386 *
v®ue
 = 
buf
.
couÁ
;

389 
	`put_ch¬
(&
buf
, 
c
);

393 ià(
buf
.
s
 =ð
NULL
) {

394 
	`put_ch¬
(&
buf
, '\0');

400 ià(*
s
 =ð
NULL
 || 
msize
 != 0) {

401 *
s
 = 
buf
.s;

404 ià(*
s
 !ð
NULL
 && 
size
 > 0) {

405 ià(
buf
.
couÁ
 < 
size
) {

406 (*
s
)[
buf
.
couÁ
] = '\0';

408 (*
s
)[
buf
.
size
 - 1] = '\0';

412 ià(
msize
 != 0) {

413  
buf
.
size
;

415  
buf
.
couÁ
;

416 
	}
}

422 
	$g¡ºËn
(
ch¬_t
 *
s
, 
n
)

424 
Ën
;

426 
Ën
 = 
	`g¡¾’
(
s
);

427  
	`mš
(
Ën
, 
n
);

428 
	}
}

435 
	$put_ch¬
(
¡rbuf_t
 *
buf
, 
ch¬_t
 
c
)

437 ià(
buf
->
couÁ
 >ð(buf->
size
 - 1)) {

438 ià(! (
buf
->
æags
 & 
STR_REALLOC
)) {

441 
buf
->
size
 +ð
STR_INC
;

442 ià(
buf
->
size
 > buf->
max
 && buf->siz> 
STR_INC
) {

446 
buf
->
size
 -ð
STR_INC
;

449 ià(
buf
->
s
 =ð
NULL
) {

450 
buf
->
s
 = 
	`b®loc
(
B_L
, buf->
size
 * (
ch¬_t
));

452 
buf
->
s
 = 
	`b»®loc
(
B_L
, buf->s, buf->
size
 * (
ch¬_t
));

455 
buf
->
s
[buf->
couÁ
] = 
c
;

456 ià(
c
 != '\0') {

457 ++
buf
->
couÁ
;

459 
	}
}

466 
	$put_¡ršg
(
¡rbuf_t
 *
buf
, 
ch¬_t
 *
s
, 
Ën
, 
width
,

467 
´ec
, 
æag
 
f
)

469 
i
;

471 ià(
Ën
 < 0) {

472 
Ën
 = 
	`g¡ºËn
(
s
, 
´ec
 >ð0 ?…»ø: 
ULONG_MAX
);

473 } ià(
´ec
 >ð0 &&…»ø< 
Ën
) {

474 
Ën
 = 
´ec
;

476 ià(
width
 > 
Ën
 && !(
f
 & 
æag_mšus
)) {

477 
i
 = 
Ën
; i < 
width
; ++i) {

478 
	`put_ch¬
(
buf
, ' ');

481 
i
 = 0; i < 
Ën
; ++i) {

482 
	`put_ch¬
(
buf
, 
s
[
i
]);

484 ià(
width
 > 
Ën
 && 
f
 & 
æag_mšus
) {

485 
i
 = 
Ën
; i < 
width
; ++i) {

486 
	`put_ch¬
(
buf
, ' ');

489 
	}
}

496 
	$put_ulÚg
(
¡rbuf_t
 *
buf
, 
v®ue
, 
ba£
,

497 
uµ”
, 
ch¬_t
 *
´efix
, 
width
, 
´ec
, 
æag
 
f
)

499 
x
, 
x2
;

500 
Ën
, 
z”os
, 
i
;

502 
Ën
 = 1, 
x
 = 1; x < 
ULONG_MAX
 / 
ba£
; ++Ën, x = 
x2
) {

503 
x2
 = 
x
 * 
ba£
;

504 ià(
x2
 > 
v®ue
) {

508 
z”os
 = (
´ec
 > 
Ën
) ?…rec -†en : 0;

509 
width
 -ð
z”os
 + 
Ën
;

510 ià(
´efix
 !ð
NULL
) {

511 
width
 -ð
	`g¡ºËn
(
´efix
, 
ULONG_MAX
);

513 ià(!(
f
 & 
æag_mšus
)) {

514 ià(
f
 & 
æag_z”o
) {

515 
i
 = 0; i < 
width
; ++i) {

516 
	`put_ch¬
(
buf
, '0');

519 
i
 = 0; i < 
width
; ++i) {

520 
	`put_ch¬
(
buf
, ' ');

524 ià(
´efix
 !ð
NULL
) {

525 
	`put_¡ršg
(
buf
, 
´efix
, -1, 0, -1, 
æag_nÚe
);

527 
i
 = 0; i < 
z”os
; ++i) {

528 
	`put_ch¬
(
buf
, '0');

530  ; 
x
 > 0; x /ð
ba£
) {

531 
dig™
 = (
v®ue
 / 
x
è% 
ba£
;

532 
	`put_ch¬
(
buf
, (è((
dig™
 < 10 ? '0' : (
uµ”
 ? 'A' : 'a') - 10) +

533 
dig™
));

535 ià(
f
 & 
æag_mšus
) {

536 
i
 = 0; i < 
width
; ++i) {

537 
	`put_ch¬
(
buf
, ' ');

540 
	}
}

549 
ch¬_t
 *
	$ascToUni
(
ch¬_t
 *
ubuf
, *
¡r
, 
nBy‹s
)

551 #ifdeà
UNICODE


552 ià(
	`MuÉiBy‹ToWideCh¬
(
CP_ACP
, 0, 
¡r
, 
nBy‹s
 / (
ch¬_t
), 
ubuf
,

553 
nBy‹s
 / (
ch¬_t
)) < 0) {

554  (
ch¬_t
*è
¡r
;

558 #ifdeà
kU£MemcÝy


559 
	`memýy
(
ubuf
, 
¡r
, 
nBy‹s
);

561 
	`¡ºýy
(
ubuf
, 
¡r
, 
nBy‹s
);

564  
ubuf
;

565 
	}
}

574 *
	$uniToAsc
(*
buf
, 
ch¬_t
 *
u¡r
, 
nBy‹s
)

576 #ifdeà
UNICODE


577 ià(
	`WideCh¬ToMuÉiBy‹
(
CP_ACP
, 0, 
u¡r
, 
nBy‹s
, 
buf
,‚Bytes,

578 
NULL
, NULL) < 0)

580  (*è
u¡r
;

583 #ifdeà
kU£MemcÝy


584 
	`memýy
(
buf
, 
u¡r
, 
nBy‹s
);

586 
	`¡ºýy
(
buf
, 
u¡r
, 
nBy‹s
);

589  (*è
buf
;

590 
	}
}

601 
ch¬_t
 *
	$b®locAscToUni
(*
ý
, 
®’
)

603 
ch¬_t
 *
un
;

604 
uËn
;

606 
uËn
 = (
®’
 + 1è* (
ch¬_t
);

607 ià((
un
 = 
	`b®loc
(
B_L
, 
uËn
)è=ð
NULL
) {

608  
NULL
;

610 
	`ascToUni
(
un
, 
ý
, 
uËn
);

611 
un
[
®’
] = 0;

612  
un
;

613 
	}
}

624 *
	$b®locUniToAsc
(
ch¬_t
 *
un
, 
uËn
)

626 * 
ý
;

628 ià((
ý
 = 
	`b®loc
(
B_L
, 
uËn
+1)è=ð
NULL
) {

629  
NULL
;

631 
	`uniToAsc
(
ý
, 
un
, 
uËn
);

632 
ý
[
uËn
] = '\0';

633  
ý
;

634 
	}
}

642 
	$hextoi
(
ch¬_t
 *
hex¡ršg
)

644 
ch¬_t
 *
h
;

645 
c
, 
v
;

647 
v
 = 0;

648 
h
 = 
hex¡ršg
;

649 ià(*
h
 == '0' && (*(h+1) == 'x' || *(h+1) == 'X')) {

650 
h
 += 2;

652 (
c
 = ()*
h
++) != 0) {

653 ià(
c
 >= '0' && c <= '9') {

654 
c
 -= '0';

655 } ià(
c
 >= 'a' && c <= 'f') {

656 
c
 = (c - 'a') + 10;

657 } ià(
c
 >= 'A' && c <= 'F') {

658 
c
 = (c - 'A') + 10;

662 
v
 = (v * 0x10è+ 
c
;

664  
v
;

665 
	}
}

673 
	$g¡¹oi
(
ch¬_t
 *
s
)

675 ià(*
s
 == '0' && (*(s+1) == 'x' || *(s+1) == 'X')) {

676 
s
 += 2;

677  
	`hextoi
(
s
);

679  
	`g©oi
(
s
);

680 
	}
}

	@page.c

20 
	~"wsIÁº.h
"

27 
	$websPageO³n
(
webs_t
 
wp
, 
ch¬_t
 *
Í©h
, ch¬_ˆ*
·th
, 
mode
, 
³rm
)

29 #ià
	`defšed
(
WIN32
)

30 
”ºo_t
 
”rÜ
;

32 
	`a_as£¹
(
	`websV®id
(
wp
));

34 #ifdeà
WEBS_PAGE_ROM


35  
	`websRomPageO³n
(
wp
, 
·th
, 
mode
, 
³rm
);

36 #–ià
	`defšed
(
WIN32
)

37 
”rÜ
 = 
	`_sÝ’_s
(&(
wp
->
docfd
), 
Í©h
, 
mode
, 
_SH_DENYNO
, 
_S_IREAD
);

38  (
wp
->
docfd
 = 
	`gÝ’
(
Í©h
, 
mode
, 
_S_IREAD
));

40  (
wp
->
docfd
 = 
	`gÝ’
(
Í©h
, 
mode
, 
³rm
));

42 
	}
}

49 
	$websPageClo£
(
webs_t
 
wp
)

51 
	`a_as£¹
(
	`websV®id
(
wp
));

53 #ifdeà
WEBS_PAGE_ROM


54 
	`websRomPageClo£
(
wp
->
docfd
);

56 ià(
wp
->
docfd
 >= 0) {

57 
	`þo£
(
wp
->
docfd
);

58 
wp
->
docfd
 = -1;

61 
	}
}

68 
	$websPageSt
(
webs_t
 
wp
, 
ch¬_t
 *
Í©h
, ch¬_ˆ*
·th
, 
websStTy³
* 
sbuf
)

70 #ifdeà
WEBS_PAGE_ROM


71  
	`websRomPageSt
(
·th
, 
sbuf
);

73 
g¡©_t
 
s
;

75 ià(
	`g¡©
(
Í©h
, &
s
) < 0) {

78 
sbuf
->
size
 = 
s
.
¡_size
;

79 
sbuf
->
mtime
 = 
s
.
¡_mtime
;

80 
sbuf
->
isDœ
 = 
s
.
¡_mode
 & 
S_IFDIR
;

83 
	}
}

90 
	$websPageIsDœeùÜy
(
ch¬_t
 *
Í©h
)

92 #ifdeà
WEBS_PAGE_ROM


93 
websStTy³
 
sbuf
;

95 ià(
	`websRomPageSt
(
Í©h
, &
sbuf
) >= 0) {

96 (
sbuf
.
isDœ
);

101 
g¡©_t
 
sbuf
;

103 ià(
	`g¡©
(
Í©h
, &
sbuf
) >= 0) {

104 (
sbuf
.
¡_mode
 & 
S_IFDIR
);

109 
	}
}

118 
	$websPageR—dD©a
(
webs_t
 
wp
, *
buf
, 
nBy‹s
)

121 #ifdeà
WEBS_PAGE_ROM


122 
	`a_as£¹
(
	`websV®id
(
wp
));

123  
	`websRomPageR—dD©a
(
wp
, 
buf
, 
nBy‹s
);

125 
	`a_as£¹
(
	`websV®id
(
wp
));

126  
	`»ad
(
wp
->
docfd
, 
buf
, 
nBy‹s
);

128 
	}
}

135 
	$websPageS“k
(
webs_t
 
wp
, 
off£t
)

137 
	`a_as£¹
(
	`websV®id
(
wp
));

139 #ifdeà
WEBS_PAGE_ROM


140 
	`websRomPageS“k
(
wp
, 
off£t
, 
SEEK_CUR
);

142 
	`l£ek
(
wp
->
docfd
, 
off£t
, 
SEEK_CUR
);

144 
	}
}

	@ringq.c

51 
	~"uemf.h
"

58 
	#RINGQ_LEN
(
rq
) \

59 ((
rq
->
£rvp
 >„q->
’dp
) ? \

60 (
rq
->
buæ’
 + (rq->
’dp
 -„q->
£rvp
)) : \

61 (
rq
->
’dp
 -„q->
£rvp
))

	)

65 
ršgqGrow
(
ršgq_t
 *
rq
);

66 
g‘BšBlockSize
(
size
);

68 
	gršgqGrowC®ls
 = 0;

79 
	$ršgqO³n
(
ršgq_t
 *
rq
, 
š™Size
, 
maxsize
)

81 
šüem’t
;

83 
	`a_as£¹
(
rq
);

84 
	`a_as£¹
(
š™Size
 >= 0);

86 
šüem’t
 = 
	`g‘BšBlockSize
(
š™Size
);

87 ià((
rq
->
buf
 = 
	`b®loc
(
B_L
, (
šüem’t
))è=ð
NULL
) {

90 
rq
->
maxsize
 = maxsize;

91 
rq
->
buæ’
 = 
šüem’t
;

92 
rq
->
šüem’t
 = increment;

93 
rq
->
’dbuf
 = &rq->
buf
[rq->
buæ’
];

94 
rq
->
£rvp
 =„q->
buf
;

95 
rq
->
’dp
 =„q->
buf
;

96 *
rq
->
£rvp
 = '\0';

98 
	}
}

105 
	$ršgqClo£
(
ršgq_t
 *
rq
)

107 
	`a_as£¹
(
rq
);

108 
	`a_as£¹
(
rq
->
buæ’
 =ðÔq->
’dbuf
 -„q->
buf
));

110 ià(
rq
 =ð
NULL
) {

114 
	`ršgqFlush
(
rq
);

115 
	`bä“
(
B_L
, (*è
rq
->
buf
);

116 
rq
->
buf
 = 
NULL
;

117 
	}
}

125 
	$ršgqL’
(
ršgq_t
 *
rq
)

127 
	`a_as£¹
(
rq
);

128 
	`a_as£¹
(
rq
->
buæ’
 =ðÔq->
’dbuf
 -„q->
buf
));

130 ià(
rq
->
£rvp
 >„q->
’dp
) {

131  
rq
->
buæ’
 +„q->
’dp
 -„q->
£rvp
;

133  
rq
->
’dp
 -„q->
£rvp
;

135 
	}
}

142 
	$ršgqG‘c
(
ršgq_t
 *
rq
)

144 
ch¬_t
 
c
;

145 
ch¬_t
* 
ý
;

147 
	`a_as£¹
(
rq
);

148 
	`a_as£¹
(
rq
->
buæ’
 =ðÔq->
’dbuf
 -„q->
buf
));

150 ià(
rq
->
£rvp
 =ðrq->
’dp
) {

154 
ý
 = (
ch¬_t
*è
rq
->
£rvp
;

155 
c
 = *
ý
++;

156 
rq
->
£rvp
 = (*è
ý
;

157 ià(
rq
->
£rvp
 >ðrq->
’dbuf
) {

158 
rq
->
£rvp
 =„q->
buf
;

170  (è((è
c
);

171 
	}
}

179 
	$ršgqPutc
(
ršgq_t
 *
rq
, 
ch¬_t
 
c
)

181 
ch¬_t
 *
ý
;

183 
	`a_as£¹
(
rq
);

184 
	`a_as£¹
(
rq
->
buæ’
 =ðÔq->
’dbuf
 -„q->
buf
));

186 ià((
	`ršgqPutBlkMax
(
rq
è< (è(
ch¬_t
)è&& !
	`ršgqGrow
(rq)) {

190 
ý
 = (
ch¬_t
*è
rq
->
’dp
;

191 *
ý
++ = (
ch¬_t
è
c
;

192 
rq
->
’dp
 = (*è
ý
;

193 ià(
rq
->
’dp
 >ðrq->
’dbuf
) {

194 
rq
->
’dp
 =„q->
buf
;

197 
	}
}

204 
	$ršgqIn£¹c
(
ršgq_t
 *
rq
, 
ch¬_t
 
c
)

206 
ch¬_t
 *
ý
;

208 
	`a_as£¹
(
rq
);

209 
	`a_as£¹
(
rq
->
buæ’
 =ðÔq->
’dbuf
 -„q->
buf
));

211 ià(
	`ršgqPutBlkMax
(
rq
è< (è(
ch¬_t
è&& !
	`ršgqGrow
(rq)) {

214 ià(
rq
->
£rvp
 <ðrq->
buf
) {

215 
rq
->
£rvp
 =„q->
’dbuf
;

217 
ý
 = (
ch¬_t
*è
rq
->
£rvp
;

218 *--
ý
 = (
ch¬_t
è
c
;

219 
rq
->
£rvp
 = (*è
ý
;

221 
	}
}

228 
	$ršgqPutSŒ
(
ršgq_t
 *
rq
, 
ch¬_t
 *
¡r
)

230 
rc
;

232 
	`a_as£¹
(
rq
);

233 
	`a_as£¹
(
¡r
);

234 
	`a_as£¹
(
rq
->
buæ’
 =ðÔq->
’dbuf
 -„q->
buf
));

236 
rc
 = 
	`ršgqPutBlk
(
rq
, (*è
¡r
, 
	`g¡¾’
(¡rè* (
ch¬_t
));

237 *((
ch¬_t
*è
rq
->
’dp
) = (char_t) '\0';

238  
rc
;

239 
	}
}

246 
	$ršgqAddNuÎ
(
ršgq_t
 *
rq
)

248 
	`a_as£¹
(
rq
);

249 
	`a_as£¹
(
rq
->
buæ’
 =ðÔq->
’dbuf
 -„q->
buf
));

251 *((
ch¬_t
*è
rq
->
’dp
) = (char_t) '\0';

252 
	}
}

255 #ifdeà
UNICODE


260 
	$ršgqG‘cA
(
ršgq_t
 *
rq
)

262 
c
;

264 
	`a_as£¹
(
rq
);

265 
	`a_as£¹
(
rq
->
buæ’
 =ðÔq->
’dbuf
 -„q->
buf
));

267 ià(
rq
->
£rvp
 =ðrq->
’dp
) {

271 
c
 = *
rq
->
£rvp
++;

272 ià(
rq
->
£rvp
 >ðrq->
’dbuf
) {

273 
rq
->
£rvp
 =„q->
buf
;

275  
c
;

276 
	}
}

284 
	$ršgqPutcA
(
ršgq_t
 *
rq
, 
c
)

286 
	`a_as£¹
(
rq
);

287 
	`a_as£¹
(
rq
->
buæ’
 =ðÔq->
’dbuf
 -„q->
buf
));

289 ià(
	`ršgqPutBlkMax
(
rq
è=ð0 && !
	`ršgqGrow
(rq)) {

293 *
rq
->
’dp
++ = (è
c
;

294 ià(
rq
->
’dp
 >ðrq->
’dbuf
) {

295 
rq
->
’dp
 =„q->
buf
;

298 
	}
}

305 
	$ršgqIn£¹cA
(
ršgq_t
 *
rq
, 
c
)

307 
	`a_as£¹
(
rq
);

308 
	`a_as£¹
(
rq
->
buæ’
 =ðÔq->
’dbuf
 -„q->
buf
));

310 ià(
	`ršgqPutBlkMax
(
rq
è=ð0 && !
	`ršgqGrow
(rq)) {

313 ià(
rq
->
£rvp
 <ðrq->
buf
) {

314 
rq
->
£rvp
 =„q->
’dbuf
;

316 *--
rq
->
£rvp
 = (è
c
;

318 
	}
}

326 
	$ršgqPutSŒA
(
ršgq_t
 *
rq
, *
¡r
)

328 
rc
;

330 
	`a_as£¹
(
rq
);

331 
	`a_as£¹
(
¡r
);

332 
	`a_as£¹
(
rq
->
buæ’
 =ðÔq->
’dbuf
 -„q->
buf
));

334 
rc
 = 
	`ršgqPutBlk
(
rq
, (*è
¡r
, 
	`¡¾’
(str));

335 
rq
->
’dp
[0] = '\0';

336  
rc
;

337 
	}
}

346 
	$ršgqPutBlk
(
ršgq_t
 *
rq
, *
buf
, 
size
)

348 
this
, 
by‹s_put
;

350 
	`a_as£¹
(
rq
);

351 
	`a_as£¹
(
rq
->
buæ’
 =ðÔq->
’dbuf
 -„q->
buf
));

352 
	`a_as£¹
(
buf
);

353 
	`a_as£¹
(0 <ð
size
);

358 
by‹s_put
 = 0;

359 
size
 > 0) {

360 
this
 = 
	`mš
(
	`ršgqPutBlkMax
(
rq
), 
size
);

361 ià(
this
 <= 0) {

362 ià(! 
	`ršgqGrow
(
rq
)) {

365 
this
 = 
	`mš
(
	`ršgqPutBlkMax
(
rq
), 
size
);

368 
	`memýy
(
rq
->
’dp
, 
buf
, 
this
);

369 
buf
 +ð
this
;

370 
rq
->
’dp
 +ð
this
;

371 
size
 -ð
this
;

372 
by‹s_put
 +ð
this
;

374 ià(
rq
->
’dp
 >ðrq->
’dbuf
) {

375 
rq
->
’dp
 =„q->
buf
;

378  
by‹s_put
;

379 
	}
}

386 
	$ršgqG‘Blk
(
ršgq_t
 *
rq
, *
buf
, 
size
)

388 
this
, 
by‹s_»ad
;

390 
	`a_as£¹
(
rq
);

391 
	`a_as£¹
(
rq
->
buæ’
 =ðÔq->
’dbuf
 -„q->
buf
));

392 
	`a_as£¹
(
buf
);

393 
	`a_as£¹
(0 <ð
size
 && siz< 
rq
->
buæ’
);

398 
by‹s_»ad
 = 0;

399 
size
 > 0) {

400 
this
 = 
	`ršgqG‘BlkMax
(
rq
);

401 
this
 = 
	`mš
Ñhis, 
size
);

402 ià(
this
 <= 0) {

406 
	`memýy
(
buf
, 
rq
->
£rvp
, 
this
);

407 
buf
 +ð
this
;

408 
rq
->
£rvp
 +ð
this
;

409 
size
 -ð
this
;

410 
by‹s_»ad
 +ð
this
;

412 ià(
rq
->
£rvp
 >ðrq->
’dbuf
) {

413 
rq
->
£rvp
 =„q->
buf
;

416  
by‹s_»ad
;

417 
	}
}

425 
	$ršgqPutBlkMax
(
ršgq_t
 *
rq
)

427 
¥aû
, 
š_a_lše
;

429 
	`a_as£¹
(
rq
);

430 
	`a_as£¹
(
rq
->
buæ’
 =ðÔq->
’dbuf
 -„q->
buf
));

432 
¥aû
 = 
rq
->
buæ’
 - 
	`RINGQ_LEN
(rq) - 1;

433 
š_a_lše
 = 
rq
->
’dbuf
 -„q->
’dp
;

435  
	`mš
(
š_a_lše
, 
¥aû
);

436 
	}
}

444 
	$ršgqG‘BlkMax
(
ršgq_t
 *
rq
)

446 
Ën
, 
š_a_lše
;

448 
	`a_as£¹
(
rq
);

449 
	`a_as£¹
(
rq
->
buæ’
 =ðÔq->
’dbuf
 -„q->
buf
));

451 
Ën
 = 
	`RINGQ_LEN
(
rq
);

452 
š_a_lše
 = 
rq
->
’dbuf
 -„q->
£rvp
;

454  
	`mš
(
š_a_lše
, 
Ën
);

455 
	}
}

462 
	$ršgqPutBlkAdj
(
ršgq_t
 *
rq
, 
size
)

464 
	`a_as£¹
(
rq
);

465 
	`a_as£¹
(
rq
->
buæ’
 =ðÔq->
’dbuf
 -„q->
buf
));

466 
	`a_as£¹
(0 <ð
size
 && siz< 
rq
->
buæ’
);

468 
rq
->
’dp
 +ð
size
;

469 ià(
rq
->
’dp
 >ðrq->
’dbuf
) {

470 
rq
->
’dp
 -ðrq->
buæ’
;

475 ià(
rq
->
’dp
 >ðrq->
’dbuf
) {

476 
	`”rÜ
(
E_L
, 
E_LOG
, 
	`T
("Badƒnd…ointer"));

477 
	`ršgqFlush
(
rq
);

479 
	}
}

486 
	$ršgqG‘BlkAdj
(
ršgq_t
 *
rq
, 
size
)

488 
	`a_as£¹
(
rq
);

489 
	`a_as£¹
(
rq
->
buæ’
 =ðÔq->
’dbuf
 -„q->
buf
));

490 
	`a_as£¹
(0 < 
size
 && siz< 
rq
->
buæ’
);

492 
rq
->
£rvp
 +ð
size
;

493 ià(
rq
->
£rvp
 >ðrq->
’dbuf
) {

494 
rq
->
£rvp
 -ðrq->
buæ’
;

499 ià(
rq
->
£rvp
 >ðrq->
’dbuf
) {

500 
	`”rÜ
(
E_L
, 
E_LOG
, 
	`T
("Bad serv…ointer"));

501 
	`ršgqFlush
(
rq
);

503 
	}
}

510 
	$ršgqFlush
(
ršgq_t
 *
rq
)

512 
	`a_as£¹
(
rq
);

513 
	`a_as£¹
(
rq
->
£rvp
);

515 
rq
->
£rvp
 =„q->
buf
;

516 
rq
->
’dp
 =„q->
buf
;

517 ià(
rq
->
£rvp
) {

518 *
rq
->
£rvp
 = '\0';

520 
	}
}

529 
	$ršgqGrow
(
ršgq_t
 *
rq
)

531 *
Ãwbuf
;

532 
Ën
;

534 
	`a_as£¹
(
rq
);

536 ià(
rq
->
maxsize
 >ð0 &&„q->
buæ’
 >=„q->maxsize) {

540 
Ën
 = 
	`ršgqL’
(
rq
);

542 ià((
Ãwbuf
 = 
	`b®loc
(
B_L
, 
rq
->
buæ’
 +„q->
šüem’t
)è=ð
NULL
) {

545 
	`ršgqG‘Blk
(
rq
, 
Ãwbuf
, 
	`ršgqL’
(rq));

546 
	`bä“
(
B_L
, (*è
rq
->
buf
);

549 
rq
->
buæ’
 +ðrq->
šüem’t
;

550 
rq
->
’dp
 = 
Ãwbuf
;

551 
rq
->
£rvp
 = 
Ãwbuf
;

552 
rq
->
buf
 = 
Ãwbuf
;

553 
rq
->
’dbuf
 = &rq->
buf
[rq->
buæ’
];

555 
	`ršgqPutBlk
(
rq
, 
Ãwbuf
, 
Ën
);

560 
rq
->
šüem’t
 = 
	`g‘BšBlockSize
(2 *„q->increment);

563 
	}
}

572 
	$g‘BšBlockSize
(
size
)

574 
q
;

576 
size
 = siz>> 
B_SHIFT
;

577 
q
 = 0; 
size
; size >>= 1) {

578 
q
++;

580  (1 << (
B_SHIFT
 + 
q
));

581 
	}
}

	@rom.c

22 
	~<¡dlib.h
>

24 
	~"wsIÁº.h
"

28 #ifdeà
WEBS_PAGE_ROM


30 
sym_fd_t
 
	gromTab
;

37 
	$websRomO³n
()

39 
websRomPageIndexTy³
 *
w
;

40 
nch¬s
;

41 
ch¬_t
 
Çme
[
SYM_MAX
];

43 
romTab
 = 
	`symO³n
(
WEBS_SYM_INIT
);

45 
w
 = 
websRomPageIndex
; w->
·th
; wip++) {

46 
	`g¡ºýy
(
Çme
, 
w
->
·th
, 
SYM_MAX
);

47 
nch¬s
 = 
	`g¡¾’
(
Çme
) - 1;

48 ià(
nch¬s
 > 0 &&

49 (
Çme
[
nch¬s
] == '/' ||‚ame[nchars] == '\\')) {

50 
Çme
[
nch¬s
] = '\0';

52 
	`symEÁ”
(
romTab
, 
Çme
, 
	`v®ueIÁeg”
((è
w
), 0);

55 
	}
}

62 
	$websRomClo£
()

64 
	`symClo£
(
romTab
);

65 
	}
}

72 
	$websRomPageO³n
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, 
mode
, 
³rm
)

74 
websRomPageIndexTy³
 *
w
;

75 
sym_t
 *
¥
;

77 
	`a_as£¹
(
	`websV®id
(
wp
));

78 
	`a_as£¹
(
·th
 && *path);

80 ià((
¥
 = 
	`symLookup
(
romTab
, 
·th
)è=ð
NULL
) {

83 
w
 = (
websRomPageIndexTy³
*è
¥
->
cÚ‹Á
.
v®ue
.
š‹g”
;

84 
w
->
pos
 = 0;

85  (
wp
->
docfd
 = 
w
 - 
websRomPageIndex
);

86 
	}
}

93 
	$websRomPageClo£
(
fd
)

95 
	}
}

102 
	$websRomPageSt
(
ch¬_t
 *
·th
, 
websStTy³
 *
sbuf
)

104 
websRomPageIndexTy³
 *
w
;

105 
sym_t
 *
¥
;

107 
	`a_as£¹
(
·th
 && *path);

109 ià((
¥
 = 
	`symLookup
(
romTab
, 
·th
)è=ð
NULL
) {

112 
w
 = (
websRomPageIndexTy³
*è
¥
->
cÚ‹Á
.
v®ue
.
š‹g”
;

114 
	`mem£t
(
sbuf
, 0, (
websStTy³
));

115 
sbuf
->
size
 = 
w
->size;

116 ià(
w
->
·ge
 =ð
NULL
) {

117 
sbuf
->
isDœ
 = 1;

120 
	}
}

127 
	$websRomPageR—dD©a
(
webs_t
 
wp
, *
buf
, 
nBy‹s
)

129 
websRomPageIndexTy³
 *
w
;

130 
Ën
;

132 
	`a_as£¹
(
	`websV®id
(
wp
));

133 
	`a_as£¹
(
buf
);

134 
	`a_as£¹
(
wp
->
docfd
 >= 0);

136 
w
 = &
websRomPageIndex
[
wp
->
docfd
];

138 
Ën
 = 
	`mš
(
w
->
size
 - w->
pos
, 
nBy‹s
);

139 
	`memýy
(
buf
, &
w
->
·ge
[w->
pos
], 
Ën
);

140 
w
->
pos
 +ð
Ën
;

141  
Ën
;

142 
	}
}

149 
	$websRomPageS“k
(
webs_t
 
wp
, 
off£t
, 
Üigš
)

151 
websRomPageIndexTy³
 *
w
;

152 
pos
;

154 
	`a_as£¹
(
	`websV®id
(
wp
));

155 
	`a_as£¹
(
Üigš
 =ð
SEEK_SET
 || origš =ð
SEEK_CUR
 || origš =ð
SEEK_END
);

156 
	`a_as£¹
(
wp
->
docfd
 >= 0);

158 
w
 = &
websRomPageIndex
[
wp
->
docfd
];

160 ià(
Üigš
 !ð
SEEK_SET
 && origš !ð
SEEK_CUR
 && origš !ð
SEEK_END
) {

161 
”ºo
 = 
EINVAL
;

165 ià(
wp
->
docfd
 < 0) {

166 
”ºo
 = 
EBADF
;

170 
pos
 = 
off£t
;

171 
Üigš
) {

172 
SEEK_CUR
:

173 
pos
 = 
w
->po + 
off£t
;

175 
SEEK_END
:

176 
pos
 = 
w
->
size
 + 
off£t
;

182 ià(
pos
 < 0) {

183 
”ºo
 = 
EBADF
;

187  (
w
->
pos
 =…os);

188 
	}
}

	@security.c

18 
	~"wsIÁº.h
"

19 
	~"um.h
"

20 #ifdeà
DIGEST_ACCESS_SUPPORT


21 
	~"websda.h
"

32 #iâdeà
USER_MANAGEMENT_SUPPORT


33 
	#umG‘AcûssM‘hodFÜURL
(
u¾
è
AM_FULL


	)

34 
	#umU£rExi¡s
(
u£rid
è0

	)

35 
	#umU£rCªAcûssURL
(
u£rid
, 
u¾
è1

	)

36 
	#umG‘U£rPasswÜd
(
u£rid
è
	`websG‘PasswÜd
()

	)

37 
	#umG‘AcûssLim™Secu»
(
acûssLim™
è0

	)

38 
	#umG‘AcûssLim™
(
u¾
è
NULL


	)

43 
ch¬_t
 
	gwebsPasswÜd
[
WEBS_MAX_PASS
];

44 #ifdeà
_DEBUG


45 
	gdebugSecur™y
 = 1;

47 
	gdebugSecur™y
 = 0;

55 
	$websSecur™yHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
, 
¬g
,

56 
ch¬_t
 *
u¾
, ch¬_ˆ*
·th
, ch¬_ˆ*
qu”y
)

58 
ch¬_t
 *
ty³
, *
u£rid
, *
·sswÜd
, *
acûssLim™
;

59 
æags
, 
nR‘
;

60 
acûssM‘h_t
 
am
;

62 
	`a_as£¹
(
	`websV®id
(
wp
));

63 
	`a_as£¹
(
u¾
 && *url);

64 
	`a_as£¹
(
·th
 && *path);

68 
ty³
 = 
	`websG‘Reque¡Ty³
(
wp
);

69 
·sswÜd
 = 
	`websG‘Reque¡PasswÜd
(
wp
);

70 
u£rid
 = 
	`websG‘Reque¡U£rName
(
wp
);

71 
æags
 = 
	`websG‘Reque¡FÏgs
(
wp
);

75 
acûssLim™
 = 
	`umG‘AcûssLim™
(
·th
);

76 ià(
acûssLim™
 =ð
NULL
) {

83 #ifdeà
WEBS_SSL_SUPPORT


84 
nR‘
 = 
	`umG‘AcûssLim™Secu»
(
acûssLim™
);

85 ià(
nR‘
 && ((
æags
 & 
WEBS_SECURE
) == 0)) {

86 
websSts
.
acûss
++;

87 
	`websE¼Ü
(
wp
, 405, 
	`T
("Access Denied\nSecure‡ccess is„equired."));

88 
	`Œaû
(3, 
	`T
("SEC: NÚ-£cu»‡cûs ©‹m±ed oÀ<%s>\n"), 
·th
);

92 
	`bä“
(
B_L
, 
acûssLim™
);

100 
am
 = 
	`umG‘AcûssM‘hodFÜURL
(
acûssLim™
);

102 
nR‘
 = 0;

103 ià((
æags
 & 
WEBS_LOCAL_REQUEST
è&& (
debugSecur™y
 == 0)) {

107 } ià(
am
 =ð
AM_NONE
) {

111 
websSts
.
acûss
++;

112 
	`websE¼Ü
(
wp
, 404, 
	`T
("Page Not Found"));

113 
nR‘
 = 1;

114 } ià(
u£rid
 && *userid) {

115 ià(!
	`umU£rExi¡s
(
u£rid
)) {

116 
websSts
.
acûss
++;

117 
	`websE¼Ü
(
wp
, 401, 
	`T
("Access Denied\nUnknown User"));

118 
	`Œaû
(3, 
	`T
("SEC: Unknown user <%s>‡ttemptedo‡ccess <%s>\n"),

119 
u£rid
, 
·th
);

120 
nR‘
 = 1;

121 } ià(!
	`umU£rCªAcûssURL
(
u£rid
, 
acûssLim™
)) {

122 
websSts
.
acûss
++;

123 
	`websE¼Ü
(
wp
, 403, 
	`T
("Access Denied\nProhibited User"));

124 
nR‘
 = 1;

125 } ià(
·sswÜd
 && *…assword) {

126 
ch¬_t
 * 
u£½ass
 = 
	`umG‘U£rPasswÜd
(
u£rid
);

127 ià(
u£½ass
) {

128 ià(
	`g¡rcmp
(
·sswÜd
, 
u£½ass
) != 0) {

129 
websSts
.
acûss
++;

130 
	`websE¼Ü
(
wp
, 401, 
	`T
("Access Denied\nWrong Password"));

131 
	`Œaû
(3, 
	`T
("SEC: Password fail for user <%s>")

132 
	`T
("©‹m±Øacûs <%s>\n"), 
u£rid
, 
·th
);

133 
nR‘
 = 1;

140 
	`bä“
 (
B_L
, 
u£½ass
);

142 #ifdeà
DIGEST_ACCESS_SUPPORT


143 } ià(
æags
 & 
WEBS_AUTH_DIGEST
) {

145 
ch¬_t
 *
dige¡C®c
;

150 
wp
->
·sswÜd
 = 
	`umG‘U£rPasswÜd
(
u£rid
);

152 
	`a_as£¹
(
wp
->
dige¡
);

153 
	`a_as£¹
(
wp
->
nÚû
);

154 
	`a_as£¹
(
wp
->
·sswÜd
);

156 
dige¡C®c
 = 
	`websC®cDige¡
(
wp
);

157 
	`a_as£¹
(
dige¡C®c
);

159 ià(
	`g¡rcmp
(
wp
->
dige¡
, 
dige¡C®c
) != 0) {

160 
	`bä“
 (
B_L
, 
dige¡C®c
);

161 
dige¡C®c
 = 
	`websC®cU¾Dige¡
(
wp
);

162 
	`a_as£¹
(
dige¡C®c
);

163 ià(
	`g¡rcmp
(
wp
->
dige¡
, 
dige¡C®c
) != 0) {

164 
websSts
.
acûss
++;

166 
	`websE¼Ü
(
wp
, 401, 
	`T
("Access Denied\nWrong Password"));

167 
nR‘
 = 1;

171 
	`bä“
 (
B_L
, 
dige¡C®c
);

177 #ifdeà
DIGEST_ACCESS_SUPPORT


178 ià(
am
 =ð
AM_DIGEST
) {

179 
wp
->
æags
 |ð
WEBS_AUTH_DIGEST
;

182 
websSts
.
”rÜs
++;

183 
	`websE¼Ü
(
wp
, 401,

184 
	`T
("Accessohis document„equires‡…assword"));

185 
nR‘
 = 1;

187 } ià(
am
 !ð
AM_FULL
) {

192 #ifdeà
DIGEST_ACCESS_SUPPORT


193 ià(
am
 =ð
AM_DIGEST
) {

194 
wp
->
æags
 |ð
WEBS_AUTH_DIGEST
;

197 
websSts
.
”rÜs
++;

198 
	`websE¼Ü
(
wp
, 401, 
	`T
("Accessohis document„equires‡ User ID"));

199 
nR‘
 = 1;

202 
	`bä“
(
B_L
, 
acûssLim™
);

204  
nR‘
;

205 
	}
}

212 
	$websSecur™yD–‘e
()

214 
	`websU¾HªdËrD–‘e
(
websSecur™yHªdËr
);

215 
	}
}

223 
	$websS‘PasswÜd
(
ch¬_t
 *
·sswÜd
)

225 
	`a_as£¹
(
·sswÜd
);

227 
	`g¡ºýy
(
websPasswÜd
, 
·sswÜd
, 
	`TSZ
(websPassword));

228 
	}
}

235 
ch¬_t
 *
	$websG‘PasswÜd
()

237  
	`b¡rdup
(
B_L
, 
websPasswÜd
);

238 
	}
}

	@sock.c

17 
	~<¡ršg.h
>

18 
	~<¡dlib.h
>

20 
	~"uemf.h
"

24 
sock‘_t
 **
	gsock‘Li¡
;

25 
	gsock‘Max
;

26 
	gsock‘Highe¡Fd
 = -1;

30 
sock‘DoOuut
(
sock‘_t
 *
¥
, *
buf
, 
toWr™e
, *
”rCode
);

31 
ŒyAÉ”Ç‹S’dTo
(
sock
, *
buf
, 
toWr™e
, 
i
,

32 
sockaddr
 *
£rv”
);

41 
	$sock‘Wr™e
(
sid
, *
buf
, 
bufsize
)

43 
sock‘_t
 *
¥
;

44 
ršgq_t
 *
rq
;

45 
Ën
, 
by‹sWr™‹n
, 
room
;

47 
	`a_as£¹
(
buf
);

48 
	`a_as£¹
(
bufsize
 >= 0);

50 ià((
¥
 = 
	`sock‘PŒ
(
sid
)è=ð
NULL
) {

59 
rq
 = &
¥
->
outBuf
;

60 
by‹sWr™‹n
 = 0; 
bufsize
 > 0; ) {

61 ià((
room
 = 
	`ršgqPutBlkMax
(
rq
)) == 0) {

62 ià(
	`sock‘Flush
(
sid
) < 0) {

65 ià((
room
 = 
	`ršgqPutBlkMax
(
rq
)) == 0) {

66 ià(
¥
->
æags
 & 
SOCKET_BLOCK
) {

67 #ià(
	`defšed
 (
WIN
è|| defšed (
CE
))

68 
”rCode
;

69 ià(! 
	`sock‘Wa™FÜEv’t
(
¥
, 
FD_WRITE
 | 
SOCKET_WRITABLE
,

70 &
”rCode
)) {

80 
Ën
 = 
	`mš
(
room
, 
bufsize
);

81 
	`ršgqPutBlk
(
rq
, (*è
buf
, 
Ën
);

82 
by‹sWr™‹n
 +ð
Ën
;

83 
bufsize
 -ð
Ën
;

84 
buf
 +ð
Ën
;

86  
by‹sWr™‹n
;

87 
	}
}

94 
	$sock‘Wr™eSŒšg
(
sid
, 
ch¬_t
 *
buf
)

96 #ifdeà
UNICODE


97 *
by‹Buf
;

98 
r
, 
Ën
;

100 
Ën
 = 
	`g¡¾’
(
buf
);

101 
by‹Buf
 = 
	`b®locUniToAsc
(
buf
, 
Ën
);

102 
r
 = 
	`sock‘Wr™e
(
sid
, 
by‹Buf
, 
Ën
);

103 
	`bä“Saã
(
B_L
, 
by‹Buf
);

104  
r
;

106  
	`sock‘Wr™e
(
sid
, 
buf
, 
	`¡¾’
(buf));

108 
	}
}

124 
	$sock‘R—d
(
sid
, *
buf
, 
bufsize
)

126 
sock‘_t
 *
¥
;

127 
ršgq_t
 *
rq
;

128 
Ën
, 
room
, 
”rCode
, 
by‹sR—d
;

130 
	`a_as£¹
(
buf
);

131 
	`a_as£¹
(
bufsize
 > 0);

133 ià((
¥
 = 
	`sock‘PŒ
(
sid
)è=ð
NULL
) {

137 ià(
¥
->
æags
 & 
SOCKET_EOF
) {

141 
rq
 = &
¥
->
šBuf
;

142 
by‹sR—d
 = 0; 
bufsize
 > 0; ) {

143 
Ën
 = 
	`mš
(
	`ršgqL’
(
rq
), 
bufsize
);

144 ià(
Ën
 <= 0) {

149 ià((
¥
->
æags
 & 
SOCKET_BLOCK
) &&

150 (
by‹sR—d
 > 0)) {

158 
	`ršgqFlush
(
rq
);

159 
room
 = 
	`ršgqPutBlkMax
(
rq
);

160 
Ën
 = 
	`sock‘G‘IÅut
(
sid
, (*è
rq
->
’dp
, 
room
, &
”rCode
);

161 ià(
Ën
 < 0) {

162 ià(
”rCode
 =ð
EWOULDBLOCK
) {

163 ià((
¥
->
æags
 & 
SOCKET_BLOCK
) &&

164 (
by‹sR—d
 == 0)) {

167 ià(
by‹sR—d
 >= 0) {

168  
by‹sR—d
;

173 } ià(
Ën
 == 0) {

179 ià(
by‹sR—d
 == 0) {

180 
¥
->
æags
 |ð
SOCKET_EOF
;

182  
by‹sR—d
;

184 
	`ršgqPutBlkAdj
(
rq
, 
Ën
);

185 
Ën
 = 
	`mš
Ö’, 
bufsize
);

187 
	`memýy
(&
buf
[
by‹sR—d
], 
rq
->
£rvp
, 
Ën
);

188 
	`ršgqG‘BlkAdj
(
rq
, 
Ën
);

189 
bufsize
 -ð
Ën
;

190 
by‹sR—d
 +ð
Ën
;

192  
by‹sR—d
;

193 
	}
}

206 
	$sock‘G‘s
(
sid
, 
ch¬_t
 **
buf
)

208 
sock‘_t
 *
¥
;

209 
ršgq_t
 *
lq
;

210 
c
;

211 
rc
, 
Ën
;

213 
	`a_as£¹
(
buf
);

214 *
buf
 = 
NULL
;

216 ià((
¥
 = 
	`sock‘PŒ
(
sid
)è=ð
NULL
) {

219 
lq
 = &
¥
->
lšeBuf
;

223 ià((
rc
 = 
	`sock‘R—d
(
sid
, &
c
, 1)) < 0) {

224  
rc
;

227 ià(
rc
 == 0) {

231 ià(
	`ršgqL’
(
lq
è> 0 && (
¥
->
æags
 & 
SOCKET_EOF
)) {

232 
c
 = '\n';

241 ià(
	`ršgqL’
(
lq
è> 
E_MAX_REQUEST
) {

242 
c
 = '\n';

248 ià(
c
 == '\n') {

249 
Ën
 = 
	`ršgqL’
(
lq
);

250 ià(
Ën
 > 0) {

251 *
buf
 = 
	`b®locAscToUni
((*)
lq
->
£rvp
, 
Ën
);

253 *
buf
 = 
NULL
;

255 
	`ršgqFlush
(
lq
);

256  
Ën
;

258 } ià(
c
 == '\r') {

261 
	`ršgqPutcA
(
lq
, 
c
);

264 
	}
}

272 
	$sock‘Flush
(
sid
)

274 
sock‘_t
 *
¥
;

275 
ršgq_t
 *
rq
;

276 
Ën
, 
by‹sWr™‹n
, 
”rCode
;

278 ià((
¥
 = 
	`sock‘PŒ
(
sid
)è=ð
NULL
) {

281 
rq
 = &
¥
->
outBuf
;

287 ià(! (
¥
->
æags
 & 
SOCKET_BLOCK
)) {

288 
¥
->
æags
 |ð
SOCKET_FLUSHING
;

295 
	`ršgqL’
(
rq
) > 0) {

296 
Ën
 = 
	`ršgqG‘BlkMax
(&
¥
->
outBuf
);

297 
by‹sWr™‹n
 = 
	`sock‘DoOuut
(
¥
, (*è
rq
->
£rvp
, 
Ën
, &
”rCode
);

298 ià(
by‹sWr™‹n
 < 0) {

299 ià(
”rCode
 =ð
EINTR
) {

301 } ià(
”rCode
 =ð
EWOULDBLOCK
 ||ƒ¼Cod=ð
EAGAIN
) {

302 #ià(
	`defšed
 (
WIN
è|| defšed (
CE
))

303 ià(
¥
->
æags
 & 
SOCKET_BLOCK
) {

304 
”rCode
;

305 ià(! 
	`sock‘Wa™FÜEv’t
(
¥
, 
FD_WRITE
 | 
SOCKET_WRITABLE
,

306 &
”rCode
)) {

317 ià(
¥
->
§veMask
 < 0 ) {

318 
¥
->
§veMask
 = sp->
hªdËrMask
;

319 
	`sock‘Regi¡”IÁ”e¡
(
¥
,

320 
¥
->
hªdËrMask
 | 
SOCKET_WRITABLE
);

326 
	`ršgqG‘BlkAdj
(
rq
, 
by‹sWr™‹n
);

333 ià(
	`ršgqL’
(
rq
) == 0) {

334 
	`ršgqFlush
(
rq
);

340 ià(
¥
->
§veMask
 >= 0) {

341 
	`sock‘Regi¡”IÁ”e¡
(
¥
, sp->
§veMask
);

342 
¥
->
§veMask
 = -1;

344 
¥
->
æags
 &ð~
SOCKET_FLUSHING
;

346 
	}
}

354 
	$sock‘IÅutBufã»d
(
sid
)

356 
sock‘_t
 *
¥
;

358 ià((
¥
 = 
	`sock‘PŒ
(
sid
)è=ð
NULL
) {

361 ià(
	`sock‘Eof
(
sid
)) {

364  
	`ršgqL’
(&
¥
->
šBuf
);

365 
	}
}

372 
	$sock‘Eof
(
sid
)

374 
sock‘_t
 *
¥
;

376 ià((
¥
 = 
	`sock‘PŒ
(
sid
)è=ð
NULL
) {

379  
¥
->
æags
 & 
SOCKET_EOF
;

380 
	}
}

387 
	$sock‘CªWr™e
(
sid
)

389 
sock‘_t
 *
¥
;

391 ià((
¥
 = 
	`sock‘PŒ
(
sid
)è=ð
NULL
) {

394  
¥
->
outBuf
.
buæ’
 - 
	`ršgqL’
(&sp->outBuf) - 1;

395 
	}
}

402 
	$sock‘S‘BufãrSize
(
sid
, 
š
, 
lše
, 
out
)

404 
sock‘_t
 *
¥
;

406 ià((
¥
 = 
	`sock‘PŒ
(
sid
)è=ð
NULL
) {

410 ià(
š
 >= 0) {

411 
	`ršgqClo£
(&
¥
->
šBuf
);

412 
š
++;

413 
	`ršgqO³n
(&
¥
->
šBuf
, 
š
, in);

416 ià(
lše
 >= 0) {

417 
	`ršgqClo£
(&
¥
->
lšeBuf
);

418 
lše
++;

419 
	`ršgqO³n
(&
¥
->
lšeBuf
, 
lše
,†ine);

422 ià(
out
 >= 0) {

423 
	`ršgqClo£
(&
¥
->
outBuf
);

424 
out
++;

425 
	`ršgqO³n
(&
¥
->
outBuf
, 
out
, out);

427 
	}
}

435 
	$sock‘C»©eHªdËr
(
sid
, 
hªdËrMask
, 
sock‘HªdËr_t
 
hªdËr
,

436 * 
d©a
)

438 
sock‘_t
 *
¥
;

440 ià((
¥
 = 
	`sock‘PŒ
(
sid
)è=ð
NULL
) {

443 
¥
->
hªdËr
 = handler;

444 
¥
->
hªdËr_d©a
 = 
d©a
;

445 
	`sock‘Regi¡”IÁ”e¡
(
¥
, 
hªdËrMask
);

446 
	}
}

453 
	$sock‘D–‘eHªdËr
(
sid
)

455 
sock‘_t
 *
¥
;

457 ià((
¥
 = 
	`sock‘PŒ
(
sid
)è=ð
NULL
) {

460 
¥
->
hªdËr
 = 
NULL
;

461 
	`sock‘Regi¡”IÁ”e¡
(
¥
, 0);

462 
	}
}

470 
	$sock‘DoOuut
(
sock‘_t
 *
¥
, *
buf
, 
toWr™e
, *
”rCode
)

472 
sockaddr_š
 
£rv”
;

473 
by‹s
;

475 
	`a_as£¹
(
¥
);

476 
	`a_as£¹
(
buf
);

477 
	`a_as£¹
(
toWr™e
 > 0);

478 
	`a_as£¹
(
”rCode
);

480 *
”rCode
 = 0;

482 #ià(
	`defšed
 (
WIN
è|| defšed (
CE
))

483 ià((
¥
->
æags
 & 
SOCKET_ASYNC
)

484 && ! 
	`sock‘Wa™FÜEv’t
(
¥
, 
FD_CONNECT
, 
”rCode
)) {

492 ià(
¥
->
æags
 & 
SOCKET_BROADCAST
) {

493 
£rv”
.
sš_çmžy
 = 
AF_INET
;

494 
£rv”
.
sš_addr
.
s_addr
 = 
INADDR_BROADCAST
;

495 
£rv”
.
sš_pÜt
 = 
	`htÚs
(()(
¥
->
pÜt
 & 0xFFFF));

496 ià((
by‹s
 = 
	`£ndto
(
¥
->
sock
, 
buf
, 
toWr™e
, 0,

497 (
sockaddr
 *è&
£rv”
, (server))) < 0) {

498 
by‹s
 = 
	`ŒyAÉ”Ç‹S’dTo
(
¥
->
sock
, 
buf
, 
toWr™e
, 0,

499 (
sockaddr
 *è&
£rv”
);

501 } ià(
¥
->
æags
 & 
SOCKET_DATAGRAM
) {

502 
£rv”
.
sš_çmžy
 = 
AF_INET
;

503 
£rv”
.
sš_addr
.
s_addr
 = 
	`š‘_addr
(
¥
->
ho¡
);

504 
£rv”
.
sš_pÜt
 = 
	`htÚs
(()(
¥
->
pÜt
 & 0xFFFF));

505 
by‹s
 = 
	`£ndto
(
¥
->
sock
, 
buf
, 
toWr™e
, 0,

506 (
sockaddr
 *è&
£rv”
, (server));

509 
by‹s
 = 
	`£nd
(
¥
->
sock
, 
buf
, 
toWr™e
, 0);

512 ià(
by‹s
 < 0) {

513 *
”rCode
 = 
	`sock‘G‘E¼Ü
();

514 #ià(
	`defšed
 (
WIN
è|| defšed (
CE
))

515 
¥
->
cu¼’tEv’ts
 &ð~
FD_WRITE
;

520 } ià(
by‹s
 =ð0 && by‹ !ð
toWr™e
) {

521 *
”rCode
 = 
EWOULDBLOCK
;

522 #ià(
	`defšed
 (
WIN
è|| defšed (
CE
))

523 
¥
->
cu¼’tEv’ts
 &ð~
FD_WRITE
;

532  
by‹s
;

533 
	}
}

542 
	$ŒyAÉ”Ç‹S’dTo
(
sock
, *
buf
, 
toWr™e
, 
i
,

543 
sockaddr
 *
£rv”
)

545 #ifdeà
VXWORKS


546 *
±r
;

548 
±r
 = (*)
£rv”
;

549 *
±r
 = *(ptr+1);

550 *(
±r
+1) = 0;

551  
	`£ndto
(
sock
, 
buf
, 
toWr™e
, 
i
, 
£rv”
, (
sockaddr
));

555 
	}
}

562 
	$sock‘AÎoc
(*
ho¡
, 
pÜt
, 
sock‘Acû±_t
 
acû±
, 
æags
)

564 
sock‘_t
 *
¥
;

565 
sid
;

567 ià((
sid
 = 
	`hAÎocEÁry
((***è&
sock‘Li¡
, &
sock‘Max
,

568 (
sock‘_t
))) < 0) {

571 
¥
 = 
sock‘Li¡
[
sid
];

573 
¥
->
sid
 = sid;

574 
¥
->
acû±
 =‡ccept;

575 
¥
->
pÜt
 =…ort;

576 
¥
->
fžeHªdË
 = -1;

577 
¥
->
§veMask
 = -1;

579 ià(
ho¡
) {

580 
	`¡ºýy
(
¥
->
ho¡
, host, (sp->host));

586 
	`a_as£¹
((
æags
 & ~(
SOCKET_BROADCAST
|
SOCKET_DATAGRAM
|
SOCKET_BLOCK
|

587 
SOCKET_LISTENING
)) == 0);

588 
¥
->
æags
 = fÏg & (
SOCKET_BROADCAST
 | 
SOCKET_DATAGRAM
 | 
SOCKET_BLOCK
 |

589 
SOCKET_LISTENING
 | 
SOCKET_MYOWNBUFFERS
);

591 ià(!(
æags
 & 
SOCKET_MYOWNBUFFERS
)) {

595 
	`ršgqO³n
(&
¥
->
šBuf
, 
SOCKET_BUFSIZ
, SOCKET_BUFSIZ);

596 
	`ršgqO³n
(&
¥
->
outBuf
, 
SOCKET_BUFSIZ
 + 1, SOCKET_BUFSIZ + 1);

598 
	`mem£t
(&
¥
->
šBuf
, 0x0, (
ršgq_t
));

599 
	`mem£t
(&
¥
->
outBuf
, 0x0, (
ršgq_t
));

601 
	`ršgqO³n
(&
¥
->
lšeBuf
, 
SOCKET_BUFSIZ
, -1);

603  
sid
;

604 
	}
}

611 
	$sock‘F»e
(
sid
)

613 
sock‘_t
 *
¥
;

614 
ch¬_t
 
buf
[256];

615 
i
;

617 ià((
¥
 = 
	`sock‘PŒ
(
sid
)è=ð
NULL
) {

629 
	`sock‘Regi¡”IÁ”e¡
(
¥
, 0);

630 ià(
¥
->
sock
 >= 0) {

631 
	`sock‘S‘Block
(
sid
, 0);

632 ià(
	`shutdown
(
¥
->
sock
, 1) >= 0) {

633 
	`»cv
(
¥
->
sock
, 
buf
, (buf), 0);

635 #ià(
	`defšed
 (
WIN
è|| defšed (
CE
))

636 
	`þo£sock‘
(
¥
->
sock
);

638 
	`þo£
(
¥
->
sock
);

642 ià(!(
¥
->
æags
 & 
SOCKET_MYOWNBUFFERS
)) {

643 
	`ršgqClo£
(&
¥
->
šBuf
);

644 
	`ršgqClo£
(&
¥
->
outBuf
);

646 
	`ršgqClo£
(&
¥
->
lšeBuf
);

648 
	`bä“
(
B_L
, 
¥
);

649 
sock‘Max
 = 
	`hF»e
((***è&
sock‘Li¡
, 
sid
);

654 
sock‘Highe¡Fd
 = -1;

655 
i
 = 0; i < 
sock‘Max
; i++) {

656 ià((
¥
 = 
sock‘Li¡
[
i
]è=ð
NULL
) {

659 
sock‘Highe¡Fd
 = 
	`max
(sock‘Highe¡Fd, 
¥
->
sock
);

661 
	}
}

668 
sock‘_t
 *
	$sock‘PŒ
(
sid
)

670 ià(
sid
 < 0 || sid >ð
sock‘Max
 || 
sock‘Li¡
[sid] =ð
NULL
) {

671 
	`a_as£¹
(
NULL
);

672 
”ºo
 = 
EBADF
;

673  
NULL
;

676 
	`a_as£¹
(
sock‘Li¡
[
sid
]);

677  
sock‘Li¡
[
sid
];

678 
	}
}

685 
	$sock‘G‘E¼Ü
()

687 #ià(
	`defšed
 (
WIN
è|| defšed (
CE
))

688 
	`WSAG‘La¡E¼Ü
()) {

689 
WSAEWOULDBLOCK
:

690  
EWOULDBLOCK
;

691 
WSAECONNRESET
:

692  
ECONNRESET
;

693 
WSAENETDOWN
:

694  
ENETDOWN
;

695 
WSAEPROCLIM
:

696  
EAGAIN
;

697 
WSAEINTR
:

698  
EINTR
;

700  
EINVAL
;

703  
”ºo
;

705 
	}
}

712 
	$sock‘G‘HªdË
(
sid
)

714 
sock‘_t
 *
¥
;

716 ià((
¥
 = 
	`sock‘PŒ
(
sid
)è=ð
NULL
) {

719  
¥
->
sock
;

720 
	}
}

727 
	$sock‘G‘Block
(
sid
)

729 
sock‘_t
 *
¥
;

731 ià((
¥
 = 
	`sock‘PŒ
(
sid
)è=ð
NULL
) {

732 
	`a_as£¹
(0);

735  (
¥
->
æags
 & 
SOCKET_BLOCK
);

736 
	}
}

743 
	$sock‘G‘Mode
(
sid
)

745 
sock‘_t
 *
¥
;

747 ià((
¥
 = 
	`sock‘PŒ
(
sid
)è=ð
NULL
) {

748 
	`a_as£¹
(0);

751  
¥
->
æags
;

752 
	}
}

759 
	$sock‘S‘Mode
(
sid
, 
mode
)

761 
sock‘_t
 *
¥
;

763 ià((
¥
 = 
	`sock‘PŒ
(
sid
)è=ð
NULL
) {

764 
	`a_as£¹
(0);

767 
¥
->
æags
 = 
mode
;

768 
	}
}

775 
	$sock‘G‘PÜt
(
sid
)

777 
sock‘_t
 *
¥
;

779 ià((
¥
 = 
	`sock‘PŒ
(
sid
)è=ð
NULL
) {

782  
¥
->
pÜt
;

783 
	}
}

	@sockGen.c

16 #ià(!
defšed
 (
WIN
è|| defšed (
LITTLEFOOT
è|| defšed (
WEBS
))

19 #iâdeà
CE


20 
	~<”ºo.h
>

21 
	~<fúŽ.h
>

22 
	~<¡ršg.h
>

23 
	~<¡dlib.h
>

26 
	~"uemf.h
"

28 #ifdeà
VXWORKS


29 
	~<ho¡Lib.h
>

34 
sock‘_t
 **
sock‘Li¡
;

35 
sock‘Max
;

36 
sock‘Highe¡Fd
;

37 
	gsock‘O³nCouÁ
 = 0;

41 
sock‘Acû±
(
sock‘_t
 *
¥
);

42 
sock‘DoEv’t
(
sock‘_t
 *
¥
);

43 
ŒyAÉ”Ç‹CÚÃù
(
sock
, 
sockaddr
 *sockaddr);

50 
	$sock‘O³n
()

52 #ià(
	`defšed
 (
CE
è|| defšed (
WIN
))

53 
WSADATA
 
w§D©a
;

56 ià(++
sock‘O³nCouÁ
 > 1) {

60 #ià(
	`defšed
 (
CE
è|| defšed (
WIN
))

61 ià(
	`WSAS¹up
(
	`MAKEWORD
(1,1), &
w§D©a
) != 0) {

64 ià(
w§D©a
.
wV”siÚ
 !ð
	`MAKEWORD
(1,1)) {

65 
	`WSACËªup
();

70 
sock‘Li¡
 = 
NULL
;

71 
sock‘Max
 = 0;

72 
sock‘Highe¡Fd
 = -1;

75 
	}
}

82 
	$sock‘Clo£
()

84 
i
;

86 ià(--
sock‘O³nCouÁ
 <= 0) {

87 
i
 = 
sock‘Max
; i >= 0; i--) {

88 ià(
sock‘Li¡
 && sock‘Li¡[
i
]) {

89 
	`sock‘Clo£CÚÃùiÚ
(
i
);

92 
sock‘O³nCouÁ
 = 0;

94 
	}
}

101 
	$sock‘O³nCÚÃùiÚ
(*
ho¡
, 
pÜt
, 
sock‘Acû±_t
 
acû±
, 
æags
)

103 #ià(!
	`defšed
 (
NO_GETHOSTBYNAME
è&& !defšed (
VXWORKS
))

104 
ho¡’t
 *hostent;

106 
sock‘_t
 *
¥
;

107 
sockaddr_š
 
sockaddr
;

108 
sid
, 
bÿ¡
, 
dg¿m
, 
rc
;

110 ià(
pÜt
 > 
SOCKET_PORT_MAX
) {

116 ià((
sid
 = 
	`sock‘AÎoc
(
ho¡
, 
pÜt
, 
acû±
, 
æags
)) < 0) {

119 
¥
 = 
sock‘Li¡
[
sid
];

120 
	`a_as£¹
(
¥
);

125 
	`mem£t
((*è&
sockaddr
, '\0', (
sockaddr_š
));

126 
sockaddr
.
sš_çmžy
 = 
AF_INET
;

127 
sockaddr
.
sš_pÜt
 = 
	`htÚs
((è(
pÜt
 & 0xFFFF));

129 ià(
ho¡
 =ð
NULL
) {

130 
sockaddr
.
sš_addr
.
s_addr
 = 
INADDR_ANY
;

132 
sockaddr
.
sš_addr
.
s_addr
 = 
	`š‘_addr
(
ho¡
);

133 ià(
sockaddr
.
sš_addr
.
s_addr
 =ð
INADDR_NONE
) {

141 #ifdeà
NO_GETHOSTBYNAME


142 ià(
	`¡rcmp
(
ho¡
, 
	`basicG‘Ho¡
()) == 0) {

143 
sockaddr
.
sš_addr
.
s_addr
 = 
	`š‘_addr
(
	`basicG‘Add»ss
());

145 ià(
sockaddr
.
sš_addr
.
s_addr
 =ð
INADDR_NONE
) {

146 
	`sock‘F»e
(
sid
);

149 #–ià(
	`defšed
 (
VXWORKS
))

150 
sockaddr
.
sš_addr
.
s_addr
 = (è
	`ho¡G‘ByName
(
ho¡
);

151 ià(
sockaddr
.
sš_addr
.
s_addr
 =ð
NULL
) {

152 
”ºo
 = 
ENXIO
;

153 
	`sock‘F»e
(
sid
);

157 
ho¡’t
 = 
	`g‘ho¡byÇme
(
ho¡
);

158 ià(
ho¡’t
 !ð
NULL
) {

159 
	`memýy
((*è&
sockaddr
.
sš_addr
,

160 (*è
ho¡’t
->
h_addr_li¡
[0],

161 (
size_t
è
ho¡’t
->
h_Ëngth
);

163 *
asciiAdd»ss
;

164 
ch¬_t
 *
add»ss
;

166 
add»ss
 = 
	`basicG‘Add»ss
();

167 
asciiAdd»ss
 = 
	`b®locUniToAsc
(
add»ss
, 
	`g¡¾’
(address));

168 
sockaddr
.
sš_addr
.
s_addr
 = 
	`š‘_addr
(
asciiAdd»ss
);

169 
	`bä“
(
B_L
, 
asciiAdd»ss
);

170 ià(
sockaddr
.
sš_addr
.
s_addr
 =ð
INADDR_NONE
) {

171 
”ºo
 = 
ENXIO
;

172 
	`sock‘F»e
(
sid
);

180 
bÿ¡
 = 
¥
->
æags
 & 
SOCKET_BROADCAST
;

181 ià(
bÿ¡
) {

182 
¥
->
æags
 |ð
SOCKET_DATAGRAM
;

184 
dg¿m
 = 
¥
->
æags
 & 
SOCKET_DATAGRAM
;

190 
¥
->
sock
 = 
	`sock‘
(
AF_INET
, 
dg¿m
 ? 
SOCK_DGRAM
: 
SOCK_STREAM
, 0);

191 ià(
¥
->
sock
 < 0) {

192 
	`sock‘F»e
(
sid
);

195 #iâdeà
__NO_FCNTL


196 
	`fúŽ
(
¥
->
sock
, 
F_SETFD
, 
FD_CLOEXEC
);

198 
sock‘Highe¡Fd
 = 
	`max
(sock‘Highe¡Fd, 
¥
->
sock
);

203 ià(
bÿ¡
) {

204 
brßdÿ¡FÏg
 = 1;

205 ià(
	`£tsockÝt
(
¥
->
sock
, 
SOL_SOCKET
, 
SO_BROADCAST
,

206 (*è&
brßdÿ¡FÏg
, (broadcastFlag)) < 0) {

207 
	`sock‘F»e
(
sid
);

215 ià(
ho¡
) {

220 ià(!
dg¿m
) {

221 ià(! (
¥
->
æags
 & 
SOCKET_BLOCK
)) {

227 #ià(
	`defšed
 (
WIN
è|| defšed (
CE
)è&& (!defšed (
LITTLEFOOT
è&& !defšed (
WEBS
))

228 
æag
;

230 
¥
->
æags
 |ð
SOCKET_ASYNC
;

234 
æag
 = 1;

235 ià(
	`ioùlsock‘
(
¥
->
sock
, 
FIONBIO
, &
æag
è=ð
SOCKET_ERROR
) {

236 
	`sock‘F»e
(
sid
);

240 
	`sock‘S‘Block
(
sid
, 1);

244 ià((
rc
 = 
	`cÚÃù
(
¥
->
sock
, (
sockaddr
 *) &sockaddr,

245 (
sockaddr
))) < 0 &&

246 (
rc
 = 
	`ŒyAÉ”Ç‹CÚÃù
(
¥
->
sock
,

247 (
sockaddr
 *) &sockaddr)) < 0) {

248 #ià(
	`defšed
 (
WIN
è|| defšed (
CE
))

249 ià(
	`sock‘G‘E¼Ü
(è!ð
EWOULDBLOCK
) {

250 
	`sock‘F»e
(
sid
);

254 
	`sock‘F»e
(
sid
);

265 
rc
 = 1;

266 
	`£tsockÝt
(
¥
->
sock
, 
SOL_SOCKET
, 
SO_REUSEADDR
, (*)&
rc
, (rc));

267 ià(
	`bšd
(
¥
->
sock
, (
sockaddr
 *) &sockaddr,

268 (
sockaddr
)) < 0) {

269 
	`sock‘F»e
(
sid
);

273 ià(! 
dg¿m
) {

274 ià(
	`li¡’
(
¥
->
sock
, 
SOMAXCONN
) < 0) {

275 
	`sock‘F»e
(
sid
);

278 
¥
->
æags
 |ð
SOCKET_LISTENING
;

280 
¥
->
hªdËrMask
 |ð
SOCKET_READABLE
;

287 ià(
æags
 & 
SOCKET_BLOCK
) {

288 
	`sock‘S‘Block
(
sid
, 1);

290 
	`sock‘S‘Block
(
sid
, 0);

292  
sid
;

293 
	}
}

304 
	$ŒyAÉ”Ç‹CÚÃù
(
sock
, 
sockaddr
 *sockaddr)

306 #ifdeà
VXWORKS


307 *
±r
;

309 
±r
 = (*)
sockaddr
;

310 *
±r
 = *(ptr+1);

311 *(
±r
+1) = 0;

312  
	`cÚÃù
(
sock
, 
sockaddr
, (sockaddr));

316 
	}
}

323 
	$sock‘Clo£CÚÃùiÚ
(
sid
)

325 
sock‘_t
 *
¥
;

327 ià((
¥
 = 
	`sock‘PŒ
(
sid
)è=ð
NULL
) {

330 
	`sock‘F»e
(
sid
);

331 
	}
}

338 
	$sock‘Acû±
(
sock‘_t
 *
¥
)

340 
sockaddr_š
 
addr
;

341 
sock‘_t
 *
n¥
;

342 
size_t
 
Ën
;

343 *
pSŒšg
;

344 
ÃwSock
, 
nid
;

347 #ifdeà
NW


348 
NETINET_DEFINE_CONTEXT
;

351 
	`a_as£¹
(
¥
);

356 
Ën
 = (
sockaddr_š
);

357 ià((
ÃwSock
 =

358 
	`acû±
(
¥
->
sock
, (
sockaddr
 *è&
addr
, (
sockËn_t
 *è&
Ën
)) < 0) {

361 #iâdeà
__NO_FCNTL


362 
	`fúŽ
(
ÃwSock
, 
F_SETFD
, 
FD_CLOEXEC
);

364 
sock‘Highe¡Fd
 = 
	`max
(sock‘Highe¡Fd, 
ÃwSock
);

369 
nid
 = 
	`sock‘AÎoc
(
¥
->
ho¡
, sp->
pÜt
, sp->
acû±
, sp->
æags
);

370 
n¥
 = 
sock‘Li¡
[
nid
];

371 
	`a_as£¹
(
n¥
);

372 
n¥
->
sock
 = 
ÃwSock
;

373 
n¥
->
æags
 &ð~
SOCKET_LISTENING
;

375 ià(
n¥
 =ð
NULL
) {

382 
	`sock‘S‘Block
(
nid
, (
n¥
->
æags
 & 
SOCKET_BLOCK
) ? 1: 0);

387 ià(
¥
->
acû±
 !ð
NULL
) {

388 
pSŒšg
 = 
	`š‘_Áß
(
addr
.
sš_addr
);

389 ià((
¥
->
acû±
)(
nid
, 
pSŒšg
, 
	`Áohs
(
addr
.
sš_pÜt
), sp->
sid
) < 0) {

390 
	`sock‘F»e
(
nid
);

392 #ifdeà
VXWORKS


393 
	`ä“
(
pSŒšg
);

396 
	}
}

404 
	$sock‘G‘IÅut
(
sid
, *
buf
, 
toR—d
, *
”rCode
)

406 
sockaddr_š
 
£rv”
;

407 
sock‘_t
 *
¥
;

408 
Ën
, 
by‹sR—d
;

410 
	`a_as£¹
(
buf
);

411 
	`a_as£¹
(
”rCode
);

413 *
”rCode
 = 0;

415 ià((
¥
 = 
	`sock‘PŒ
(
sid
)è=ð
NULL
) {

422 ià(
¥
->
æags
 & 
SOCKET_EOF
) {

425 #ià((
	`defšed
 (
WIN
è|| defšed (
CE
)è&& (!defšed (
LITTLEFOOT
è&& !defšed (
WEBS
)))

426 iàÐ!(
¥
->
æags
 & 
SOCKET_BLOCK
)

427 && ! 
	`sock‘Wa™FÜEv’t
(
¥
, 
FD_CONNECT
, 
”rCode
)) {

435 ià(
¥
->
æags
 & 
SOCKET_DATAGRAM
) {

436 
Ën
 = (
£rv”
);

437 
by‹sR—d
 = 
	`»cväom
(
¥
->
sock
, 
buf
, 
toR—d
, 0,

438 (
sockaddr
 *è&
£rv”
, (
sockËn_t
 *è&
Ën
);

440 
by‹sR—d
 = 
	`»cv
(
¥
->
sock
, 
buf
, 
toR—d
, 0);

452 ià(
by‹sR—d
 < 0)

454 *
”rCode
 = 
	`sock‘G‘E¼Ü
();

455 ià(*
”rCode
 =ð
ECONNRESET
)

457 
¥
->
æags
 |ð
SOCKET_CONNRESET
;

462  
by‹sR—d
;

463 
	}
}

476 
	$sock‘Regi¡”IÁ”e¡
(
sock‘_t
 *
¥
, 
hªdËrMask
)

478 
	`a_as£¹
(
¥
);

480 
¥
->
hªdËrMask
 = handlerMask;

481 
	}
}

489 
	$sock‘Wa™FÜEv’t
(
sock‘_t
 *
¥
, 
hªdËrMask
, *
”rCode
)

491 
mask
;

493 
	`a_as£¹
(
¥
);

495 
mask
 = 
¥
->
hªdËrMask
;

496 
¥
->
hªdËrMask
 |= handlerMask;

497 
	`sock‘S–eù
(
¥
->
sid
, 1000)) {

498 ià(
¥
->
cu¼’tEv’ts
 & (
hªdËrMask
 | 
SOCKET_EXCEPTION
)) {

502 
¥
->
hªdËrMask
 = 
mask
;

503 ià(
¥
->
cu¼’tEv’ts
 & 
SOCKET_EXCEPTION
) {

505 } ià(
¥
->
cu¼’tEv’ts
 & 
hªdËrMask
) {

508 ià(
”rCode
) {

509 *
”rCode
 = 
”ºo
 = 
EWOULDBLOCK
;

512 
	}
}

519 
	$sock‘R—dy
(
sid
)

521 
sock‘_t
 *
¥
;

522 
®l
;

524 
®l
 = 0;

525 ià(
sid
 < 0) {

526 
sid
 = 0;

527 
®l
 = 1;

530 ; 
sid
 < 
sock‘Max
; sid++) {

531 ià((
¥
 = 
sock‘Li¡
[
sid
]è=ð
NULL
) {

532 ià(! 
®l
) {

538 ià(
¥
->
æags
 & 
SOCKET_CONNRESET
) {

539 
	`sock‘Clo£CÚÃùiÚ
(
sid
);

542 ià(
¥
->
cu¼’tEv’ts
 & sp->
hªdËrMask
) {

548 ià(
¥
->
hªdËrMask
 & 
SOCKET_READABLE
 && 
	`sock‘IÅutBufã»d
(
sid
) > 0) {

549 
	`sock‘S–eù
(
sid
, 0);

552 ià(! 
®l
) {

557 
	}
}

565 #ià(
defšed
 (
WIN
è|| defšed (
CE
è|| defšed (
NW
))

567 
	$sock‘S–eù
(
sid
, 
timeout
)

569 
timev®
 
tv
;

570 
sock‘_t
 *
¥
;

571 
fd_£t
 
»adFds
, 
wr™eFds
, 
exû±Fds
;

572 
nEv’ts
;

573 
®l
, 
sock‘Highe¡Fd
;

575 
	`FD_ZERO
(&
»adFds
);

576 
	`FD_ZERO
(&
wr™eFds
);

577 
	`FD_ZERO
(&
exû±Fds
);

578 
sock‘Highe¡Fd
 = -1;

580 
tv
.
tv_£c
 = 
timeout
 / 1000;

581 
tv
.
tv_u£c
 = (
timeout
 % 1000) * 1000;

586 
®l
 = 
nEv’ts
 = 0;

588 ià(
sid
 < 0) {

589 
®l
++;

590 
sid
 = 0;

593 ; 
sid
 < 
sock‘Max
; sid++) {

594 ià((
¥
 = 
sock‘Li¡
[
sid
]è=ð
NULL
) {

597 
	`a_as£¹
(
¥
);

601 ià(
¥
->
hªdËrMask
 & 
SOCKET_READABLE
) {

602 
	`FD_SET
(
¥
->
sock
, &
»adFds
);

603 
nEv’ts
++;

604 ià(
	`sock‘IÅutBufã»d
(
sid
) > 0) {

605 
tv
.
tv_£c
 = 0;

606 
tv
.
tv_u£c
 = 0;

609 ià(
¥
->
hªdËrMask
 & 
SOCKET_WRITABLE
) {

610 
	`FD_SET
(
¥
->
sock
, &
wr™eFds
);

611 
nEv’ts
++;

613 ià(
¥
->
hªdËrMask
 & 
SOCKET_EXCEPTION
) {

614 
	`FD_SET
(
¥
->
sock
, &
exû±Fds
);

615 
nEv’ts
++;

617 ià(! 
®l
) {

626 ià(
nEv’ts
 == 0) {

627 
	`SË•
(
timeout
);

634 
nEv’ts
 = 
	`£Ëù
(
sock‘Highe¡Fd
+1, &
»adFds
, &
wr™eFds
, &
exû±Fds
, &
tv
);

636 ià(
®l
) {

637 
sid
 = 0;

639 ; 
sid
 < 
sock‘Max
; sid++) {

640 ià((
¥
 = 
sock‘Li¡
[
sid
]è=ð
NULL
) {

644 ià(
	`FD_ISSET
(
¥
->
sock
, &
»adFds
è|| 
	`sock‘IÅutBufã»d
(
sid
) > 0) {

645 
¥
->
cu¼’tEv’ts
 |ð
SOCKET_READABLE
;

647 ià(
	`FD_ISSET
(
¥
->
sock
, &
wr™eFds
)) {

648 
¥
->
cu¼’tEv’ts
 |ð
SOCKET_WRITABLE
;

650 ià(
	`FD_ISSET
(
¥
->
sock
, &
exû±Fds
)) {

651 
¥
->
cu¼’tEv’ts
 |ð
SOCKET_EXCEPTION
;

653 ià(! 
®l
) {

658  
nEv’ts
;

659 
	}
}

663 
	$sock‘S–eù
(
sid
, 
timeout
)

665 
sock‘_t
 *
¥
;

666 
timev®
 
tv
;

667 
fd_mask
 *
»adFds
, *
wr™eFds
, *
exû±Fds
;

668 
®l
, 
Ën
, 
nwÜds
, 
šdex
, 
b™
, 
nEv’ts
;

673 
nwÜds
 = (
sock‘Highe¡Fd
 + 
NFDBITS
) / NFDBITS;

674 
Ën
 = 
nwÜds
 * (
fd_mask
);

676 
»adFds
 = 
	`b®loc
(
B_L
, 
Ën
);

677 
	`mem£t
(
»adFds
, 0, 
Ën
);

678 
wr™eFds
 = 
	`b®loc
(
B_L
, 
Ën
);

679 
	`mem£t
(
wr™eFds
, 0, 
Ën
);

680 
exû±Fds
 = 
	`b®loc
(
B_L
, 
Ën
);

681 
	`mem£t
(
exû±Fds
, 0, 
Ën
);

683 
tv
.
tv_£c
 = 
timeout
 / 1000;

684 
tv
.
tv_u£c
 = (
timeout
 % 1000) * 1000;

689 
®l
 = 
nEv’ts
 = 0;

691 ià(
sid
 < 0) {

692 
®l
++;

693 
sid
 = 0;

696 ; 
sid
 < 
sock‘Max
; sid++) {

697 ià((
¥
 = 
sock‘Li¡
[
sid
]è=ð
NULL
) {

698 ià(
®l
 == 0) {

704 
	`a_as£¹
(
¥
);

709 
šdex
 = 
¥
->
sock
 / (
NBBY
 * (
fd_mask
));

710 
b™
 = 1 << (
¥
->
sock
 % (
NBBY
 * (
fd_mask
)));

715 ià(
¥
->
hªdËrMask
 & 
SOCKET_READABLE
) {

716 
»adFds
[
šdex
] |ð
b™
;

717 
nEv’ts
++;

718 ià(
	`sock‘IÅutBufã»d
(
sid
) > 0) {

719 
tv
.
tv_£c
 = 0;

720 
tv
.
tv_u£c
 = 0;

723 ià(
¥
->
hªdËrMask
 & 
SOCKET_WRITABLE
) {

724 
wr™eFds
[
šdex
] |ð
b™
;

725 
nEv’ts
++;

727 ià(
¥
->
hªdËrMask
 & 
SOCKET_EXCEPTION
) {

728 
exû±Fds
[
šdex
] |ð
b™
;

729 
nEv’ts
++;

731 ià(! 
®l
) {

740 
nEv’ts
 = 
	`£Ëù
(
sock‘Highe¡Fd
 + 1, (
fd_£t
 *è
»adFds
,

741 (
fd_£t
 *è
wr™eFds
, (fd_£ˆ*è
exû±Fds
, &
tv
);

743 ià(
nEv’ts
 > 0) {

744 ià(
®l
) {

745 
sid
 = 0;

747 ; 
sid
 < 
sock‘Max
; sid++) {

748 ià((
¥
 = 
sock‘Li¡
[
sid
]è=ð
NULL
) {

749 ià(
®l
 == 0) {

756 
šdex
 = 
¥
->
sock
 / (
NBBY
 * (
fd_mask
));

757 
b™
 = 1 << (
¥
->
sock
 % (
NBBY
 * (
fd_mask
)));

759 ià(
»adFds
[
šdex
] & 
b™
 || 
	`sock‘IÅutBufã»d
(
sid
) > 0) {

760 
¥
->
cu¼’tEv’ts
 |ð
SOCKET_READABLE
;

762 ià(
wr™eFds
[
šdex
] & 
b™
) {

763 
¥
->
cu¼’tEv’ts
 |ð
SOCKET_WRITABLE
;

765 ià(
exû±Fds
[
šdex
] & 
b™
) {

766 
¥
->
cu¼’tEv’ts
 |ð
SOCKET_EXCEPTION
;

768 ià(! 
®l
) {

774 
	`bä“
(
B_L
, 
»adFds
);

775 
	`bä“
(
B_L
, 
wr™eFds
);

776 
	`bä“
(
B_L
, 
exû±Fds
);

778  
nEv’ts
;

779 
	}
}

787 
	$sock‘Proûss
(
sid
)

789 
sock‘_t
 *
¥
;

790 
®l
;

792 
®l
 = 0;

793 ià(
sid
 < 0) {

794 
®l
 = 1;

795 
sid
 = 0;

800 ; 
sid
 < 
sock‘Max
; sid++) {

801 ià((
¥
 = 
sock‘Li¡
[
sid
]è=ð
NULL
) {

802 ià(! 
®l
) {

808 ià(
	`sock‘R—dy
(
sid
)) {

809 
	`sock‘DoEv’t
(
¥
);

811 ià(! 
®l
) {

815 
	}
}

822 
	$sock‘DoEv’t
(
sock‘_t
 *
¥
)

824 
ršgq_t
 *
rq
;

825 
sid
;

827 
	`a_as£¹
(
¥
);

829 
sid
 = 
¥
->sid;

830 ià(
¥
->
cu¼’tEv’ts
 & 
SOCKET_READABLE
) {

831 ià(
¥
->
æags
 & 
SOCKET_LISTENING
) {

832 
	`sock‘Acû±
(
¥
);

833 
¥
->
cu¼’tEv’ts
 = 0;

842 ià(
¥
->
hªdËrMask
 & 
SOCKET_READABLE
 && 
	`sock‘IÅutBufã»d
(
sid
) > 0) {

843 
¥
->
cu¼’tEv’ts
 |ð
SOCKET_READABLE
;

851 ià(
¥
->
cu¼’tEv’ts
 & 
SOCKET_WRITABLE
) {

852 ià(
¥
->
æags
 & 
SOCKET_FLUSHING
) {

853 
rq
 = &
¥
->
outBuf
;

854 ià(
	`ršgqL’
(
rq
) > 0) {

855 
	`sock‘Flush
(
¥
->
sid
);

857 
¥
->
æags
 &ð~
SOCKET_FLUSHING
;

866 ià(
¥
->
hªdËr
 && (¥->
hªdËrMask
 & sp->
cu¼’tEv’ts
)) {

867 (
¥
->
hªdËr
)(
sid
, sp->
hªdËrMask
 & sp->
cu¼’tEv’ts
,

868 
¥
->
hªdËr_d©a
);

872 ià(
sock‘Li¡
 && 
sid
 < 
sock‘Max
 && sock‘Li¡[sid] =ð
¥
) {

873 
¥
->
cu¼’tEv’ts
 = 0;

877 
	}
}

884 
	$sock‘S‘Block
(
sid
, 
Ú
)

886 
sock‘_t
 *
¥
;

887 
æag
;

888 
iæag
;

889 
ÞdBlock
;

891 
æag
 = 
iæag
 = !
Ú
;

893 ià((
¥
 = 
	`sock‘PŒ
(
sid
)è=ð
NULL
) {

894 
	`a_as£¹
(0);

897 
ÞdBlock
 = (
¥
->
æags
 & 
SOCKET_BLOCK
);

898 
¥
->
æags
 &ð~(
SOCKET_BLOCK
);

899 ià(
Ú
) {

900 
¥
->
æags
 |ð
SOCKET_BLOCK
;

906 ià(
¥
->
æags
 & 
SOCKET_BLOCK
) {

907 #ià(
	`defšed
 (
CE
è|| defšed (
WIN
))

908 
	`ioùlsock‘
(
¥
->
sock
, 
FIONBIO
, &
æag
);

909 #–ià(
	`defšed
 (
ECOS
))

910 
off
;

911 
off
 = 0;

912 
	`ioùl
(
¥
->
sock
, 
FIONBIO
, &
off
);

913 #–ià(
	`defšed
 (
VXWORKS
è|| defšed (
NW
))

914 
	`ioùl
(
¥
->
sock
, 
FIONBIO
, ()&
iæag
);

916 
	`fúŽ
(
¥
->
sock
, 
F_SETFL
, fúŽ(¥->sock, 
F_GETFL
è& ~
O_NONBLOCK
);

920 #ià(
	`defšed
 (
CE
è|| defšed (
WIN
))

921 
	`ioùlsock‘
(
¥
->
sock
, 
FIONBIO
, &
æag
);

922 #–ià(
	`defšed
 (
ECOS
))

923 
Ú
;

924 
Ú
 = 1;

925 
	`ioùl
(
¥
->
sock
, 
FIONBIO
, &
Ú
);

926 #–ià(
	`defšed
 (
VXWORKS
è|| defšed (
NW
))

927 
	`ioùl
(
¥
->
sock
, 
FIONBIO
, ()&
iæag
);

929 
	`fúŽ
(
¥
->
sock
, 
F_SETFL
, fúŽ(¥->sock, 
F_GETFL
è| 
O_NONBLOCK
);

933 #ifdeà
MACOSX


934 
iæag
 = 1;

935 
	`£tsockÝt
(
¥
->
sock
, 
SOL_SOCKET
, 
SO_NOSIGPIPE
, (*)&
iæag
, (iflag));

937  
ÞdBlock
;

938 
	}
}

945 
	$sock‘DÚtBlock
()

947 
sock‘_t
 *
¥
;

948 
i
;

950 
i
 = 0; i < 
sock‘Max
; i++) {

951 ià((
¥
 = 
sock‘Li¡
[
i
]è=ð
NULL
 ||

952 (
¥
->
hªdËrMask
 & 
SOCKET_READABLE
) == 0) {

955 ià(
	`sock‘IÅutBufã»d
(
i
) > 0) {

960 
	}
}

967 
	$sock‘SockBufã»d
(
sock
)

969 
sock‘_t
 *
¥
;

970 
i
;

972 
i
 = 0; i < 
sock‘Max
; i++) {

973 ià((
¥
 = 
sock‘Li¡
[
i
]è=ð
NULL
 || sp->
sock
 != sock) {

976  
	`sock‘IÅutBufã»d
(
i
);

979 
	}
}

	@sym.c

20 
	~"uemf.h
"

25 
	mšu£
;

26 
	mhash_size
;

27 
sym_t
 **
	mhash_bË
;

28 } 
	tsym_b’t_t
;

32 
sym_b’t_t
 **
	gsym
;

33 
	gsymMax
;

34 
	gsymO³nCouÁ
 = 0;

36 
	ghtIndex
;

37 
sym_t
* 
	gÃxt
;

41 
hashIndex
(
sym_b’t_t
 *

, 
ch¬_t
 *
Çme
);

42 
sym_t
 *
hash
(
sym_b’t_t
 *

, 
ch¬_t
 *
Çme
);

43 
ÿlcPrime
(
size
);

50 
	$symSubO³n
()

52 ià(++
symO³nCouÁ
 == 1) {

53 
symMax
 = 0;

54 
sym
 = 
NULL
;

57 
	}
}

64 
	$symSubClo£
()

66 ià(--
symO³nCouÁ
 <= 0) {

67 
symO³nCouÁ
 = 0;

69 
	}
}

76 
sym_fd_t
 
	$symO³n
(
hash_size
)

78 
sym_fd_t
 
sd
;

79 
sym_b’t_t
 *

;

81 
	`a_as£¹
(
hash_size
 > 2);

86 ià((
sd
 = 
	`hAÎoc
((***è&
sym
)) < 0) {

93 ià((

 = (
sym_b’t_t
*è
	`b®loc
(
B_L
, (sym_b’t_t))è=ð
NULL
) {

94 
symMax
 = 
	`hF»e
((***è&
sym
, 
sd
);

97 
	`mem£t
(

, 0, (
sym_b’t_t
));

98 ià(
sd
 >ð
symMax
) {

99 
symMax
 = 
sd
 + 1;

101 
	`a_as£¹
(0 <ð
sd
 && sd < 
symMax
);

102 
sym
[
sd
] = 

;

107 

->
hash_size
 = 
	`ÿlcPrime
(hash_size);

108 

->
hash_bË
 = (
sym_t
**è
	`b®loc
(
B_L
,p->
hash_size
 * (sym_t*));

109 
	`a_as£¹
(

->
hash_bË
);

110 
	`mem£t
(

->
hash_bË
, 0,p->
hash_size
 * (
sym_t
*));

112  
sd
;

113 
	}
}

121 
	$symClo£
(
sym_fd_t
 
sd
)

123 
sym_b’t_t
 *

;

124 
sym_t
 *
¥
, *
fÜw
;

125 
i
;

127 
	`a_as£¹
(0 <ð
sd
 && sd < 
symMax
);

128 

 = 
sym
[
sd
];

129 
	`a_as£¹
(

);

134 
i
 = 0; i < 

->
hash_size
; i++) {

135 
¥
 = 

->
hash_bË
[
i
]; sp; s°ð
fÜw
) {

136 
fÜw
 = 
¥
->forw;

137 
	`v®ueF»e
(&
¥
->
Çme
);

138 
	`v®ueF»e
(&
¥
->
cÚ‹Á
);

139 
	`bä“
(
B_L
, (*è
¥
);

140 
¥
 = 
fÜw
;

143 
	`bä“
(
B_L
, (*è

->
hash_bË
);

145 
symMax
 = 
	`hF»e
((***è&
sym
, 
sd
);

146 
	`bä“
(
B_L
, (*è

);

147 
	}
}

156 
sym_t
* 
	$symFœ¡
(
sym_fd_t
 
sd
)

158 
sym_b’t_t
 *

;

159 
sym_t
 *
¥
, *
fÜw
;

160 
i
;

162 
	`a_as£¹
(0 <ð
sd
 && sd < 
symMax
);

163 

 = 
sym
[
sd
];

164 
	`a_as£¹
(

);

169 
i
 = 0; i < 

->
hash_size
; i++) {

170 
¥
 = 

->
hash_bË
[
i
]; sp; s°ð
fÜw
) {

171 
fÜw
 = 
¥
->forw;

173 ià(
fÜw
 =ð
NULL
) {

174 
htIndex
 = 
i
 + 1;

175 
Ãxt
 = 

->
hash_bË
[
htIndex
];

177 
htIndex
 = 
i
;

178 
Ãxt
 = 
fÜw
;

180  
¥
;

183  
NULL
;

184 
	}
}

191 
sym_t
* 
	$symNext
(
sym_fd_t
 
sd
)

193 
sym_b’t_t
 *

;

194 
sym_t
 *
¥
, *
fÜw
;

195 
i
;

197 
	`a_as£¹
(0 <ð
sd
 && sd < 
symMax
);

198 

 = 
sym
[
sd
];

199 
	`a_as£¹
(

);

204 
i
 = 
htIndex
; i < 

->
hash_size
; i++) {

205 
¥
 = 
Ãxt
; sp; s°ð
fÜw
) {

206 
fÜw
 = 
¥
->forw;

208 ià(
fÜw
 =ð
NULL
) {

209 
htIndex
 = 
i
 + 1;

210 
Ãxt
 = 

->
hash_bË
[
htIndex
];

212 
htIndex
 = 
i
;

213 
Ãxt
 = 
fÜw
;

215  
¥
;

217 
Ãxt
 = 

->
hash_bË
[
i
 + 1];

219  
NULL
;

220 
	}
}

228 
sym_t
 *
	$symLookup
(
sym_fd_t
 
sd
, 
ch¬_t
 *
Çme
)

230 
sym_b’t_t
 *

;

231 
sym_t
 *
¥
;

232 
ch¬_t
 *
ý
;

234 
	`a_as£¹
(0 <ð
sd
 && sd < 
symMax
);

235 ià((

 = 
sym
[
sd
]è=ð
NULL
) {

236  
NULL
;

239 ià(
Çme
 =ð
NULL
 || *name == '\0') {

240  
NULL
;

246 
¥
 = 
	`hash
(

, 
Çme
); sp; s°ð¥->
fÜw
) {

247 
ý
 = 
¥
->
Çme
.
v®ue
.
¡ršg
;

248 ià(
ý
[0] =ð
Çme
[0] && 
	`g¡rcmp
(cp,‚ame) == 0) {

252  
¥
;

253 
	}
}

263 
sym_t
 *
	$symEÁ”
(
sym_fd_t
 
sd
, 
ch¬_t
 *
Çme
, 
v®ue_t
 
v
, 
¬g
)

265 
sym_b’t_t
 *

;

266 
sym_t
 *
¥
, *
Ï¡
;

267 
ch¬_t
 *
ý
;

268 
hšdex
;

270 
	`a_as£¹
(
Çme
);

271 
	`a_as£¹
(0 <ð
sd
 && sd < 
symMax
);

272 

 = 
sym
[
sd
];

273 
	`a_as£¹
(

);

279 
Ï¡
 = 
NULL
;

280 
hšdex
 = 
	`hashIndex
(

, 
Çme
);

281 ià((
¥
 = 

->
hash_bË
[
hšdex
]è!ð
NULL
) {

282 ; 
¥
; s°ð¥->
fÜw
) {

283 
ý
 = 
¥
->
Çme
.
v®ue
.
¡ršg
;

284 ià(
ý
[0] =ð
Çme
[0] && 
	`g¡rcmp
(cp,‚ame) == 0) {

287 
Ï¡
 = 
¥
;

289 ià(
¥
) {

299 ià(
¥
->
cÚ‹Á
.
v®id
) {

300 
	`v®ueF»e
(&
¥
->
cÚ‹Á
);

302 
¥
->
cÚ‹Á
 = 
v
;

303 
¥
->
¬g
 =‡rg;

304  
¥
;

309 
¥
 = (
sym_t
*è
	`b®loc
(
B_L
, (sym_t));

310 ià(
¥
 =ð
NULL
) {

311  
NULL
;

313 
¥
->
Çme
 = 
	`v®ueSŒšg
Òame, 
VALUE_ALLOCATE
);

314 
¥
->
cÚ‹Á
 = 
v
;

315 
¥
->
fÜw
 = (
sym_t
*è
NULL
;

316 
¥
->
¬g
 =‡rg;

317 
Ï¡
->
fÜw
 = 
¥
;

323 
¥
 = (
sym_t
*è
	`b®loc
(
B_L
, (sym_t));

324 ià(
¥
 =ð
NULL
) {

325  
NULL
;

327 

->
hash_bË
[
hšdex
] = 
¥
;

328 

->
hash_bË
[
	`hashIndex
Ñp, 
Çme
)] = 
¥
;

330 
¥
->
fÜw
 = (
sym_t
*è
NULL
;

331 
¥
->
cÚ‹Á
 = 
v
;

332 
¥
->
¬g
 =‡rg;

333 
¥
->
Çme
 = 
	`v®ueSŒšg
Òame, 
VALUE_ALLOCATE
);

335  
¥
;

336 
	}
}

343 
	$symD–‘e
(
sym_fd_t
 
sd
, 
ch¬_t
 *
Çme
)

345 
sym_b’t_t
 *

;

346 
sym_t
 *
¥
, *
Ï¡
;

347 
ch¬_t
 *
ý
;

348 
hšdex
;

350 
	`a_as£¹
(
Çme
 && *name);

351 
	`a_as£¹
(0 <ð
sd
 && sd < 
symMax
);

352 

 = 
sym
[
sd
];

353 
	`a_as£¹
(

);

359 
Ï¡
 = 
NULL
;

360 
hšdex
 = 
	`hashIndex
(

, 
Çme
);

361 ià((
¥
 = 

->
hash_bË
[
hšdex
]è!ð
NULL
) {

362  ; 
¥
; s°ð¥->
fÜw
) {

363 
ý
 = 
¥
->
Çme
.
v®ue
.
¡ršg
;

364 ià(
ý
[0] =ð
Çme
[0] && 
	`g¡rcmp
(cp,‚ame) == 0) {

367 
Ï¡
 = 
¥
;

370 ià(
¥
 =ð(
sym_t
*è
NULL
) {

378 ià(
Ï¡
) {

379 
Ï¡
->
fÜw
 = 
¥
->forw;

381 

->
hash_bË
[
hšdex
] = 
¥
->
fÜw
;

383 
	`v®ueF»e
(&
¥
->
Çme
);

384 
	`v®ueF»e
(&
¥
->
cÚ‹Á
);

385 
	`bä“
(
B_L
, (*è
¥
);

388 
	}
}

396 
sym_t
 *
	$hash
(
sym_b’t_t
 *

, 
ch¬_t
 *
Çme
)

398 
	`a_as£¹
(

);

400  

->
hash_bË
[
	`hashIndex
Ñp, 
Çme
)];

401 
	}
}

410 
	$hashIndex
(
sym_b’t_t
 *

, 
ch¬_t
 *
Çme
)

412 
sum
;

413 
i
;

415 
	`a_as£¹
(

);

421 
i
 = 0;

422 
sum
 = 0;

423 *
Çme
) {

424 
sum
 +ð(((è*
Çme
++è<< 
i
);

425 
i
 = (˜+ 7è% (
	`BITS
(è- 
BITSPERBYTE
);

427  
sum
 % 

->
hash_size
;

428 
	}
}

435 
	$isPrime
(
n
)

437 
i
, 
max
;

439 
	`a_as£¹
(
n
 > 0);

441 
max
 = 
n
 / 2;

442 
i
 = 2; i <ð
max
; i++) {

443 ià(
n
 % 
i
 == 0) {

448 
	}
}

455 
	$ÿlcPrime
(
size
)

457 
couÁ
;

459 
	`a_as£¹
(
size
 > 0);

461 
couÁ
 = 
size
; count > 0; count--) {

462 ià(
	`isPrime
(
couÁ
)) {

463  
couÁ
;

467 
	}
}

	@uemf.c

18 
	~"uemf.h
"

22 
	gemfIn¡
;

26 
deçuÉE¼ÜHªdËr
(
‘y³
, 
ch¬_t
 *
buf
);

27 (*
”rÜHªdËr
)(
‘y³
, 
ch¬_t
 *
msg
èð
deçuÉE¼ÜHªdËr
;

29 
	`deçuÉT¿ûHªdËr
(
Ëv–
, 
ch¬_t
 *
buf
);

30 (*
ŒaûHªdËr
)(
Ëv–
, 
ch¬_t
 *
buf
èð
deçuÉT¿ûHªdËr
;

38 
	$”rÜ
(
E_ARGS_DEC
, 
‘y³
, 
ch¬_t
 *
fmt
, ...)

40 
va_li¡
 
¬gs
;

41 
ch¬_t
 *
fmtBuf
, *
buf
;

43 
	`va_¡¬t
(
¬gs
, 
fmt
);

44 
	`fmtV®loc
(&
fmtBuf
, 
E_MAX_ERROR
, 
fmt
, 
¬gs
);

46 ià(
‘y³
 =ð
E_LOG
) {

47 
	`fmtAÎoc
(&
buf
, 
E_MAX_ERROR
, 
	`T
("%s\n"), 
fmtBuf
);

49 } ià(
‘y³
 =ð
E_ASSERT
) {

50 
	`fmtAÎoc
(&
buf
, 
E_MAX_ERROR
,

51 
	`T
("As£¹iÚ %s, fažed‡ˆ% %d\n"), 
fmtBuf
, 
E_ARGS
);

53 } ià(
‘y³
 =ð
E_USER
) {

54 
	`fmtAÎoc
(&
buf
, 
E_MAX_ERROR
, 
	`T
("%s\n"), 
fmtBuf
);

64 
	`fmtAÎoc
(&
buf
, 
E_MAX_ERROR
, 
	`T
("Unknownƒrror"));

66 
	`va_’d
(
¬gs
);

68 
	`bä“
(
B_L
, 
fmtBuf
);

70 ià(
”rÜHªdËr
) {

71 
	`”rÜHªdËr
(
‘y³
, 
buf
);

74 
	`bä“Saã
(
B_L
, 
buf
);

75 
	}
}

82 (*
”rÜS‘HªdËr
((*
funùiÚ
)(
‘y³
, 
ch¬_t
 *
msg
))) \

83 (
‘y³
, 
ch¬_t
 *
msg
)

85 (*
ÞdHªdËr
)(
‘y³
, 
ch¬_t
 *
buf
);

87 
ÞdHªdËr
 = 
”rÜHªdËr
;

88 
”rÜHªdËr
 = 
funùiÚ
;

89  
ÞdHªdËr
;

90 
	}
}

97 
	$Œaû
(
Ëv–
, 
ch¬_t
 *
fmt
, ...)

99 
va_li¡
 
¬gs
;

100 
ch¬_t
 *
buf
;

102 
	`va_¡¬t
(
¬gs
, 
fmt
);

103 
	`fmtV®loc
(&
buf
, 
VALUE_MAX_STRING
, 
fmt
, 
¬gs
);

105 ià(
ŒaûHªdËr
) {

106 
	`ŒaûHªdËr
(
Ëv–
, 
buf
);

108 
	`bä“Saã
(
B_L
, 
buf
);

109 
	`va_’d
(
¬gs
);

110 
	}
}

117 
	$ŒaûRaw
(
ch¬_t
 *
buf
)

119 ià(
ŒaûHªdËr
) {

120 
	`ŒaûHªdËr
(0, 
buf
);

122 
	}
}

129 (*
ŒaûS‘HªdËr
((*
funùiÚ
)(
Ëv–
, 
ch¬_t
 *
buf
)))

130 (
Ëv–
, *
buf
)

132 (*
ÞdHªdËr
)(
Ëv–
, 
ch¬_t
 *
buf
);

134 
ÞdHªdËr
 = 
ŒaûHªdËr
;

135 ià(
funùiÚ
) {

136 
ŒaûHªdËr
 = 
funùiÚ
;

138  
ÞdHªdËr
;

139 
	}
}

146 
	$emfIn¡S‘
(
š¡
)

148 
emfIn¡
 = 
š¡
;

149 
	}
}

156 
	$emfIn¡G‘
()

158  
emfIn¡
;

159 
	}
}

166 
ch¬_t
 *
	$¡¾ow”
(
ch¬_t
 *
¡ršg
)

168 
ch¬_t
 *
s
;

170 
	`a_as£¹
(
¡ršg
);

172 ià(
¡ršg
 =ð
NULL
) {

173  
NULL
;

176 
s
 = 
¡ršg
;

177 *
s
) {

178 ià(
	`gisuµ”
(*
s
)) {

179 *
s
 = (
ch¬_t
è
	`gtÞow”
(*s);

181 
s
++;

183 *
s
 = '\0';

184  
¡ršg
;

185 
	}
}

192 
ch¬_t
 *
	$¡ruµ”
(
ch¬_t
 *
¡ršg
)

194 
ch¬_t
 *
s
;

196 
	`a_as£¹
(
¡ršg
);

197 ià(
¡ršg
 =ð
NULL
) {

198  
NULL
;

201 
s
 = 
¡ršg
;

202 *
s
) {

203 ià(
	`gi¦ow”
(*
s
)) {

204 *
s
 = (
ch¬_t
è
	`gtouµ”
(*s);

206 
s
++;

208 *
s
 = '\0';

209  
¡ršg
;

210 
	}
}

218 
ch¬_t
 *
	$¡r™ß
(
n
, 
ch¬_t
 *
¡ršg
, 
width
)

220 
ch¬_t
 *
ý
, *
lim
, *
s
;

221 
ch¬_t
 
buf
[16];

222 
Ãxt
, 
mšus
;

224 
	`a_as£¹
(
¡ršg
 && 
width
 > 0);

226 ià(
¡ršg
 =ð
NULL
) {

227 ià(
width
 == 0) {

228 
width
 = 10;

230 ià((
¡ršg
 = 
	`b®loc
(
B_L
, 
width
 + 1)è=ð
NULL
) {

231  
NULL
;

234 ià(
n
 < 0) {

235 
mšus
 = 1;

236 
n
 = -n;

237 
width
--;

239 
mšus
 = 0;

242 
ý
 = 
buf
;

243 
lim
 = &
buf
[
width
 - 1];

244 
n
 > 9 && 
ý
 < 
lim
) {

245 
Ãxt
 = 
n
;

246 
n
 /= 10;

247 *
ý
++ = (
ch¬_t
è(
Ãxt
 - 
n
 * 10 + '0');

249 ià(
ý
 < 
lim
) {

250 *
ý
++ = (
ch¬_t
è(
n
 + '0');

253 
s
 = 
¡ršg
;

254 ià(
mšus
) {

255 *
s
++ = '-';

258 
ý
 > 
buf
) {

259 *
s
++ = *--
ý
;

262 *
s
++ = '\0';

263  
¡ršg
;

264 
	}
}

276 
	$deçuÉE¼ÜHªdËr
(
‘y³
, 
ch¬_t
 *
msg
)

279 
	`wr™e
(1, 
msg
, 
	`g¡¾’
(msg));

281 
	}
}

288 
	$deçuÉT¿ûHªdËr
(
Ëv–
, 
ch¬_t
 *
buf
)

295 ià(
buf
) {

296 
	`wr™e
(1, 
buf
, 
	`g¡¾’
(buf));

299 
	}
}

306 
ch¬_t
 *
	$basicG‘Produù
()

308  
	`T
("uemf");

309 
	}
}

311 
ch¬_t
 *
	$basicG‘Add»ss
()

313  
	`T
("localhost");

314 
	}
}

316 
	$”rÜO³n
(
ch¬_t
 *
²ame
)

319 
	}
}

321 
	$”rÜClo£
()

323 
	}
}

	@uemf.h

10 #iâdeà
_h_UEMF


11 
	#_h_UEMF
 1

	)

21 #ifdeà
WIN


22 
	~<dœeù.h
>

23 
	~<io.h
>

24 
	~<sys/¡©.h
>

25 
	~<lim™s.h
>

26 
	~<tch¬.h
>

27 
	~<wšdows.h
>

28 
	~<wšÆs.h
>

29 
	~<time.h
>

30 
	~<sys/ty³s.h
>

31 
	~<¡dio.h
>

32 
	~<¡dlib.h
>

33 
	~<fúŽ.h
>

34 
	~<”ºo.h
>

37 #ifdeà
CE


39 
	~<lim™s.h
>

40 
	~<tch¬.h
>

41 
	~<wšdows.h
>

42 
	~<wšsock.h
>

43 
	~<wšÆs.h
>

44 
	~"CE/wšcom·t.h
"

45 
	~<wšsock.h
>

48 #ifdeà
NW


49 
	~<dœeù.h
>

50 
	~<io.h
>

51 
	~<sys/¡©.h
>

52 
	~<time.h
>

53 
	~<sys/ty³s.h
>

54 
	~<¡dio.h
>

55 
	~<¡dlib.h
>

56 
	~<fúŽ.h
>

57 
	~<”ºo.h
>

58 
	~<n™”rÜ.h
>

59 
	#EINTR
 
EINUSE


	)

60 
	#WEBS
 1

	)

61 
	~<lim™s.h
>

62 
	~<Ãtdb.h
>

63 
	~<´oûss.h
>

64 
	~<tiu£r.h
>

65 
	~<sys/time.h
>

66 
	~<¬·/š‘.h
>

67 
	~<sys/ty³s.h
>

68 
	~<sys/sock‘.h
>

69 
	~<sys/fžio.h
>

70 
	~<Ãtš‘/š.h
>

73 #ifdeà
SCOV5


74 
	~<sys/ty³s.h
>

75 
	~<¡dio.h
>

76 
	~"sys/sock‘.h
"

77 
	~"sys/£Ëù.h
"

78 
	~"Ãtš‘/š.h
"

79 
	~"¬·/š‘.h
"

80 
	~"Ãtdb.h
"

83 #ifdeà
UNIX


84 
	~<¡dio.h
>

87 #ifdeà
LINUX


88 
	~<sys/ty³s.h
>

89 
	~<sys/¡©.h
>

90 
	~<sys/·¿m.h
>

91 
	~<lim™s.h
>

92 
	~<¡dio.h
>

93 
	~<¡dlib.h
>

94 
	~<uni¡d.h
>

95 
	~<sys/sock‘.h
>

96 
	~<sys/£Ëù.h
>

97 
	~<Ãtš‘/š.h
>

98 
	~<¬·/š‘.h
>

99 
	~<Ãtdb.h
>

100 
	~<time.h
>

101 
	~<fúŽ.h
>

102 
	~<”ºo.h
>

105 #ifdeà
LYNX


106 
	~<lim™s.h
>

107 
	~<¡d¬g.h
>

108 
	~<¡dio.h
>

109 
	~<¡dlib.h
>

110 
	~<uni¡d.h
>

111 
	~<sock‘.h
>

112 
	~<Ãtš‘/š.h
>

113 
	~<¬·/š‘.h
>

114 
	~<Ãtdb.h
>

115 
	~<time.h
>

116 
	~<fúŽ.h
>

117 
	~<”ºo.h
>

120 #ifdeà
MACOSX


121 
	~<lim™s.h
>

122 
	~<sys/£Ëù.h
>

123 
	~<sys/ty³s.h
>

124 
	~<sys/¡©.h
>

125 
	~<¡dio.h
>

126 
	~<¡dlib.h
>

127 
	~<uni¡d.h
>

128 
	~<sys/sock‘.h
>

129 
	~<Ãtš‘/š.h
>

130 
	~<¬·/š‘.h
>

131 
	~<Ãtdb.h
>

132 
	~<fúŽ.h
>

133 
	~<”ºo.h
>

134 
	~<time.h
>

137 #ifdeà
UW


138 
	~<¡dio.h
>

141 #ifdeà
VXWORKS


142 
	~<vxWÜks.h
>

143 
	~<sockLib.h
>

144 
	~<£ËùLib.h
>

145 
	~<š‘Lib.h
>

146 
	~<ioLib.h
>

147 
	~<¡dio.h
>

148 
	~<¡©.h
>

149 
	~<time.h
>

150 
	~<u¤Lib.h
>

151 
	~<fúŽ.h
>

152 
	~<”ºo.h
>

155 #ifdeà
¥¬c


156 
	#__NO_PACK


	)

159 #ifdeà
SOLARIS


160 
	~<sys/ty³s.h
>

161 
	~<lim™s.h
>

162 
	~<¡dio.h
>

163 
	~<¡dlib.h
>

164 
	~<uni¡d.h
>

165 
	~<sock‘.h
>

166 
	~<sys/£Ëù.h
>

167 
	~<Ãtš‘/š.h
>

168 
	~<¬·/š‘.h
>

169 
	~<Ãtdb.h
>

170 
	~<time.h
>

171 
	~<fúŽ.h
>

172 
	~<”ºo.h
>

175 #ifdeà
QNX4


176 
	~<sys/ty³s.h
>

177 
	~<¡dio.h
>

178 
	~<sys/sock‘.h
>

179 
	~<sys/£Ëù.h
>

180 
	~<Ãtš‘/š.h
>

181 
	~<¬·/š‘.h
>

182 
	~<Ãtdb.h
>

183 
	~<¡dlib.h
>

184 
	~<uni¡d.h
>

185 
	~<sys/uio.h
>

186 
	~<sys/wa™.h
>

189 #ifdeà
ECOS


190 
	~<lim™s.h
>

191 
	~<cyg/šäa/cyg_ty³.h
>

192 
	~<cyg/k”Ãl/k­i.h
>

193 
	~<time.h
>

194 
	~<ÃtwÜk.h
>

195 
	~<”ºo.h
>

200 
	~<ùy³.h
>

201 
	~<¡d¬g.h
>

202 
	~<¡ršg.h
>

204 #iâdeà
WEBS


205 
	~"mes§ges.h
"

210 #ifdeà
UW


211 
	#__NO_PACK
 1

	)

214 #ià(
defšed
 (
SCOV5
è|| defšed (
VXWORKS
è|| defšed (
LINUX
è|| defšed (
LYNX
è|| defšed (
MACOSX
))

215 #iâdeà
O_BINARY


216 
	#O_BINARY
 0

	)

218 
	#SOCKET_ERROR
 -1

	)

221 #ià(
defšed
 (
WIN
è|| defšed (
CE
))

225 
	#__NO_FCNTL
 1

	)

227 #undeà
R_OK


228 
	#R_OK
 4

	)

229 #undeà
W_OK


230 
	#W_OK
 2

	)

231 #undeà
X_OK


232 
	#X_OK
 1

	)

233 #undeà
F_OK


234 
	#F_OK
 0

	)

236 
	tsockËn_t
;

240 #ià(
defšed
 (
LINUX
è&& !defšed (
_STRUCT_TIMEVAL
))

241 
	stimev®


243 
time_t
 
	mtv_£c
;

244 
time_t
 
	mtv_u£c
;

246 
	#_STRUCT_TIMEVAL
 1

	)

249 #ifdeà
ECOS


250 
	#O_RDONLY
 1

	)

251 
	#O_BINARY
 2

	)

253 
	#__NO_PACK
 1

	)

254 
	#__NO_EJ_FILE
 1

	)

255 
	#__NO_CGI_BIN
 1

	)

256 
	#__NO_FCNTL
 1

	)

261 
	#LIBKERN_INLINE


	)

265 #ifdeà
QNX4


266 
	tfd_mask
;

267 
	#NFDBITS
 ( (
fd_mask
è* 
NBBY
è

	)

270 #ifdeà
MACOSX


271 
št32_t
 
	tfd_mask
;

274 #ifdeà
NW


275 
	#fd_mask
 
fd_£t


	)

276 
	#INADDR_NONE
 -1l

	)

277 
	#SË•
 
d–ay


	)

279 
	#__NO_FCNTL
 1

	)

281 #undeà
R_OK


282 
	#R_OK
 4

	)

283 #undeà
W_OK


284 
	#W_OK
 2

	)

285 #undeà
X_OK


286 
	#X_OK
 1

	)

287 #undeà
F_OK


288 
	#F_OK
 0

	)

296 
	#TRACE_MAX
 (4096 - 48)

	)

297 
	#VALUE_MAX_STRING
 (4096 - 48)

	)

298 
	#SYM_MAX
 (512)

	)

299 
	#XML_MAX
 4096

	)

300 
	#BUF_MAX
 4096

	)

301 #iâdeà
LINE_MAX


302 
	#LINE_MAX
 2048

	)

304 
	#FMT_STATIC_MAX
 256

	)

306 #ià(
defšed
 (
LITTLEFOOT
è|| defšed (
WEBS
))

307 
	#LF_BUF_MAX
 (510)

	)

308 
	#LF_PATHSIZE
 
LF_BUF_MAX


	)

310 
	#LF_BUF_MAX
 
BUF_MAX


	)

311 
	#LF_PATHSIZE
 
PATHSIZE


	)

312 
	#UPPATHSIZE
 
PATHSIZE


	)

314 #iâdeà
CHAR_T_DEFINED


315 
	#CHAR_T_DEFINED
 1

	)

316 #ifdeà
UNICODE


321 
	#T
(
x
è
	`__TXT
(x)

	)

322 
	#__TXT
(
s
è
L
 ## 
	)
s

323 
	tch¬_t
;

324 
	tuch¬_t
;

330 
	#TSZ
(
x
è((xè/ (
ch¬_t
))

	)

335 
	#TASTRL
(
x
è((
	`wc¦’
(xè+ 1è* (
ch¬_t
))

	)

338 
	#T
(
s
è
	)
s

339 
	tch¬_t
;

340 
	#TSZ
(
x
è((x))

	)

341 
	#TASTRL
(
x
è(
	`¡¾’
(xè+ 1)

	)

342 #ifdeà
WIN


343 
	tuch¬_t
;

354 #iâdeà
TRUE


355 
	#TRUE
 1

	)

358 #iâdeà
FALSE


359 
	#FALSE
 0

	)

365 
	#GOAHEAD_COPYRIGHT
 \

366 
	`T
("CÝyrighˆ(cèGoAh—d Soáw¬Inc., 1995-2010. AÎ Right Re£rved.")

	)

372 #ià(
defšed
 (
LITTLEFOOT
è&& defšed (
INMEM
))

373 
	~"lf/šmem.h
"

379 #ifdeà
UNICODE


381 
	#gmaš
 
wmaš


	)

383 
	#gasùime
 
_wasùime


	)

384 
	#g¥rštf
 
sw´štf


	)

385 
	#g´štf
 
w´štf


	)

386 
	#gårštf
 
fw´štf


	)

387 
	#gssÿnf
 
swsÿnf


	)

388 
	#gv¥rštf
 
vsw´štf


	)

390 
	#g¡rýy
 
wcsýy


	)

391 
	#g¡ºýy
 
wc¢ýy


	)

392 
	#g¡ºÿt
 
wc¢ÿt


	)

393 
	#g¡¾’
 
wc¦’


	)

394 
	#g¡rÿt
 
wcsÿt


	)

395 
	#g¡rcmp
 
wcscmp


	)

396 
	#g¡ºcmp
 
wc¢cmp


	)

397 
	#g¡ricmp
 
wcsicmp


	)

398 
	#g¡rchr
 
wcschr


	)

399 
	#g¡¼chr
 
wc¤chr


	)

400 
	#g¡¹ok
 
wc¡ok


	)

401 
	#g¡º£t
 
wc¢£t


	)

402 
	#g¡¼chr
 
wc¤chr


	)

403 
	#g¡r¥n
 
wcs¥n


	)

404 
	#g¡rc¥n
 
wcsc¥n


	)

405 
	#g¡r¡r
 
wcs¡r


	)

406 
	#g¡¹Þ
 
wc¡Þ


	)

408 
	#gfÝ’
 
_wfÝ’


	)

409 
	#gÝ’
 
_wÝ’


	)

410 
	#gþo£
 
þo£


	)

411 
	#gü—t
 
_wü—t


	)

412 
	#gfg‘s
 
fg‘ws


	)

413 
	#gåuts
 
åutws


	)

414 
	#gfsÿnf
 
fwsÿnf


	)

415 
	#gg‘s
 
_g‘ws


	)

416 
	#gl£ek
 
l£ek


	)

417 
	#guÆšk
 
_wuÆšk


	)

418 
	#g»ad
 
»ad


	)

419 
	#g»Çme
 
_w»Çme


	)

420 
	#gwr™e
 
wr™e


	)

421 
	#gtm²am
 
_wtm²am


	)

422 
	#g‹m²am
 
_w‹m²am


	)

423 
	#gfšdfœ¡
 
_wfšdfœ¡


	)

424 
	#gfšdd©a_t
 
_wfšdd©a_t


	)

425 
	#gfšdÃxt
 
_wfšdÃxt


	)

426 
	#gfšdþo£
 
_fšdþo£


	)

427 
	#g¡©
 
_w¡©


	)

428 
	#gacûss
 
_wacûss


	)

429 
	#gchmod
 
_wchmod


	)

431 
_¡©
 
	tg¡©_t
;

433 
	#gmkdœ
 
_wmkdœ


	)

434 
	#gchdœ
 
_wchdœ


	)

435 
	#grmdœ
 
_wrmdœ


	)

436 
	#gg‘cwd
 
_wg‘cwd


	)

438 
	#gtÞow”
 
towlow”


	)

439 
	#gtouµ”
 
towuµ”


	)

440 #ifdeà
CE


441 
	#gis¥aû
 
is¥aû


	)

442 
	#gisdig™
 
isdig™


	)

443 
	#gisxdig™
 
isxdig™


	)

444 
	#gisuµ”
 
isuµ”


	)

445 
	#gi¦ow”
 
i¦ow”


	)

446 
	#gi¥ršt
 
i¥ršt


	)

448 
	#g»move
 
_w»move


	)

449 
	#gis¥aû
 
isw¥aû


	)

450 
	#gisdig™
 
iswdig™


	)

451 
	#gisxdig™
 
iswxdig™


	)

452 
	#gisuµ”
 
iswuµ”


	)

453 
	#gi¦ow”
 
iswlow”


	)

455 
	#gi§Êum
 
isw®num


	)

456 
	#gi§Íha
 
isw®pha


	)

457 
	#g©oi
(
s
è
	`wc¡Þ
(s, 
NULL
, 10)

	)

459 
	#gùime
 
_wùime


	)

460 
	#gg‘’v
 
_wg‘’v


	)

461 
	#gexecvp
 
_wexecvp


	)

465 #ifdeà
VXWORKS


466 
	#gchdœ
 
vxchdœ


	)

467 
	#gmkdœ
 
vxmkdœ


	)

468 
	#grmdœ
 
vxrmdœ


	)

469 #–ià(
defšed
 (
LYNX
è|| defšed (
LINUX
è|| defšed (
MACOSX
è|| defšed (
SOLARIS
))

470 
	#gchdœ
 
chdœ


	)

471 
	#gmkdœ
(
s
è
	`mkdœ
(s,0755)

	)

472 
	#grmdœ
 
rmdœ


	)

474 
	#gchdœ
 
chdœ


	)

475 
	#gmkdœ
 
mkdœ


	)

476 
	#grmdœ
 
rmdœ


	)

479 
	#gþo£
 
þo£


	)

480 
	#gþo£dœ
 
þo£dœ


	)

481 
	#gchmod
 
chmod


	)

482 
	#gg‘cwd
 
g‘cwd


	)

483 
	#gl£ek
 
l£ek


	)

484 
	#glßdModuË
 
lßdModuË


	)

485 
	#gÝ’
 
Ý’


	)

486 
	#gÝ’dœ
 
Ý’dœ


	)

487 
	#g»ad
 
»ad


	)

488 
	#g»addœ
 
»addœ


	)

489 
	#g»Çme
 
»Çme


	)

490 
	#g¡©
 
¡©


	)

491 
	#guÆšk
 
uÆšk


	)

492 
	#gwr™e
 
wr™e


	)

494 
	#gasùime
 
asùime


	)

495 
	#g¥rštf
 
¥rštf


	)

496 
	#g´štf
 
´štf


	)

497 
	#gårštf
 
årštf


	)

498 
	#gssÿnf
 
ssÿnf


	)

499 
	#gv¥rštf
 
v¥rštf


	)

501 
	#g¡rýy
 
¡rýy


	)

502 
	#g¡ºýy
 
¡ºýy


	)

503 
	#g¡ºÿt
 
¡ºÿt


	)

504 
	#g¡¾’
 
¡¾’


	)

505 
	#g¡rÿt
 
¡rÿt


	)

506 
	#g¡rcmp
 
¡rcmp


	)

507 
	#g¡ºcmp
 
¡ºcmp


	)

508 
	#g¡ricmp
 
¡rcmpci


	)

509 
	#g¡rchr
 
¡rchr


	)

510 
	#g¡¼chr
 
¡¼chr


	)

511 
	#g¡¹ok
 
¡¹ok


	)

512 
	#g¡º£t
 
¡º£t


	)

513 
	#g¡¼chr
 
¡¼chr


	)

514 
	#g¡r¥n
 
¡r¥n


	)

515 
	#g¡rc¥n
 
¡rc¥n


	)

516 
	#g¡r¡r
 
¡r¡r


	)

517 
	#g¡¹Þ
 
¡¹Þ


	)

519 
	#gfÝ’
 
fÝ’


	)

520 
	#gü—t
 
ü—t


	)

521 
	#gfg‘s
 
fg‘s


	)

522 
	#gåuts
 
åuts


	)

523 
	#gfsÿnf
 
fsÿnf


	)

524 
	#gg‘s
 
g‘s


	)

525 
	#gtm²am
 
tm²am


	)

526 
	#g‹m²am
 
‹m²am


	)

527 
	#gfšdfœ¡
 
_fšdfœ¡


	)

528 
	#gfšdd©a_t
 
_fšdd©a_t


	)

529 
	#gfšdÃxt
 
_fšdÃxt


	)

530 
	#gfšdþo£
 
_fšdþo£


	)

531 
	#gacûss
 
acûss


	)

533 
¡©
 
	tg¡©_t
;

535 
	#g»move
 
»move


	)

537 
	#gtÞow”
 
tÞow”


	)

538 
	#gtouµ”
 
touµ”


	)

539 
	#gis¥aû
 
is¥aû


	)

540 
	#gisdig™
 
isdig™


	)

541 
	#gisxdig™
 
isxdig™


	)

542 
	#gi§Êum
 
i§Êum


	)

543 
	#gi§Íha
 
i§Íha


	)

544 
	#gisuµ”
 
isuµ”


	)

545 
	#gi¦ow”
 
i¦ow”


	)

546 
	#g©oi
 
©oi


	)

548 
	#gùime
 
ùime


	)

549 
	#gg‘’v
 
g‘’v


	)

550 
	#gexecvp
 
execvp


	)

551 #iâdeà
VXWORKS


552 
	#gmaš
 
maš


	)

554 #ifdeà
VXWORKS


555 
	#fúŽ
(
a
, 
b
, 
c
)

	)

559 #ifdeà
WIN32


560 
	#g‘cwd
 
_g‘cwd


	)

561 
	#‹m²am
 
_‹m²am


	)

562 
	#Ý’
 
_Ý’


	)

563 
	#þo£
 
_þo£


	)

564 
	#»ad
 
_»ad


	)

565 
	#wr™e
 
_wr™e


	)

566 
	#chdœ
 
_chdœ


	)

567 
	#l£ek
 
_l£ek


	)

568 
	#uÆšk
 
_uÆšk


	)

570 
	#loÿÉime
 
loÿÉime_s


	)

579 #ifdeà
INMEM


580 
	~"lf/šmem.h
"

585 #iâdeà
FNAMESIZE


586 
	#FNAMESIZE
 254

	)

589 
	#E_MAX_ERROR
 4096

	)

590 
	#URL_MAX
 4096

	)

591 
	#E_MAX_REQUEST
 2048

	)

596 
	#E_ASSERT
 0x1

	)

597 
	#E_LOG
 0x2

	)

598 
	#E_USER
 0x3

	)

600 
	#E_L
 
	`T
(
__FILE__
), 
__LINE__


	)

601 
	#E_ARGS_DEC
 
ch¬_t
 *
fže
, 
lše


	)

602 
	#E_ARGS
 
fže
, 
lše


	)

604 #ià(
defšed
 (
ASSERT
è|| defšed (
ASSERT_CE
))

605 
	#a_as£¹
(
C
èià(Cè; 
	`”rÜ
(
E_L
, 
E_ASSERT
, 
	`T
("%s"), T(#C))

	)

607 
	#a_as£¹
(
C
èià(1è; 

	)

610 
	#–em’tsof
(
X
è(Xè/ (X[0])

	)

620 
	mundefšed
 = 0,

621 
	mby‹št
 = 1,

622 
	mshÜtšt
 = 2,

623 
	mš‹g”
 = 3,

624 
	mhex
 = 4,

625 
	m³rûÁ
 = 5,

626 
	moù®
 = 6,

627 
	mbig
 = 7,

628 
	mæag
 = 8,

629 
	mæßtšg
 = 9,

630 
	m¡ršg
 = 10,

631 
	mby‹s
 = 11,

632 
	msymbÞ
 = 12,

633 
	m”rmsg
 = 13

634 } 
	tvty³_t
;

636 #iâdeà
__NO_PACK


637 #´agm¨
·ck
(2)

643 
	mæag
;

644 
	mby‹št
;

645 
	mshÜtšt
;

646 
	m³rûÁ
;

647 
	mš‹g”
;

648 
	mhex
;

649 
	moù®
;

650 
	mbig
[2];

651 #ifdeà
FLOATING_POINT_SUPPORT


652 
	mæßtšg
;

654 
ch¬_t
 *
	m¡ršg
;

655 *
	mby‹s
;

656 
ch¬_t
 *
	m”rmsg
;

657 *
	msymbÞ
;

658 } 
	mv®ue
;

660 
vty³_t
 
	mty³
;

661 
	mv®id
 : 8;

662 
	m®loÿ‹d
 : 8;

663 } 
	tv®ue_t
;

665 #iâdeà
__NO_PACK


666 #´agm¨
·ck
()

672 
	#VALUE_ALLOCATE
 0x1

	)

674 
	#v®ue_num”ic
(
t
èÑ >ð
by‹št
 && <ð
big
)

	)

675 
	#v®ue_¡r
(
t
èÑ >ð
¡ršg
 && <ð
by‹s
)

	)

676 
	#v®ue_ok
(
t
èÑ > 
undefšed
 && <ð
symbÞ
)

	)

678 
	#VALUE_VALID
 { {0}, 
š‹g”
, 1 }

	)

679 
	#VALUE_INVALID
 { {0}, 
undefšed
, 0 }

	)

723 *
	mbuf
;

724 *
	m£rvp
;

725 *
	m’dp
;

726 *
	m’dbuf
;

727 
	mbuæ’
;

728 
	mmaxsize
;

729 
	mšüem’t
;

730 } 
	tršgq_t
;

735 #ifdef 
B_STATS


736 #iâdeà
B_L


737 
	#B_L
 
	`T
(
__FILE__
), 
__LINE__


	)

738 
	#B_ARGS_DEC
 
ch¬_t
 *
fže
, 
lše


	)

739 
	#B_ARGS
 
fže
, 
lše


	)

749 *
	mÃxt
;

750 
	msize
;

751 } 
	mu
;

752 
	mæags
;

753 } 
	tbTy³
;

755 
	#B_SHIFT
 4

	)

756 
	#B_ROUND
 ((1 << (
B_SHIFT
)è- 1)

	)

757 
	#B_MAX_CLASS
 13

	)

758 
	#B_MALLOCED
 0x80000000

	)

759 
	#B_DEFAULT_MEM
 (64 * 1024è

	)

760 
	#B_MAX_FILES
 (512è

	)

761 
	#B_FILL_CHAR
 (0x77è

	)

762 
	#B_FILL_WORD
 (0x77777777è

	)

763 
	#B_MAX_BLOCKS
 (64 * 1024è

	)

768 
	#B_INTEGRITY
 0x8124000

	)

769 
	#B_INTEGRITY_MASK
 0xFFFF000

	)

770 
	#B_USE_MALLOC
 0x1

	)

771 
	#B_USER_BUF
 0x2

	)

777 
	ssym_t
 {

778 
sym_t
 *
	mfÜw
;

779 
v®ue_t
 
	mÇme
;

780 
v®ue_t
 
	mcÚ‹Á
;

781 
	m¬g
;

782 } 
	tsym_t
;

784 
	tsym_fd_t
;

789 
	#EMF_SCRIPT_JSCRIPT
 0

	)

790 
	#EMF_SCRIPT_TCL
 1

	)

791 
	#EMF_SCRIPT_EJSCRIPT
 2

	)

792 
	#EMF_SCRIPT_MAX
 3

	)

794 #ià!
defšed
(
HAVE_MAXINT
)

795 
	#MAXINT
 
INT_MAX


	)

797 
	#BITSPERBYTE
 8

	)

798 
	#BITS
(
ty³
è(
BITSPERBYTE
 * (èÑy³))

	)

799 
	#STRSPACE
 
	`T
("\ˆ\n\r\t")

	)

801 #iâdeà
max


802 
	#max
(
a
,
b
è((×è> (b)è? (aè: (b))

	)

805 #iâdeà
mš


806 
	#mš
(
a
,
b
è((×è< (b)è? (aè: (b))

	)

814 
ch¬_t
 *
	mmšu‹
;

815 
ch¬_t
 *
	mhour
;

816 
ch¬_t
 *
	mday
;

817 
ch¬_t
 *
	mmÚth
;

818 
ch¬_t
 *
	mdayofw“k
;

819 } 
	tüÚ_t
;

821 
üÚUÁž
(
üÚ_t
 *
ý
, 
³riod
, 
time_t
 
‹¡Time
);

822 
üÚAÎoc
(
üÚ_t
 *
ý
, 
ch¬_t
 *
¡r
);

823 
üÚF»e
(
üÚ_t
 *
ý
);

832 #ià((
defšed
 (
WIN
è|| defšed (
CE
)è&& defšed (
WEBS
è&& !defšed(
WIN32
))

834 #iâdeà
EWOULDBLOCK


835 
	#EWOULDBLOCK
 
WSAEWOULDBLOCK


	)

837 #iâdeà
ENETDOWN


838 
	#ENETDOWN
 
WSAENETDOWN


	)

840 #iâdeà
ECONNRESET


841 
	#ECONNRESET
 
WSAECONNRESET


	)

845 
	#SOCKET_EOF
 0x1

	)

846 
	#SOCKET_CONNECTING
 0x2

	)

847 
	#SOCKET_BROADCAST
 0x4

	)

848 
	#SOCKET_PENDING
 0x8

	)

849 
	#SOCKET_FLUSHING
 0x10

	)

850 
	#SOCKET_DATAGRAM
 0x20

	)

851 
	#SOCKET_ASYNC
 0x40

	)

852 
	#SOCKET_BLOCK
 0x80

	)

853 
	#SOCKET_LISTENING
 0x100

	)

854 
	#SOCKET_CLOSING
 0x200

	)

855 
	#SOCKET_CONNRESET
 0x400

	)

856 
	#SOCKET_MYOWNBUFFERS
 0x800

	)

858 
	#SOCKET_PORT_MAX
 0xfffà

	)

863 
	#SOCKET_WOULDBLOCK
 1

	)

864 
	#SOCKET_RESET
 2

	)

865 
	#SOCKET_NETDOWN
 3

	)

866 
	#SOCKET_AGAIN
 4

	)

867 
	#SOCKET_INTR
 5

	)

868 
	#SOCKET_INVAL
 6

	)

873 
	#SOCKET_READABLE
 0x2

	)

874 
	#SOCKET_WRITABLE
 0x4

	)

875 
	#SOCKET_EXCEPTION
 0x8

	)

876 
	#EMF_SOCKET_MESSAGE
 (
WM_USER
+13)

	)

878 
	#WEBS_MAX_REQUEST
 2048

	)

880 #ifdeà
LITTLEFOOT


881 
	#SOCKET_BUFSIZ
 510

	)

883 
	#SOCKET_BUFSIZ
 1024

	)

886 (*
	tsock‘HªdËr_t
)(
	tsid
, 
	tmask
, * 
	td©a
);

887 (*
	tsock‘Acû±_t
)(
	tsid
, *
	taddr
, 
	tpÜt
,

888 
	tli¡’Sid
);

890 
ho¡
[64];

891 
ršgq_t
 
šBuf
;

892 
ršgq_t
 
outBuf
;

893 
ršgq_t
 
lšeBuf
;

894 
sock‘Acû±_t
 
acû±
;

895 
sock‘HªdËr_t
 
hªdËr
;

896 *
hªdËr_d©a
;

897 
hªdËrMask
;

898 
sid
;

899 
pÜt
;

900 
æags
;

901 
sock
;

902 
fžeHªdË
;

903 
š‹»¡Ev’ts
;

904 
cu¼’tEv’ts
;

905 
£ËùEv’ts
;

906 
§veMask
;

907 
”rÜ
;

908 } 
	tsock‘_t
;

916 
	`bþo£
();

917 
	`bÝ’
(*
buf
, 
bufsize
, 
æags
);

924 #ifdeà
NO_BALLOC


925 
	#b®loc
(
B_ARGS
, 
num
è
	`m®loc
Òum)

	)

926 
	#bä“
(
B_ARGS
, 
p
è
	`ä“
Õ)

	)

927 
	#bä“Saã
(
B_ARGS
, 
p
) \

928 ià(
p
è{ 
	`ä“
Õ); 
	}
} 

	)

929 
	#b»®loc
(
B_ARGS
, 
p
, 
num
è
	`»®loc
Õ,‚um)

	)

930 
ch¬_t
 *
b¡rdupNoB®loc
(ch¬_ˆ*
s
);

931 *
b¡rdupANoB®loc
(*
s
);

932 
	#b¡rdup
(
B_ARGS
, 
s
è
	`b¡rdupNoB®loc
(s)

	)

933 
	#b¡rdupA
(
B_ARGS
, 
s
è
	`b¡rdupANoB®loc
(s)

	)

934 
	#g¡rdup
(
B_ARGS
, 
s
è
	`b¡rdupNoB®loc
(s)

	)

938 #iâdeà
B_STATS


939 
	#b®loc
(
B_ARGS
, 
num
è
	`b®loc
Òum)

	)

940 
	#bä“
(
B_ARGS
, 
p
è
	`bä“
Õ)

	)

941 
	#bä“Saã
(
B_ARGS
, 
p
è
	`bä“Saã
Õ)

	)

942 
	#b»®loc
(
B_ARGS
, 
p
, 
size
è
	`b»®loc
Õ, size)

	)

943 
	#b¡rdup
(
B_ARGS
, 
p
è
	`b¡rdup
Õ)

	)

945 #ifdeà
UNICODE


946 
	#b¡rdupA
(
B_ARGS
, 
p
è
	`b¡rdupA
Õ)

	)

948 
	#b¡rdupA
 
b¡rdup


	)

953 
	#g¡rdup
 
b¡rdup


	)

954 *
b®loc
(
B_ARGS_DEC
, 
size
);

955 
bä“
(
B_ARGS_DEC
, *
mp
);

956 
bä“Saã
(
B_ARGS_DEC
, *
mp
);

957 *
b»®loc
(
B_ARGS_DEC
, *
buf
, 
Ãwsize
);

958 
ch¬_t
 *
b¡rdup
(
B_ARGS_DEC
, ch¬_ˆ*
s
);

960 #ifdeà
UNICODE


961 *
b¡rdupA
(
B_ARGS_DEC
, *
s
);

963 
	#b¡rdupA
 
b¡rdup


	)

967 
b¡©s
(
hªdË
, (*
wr™eâ
)(hªdË, 
ch¬_t
 *
fmt
, ...));

972 
	#B_USE_MALLOC
 0x1

	)

973 
	#B_USER_BUF
 0x2

	)

975 #iâdeà
LINUX


976 
ch¬_t
 *
	`ba£Çme
(ch¬_ˆ*
Çme
);

979 (
	temfSchedProc
)(*
	td©a
, 
	tid
);

980 
	`emfSchedC®lback
(
d–ay
, 
emfSchedProc
 *
´oc
, *
¬g
);

981 
	`emfUnschedC®lback
(
id
);

982 
	`emfReschedC®lback
(
id
, 
d–ay
);

983 
	`emfSchedProûss
();

984 
	`emfIn¡G‘
();

985 
	`emfIn¡S‘
(
š¡
);

986 
	`”rÜ
(
E_ARGS_DEC
, 
æags
, 
ch¬_t
 *
fmt
, ...);

987 (*
	`”rÜS‘HªdËr
((*
funùiÚ
)(
‘y³
, 
ch¬_t
 *
msg
))) \

988 (
‘y³
, 
ch¬_t
 *
msg
);

990 #ifdeà
B_STATS


991 
	#hAÎoc
(
x
è
	`HALLOC
(
B_L
, x)

	)

992 
	#hAÎocEÁry
(
x
, 
y
, 
z
è
	`HALLOCENTRY
(
B_L
, x, y, z)

	)

993 
	`HALLOC
(
B_ARGS_DEC
, ***
m­
);

994 
	`HALLOCENTRY
(
B_ARGS_DEC
, ***
li¡
, *
max
, 
size
);

996 
	`hAÎoc
(***
m­
);

997 
	`hAÎocEÁry
(***
li¡
, *
max
, 
size
);

1000 
	`hF»e
(***
m­
, 
hªdË
);

1002 
	`ršgqO³n
(
ršgq_t
 *
rq
, 
šüem’t
, 
maxsize
);

1003 
	`ršgqClo£
(
ršgq_t
 *
rq
);

1004 
	`ršgqL’
(
ršgq_t
 *
rq
);

1006 
	`ršgqPutc
(
ršgq_t
 *
rq
, 
ch¬_t
 
c
);

1007 
	`ršgqIn£¹c
(
ršgq_t
 *
rq
, 
ch¬_t
 
c
);

1008 
	`ršgqPutSŒ
(
ršgq_t
 *
rq
, 
ch¬_t
 *
¡r
);

1009 
	`ršgqG‘c
(
ršgq_t
 *
rq
);

1011 
	`fmtV®loc
(
ch¬_t
 **
s
, 
n
, ch¬_ˆ*
fmt
, 
va_li¡
 
¬g
);

1012 
	`fmtAÎoc
(
ch¬_t
 **
s
, 
n
, ch¬_ˆ*
fmt
, ...);

1013 
	`fmtStic
(
ch¬_t
 *
s
, 
n
, ch¬_ˆ*
fmt
, ...);

1015 #ifdeà
UNICODE


1016 
	`ršgqPutcA
(
ršgq_t
 *
rq
, 
c
);

1017 
	`ršgqIn£¹cA
(
ršgq_t
 *
rq
, 
c
);

1018 
	`ršgqPutSŒA
(
ršgq_t
 *
rq
, *
¡r
);

1019 
	`ršgqG‘cA
(
ršgq_t
 *
rq
);

1021 
	#ršgqPutcA
 
ršgqPutc


	)

1022 
	#ršgqIn£¹cA
 
ršgqIn£¹c


	)

1023 
	#ršgqPutSŒA
 
ršgqPutSŒ


	)

1024 
	#ršgqG‘cA
 
ršgqG‘c


	)

1027 
	`ršgqPutBlk
(
ršgq_t
 *
rq
, *
buf
, 
Ën
);

1028 
	`ršgqPutBlkMax
(
ršgq_t
 *
rq
);

1029 
	`ršgqPutBlkAdj
(
ršgq_t
 *
rq
, 
size
);

1030 
	`ršgqG‘Blk
(
ršgq_t
 *
rq
, *
buf
, 
Ën
);

1031 
	`ršgqG‘BlkMax
(
ršgq_t
 *
rq
);

1032 
	`ršgqG‘BlkAdj
(
ršgq_t
 *
rq
, 
size
);

1033 
	`ršgqFlush
(
ršgq_t
 *
rq
);

1034 
	`ršgqAddNuÎ
(
ršgq_t
 *
rq
);

1036 
	`sütS‘V¬
(
’gše
, 
ch¬_t
 *
v¬
, ch¬_ˆ*
v®ue
);

1037 
	`sütEv®
(
’gše
, 
ch¬_t
 *
cmd
, ch¬_ˆ**
r¦t
, * 
chª
);

1039 
	`sock‘Clo£
();

1040 
	`sock‘Clo£CÚÃùiÚ
(
sid
);

1041 
	`sock‘C»©eHªdËr
(
sid
, 
mask
, 
sock‘HªdËr_t


1042 
hªdËr
, * 
¬g
);

1043 
	`sock‘D–‘eHªdËr
(
sid
);

1044 
	`sock‘Eof
(
sid
);

1045 
	`sock‘CªWr™e
(
sid
);

1046 
	`sock‘S‘BufãrSize
(
sid
, 
š
, 
lše
, 
out
);

1047 
	`sock‘Flush
(
sid
);

1048 
	`sock‘G‘s
(
sid
, 
ch¬_t
 **
buf
);

1049 
	`sock‘G‘PÜt
(
sid
);

1050 
	`sock‘IÅutBufã»d
(
sid
);

1051 
	`sock‘O³n
();

1052 
	`sock‘O³nCÚÃùiÚ
(*
ho¡
, 
pÜt
,

1053 
sock‘Acû±_t
 
acû±
, 
æags
);

1054 
	`sock‘Proûss
(
hid
);

1055 
	`sock‘R—d
(
sid
, *
buf
, 
Ën
);

1056 
	`sock‘R—dy
(
hid
);

1057 
	`sock‘Wr™e
(
sid
, *
buf
, 
Ën
);

1058 
	`sock‘Wr™eSŒšg
(
sid
, 
ch¬_t
 *
buf
);

1059 
	`sock‘S–eù
(
hid
, 
timeout
);

1060 
	`sock‘G‘HªdË
(
sid
);

1061 
	`sock‘S‘Block
(
sid
, 
æags
);

1062 
	`sock‘G‘Block
(
sid
);

1063 
	`sock‘AÎoc
(*
ho¡
, 
pÜt
, 
sock‘Acû±_t
 
acû±
,

1064 
æags
);

1065 
	`sock‘F»e
(
sid
);

1066 
	`sock‘G‘E¼Ü
();

1067 
sock‘_t
 *
	`sock‘PŒ
(
sid
);

1068 
	`sock‘Wa™FÜEv’t
(
sock‘_t
 *
¥
, 
ev’ts
, *
”rCode
);

1069 
	`sock‘Regi¡”IÁ”e¡
(
sock‘_t
 *
¥
, 
hªdËrMask
);

1070 
	`sock‘G‘IÅut
(
sid
, *
buf
, 
toR—d
, *
”rCode
);

1072 
ch¬_t
 *
	`¡¾ow”
(ch¬_ˆ*
¡ršg
);

1073 
ch¬_t
 *
	`¡ruµ”
(ch¬_ˆ*
¡ršg
);

1075 
ch¬_t
 *
	`¡r™ß
(
n
, ch¬_ˆ*
¡ršg
, 
width
);

1077 
sym_fd_t
 
	`symO³n
(
hash_size
);

1078 
	`symClo£
(
sym_fd_t
 
sd
);

1079 
sym_t
 *
	`symLookup
(
sym_fd_t
 
sd
, 
ch¬_t
 *
Çme
);

1080 
sym_t
 *
	`symEÁ”
(
sym_fd_t
 
sd
, 
ch¬_t
 *
Çme
, 
v®ue_t
 
v
, 
¬g
);

1081 
	`symD–‘e
(
sym_fd_t
 
sd
, 
ch¬_t
 *
Çme
);

1082 
	`symW®k
(
sym_fd_t
 
sd
, (*
â
)(
sym_t
 *
symp
));

1083 
sym_t
 *
	`symFœ¡
(
sym_fd_t
 
sd
);

1084 
sym_t
 *
	`symNext
(
sym_fd_t
 
sd
);

1085 
	`symSubO³n
();

1086 
	`symSubClo£
();

1088 
	`Œaû
(
Ëv
, 
ch¬_t
 *
fmt
, ...);

1089 
	`ŒaûRaw
(
ch¬_t
 *
buf
);

1090 (*
	`ŒaûS‘HªdËr
((*
funùiÚ
)(
Ëv–
, 
ch¬_t
 *
buf
)))

1091 (
Ëv–
, 
ch¬_t
 *
buf
);

1093 
v®ue_t
 
	`v®ueIÁeg”
(
v®ue
);

1094 
v®ue_t
 
	`v®ueSŒšg
(
ch¬_t
 *
v®ue
, 
æags
);

1095 
v®ue_t
 
	`v®ueE¼msg
(
ch¬_t
 *
v®ue
);

1096 
	`v®ueF»e
(
v®ue_t
 *
v
);

1097 
	`vxchdœ
(*
dœÇme
);

1099 
	`hextoi
(
ch¬_t
 *
hex¡ršg
);

1100 
	`g¡¹oi
(
ch¬_t
 *
s
);

1101 
time_t
 
	`timeM£c
();

1103 
ch¬_t
 *
	`ascToUni
(ch¬_ˆ*
ubuf
, *
¡r
, 
nBy‹s
);

1104 *
	`uniToAsc
(*
buf
, 
ch¬_t
 *
u¡r
, 
nBy‹s
);

1105 
ch¬_t
 *
	`b®locAscToUni
(*
ý
, 
®’
);

1106 *
	`b®locUniToAsc
(
ch¬_t
 *
un
, 
uËn
);

1108 
ch¬_t
 *
	`basicG‘Ho¡
();

1109 
ch¬_t
 *
	`basicG‘Add»ss
();

1110 
ch¬_t
 *
	`basicG‘Produù
();

1111 
	`basicS‘Ho¡
(
ch¬_t
 *
ho¡
);

1112 
	`basicS‘Add»ss
(
ch¬_t
 *
addr
);

1114 
	`h¬ÃssO³n
(
ch¬_t
 **
¬gv
);

1115 
	`h¬ÃssClo£
(
¡©us
);

1116 
	`h¬ÃssTe¡šg
(
ch¬_t
 *
msg
, ...);

1117 
	`h¬ÃssPas£d
();

1118 
	`h¬ÃssFažed
(
lše
);

1119 
	`h¬ÃssLev–
();

	@um.c

18 
	~"um.h
"

19 
	~"emfdb.h
"

20 
	~"webs.h
"

24 
	#UM_DB_FILENAME
 
	`T
("um.xml")

	)

25 
	#UM_TXT_FILENAME
 
	`T
("umcÚfig.txt")

	)

30 
	#UM_USER_TABLENAME
 
	`T
("u£rs")

	)

31 
	#UM_GROUP_TABLENAME
 
	`T
("groups")

	)

32 
	#UM_ACCESS_TABLENAME
 
	`T
("acûss")

	)

37 
	#UM_NAME
 
	`T
("Çme")

	)

38 
	#UM_PASS
 
	`T
("·sswÜd")

	)

39 
	#UM_GROUP
 
	`T
("group")

	)

40 
	#UM_PROT
 
	`T
("´Ù")

	)

41 
	#UM_DISABLE
 
	`T
("di§bË")

	)

42 
	#UM_METHOD
 
	`T
("m‘hod")

	)

43 
	#UM_PRIVILEGE
 
	`T
("´iv")

	)

44 
	#UM_SECURE
 
	`T
("£cu»")

	)

51 
	#UM_XOR_ENCRYPT
 
	`T
("*j7a(L#yZ98sSd5HfSgGjMj8;Ss;d)(*&^#@$a2s0i3g")

	)

58 
	#NUMBER_OF_USER_COLUMNS
 5

	)

60 
ch¬_t
 *
	gu£rCÞumnNames
[
NUMBER_OF_USER_COLUMNS
] = {

61 
UM_NAME
, 
UM_PASS
, 
UM_GROUP
, 
UM_PROT
, 
UM_DISABLE


64 
	gu£rCÞumnTy³s
[
NUMBER_OF_USER_COLUMNS
] = {

65 
T_STRING
, T_STRING, T_STRING, 
T_INT
, T_INT

68 
dbTabË_t
 
	gu£rTabË
 = {

69 
UM_USER_TABLENAME
,

70 
NUMBER_OF_USER_COLUMNS
,

71 
u£rCÞumnNames
,

72 
u£rCÞumnTy³s
,

74 
NULL


80 
	#NUMBER_OF_GROUP_COLUMNS
 5

	)

82 
ch¬_t
 *
	ggroupCÞumnNames
[
NUMBER_OF_GROUP_COLUMNS
] = {

83 
UM_NAME
, 
UM_PRIVILEGE
, 
UM_METHOD
, 
UM_PROT
, 
UM_DISABLE


86 
	ggroupCÞumnTy³s
[
NUMBER_OF_GROUP_COLUMNS
] = {

87 
T_STRING
, 
T_INT
, T_INT, T_INT, T_INT

90 
dbTabË_t
 
	ggroupTabË
 = {

91 
UM_GROUP_TABLENAME
,

92 
NUMBER_OF_GROUP_COLUMNS
,

93 
groupCÞumnNames
,

94 
groupCÞumnTy³s
,

96 
NULL


102 
	#NUMBER_OF_ACCESS_COLUMNS
 4

	)

104 
ch¬_t
 *
	gacûssCÞumnNames
[
NUMBER_OF_ACCESS_COLUMNS
] = {

105 
UM_NAME
, 
UM_METHOD
, 
UM_SECURE
, 
UM_GROUP


108 
	gacûssCÞumnTy³s
[
NUMBER_OF_ACCESS_COLUMNS
] = {

109 
T_STRING
, 
T_INT
, T_INT, T_STRING

112 
dbTabË_t
 
	gacûssTabË
 = {

113 
UM_ACCESS_TABLENAME
,

114 
NUMBER_OF_ACCESS_COLUMNS
,

115 
acûssCÞumnNames
,

116 
acûssCÞumnTy³s
,

118 
NULL


124 
	gdidUM
 = -1;

129 
ch¬_t
 *
	g§veFž’ame
 = 
NULL
;

131 
	gumO³nCouÁ
 = 0;

135 
boÞ_t
 
umCheckName
(
ch¬_t
 *
Çme
);

142 
	$umO³n
()

144 ià(++
umO³nCouÁ
 != 1) {

145  
didUM
;

150 ià(
didUM
 == -1) {

151 
didUM
 = 
	`dbO³n
(
UM_USER_TABLENAME
, 
UM_DB_FILENAME
, 
NULL
, 0);

152 
	`dbRegi¡”DBSchema
(&
u£rTabË
);

153 
	`dbRegi¡”DBSchema
(&
groupTabË
);

154 
	`dbRegi¡”DBSchema
(&
acûssTabË
);

157 ià(
§veFž’ame
 =ð
NULL
) {

158 
§veFž’ame
 = 
	`b¡rdup
(
B_L
, 
UM_TXT_FILENAME
);

161  
didUM
;

162 
	}
}

169 
	$umClo£
()

171 ià(--
umO³nCouÁ
 > 0) {

177 ià(
didUM
 != -1) {

178 
	`dbClo£
(
didUM
);

179 
didUM
 = -1;

182 ià(
§veFž’ame
 !ð
NULL
) {

183 
	`bä“
(
B_L
, 
§veFž’ame
);

184 
§veFž’ame
 = 
NULL
;

186 
	}
}

193 
	$umComm™
(
ch¬_t
 *
fž’ame
)

195 ià(
fž’ame
 && *filename) {

196 ià(
§veFž’ame
 !ð
NULL
) {

197 
	`bä“
(
B_L
, 
§veFž’ame
);

200 
§veFž’ame
 = 
	`b¡rdup
(
B_L
, 
fž’ame
);

203 
	`a_as£¹
 (
§veFž’ame
 && *saveFilename);

204 
	`Œaû
(3, 
	`T
("UM: Writing User Configurationo file <%s>\n"),

205 
§veFž’ame
);

207  
	`dbSave
(
didUM
, 
§veFž’ame
, 0);

208 
	}
}

215 
	$umRe¡Üe
(
ch¬_t
 *
fž’ame
)

217 ià(
fž’ame
 && *filename) {

218 ià(
§veFž’ame
 !ð
NULL
) {

219 
	`bä“
(
B_L
, 
§veFž’ame
);

222 
§veFž’ame
 = 
	`b¡rdup
(
B_L
, 
fž’ame
);

225 
	`a_as£¹
(
§veFž’ame
 && *saveFilename);

227 
	`Œaû
(3, 
	`T
("UM: Loading User Configuration from file <%s>\n"),

228 
§veFž’ame
);

233 
	`dbZ”o
(
didUM
);

234  
	`dbLßd
(
didUM
, 
§veFž’ame
, 0);

235 
	}
}

243 
	$umEnüy±SŒšg
(
ch¬_t
 *
‹xtSŒšg
)

245 
ch¬_t
 *
’Mask
;

246 
ch¬_t
 
’Ch¬
;

247 
numCh¬s
;

249 
	`a_as£¹
(
‹xtSŒšg
);

251 
’Mask
 = 
UM_XOR_ENCRYPT
;

252 
numCh¬s
 = 0;

254 *
‹xtSŒšg
) {

255 
’Ch¬
 = *
‹xtSŒšg
 ^ *
’Mask
;

260 ià(
’Ch¬
 && !
	`gis¥aû
(enChar))

261 *
‹xtSŒšg
 = 
’Ch¬
;

265 
’Mask
++;

266 
‹xtSŒšg
++;

267 
numCh¬s
++;

271 ià(*
’Mask
 == '\0') {

272 
’Mask
 = 
UM_XOR_ENCRYPT
;

276  
numCh¬s
;

277 
	}
}

285 
ch¬_t
 *
	$umG‘Fœ¡RowD©a
(
ch¬_t
 *
bËName
, ch¬_ˆ*
cÞumnName
)

287 
ch¬_t
 *
cÞumnD©a
;

288 
row
;

289 
check
;

291 
	`a_as£¹
(
bËName
 && *tableName);

292 
	`a_as£¹
(
cÞumnName
 && *columnName);

294 
row
 = 0;

299 
cÞumnD©a
 = 
NULL
;

300 (
check
 = 
	`dbR—dSŒ
(
didUM
, 
bËName
, 
cÞumnName
, 
row
++,

301 &
cÞumnD©a
)è=ð0 || (
check
 =ð
DB_ERR_ROW_DELETED
)) {

302 ià(
cÞumnD©a
 && *columnData) {

303  
cÞumnD©a
;

307  
NULL
;

308 
	}
}

316 
ch¬_t
 *
	$umG‘NextRowD©a
(
ch¬_t
 *
bËName
, ch¬_ˆ*
cÞumnName
,

317 
ch¬_t
 *
keyLa¡
)

319 
ch¬_t
 *
key
;

320 
row
;

321 
check
;

323 
	`a_as£¹
(
bËName
 && *tableName);

324 
	`a_as£¹
(
cÞumnName
 && *columnName);

325 
	`a_as£¹
(
keyLa¡
 && *keyLast);

329 
row
 = 0;

330 
key
 = 
NULL
;

332 (((
check
 = 
	`dbR—dSŒ
(
didUM
, 
bËName
, 
cÞumnName
, 
row
++,

333 &
key
)è=ð0è|| (
check
 =ð
DB_ERR_ROW_DELETED
)) &&

334 ((
key
 =ð
NULL
è|| (
	`g¡rcmp
(key, 
keyLa¡
) != 0))) {

339 ià(!
key
 || 
	`g¡rcmp
(key, 
keyLa¡
) != 0) {

340  
NULL
;

345 ((
check
 = 
	`dbR—dSŒ
(
didUM
, 
bËName
, 
cÞumnName
, 
row
++, &
key
))

346 =ð0è|| (
check
 =ð
DB_ERR_ROW_DELETED
)) {

347 ià(
key
 && *key && (
	`g¡rcmp
(key, 
keyLa¡
) != 0)) {

348  
key
;

352  
NULL
;

353 
	}
}

360 
	$umAddU£r
(
ch¬_t
 *
u£r
, ch¬_ˆ*
·ss
, ch¬_ˆ*
group
,

361 
boÞ_t
 
´Ù
, boÞ_ˆ
di§bËd
)

363 
row
;

364 
ch¬_t
 *
·sswÜd
;

366 
	`a_as£¹
(
u£r
 && *user);

367 
	`a_as£¹
(
·ss
 && *pass);

368 
	`a_as£¹
(
group
 && *group);

370 
	`Œaû
(3, 
	`T
("UM: Addšg U£¸<%s>\n"), 
u£r
);

375 ià(
	`umU£rExi¡s
(
u£r
)) {

376  
UM_ERR_DUPLICATE
;

382 ià(!
	`umCheckName
(
u£r
)) {

383  
UM_ERR_BAD_NAME
;

386 ià(!
	`umCheckName
(
·ss
)) {

387  
UM_ERR_BAD_PASSWORD
;

393 ià(!
	`umGroupExi¡s
(
group
)) {

394  
UM_ERR_NOT_FOUND
;

400 
row
 = 
	`dbAddRow
(
didUM
, 
UM_USER_TABLENAME
);

402 ià(
row
 < 0) {

403  
UM_ERR_GENERAL
;

406 ià(
	`dbWr™eSŒ
(
didUM
, 
UM_USER_TABLENAME
, 
UM_NAME
, 
row
, 
u£r
) != 0) {

407  
UM_ERR_GENERAL
;

410 
·sswÜd
 = 
	`b¡rdup
(
B_L
, 
·ss
);

411 
	`umEnüy±SŒšg
(
·sswÜd
);

412 
	`dbWr™eSŒ
(
didUM
, 
UM_USER_TABLENAME
, 
UM_PASS
, 
row
, 
·sswÜd
);

413 
	`bä“
(
B_L
, 
·sswÜd
);

414 
	`dbWr™eSŒ
(
didUM
, 
UM_USER_TABLENAME
, 
UM_GROUP
, 
row
, 
group
);

415 
	`dbWr™eIÁ
(
didUM
, 
UM_USER_TABLENAME
, 
UM_PROT
, 
row
, 
´Ù
);

416 
	`dbWr™eIÁ
(
didUM
, 
UM_USER_TABLENAME
, 
UM_DISABLE
, 
row
, 
di§bËd
);

419 
	}
}

426 
	$umD–‘eU£r
(
ch¬_t
 *
u£r
)

428 
row
;

430 
	`a_as£¹
(
u£r
 && *user);

431 
	`Œaû
(3, 
	`T
("UM: D–‘šg U£¸<%s>\n"), 
u£r
);

435 ià(
	`umG‘U£rPrÙeùed
(
u£r
)) {

436  
UM_ERR_PROTECTED
;

442 ià((
row
 = 
	`dbS—rchSŒ
(
didUM
, 
UM_USER_TABLENAME
, 
UM_NAME
, 
u£r
, 0)) >= 0) {

443  
	`dbD–‘eRow
(
didUM
, 
UM_USER_TABLENAME
, 
row
);

446  
UM_ERR_NOT_FOUND
;

447 
	}
}

455 
ch¬_t
 *
	$umG‘Fœ¡U£r
()

457  
	`umG‘Fœ¡RowD©a
(
UM_USER_TABLENAME
, 
UM_NAME
);

458 
	}
}

466 
ch¬_t
 *
	$umG‘NextU£r
(
ch¬_t
 *
u£rLa¡
)

468  
	`umG‘NextRowD©a
(
UM_USER_TABLENAME
, 
UM_NAME
, 
u£rLa¡
);

469 
	}
}

476 
boÞ_t
 
	$umU£rExi¡s
(
ch¬_t
 *
u£r
)

478 
	`a_as£¹
(
u£r
 && *user);

480 ià(
	`dbS—rchSŒ
(
didUM
, 
UM_USER_TABLENAME
, 
UM_NAME
, 
u£r
, 0) >= 0) {

481  
TRUE
;

483  
FALSE
;

485 
	}
}

492 
ch¬_t
 *
	$umG‘U£rPasswÜd
(
ch¬_t
 *
u£r
)

494 
ch¬_t
 *
·sswÜd
;

495 
row
;

497 
	`a_as£¹
(
u£r
 && *user);

499 
·sswÜd
 = 
NULL
;

500 
row
 = 
	`dbS—rchSŒ
(
didUM
, 
UM_USER_TABLENAME
, 
UM_NAME
, 
u£r
, 0);

502 ià(
row
 >= 0) {

503 
ch¬_t
 *
·ss
 = 
NULL
;

504 
	`dbR—dSŒ
(
didUM
, 
UM_USER_TABLENAME
, 
UM_PASS
, 
row
, &
·ss
);

510 
·sswÜd
 = 
	`b¡rdup
(
B_L
, 
·ss
);

511 
	`umEnüy±SŒšg
(
·sswÜd
);

514  
·sswÜd
;

515 
	}
}

523 
	$umS‘U£rPasswÜd
(
ch¬_t
 *
u£r
, ch¬_ˆ*
·ss
)

525 
row
, 
nR‘
;

526 
ch¬_t
 *
·sswÜd
;

528 
	`a_as£¹
(
u£r
 && *user);

529 
	`a_as£¹
(
·ss
 && *pass);

530 
	`Œaû
(3, 
	`T
("UM: A‰em±šgØchªgth·sswÜd fÜ u£¸<%s>\n"), 
u£r
);

534 ià((
row
 = 
	`dbS—rchSŒ
(
didUM
, 
UM_USER_TABLENAME
, 
UM_NAME
, 
u£r
, 0)) < 0) {

535  
UM_ERR_NOT_FOUND
;

538 
·sswÜd
 = 
	`b¡rdup
(
B_L
, 
·ss
);

539 
	`umEnüy±SŒšg
(
·sswÜd
);

540 
nR‘
 = 
	`dbWr™eSŒ
(
didUM
, 
UM_USER_TABLENAME
, 
UM_PASS
, 
row
, 
·sswÜd
);

541 
	`bä“
(
B_L
, 
·sswÜd
);

543  
nR‘
;

544 
	}
}

551 
ch¬_t
 *
	$umG‘U£rGroup
(
ch¬_t
 *
u£r
)

553 
ch¬_t
 *
group
;

554 
row
;

556 
	`a_as£¹
(
u£r
 && *user);

557 
group
 = 
NULL
;

561 
row
 = 
	`dbS—rchSŒ
(
didUM
, 
UM_USER_TABLENAME
, 
UM_NAME
, 
u£r
, 0);

563 ià(
row
 >= 0) {

564 
	`dbR—dSŒ
(
didUM
, 
UM_USER_TABLENAME
, 
UM_GROUP
, 
row
, &
group
);

567  
group
;

568 
	}
}

575 
	$umS‘U£rGroup
(
ch¬_t
 *
u£r
, ch¬_ˆ*
group
)

577 
row
;

579 
	`a_as£¹
(
u£r
 && *user);

580 
	`a_as£¹
(
group
 && *group);

584 
row
 = 
	`dbS—rchSŒ
(
didUM
, 
UM_USER_TABLENAME
, 
UM_NAME
, 
u£r
, 0);

586 ià(
row
 >= 0) {

587  
	`dbWr™eSŒ
(
didUM
, 
UM_USER_TABLENAME
, 
UM_GROUP
, 
row
, 
group
);

589  
UM_ERR_NOT_FOUND
;

591 
	}
}

599 
boÞ_t
 
	$umG‘U£rEÇbËd
(
ch¬_t
 *
u£r
)

601 
di§bËd
, 
row
;

603 
	`a_as£¹
(
u£r
 && *user);

605 
di§bËd
 = 1;

609 
row
 = 
	`dbS—rchSŒ
(
didUM
, 
UM_USER_TABLENAME
, 
UM_NAME
, 
u£r
, 0);

611 ià(
row
 >= 0) {

612 
	`dbR—dIÁ
(
didUM
, 
UM_USER_TABLENAME
, 
UM_DISABLE
, 
row
, &
di§bËd
);

615  (
boÞ_t
)!
di§bËd
;

616 
	}
}

622 
	$umS‘U£rEÇbËd
(
ch¬_t
 *
u£r
, 
boÞ_t
 
’abËd
)

624 
row
;

626 
	`a_as£¹
(
u£r
 && *user);

630 
row
 = 
	`dbS—rchSŒ
(
didUM
, 
UM_USER_TABLENAME
, 
UM_NAME
, 
u£r
, 0);

631 ià(
row
 >= 0) {

632  
	`dbWr™eIÁ
(
didUM
, 
UM_USER_TABLENAME
, 
UM_DISABLE
, 
row
, !
’abËd
);

634  
UM_ERR_NOT_FOUND
;

636 
	}
}

643 
boÞ_t
 
	$umG‘U£rPrÙeùed
(
ch¬_t
 *
u£r
)

645 
´Ùeù
, 
row
;

647 
	`a_as£¹
(
u£r
 && *user);

651 
row
 = 
	`dbS—rchSŒ
(
didUM
, 
UM_USER_TABLENAME
, 
UM_NAME
, 
u£r
, 0);

652 
´Ùeù
 = 
FALSE
;

654 ià(
row
 >= 0) {

655 
	`dbR—dIÁ
(
didUM
, 
UM_USER_TABLENAME
, 
UM_PROT
, 
row
, &
´Ùeù
);

658  (
boÞ_t
)
´Ùeù
;

659 
	}
}

665 
	$umS‘U£rPrÙeùed
(
ch¬_t
 *
u£r
, 
boÞ_t
 
´Ùeù
)

667 
row
;

669 
	`a_as£¹
(
u£r
 && *user);

673 
row
 = 
	`dbS—rchSŒ
(
didUM
, 
UM_USER_TABLENAME
, 
UM_NAME
, 
u£r
, 0);

675 ià(
row
 >= 0) {

676  
	`dbWr™eIÁ
(
didUM
, 
UM_USER_TABLENAME
, 
UM_PROT
, 
row
, 
´Ùeù
);

678  
UM_ERR_NOT_FOUND
;

680 
	}
}

688 
	$umAddGroup
(
ch¬_t
 *
group
, 
´iv
, 
acûssM‘h_t
 
am
,

689 
boÞ_t
 
´Ù
, boÞ_ˆ
di§bËd
)

691 
row
;

693 
	`a_as£¹
(
group
 && *group);

694 
	`Œaû
(3, 
	`T
("UM: Addšg grou°<%s>\n"), 
group
);

699 ià(
	`umGroupExi¡s
(
group
)) {

700  
UM_ERR_DUPLICATE
;

706 ià(!
	`umCheckName
(
group
)) {

707  
UM_ERR_BAD_NAME
;

713 ià((
row
 = 
	`dbAddRow
(
didUM
, 
UM_GROUP_TABLENAME
)) < 0) {

714  
UM_ERR_GENERAL
;

720 ià(
	`dbWr™eSŒ
(
didUM
, 
UM_GROUP_TABLENAME
, 
UM_NAME
, 
row
, 
group
) != 0) {

721  
UM_ERR_GENERAL
;

727 
	`dbWr™eIÁ
(
didUM
, 
UM_GROUP_TABLENAME
, 
UM_PRIVILEGE
, 
row
, 
´iv
);

728 
	`dbWr™eIÁ
(
didUM
, 
UM_GROUP_TABLENAME
, 
UM_METHOD
, 
row
, (è
am
);

729 
	`dbWr™eIÁ
(
didUM
, 
UM_GROUP_TABLENAME
, 
UM_PROT
, 
row
, 
´Ù
);

730 
	`dbWr™eIÁ
(
didUM
, 
UM_GROUP_TABLENAME
, 
UM_DISABLE
, 
row
, 
di§bËd
);

733 
	}
}

740 
	$umD–‘eGroup
(
ch¬_t
 *
group
)

742 
row
;

744 
	`a_as£¹
(
group
 && *group);

745 
	`Œaû
(3, 
	`T
("UM: D–‘šg Grou°<%s>\n"), 
group
);

750 ià(
	`umG‘GroupInU£
(
group
)) {

751  
UM_ERR_IN_USE
;

757 ià(
	`umG‘GroupPrÙeùed
(
group
)) {

758  
UM_ERR_PROTECTED
;

764 ià((
row
 = 
	`dbS—rchSŒ
(
didUM
, 
UM_GROUP_TABLENAME
, 
UM_NAME
, 
group
, 0)) < 0) {

765  
UM_ERR_NOT_FOUND
;

768  
	`dbD–‘eRow
(
didUM
, 
UM_GROUP_TABLENAME
, 
row
);

769 
	}
}

776 
boÞ_t
 
	$umGroupExi¡s
(
ch¬_t
 *
group
)

778 
	`a_as£¹
(
group
 && *group);

780 ià(
	`dbS—rchSŒ
(
didUM
, 
UM_GROUP_TABLENAME
, 
UM_NAME
, 
group
, 0) >= 0) {

781  
TRUE
;

783  
FALSE
;

785 
	}
}

794 
boÞ_t
 
	$umG‘GroupInU£
(
ch¬_t
 *
group
)

796 
	`a_as£¹
(
group
 && *group);

801 ià(
	`dbS—rchSŒ
(
didUM
, 
UM_USER_TABLENAME
, 
UM_GROUP
, 
group
, 0) >= 0) {

802  
TRUE
;

808 ià(
	`dbS—rchSŒ
(
didUM
, 
UM_ACCESS_TABLENAME
, 
UM_GROUP
, 
group
, 0) >= 0) {

809  
TRUE
;

812  
FALSE
;

813 
	}
}

821 
ch¬_t
 *
	$umG‘Fœ¡Group
()

823  
	`umG‘Fœ¡RowD©a
(
UM_GROUP_TABLENAME
, 
UM_NAME
);

824 
	}
}

832 
ch¬_t
 *
	$umG‘NextGroup
(
ch¬_t
 *
groupLa¡
)

834  
	`umG‘NextRowD©a
(
UM_GROUP_TABLENAME
, 
UM_NAME
, 
groupLa¡
);

835 
	}
}

842 
acûssM‘h_t
 
	$umG‘GroupAcûssM‘hod
(
ch¬_t
 *
group
)

844 
am
, 
row
;

846 
	`a_as£¹
(
group
 && *group);

847 
row
 = 
	`dbS—rchSŒ
(
didUM
, 
UM_GROUP_TABLENAME
, 
UM_NAME
, 
group
, 0);

849 ià(
row
 >= 0) {

850 
	`dbR—dIÁ
(
didUM
, 
UM_GROUP_TABLENAME
, 
UM_METHOD
, 
row
, (*)&
am
);

852 
am
 = 
AM_INVALID
;

855  (
acûssM‘h_t
è
am
;

856 
	}
}

863 
	$umS‘GroupAcûssM‘hod
(
ch¬_t
 *
group
, 
acûssM‘h_t
 
am
)

865 
row
;

867 
	`a_as£¹
(
group
 && *group);

868 
row
 = 
	`dbS—rchSŒ
(
didUM
, 
UM_GROUP_TABLENAME
, 
UM_NAME
, 
group
, 0);

870 ià(
row
 >= 0) {

871  
	`dbWr™eIÁ
(
didUM
, 
UM_GROUP_TABLENAME
, 
UM_METHOD
, 
row
, (è
am
);

873  
UM_ERR_NOT_FOUND
;

875 
	}
}

882 
	$umG‘GroupPrivžege
(
ch¬_t
 *
group
)

884 
´ivžege
, 
row
;

886 
	`a_as£¹
(
group
 && *group);

887 
´ivžege
 = -1;

888 
row
 = 
	`dbS—rchSŒ
(
didUM
, 
UM_GROUP_TABLENAME
, 
UM_NAME
, 
group
, 0);

890 ià(
row
 >= 0) {

891 
	`dbR—dIÁ
(
didUM
, 
UM_GROUP_TABLENAME
, 
UM_PRIVILEGE
, 
row
, &
´ivžege
);

894  (è
´ivžege
;

895 
	}
}

902 
	$umS‘GroupPrivžege
(
ch¬_t
 *
group
, 
´ivžege
)

904 
row
;

906 
	`a_as£¹
(
group
 && *group);

907 
row
 = 
	`dbS—rchSŒ
(
didUM
, 
UM_GROUP_TABLENAME
, 
UM_NAME
, 
group
, 0);

909 ià(
row
 >= 0) {

910  
	`dbWr™eIÁ
(
didUM
, 
UM_GROUP_TABLENAME
, 
UM_PRIVILEGE
, 
row
,

911 ()
´ivžege
);

913  
UM_ERR_NOT_FOUND
;

915 
	}
}

923 
boÞ_t
 
	$umG‘GroupEÇbËd
(
ch¬_t
 *
group
)

925 
di§bËd
, 
row
;

927 
	`a_as£¹
(
group
 && *group);

928 
row
 = 
	`dbS—rchSŒ
(
didUM
, 
UM_GROUP_TABLENAME
, 
UM_NAME
, 
group
, 0);

929 
di§bËd
 = 1;

931 ià(
row
 >= 0) {

932 
	`dbR—dIÁ
(
didUM
, 
UM_GROUP_TABLENAME
, 
UM_DISABLE
, 
row
, &
di§bËd
);

935  (
boÞ_t
è!
di§bËd
;

936 
	}
}

943 
	$umS‘GroupEÇbËd
(
ch¬_t
 *
group
, 
boÞ_t
 
’abËd
)

945 
row
;

947 
	`a_as£¹
(
group
 && *group);

948 
row
 = 
	`dbS—rchSŒ
(
didUM
, 
UM_GROUP_TABLENAME
, 
UM_NAME
, 
group
, 0);

950 ià(
row
 >= 0) {

951  
	`dbWr™eIÁ
(
didUM
, 
UM_GROUP_TABLENAME
, 
UM_DISABLE
, 
row
,

952 (è!
’abËd
);

954  
UM_ERR_NOT_FOUND
;

956 
	}
}

964 
boÞ_t
 
	$umG‘GroupPrÙeùed
(
ch¬_t
 *
group
)

966 
´Ùeù
, 
row
;

968 
	`a_as£¹
(
group
 && *group);

970 
´Ùeù
 = 0;

971 
row
 = 
	`dbS—rchSŒ
(
didUM
, 
UM_GROUP_TABLENAME
, 
UM_NAME
, 
group
, 0);

972 ià(
row
 >= 0) {

973 
	`dbR—dIÁ
(
didUM
, 
UM_GROUP_TABLENAME
, 
UM_PROT
, 
row
, &
´Ùeù
);

976  (
boÞ_t
è
´Ùeù
;

977 
	}
}

984 
	$umS‘GroupPrÙeùed
(
ch¬_t
 *
group
, 
boÞ_t
 
´Ùeù
)

986 
row
;

988 
	`a_as£¹
(
group
 && *group);

989 
row
 = 
	`dbS—rchSŒ
(
didUM
, 
UM_GROUP_TABLENAME
, 
UM_NAME
, 
group
, 0);

991 ià(
row
 >= 0) {

992  
	`dbWr™eIÁ
(
didUM
, 
UM_GROUP_TABLENAME
, 
UM_PROT
, 
row
,

993 (è
´Ùeù
);

995  
UM_ERR_NOT_FOUND
;

997 
	}
}

1005 
	$umAddAcûssLim™
(
ch¬_t
 *
u¾
, 
acûssM‘h_t
 
am
, 
£cu»
, ch¬_ˆ*
group
)

1007 
row
;

1009 
	`a_as£¹
(
u¾
 && *url);

1010 
	`Œaû
(3, 
	`T
("UM: Addšg Acûs Lim™ fÜ <%s>\n"), 
u¾
);

1015 ià(
	`umAcûssLim™Exi¡s
(
u¾
)) {

1016  
UM_ERR_DUPLICATE
;

1022 ià((
row
 = 
	`dbAddRow
(
didUM
, 
UM_ACCESS_TABLENAME
)) < 0) {

1023  
UM_ERR_GENERAL
;

1029 if(
	`dbWr™eSŒ
(
didUM
, 
UM_ACCESS_TABLENAME
, 
UM_NAME
, 
row
, 
u¾
) < 0) {

1030  
UM_ERR_GENERAL
;

1036 
	`dbWr™eIÁ
(
didUM
, 
UM_ACCESS_TABLENAME
, 
UM_METHOD
, 
row
, ()
am
);

1037 
	`dbWr™eIÁ
(
didUM
, 
UM_ACCESS_TABLENAME
, 
UM_SECURE
, 
row
, ()
£cu»
);

1038 
	`dbWr™eSŒ
(
didUM
, 
UM_ACCESS_TABLENAME
, 
UM_GROUP
, 
row
, 
group
);

1041 
	}
}

1048 
	$umD–‘eAcûssLim™
(
ch¬_t
 *
u¾
)

1050 
row
;

1052 
	`a_as£¹
(
u¾
 && *url);

1053 
	`Œaû
(3, 
	`T
("UM: D–‘šg Acûs Lim™ fÜ <%s>\n"), 
u¾
);

1057 ià((
row
 = 
	`dbS—rchSŒ
(
didUM
, 
UM_ACCESS_TABLENAME
, 
UM_NAME
, 
u¾
, 0)) < 0) {

1058  
UM_ERR_NOT_FOUND
;

1061  
	`dbD–‘eRow
(
didUM
, 
UM_ACCESS_TABLENAME
, 
row
);

1062 
	}
}

1069 
ch¬_t
 *
	$umG‘Fœ¡AcûssLim™
()

1071  
	`umG‘Fœ¡RowD©a
(
UM_ACCESS_TABLENAME
, 
UM_NAME
);

1072 
	}
}

1080 
ch¬_t
 *
	$umG‘NextAcûssLim™
(
ch¬_t
 *
u¾La¡
)

1082  
	`umG‘NextRowD©a
(
UM_ACCESS_TABLENAME
, 
UM_NAME
, 
u¾La¡
);

1083 
	}
}

1090 
boÞ_t
 
	$umAcûssLim™Exi¡s
(
ch¬_t
 *
u¾
)

1092 
	`a_as£¹
(
u¾
 && *url);

1094 ià(
	`dbS—rchSŒ
(
didUM
, 
UM_ACCESS_TABLENAME
, 
UM_NAME
, 
u¾
, 0) < 0) {

1095  
FALSE
;

1097  
TRUE
;

1099 
	}
}

1106 
acûssM‘h_t
 
	$umG‘AcûssLim™M‘hod
(
ch¬_t
 *
u¾
)

1108 
am
, 
row
;

1110 
am
 = (è
AM_INVALID
;

1111 
row
 = 
	`dbS—rchSŒ
(
didUM
, 
UM_ACCESS_TABLENAME
, 
UM_NAME
, 
u¾
, 0);

1113 ià(
row
 >= 0) {

1114 
	`dbR—dIÁ
(
didUM
, 
UM_ACCESS_TABLENAME
, 
UM_METHOD
, 
row
, &
am
);

1117  (
acûssM‘h_t
è
am
;

1118 
	}
}

1125 
	$umS‘AcûssLim™M‘hod
(
ch¬_t
 *
u¾
, 
acûssM‘h_t
 
am
)

1127 
row
;

1129 
	`a_as£¹
(
u¾
 && *url);

1130 
row
 = 
	`dbS—rchSŒ
(
didUM
, 
UM_ACCESS_TABLENAME
, 
UM_NAME
, 
u¾
, 0);

1132 ià(
row
 >= 0) {

1133  
	`dbWr™eIÁ
(
didUM
, 
UM_ACCESS_TABLENAME
, 
UM_METHOD
, 
row
, (è
am
);

1135  
UM_ERR_NOT_FOUND
;

1137 
	}
}

1144 
	$umG‘AcûssLim™Secu»
(
ch¬_t
 *
u¾
)

1146 
£cu»
, 
row
;

1148 
	`a_as£¹
(
u¾
 && *url);

1149 
£cu»
 = -1;

1150 
row
 = 
	`dbS—rchSŒ
(
didUM
, 
UM_ACCESS_TABLENAME
, 
UM_NAME
, 
u¾
, 0);

1152 ià(
row
 >= 0) {

1153 
	`dbR—dIÁ
(
didUM
, 
UM_ACCESS_TABLENAME
, 
UM_SECURE
, 
row
, &
£cu»
);

1156  ()
£cu»
;

1157 
	}
}

1164 
	$umS‘AcûssLim™Secu»
(
ch¬_t
 *
u¾
, 
£cu»
)

1166 
row
;

1168 
	`a_as£¹
(
u¾
 && *url);

1169 
row
 = 
	`dbS—rchSŒ
(
didUM
, 
UM_ACCESS_TABLENAME
, 
UM_NAME
, 
u¾
, 0);

1171 ià(
row
 >= 0) {

1172  
	`dbWr™eIÁ
(
didUM
, 
UM_ACCESS_TABLENAME
, 
UM_SECURE
, 
row
,

1173 ()
£cu»
);

1175  
UM_ERR_NOT_FOUND
;

1177 
	}
}

1184 
ch¬_t
 *
	$umG‘AcûssLim™Group
(
ch¬_t
 *
u¾
)

1186 
ch¬_t
 *
group
;

1187 
row
;

1189 
	`a_as£¹
(
u¾
 && *url);

1190 
group
 = 
NULL
;

1191 
row
 = 
	`dbS—rchSŒ
(
didUM
, 
UM_ACCESS_TABLENAME
, 
UM_NAME
, 
u¾
, 0);

1193 ià(
row
 >= 0) {

1194 
	`dbR—dSŒ
(
didUM
, 
UM_ACCESS_TABLENAME
, 
UM_GROUP
, 
row
, &
group
);

1197  
group
;

1198 
	}
}

1205 
	$umS‘AcûssLim™Group
(
ch¬_t
 *
u¾
, ch¬_ˆ*
group
)

1207 
row
;

1209 
	`a_as£¹
(
u¾
 && *url);

1210 
row
 = 
	`dbS—rchSŒ
(
didUM
, 
UM_ACCESS_TABLENAME
, 
UM_NAME
, 
u¾
, 0);

1212 ià(
row
 >= 0) {

1213  
	`dbWr™eSŒ
(
didUM
, 
UM_ACCESS_TABLENAME
, 
UM_GROUP
, 
row
, 
group
);

1215  
UM_ERR_NOT_FOUND
;

1217 
	}
}

1225 
ch¬_t
 *
	$umG‘AcûssLim™
(
ch¬_t
 *
u¾
)

1227 
ch¬_t
 *
u¾R‘
, *
u¾Check
, *
Ï¡Ch¬
;

1228 
Ën
;

1230 
	`a_as£¹
(
u¾
 && *url);

1231 
u¾R‘
 = 
NULL
;

1232 
u¾Check
 = 
	`b¡rdup
(
B_L
, 
u¾
);

1233 
	`a_as£¹
(
u¾Check
);

1234 
Ën
 = 
	`g¡¾’
(
u¾Check
);

1238 
Ën
 && !
u¾R‘
) {

1239 ià(
	`umAcûssLim™Exi¡s
(
u¾Check
)) {

1240 
u¾R‘
 = 
	`b¡rdup
(
B_L
, 
u¾Check
);

1245 
Ï¡Ch¬
 = 
u¾Check
 + 
Ën
;

1246 
Ï¡Ch¬
--;

1248 (
Ï¡Ch¬
 >ð
u¾Check
) && ((*lastChar == '/') ||

1249 (*
Ï¡Ch¬
 == '\\'))) {

1250 *
Ï¡Ch¬
 = 0;

1251 
Ï¡Ch¬
--;

1254 (
Ï¡Ch¬
 >ð
u¾Check
) && (*lastChar != '/') &&

1255 (*
Ï¡Ch¬
 != '\\')) {

1256 *
Ï¡Ch¬
 = 0;

1257 
Ï¡Ch¬
--;

1260 
Ën
 = 
	`g¡¾’
(
u¾Check
);

1263 
	`bä“
 (
B_L
, 
u¾Check
);

1265  
u¾R‘
;

1266 
	}
}

1273 
acûssM‘h_t
 
	$umG‘AcûssM‘hodFÜURL
(
ch¬_t
 *
u¾
)

1275 
acûssM‘h_t
 
amR‘
;

1276 
ch¬_t
 *
u¾HavšgLim™
, *
group
;

1278 
u¾HavšgLim™
 = 
	`umG‘AcûssLim™
(
u¾
);

1279 ià(
u¾HavšgLim™
) {

1280 
group
 = 
	`umG‘AcûssLim™Group
(
u¾HavšgLim™
);

1282 ià(
group
 && *group) {

1283 
amR‘
 = 
	`umG‘GroupAcûssM‘hod
(
group
);

1285 
amR‘
 = 
	`umG‘AcûssLim™M‘hod
(
u¾HavšgLim™
);

1288 
	`bä“
(
B_L
, 
u¾HavšgLim™
);

1290 
amR‘
 = 
AM_FULL
;

1293  
amR‘
;

1294 
	}
}

1301 
boÞ_t
 
	$umU£rCªAcûssURL
(
ch¬_t
 *
u£r
, ch¬_ˆ*
u¾
)

1303 
acûssM‘h_t
 
amURL
;

1304 
ch¬_t
 *
group
, *
u£rgroup
, *
u¾HavšgLim™
;

1305 
´iv
;

1307 
	`a_as£¹
(
u£r
 && *user);

1308 
	`a_as£¹
(
u¾
 && *url);

1313 ià(!
	`umU£rExi¡s
(
u£r
)) {

1314  
FALSE
;

1320 ià(!
	`umG‘U£rEÇbËd
(
u£r
)) {

1321  
FALSE
;

1327 
u£rgroup
 = 
	`umG‘U£rGroup
(
u£r
);

1328 
´iv
 = 
	`umG‘GroupPrivžege
(
u£rgroup
);

1329 ià(
´iv
 == 0) {

1330  
FALSE
;

1336 ià(!
	`umG‘GroupEÇbËd
(
u£rgroup
)) {

1337  
FALSE
;

1343 ià(
	`umG‘GroupAcûssM‘hod
(
u£rgroup
è=ð
AM_NONE
) {

1344  
FALSE
;

1350 
u¾HavšgLim™
 = 
	`umG‘AcûssLim™
(
u¾
);

1351 ià(
u¾HavšgLim™
) {

1352 
amURL
 = 
	`umG‘AcûssLim™M‘hod
(
u¾HavšgLim™
);

1353 
group
 = 
	`umG‘AcûssLim™Group
(
u¾HavšgLim™
);

1354 
	`bä“
(
B_L
, 
u¾HavšgLim™
);

1359  
TRUE
;

1366 ià(
amURL
 =ð
AM_NONE
) {

1367  
FALSE
;

1374 ià(
group
 && *group) {

1375 ià(
u£rgroup
 && (
	`g¡rcmp
(
group
, usergroup) != 0)) {

1376  
FALSE
;

1384  
TRUE
;

1386 
	}
}

1393 
boÞ_t
 
	$umCheckName
(
ch¬_t
 *
Çme
)

1395 
	`a_as£¹
(
Çme
 && *name);

1397 ià(
Çme
 && *name) {

1398 *
Çme
) {

1399 ià(
	`gis¥aû
(*
Çme
)) {

1400  
FALSE
;

1403 
Çme
++;

1406  
TRUE
;

1409  
FALSE
;

1410 
	}
}

	@um.h

10 #iâdeà
_h_UM


11 
	#_h_UM
 1

	)

23 
	~"uemf.h
"

30 
	#UM_OK
 0

	)

31 
	#UM_ERR_GENERAL
 -1

	)

32 
	#UM_ERR_NOT_FOUND
 -2

	)

33 
	#UM_ERR_PROTECTED
 -3

	)

34 
	#UM_ERR_DUPLICATE
 -4

	)

35 
	#UM_ERR_IN_USE
 -5

	)

36 
	#UM_ERR_BAD_NAME
 -6

	)

37 
	#UM_ERR_BAD_PASSWORD
 -7

	)

42 
	#PRIV_NONE
 0x00

	)

43 
	#PRIV_READ
 0x01

	)

44 
	#PRIV_WRITE
 0x02

	)

45 
	#PRIV_ADMIN
 0x04

	)

50 
	tboÞ_t
;

52 #iâdeà
TRUE


53 
	#TRUE
 1

	)

56 #iâdeà
FALSE


57 
	#FALSE
 0

	)

61 
	mAM_NONE
 = 0,

62 
	mAM_FULL
,

63 
	mAM_BASIC
,

64 
	mAM_DIGEST
,

65 
	mAM_INVALID


66 } 
	tacûssM‘h_t
;

73 
umO³n
();

78 
umClo£
();

83 
umComm™
(
ch¬_t
 *
fž’ame
);

88 
umRe¡Üe
(
ch¬_t
 *
fž’ame
);

93 
umAddU£r
(
ch¬_t
 *
u£r
, ch¬_ˆ*
·sswÜd
,

94 
ch¬_t
 *
group
, 
boÞ_t
 
´Ùeù
, boÞ_ˆ
di§bËd
);

96 
umD–‘eU£r
(
ch¬_t
 *
u£r
);

98 
ch¬_t
 *
umG‘Fœ¡U£r
();

99 
ch¬_t
 *
umG‘NextU£r
(ch¬_ˆ*
Ï¡U£r
);

101 
boÞ_t
 
umU£rExi¡s
(
ch¬_t
 *
u£r
);

103 
ch¬_t
 *
umG‘U£rPasswÜd
(ch¬_ˆ*
u£r
);

104 
umS‘U£rPasswÜd
(
ch¬_t
 *
u£r
, ch¬_ˆ*
·sswÜd
);

106 
ch¬_t
 *
umG‘U£rGroup
(ch¬_ˆ*
u£r
);

107 
umS‘U£rGroup
(
ch¬_t
 *
u£r
, ch¬_ˆ*
·sswÜd
);

109 
boÞ_t
 
umG‘U£rEÇbËd
(
ch¬_t
 *
u£r
);

110 
umS‘U£rEÇbËd
(
ch¬_t
 *
u£r
, 
boÞ_t
 
’abËd
);

112 
boÞ_t
 
umG‘U£rPrÙeùed
(
ch¬_t
 *
u£r
);

113 
umS‘U£rPrÙeùed
(
ch¬_t
 *
u£r
, 
boÞ_t
 
´Ùeù
);

118 
umAddGroup
(
ch¬_t
 *
group
, 
´ivžege
,

119 
acûssM‘h_t
 
am
, 
boÞ_t
 
´Ùeù
, boÞ_ˆ
di§bËd
);

121 
umD–‘eGroup
(
ch¬_t
 *
group
);

123 
ch¬_t
 *
umG‘Fœ¡Group
();

124 
ch¬_t
 *
umG‘NextGroup
(ch¬_ˆ*
Ï¡U£r
);

126 
boÞ_t
 
umGroupExi¡s
(
ch¬_t
 *
group
);

127 
boÞ_t
 
umG‘GroupInU£
(
ch¬_t
 *
group
);

129 
acûssM‘h_t
 
umG‘GroupAcûssM‘hod
(
ch¬_t
 *
group
);

130 
umS‘GroupAcûssM‘hod
(
ch¬_t
 *
group
, 
acûssM‘h_t
 
am
);

132 
boÞ_t
 
umG‘GroupEÇbËd
(
ch¬_t
 *
group
);

133 
umS‘GroupEÇbËd
(
ch¬_t
 *
group
, 
boÞ_t
 
’abËd
);

135 
umG‘GroupPrivžege
(
ch¬_t
 *
group
);

136 
umS‘GroupPrivžege
(
ch¬_t
 *
group
, 
´ivžeges
);

138 
boÞ_t
 
umG‘GroupPrÙeùed
(
ch¬_t
 *
group
);

139 
umS‘GroupPrÙeùed
(
ch¬_t
 *
group
, 
boÞ_t
 
´Ùeù
);

144 
umAddAcûssLim™
(
ch¬_t
 *
u¾
, 
acûssM‘h_t
 
am
,

145 
£cu»
, 
ch¬_t
 *
group
);

147 
umD–‘eAcûssLim™
(
ch¬_t
 *
u¾
);

149 
ch¬_t
 *
umG‘Fœ¡AcûssLim™
();

150 
ch¬_t
 *
umG‘NextAcûssLim™
(ch¬_ˆ*
Ï¡U£r
);

155 
ch¬_t
 *
umG‘AcûssLim™
(ch¬_ˆ*
u¾
);

157 
boÞ_t
 
umAcûssLim™Exi¡s
(
ch¬_t
 *
u¾
);

159 
acûssM‘h_t
 
umG‘AcûssLim™M‘hod
(
ch¬_t
 *
u¾
);

160 
umS‘AcûssLim™M‘hod
(
ch¬_t
 *
u¾
, 
acûssM‘h_t
 
am
);

162 
umG‘AcûssLim™Secu»
(
ch¬_t
 *
u¾
);

163 
umS‘AcûssLim™Secu»
(
ch¬_t
 *
u¾
, 
£cu»
);

165 
ch¬_t
 *
umG‘AcûssLim™Group
(ch¬_ˆ*
u¾
);

166 
umS‘AcûssLim™Group
(
ch¬_t
 *
u¾
, ch¬_ˆ*
group
);

172 
acûssM‘h_t
 
umG‘AcûssM‘hodFÜURL
(
ch¬_t
 *
u¾
);

173 
boÞ_t
 
umU£rCªAcûssURL
(
ch¬_t
 *
u£r
, ch¬_ˆ*
u¾
);

	@umui.c

18 
	~"wsIÁº.h
"

19 
	~"um.h
"

23 
	#NONE_OPTION
 
	`T
("<NONE>")

	)

24 
	#MSG_START
 
	`T
("<body><h2>")

	)

25 
	#MSG_END
 
	`T
("</h2></body>")

	)

29 
fÜmAddU£r
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
);

30 
fÜmD–‘eU£r
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
);

31 
fÜmDi¥ÏyU£r
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
);

32 
a¥G’”©eU£rLi¡
(
eid
, 
webs_t
 
wp
,

33 
¬gc
, 
ch¬_t
 **
¬gv
);

35 
fÜmAddGroup
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
);

36 
fÜmD–‘eGroup
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
);

37 
a¥G’”©eGroupLi¡
(
eid
, 
webs_t
 
wp
,

38 
¬gc
, 
ch¬_t
 **
¬gv
);

40 
fÜmAddAcûssLim™
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
);

41 
fÜmD–‘eAcûssLim™
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
);

42 
a¥G’”©eAcûssLim™Li¡
(
eid
, 
webs_t
 
wp
,

43 
¬gc
, 
ch¬_t
 **
¬gv
);

45 
a¥G’”©eAcûssM‘hodLi¡
(
eid
, 
webs_t
 
wp
,

46 
¬gc
, 
ch¬_t
 **
¬gv
);

47 
a¥G’”©ePrivžegeLi¡
(
eid
, 
webs_t
 
wp
,

48 
¬gc
, 
ch¬_t
 **
¬gv
);

50 
fÜmSaveU£rMªagem’t
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
);

51 
fÜmLßdU£rMªagem’t
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
);

53 
websMsgS¹
(
webs_t
 
wp
);

54 
websMsgEnd
(
webs_t
 
wp
);

61 
	$fÜmDefšeU£rMgmt
()

63 
	`websA¥Defše
(
	`T
("MakeGroupLi¡"), 
a¥G’”©eGroupLi¡
);

64 
	`websA¥Defše
(
	`T
("MakeU£rLi¡"), 
a¥G’”©eU£rLi¡
);

65 
	`websA¥Defše
(
	`T
("MakeAcûssLim™Li¡"), 
a¥G’”©eAcûssLim™Li¡
);

66 
	`websA¥Defše
(
	`T
("MakeAcûssM‘hodLi¡"), 
a¥G’”©eAcûssM‘hodLi¡
);

67 
	`websA¥Defše
(
	`T
("MakePrivžegeLi¡"), 
a¥G’”©ePrivžegeLi¡
);

69 
	`websFÜmDefše
(
	`T
("AddU£r"), 
fÜmAddU£r
);

70 
	`websFÜmDefše
(
	`T
("D–‘eU£r"), 
fÜmD–‘eU£r
);

71 
	`websFÜmDefše
(
	`T
("Di¥ÏyU£r"), 
fÜmDi¥ÏyU£r
);

72 
	`websFÜmDefše
(
	`T
("AddGroup"), 
fÜmAddGroup
);

73 
	`websFÜmDefše
(
	`T
("D–‘eGroup"), 
fÜmD–‘eGroup
);

74 
	`websFÜmDefše
(
	`T
("AddAcûssLim™"), 
fÜmAddAcûssLim™
);

75 
	`websFÜmDefše
(
	`T
("D–‘eAcûssLim™"), 
fÜmD–‘eAcûssLim™
);

77 
	`websFÜmDefše
(
	`T
("SaveU£rMªagem’t"), 
fÜmSaveU£rMªagem’t
);

78 
	`websFÜmDefše
(
	`T
("LßdU£rMªagem’t"), 
fÜmLßdU£rMªagem’t
);

79 
	}
}

86 
	$fÜmAddU£r
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
)

88 
ch¬_t
 *
u£rid
, *
·ss1
, *
·ss2
, *
group
, *
’abËd
, *
ok
;

89 
boÞ_t
 
bDi§bË
;

90 
nCheck
;

92 
	`a_as£¹
(
wp
);

94 
u£rid
 = 
	`websG‘V¬
(
wp
, 
	`T
("user"), T(""));

95 
·ss1
 = 
	`websG‘V¬
(
wp
, 
	`T
("password"), T(""));

96 
·ss2
 = 
	`websG‘V¬
(
wp
, 
	`T
("passconf"), T(""));

97 
group
 = 
	`websG‘V¬
(
wp
, 
	`T
("group"), T(""));

98 
’abËd
 = 
	`websG‘V¬
(
wp
, 
	`T
("enabled"), T(""));

99 
ok
 = 
	`websG‘V¬
(
wp
, 
	`T
("ok"), T(""));

101 
	`websH—d”
(
wp
);

102 
	`websMsgS¹
(
wp
);

104 ià(
	`g¡ricmp
(
ok
, 
	`T
("ok")) != 0) {

105 
	`websWr™e
(
wp
, 
	`T
("Add User Cancelled"));

106 } ià(
	`g¡rcmp
(
·ss1
, 
·ss2
) != 0) {

107 
	`websWr™e
(
wp
, 
	`T
("Confirmation Password did‚ot match."));

109 ià(
’abËd
 && *’abËd && (
	`g¡rcmp
ÓÇbËd, 
	`T
("on")) == 0)) {

110 
bDi§bË
 = 
FALSE
;

112 
bDi§bË
 = 
TRUE
;

115 
nCheck
 = 
	`umAddU£r
(
u£rid
, 
·ss1
, 
group
, 0, 
bDi§bË
);

116 ià(
nCheck
 != 0) {

117 
ch¬_t
 * 
¡rE¼Ü
;

119 
nCheck
) {

120 
UM_ERR_DUPLICATE
:

121 
¡rE¼Ü
 = 
	`T
("User‡lreadyƒxists.");

124 
UM_ERR_BAD_NAME
:

125 
¡rE¼Ü
 = 
	`T
("Invalid user‚ame.");

128 
UM_ERR_BAD_PASSWORD
:

129 
¡rE¼Ü
 = 
	`T
("Invalid…assword.");

132 
UM_ERR_NOT_FOUND
:

133 
¡rE¼Ü
 = 
	`T
("Invalid or unselected group.");

137 
¡rE¼Ü
 = 
	`T
("Error writing user„ecord.");

141 
	`websWr™e
(
wp
, 
	`T
("Unableo‡dd user, \"%s\". %s"),

142 
u£rid
, 
¡rE¼Ü
);

144 
	`websWr™e
(
wp
, 
	`T
("User, \"%s\" was successfully‡dded."),

145 
u£rid
);

149 
	`websMsgEnd
(
wp
);

150 
	`websFoÙ”
(
wp
);

151 
	`websDÚe
(
wp
, 200);

152 
	}
}

159 
	$fÜmD–‘eU£r
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
)

161 
ch¬_t
 *
u£rid
, *
ok
;

163 
	`a_as£¹
(
wp
);

165 
u£rid
 = 
	`websG‘V¬
(
wp
, 
	`T
("user"), T(""));

166 
ok
 = 
	`websG‘V¬
(
wp
, 
	`T
("ok"), T(""));

168 
	`websH—d”
(
wp
);

169 
	`websMsgS¹
(
wp
);

171 ià(
	`g¡ricmp
(
ok
, 
	`T
("ok")) != 0) {

172 
	`websWr™e
(
wp
, 
	`T
("Delete User Cancelled"));

173 } ià(
	`umU£rExi¡s
(
u£rid
è=ð
FALSE
) {

174 
	`websWr™e
(
wp
, 
	`T
("ERROR: U£¸\"%s\"‚Ù found"), 
u£rid
);

175 } ià(
	`umG‘U£rPrÙeùed
(
u£rid
)) {

176 
	`websWr™e
(
wp
, 
	`T
("ERROR: U£r, \"%s\" i d–‘e-´Ùeùed."), 
u£rid
);

177 } ià(
	`umD–‘eU£r
(
u£rid
) != 0) {

178 
	`websWr™e
(
wp
, 
	`T
("ERROR: UÇbËØd–‘u£r, \"%s\" "), 
u£rid
);

180 
	`websWr™e
(
wp
, 
	`T
("U£r, \"%s\" wa sucûssfuÎy d–‘ed."), 
u£rid
);

183 
	`websMsgEnd
(
wp
);

184 
	`websFoÙ”
(
wp
);

185 
	`websDÚe
(
wp
, 200);

186 
	}
}

193 
	$fÜmDi¥ÏyU£r
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
)

195 
ch¬_t
 *
u£rid
, *
ok
, *
‹mp
;

196 
boÞ_t
 
’abËd
;

198 
	`a_as£¹
(
wp
);

200 
u£rid
 = 
	`websG‘V¬
(
wp
, 
	`T
("user"), T(""));

201 
ok
 = 
	`websG‘V¬
(
wp
, 
	`T
("ok"), T(""));

203 
	`websH—d”
(
wp
);

204 
	`websWr™e
(
wp
, 
	`T
("<body>"));

206 ià(
	`g¡ricmp
(
ok
, 
	`T
("ok")) != 0) {

207 
	`websWr™e
(
wp
, 
	`T
("Display User Cancelled"));

208 } ià(
	`umU£rExi¡s
(
u£rid
è=ð
FALSE
) {

209 
	`websWr™e
(
wp
, 
	`T
("ERROR: U£¸<b>%s</b>‚Ù found.\n"), 
u£rid
);

211 
	`websWr™e
(
wp
, 
	`T
("<h2>U£¸ID: <b>%s</b></h2>\n"), 
u£rid
);

212 
‹mp
 = 
	`umG‘U£rGroup
(
u£rid
);

213 
	`websWr™e
(
wp
, 
	`T
("<h3>U£¸Group: <b>%s</b></h3>\n"), 
‹mp
);

214 
’abËd
 = 
	`umG‘U£rEÇbËd
(
u£rid
);

215 
	`websWr™e
(
wp
, 
	`T
("<h3>EÇbËd: <b>%d</b></h3>\n"), 
’abËd
);

218 
	`websWr™e
(
wp
, 
	`T
("</body>\n"));

219 
	`websFoÙ”
(
wp
);

220 
	`websDÚe
(
wp
, 200);

221 
	}
}

229 
	$a¥G’”©eU£rLi¡
(
eid
, 
webs_t
 
wp
, 
¬gc
, 
ch¬_t
 **
¬gv
)

231 
ch¬_t
 *
u£rid
;

232 
row
, 
nBy‹sS’t
, 
nBy‹s
;

234 
	`a_as£¹
(
wp
);

236 
nBy‹s
 = 
	`websWr™e
(
wp
,

237 
	`T
("<SELECT NAME=\"user\" SIZE=\"3\" TITLE=\"Select‡ User\">"));

238 
row
 = 0;

239 
u£rid
 = 
	`umG‘Fœ¡U£r
();

240 
nBy‹sS’t
 = 0;

242 
u£rid
 && (
nBy‹s
 > 0)) {

243 
nBy‹s
 = 
	`websWr™e
(
wp
, 
	`T
("<OPTION VALUE=\"%s\">%s\n"),

244 
u£rid
, userid);

245 
u£rid
 = 
	`umG‘NextU£r
(userid);

246 
nBy‹sS’t
 +ð
nBy‹s
;

249 
nBy‹sS’t
 +ð
	`websWr™e
(
wp
, 
	`T
("</SELECT>"));

251  
nBy‹sS’t
;

252 
	}
}

259 
	$fÜmAddGroup
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
)

261 
ch¬_t
 *
group
, *
’abËd
, *
´ivžege
, *
m‘hod
, *
ok
, *
pCh¬
;

262 
nCheck
;

263 
´iv
;

264 
acûssM‘h_t
 
am
;

265 
boÞ_t
 
bDi§bË
;

267 
	`a_as£¹
(
wp
);

269 
group
 = 
	`websG‘V¬
(
wp
, 
	`T
("group"), T(""));

270 
m‘hod
 = 
	`websG‘V¬
(
wp
, 
	`T
("method"), T(""));

271 
’abËd
 = 
	`websG‘V¬
(
wp
, 
	`T
("enabled"), T(""));

272 
´ivžege
 = 
	`websG‘V¬
(
wp
, 
	`T
("privilege"), T(""));

273 
ok
 = 
	`websG‘V¬
(
wp
, 
	`T
("ok"), T(""));

275 
	`websH—d”
(
wp
);

276 
	`websMsgS¹
(
wp
);

278 ià(
	`g¡ricmp
(
ok
, 
	`T
("ok")) != 0) {

279 
	`websWr™e
(
wp
, 
	`T
("Add Group Cancelled."));

280 } ià((
group
 =ð
NULL
) || (*group == 0)) {

281 
	`websWr™e
(
wp
, 
	`T
("No Group Name wasƒntered."));

282 } ià(
	`umGroupExi¡s
(
group
)) {

283 
	`websWr™e
(
wp
, 
	`T
("ERROR: Group, \"%s\"‡Ì—dyƒxi¡s."), 
group
);

285 ià(
´ivžege
 && *privilege) {

290 
´iv
 = 0;

291 
pCh¬
 = 
´ivžege
; *pChar;…Char++) {

292 ià(*
pCh¬
 == ' ') {

293 *
pCh¬
 = '\0';

294 
´iv
 |ð
	`g©oi
(
´ivžege
);

295 *
pCh¬
 = ' ';

296 
´ivžege
 = 
pCh¬
 + 1;

299 
´iv
 |ð
	`g©oi
(
´ivžege
);

301 
´iv
 = 0;

304 ià(
m‘hod
 && *method) {

305 
am
 = (
acûssM‘h_t
è
	`g©oi
(
m‘hod
);

307 
am
 = 
AM_FULL
;

310 ià(
’abËd
 && *’abËd && (
	`g¡rcmp
ÓÇbËd, 
	`T
("on")) == 0)) {

311 
bDi§bË
 = 
FALSE
;

313 
bDi§bË
 = 
TRUE
;

316 
nCheck
 = 
	`umAddGroup
(
group
, 
´iv
, 
am
, 0, 
bDi§bË
);

317 ià(
nCheck
 != 0) {

318 
	`websWr™e
(
wp
, 
	`T
("Unableo‡dd group, \"%s\", code: %d "),

319 
group
, 
nCheck
);

321 
	`websWr™e
(
wp
, 
	`T
("Group, \"%s\" was successfully‡dded."),

322 
group
);

326 
	`websMsgEnd
(
wp
);

327 
	`websFoÙ”
(
wp
);

328 
	`websDÚe
(
wp
, 200);

329 
	}
}

336 
	$fÜmD–‘eGroup
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
)

338 
ch¬_t
 *
group
, *
ok
;

340 
	`a_as£¹
(
wp
);

342 
group
 = 
	`websG‘V¬
(
wp
, 
	`T
("group"), T(""));

343 
ok
 = 
	`websG‘V¬
(
wp
, 
	`T
("ok"), T(""));

345 
	`websH—d”
(
wp
);

346 
	`websMsgS¹
(
wp
);

348 ià(
	`g¡ricmp
(
ok
, 
	`T
("ok")) != 0) {

349 
	`websWr™e
(
wp
, 
	`T
("Delete Group Cancelled."));

350 } ià((
group
 =ð
NULL
) || (*group == '\0')) {

351 
	`websWr™e
(
wp
, 
	`T
("ERROR: No group was selected."));

352 } ià(
	`umG‘GroupPrÙeùed
(
group
)) {

353 
	`websWr™e
(
wp
, 
	`T
("ERROR: Group, \"%s\" i d–‘e-´Ùeùed."), 
group
);

354 } ià(
	`umG‘GroupInU£
(
group
)) {

355 
	`websWr™e
(
wp
, 
	`T
("ERROR: Group, \"%s\" i bešg u£d."), 
group
);

356 } ià(
	`umD–‘eGroup
(
group
) != 0) {

357 
	`websWr™e
(
wp
, 
	`T
("ERROR: UÇbËØd–‘group, \"%s\" "), 
group
);

359 
	`websWr™e
(
wp
, 
	`T
("Group, \"%s\" wa sucûssfuÎy d–‘ed."), 
group
);

362 
	`websMsgEnd
(
wp
);

363 
	`websFoÙ”
(
wp
);

364 
	`websDÚe
(
wp
, 200);

365 
	}
}

372 
	$a¥G’”©eGroupLi¡
(
eid
, 
webs_t
 
wp
, 
¬gc
, 
ch¬_t
 **
¬gv
)

374 
ch¬_t
 *
group
;

375 
row
, 
nBy‹sS’t
, 
nBy‹s
;

377 
	`a_as£¹
(
wp
);

379 
row
 = 0;

380 
nBy‹sS’t
 = 0;

381 
nBy‹s
 = 
	`websWr™e
(
wp
,

382 
	`T
("<SELECT NAME=\"group\" SIZE=\"3\" TITLE=\"Select‡ Group\">"));

386 
nBy‹s
 = 
	`websWr™e
(
wp
, 
	`T
("<OPTION VALUE=\"\">[NONE]\n"));

388 
group
 = 
	`umG‘Fœ¡Group
();

389 
group
 && (
nBy‹s
 > 0)) {

390 
nBy‹s
 = 
	`websWr™e
(
wp
, 
	`T
("<OPTION VALUE=\"%s\">%s\n"), 
group
, group);

391 
group
 = 
	`umG‘NextGroup
(group);

392 
nBy‹sS’t
 +ð
nBy‹s
;

395 
nBy‹sS’t
 +ð
	`websWr™e
(
wp
, 
	`T
("</SELECT>"));

397  
nBy‹sS’t
;

398 
	}
}

405 
	$fÜmAddAcûssLim™
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
)

407 
ch¬_t
 *
u¾
, *
m‘hod
, *
group
, *
£cu»
, *
ok
;

408 
nCheck
;

409 
acûssM‘h_t
 
am
;

410 
nSecu»
;

412 
	`a_as£¹
(
wp
);

414 
u¾
 = 
	`websG‘V¬
(
wp
, 
	`T
("url"), T(""));

415 
group
 = 
	`websG‘V¬
(
wp
, 
	`T
("group"), T(""));

416 
m‘hod
 = 
	`websG‘V¬
(
wp
, 
	`T
("method"), T(""));

417 
£cu»
 = 
	`websG‘V¬
(
wp
, 
	`T
("secure"), T(""));

418 
ok
 = 
	`websG‘V¬
(
wp
, 
	`T
("ok"), T(""));

420 
	`websH—d”
(
wp
);

421 
	`websMsgS¹
(
wp
);

423 ià(
	`g¡ricmp
(
ok
, 
	`T
("ok")) != 0) {

424 
	`websWr™e
(
wp
, 
	`T
("Add Access Limit Cancelled."));

425 } ià((
u¾
 =ð
NULL
) || (*url == 0)) {

426 
	`websWr™e
(
wp
, 
	`T
("ERROR: No URL wasƒntered."));

427 } ià(
	`umAcûssLim™Exi¡s
(
u¾
)) {

428 
	`websWr™e
(
wp
, 
	`T
("ERROR: An Access Limit for [%s]‡lreadyƒxists."),

429 
u¾
);

431 ià(
m‘hod
 && *method) {

432 
am
 = (
acûssM‘h_t
è
	`g©oi
(
m‘hod
);

434 
am
 = 
AM_FULL
;

437 ià(
£cu»
 && *secure) {

438 
nSecu»
 = (è
	`g©oi
(
£cu»
);

440 
nSecu»
 = 0;

443 
nCheck
 = 
	`umAddAcûssLim™
(
u¾
, 
am
, 
nSecu»
, 
group
);

444 ià(
nCheck
 != 0) {

445 
	`websWr™e
(
wp
, 
	`T
("UÇbËØadd Acûs Lim™ fÜ [%s]"), 
u¾
);

447 
	`websWr™e
(
wp
, 
	`T
("Access†imit for [%s], was successfully‡dded."),

448 
u¾
);

452 
	`websMsgEnd
(
wp
);

453 
	`websFoÙ”
(
wp
);

454 
	`websDÚe
(
wp
, 200);

455 
	}
}

462 
	$fÜmD–‘eAcûssLim™
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
)

464 
ch¬_t
 *
u¾
, *
ok
;

466 
	`a_as£¹
(
wp
);

468 
u¾
 = 
	`websG‘V¬
(
wp
, 
	`T
("url"), T(""));

469 
ok
 = 
	`websG‘V¬
(
wp
, 
	`T
("ok"), T(""));

471 
	`websH—d”
(
wp
);

472 
	`websMsgS¹
(
wp
);

474 ià(
	`g¡ricmp
(
ok
, 
	`T
("ok")) != 0) {

475 
	`websWr™e
(
wp
, 
	`T
("Delete Access Limit Cancelled"));

476 } ià(
	`umD–‘eAcûssLim™
(
u¾
) != 0) {

477 
	`websWr™e
(
wp
, 
	`T
("ERROR: Unableo delete Access Limit for [%s]"),

478 
u¾
);

480 
	`websWr™e
(
wp
, 
	`T
("Access Limit for [%s], was successfully deleted."),

481 
u¾
);

484 
	`websMsgEnd
(
wp
);

485 
	`websFoÙ”
(
wp
);

486 
	`websDÚe
(
wp
, 200);

487 
	}
}

494 
	$a¥G’”©eAcûssLim™Li¡
(
eid
, 
webs_t
 
wp
,

495 
¬gc
, 
ch¬_t
 **
¬gv
)

497 
ch¬_t
 *
u¾
;

498 
row
, 
nBy‹sS’t
, 
nBy‹s
;

500 
	`a_as£¹
(
wp
);

502 
row
 = 
nBy‹sS’t
 = 0;

503 
u¾
 = 
	`umG‘Fœ¡AcûssLim™
();

504 
nBy‹s
 = 
	`websWr™e
(
wp
,

505 
	`T
("<SELECT NAME=\"url\" SIZE=\"3\" TITLE=\"Select‡ URL\">"));

507 
u¾
 && (
nBy‹s
 > 0)) {

508 
nBy‹s
 = 
	`websWr™e
(
wp
, 
	`T
("<OPTION VALUE=\"%s\">%s\n"), 
u¾
, url);

509 
u¾
 = 
	`umG‘NextAcûssLim™
(url);

510 
nBy‹sS’t
 +ð
nBy‹s
;

513 
nBy‹sS’t
 +ð
	`websWr™e
(
wp
, 
	`T
("</SELECT>"));

515  
nBy‹sS’t
;

516 
	}
}

523 
	$a¥G’”©eAcûssM‘hodLi¡
(
eid
, 
webs_t
 
wp
,

524 
¬gc
, 
ch¬_t
 **
¬gv
)

526 
nBy‹s
;

528 
	`a_as£¹
(
wp
);

530 
nBy‹s
 = 
	`websWr™e
(
wp
,

531 
	`T
("<SELECT NAME=\"method\" SIZE=\"3\" TITLE=\"Select‡ Method\">"));

532 
nBy‹s
 +ð
	`websWr™e
(
wp
, 
	`T
("<OPTION VALUE=\"%d\">FULL ACCESS\n"),

533 
AM_FULL
);

534 
nBy‹s
 +ð
	`websWr™e
(
wp
, 
	`T
("<OPTION VALUE=\"%d\">BASIC ACCESS\n"),

535 
AM_BASIC
);

536 
nBy‹s
 +ð
	`websWr™e
(
wp
, 
	`T
("<OPTION VALUE=\"%d\" SELECTED>DIGEST ACCESS\n"),

537 
AM_DIGEST
);

538 
nBy‹s
 +ð
	`websWr™e
(
wp
, 
	`T
("<OPTION VALUE=\"%d\">NO ACCESS\n"),

539 
AM_NONE
);

540 
nBy‹s
 +ð
	`websWr™e
(
wp
, 
	`T
("</SELECT>"));

542  
nBy‹s
;

543 
	}
}

549 
	$a¥G’”©ePrivžegeLi¡
(
eid
, 
webs_t
 
wp
,

550 
¬gc
, 
ch¬_t
 **
¬gv
)

552 
nBy‹s
;

554 
	`a_as£¹
(
wp
);

556 
nBy‹s
 = 
	`websWr™e
(
wp
, 
	`T
("<SELECT NAME=\"privilege\" SIZE=\"3\" "));

557 
nBy‹s
 +ð
	`websWr™e
(
wp
, 
	`T
("MULTIPLE TITLE=\"Choose Privileges\">"));

558 
nBy‹s
 +ð
	`websWr™e
(
wp
, 
	`T
("<OPTION VALUE=\"%d\">READ\n"), 
PRIV_READ
);

559 
nBy‹s
 +ð
	`websWr™e
(
wp
, 
	`T
("<OPTION VALUE=\"%d\">EXECUTE\n"), 
PRIV_WRITE
);

560 
nBy‹s
 +ð
	`websWr™e
(
wp
, 
	`T
("<OPTION VALUE=\"%d\">ADMINISTRATE\n"),

561 
PRIV_ADMIN
);

562 
nBy‹s
 +ð
	`websWr™e
(
wp
, 
	`T
("</SELECT>"));

564  
nBy‹s
;

565 
	}
}

572 
	$fÜmSaveU£rMªagem’t
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
)

574 
ch¬_t
 *
ok
;

576 
	`a_as£¹
(
wp
);

578 
ok
 = 
	`websG‘V¬
(
wp
, 
	`T
("ok"), T(""));

580 
	`websH—d”
(
wp
);

581 
	`websMsgS¹
(
wp
);

583 ià(
	`g¡ricmp
(
ok
, 
	`T
("ok")) != 0) {

584 
	`websWr™e
(
wp
, 
	`T
("Save Cancelled."));

585 } ià(
	`umComm™
(
NULL
) != 0) {

586 
	`websWr™e
(
wp
, 
	`T
("ERROR: Unableo save user configuration."));

588 
	`websWr™e
(
wp
, 
	`T
("User configuration was saved successfully."));

591 
	`websMsgEnd
(
wp
);

592 
	`websFoÙ”
(
wp
);

593 
	`websDÚe
(
wp
, 200);

594 
	}
}

601 
	$fÜmLßdU£rMªagem’t
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
)

603 
ch¬_t
 *
ok
;

605 
	`a_as£¹
(
wp
);

607 
ok
 = 
	`websG‘V¬
(
wp
, 
	`T
("ok"), T(""));

609 
	`websH—d”
(
wp
);

610 
	`websMsgS¹
(
wp
);

612 ià(
	`g¡ricmp
(
ok
, 
	`T
("ok")) != 0) {

613 
	`websWr™e
(
wp
, 
	`T
("Load Cancelled."));

614 } ià(
	`umRe¡Üe
(
NULL
) != 0) {

615 
	`websWr™e
(
wp
, 
	`T
("ERROR: Unableo†oad user configuration."));

617 
	`websWr™e
(
wp
, 
	`T
("User configuration was„e-loaded successfully."));

620 
	`websMsgEnd
(
wp
);

621 
	`websFoÙ”
(
wp
);

622 
	`websDÚe
(
wp
, 200);

623 
	}
}

630 
	$websMsgS¹
(
webs_t
 
wp
)

632 
	`websWr™e
(
wp
, 
MSG_START
);

633 
	}
}

635 
	$websMsgEnd
(
webs_t
 
wp
)

637 
	`websWr™e
(
wp
, 
MSG_END
);

638 
	}
}

	@url.c

18 
	~"wsIÁº.h
"

27 
ch¬_t
 
	ghtmExt
[] = 
T
(".htm");

37 
ch¬_t
 *
	$websU¾Ty³
(
ch¬_t
 *
u¾
, ch¬_ˆ*
buf
, 
ch¬CÁ
)

39 
sym_t
 *
¥
;

40 
ch¬_t
 *
ext
, *
·r£buf
;

42 
	`a_as£¹
(
u¾
 && *url);

43 
	`a_as£¹
(
buf
 && 
ch¬CÁ
 > 0);

45 ià(
u¾
 =ð
NULL
 || *url == '\0') {

46 
	`g¡rýy
(
buf
, 
	`T
("text/plain"));

47  
buf
;

49 ià(
	`websU¾P¬£
(
u¾
, &
·r£buf
, 
NULL
, NULL, NULL, NULL, NULL,

50 
NULL
, &
ext
) < 0) {

51 
	`g¡rýy
(
buf
, 
	`T
("text/plain"));

52  
buf
;

54 
	`¡¾ow”
(
ext
);

59 ià((
¥
 = 
	`symLookup
(
websMime
, 
ext
)è!ð
NULL
) {

60 
	`g¡ºýy
(
buf
, 
¥
->
cÚ‹Á
.
v®ue
.
¡ršg
, 
ch¬CÁ
);

62 
	`g¡rýy
(
buf
, 
	`T
("text/plain"));

64 
	`bä“
(
B_L
, 
·r£buf
);

65  
buf
;

66 
	}
}

74 
	$websU¾P¬£
(
ch¬_t
 *
u¾
, ch¬_ˆ**
pbuf
, ch¬_ˆ**
pho¡
, ch¬_ˆ**
µ©h
,

75 
ch¬_t
 **
µÜt
, ch¬_ˆ**
pqu”y
, ch¬_ˆ**
µrÙo
, ch¬_ˆ**
±ag
,

76 
ch¬_t
 **
³xt
)

78 
ch¬_t
 *
tok
, *
ý
, *
ho¡
, *
·th
, *
pÜt
, *
´Ùo
, *
g
, *
qu”y
, *
ext
;

79 
ch¬_t
 *
ho¡buf
, *
pÜtbuf
, *
buf
;

80 
c
, 
Ën
, 
uËn
;

82 
	`a_as£¹
(
u¾
);

83 
	`a_as£¹
(
pbuf
);

85 
uËn
 = 
	`g¡¾’
(
u¾
);

91 
Ën
 = 
uËn
 * 2 + 
MAX_PORT_LEN
 + 3;

92 ià((
buf
 = 
	`b®loc
(
B_L
, 
Ën
 * (
ch¬_t
))è=ð
NULL
) {

95 
pÜtbuf
 = &
buf
[
Ën
 - 
MAX_PORT_LEN
 - 1];

96 
ho¡buf
 = &
buf
[
uËn
+1];

101 
	`websDecodeU¾
(
buf
, 
u¾
, 
uËn
);

103 
u¾
 = 
buf
;

109 
	`¡r™ß
(
	`websG‘PÜt
(), 
pÜtbuf
, 
MAX_PORT_LEN
);

110 
pÜt
 = 
pÜtbuf
;

111 
·th
 = 
	`T
("/");

112 
´Ùo
 = 
	`T
("http");

113 
ho¡
 = 
	`T
("localhost");

114 
qu”y
 = 
	`T
("");

115 
ext
 = 
htmExt
;

116 
g
 = 
	`T
("");

118 ià(
	`g¡ºcmp
(
u¾
, 
	`T
("http://"), 7) == 0) {

119 
tok
 = &
u¾
[7];

120 
tok
[-3] = '\0';

121 
´Ùo
 = 
u¾
;

122 
ho¡
 = 
tok
;

123 
ý
 = 
tok
; *cp; cp++) {

124 ià(*
ý
 == '/') {

127 ià(*
ý
 == ':') {

128 *
ý
++ = '\0';

129 
pÜt
 = 
ý
;

130 
tok
 = 
ý
;

133 ià((
ý
 = 
	`g¡rchr
(
tok
, '/')è!ð
NULL
) {

138 
c
 = *
ý
;

139 *
ý
 = '\0';

140 
	`g¡ºýy
(
ho¡buf
, 
ho¡
, 
uËn
);

141 
	`g¡ºýy
(
pÜtbuf
, 
pÜt
, 
MAX_PORT_LEN
);

142 *
ý
 = 
c
;

143 
ho¡
 = 
ho¡buf
;

144 
pÜt
 = 
pÜtbuf
;

145 
·th
 = 
ý
;

146 
tok
 = 
ý
;

150 
·th
 = 
u¾
;

151 
tok
 = 
u¾
;

157 ià((
ý
 = 
	`g¡rchr
(
tok
, '?')è!ð
NULL
) {

158 *
ý
++ = '\0';

159 
qu”y
 = 
ý
;

160 
·th
 = 
tok
;

161 
tok
 = 
qu”y
;

167 ià((
ý
 = 
	`g¡rchr
(
tok
, '#')è!ð
NULL
) {

168 *
ý
++ = '\0';

169 ià(*
qu”y
 == 0) {

170 
·th
 = 
tok
;

177 ià(
³xt
) {

184 ià((
ý
 = 
	`g¡¼chr
(
·th
, '.')è!ð
NULL
) {

185 cÚ¡ 
ch¬_t
* 
g¬bage
 = 
	`T
("/\\");

186 
Ëngth
 = 
	`g¡rc¥n
(
ý
, 
g¬bage
);

187 
g¬bageL’gth
 = 
	`g¡r¥n
(
ý
 + 
Ëngth
, 
g¬bage
);

188 
ok
 = (
Ëngth
 + 
g¬bageL’gth
 =ð(è
	`g¡¾’
(
ý
));

190 ià(
ok
) {

191 
ý
[
Ëngth
] = '\0';

192 #ifdeà
WIN32


193 
	`¡¾ow”
(
ý
);

195 
ext
 = 
ý
;

203 ià(
pho¡
)

204 *
pho¡
 = 
ho¡
;

205 ià(
µ©h
)

206 *
µ©h
 = 
·th
;

207 ià(
µÜt
)

208 *
µÜt
 = 
pÜt
;

209 ià(
µrÙo
)

210 *
µrÙo
 = 
´Ùo
;

211 ià(
pqu”y
)

212 *
pqu”y
 = 
qu”y
;

213 ià(
±ag
)

214 *
±ag
 = 
g
;

215 ià(
³xt
)

216 *
³xt
 = 
ext
;

217 *
pbuf
 = 
buf
;

219 
	}
}

	@utils/webcomp.c

23 
	~<¡dio.h
>

24 
	~<¡ršg.h
>

25 
	~<¡dlib.h
>

26 
	~<sys/¡©.h
>

27 
	~<fúŽ.h
>

29 
¡©
 
	t¡©_t
;

31 #iâdeà
O_BINARY


32 
	#O_BINARY
 0

	)

34 #iâdeà
FNAMESIZE


35 
	#FNAMESIZE
 254

	)

40 
compže
(*
fžeLi¡
, *
´efix
);

41 
u§ge
();

48 
	$maš
(
¬gc
, * 
¬gv
[])

50 *
fžeLi¡
, *
´efix
;

52 
fžeLi¡
 = 
NULL
;

54 ià(
¬gc
 != 3) {

55 
	`u§ge
();

58 
´efix
 = 
¬gv
[1];

59 
fžeLi¡
 = 
¬gv
[2];

61 ià(
	`compže
(
fžeLi¡
, 
´efix
) < 0) {

65 
	}
}

72 
	$u§ge
()

74 
	`årštf
(
¡d”r
, "usage: webcomp…refix filelist >output.c\n\
 is‡ file containinghe…athnames of‡ll web…ages\n\
 is‡…ath…refixo„emove from‡llhe web…age…athnames\n\
.c ishe„esulting C source fileo compile‡nd†ink.\n");

79 
	`ex™
(2);

80 
	}
}

87 
	$compže
(*
fžeLi¡
, *
´efix
)

89 
¡©_t
 
sbuf
;

90 
FILE
 *
Í
;

91 
time_t
 
now
;

92 
fže
[
FNAMESIZE
];

93 *
ý
, *
¦
;

94 
buf
[512];

95 *
p
;

96 
j
, 
i
, 
Ën
, 
fd
, 
nFže
;

101 ià((
Í
 = 
	`fÝ’
(
fžeLi¡
, "r")è=ð
NULL
) {

102 
	`årštf
(
¡d”r
, "Cª'ˆÝ’ fžli¡ %s\n", 
fžeLi¡
);

106 
	`time
(&
now
);

107 
	`årštf
(
¡dout
, "/*\n * webrom.c -- Compiled Web Pages\n *\n");

108 
	`årštf
(
¡dout
, " * Compiled by GoAhead WebCompile: %s */\n\n",

109 
	`ùime
(&
now
));

110 
	`årštf
(
¡dout
, "#include \"wsIntrn.h\"\n\n");

111 
	`årštf
(
¡dout
, "#ifndef WEBS_PAGE_ROM\n");

112 
	`årštf
(
¡dout
, "websRomPageIndexType websRomPageIndex[] = {\n");

113 
	`årštf
(
¡dout
, "\t{ 0, 0, 0 }\n};\n");

114 
	`årštf
(
¡dout
, "#else\n");

119 
nFže
 = 0;

120 
	`fg‘s
(
fže
, (fže), 
Í
è!ð
NULL
) {

121 ià((
p
 = (*)
	`¡rchr
(
fže
, '\n')) ||

122 (
p
 = (*)
	`¡rchr
(
fže
, '\r'))) {

123 *
p
 = '\0';

125 ià(*
fže
 == '\0') {

128 ià(
	`¡©
(
fže
, &
sbuf
è=ð0 && sbuf.
¡_mode
 & 
S_IFDIR
) {

131 ià((
fd
 = 
	`Ý’
(
fže
, 
O_RDONLY
 | 
O_BINARY
)) < 0) {

132 
	`årštf
(
¡d”r
, "Cª'ˆÝ’ fž%s\n", 
fže
);

135 
	`årštf
(
¡dout
, "/* % */\n", 
fže
);

136 
	`årštf
(
¡dout
, "¡©iøunsigÃd ch¬…%d[] = {\n", 
nFže
);

138 (
Ën
 = 
	`»ad
(
fd
, 
buf
, (buf))) > 0) {

139 
p
 = (*)
buf
;

140 
i
 = 0; i < 
Ën
; ) {

141 
	`årštf
(
¡dout
, "\t");

142 
j
 = 0; 
p
<(*)(&
buf
[
Ën
]) && j < 16; j++,…++) {

143 
	`årštf
(
¡dout
, "%3d,", *
p
);

145 
i
 +ð
j
;

146 
	`årštf
(
¡dout
, "\n");

149 
	`årštf
(
¡dout
, "\t0 };\n\n");

151 
	`þo£
(
fd
);

152 
nFže
++;

154 
	`fþo£
(
Í
);

159 
	`årštf
(
¡dout
, "websRomPageIndexType websRomPageIndex[] = {\n");

161 ià((
Í
 = 
	`fÝ’
(
fžeLi¡
, "r")è=ð
NULL
) {

162 
	`årštf
(
¡d”r
, "Cª'ˆÝ’ fžli¡ %s\n", 
fžeLi¡
);

165 
nFže
 = 0;

166 
	`fg‘s
(
fže
, (fže), 
Í
è!ð
NULL
) {

167 ià((
p
 = (*)
	`¡rchr
(
fže
, '\n')) ||

168 (
p
 = (*)
	`¡rchr
(
fže
, '\r'))) {

169 *
p
 = '\0';

171 ià(*
fže
 == '\0') {

177 ià(
	`¡ºcmp
(
fže
, 
´efix
, 
	`¡¾’
(prefix)) == 0) {

178 
ý
 = &
fže
[
	`¡¾’
(
´efix
)];

180 
ý
 = 
fže
;

182 (
¦
 = 
	`¡rchr
(
fže
, '\\')è!ð
NULL
) {

183 *
¦
 = '/';

185 ià(*
ý
 == '/') {

186 
ý
++;

189 ià(
	`¡©
(
fže
, &
sbuf
è=ð0 && sbuf.
¡_mode
 & 
S_IFDIR
) {

190 
	`årštf
(
¡dout
, "\t{ T(\"/%s\"), 0, 0 },\n", 
ý
);

193 
	`årštf
(
¡dout
, "\t{ T(\"/%s\"),…%d, %d },\n", 
ý
, 
nFže
,

194 
sbuf
.
¡_size
);

195 
nFže
++;

197 
	`fþo£
(
Í
);

199 
	`årštf
(
¡dout
, "\t{ 0, 0, 0 }\n");

200 
	`årštf
(
¡dout
, "};\n");

201 
	`årštf
(
¡dout
, "#endif /* WEBS_PAGE_ROM */\n");

203 
	`fþo£
(
Í
);

204 
	`fæush
(
¡dout
);

206 
	}
}

	@value.c

17 
	~"uemf.h
"

25 
v®ue_t
 
	$v®ueIÁeg”
(
v®ue
)

27 
v®ue_t
 
v
;

29 
	`mem£t
(&
v
, 0x0, (v));

30 
v
.
v®id
 = 1;

31 
v
.
ty³
 = 
š‹g”
;

32 
v
.
v®ue
.
š‹g”
 = value;

33  
v
;

34 
	}
}

41 
v®ue_t
 
	$v®ueSŒšg
(
ch¬_t
* 
v®ue
, 
æags
)

43 
v®ue_t
 
v
;

45 
	`mem£t
(&
v
, 0x0, (v));

46 
v
.
v®id
 = 1;

47 
v
.
ty³
 = 
¡ršg
;

48 ià(
æags
 & 
VALUE_ALLOCATE
) {

49 
v
.
®loÿ‹d
 = 1;

50 
v
.
v®ue
.
¡ršg
 = 
	`g¡rdup
(
B_L
, value);

52 
v
.
®loÿ‹d
 = 0;

53 
v
.
v®ue
.
¡ršg
 = value;

55  
v
;

56 
	}
}

63 
	$v®ueF»e
(
v®ue_t
* 
v
)

65 ià(
v
->
v®id
 && v->
®loÿ‹d
 && v->
ty³
 =ð
¡ršg
 &&

66 
v
->
v®ue
.
¡ršg
 !ð
NULL
) {

67 
	`bä“
(
B_L
, 
v
->
v®ue
.
¡ršg
);

69 
v
->
ty³
 = 
undefšed
;

70 
v
->
v®id
 = 0;

71 
v
->
®loÿ‹d
 = 0;

72 
	}
}

	@webrom.c

10 
	~"wsIÁº.h
"

12 
websRomPageIndexTy³
 
	gwebsRomPageIndex
[] = {

	@webs.c

19 
	~"wsIÁº.h
"

20 #ifdeà
DIGEST_ACCESS_SUPPORT


21 
	~"websda.h
"

24 
sock‘_t
 **
sock‘Li¡
;

28 
websStsTy³
 
	gwebsSts
;

29 
webs_t
 *
	gwebs
;

30 
sym_fd_t
 
	gwebsMime
;

31 
	gwebsMax
;

32 
	gwebsPÜt
;

33 
ch¬_t
 
	gwebsHo¡
[64];

34 
ch¬_t
 
	gwebsI·ddr
[64];

35 
ch¬_t
 *
	gwebsHo¡U¾
 = 
NULL
;

36 
ch¬_t
 *
	gwebsI·ddrU¾
 = 
NULL
;

43 
websE¼ÜTy³
 
	gwebsE¼Üs
[] = {

44 { 200, 
T
("Data follows") },

45 { 204, 
T
("No Content") },

46 { 301, 
T
("Redirect") },

47 { 302, 
T
("Redirect") },

48 { 304, 
T
("Use†ocal copy") },

49 { 400, 
T
("Page‚ot found") },

50 { 401, 
T
("Unauthorized") },

51 { 403, 
T
("Forbidden") },

52 { 404, 
T
("Site or Page Not Found") },

53 { 405, 
T
("Access Denied") },

54 { 500, 
T
("Web Error") },

55 { 501, 
T
("Not Implemented") },

56 { 503, 
T
("Site Temporarily Unavailable. Try‡gain.") },

57 { 0, 
NULL
 }

60 #ifdeà
WEBS_LOG_SUPPORT


61 
ch¬_t
 
	gwebsLogÇme
[64] = 
T
("log.txt");

62 
	gwebsLogFd
;

65 #ifdeà
WEBS_TRACE_SUPPORT


66 
ch¬_t
 
	gwebsT¿ûÇme
[64] = 
T
("trace.txt");

67 
	gwebsT¿ûFd
;

70 
	gwebsLi¡’Sock
;

71 
ch¬_t
 
	gwebsR—lm
[64] = 
T
("GoAhead");

73 
	gwebsO³nCouÁ
 = 0;

79 
websG‘IÅut
(
webs_t
 
wp
, 
ch¬_t
 **
±ext
, *
nby‹s
);

80 
websP¬£Fœ¡
(
webs_t
 
wp
, 
ch¬_t
 *
‹xt
);

81 
websP¬£Reque¡
(
webs_t
 
wp
);

82 
websSock‘Ev’t
(
sid
, 
mask
, * 
d©a
);

83 
websG‘TimeSšûM¬k
(
webs_t
 
wp
);

85 #ifdeà
WEBS_LOG_SUPPORT


86 
websLog
(
webs_t
 
wp
, 
code
);

88 #ifdeà
WEBS_TRACE_SUPPORT


89 
ŒaûHªdËr
(
Ëv–
, 
ch¬_t
 *
buf
);

91 #ifdeà
WEBS_IF_MODIFIED_SUPPORT


92 
time_t
 
d©eP¬£
Ñime_ˆ
t
, 
ch¬_t
 *
cmd
);

100 
	$websO³nS”v”
(
pÜt
, 
»Œ›s
)

102 
websMimeTy³
 *
mt
;

104 ià(++
websO³nCouÁ
 != 1) {

105  
websPÜt
;

108 
	`a_as£¹
(
pÜt
 > 0);

109 
	`a_as£¹
(
»Œ›s
 >= 0);

111 
	`websDeçuÉO³n
();

113 #ifdeà
WEBS_PAGE_ROM


114 
	`websRomO³n
();

117 
webs
 = 
NULL
;

118 
websMax
 = 0;

122 
websMime
 = 
	`symO³n
(
WEBS_SYM_INIT
 * 4);

123 
	`a_as£¹
(
websMime
 >= 0);

124 
mt
 = 
websMimeLi¡
; mt->
ty³
; mt++) {

125 
	`symEÁ”
(
websMime
, 
mt
->
ext
, 
	`v®ueSŒšg
(mt->
ty³
, 0), 0);

132 ià(
	`websU¾HªdËrO³n
() < 0) {

135 
	`websFÜmO³n
();

137 #ifdeà
WEBS_LOG_SUPPORT


141 #iâdeà
VXWORKS


142 
websLogFd
 = 
	`gÝ’
(
websLogÇme
, 
O_CREAT
 | 
O_TRUNC
 | 
O_APPEND
 | 
O_WRONLY
,

145 
websLogFd
 = 
	`gÝ’
(
websLogÇme
, 
O_CREAT
 | 
O_TRUNC
 | 
O_WRONLY
, 0666);

146 
	`l£ek
(
fd
, 0, 
SEEK_END
);

148 
	`a_as£¹
(
websLogFd
 >= 0);

151 #ifdeà
WEBS_TRACE_SUPPORT


155 #iâdeà
VXWORKS


156 
websT¿ûFd
 = 
	`gÝ’
(
websT¿ûÇme
, 
O_CREAT
 | 
O_TRUNC
 | 
O_APPEND
 | 
O_WRONLY
,

159 
websT¿ûFd
 = 
	`gÝ’
(
websT¿ûÇme
, 
O_CREAT
 | 
O_TRUNC
 | 
O_WRONLY
, 0666);

160 
	`l£ek
(
fd
, 0, 
SEEK_END
);

162 
	`a_as£¹
(
websT¿ûFd
 >= 0);

163 
	`ŒaûS‘HªdËr
(
ŒaûHªdËr
);

165  
	`websO³nLi¡’
(
pÜt
, 
»Œ›s
);

166 
	}
}

173 
	$websClo£S”v”
()

175 
webs_t
 
wp
;

176 
wid
;

178 ià(--
websO³nCouÁ
 > 0) {

185 
	`websClo£Li¡’
();

190 
wid
 = 
websMax
; 
webs
 && wid >= 0; wid--) {

191 ià((
wp
 = 
webs
[
wid
]è=ð
NULL
) {

194 
	`sock‘Clo£CÚÃùiÚ
(
wp
->
sid
);

195 
	`websF»e
(
wp
);

198 #ifdeà
WEBS_LOG_SUPPORT


199 ià(
websLogFd
 >= 0) {

200 
	`þo£
(
websLogFd
);

201 
websLogFd
 = -1;

204 #ifdeà
WEBS_TRACE_SUPPORT


205 ià(
websT¿ûFd
 >= 0) {

206 
	`þo£
(
websT¿ûFd
);

207 
websT¿ûFd
 = -1;

211 #ifdeà
WEBS_PAGE_ROM


212 
	`websRomClo£
();

214 
	`websDeçuÉClo£
();

215 
	`symClo£
(
websMime
);

216 
	`websFÜmClo£
();

217 
	`websU¾HªdËrClo£
();

218 
	}
}

225 
	$websO³nLi¡’
(
pÜt
, 
»Œ›s
)

227 
i
, 
Üig
;

229 
	`a_as£¹
(
pÜt
 > 0);

230 
	`a_as£¹
(
»Œ›s
 >= 0);

232 
Üig
 = 
pÜt
;

236 
i
 = 0; i <ð
»Œ›s
; i++) {

237 
websLi¡’Sock
 = 
	`sock‘O³nCÚÃùiÚ
(
NULL
, 
pÜt
, 
websAcû±
, 0);

238 ià(
websLi¡’Sock
 >= 0) {

241 
pÜt
++;

243 ià(
i
 > 
»Œ›s
) {

244 
	`”rÜ
(
E_L
, 
E_USER
, 
	`T
("Couldn't open‡ socket on…orts %d - %d"),

245 
Üig
, 
pÜt
 - 1);

252 
websPÜt
 = 
pÜt
;

253 
	`bä“Saã
(
B_L
, 
websHo¡U¾
);

254 
	`bä“Saã
(
B_L
, 
websI·ddrU¾
);

255 
websI·ddrU¾
 = 
websHo¡U¾
 = 
NULL
;

257 ià(
pÜt
 == 80) {

258 
websHo¡U¾
 = 
	`b¡rdup
(
B_L
, 
websHo¡
);

259 
websI·ddrU¾
 = 
	`b¡rdup
(
B_L
, 
websI·ddr
);

261 
	`fmtAÎoc
(&
websHo¡U¾
, 
WEBS_MAX_URL
 + 80, 
	`T
("%s:%d"), 
websHo¡
, 
pÜt
);

262 
	`fmtAÎoc
(&
websI·ddrU¾
, 
WEBS_MAX_URL
 + 80, 
	`T
("%s:%d"),

263 
websI·ddr
, 
pÜt
);

265 
	`Œaû
(0, 
	`T
("webs: Listening for HTTP„equests‡t‡ddress %s\n"),

266 
websI·ddrU¾
);

268  
pÜt
;

269 
	}
}

276 
	$websClo£Li¡’
()

278 ià(
websLi¡’Sock
 >= 0) {

279 
	`sock‘Clo£CÚÃùiÚ
(
websLi¡’Sock
);

280 
websLi¡’Sock
 = -1;

282 
	`bä“Saã
(
B_L
, 
websHo¡U¾
);

283 
	`bä“Saã
(
B_L
, 
websI·ddrU¾
);

284 
websI·ddrU¾
 = 
websHo¡U¾
 = 
NULL
;

285 
	}
}

292 
	$websAcû±
(
sid
, *
addr
, 
pÜt
, 
li¡’Sid
)

294 
webs_t
 
wp
;

295 
wid
;

296 
sockaddr_š
 
ifAddr
;

297 
Ën
;

298 *
pSŒšg
;

300 
	`a_as£¹
(
addr
 && *ipaddr);

301 
	`a_as£¹
(
sid
 >= 0);

302 
	`a_as£¹
(
pÜt
 >= 0);

308 ià((
wid
 = 
	`websAÎoc
(
sid
)) < 0) {

311 
wp
 = 
webs
[
wid
];

312 
	`a_as£¹
(
wp
);

313 
wp
->
li¡’Sid
 =†istenSid;

315 
	`ascToUni
(
wp
->
addr
, i·ddr, 
	`mš
((wp->addr), 
	`¡¾’
(ipaddr) + 1));

320 
Ën
 = (
sockaddr_š
);

321 ià(
	`g‘sockÇme
(
sock‘Li¡
[
sid
]->
sock
, (
sockaddr
 *)&
ifAddr
, (
sockËn_t
 *è&
Ën
) < 0)

323 
pSŒšg
 = 
	`š‘_Áß
(
ifAddr
.
sš_addr
);

324 
	`g¡ºýy
(
wp
->
içddr
, 
pSŒšg
, 
	`g¡¾’
(pString));

330 ià(
	`g¡rcmp
(
wp
->
addr
, 
	`T
("127.0.0.1")) == 0 ||

331 
	`g¡rcmp
(
wp
->
addr
, 
websI·ddr
) == 0 ||

332 
	`g¡rcmp
(
wp
->
addr
, 
websHo¡
) == 0) {

333 
wp
->
æags
 |ð
WEBS_LOCAL_REQUEST
;

339 
	`sock‘C»©eHªdËr
(
sid
, 
SOCKET_READABLE
, 
websSock‘Ev’t
, 
wp
);

344 
wp
->
timeout
 = 
	`emfSchedC®lback
(
WEBS_TIMEOUT
, 
websTimeout
, (*) wp);

345 
	`Œaû
(8, 
	`T
("webs:‡ccept„equest\n"));

347 
	}
}

356 
	$websSock‘Ev’t
(
sid
, 
mask
, * 
iwp
)

358 
webs_t
 
wp
;

360 
wp
 = (
webs_t
è
iwp
;

361 
	`a_as£¹
(
wp
);

363 ià(! 
	`websV®id
(
wp
)) {

367 ià(
mask
 & 
SOCKET_READABLE
) {

368 
	`websR—dEv’t
(
wp
);

370 ià(
mask
 & 
SOCKET_WRITABLE
) {

371 ià(
	`websV®id
(
wp
è&& wp->
wr™eSock‘
) {

372 (*
wp
->
wr™eSock‘
)(wp);

375 
	}
}

384 
	$websR—dEv’t
(
webs_t
 
wp
)

386 
ch¬_t
 *
‹xt
;

387 
rc
, 
nby‹s
, 
Ën
, 
dÚe
, 
fd
, 
size
;

389 
	`a_as£¹
(
wp
);

390 
	`a_as£¹
(
	`websV®id
(
wp
));

392 
	`websS‘TimeM¬k
(
wp
);

398 
‹xt
 = 
NULL
;

399 
fd
 = -1;

400 
dÚe
 = 0; !done; ) {

401 ià(
‹xt
) {

402 
	`bä“
(
B_L
, 
‹xt
);

403 
‹xt
 = 
NULL
;

411 (
rc
 = 
	`websG‘IÅut
(
wp
, &
‹xt
, &
nby‹s
)) == 0) {

418 ià(
rc
 < 0) {

425 
wp
->
¡©e
) {

426 
WEBS_BEGIN
:

430 ià(
	`websP¬£Fœ¡
(
wp
, 
‹xt
) < 0) {

431 
dÚe
++;

434 
wp
->
¡©e
 = 
WEBS_HEADER
;

437 
WEBS_HEADER
:

442 ià(
	`ršgqL’
(&
wp
->
h—d”
) > 0) {

443 
	`ršgqPutSŒ
(&
wp
->
h—d”
, 
	`T
("\n"));

445 
	`ršgqPutSŒ
(&
wp
->
h—d”
, 
‹xt
);

448 
WEBS_POST_CLEN
:

455 #iâdeà
__NO_CGI_BIN


456 ià(
wp
->
æags
 & 
WEBS_CGI_REQUEST
) {

457 ià(
fd
 == -1) {

458 #ià!
	`defšed
(
WIN32
)

459 
fd
 = 
	`gÝ’
(
wp
->
cgiStdš
, 
O_CREAT
 | 
O_WRONLY
 | 
O_BINARY
,

462 
	`_sÝ’_s
(&
fd
, 
wp
->
cgiStdš
, 
O_CREAT
 | 
O_WRONLY
 | 
O_BINARY
, 
_SH_DENYNO
, 0666);

465 
	`gwr™e
(
fd
, 
‹xt
, 
nby‹s
);

480 ià(
wp
->
qu”y
) {

481 ià(
wp
->
qu”y
[0] && !(wp->
æags
 & 
WEBS_POST_DATA
)) {

488 
Ën
 = 
	`g¡¾’
(
wp
->
qu”y
);

489 ià(
‹xt
) {

490 
size
 = (
Ën
 + 
	`g¡¾’
(
‹xt
è+ 2è* (
ch¬_t
);

491 
wp
->
qu”y
 = 
	`b»®loc
(
B_L
, wp->query,

492 
size
);

493 
wp
->
qu”y
[
Ën
++] = '&';

494 #ià!
	`defšed
(
WIN32
)

495 
	`¡rýy
(&
wp
->
qu”y
[
Ën
], 
‹xt
);

497 
	`¡rýy_s
(&
wp
->
qu”y
[
Ën
], 
size
 -†’, 
‹xt
);

506 ià(
‹xt
 !ð
NULL
)

508 
Ën
 = 
	`g¡¾’
(
wp
->
qu”y
);

509 
size
 = (
Ën
 + 
	`g¡¾’
(
‹xt
è+ 1è* (
ch¬_t
);

510 
wp
->
qu”y
 = 
	`b»®loc
(
B_L
, wp->qu”y, 
size
);

511 ià(
wp
->
qu”y
) {

512 #ià!
	`defšed
(
WIN32
)

513 
	`g¡rýy
(&
wp
->
qu”y
[
Ën
], 
‹xt
);

515 
	`¡rýy_s
(&
wp
->
qu”y
[
Ën
], 
size
 -†’, 
‹xt
);

522 
wp
->
qu”y
 = 
	`b¡rdup
(
B_L
, 
‹xt
);

527 
wp
->
æags
 |ð
WEBS_POST_DATA
;

528 
wp
->
þ’
 -ð
nby‹s
;

529 ià(
wp
->
þ’
 > 0) {

530 ià(
nby‹s
 > 0) {

533 
dÚe
++;

540 ià(
fd
 != -1) {

541 
	`gþo£
 (
fd
);

542 
fd
 = -1;

544 
	`websU¾HªdËrReque¡
(
wp
);

545 
dÚe
++;

548 
WEBS_POST
:

556 #iâdeà
__NO_CGI_BIN


557 ià(
wp
->
æags
 & 
WEBS_CGI_REQUEST
) {

558 ià(
fd
 == -1) {

559 #ià!
	`defšed
(
WIN32
)

560 
fd
 = 
	`gÝ’
(
wp
->
cgiStdš
, 
O_CREAT
 | 
O_WRONLY
 | 
O_BINARY
,

563 
	`_sÝ’_s
(&
fd
, 
wp
->
cgiStdš
, 
O_CREAT
 | 
O_WRONLY
 | 
O_BINARY
,

564 
_SH_DENYNO
, 0666);

567 
	`gwr™e
(
fd
, 
‹xt
, 
nby‹s
);

568 
	`gwr™e
(
fd
, 
	`T
("\n"), (
ch¬_t
));

571 ià(
wp
->
qu”y
 && *wp->qu”y && !(wp->
æags
 & 
WEBS_POST_DATA
)) {

572 
Ën
 = 
	`g¡¾’
(
wp
->
qu”y
);

573 
size
 = (
Ën
 + 
	`g¡¾’
(
‹xt
è+ 2è* (
ch¬_t
);

574 
wp
->
qu”y
 = 
	`b»®loc
(
B_L
, wp->qu”y, 
size
);

575 ià(
wp
->
qu”y
) {

576 
wp
->
qu”y
[
Ën
++] = '&';

577 #ià!
	`defšed
(
WIN32
)

578 
	`g¡rýy
(&
wp
->
qu”y
[
Ën
], 
‹xt
);

580 
	`¡rýy_s
(&
wp
->
qu”y
[
Ën
], 
size
 -†’, 
‹xt
);

585 
wp
->
qu”y
 = 
	`b¡rdup
(
B_L
, 
‹xt
);

587 
wp
->
æags
 |ð
WEBS_POST_DATA
;

588 
dÚe
++;

592 
	`websE¼Ü
(
wp
, 404, 
	`T
("Bad state"));

593 
dÚe
++;

598 ià(
fd
 != -1) {

599 
fd
 = 
	`gþo£
 (fd);

602 ià(
‹xt
) {

603 
	`bä“
(
B_L
, 
‹xt
);

605 
	}
}

620 
	$websG‘IÅut
(
webs_t
 
wp
, 
ch¬_t
 **
±ext
, *
²by‹s
)

622 
ch¬_t
 *
‹xt
;

623 
buf
[
WEBS_SOCKET_BUFSIZ
+1];

624 
nby‹s
, 
Ën
, 
þ’
;

626 
	`a_as£¹
(
	`websV®id
(
wp
));

627 
	`a_as£¹
(
±ext
);

628 
	`a_as£¹
(
²by‹s
);

630 *
±ext
 = 
‹xt
 = 
NULL
;

631 *
²by‹s
 = 0;

637 ià(
wp
->
¡©e
 =ð
WEBS_POST_CLEN
) {

638 
Ën
 = (
wp
->
þ’
 > 
WEBS_SOCKET_BUFSIZ
) ? WEBS_SOCKET_BUFSIZ : wp->clen;

640 
Ën
 = 0;

643 ià(
Ën
 > 0) {

645 #ifdeà
WEBS_SSL_SUPPORT


646 ià(
wp
->
æags
 & 
WEBS_SECURE
) {

647 
nby‹s
 = 
	`websSSLR—d
(
wp
->
w¥
, 
buf
, 
Ën
);

649 
nby‹s
 = 
	`sock‘R—d
(
wp
->
sid
, 
buf
, 
Ën
);

652 
nby‹s
 = 
	`sock‘R—d
(
wp
->
sid
, 
buf
, 
Ën
);

654 ià(
nby‹s
 < 0) {

655 
	`websDÚe
(
wp
, 0);

658 } ià(
nby‹s
 == 0) {

665 ià(
	`sock‘Eof
(
wp
->
sid
)) {

666 
	`websDÚe
(
wp
, 0);

675 
buf
[
nby‹s
] = '\0';

676 ià((
‹xt
 = 
	`b®locAscToUni
(
buf
, 
nby‹s
)è=ð
NULL
) {

677 
	`websE¼Ü
(
wp
, 503, 
	`T
("Insufficient memory"));

683 #ifdeà
WEBS_SSL_SUPPORT


684 ià(
wp
->
æags
 & 
WEBS_SECURE
) {

685 
nby‹s
 = 
	`websSSLG‘s
(
wp
->
w¥
, &
‹xt
);

687 
nby‹s
 = 
	`sock‘G‘s
(
wp
->
sid
, &
‹xt
);

690 
nby‹s
 = 
	`sock‘G‘s
(
wp
->
sid
, &
‹xt
);

693 ià(
nby‹s
 < 0) {

694 
eof
;

698 #ifdeà
WEBS_SSL_SUPPORT


699 ià(
wp
->
æags
 & 
WEBS_SECURE
) {

704 ià(
wp
->
¡©e
 =ð
WEBS_BEGIN
) {

705 
eof
 = 1;

707 
eof
 = 
	`websSSLEof
(
wp
->
w¥
);

710 
eof
 = 
	`sock‘Eof
(
wp
->
sid
);

713 
eof
 = 
	`sock‘Eof
(
wp
->
sid
);

716 ià(
eof
) {

722 ià(
wp
->
¡©e
 =ð
WEBS_POST
) {

723 
	`websU¾HªdËrReque¡
(
wp
);

725 
	`websDÚe
(
wp
, 0);

731 #ifdeà
HP_FIX


732 
	`websDÚe
(
wp
, 0);

750 } ià(
nby‹s
 == 0) {

751 ià(
wp
->
¡©e
 =ð
WEBS_HEADER
) {

755 
	`websP¬£Reque¡
(
wp
);

756 ià(
wp
->
æags
 & 
WEBS_POST_REQUEST
) {

757 ià(
wp
->
æags
 & 
WEBS_CLEN
) {

758 
wp
->
¡©e
 = 
WEBS_POST_CLEN
;

759 
þ’
 = 
wp
->clen;

761 
wp
->
¡©e
 = 
WEBS_POST
;

762 
þ’
 = 1;

764 ià(
þ’
 > 0) {

775 
	`websU¾HªdËrReque¡
(
wp
);

780 
	`a_as£¹
(
‹xt
);

781 
	`a_as£¹
(
nby‹s
 > 0);

782 *
±ext
 = 
‹xt
;

783 *
²by‹s
 = 
nby‹s
;

785 
	}
}

792 
	$websP¬£Fœ¡
(
webs_t
 
wp
, 
ch¬_t
 *
‹xt
)

794 
ch¬_t
 *
Ý
, *
´Ùo
, *
´ÙoV”
, *
u¾
, *
ho¡
, *
qu”y
, *
·th
, *
pÜt
, *
ext
;

795 
ch¬_t
 *
buf
;

796 
‹¡PÜt
;

798 
	`a_as£¹
(
	`websV®id
(
wp
));

799 
	`a_as£¹
(
‹xt
 && *text);

804 
Ý
 = 
	`g¡¹ok
(
‹xt
, 
	`T
(" \t"));

805 ià(
Ý
 =ð
NULL
 || *op == '\0') {

806 
	`websE¼Ü
(
wp
, 400, 
	`T
("Bad HTTP„equest"));

809 ià(
	`g¡rcmp
(
Ý
, 
	`T
("GET")) != 0) {

810 ià(
	`g¡rcmp
(
Ý
, 
	`T
("POST")) == 0) {

811 
wp
->
æags
 |ð
WEBS_POST_REQUEST
;

812 } ià(
	`g¡rcmp
(
Ý
, 
	`T
("HEAD")) == 0) {

813 
wp
->
æags
 |ð
WEBS_HEAD_REQUEST
;

815 
	`websE¼Ü
(
wp
, 400, 
	`T
("Bad„equestype"));

823 
	`websS‘V¬
(
wp
, 
	`T
("REQUEST_METHOD"), 
Ý
);

825 
u¾
 = 
	`g¡¹ok
(
NULL
, 
	`T
(" \t\n"));

826 ià(
u¾
 =ð
NULL
 || *url == '\0') {

827 
	`websE¼Ü
(
wp
, 400, 
	`T
("Bad HTTP„equest"));

830 
´ÙoV”
 = 
	`g¡¹ok
(
NULL
, 
	`T
(" \t\n"));

838 
ho¡
 = 
·th
 = 
pÜt
 = 
´Ùo
 = 
qu”y
 = 
ext
 = 
NULL
;

839 ià(
	`websU¾P¬£
(
u¾
, &
buf
, &
ho¡
, &
·th
, &
pÜt
, &
qu”y
, &
´Ùo
,

840 
NULL
, &
ext
) < 0) {

841 
	`websE¼Ü
(
wp
, 400, 
	`T
("Bad URL format"));

845 
wp
->
u¾
 = 
	`b¡rdup
(
B_L
, url);

847 #iâdeà
__NO_CGI_BIN


848 ià(
	`g¡r¡r
(
u¾
, 
CGI_BIN
è!ð
NULL
) {

849 
wp
->
æags
 |ð
WEBS_CGI_REQUEST
;

850 ià(
wp
->
æags
 & 
WEBS_POST_REQUEST
) {

851 
wp
->
cgiStdš
 = 
	`websG‘CgiCommName
();

856 
wp
->
qu”y
 = 
	`b¡rdup
(
B_L
, query);

857 
wp
->
ho¡
 = 
	`b¡rdup
(
B_L
, host);

858 
wp
->
·th
 = 
	`b¡rdup
(
B_L
,…ath);

859 
wp
->
´ÙocÞ
 = 
	`b¡rdup
(
B_L
, 
´Ùo
);

860 
wp
->
´ÙoV”siÚ
 = 
	`b¡rdup
(
B_L
, 
´ÙoV”
);

862 ià((
‹¡PÜt
 = 
	`sock‘G‘PÜt
(
wp
->
li¡’Sid
)) >= 0) {

863 
wp
->
pÜt
 = 
‹¡PÜt
;

865 
wp
->
pÜt
 = 
	`g©oi
(port);

868 ià(
	`g¡rcmp
(
ext
, 
	`T
(".asp")) == 0) {

869 
wp
->
æags
 |ð
WEBS_ASP
;

871 
	`bä“
(
B_L
, 
buf
);

873 
	`websU¾Ty³
(
u¾
, 
wp
->
ty³
, 
	`TSZ
(wp->type));

875 #ifdeà
WEBS_PROXY_SUPPORT


882 ià(
	`g¡r¡r
(
wp
->
u¾
, 
	`T
("h‰p://")è=ð
NULL
 ||

883 ((
	`g¡rcmp
(
wp
->
ho¡
, 
	`T
("localhost")) == 0 ||

884 
	`g¡rcmp
(
wp
->
ho¡
, 
websHo¡
è=ð0è&& (wp->
pÜt
 =ð
websPÜt
))) {

885 
wp
->
æags
 |ð
WEBS_LOCAL_PAGE
;

886 ià(
	`g¡rcmp
(
wp
->
·th
, 
	`T
("/")) == 0) {

887 
wp
->
æags
 |ð
WEBS_HOME_PAGE
;

892 
	`ršgqFlush
(&
wp
->
h—d”
);

894 
	}
}

901 
	#isgoodch¬
(
s
è(
	`gi§Êum
((s)) || ((s) == '/') || ((s) == '_') || \

902 ((
s
è=ð'.'è|| ((sè=ð'-'è)

	)

904 
	$websP¬£Reque¡
(
webs_t
 
wp
)

906 
ch¬_t
 *
authTy³
, *
uµ”Key
, *
ý
, *
brow£r
, *
Í
, *
key
, *
v®ue
;

908 
	`a_as£¹
(
	`websV®id
(
wp
));

913 
	`websS‘V¬
(
wp
, 
	`T
("HTTP_AUTHORIZATION"), T(""));

920 
brow£r
 = 
NULL
;

921 
Í
 = (
ch¬_t
*è
wp
->
h—d”
.
£rvp
;†p && *lp; ) {

922 
ý
 = 
Í
;

923 ià((
Í
 = 
	`g¡rchr
Öp, '\n')è!ð
NULL
) {

924 
Í
++;

927 ià((
key
 = 
	`g¡¹ok
(
ý
, 
	`T
(": \t\n"))è=ð
NULL
) {

931 ià((
v®ue
 = 
	`g¡¹ok
(
NULL
, 
	`T
("\n"))) == NULL) {

932 
v®ue
 = 
	`T
("");

935 
	`gis¥aû
(*
v®ue
)) {

936 
v®ue
++;

938 
	`¡¾ow”
(
key
);

943 
	`fmtAÎoc
(&
uµ”Key
, (
	`g¡¾’
(
key
è+ 6), 
	`T
("HTTP_%s"), key);

944 
ý
 = 
uµ”Key
; *cp; cp++) {

945 ià(*
ý
 == '-')

946 *
ý
 = '_';

948 
	`¡ruµ”
(
uµ”Key
);

949 
	`websS‘V¬
(
wp
, 
uµ”Key
, 
v®ue
);

950 
	`bä“
(
B_L
, 
uµ”Key
);

955 ià(
	`g¡rcmp
(
key
, 
	`T
("user-agent")) == 0) {

956 
wp
->
u£rAg’t
 = 
	`b¡rdup
(
B_L
, 
v®ue
);

961 } ià(
	`g¡ricmp
(
key
, 
	`T
("authorization")) == 0) {

965 
authTy³
 = 
	`b¡rdup
 (
B_L
, 
v®ue
);

966 
	`a_as£¹
 (
authTy³
);

970 
ý
 = 
authTy³
;

971 
	`gi§Íha
(*
ý
)) {

972 
ý
++;

974 *
ý
 = '\0';

976 
wp
->
authTy³
 = 
	`b¡rdup
(
B_L
,‡uthType);

977 
	`bä“
(
B_L
, 
authTy³
);

979 ià(
	`g¡ricmp
(
wp
->
authTy³
, 
	`T
("basic")) == 0) {

980 
ch¬_t
 
u£rAuth
[
FNAMESIZE
];

984 ià((
ý
 = 
	`g¡rchr
(
v®ue
, ' ')è!ð
NULL
) {

985 *
ý
 = '\0';

991 
	`bä“
(
B_L
, 
wp
->
authTy³
);

992 
wp
->
authTy³
 = 
	`b¡rdup
(
B_L
, 
v®ue
);

993 
	`websDecode64
(
u£rAuth
, ++
ý
, (userAuth));

995 
	`websDecode64
(
u£rAuth
, 
v®ue
, (userAuth));

1000 ià((
ý
 = 
	`g¡rchr
(
u£rAuth
, ':')è!ð
NULL
) {

1001 *
ý
++ = '\0';

1003 ià(
ý
) {

1004 
wp
->
u£rName
 = 
	`b¡rdup
(
B_L
, 
u£rAuth
);

1005 
wp
->
·sswÜd
 = 
	`b¡rdup
(
B_L
, 
ý
);

1007 
wp
->
u£rName
 = 
	`b¡rdup
(
B_L
, 
	`T
(""));

1008 
wp
->
·sswÜd
 = 
	`b¡rdup
(
B_L
, 
	`T
(""));

1013 
wp
->
æags
 |ð
WEBS_AUTH_BASIC
;

1015 #ifdeà
DIGEST_ACCESS_SUPPORT


1019 
ch¬_t
 *
Å
;

1020 
ch¬_t
 

;

1021 
ch¬_t
 *
vp
;

1022 
ch¬_t
 *
Åv
;

1023 
ch¬_t
 
v
;

1027 
wp
->
æags
 |ð
WEBS_AUTH_DIGEST
;

1032 
ý
 = 
v®ue
;

1033 
	`isgoodch¬
(*
ý
)) {

1034 
ý
++;

1036 !
	`isgoodch¬
(*
ý
)) {

1037 
ý
++;

1043 
vp
 = 
	`g¡rchr
(
ý
, '=');

1044 
vp
) {

1048 
Å
 = 
ý
;

1049 
	`isgoodch¬
(*
Å
)) {

1050 
Å
++;

1052 

 = *
Å
;

1053 *
Å
 = 0;

1057 
vp
++;

1058 !
	`isgoodch¬
(*
vp
)) {

1059 
vp
++;

1064 
Åv
 = 
vp
;

1065 
	`isgoodch¬
(*
Åv
)) {

1066 
Åv
++;

1068 
v
 = *
Åv
;

1069 *
Åv
 = 0;

1073 ià(
	`g¡ricmp
(
ý
, 
	`T
("username")) == 0) {

1074 
wp
->
u£rName
 = 
	`b¡rdup
(
B_L
, 
vp
);

1075 } ià(
	`g¡ricmp
(
ý
, 
	`T
("response")) == 0) {

1076 
wp
->
dige¡
 = 
	`b¡rdup
(
B_L
, 
vp
);

1077 } ià(
	`g¡ricmp
(
ý
, 
	`T
("opaque")) == 0) {

1078 
wp
->
Ýaque
 = 
	`b¡rdup
(
B_L
, 
vp
);

1079 } ià(
	`g¡ricmp
(
ý
, 
	`T
("uri")) == 0) {

1080 
wp
->
uri
 = 
	`b¡rdup
(
B_L
, 
vp
);

1081 } ià(
	`g¡ricmp
(
ý
, 
	`T
("realm")) == 0) {

1082 
wp
->
»®m
 = 
	`b¡rdup
(
B_L
, 
vp
);

1083 } ià(
	`g¡ricmp
(
ý
, 
	`T
("nonce")) == 0) {

1084 
wp
->
nÚû
 = 
	`b¡rdup
(
B_L
, 
vp
);

1085 } ià(
	`g¡ricmp
(
ý
, 
	`T
("nc")) == 0) {

1086 
wp
->
nc
 = 
	`b¡rdup
(
B_L
, 
vp
);

1087 } ià(
	`g¡ricmp
(
ý
, 
	`T
("cnonce")) == 0) {

1088 
wp
->
úÚû
 = 
	`b¡rdup
(
B_L
, 
vp
);

1089 } ià(
	`g¡ricmp
(
ý
, 
	`T
("qop")) == 0) {

1090 
wp
->
qÝ
 = 
	`b¡rdup
(
B_L
, 
vp
);

1095 *
Å
 = 

;

1096 *
Åv
 = 
v
;

1100 
ý
 = 
Åv
;

1101 *
ý
 && 
	`isgoodch¬
(*cp)) {

1102 
ý
++;

1104 *
ý
 && !
	`isgoodch¬
(*cp)) {

1105 
ý
++;

1108 ià(*
ý
) {

1109 
vp
 = 
	`g¡rchr
(
ý
, '=');

1111 
vp
 = 
NULL
;

1119 } ià(
	`g¡rcmp
(
key
, 
	`T
("content-length")) == 0) {

1126 
wp
->
þ’
 = 
	`g©oi
(
v®ue
);

1127 ià(
wp
->
þ’
 > 0)

1129 
wp
->
æags
 |ð
WEBS_CLEN
;

1130 
	`websS‘V¬
(
wp
, 
	`T
("CONTENT_LENGTH"), 
v®ue
);

1134 
wp
->
þ’
 = 0;

1140 } ià(
	`g¡rcmp
(
key
, 
	`T
("content-type")) == 0) {

1141 
	`websS‘V¬
(
wp
, 
	`T
("CONTENT_TYPE"), 
v®ue
);

1143 #ifdeà
WEBS_KEEP_ALIVE_SUPPORT


1144 } ià(
	`g¡rcmp
(
key
, 
	`T
("connection")) == 0) {

1145 
	`¡¾ow”
(
v®ue
);

1146 ià(
	`g¡rcmp
(
v®ue
, 
	`T
("keep-alive")) == 0) {

1147 
wp
->
æags
 |ð
WEBS_KEEP_ALIVE
;

1151 #ifdeà
WEBS_PROXY_SUPPORT


1156 } ià(
	`g¡rcmp
(
key
, 
	`T
("pragma")) == 0) {

1157 
ch¬_t
 
tmp
[256];

1158 
	`g¡ºýy
(
tmp
, 
v®ue
, 
	`TSZ
(tmp));

1159 
	`¡¾ow”
(
tmp
);

1160 ià(
	`g¡r¡r
(
tmp
, 
	`T
("no-cache"))) {

1161 
wp
->
æags
 |ð
WEBS_DONT_USE_CACHE
;

1168 } ià(
	`g¡rcmp
(
key
, 
	`T
("cookie")) == 0) {

1169 
wp
->
æags
 |ð
WEBS_COOKIE
;

1170 
wp
->
cook›
 = 
	`b¡rdup
(
B_L
, 
v®ue
);

1172 #ifdeà
WEBS_IF_MODIFIED_SUPPORT


1177 } ià(
	`g¡rcmp
(
key
, 
	`T
("if-modified-since")) == 0) {

1178 
ch¬_t
 *
cmd
;

1179 
time_t
 
t
 = 0;

1181 ià((
ý
 = 
	`g¡rchr
(
v®ue
, ';')è!ð
NULL
) {

1182 *
ý
 = '\0';

1185 
	`fmtAÎoc
(&
cmd
, 64, 
	`T
("%s"), 
v®ue
);

1187 ià((
wp
->
sšû
 = 
	`d©eP¬£
(
t
, 
cmd
)) != 0) {

1188 
wp
->
æags
 |ð
WEBS_IF_MODIFIED
;

1191 
	`bä“Saã
(
B_L
, 
cmd
);

1195 
	}
}

1204 
	$websS‘Env
(
webs_t
 
wp
)

1206 
ch¬_t
 
pÜtBuf
[8];

1207 
ch¬_t
 *
keywÜd
, *
v®ue
, *
v®Check
, *
v®New
;

1209 
	`a_as£¹
(
	`websV®id
(
wp
));

1211 
	`websS‘V¬
(
wp
, 
	`T
("QUERY_STRING"), wp->
qu”y
);

1212 
	`websS‘V¬
(
wp
, 
	`T
("GATEWAY_INTERFACE"), T("CGI/1.1"));

1213 
	`websS‘V¬
(
wp
, 
	`T
("SERVER_HOST"), 
websHo¡
);

1214 
	`websS‘V¬
(
wp
, 
	`T
("SERVER_NAME"), 
websHo¡
);

1215 
	`websS‘V¬
(
wp
, 
	`T
("SERVER_URL"), 
websHo¡U¾
);

1216 
	`websS‘V¬
(
wp
, 
	`T
("REMOTE_HOST"), wp->
addr
);

1217 
	`websS‘V¬
(
wp
, 
	`T
("REMOTE_ADDR"), wp->
addr
);

1218 
	`websS‘V¬
(
wp
, 
	`T
("PATH_INFO"), wp->
·th
);

1219 
	`¡r™ß
(
websPÜt
, 
pÜtBuf
, (portBuf));

1220 
	`websS‘V¬
(
wp
, 
	`T
("SERVER_PORT"), 
pÜtBuf
);

1221 
	`websS‘V¬
(
wp
, 
	`T
("SERVER_ADDR"), wp->
içddr
);

1222 #ifdeà
WEBS_SSL_SUPPORT


1223 
	`fmtAÎoc
(&
v®ue
, 
FNAMESIZE
, 
	`T
("%s/%s %s/%s"),

1224 
WEBS_NAME
, 
WEBS_VERSION
, 
SSL_NAME
, 
SSL_VERSION
);

1226 
	`fmtAÎoc
(&
v®ue
, 
FNAMESIZE
, 
	`T
("%s/%s"), 
WEBS_NAME
, 
WEBS_VERSION
);

1228 
	`websS‘V¬
(
wp
, 
	`T
("SERVER_SOFTWARE"), 
v®ue
);

1229 
	`bä“Saã
(
B_L
, 
v®ue
);

1230 
	`websS‘V¬
(
wp
, 
	`T
("SERVER_PROTOCOL"), wp->
´ÙoV”siÚ
);

1238 
wp
->
decodedQu”y
 = 
	`b¡rdup
(
B_L
, wp->
qu”y
);

1239 
keywÜd
 = 
	`g¡¹ok
(
wp
->
decodedQu”y
, 
	`T
("&"));

1240 
keywÜd
 !ð
NULL
) {

1241 ià((
v®ue
 = 
	`g¡rchr
(
keywÜd
, '=')è!ð
NULL
) {

1242 *
v®ue
++ = '\0';

1243 
	`websDecodeU¾
(
keywÜd
, keywÜd, 
	`g¡¾’
(keyword));

1244 
	`websDecodeU¾
(
v®ue
, v®ue, 
	`g¡¾’
(value));

1246 
v®ue
 = 
	`T
("");

1249 ià(*
keywÜd
) {

1254 ià((
v®Check
 = 
	`websG‘V¬
(
wp
, 
keywÜd
, 
NULL
)) != 0) {

1255 
	`fmtAÎoc
(&
v®New
, 256, 
	`T
("% %s"), 
v®Check
, 
v®ue
);

1256 
	`websS‘V¬
(
wp
, 
keywÜd
, 
v®New
);

1257 
	`bä“Saã
(
B_L
, 
v®New
);

1259 
	`websS‘V¬
(
wp
, 
keywÜd
, 
v®ue
);

1262 
keywÜd
 = 
	`g¡¹ok
(
NULL
, 
	`T
("&"));

1265 
	}
}

1273 
	$websS‘V¬
(
webs_t
 
wp
, 
ch¬_t
 *
v¬
, ch¬_ˆ*
v®ue
)

1275 
v®ue_t
 
v
;

1277 
	`a_as£¹
(
	`websV®id
(
wp
));

1282 ià(
v®ue
) {

1283 
v
 = 
	`v®ueSŒšg
(
v®ue
, 
VALUE_ALLOCATE
);

1285 
v
 = 
	`v®ueSŒšg
(
	`T
(""), 
VALUE_ALLOCATE
);

1287 
	`symEÁ”
(
wp
->
cgiV¬s
, 
v¬
, 
v
, 0);

1288 
	}
}

1295 
	$websTe¡V¬
(
webs_t
 
wp
, 
ch¬_t
 *
v¬
)

1297 
sym_t
 *
¥
;

1299 
	`a_as£¹
(
	`websV®id
(
wp
));

1301 ià(
v¬
 =ð
NULL
 || *var == '\0') {

1305 ià((
¥
 = 
	`symLookup
(
wp
->
cgiV¬s
, 
v¬
)è=ð
NULL
) {

1309 
	}
}

1317 
ch¬_t
 *
	$websG‘V¬
(
webs_t
 
wp
, 
ch¬_t
 *
v¬
, ch¬_ˆ*
deçuÉG‘V®ue
)

1319 
sym_t
 *
¥
;

1321 
	`a_as£¹
(
	`websV®id
(
wp
));

1322 
	`a_as£¹
(
v¬
 && *var);

1324 ià((
¥
 = 
	`symLookup
(
wp
->
cgiV¬s
, 
v¬
)è!ð
NULL
) {

1325 
	`a_as£¹
(
¥
->
cÚ‹Á
.
ty³
 =ð
¡ršg
);

1326 ià(
¥
->
cÚ‹Á
.
v®ue
.
¡ršg
) {

1327  
¥
->
cÚ‹Á
.
v®ue
.
¡ršg
;

1329  
	`T
("");

1332  
deçuÉG‘V®ue
;

1333 
	}
}

1340 
	$websCom·»V¬
(
webs_t
 
wp
, 
ch¬_t
 *
v¬
, ch¬_ˆ*
v®ue
)

1342 
	`a_as£¹
(
	`websV®id
(
wp
));

1343 
	`a_as£¹
(
v¬
 && *var);

1345 ià(
	`g¡rcmp
(
v®ue
, 
	`websG‘V¬
(
wp
, 
v¬
, 
	`T
(" __UNDEF__ "))) == 0) {

1349 
	}
}

1356 
	$websTimeoutCªûl
(
webs_t
 
wp
)

1358 
	`a_as£¹
(
	`websV®id
(
wp
));

1360 ià(
wp
->
timeout
 >= 0) {

1361 
	`emfUnschedC®lback
(
wp
->
timeout
);

1362 
wp
->
timeout
 = -1;

1364 
	}
}

1372 
	$websRe¥Ú£
(
webs_t
 
wp
, 
code
, 
ch¬_t
 *
mes§ge
, ch¬_ˆ*
»dœeù
)

1374 
ch¬_t
 *
d©e
;

1376 
	`a_as£¹
(
	`websV®id
(
wp
));

1381 
wp
->
æags
 &ð~
WEBS_KEEP_ALIVE
;

1386 iàÐ!(
wp
->
æags
 & 
WEBS_HEADER_DONE
)) {

1387 
wp
->
æags
 |ð
WEBS_HEADER_DONE
;

1391 ià(
»dœeù
 !ð
NULL
) {

1392 
	`websWr™e
(
wp
, 
	`T
("HTTP/1.0 %d %s\r\n"), 
code
, 
	`websE¼ÜMsg
(code));

1394 
	`websWr™e
(
wp
, 
	`T
("HTTP/1.1 %d %s\r\n"), 
code
, 
	`websE¼ÜMsg
(code));

1400 #ifdeà
WEBS_SSL_SUPPORT


1401 
	`websWr™e
(
wp
, 
	`T
("Server: %s/%s %s/%s\r\n"),

1402 
WEBS_NAME
, 
WEBS_VERSION
, 
SSL_NAME
, 
SSL_VERSION
);

1404 
	`websWr™e
(
wp
, 
	`T
("S”v”: %s/%s\r\n"), 
WEBS_NAME
, 
WEBS_VERSION
);

1409 ià((
d©e
 = 
	`websG‘D©eSŒšg
(
NULL
)) != NULL) {

1410 
	`websWr™e
(
wp
, 
	`T
("D©e: %s\r\n"), 
d©e
);

1411 
	`bä“
(
B_L
, 
d©e
);

1416 ià(
code
 == 401) {

1417 ià(!(
wp
->
æags
 & 
WEBS_AUTH_DIGEST
)) {

1418 
	`websWr™e
(
wp
, 
	`T
("WWW-Authenticate: Basic„ealm=\"%s\"\r\n"),

1419 
	`websG‘R—lm
());

1420 #ifdeà
DIGEST_ACCESS_SUPPORT


1422 
ch¬_t
 *
nÚû
, *
Ýaque
;

1428 
nÚû
 = 
	`websC®cNÚû
(
wp
);

1429 
Ýaque
 = 
	`websC®cO·que
(
wp
);

1431 
	`websWr™e
(
wp
,

1432 
	`T
("WWW-Authenticate: Digest„ealm=\"%s\", domain=\"%s\",")

1433 
	`T
("qop=\"%s\",‚once=\"%s\", opaque=\"%s\",")

1434 
	`T
("algorithm=\"%s\", stale=\"%s\"\r\n"),

1435 
	`websG‘R—lm
(),

1436 
	`websG‘Ho¡U¾
(),

1437 
	`T
("auth"),

1438 
nÚû
,

1439 
Ýaque
, 
	`T
("MD5"), T("FALSE"));

1440 
	`bä“
(
B_L
, 
nÚû
);

1441 
	`bä“
(
B_L
, 
Ýaque
);

1446 ià(
wp
->
æags
 & 
WEBS_KEEP_ALIVE
) {

1447 
	`websWr™e
(
wp
, 
	`T
("Connection: keep-alive\r\n"));

1450 
	`websWr™e
(
wp
, 
	`T
("Pragma:‚o-cache\r\nCache-Control:‚o-cache\r\n"));

1451 
	`websWr™e
(
wp
, 
	`T
("Content-Type:ext/html\r\n"));

1459 ià(
»dœeù
) {

1460 
	`websWr™e
(
wp
, 
	`T
("LoÿtiÚ: %s\r\n"), 
»dœeù
);

1462 
	`websWr™e
(
wp
, 
	`T
("\r\n"));

1468 ià((
wp
->
æags
 & 
WEBS_HEAD_REQUEST
è=ð0 && 
mes§ge
 && *message) {

1469 
	`websWr™e
(
wp
, 
	`T
("%s\r\n"), 
mes§ge
);

1471 
	`websDÚe
(
wp
, 
code
);

1472 
	}
}

1479 
	$websRedœeù
(
webs_t
 
wp
, 
ch¬_t
 *
u¾
)

1481 
ch¬_t
 *
msgbuf
, *
u¾buf
, *
»dœeùFmt
;

1483 
	`a_as£¹
(
	`websV®id
(
wp
));

1484 
	`a_as£¹
(
u¾
);

1486 
websSts
.
»dœeùs
++;

1487 
msgbuf
 = 
u¾buf
 = 
NULL
;

1492 ià(
	`g¡r¡r
(
u¾
, 
	`T
("h‰p://")è=ð
NULL
) {

1493 ià(*
u¾
 == '/') {

1494 
u¾
++;

1497 
»dœeùFmt
 = 
	`T
("http://%s/%s");

1499 #ifdeà
WEBS_SSL_SUPPORT


1500 ià(
wp
->
æags
 & 
WEBS_SECURE
) {

1501 
»dœeùFmt
 = 
	`T
("https://%s/%s");

1505 
	`fmtAÎoc
(&
u¾buf
, 
WEBS_MAX_URL
 + 80, 
»dœeùFmt
,

1506 
	`websG‘V¬
(
wp
, 
	`T
("HTTP_HOST"), 
websHo¡U¾
), 
u¾
);

1507 
u¾
 = 
u¾buf
;

1513 
	`fmtAÎoc
(&
msgbuf
, 
WEBS_MAX_URL
 + 80,

1514 
	`T
("<html><h—d></h—d><body>\r\n\
 docum’ˆha movedØ¨Ãw <¨h»f=\"%s\">loÿtiÚ</a>.\r\n\
 upd©you¸docum’t tØ»æeùhÃw†oÿtiÚ.\r\n\
</body></html>\r\n"), 
u¾
);

1519 
	`websRe¥Ú£
(
wp
, 302, 
msgbuf
, 
u¾
);

1521 
	`bä“Saã
(
B_L
, 
msgbuf
);

1522 
	`bä“Saã
(
B_L
, 
u¾buf
);

1523 
	}
}

1534 
	#kLt
 '<'

	)

1535 
	#kLessThª
 
	`T
("&É;")

	)

1536 
	#kGt
 '>'

	)

1537 
	#kG»©”Thª
 
	`T
("&gt;")

	)

1542 
	$ch¬CouÁ
(cÚ¡ 
ch¬_t
* 
¡r
, ch¬_ˆ
ch
)

1544 
couÁ
 = 0;

1545 
ch¬_t
* 
p
 = (ch¬_t*è
¡r
;

1547 ià(
NULL
 =ð
¡r
)

1554 
p
 = 
	`g¡rchr
Õ, 
ch
);

1555 ià(
NULL
 =ð
p
)

1562 ++
couÁ
;

1563 ++
p
;

1565  
couÁ
;

1566 
	}
}

1570 
ch¬_t
* 
	$websSaãU¾
(cÚ¡ 
ch¬_t
* 
u¾
)

1573 
ÉCouÁ
 = 
	`ch¬CouÁ
(
u¾
, 
kLt
);

1574 
gtCouÁ
 = 
	`ch¬CouÁ
(
u¾
, 
kGt
);

1575 
§ãL’
 = 0;

1576 
ch¬_t
* 
§ãU¾
 = 
NULL
;

1577 
ch¬_t
* 
¤c
 = 
NULL
;

1578 
ch¬_t
* 
de¡
 = 
NULL
;

1580 ià(
NULL
 !ð
u¾
)

1582 
§ãL’
 = 
	`g¡¾’
(
u¾
);

1583 ià(
ÉCouÁ
 =ð0 && 
gtCouÁ
 == 0)

1585 
§ãU¾
 = 
	`b¡rdup
(
B_L
, (
ch¬_t
*è
u¾
);

1589 
§ãL’
 +ð(
ÉCouÁ
 * 4);

1590 
§ãL’
 +ð(
gtCouÁ
 * 4);

1592 
§ãU¾
 = 
	`b®loc
(
B_L
, 
§ãL’
);

1593 ià(
§ãU¾
 !ð
NULL
)

1595 
¤c
 = (
ch¬_t
*è
u¾
;

1596 
de¡
 = 
§ãU¾
;

1597 *
¤c
)

1599 ià(*
¤c
 =ð
kLt
)

1601 
	`g¡rýy
(
de¡
, 
kLessThª
);

1602 
de¡
 +ð
	`g¡¾’
(
kLessThª
);

1604 ià(*
¤c
 =ð
kGt
)

1606 
	`g¡rýy
(
de¡
, 
kG»©”Thª
);

1607 
de¡
 +ð
	`g¡¾’
(
kG»©”Thª
);

1611 *
de¡
++ = *
¤c
;

1613 ++
¤c
;

1616 *
de¡
 = '\0';

1620  
§ãU¾
;

1621 
	}
}

1629 
	$websE¼Ü
(
webs_t
 
wp
, 
code
, 
ch¬_t
 *
fmt
, ...)

1631 
va_li¡
 
¬gs
;

1632 
ch¬_t
 *
msg
, *
u£rMsg
, *
buf
;

1633 
ch¬_t
* 
§ãU¾
 = 
NULL
;

1634 
ch¬_t
* 
§ãMsg
 = 
NULL
;

1636 
	`a_as£¹
(
	`websV®id
(
wp
));

1637 
	`a_as£¹
(
fmt
);

1639 
websSts
.
”rÜs
++;

1644 
§ãU¾
 = 
	`websSaãU¾
(
wp
->
u¾
);

1645 
	`bä“Saã
(
B_L
, 
wp
->
u¾
);

1646 
wp
->
u¾
 = 
§ãU¾
;

1648 
	`va_¡¬t
(
¬gs
, 
fmt
);

1649 
u£rMsg
 = 
NULL
;

1650 
	`fmtV®loc
(&
u£rMsg
, 
WEBS_BUFSIZE
, 
fmt
, 
¬gs
);

1651 
	`va_’d
(
¬gs
);

1652 
§ãMsg
 = 
	`websSaãU¾
(
u£rMsg
);

1653 
	`bä“Saã
(
B_L
, 
u£rMsg
);

1654 
u£rMsg
 = 
§ãMsg
;

1655 
§ãMsg
 = 
NULL
;

1660 
msg
 = 
	`T
("<html><head><title>Document Error: %s</title></head>\r\n\
<body><h2>Access Error: %s</h2>\r\n\
<p>%s</p></body></html>\r\n");

1667 
buf
 = 
NULL
;

1668 
	`fmtAÎoc
(&
buf
, 
WEBS_BUFSIZE
, 
msg
, 
	`websE¼ÜMsg
(
code
),

1669 
	`websE¼ÜMsg
(
code
), 
u£rMsg
);

1671 
	`websRe¥Ú£
(
wp
, 
code
, 
buf
, 
NULL
);

1672 
	`bä“Saã
(
B_L
, 
buf
);

1673 
	`bä“Saã
(
B_L
, 
u£rMsg
);

1674 
	}
}

1682 
ch¬_t
 *
	$websE¼ÜMsg
(
code
)

1684 
websE¼ÜTy³
 *
•
;

1686 
•
 = 
websE¼Üs
;ƒp->
code
;ƒp++) {

1687 ià(
code
 =ð
•
->code) {

1688  
•
->
msg
;

1691 
	`a_as£¹
(0);

1692  
	`T
("");

1693 
	}
}

1701 
	$websWr™e
(
webs_t
 
wp
, 
ch¬_t
 *
fmt
, ...)

1703 
va_li¡
 
v¬gs
;

1704 
ch¬_t
 *
buf
;

1705 
rc
;

1707 
	`a_as£¹
(
	`websV®id
(
wp
));

1709 
	`va_¡¬t
(
v¬gs
, 
fmt
);

1711 
buf
 = 
NULL
;

1712 
rc
 = 0;

1714 ià(
	`fmtV®loc
(&
buf
, 
WEBS_BUFSIZE
, 
fmt
, 
v¬gs
) >= WEBS_BUFSIZE) {

1715 
	`Œaû
(0, 
	`T
("webs: websWrite†ost data, buffer overflow\n"));

1718 
	`va_’d
(
v¬gs
);

1719 
	`a_as£¹
(
buf
);

1720 ià(
buf
) {

1721 
rc
 = 
	`websWr™eBlock
(
wp
, 
buf
, 
	`g¡¾’
(buf));

1722 
	`bä“
(
B_L
, 
buf
);

1724  
rc
;

1725 
	}
}

1738 
	$websWr™eBlock
(
webs_t
 
wp
, 
ch¬_t
 *
buf
, 
nCh¬s
)

1740 
Ën
, 
dÚe
;

1741 *
asciiBuf
, *
pBuf
;

1743 
	`a_as£¹
(
wp
);

1744 
	`a_as£¹
(
	`websV®id
(
wp
));

1745 
	`a_as£¹
(
buf
);

1746 
	`a_as£¹
(
nCh¬s
 >= 0);

1748 
dÚe
 = 
Ën
 = 0;

1754 
pBuf
 = 
asciiBuf
 = 
	`b®locUniToAsc
(
buf
, 
nCh¬s
);

1756 
nCh¬s
 > 0) {

1757 #ifdeà
WEBS_SSL_SUPPORT


1758 ià(
wp
->
æags
 & 
WEBS_SECURE
) {

1759 ià((
Ën
 = 
	`websSSLWr™e
(
wp
->
w¥
, 
pBuf
, 
nCh¬s
)) < 0) {

1760 
	`bä“
(
B_L
, 
asciiBuf
);

1763 
	`websSSLFlush
(
wp
->
w¥
);

1765 ià((
Ën
 = 
	`sock‘Wr™e
(
wp
->
sid
, 
pBuf
, 
nCh¬s
)) < 0) {

1766 
	`bä“
(
B_L
, 
asciiBuf
);

1769 
	`sock‘Flush
(
wp
->
sid
);

1772 ià((
Ën
 = 
	`sock‘Wr™e
(
wp
->
sid
, 
pBuf
, 
nCh¬s
)) < 0) {

1773 
	`bä“
(
B_L
, 
asciiBuf
);

1776 
	`sock‘Flush
(
wp
->
sid
);

1778 
nCh¬s
 -ð
Ën
;

1779 
pBuf
 +ð
Ën
;

1780 
dÚe
 +ð
Ën
;

1783 
	`bä“
(
B_L
, 
asciiBuf
);

1784  
dÚe
;

1785 
	}
}

1797 
	$websWr™eD©aNÚBlock
(
webs_t
 
wp
, *
buf
, 
nCh¬s
)

1799 
r
;

1801 
	`a_as£¹
(
wp
);

1802 
	`a_as£¹
(
	`websV®id
(
wp
));

1803 
	`a_as£¹
(
buf
);

1804 
	`a_as£¹
(
nCh¬s
 >= 0);

1806 #ifdeà
WEBS_SSL_SUPPORT


1807 ià(
wp
->
æags
 & 
WEBS_SECURE
) {

1808 
r
 = 
	`websSSLWr™e
(
wp
->
w¥
, 
buf
, 
nCh¬s
);

1809 
	`websSSLFlush
(
wp
->
w¥
);

1811 
r
 = 
	`sock‘Wr™e
(
wp
->
sid
, 
buf
, 
nCh¬s
);

1812 
	`sock‘Flush
(
wp
->
sid
);

1815 
r
 = 
	`sock‘Wr™e
(
wp
->
sid
, 
buf
, 
nCh¬s
);

1816 
	`sock‘Flush
(
wp
->
sid
);

1819  
r
;

1820 
	}
}

1827 
	$websDecodeU¾
(
ch¬_t
 *
decoded
, ch¬_ˆ*
tok’
, 
Ën
)

1829 
ch¬_t
 *

, *
Ý
;

1830 
num
, 
i
, 
c
;

1832 
	`a_as£¹
(
decoded
);

1833 
	`a_as£¹
(
tok’
);

1835 
Ý
 = 
decoded
;

1836 

 = 
tok’
; * && 
Ën
 > 0; ip++, 
Ý
++) {

1837 ià(*

 == '+') {

1838 *
Ý
 = ' ';

1839 } ià(*

 =ð'%' && 
	`gisxdig™
(ip[1]) && gisxdigit(ip[2])) {

1844 

++;

1845 
i
 = 0, 
num
 = 0; i < 2; i++, 

++) {

1846 
c
 = 
	`tÞow”
(*

);

1847 ià(
c
 >= 'a' && c <= 'f') {

1848 
num
 = (num * 16è+ 10 + 
c
 - 'a';

1850 
num
 = (num * 16è+ 
c
 - '0';

1853 *
Ý
 = (
ch¬_t
è
num
;

1854 

--;

1857 *
Ý
 = *

;

1859 
Ën
--;

1861 *
Ý
 = '\0';

1862 
	}
}

1865 #ifdeà
WEBS_LOG_SUPPORT


1877 
	$websLog
(
webs_t
 
wp
, 
code
)

1879 
ch¬_t
 *
buf
;

1880 *
abuf
;

1881 
Ën
;

1882 #iâdeà
WEBS_SIMPLE_TIME


1883 
time_t
 
tim”
;

1884 
tm
 
loÿÉ
;

1885 #ifdeà
WIN


1886 
DWORD
 
dwR‘
;

1887 
TIME_ZONE_INFORMATION
 
tzi
;

1889 
ch¬_t
 
timeSŒ
[28];

1890 
ch¬_t
 
zÚeSŒ
[6];

1891 
ch¬_t
 
d©aSŒ
[16];

1893 
	`a_as£¹
(
	`websV®id
(
wp
));

1894 
buf
 = 
NULL
;

1895 #iâdeà
WEBS_SIMPLE_TIME


1896 
	`time
(&
tim”
);

1897 
	`loÿÉime_r
(&
tim”
, &
loÿÉ
);

1898 
	`¡ráime
(
timeSŒ
, ÑimeSŒ), "%d/%b/%Y:%H:%M:%S", &
loÿÉ
);

1899 
timeSŒ
[(timeStr) - 1] = '\0';

1900 #ifdeà
WIN


1901 
dwR‘
 = 
	`G‘TimeZÚeInfÜm©iÚ
(&
tzi
);

1902 
	`¢´štf
(
zÚeSŒ
, (zÚeSŒ), "%+03d00", -()(
tzi
.
BŸs
/60));

1904 
	`¢´štf
(
zÚeSŒ
, (zÚeSŒ), "%+03d00", ()(
loÿÉ
.
tm_gmtoff
/3600));

1906 
zÚeSŒ
[(zoneStr) - 1] = '\0';

1907 ià(
wp
->
wr™‹n
 != 0) {

1908 
	`¢´štf
(
d©aSŒ
, (d©aSŒ), "%d", 
wp
->
wr™‹n
);

1909 
d©aSŒ
[(dataStr) - 1] = '\0';

1911 
d©aSŒ
[0] = '-'; dataStr[1] = '\0';

1913 
	`fmtAÎoc
(&
buf
, 
WEBS_MAX_URL
 + 80,

1914 
	`T
("%s - %s [%s %s] \"%s %s %s\" %d %s\n"),

1915 
wp
->
addr
,

1916 
wp
->
u£rName
 =ð
NULL
 ? "-" : wp->userName,

1917 
timeSŒ
, 
zÚeSŒ
,

1918 
wp
->
æags
 & 
WEBS_POST_REQUEST
 ? "POST" :

1919 (
wp
->
æags
 & 
WEBS_HEAD_REQUEST
 ? "HEAD" : "GET"),

1920 #ifdeà
WEBS_LOG_QUERY


1921 
wp
->
u¾
,

1923 
wp
->
·th
,

1925 
wp
->
´ÙoV”siÚ
, 
code
, 
d©aSŒ
);

1927 
	`fmtAÎoc
(&
buf
, 
WEBS_MAX_URL
 + 80, 
	`T
("%d % %d %d\n"), 
	`time
(0),

1928 
wp
->
u¾
, 
code
, wp->
wr™‹n
);

1930 
Ën
 = 
	`g¡¾’
(
buf
);

1931 
abuf
 = 
	`b®locUniToAsc
(
buf
, 
Ën
+1);

1932 
	`wr™e
(
websLogFd
, 
abuf
, 
Ën
);

1933 
	`bä“Saã
(
B_L
, 
buf
);

1934 
	`bä“Saã
(
B_L
, 
abuf
);

1935 
	}
}

1941 #ifdeà
WEBS_TRACE_SUPPORT


1945 
	$ŒaûHªdËr
(
Ëv–
, 
ch¬_t
 *
buf
)

1947 
Ën
;

1948 *
abuf
;

1950 ià(
Ëv–
 <ð
WEBS_TRACE_LEVEL
) {

1951 
Ën
 = 
	`g¡¾’
(
buf
);

1952 
abuf
 = 
	`b®locUniToAsc
(
buf
, 
Ën
+1);

1953 
	`wr™e
(
websT¿ûFd
, 
abuf
, 
Ën
);

1954 
	`bä“Saã
(
B_L
, 
abuf
);

1956 
	}
}

1967 
	$websTimeout
(*
¬g
, 
id
)

1969 
webs_t
 
wp
;

1970 
d–ay
, 
tm
;

1972 
wp
 = (
webs_t
è
¬g
;

1973 
	`a_as£¹
(
	`websV®id
(
wp
));

1975 
tm
 = 
	`websG‘TimeSšûM¬k
(
wp
) * 1000;

1976 ià(
tm
 >ð
WEBS_TIMEOUT
) {

1977 
websSts
.
timeouts
++;

1978 
	`emfUnschedC®lback
(
id
);

1983 
wp
->
timeout
 = -1;

1984 
	`websDÚe
(
wp
, 404);

1986 
d–ay
 = 
WEBS_TIMEOUT
 - 
tm
;

1987 
	`a_as£¹
(
d–ay
 > 0);

1988 
	`emfReschedC®lback
(
id
, 
d–ay
);

1990 
	}
}

1997 
	$websDÚe
(
webs_t
 
wp
, 
code
)

1999 
	`a_as£¹
(
	`websV®id
(
wp
));

2004 
	`sock‘D–‘eHªdËr
(
wp
->
sid
);

2006 ià(
code
 != 200) {

2007 
wp
->
æags
 &ð~
WEBS_KEEP_ALIVE
;

2010 #ifdeà
WEBS_PROXY_SUPPORT


2011 ià(! (
wp
->
æags
 & 
WEBS_LOCAL_PAGE
)) {

2012 
websSts
.
aùiveN‘Reque¡s
--;

2016 #ifdeà
WEBS_LOG_SUPPORT


2017 ià(! (
wp
->
æags
 & 
WEBS_REQUEST_DONE
)) {

2018 
	`websLog
(
wp
, 
code
);

2025 
	`websPageClo£
(
wp
);

2030 #ifdeà
WEBS_SSL_SUPPORT


2031 ià(
wp
->
æags
 & 
WEBS_SECURE
) {

2032 
	`websTimeoutCªûl
(
wp
);

2033 
	`websSSLFlush
(
wp
->
w¥
);

2034 
	`sock‘Clo£CÚÃùiÚ
(
wp
->
sid
);

2035 
	`websF»e
(
wp
);

2044 ià(
wp
->
æags
 & 
WEBS_KEEP_ALIVE
) {

2045 ià(
	`sock‘Flush
(
wp
->
sid
) == 0) {

2046 
wp
->
¡©e
 = 
WEBS_BEGIN
;

2047 
wp
->
æags
 |ð
WEBS_REQUEST_DONE
;

2048 ià(
wp
->
h—d”
.
buf
) {

2049 
	`ršgqFlush
(&
wp
->
h—d”
);

2051 
	`sock‘C»©eHªdËr
(
wp
->
sid
, 
SOCKET_READABLE
, 
websSock‘Ev’t
,

2052 
wp
);

2053 
	`websTimeoutCªûl
(
wp
);

2054 
wp
->
timeout
 = 
	`emfSchedC®lback
(
WEBS_TIMEOUT
, 
websTimeout
,

2055 (*è
wp
);

2059 
	`websTimeoutCªûl
(
wp
);

2060 
	`sock‘S‘Block
(
wp
->
sid
, 1);

2061 
	`sock‘Flush
(
wp
->
sid
);

2062 
	`sock‘Clo£CÚÃùiÚ
(
wp
->
sid
);

2064 
	`websF»e
(
wp
);

2065 
	}
}

2072 
	$websAÎoc
(
sid
)

2074 
webs_t
 
wp
;

2075 
wid
;

2080 ià((
wid
 = 
	`hAÎocEÁry
((***è&
webs
, &
websMax
,

2081 (
websRec
))) < 0) {

2084 
wp
 = 
webs
[
wid
];

2086 
wp
->
wid
 = wid;

2087 
wp
->
sid
 = sid;

2088 
wp
->
¡©e
 = 
WEBS_BEGIN
;

2089 
wp
->
docfd
 = -1;

2090 
wp
->
timeout
 = -1;

2091 
wp
->
dœ
 = 
NULL
;

2092 
wp
->
authTy³
 = 
NULL
;

2093 
wp
->
´ÙocÞ
 = 
NULL
;

2094 
wp
->
´ÙoV”siÚ
 = 
NULL
;

2095 
wp
->
·sswÜd
 = 
NULL
;

2096 
wp
->
u£rName
 = 
NULL
;

2097 #ifdeà
DIGEST_ACCESS_SUPPORT


2098 
wp
->
»®m
 = 
NULL
;

2099 
wp
->
nÚû
 = 
NULL
;

2100 
wp
->
dige¡
 = 
NULL
;

2101 
wp
->
uri
 = 
NULL
;

2102 
wp
->
Ýaque
 = 
NULL
;

2103 
wp
->
nc
 = 
NULL
;

2104 
wp
->
úÚû
 = 
NULL
;

2105 
wp
->
qÝ
 = 
NULL
;

2107 #ifdeà
WEBS_SSL_SUPPORT


2108 
wp
->
w¥
 = 
NULL
;

2111 
	`ršgqO³n
(&
wp
->
h—d”
, 
WEBS_HEADER_BUFINC
, 
WEBS_MAX_HEADER
);

2118 
wp
->
cgiV¬s
 = 
	`symO³n
(
WEBS_SYM_INIT
);

2120  
wid
;

2121 
	}
}

2128 
	$websF»e
(
webs_t
 
wp
)

2130 
	`a_as£¹
(
	`websV®id
(
wp
));

2132 ià(
wp
->
·th
)

2133 
	`bä“
(
B_L
, 
wp
->
·th
);

2134 ià(
wp
->
u¾
)

2135 
	`bä“
(
B_L
, 
wp
->
u¾
);

2136 ià(
wp
->
ho¡
)

2137 
	`bä“
(
B_L
, 
wp
->
ho¡
);

2138 ià(
wp
->
Í©h
)

2139 
	`bä“
(
B_L
, 
wp
->
Í©h
);

2140 ià(
wp
->
qu”y
)

2141 
	`bä“
(
B_L
, 
wp
->
qu”y
);

2142 ià(
wp
->
decodedQu”y
)

2143 
	`bä“
(
B_L
, 
wp
->
decodedQu”y
);

2144 ià(
wp
->
authTy³
)

2145 
	`bä“
(
B_L
, 
wp
->
authTy³
);

2146 ià(
wp
->
·sswÜd
)

2147 
	`bä“
(
B_L
, 
wp
->
·sswÜd
);

2148 ià(
wp
->
u£rName
)

2149 
	`bä“
(
B_L
, 
wp
->
u£rName
);

2150 ià(
wp
->
cook›
)

2151 
	`bä“
(
B_L
, 
wp
->
cook›
);

2152 ià(
wp
->
u£rAg’t
)

2153 
	`bä“
(
B_L
, 
wp
->
u£rAg’t
);

2154 ià(
wp
->
dœ
)

2155 
	`bä“
(
B_L
, 
wp
->
dœ
);

2156 ià(
wp
->
´ÙocÞ
)

2157 
	`bä“
(
B_L
, 
wp
->
´ÙocÞ
);

2158 ià(
wp
->
´ÙoV”siÚ
)

2159 
	`bä“
(
B_L
, 
wp
->
´ÙoV”siÚ
);

2160 ià(
wp
->
cgiStdš
)

2161 
	`bä“
(
B_L
, 
wp
->
cgiStdš
);

2164 #ifdeà
DIGEST_ACCESS_SUPPORT


2165 ià(
wp
->
»®m
)

2166 
	`bä“
(
B_L
, 
wp
->
»®m
);

2167 ià(
wp
->
uri
)

2168 
	`bä“
(
B_L
, 
wp
->
uri
);

2169 ià(
wp
->
dige¡
)

2170 
	`bä“
(
B_L
, 
wp
->
dige¡
);

2171 ià(
wp
->
Ýaque
)

2172 
	`bä“
(
B_L
, 
wp
->
Ýaque
);

2173 ià(
wp
->
nÚû
)

2174 
	`bä“
(
B_L
, 
wp
->
nÚû
);

2175 ià(
wp
->
nc
)

2176 
	`bä“
(
B_L
, 
wp
->
nc
);

2177 ià(
wp
->
úÚû
)

2178 
	`bä“
(
B_L
, 
wp
->
úÚû
);

2179 ià(
wp
->
qÝ
)

2180 
	`bä“
(
B_L
, 
wp
->
qÝ
);

2182 #ifdeà
WEBS_SSL_SUPPORT


2183 
	`websSSLF»e
(
wp
->
w¥
);

2185 
	`symClo£
(
wp
->
cgiV¬s
);

2187 ià(
wp
->
h—d”
.
buf
) {

2188 
	`ršgqClo£
(&
wp
->
h—d”
);

2191 
websMax
 = 
	`hF»e
((***è&
webs
, 
wp
->
wid
);

2192 
	`bä“
(
B_L
, 
wp
);

2193 
	`a_as£¹
(
websMax
 >= 0);

2194 
	}
}

2201 
ch¬_t
 *
	$websG‘Ho¡
()

2203  
websHo¡
;

2204 
	}
}

2211 
ch¬_t
 *
	$websG‘I·ddrU¾
()

2213  
websI·ddrU¾
;

2214 
	}
}

2221 
ch¬_t
 *
	$websG‘Ho¡U¾
()

2223  
websHo¡U¾
;

2224 
	}
}

2231 
	$websG‘PÜt
()

2233  
websPÜt
;

2234 
	}
}

2241 
	$websG‘Reque¡By‹s
(
webs_t
 
wp
)

2243 
	`a_as£¹
(
	`websV®id
(
wp
));

2245  
wp
->
numby‹s
;

2246 
	}
}

2253 
ch¬_t
 *
	$websG‘Reque¡Dœ
(
webs_t
 
wp
)

2255 
	`a_as£¹
(
	`websV®id
(
wp
));

2257 ià(
wp
->
dœ
 =ð
NULL
) {

2258  
	`T
("");

2261  
wp
->
dœ
;

2262 
	}
}

2269 
	$websG‘Reque¡FÏgs
(
webs_t
 
wp
)

2271 
	`a_as£¹
(
	`websV®id
(
wp
));

2273  
wp
->
æags
;

2274 
	}
}

2281 
ch¬_t
 *
	$websG‘Reque¡I·ddr
(
webs_t
 
wp
)

2283 
	`a_as£¹
(
	`websV®id
(
wp
));

2285  
wp
->
addr
;

2286 
	}
}

2293 
ch¬_t
 *
	$websG‘Reque¡L·th
(
webs_t
 
wp
)

2295 
	`a_as£¹
(
	`websV®id
(
wp
));

2297 #ifdeà
WEBS_PAGE_ROM


2298  
wp
->
·th
;

2300  
wp
->
Í©h
;

2302 
	}
}

2309 
ch¬_t
 *
	$websG‘Reque¡P©h
(
webs_t
 
wp
)

2311 
	`a_as£¹
(
	`websV®id
(
wp
));

2313 ià(
wp
->
·th
 =ð
NULL
) {

2314  
	`T
("");

2317  
wp
->
·th
;

2318 
	}
}

2325 
ch¬_t
 *
	$websG‘Reque¡PasswÜd
(
webs_t
 
wp
)

2327 
	`a_as£¹
(
	`websV®id
(
wp
));

2329  
wp
->
·sswÜd
;

2330 
	}
}

2337 
ch¬_t
 *
	$websG‘Reque¡Ty³
(
webs_t
 
wp
)

2339 
	`a_as£¹
(
	`websV®id
(
wp
));

2341  
wp
->
ty³
;

2342 
	}
}

2349 
ch¬_t
 *
	$websG‘Reque¡U£rName
(
webs_t
 
wp
)

2351 
	`a_as£¹
(
	`websV®id
(
wp
));

2353  
wp
->
u£rName
;

2354 
	}
}

2361 
	$websG‘Reque¡Wr™‹n
(
webs_t
 
wp
)

2363 
	`a_as£¹
(
	`websV®id
(
wp
));

2365  
wp
->
wr™‹n
;

2366 
	}
}

2373 
	$websS‘Ho¡
(
ch¬_t
 *
ho¡
)

2375 
	`g¡ºýy
(
websHo¡
, 
ho¡
, 
	`TSZ
(websHost));

2376 
	}
}

2383 
	$websS‘Ho¡U¾
(
ch¬_t
 *
u¾
)

2385 
	`a_as£¹
(
u¾
 && *url);

2387 
	`bä“Saã
(
B_L
, 
websHo¡U¾
);

2388 
websHo¡U¾
 = 
	`g¡rdup
(
B_L
, 
u¾
);

2389 
	}
}

2396 
	$websS‘I·ddr
(
ch¬_t
 *
addr
)

2398 
	`a_as£¹
(
addr
 && *ipaddr);

2400 
	`g¡ºýy
(
websI·ddr
, 
addr
, 
	`TSZ
(websIpaddr));

2401 
	}
}

2408 
	$websS‘Reque¡By‹s
(
webs_t
 
wp
, 
by‹s
)

2410 
	`a_as£¹
(
	`websV®id
(
wp
));

2411 
	`a_as£¹
(
by‹s
 >= 0);

2413 
wp
->
numby‹s
 = 
by‹s
;

2414 
	}
}

2421 
	$websS‘Reque¡FÏgs
(
webs_t
 
wp
, 
æags
)

2423 
	`a_as£¹
(
	`websV®id
(
wp
));

2425 
wp
->
æags
 = flags;

2426 
	}
}

2433 
	$websS‘Reque¡L·th
(
webs_t
 
wp
, 
ch¬_t
 *
Í©h
)

2435 
	`a_as£¹
(
	`websV®id
(
wp
));

2436 
	`a_as£¹
(
Í©h
 && *lpath);

2438 ià(
wp
->
Í©h
) {

2439 
	`bä“
(
B_L
, 
wp
->
Í©h
);

2441 
wp
->
Í©h
 = 
	`b¡rdup
(
B_L
,†path);

2442 
	`websS‘V¬
(
wp
, 
	`T
("PATH_TRANSLATED"), wp->
Í©h
);

2443 
	}
}

2450 
	$websS‘Reque¡P©h
(
webs_t
 
wp
, 
ch¬_t
 *
dœ
, ch¬_ˆ*
·th
)

2452 
ch¬_t
 *
tmp
;

2454 
	`a_as£¹
(
	`websV®id
(
wp
));

2456 ià(
dœ
) {

2457 
tmp
 = 
wp
->
dœ
;

2458 
wp
->
dœ
 = 
	`b¡rdup
(
B_L
, dir);

2459 ià(
tmp
) {

2460 
	`bä“
(
B_L
, 
tmp
);

2463 ià(
·th
) {

2464 
tmp
 = 
wp
->
·th
;

2465 
wp
->
·th
 = 
	`b¡rdup
(
B_L
,…ath);

2466 
	`websS‘V¬
(
wp
, 
	`T
("PATH_INFO"), wp->
·th
);

2467 ià(
tmp
) {

2468 
	`bä“
(
B_L
, 
tmp
);

2471 
	}
}

2478 
websS‘Reque¡Sock‘HªdËr
(
webs_t
 
wp
, 
mask
, (*
â
)(webs_t wp))

2480 
	`a_as£¹
(
	`websV®id
(
wp
));

2482 
wp
->
wr™eSock‘
 = 
â
;

2483 
	`sock‘C»©eHªdËr
(
wp
->
sid
, 
SOCKET_WRITABLE
, 
websSock‘Ev’t
, wp);

2484 
	}
}

2491 
	$websS‘Reque¡Wr™‹n
(
webs_t
 
wp
, 
wr™‹n
)

2493 
	`a_as£¹
(
	`websV®id
(
wp
));

2495 
wp
->
wr™‹n
 = written;

2496 
	}
}

2503 
	$websV®id
(
webs_t
 
wp
)

2505 
wid
;

2507 
wid
 = 0; wid < 
websMax
; wid++) {

2508 ià(
wp
 =ð
webs
[
wid
]) {

2513 
	}
}

2521 
ch¬_t
 *
	$websG‘D©eSŒšg
(
websStTy³
 *
sbuf
)

2523 
ch¬_t
* 
ý
, *
r
;

2524 
time_t
 
now
;

2526 ià(
sbuf
 =ð
NULL
) {

2527 
	`time
(&
now
);

2529 
now
 = 
sbuf
->
mtime
;

2531 ià((
ý
 = 
	`gùime
(&
now
)è!ð
NULL
) {

2532 
ý
[
	`g¡¾’
(cp) - 1] = '\0';

2533 
r
 = 
	`b¡rdup
(
B_L
, 
ý
);

2534  
r
;

2536  
NULL
;

2537 
	}
}

2546 
	$websS‘TimeM¬k
(
webs_t
 
wp
)

2548 
wp
->
time¡amp
 = 
	`time
(0);

2549 
	}
}

2556 
	$websG‘TimeSšûM¬k
(
webs_t
 
wp
)

2558  
	`time
(0è- 
wp
->
time¡amp
;

2559 
	}
}

2566 
	$websS‘R—lm
(
ch¬_t
 *
»®mName
)

2568 
	`a_as£¹
(
»®mName
);

2570 
	`g¡ºýy
(
websR—lm
, 
»®mName
, 
	`TSZ
(websRealm));

2571 
	}
}

2578 
ch¬_t
 *
	$websG‘R—lm
()

2580  
websR—lm
;

2581 
	}
}

2584 #ifdeà
WEBS_IF_MODIFIED_SUPPORT


2600 ’um { 
	mJAN
, 
	mFEB
, 
	mMAR
, 
	mAPR
, 
	mMAY
, 
	mJUN
, 
	mJUL
, 
	mAUG
, 
	mSEP
, 
	mOCT
, 
	mNOV
, 
	mDEC
 } 
	tMÚthEnum”©iÚ
;

2601 ’um { 
	mSUN
, 
	mMON
, 
	mTUE
, 
	mWED
, 
	mTHU
, 
	mFRI
, 
	mSAT
 } 
	tW“kdayEnum”©iÚ
;

2608 
	$·r£NDIGIT
(
ch¬_t
 *
buf
, 
dig™s
, *
šdex
)

2610 
tmpIndex
, 
»tuºV®ue
;

2612 
»tuºV®ue
 = 0;

2614 
tmpIndex
 = *
šdex
;mpIndex < *šdex+
dig™s
;mpIndex++) {

2615 ià(
	`gisdig™
(
buf
[
tmpIndex
])) {

2616 
»tuºV®ue
 =„‘uºV®u* 10 + (
buf
[
tmpIndex
] - 
	`T
('0'));

2619 *
šdex
 = 
tmpIndex
;

2621  
»tuºV®ue
;

2622 
	}
}

2629 
	$·r£MÚth
(
ch¬_t
 *
buf
, *
šdex
)

2635 
tmpIndex
, 
»tuºV®ue
;

2637 
»tuºV®ue
 = -1;

2638 
tmpIndex
 = *
šdex
;

2640 
buf
[
tmpIndex
]) {

2642 
buf
[
tmpIndex
+1]) {

2644 
»tuºV®ue
 = 
APR
;

2647 
»tuºV®ue
 = 
AUG
;

2652 
»tuºV®ue
 = 
DEC
;

2655 
»tuºV®ue
 = 
FEB
;

2658 
buf
[
tmpIndex
+1]) {

2660 
»tuºV®ue
 = 
JAN
;

2663 
buf
[
tmpIndex
+2]) {

2665 
»tuºV®ue
 = 
JUL
;

2668 
»tuºV®ue
 = 
JUN
;

2675 
buf
[
tmpIndex
+1]) {

2677 
buf
[
tmpIndex
+2]) {

2679 
»tuºV®ue
 = 
MAR
;

2682 
»tuºV®ue
 = 
MAY
;

2689 
»tuºV®ue
 = 
NOV
;

2692 
»tuºV®ue
 = 
OCT
;

2695 
»tuºV®ue
 = 
SEP
;

2699 ià(
»tuºV®ue
 >= 0) {

2700 *
šdex
 += 3;

2703  
»tuºV®ue
;

2704 
	}
}

2711 
	$·r£Y—r
(
ch¬_t
 *
buf
, *
šdex
)

2713 
tmpIndex
, 
»tuºV®ue
;

2715 
tmpIndex
 = *
šdex
;

2716 
»tuºV®ue
 = 
	`·r£NDIGIT
(
buf
, 4, &
tmpIndex
);

2718 ià(
»tuºV®ue
 >= 0) {

2719 *
šdex
 = 
tmpIndex
;

2721 
»tuºV®ue
 = 
	`·r£NDIGIT
(
buf
, 2, &
tmpIndex
);

2722 ià(
»tuºV®ue
 >= 0) {

2727 ià(
»tuºV®ue
 < 70) {

2728 
»tuºV®ue
 += 2000;

2730 
»tuºV®ue
 += 1900;

2733 *
šdex
 = 
tmpIndex
;

2737  
»tuºV®ue
;

2738 
	}
}

2746 
	~<m©h.h
>

2748 cÚ¡ 
	gG»gÜŸnEpoch
 = 1;

2755 
	$G»gÜŸnL—pY—rP
(
y—r
)

2757 
»suÉ
;

2758 
tmp
;

2760 
tmp
 = 
y—r
 % 400;

2762 ià((
y—r
 % 4 == 0) &&

2763 (
tmp
 != 100) &&

2764 (
tmp
 != 200) &&

2765 (
tmp
 != 300)) {

2766 
»suÉ
 = 
TRUE
;

2768 
»suÉ
 = 
FALSE
;

2771  
»suÉ
;

2772 
	}
}

2779 
	$FixedFromG»gÜŸn
(
mÚth
, 
day
, 
y—r
)

2781 
fixedD©e
;

2783 
fixedD©e
 = ()(
G»gÜŸnEpoch
 - 1 + 365 * (
y—r
 - 1) +

2784 
	`æoÜ
((
y—r
 - 1) / 4.0) -

2785 
	`æoÜ
(()(
y—r
 - 1) / 100.0) +

2786 
	`æoÜ
(()(
y—r
 - 1) / 400.0) +

2787 
	`æoÜ
((367.0 * (()
mÚth
) - 362.0) / 12.0));

2789 ià(
mÚth
 <= 2) {

2790 
fixedD©e
 += 0;

2791 } ià(
TRUE
 =ð
	`G»gÜŸnL—pY—rP
(
y—r
)) {

2792 
fixedD©e
 += -1;

2794 
fixedD©e
 += -2;

2797 
fixedD©e
 +ð
day
;

2799  
fixedD©e
;

2800 
	}
}

2807 
	$G»gÜŸnY—rFromFixed
(
fixedD©e
)

2809 
»suÉ
, 
d0
, 
n400
, 
d1
, 
n100
, 
d2
, 
n4
, 
d3
, 
n1
, 
d4
, 
y—r
;

2811 
d0
 = 
fixedD©e
 - 
G»gÜŸnEpoch
;

2812 
n400
 = ()(
	`æoÜ
(()
d0
 / ()146097));

2813 
d1
 = 
d0
 % 146097;

2814 
n100
 = ()(
	`æoÜ
(()
d1
 / ()36524));

2815 
d2
 = 
d1
 % 36524;

2816 
n4
 = ()(
	`æoÜ
(()
d2
 / ()1461));

2817 
d3
 = 
d2
 % 1461;

2818 
n1
 = ()(
	`æoÜ
(()
d3
 / ()365));

2819 
d4
 = (
d3
 % 365) + 1;

2820 
y—r
 = 400 * 
n400
 + 100 * 
n100
 + 4 * 
n4
 + 
n1
;

2822 ià((
n100
 =ð4è|| (
n1
 == 4)) {

2823 
»suÉ
 = 
y—r
;

2825 
»suÉ
 = 
y—r
 + 1;

2828  
»suÉ
;

2829 
	}
}

2838 
	$G»gÜŸnFromFixed
(
fixedD©e
, *
mÚth
, *
day
, *
y—r
)

2840 
´iÜDays
, 
cÜ»ùiÚ
;

2842 *
y—r
 = 
	`G»gÜŸnY—rFromFixed
(
fixedD©e
);

2843 
´iÜDays
 = 
fixedD©e
 - 
	`FixedFromG»gÜŸn
(1, 1, *
y—r
);

2845 ià(
fixedD©e
 < 
	`FixedFromG»gÜŸn
(3,1,*
y—r
)) {

2846 
cÜ»ùiÚ
 = 0;

2847 } ià(
Œue
 =ð
	`G»gÜŸnL—pY—rP
(*
y—r
)) {

2848 
cÜ»ùiÚ
 = 1;

2850 
cÜ»ùiÚ
 = 2;

2853 *
mÚth
 = ()(
	`æoÜ
((12.0 * ()(
´iÜDays
 + 
cÜ»ùiÚ
) + 373.0) / 367.0));

2854 *
day
 = 
fixedD©e
 - 
	`FixedFromG»gÜŸn
(*
mÚth
, 1, *
y—r
);

2855 
	}
}

2863 
	$G»gÜŸnD©eDifã»nû
Ð
mÚth1
, 
day1
, 
y—r1
,

2864 
mÚth2
, 
day2
, 
y—r2
)

2866  
	`FixedFromG»gÜŸn
(
mÚth2
, 
day2
, 
y—r2
) -

2867 
	`FixedFromG»gÜŸn
(
mÚth1
, 
day1
, 
y—r1
);

2868 
	}
}

2876 
	#SECONDS_PER_DAY
 24*60*60

	)

2878 
	$·r£Time
(
ch¬_t
 *
buf
, *
šdex
)

2883 
»tuºV®ue
, 
tmpIndex
, 
hourV®ue
, 
mšu‹V®ue
, 
£cÚdV®ue
;

2885 
hourV®ue
 = 
mšu‹V®ue
 = 
£cÚdV®ue
 = -1;

2886 
»tuºV®ue
 = -1;

2887 
tmpIndex
 = *
šdex
;

2889 
hourV®ue
 = 
	`·r£NDIGIT
(
buf
, 2, &
tmpIndex
);

2891 ià(
hourV®ue
 >= 0) {

2892 
tmpIndex
++;

2893 
mšu‹V®ue
 = 
	`·r£NDIGIT
(
buf
, 2, &
tmpIndex
);

2894 ià(
mšu‹V®ue
 >= 0) {

2895 
tmpIndex
++;

2896 
£cÚdV®ue
 = 
	`·r£NDIGIT
(
buf
, 2, &
tmpIndex
);

2900 ià((
hourV®ue
 >= 0) &&

2901 (
mšu‹V®ue
 >= 0) &&

2902 (
£cÚdV®ue
 >= 0)) {

2903 
»tuºV®ue
 = (((
hourV®ue
 * 60è+ 
mšu‹V®ue
è* 60è+ 
£cÚdV®ue
;

2904 *
šdex
 = 
tmpIndex
;

2907  
»tuºV®ue
;

2908 
	}
}

2915 
time_t
 
	$d©eToTim‘
(
y—r
, 
mÚth
, 
day
)

2917 
dayDifã»nû
;

2925 
dayDifã»nû
 = 
	`FixedFromG»gÜŸn
(
mÚth
 + 1, 
day
, 
y—r
) -

2926 
	`FixedFromG»gÜŸn
(1, 1, 1970);

2928  
dayDifã»nû
 * 
SECONDS_PER_DAY
;

2929 
	}
}

2937 
time_t
 
	$·r£D©e1Ü2
(
ch¬_t
 *
buf
, *
šdex
)

2945 
dayV®ue
, 
mÚthV®ue
, 
y—rV®ue
, 
tmpIndex
;

2946 
time_t
 
»tuºV®ue
;

2948 
»tuºV®ue
 = (
time_t
) -1;

2949 
tmpIndex
 = *
šdex
;

2951 
dayV®ue
 = 
mÚthV®ue
 = 
y—rV®ue
 = -1;

2953 ià(
buf
[
tmpIndex
] =ð
	`T
(',')) {

2957 
tmpIndex
 += 2;

2959 
dayV®ue
 = 
	`·r£NDIGIT
(
buf
, 2, &
tmpIndex
);

2960 ià(
dayV®ue
 >= 0) {

2964 
tmpIndex
++;

2965 
mÚthV®ue
 = 
	`·r£MÚth
(
buf
, &
tmpIndex
);

2966 ià(
mÚthV®ue
 >= 0) {

2970 
tmpIndex
++;

2971 
y—rV®ue
 = 
	`·r£Y—r
(
buf
, &
tmpIndex
);

2975 ià((
dayV®ue
 >= 0) &&

2976 (
mÚthV®ue
 >= 0) &&

2977 (
y—rV®ue
 >= 0)) {

2978 ià(
y—rV®ue
 < 1970) {

2982 
»tuºV®ue
 = 0;

2984 
»tuºV®ue
 = 
	`d©eToTim‘
(
y—rV®ue
, 
mÚthV®ue
, 
dayV®ue
);

2986 *
šdex
 = 
tmpIndex
;

2990  
»tuºV®ue
;

2991 
	}
}

2998 
time_t
 
	$·r£D©e3Time
(
ch¬_t
 *
buf
, *
šdex
)

3003 
dayV®ue
, 
mÚthV®ue
, 
y—rV®ue
, 
timeV®ue
, 
tmpIndex
;

3004 
time_t
 
»tuºV®ue
;

3006 
»tuºV®ue
 = (
time_t
) -1;

3007 
tmpIndex
 = *
šdex
;

3009 
dayV®ue
 = 
mÚthV®ue
 = 
y—rV®ue
 = 
timeV®ue
 = -1;

3011 
mÚthV®ue
 = 
	`·r£MÚth
(
buf
, &
tmpIndex
);

3012 ià(
mÚthV®ue
 >= 0) {

3016 
tmpIndex
++;

3017 ià(
buf
[
tmpIndex
] =ð
	`T
(' ')) {

3021 
tmpIndex
++;

3022 
dayV®ue
 = 
	`·r£NDIGIT
(
buf
, 1, &
tmpIndex
);

3024 
dayV®ue
 = 
	`·r£NDIGIT
(
buf
, 2, &
tmpIndex
);

3029 
timeV®ue
 = 
	`·r£Time
(
buf
, &
tmpIndex
);

3030 ià(
timeV®ue
 >= 0) {

3034 
y—rV®ue
 = 
	`·r£Y—r
(
buf
, &
tmpIndex
);

3038 ià((
dayV®ue
 >= 0) &&

3039 (
mÚthV®ue
 >= 0) &&

3040 (
y—rV®ue
 >= 0)) {

3041 
»tuºV®ue
 = 
	`d©eToTim‘
(
y—rV®ue
, 
mÚthV®ue
, 
dayV®ue
);

3042 
»tuºV®ue
 +ð
timeV®ue
;

3043 *
šdex
 = 
tmpIndex
;

3046  
»tuºV®ue
;

3047 
	}
}

3058 
	$bufãrIndexInüem’tGiv’NTe¡
(
ch¬_t
 *
buf
, 
‹¡Index
, ch¬_ˆ
‹¡Ch¬
,

3059 
foundInüem’t
, 
nÙfoundInüem’t
)

3061 ià(
buf
[
‹¡Index
] =ð
‹¡Ch¬
) {

3062  
foundInüem’t
;

3065  
nÙfoundInüem’t
;

3066 
	}
}

3073 
	$·r£W“kday
(
ch¬_t
 *
buf
, *
šdex
)

3081 
tmpIndex
, 
»tuºV®ue
;

3083 
»tuºV®ue
 = -1;

3084 
tmpIndex
 = *
šdex
;

3086 
buf
[
tmpIndex
]) {

3088 
»tuºV®ue
 = 
FRI
;

3089 *
šdex
 +ð
	`bufãrIndexInüem’tGiv’NTe¡
(
buf
, 
tmpIndex
+3, 'd', ("Friday"), 3);

3092 
»tuºV®ue
 = 
MON
;

3093 *
šdex
 +ð
	`bufãrIndexInüem’tGiv’NTe¡
(
buf
, 
tmpIndex
+3, 'd', ("Monday"), 3);

3096 
buf
[
tmpIndex
+1]) {

3098 
»tuºV®ue
 = 
SAT
;

3099 *
šdex
 +ð
	`bufãrIndexInüem’tGiv’NTe¡
(
buf
, 
tmpIndex
+3, 'u', ("Saturday"), 3);

3102 
»tuºV®ue
 = 
SUN
;

3103 *
šdex
 +ð
	`bufãrIndexInüem’tGiv’NTe¡
(
buf
, 
tmpIndex
+3, 'd', ("Sunday"), 3);

3108 
buf
[
tmpIndex
+1]) {

3110 
»tuºV®ue
 = 
THU
;

3111 *
šdex
 +ð
	`bufãrIndexInüem’tGiv’NTe¡
(
buf
, 
tmpIndex
+3, 'r', ("Thursday"), 3);

3114 
»tuºV®ue
 = 
TUE
;

3115 *
šdex
 +ð
	`bufãrIndexInüem’tGiv’NTe¡
(
buf
, 
tmpIndex
+3, 's', ("Tuesday"), 3);

3120 
»tuºV®ue
 = 
WED
;

3121 *
šdex
 +ð
	`bufãrIndexInüem’tGiv’NTe¡
(
buf
, 
tmpIndex
+3, 'n', ("Wednesday"), 3);

3124  
»tuºV®ue
;

3125 
	}
}

3132 
time_t
 
	$d©eP¬£
(
time_t
 
t
, 
ch¬_t
 *
cmd
)

3134 
šdex
, 
tmpIndex
, 
w“kday
, 
timeV®ue
;

3135 
time_t
 
·r£dV®ue
, 
d©eV®ue
;

3137 
·r£dV®ue
 = (
time_t
) 0;

3138 
šdex
 = 
timeV®ue
 = 0;

3139 
w“kday
 = 
	`·r£W“kday
(
cmd
, &
šdex
);

3141 ià(
w“kday
 >= 0) {

3142 
tmpIndex
 = 
šdex
;

3143 
d©eV®ue
 = 
	`·r£D©e1Ü2
(
cmd
, &
tmpIndex
);

3144 ià(
d©eV®ue
 >= 0) {

3145 
šdex
 = 
tmpIndex
 + 1;

3151 
timeV®ue
 = 
	`·r£Time
(
cmd
, &
šdex
);

3152 ià(
timeV®ue
 >= 0) {

3157 ià((
w“kday
 >= 0) &&

3158 (
d©eV®ue
 >= 0) &&

3159 (
timeV®ue
 >= 0)) {

3160 
·r£dV®ue
 = 
d©eV®ue
 + 
timeV®ue
;

3167 
tmpIndex
 = 
šdex
;

3168 
·r£dV®ue
 = 
	`·r£D©e3Time
(
cmd
, &
tmpIndex
);

3172  
·r£dV®ue
;

3173 
	}
}

	@webs.h

10 #iâdeà
_h_WEBS


11 
	#_h_WEBS
 1

	)

22 
	~"ej.h
"

23 #ifdeà
WEBS_SSL_SUPPORT


24 
	~"websSSL.h
"

29 
	#WEBS_DEFAULT_HOME
 
	`T
("home.htm"è

	)

30 
	#WEBS_DEFAULT_PORT
 8080

	)

31 
	#WEBS_DEFAULT_SSL_PORT
 4433

	)

34 
	#WEBS_WHITELIST_SUPPORT
 1

	)

37 
	#WEBS_LOG_SUPPORT
 1

	)

40 
	#WEBS_TRACE_SUPPORT
 1

	)

41 
	#WEBS_TRACE_LEVEL
 3

	)

57 
	#WEBS_NAME
 
	`T
("GoAh—d-Webs")

	)

58 
	#WEBS_VERSION
 
	`T
("2.5.0")

	)

59 #ifdeà
WEBS_SSL_SUPPORT


60 
	#SSL_NAME
 
	`T
("P“rSec-M©rixSSL")

	)

61 
	#SSL_VERSION
 
	`T
(
MATRIXSSL_VERSION
)

	)

66 
	#WEBS_HEADER_BUFINC
 512

	)

67 
	#WEBS_ASP_BUFINC
 512

	)

68 
	#WEBS_MAX_PASS
 32

	)

69 
	#WEBS_BUFSIZE
 960

	)

70 
	#WEBS_MAX_HEADER
 (5 * 1024è

	)

71 
	#WEBS_MAX_URL
 2048

	)

72 
	#WEBS_SOCKET_BUFSIZ
 256

	)

76 
	#WEBS_HTTP_PORT
 
	`T
("h‰pPÜt")

	)

77 
	#CGI_BIN
 
	`T
("cgi-bš")

	)

82 
	#WEBS_LOCAL_PAGE
 0x1

	)

83 
	#WEBS_KEEP_ALIVE
 0x2

	)

84 
	#WEBS_DONT_USE_CACHE
 0x4

	)

85 
	#WEBS_COOKIE
 0x8

	)

86 
	#WEBS_IF_MODIFIED
 0x10

	)

87 
	#WEBS_POST_REQUEST
 0x20

	)

88 
	#WEBS_LOCAL_REQUEST
 0x40

	)

89 
	#WEBS_HOME_PAGE
 0x80

	)

90 
	#WEBS_ASP
 0x100

	)

91 
	#WEBS_HEAD_REQUEST
 0x200

	)

92 
	#WEBS_CLEN
 0x400

	)

93 
	#WEBS_FORM
 0x800

	)

94 
	#WEBS_REQUEST_DONE
 0x1000

	)

95 
	#WEBS_POST_DATA
 0x2000

	)

96 
	#WEBS_CGI_REQUEST
 0x4000

	)

97 
	#WEBS_SECURE
 0x8000

	)

98 
	#WEBS_AUTH_BASIC
 0x10000

	)

99 
	#WEBS_AUTH_DIGEST
 0x20000

	)

100 
	#WEBS_HEADER_DONE
 0x40000

	)

105 
	#WEBS_HANDLER_FIRST
 0x1

	)

106 
	#WEBS_HANDLER_LAST
 0x2

	)

111 
	swebsRec
 {

112 
ršgq_t
 
	mh—d”
;

113 
time_t
 
	msšû
;

114 
sym_fd_t
 
	mcgiV¬s
;

115 
sym_fd_t
 
	mcgiQu”y
;

116 
time_t
 
	mtime¡amp
;

117 
	mtimeout
;

118 
ch¬_t
 
	maddr
[32];

119 
ch¬_t
 
	miçddr
[32];

120 
ch¬_t
 
	mty³
[64];

121 
ch¬_t
 *
	mdœ
;

122 
ch¬_t
 *
	m·th
;

123 
ch¬_t
 *
	mu¾
;

124 
ch¬_t
 *
	mho¡
;

125 
ch¬_t
 *
	mÍ©h
;

126 
ch¬_t
 *
	mqu”y
;

127 
ch¬_t
 *
	mdecodedQu”y
;

128 
ch¬_t
 *
	mauthTy³
;

129 
ch¬_t
 *
	m·sswÜd
;

130 
ch¬_t
 *
	mu£rName
;

131 
ch¬_t
 *
	mcook›
;

132 
ch¬_t
 *
	mu£rAg’t
;

133 
ch¬_t
 *
	m´ÙocÞ
;

134 
ch¬_t
 *
	m´ÙoV”siÚ
;

135 
	msid
;

136 
	mli¡’Sid
;

137 
	mpÜt
;

138 
	m¡©e
;

139 
	mæags
;

140 
	mcode
;

141 
	mþ’
;

142 
	mwid
;

143 
ch¬_t
 *
	mcgiStdš
;

144 
	mdocfd
;

145 
	mnumby‹s
;

146 
	mwr™‹n
;

147 (*
	mwr™eSock‘
)(
websRec
 *
	mwp
);

148 #ifdeà
DIGEST_ACCESS_SUPPORT


149 
ch¬_t
 *
	m»®m
;

150 
ch¬_t
 *
	mnÚû
;

151 
ch¬_t
 *
	mdige¡
;

152 
ch¬_t
 *
	muri
;

153 
ch¬_t
 *
	mÝaque
;

154 
ch¬_t
 *
	mnc
;

155 
ch¬_t
 *
	múÚû
;

156 
ch¬_t
 *
	mqÝ
;

158 #ifdeà
WEBS_SSL_SUPPORT


159 
websSSL_t
 *
	mw¥
;

161 } 
	twebsRec
;

163 
websRec
 *
	twebs_t
;

164 
websRec
 
	twebsTy³
;

167 
websAcû±
(
sid
, *
addr
, 
pÜt
, 
li¡’Sid
);

168 
websA¥Defše
(
ch¬_t
 *
Çme
,

169 (*
â
)(
ejid
, 
webs_t
 
wp
, 
¬gc
, 
ch¬_t
 **
¬gv
));

170 
	`websA¥Reque¡
(
webs_t
 
wp
, 
ch¬_t
 *
Í©h
);

171 
	`websClo£Li¡’
();

172 
	`websDecode64
(
ch¬_t
 *
outbuf
, ch¬_ˆ*
¡ršg
, 
buæ’
);

173 
	`websDecodeU¾
(
ch¬_t
 *
tok’
, ch¬_ˆ*
decoded
, 
Ën
);

174 
	`websDÚe
(
webs_t
 
wp
, 
code
);

175 
	`websEncode64
(
ch¬_t
 *
outbuf
, ch¬_ˆ*
¡ršg
, 
buæ’
);

176 
	`websE¼Ü
(
webs_t
 
wp
, 
code
, 
ch¬_t
 *
msg
, ...);

178 
ch¬_t
 *
	`websE¼ÜMsg
(
code
);

179 
	`websFoÙ”
(
webs_t
 
wp
);

180 
	`websFÜmDefše
(
ch¬_t
 *
Çme
, (*
â
)(
webs_t
 
wp
,

181 
ch¬_t
 *
·th
, ch¬_ˆ*
qu”y
));

182 
ch¬_t
 *
	`websG‘DeçuÉDœ
();

183 
ch¬_t
 *
	`websG‘DeçuÉPage
();

184 
ch¬_t
 *
	`websG‘Ho¡U¾
();

185 
ch¬_t
 *
	`websG‘I·ddrU¾
();

186 
ch¬_t
 *
	`websG‘PasswÜd
();

187 
	`websG‘PÜt
();

188 
ch¬_t
 *
	`websG‘PublishDœ
(ch¬_ˆ*
·th
, ch¬_ˆ**
u¾P»fix
);

189 
ch¬_t
 *
	`websG‘R—lm
();

190 
	`websG‘Reque¡By‹s
(
webs_t
 
wp
);

191 
ch¬_t
 *
	`websG‘Reque¡Dœ
(
webs_t
 
wp
);

192 
	`websG‘Reque¡FÏgs
(
webs_t
 
wp
);

193 
ch¬_t
 *
	`websG‘Reque¡I·ddr
(
webs_t
 
wp
);

194 
ch¬_t
 *
	`websG‘Reque¡L·th
(
webs_t
 
wp
);

195 
ch¬_t
 *
	`websG‘Reque¡P©h
(
webs_t
 
wp
);

196 
ch¬_t
 *
	`websG‘Reque¡PasswÜd
(
webs_t
 
wp
);

197 
ch¬_t
 *
	`websG‘Reque¡Ty³
(
webs_t
 
wp
);

198 
	`websG‘Reque¡Wr™‹n
(
webs_t
 
wp
);

199 
ch¬_t
 *
	`websG‘V¬
(
webs_t
 
wp
, ch¬_ˆ*
v¬
, ch¬_ˆ*
def
);

200 
	`websCom·»V¬
(
webs_t
 
wp
, 
ch¬_t
 *
v¬
, ch¬_ˆ*
v®ue
);

201 
	`websH—d”
(
webs_t
 
wp
);

202 
	`websO³nLi¡’
(
pÜt
, 
»Œ›s
);

203 
	`websPageO³n
(
webs_t
 
wp
, 
ch¬_t
 *
Í©h
, ch¬_ˆ*
·th
,

204 
mode
, 
³rm
);

205 
	`websPageClo£
(
webs_t
 
wp
);

206 
	`websPublish
(
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
·th
);

207 
	`websRedœeù
(
webs_t
 
wp
, 
ch¬_t
 *
u¾
);

208 
	`websSecur™yD–‘e
();

209 
	`websSecur™yHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
,

210 
ch¬_t
 *
webDœ
, 
¬g
, ch¬_ˆ*
u¾
, ch¬_ˆ*
·th
,

211 
ch¬_t
 *
qu”y
);

212 
	`websS‘DeçuÉDœ
(
ch¬_t
 *
dœ
);

213 
	`websS‘DeçuÉPage
(
ch¬_t
 *
·ge
);

214 
	`websS‘Env
(
webs_t
 
wp
);

215 
	`websS‘Ho¡
(
ch¬_t
 *
ho¡
);

216 
	`websS‘I·ddr
(
ch¬_t
 *
addr
);

217 
	`websS‘PasswÜd
(
ch¬_t
 *
·sswÜd
);

218 
	`websS‘R—lm
(
ch¬_t
 *
»®mName
);

219 
	`websS‘Reque¡By‹s
(
webs_t
 
wp
, 
by‹s
);

220 
	`websS‘Reque¡FÏgs
(
webs_t
 
wp
, 
æags
);

221 
	`websS‘Reque¡L·th
(
webs_t
 
wp
, 
ch¬_t
 *
Í©h
);

222 
	`websS‘Reque¡P©h
(
webs_t
 
wp
, 
ch¬_t
 *
dœ
, ch¬_ˆ*
·th
);

223 
ch¬_t
 *
	`websG‘Reque¡U£rName
(
webs_t
 
wp
);

224 
	`websS‘Reque¡Wr™‹n
(
webs_t
 
wp
, 
wr™‹n
);

225 
	`websS‘V¬
(
webs_t
 
wp
, 
ch¬_t
 *
v¬
, ch¬_ˆ*
v®ue
);

226 
	`websTe¡V¬
(
webs_t
 
wp
, 
ch¬_t
 *
v¬
);

227 
	`websTimeoutCªûl
(
webs_t
 
wp
);

228 
	`websU¾HªdËrDefše
(
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
,

229 
¬g
, (*
â
)(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
,

230 
ch¬_t
 *
webDœ
, 
¬g
, ch¬_ˆ*
u¾
, ch¬_ˆ*
·th
,

231 
ch¬_t
 *
qu”y
), 
æags
);

232 
	`websU¾HªdËrD–‘e
((*
â
)(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
,

233 
ch¬_t
 *
webDœ
, 
¬g
, ch¬_ˆ*
u¾
, ch¬_ˆ*
·th
,

234 
ch¬_t
 *
qu”y
));

235 
	`websU¾HªdËrReque¡
(
webs_t
 
wp
);

236 
	`websU¾P¬£
(
ch¬_t
 *
u¾
, ch¬_ˆ**
buf
, ch¬_ˆ**
ho¡
,

237 
ch¬_t
 **
·th
, ch¬_ˆ**
pÜt
, ch¬_ˆ**
qu”y
,

238 
ch¬_t
 **
´Ùo
, ch¬_ˆ**
g
, ch¬_ˆ**
ext
);

239 
ch¬_t
 *
	`websU¾Ty³
(ch¬_ˆ*
webs
, ch¬_ˆ*
buf
, 
ch¬CÁ
);

240 
	`websWr™e
(
webs_t
 
wp
, 
ch¬_t
* 
fmt
, ...);

241 
	`websWr™eBlock
(
webs_t
 
wp
, 
ch¬_t
 *
buf
, 
nCh¬s
);

242 
	`websWr™eD©aNÚBlock
(
webs_t
 
wp
, *
buf
, 
nCh¬s
);

243 
	`websV®id
(
webs_t
 
wp
);

244 
	`websV®id©eU¾
(
webs_t
 
wp
, 
ch¬_t
 *
·th
);

245 
	`websS‘TimeM¬k
(
webs_t
 
wp
);

250 
	`websAÎoc
(
sid
);

251 
	`websF»e
(
webs_t
 
wp
);

252 
	`websTimeout
(*
¬g
, 
id
);

253 
	`websR—dEv’t
(
webs_t
 
wp
);

	@websSSL.c

11 #ifdeà
WEBS_SSL_SUPPORT


20 
	~"wsIÁº.h
"

21 
	~"websSSL.h
"

22 
	~"webs.h
"

23 
	~"m©rixSSLSock‘.h
"

25 
	~<¡dio.h
>

26 
	~<¡dlib.h
>

27 
	~<¡ršg.h
>

31 
	gs¦Li¡’Sock
 = -1;

32 
s¦Keys_t
 *
	gs¦Keys
 = 
NULL
;

36 
websSSLAcû±
(
sid
, *
addr
, 
pÜt
, 
li¡’Sid
);

37 
websSSLSock‘Ev’t
(
sid
, 
mask
, *
iwp
);

38 
websSSLR—dEv’t
(
webs_t
 
wp
);

49 
	$websSSLO³n
()

51 ià(
	`m©rixS¦O³n
() < 0) {

55 ià(
	`m©rixS¦NewKeys
(&
s¦Keys
) < 0) {

56 
	`Œaû
(0, 
	`T
("Failedo‡llocate keys in websSSLOpen\n"));

59 ià(
	`m©rixS¦LßdR§Keys
(
s¦Keys
, 
DEFAULT_CERT_FILE
, 
DEFAULT_KEY_FILE
,

60 
NULL
 ,

61 
NULL
 ) < 0) {

62 
	`Œaû
(0, 
	`T
("Failedo„ead certificate %s in websSSLOpen\n"),

63 
DEFAULT_CERT_FILE
);

64 
	`Œaû
(0, 
	`T
("SSL support is disabled\n"));

68 #ifdeà
USE_NONBLOCKING_SSL_SOCKETS


69 
s¦Li¡’Sock
 = 
	`sock‘O³nCÚÃùiÚ
(
NULL
, 
WEBS_DEFAULT_SSL_PORT
,

70 
websSSLAcû±
, 
SOCKET_MYOWNBUFFERS
);

72 
s¦Li¡’Sock
 = 
	`sock‘O³nCÚÃùiÚ
(
NULL
, 
WEBS_DEFAULT_SSL_PORT
,

73 
websSSLAcû±
, 
SOCKET_BLOCK
 | 
SOCKET_MYOWNBUFFERS
);

76 ià(
s¦Li¡’Sock
 < 0) {

77 
	`Œaû
(0, 
	`T
("SSL: Unableo open SSL socket on…ort %d.\n"),

78 
WEBS_DEFAULT_SSL_PORT
);

81 
	`Œaû
(0, 
	`T
("webs: Listening for HTTPS„equests‡t…ort %d\n"),

82 
WEBS_DEFAULT_SSL_PORT
);

85 
	}
}

91 
	$websSSLAcû±
(
sid
, *
addr
, 
pÜt
, 
li¡’Sid
)

93 
webs_t
 
wp
;

94 
wid
;

96 
	`a_as£¹
(
addr
 && *ipaddr);

97 
	`a_as£¹
(
sid
 >= 0);

98 
	`a_as£¹
(
pÜt
 >= 0);

104 ià((
wid
 = 
	`websAÎoc
(
sid
)) < 0) {

107 
wp
 = 
webs
[
wid
];

108 
	`a_as£¹
(
wp
);

109 
wp
->
li¡’Sid
 =†istenSid;

111 
	`ascToUni
(
wp
->
addr
, i·ddr, 
	`mš
((wp->addr), 
	`¡¾’
(ipaddr)+1));

117 ià(
	`g¡rcmp
(
wp
->
addr
, 
	`T
("127.0.0.1")) == 0 ||

118 
	`g¡rcmp
(
wp
->
addr
, 
websI·ddr
) == 0 ||

119 
	`g¡rcmp
(
wp
->
addr
, 
websHo¡
) == 0) {

120 
wp
->
æags
 |ð
WEBS_LOCAL_REQUEST
;

125 
wp
->
æags
 |ð
WEBS_SECURE
;

130 
	`sock‘C»©eHªdËr
(
sid
, 
SOCKET_READABLE
, 
websSSLSock‘Ev’t
, 
wp
);

135 
wp
->
timeout
 = 
	`emfSchedC®lback
(
WEBS_TIMEOUT
, 
websTimeout
, (*) wp);

136 
	`Œaû
(8, 
	`T
("websSSLAccept(): webs:‡ccept„equest\n"));

138 
	}
}

144 
	$websSSLR—d
(
websSSL_t
 *
w¥
, 
ch¬_t
 *
buf
, 
Ën
)

146 
	`a_as£¹
(
w¥
);

147 
	`a_as£¹
(
buf
);

149  
	`s¦R—d
(
w¥
->
s¦CÚn
, 
buf
, 
Ën
);

150 
	}
}

164 
	$websSSLG‘s
(
websSSL_t
 *
w¥
, 
ch¬_t
 **
buf
)

166 
sock‘_t
 *
¥
;

167 
ršgq_t
 *
lq
;

168 
c
;

169 
Ën
;

170 
webs_t
 
wp
;

171 
sid
;

172 
numBy‹sReûived
;

174 
	`a_as£¹
(
w¥
);

175 
	`a_as£¹
(
buf
);

177 *
buf
 = 
NULL
;

179 
wp
 = 
w¥
->wp;

180 
sid
 = 
wp
->sid;

182 ià((
¥
 = 
	`sock‘PŒ
(
sid
)è=ð
NULL
) {

185 
lq
 = &
¥
->
lšeBuf
;

190 
numBy‹sReûived
 = 
	`s¦R—d
(
w¥
->
s¦CÚn
, &
c
, 1);

192 ià(
numBy‹sReûived
 < 0) {

196 ià(
numBy‹sReûived
 == 0) {

200 ià(
	`ršgqL’
(
lq
è> 0 && (
¥
->
æags
 & 
SOCKET_EOF
)) {

201 
c
 = '\n';

203 
Ën
 = 
	`ršgqL’
(
lq
);

204 ià(
Ën
 > 0) {

205 *
buf
 = 
	`b®locAscToUni
((*)
lq
->
£rvp
, 
Ën
);

207 *
buf
 = 
NULL
;

209 
	`ršgqFlush
(
lq
);

210  
Ën
;

217 ià(
c
 == '\n') {

218 
Ën
 = 
	`ršgqL’
(
lq
);

219 ià(
Ën
 > 0) {

220 *
buf
 = 
	`b®locAscToUni
((*)
lq
->
£rvp
, 
Ën
);

222 *
buf
 = 
NULL
;

224 
	`ršgqFlush
(
lq
);

225  
Ën
;

227 } ià(
c
 == '\r') {

230 
	`ršgqPutcA
(
lq
, 
c
);

233 
	}
}

241 
	$websSSLSock‘Ev’t
(
sid
, 
mask
, *
iwp
)

243 
webs_t
 
wp
;

245 
wp
 = (
webs_t
è
iwp
;

246 
	`a_as£¹
(
wp
);

248 ià(! 
	`websV®id
(
wp
)) {

252 ià(
mask
 & 
SOCKET_READABLE
) {

253 
	`websSSLR—dEv’t
(
wp
);

255 ià(
mask
 & 
SOCKET_WRITABLE
) {

256 ià(
wp
->
wr™eSock‘
) {

257 (*
wp
->
wr™eSock‘
)(wp);

260 
	}
}

266 
	$websSSLR—dEv’t
 (
webs_t
 
wp
)

268 
»t
 = 07, 
sock
, 
»sume
;

269 
sock‘_t
 *
¥Œ
;

270 
s¦CÚn_t
* 
s¦CÚn
;

272 
	`a_as£¹
 (
wp
);

273 
	`a_as£¹
(
	`websV®id
(
wp
));

275 
¥Œ
 = 
	`sock‘PŒ
(
wp
->
sid
);

276 
	`a_as£¹
(
¥Œ
);

278 
sock
 = 
¥Œ
->sock;

280 ià(
wp
->
w¥
 =ð
NULL
) {

281 
»sume
 = 0;

283 
»sume
 = 1;

284 
s¦CÚn
 = (
wp
->
w¥
)->sslConn;

299 ià(
	`s¦Acû±
(&
s¦CÚn
, 
sock
, 
s¦Keys
, 
»sume
, 
NULL
) < 0) {

300 
	`websTimeoutCªûl
(
wp
);

301 
	`sock‘Clo£CÚÃùiÚ
(
wp
->
sid
);

302 
	`websF»e
(
wp
);

306 ià(
»sume
 == 0) {

310 
wp
->
w¥
 = 
	`b®loc
(
B_L
, (
websSSL_t
));

311 
	`a_as£¹
 (
wp
->
w¥
);

313 (
wp
->
w¥
)->
s¦CÚn
 = sslConn;

314 (
wp
->
w¥
)->wp = wp;

320 
	`websR—dEv’t
(
wp
);

322  
»t
;

323 
	}
}

329 
	$websSSLIsO³n
()

331  (
s¦Li¡’Sock
 != -1);

332 
	}
}

338 
	$websSSLWr™e
(
websSSL_t
 *
w¥
, 
ch¬_t
 *
buf
, 
Ën
)

340 
s¦By‹sS’t
 = 0;

342 
	`a_as£¹
(
w¥
);

343 
	`a_as£¹
(
buf
);

345 ià(
w¥
 =ð
NULL
) {

352 ià((
s¦By‹sS’t
 = 
	`s¦Wr™e
(
w¥
->
s¦CÚn
, 
buf
, 
Ën
)) < 0) {

353 
s¦By‹sS’t
 = -1;

355  
s¦By‹sS’t
;

356 
	}
}

362 
	$websSSLEof
(
websSSL_t
 *
w¥
)

364 
webs_t
 
wp
;

365 
sid
;

367 
	`a_as£¹
(
w¥
);

369 
wp
 = 
w¥
->wp;

370 
sid
 = 
wp
->sid;

372  
	`sock‘Eof
(
sid
);

373 
	}
}

379 
	$websSSLFlush
(
websSSL_t
 *
w¥
)

381 
	`a_as£¹
(
w¥
);

385 
	}
}

391 
	$websSSLF»e
(
websSSL_t
 *
w¥
)

393 ià(
w¥
 !ð
NULL
) {

394 
	`s¦Wr™eClosu»AË¹
(
w¥
->
s¦CÚn
);

395 
	`s¦F»eCÚÃùiÚ
(&
w¥
->
s¦CÚn
);

396 
	`bä“
(
B_L
, 
w¥
);

399 
	}
}

405 
	$websSSLClo£
()

407 
	`m©rixS¦D–‘eKeys
(
s¦Keys
);

408 
	`m©rixS¦Clo£
();

409 
	}
}

	@websSSL.h

10 #iâdeà
_h_websSSL


11 
	#_h_websSSL
 1

	)

21 #ifdeà
WEBS_SSL_SUPPORT


23 
	~"webs.h
"

24 
	~"m©rixSSLSock‘.h
"

25 
	~"uemf.h
"

29 
	#DEFAULT_CERT_FILE
 "./û¹Srv.³m"

	)

30 
	#DEFAULT_KEY_FILE
 "./´ivkeySrv.³m"

	)

33 
s¦CÚn_t
* 
	ms¦CÚn
;

34 
websRec
* 
	mwp
;

35 } 
	twebsSSL_t
;

39 
websSSLO³n
();

40 
websSSLIsO³n
();

41 
websSSLClo£
();

42 #ifdeà
WEBS_WHITELIST_SUPPORT


43 
websRequœeSSL
(*
u¾
);

48 
websSSLWr™e
(
websSSL_t
 *
w¥
, 
ch¬_t
 *
buf
, 
nCh¬s
);

49 
websSSLG‘s
(
websSSL_t
 *
w¥
, 
ch¬_t
 **
buf
);

50 
websSSLR—d
(
websSSL_t
 *
w¥
, 
ch¬_t
 *
buf
, 
nCh¬s
);

51 
websSSLEof
(
websSSL_t
 *
w¥
);

53 
websSSLF»e
(
websSSL_t
 *
w¥
);

54 
websSSLFlush
(
websSSL_t
 *
w¥
);

56 
websSSLS‘KeyFže
(
ch¬_t
 *
keyFže
);

57 
websSSLS‘C”tFže
(
ch¬_t
 *
û¹Fže
);

	@websda.c

18 #iâdeà
CE


19 
	~<time.h
>

21 
	~"websda.h
"

22 
	~"md5.h
"

24 #ifdeà
DIGEST_ACCESS_SUPPORT


27 
	#RANDOMKEY
 
	`T
("ÚûupÚ©imeš·¿di£")

	)

28 
	#NONCE_SIZE
 34

	)

29 
	#HASH_SIZE
 16

	)

36 *
	$websMD5bš¬y
(*
buf
, 
Ëngth
)

38 cÚ¡ *
hex
 = "0123456789abcdef";

39 
psDige¡CÚ‹xt_t
 
md5ùx
;

40 
hash
[
HASH_SIZE
];

41 *
r
, *
¡rR‘uº
;

42 
»suÉ
[(
HASH_SIZE
 * 2) + 1];

43 
i
;

48 
	`psMd5In™
(&
md5ùx
);

49 
	`psMd5Upd©e
(&
md5ùx
, 
buf
, ()
Ëngth
);

50 
	`psMd5Fš®
(&
md5ùx
, 
hash
);

55 
i
 = 0, 
r
 = 
»suÉ
; i < 16; i++) {

56 *
r
++ = 
hex
[
hash
[
i
] >> 4];

57 *
r
++ = 
hex
[
hash
[
i
] & 0xF];

63 *
r
 = '\0';

68 
i
 = 
	`–em’tsof
(
»suÉ
);

69 
¡rR‘uº
 = 
	`b®loc
(
B_L
, 
i
);

70 
	`¡ºýy
(
¡rR‘uº
, 
»suÉ
, 
i
);

72  
¡rR‘uº
;

73 
	}
}

81 
ch¬_t
 *
	$websMD5
(
ch¬_t
 *
¡ršg
)

83 
ch¬_t
 *
¡rR‘uº
;

85 
	`a_as£¹
(
¡ršg
 && *string);

87 ià(
¡ršg
 && *string) {

88 *
¡rTemp
, *
¡rHash
;

89 
nL’
;

93 
nL’
 = 
	`g¡¾’
(
¡ršg
);

94 
¡rTemp
 = 
	`b®locUniToAsc
(
¡ršg
, 
nL’
 + 1);

98 
¡rHash
 = 
	`websMD5bš¬y
((*)
¡rTemp
, 
nL’
);

102 
nL’
 = 
	`¡¾’
(
¡rHash
);

103 
¡rR‘uº
 = 
	`b®locAscToUni
(
¡rHash
, 
nL’
);

107 
	`bä“
(
B_L
, 
¡rTemp
);

108 
	`bä“
(
B_L
, 
¡rHash
);

110 
¡rR‘uº
 = 
NULL
;

113  
¡rR‘uº
;

114 
	}
}

123 
ch¬_t
 *
	$websC®cNÚû
(
webs_t
 
wp
)

125 
ch¬_t
 *
nÚû
, *
´’Úû
;

126 
time_t
 
lÚgTime
;

127 #ià
	`defšed
(
WIN32
)

128 
ch¬_t
 
buf
[26];

129 
”ºo_t
 
”rÜ
;

130 
tm
 
Ãwtime
;

132 
tm
 *
Ãwtime
;

135 
	`a_as£¹
(
wp
);

139 
	`time
(&
lÚgTime
);

143 #ià!
	`defšed
(
WIN32
)

144 
Ãwtime
 = 
	`loÿÉime
(&
lÚgTime
);

147 
”rÜ
 = 
	`loÿÉime_s
(&
Ãwtime
, &
lÚgTime
);

152 #ià!
	`defšed
(
WIN32
)

153 
´’Úû
 = 
NULL
;

154 
	`fmtAÎoc
(&
´’Úû
, 256, 
	`T
("%s:%s:%s"), 
RANDOMKEY
, 
	`gasùime
(
Ãwtime
),

155 
wp
->
»®m
);

157 
	`asùime_s
(
buf
, 
	`–em’tsof
(buf), &
Ãwtime
);

158 
	`fmtAÎoc
(&
´’Úû
, 256, 
	`T
("%s:%s:%s"), 
RANDOMKEY
, 
buf
,

159 
RANDOMKEY
);

162 
	`a_as£¹
(
´’Úû
);

166 
nÚû
 = 
	`websMD5
(
´’Úû
);

170 
	`bä“Saã
(
B_L
, 
´’Úû
);

172  
nÚû
;

173 
	}
}

180 
ch¬_t
 *
	$websC®cO·que
(
webs_t
 
wp
)

182 
ch¬_t
 *
Ýaque
;

183 
	`a_as£¹
(
wp
);

187 
Ýaque
 = 
	`b¡rdup
(
B_L
, 
	`T
("5ccc069c403ebaf9f0171e9517f40e41"));

189  
Ýaque
;

190 
	}
}

197 
ch¬_t
 *
	$websC®cDige¡
(
webs_t
 
wp
)

199 
ch¬_t
 *
dige¡
, *
a1
, *
a1´ime
, *
a2
, *
a2´ime
, *
´eDige¡
, *
m‘hod
;

201 
	`a_as£¹
(
wp
);

202 
dige¡
 = 
NULL
;

207 
a1
 = 
NULL
;

208 
	`fmtAÎoc
(&
a1
, 255, 
	`T
("%s:%s:%s"), 
wp
->
u£rName
, wp->
»®m
, wp->
·sswÜd
);

209 
	`a_as£¹
(
a1
);

210 
a1´ime
 = 
	`websMD5
(
a1
);

211 
	`bä“Saã
(
B_L
, 
a1
);

215 
m‘hod
 = 
	`websG‘V¬
(
wp
, 
	`T
("REQUEST_METHOD"), 
NULL
);

216 
	`a_as£¹
(
m‘hod
);

217 
a2
 = 
NULL
;

218 
	`fmtAÎoc
(&
a2
, 255, 
	`T
("%s:%s"), 
m‘hod
, 
wp
->
uri
);

219 
	`a_as£¹
(
a2
);

220 
a2´ime
 = 
	`websMD5
(
a2
);

221 
	`bä“Saã
(
B_L
, 
a2
);

225 
	`a_as£¹
(
a1´ime
);

226 
	`a_as£¹
(
a2´ime
);

227 
	`a_as£¹
(
wp
->
nÚû
);

229 
´eDige¡
 = 
NULL
;

230 ià(!
wp
->
qÝ
) {

231 
	`fmtAÎoc
(&
´eDige¡
, 255, 
	`T
("%s:%s:%s"), 
a1´ime
, 
wp
->
nÚû
, 
a2´ime
);

233 
	`fmtAÎoc
(&
´eDige¡
, 255, 
	`T
("%s:%s:%s:%s:%s:%s"),

234 
a1´ime
,

235 
wp
->
nÚû
,

236 
wp
->
nc
,

237 
wp
->
úÚû
,

238 
wp
->
qÝ
,

239 
a2´ime
);

242 
	`a_as£¹
(
´eDige¡
);

243 
dige¡
 = 
	`websMD5
(
´eDige¡
);

247 
	`bä“Saã
(
B_L
, 
a1´ime
);

248 
	`bä“Saã
(
B_L
, 
a2´ime
);

249 
	`bä“Saã
(
B_L
, 
´eDige¡
);

250  
dige¡
;

251 
	}
}

260 
ch¬_t
 *
	$websC®cU¾Dige¡
(
webs_t
 
wp
)

262 
ch¬_t
 *
dige¡
, *
a1
, *
a1´ime
, *
a2
, *
a2´ime
, *
´eDige¡
, *
m‘hod
;

264 
	`a_as£¹
(
wp
);

265 
dige¡
 = 
NULL
;

270 
a1
 = 
NULL
;

271 
	`fmtAÎoc
(&
a1
, 255, 
	`T
("%s:%s:%s"), 
wp
->
u£rName
, wp->
»®m
, wp->
·sswÜd
);

272 
	`a_as£¹
(
a1
);

273 
a1´ime
 = 
	`websMD5
(
a1
);

274 
	`bä“Saã
(
B_L
, 
a1
);

278 
m‘hod
 = 
	`websG‘V¬
(
wp
, 
	`T
("REQUEST_METHOD"), 
NULL
);

279 
	`a_as£¹
(
m‘hod
);

281 
a2
 = 
	`b®loc
(
B_L
, (
	`g¡¾’
(
m‘hod
è+2 + g¡¾’(
wp
->
u¾
èè* (
ch¬_t
));

282 
	`a_as£¹
(
a2
);

283 
	`g¥rštf
(
a2
, 
	`T
("%s:%s"), 
m‘hod
, 
wp
->
u¾
);

284 
a2´ime
 = 
	`websMD5
(
a2
);

285 
	`bä“Saã
(
B_L
, 
a2
);

289 
	`a_as£¹
(
a1´ime
);

290 
	`a_as£¹
(
a2´ime
);

291 
	`a_as£¹
(
wp
->
nÚû
);

293 
´eDige¡
 = 
NULL
;

294 ià(!
wp
->
qÝ
) {

295 
	`fmtAÎoc
(&
´eDige¡
, 255, 
	`T
("%s:%s:%s"), 
a1´ime
, 
wp
->
nÚû
, 
a2´ime
);

297 
	`fmtAÎoc
(&
´eDige¡
, 255, 
	`T
("%s:%s:%s:%s:%s:%s"),

298 
a1´ime
,

299 
wp
->
nÚû
,

300 
wp
->
nc
,

301 
wp
->
úÚû
,

302 
wp
->
qÝ
,

303 
a2´ime
);

306 
	`a_as£¹
(
´eDige¡
);

307 
dige¡
 = 
	`websMD5
(
´eDige¡
);

311 
	`bä“Saã
(
B_L
, 
a1´ime
);

312 
	`bä“Saã
(
B_L
, 
a2´ime
);

313 
	`bä“Saã
(
B_L
, 
´eDige¡
);

314  
dige¡
;

315 
	}
}

	@websda.h

10 #iâdeà
_h_WEBSDA


11 
	#_h_WEBSDA
 1

	)

23 
	~"uemf.h
"

24 
	~"webs.h
"

28 
ch¬_t
 *
websC®cNÚû
(
webs_t
 
wp
);

29 
ch¬_t
 *
websC®cO·que
(
webs_t
 
wp
);

30 
ch¬_t
 *
websC®cDige¡
(
webs_t
 
wp
);

31 
ch¬_t
 *
websC®cU¾Dige¡
(
webs_t
 
wp
);

	@websuemf.c

12 
	~"ejIÁº.h
"

13 
	~"wsIÁº.h
"

21 (*
	mroutše
)(*
	m¬g
, 
	mid
);

22 *
	m¬g
;

23 
time_t
 
	m©
;

24 
	mschedid
;

25 } 
	tsched_t
;

29 
sched_t
 **
	gsched
;

30 
	gschedMax
;

37 
	$sütEv®
(
’gše
, 
ch¬_t
 *
cmd
, ch¬_ˆ**
»suÉ
, * 
chª
)

39 
ejid
;

41 ià(
’gše
 =ð
EMF_SCRIPT_EJSCRIPT
) {

42 
ejid
 = (è
chª
;

48 ià(
	`ejEv®
(
ejid
, 
cmd
, 
»suÉ
) ) {

55 
	}
}

66 
	$¡rcmpci
(
ch¬_t
 *
s1
, ch¬_ˆ*
s2
)

68 
rc
;

70 
	`a_as£¹
(
s1
 && 
s2
);

71 ià(
s1
 =ð
NULL
 || 
s2
 == NULL) {

75 ià(
s1
 =ð
s2
) {

80 
rc
 = 
	`gtÞow”
(*
s1
è- gtÞow”(*
s2
);

81 ià(*
s1
 == '\0') {

84 
s1
++;

85 
s2
++;

86 } 
rc
 == 0);

87  
rc
;

88 
	}
}

95 
	$Tim”Proc
(
schedid
)

97 
sched_t
 *
s
;

99 
	`a_as£¹
(0 <ð
schedid
 && schedid < 
schedMax
);

100 
s
 = 
sched
[
schedid
];

101 
	`a_as£¹
(
s
);

103 (
s
->
routše
)(s->
¬g
, s->
schedid
);

104 
	}
}

112 
	$emfSchedC®lback
(
d–ay
, 
emfSchedProc
 *
´oc
, *
¬g
)

114 
sched_t
 *
s
;

115 
schedid
;

117 ià((
schedid
 = 
	`hAÎocEÁry
((***è&
sched
, &
schedMax
,

118 (
sched_t
))) < 0) {

121 
s
 = 
sched
[
schedid
];

122 
s
->
routše
 = 
´oc
;

123 
s
->
¬g
 =‡rg;

124 
s
->
schedid
 = schedid;

129 
s
->
©
 = ((
d–ay
 + 500è/ 1000è+ 
	`time
(0);

131  
schedid
;

132 
	}
}

139 
	$emfReschedC®lback
(
schedid
, 
d–ay
)

141 
sched_t
 *
s
;

143 ià(
sched
 =ð
NULL
 || 
schedid
 =ð-1 || schedid >ð
schedMax
 ||

144 (
s
 = 
sched
[
schedid
]è=ð
NULL
) {

147 
s
->
©
 = ((
d–ay
 + 500è/ 1000è+ 
	`time
(0);

148 
	}
}

152 
	$emfUnschedC®lback
(
schedid
)

154 
sched_t
 *
s
;

156 ià(
sched
 =ð
NULL
 || 
schedid
 =ð-1 || schedid >ð
schedMax
 ||

157 (
s
 = 
sched
[
schedid
]è=ð
NULL
) {

160 
	`bä“
(
B_L
, 
s
);

161 
schedMax
 = 
	`hF»e
((***è&
sched
, 
schedid
);

162 
	}
}

169 
	$emfSchedProûss
()

171 
sched_t
 *
s
;

172 
schedid
;

173 
Ãxt
 = 0;

178 ià(
schedMax
 <= 0) {

186 ià(
Ãxt
 >ð
schedMax
) {

187 
Ãxt
 = 0;

190 
schedid
 = 
Ãxt
;

192 ià((
s
 = 
sched
[
schedid
]è!ð
NULL
 && ()s->
©
 <ð()
	`time
(0)) {

193 
	`Tim”Proc
(
schedid
);

194 
Ãxt
 = 
schedid
 + 1;

197 ià(++
schedid
 >ð
schedMax
) {

198 
schedid
 = 0;

200 ià(
schedid
 =ð
Ãxt
) {

208 
	}
}

	@wsIntrn.h

10 #iâdeà
_h_WEBS_INTERNAL


11 
	#_h_WEBS_INTERNAL
 1

	)

24 
	~<ùy³.h
>

25 
	~<¡dlib.h
>

26 
	~<¡ršg.h
>

27 
	~<¡d¬g.h
>

29 #ifdeà
NETWARE


30 
	~<fúŽ.h
>

31 
	~<sys/¡©.h
>

32 
	~<sigÇl.h
>

33 
	~<io.h
>

36 #ifdeà
WIN


37 
	~<fúŽ.h
>

38 
	~<sys/¡©.h
>

39 
	~<io.h
>

40 
	#loÿÉime_r
(
A
, 
B
è
	`loÿÉime_s
(B,A)

	)

41 
	~<sh¬e.h
>

42 
	#¢´štf
 
_¢´štf


	)

45 #ifdeà
NW


46 
	~<fúŽ.h
>

47 
	~<sys/¡©.h
>

50 #ifdeà
SCOV5


51 
	~<fúŽ.h
>

52 
	~<sys/¡©.h
>

53 
	~<sigÇl.h
>

54 
	~<uni¡d.h
>

57 #ifdeà
LYNX


58 
	~<fúŽ.h
>

59 
	~<sys/¡©.h
>

60 
	~<sigÇl.h
>

61 
	~<uni¡d.h
>

64 #ifdeà
UNIX


65 
	~<fúŽ.h
>

66 
	~<sys/¡©.h
>

67 
	~<sigÇl.h
>

68 
	~<uni¡d.h
>

71 #ifdeà
QNX4


72 
	~<fúŽ.h
>

73 
	~<sys/¡©.h
>

74 
	~<sigÇl.h
>

75 
	~<uni¡d.h
>

76 
	~<unix.h
>

79 #ifdeà
UW


80 
	~<fúŽ.h
>

81 
	~<sys/¡©.h
>

84 #ifdeà
VXWORKS


85 
	~<vxWÜks.h
>

86 
	~<fúŽ.h
>

87 
	~<sys/¡©.h
>

90 #ifdeà
SOLARIS


91 
	~<maüos.h
>

92 
	~<fúŽ.h
>

93 
	~<sys/¡©.h
>

96 
	~"uemf.h
"

97 
	~"ejIÁº.h
"

98 
	~"webs.h
"

104 
	#WEBS_BEGIN
 0x1

	)

105 
	#WEBS_HEADER
 0x2

	)

106 
	#WEBS_POST
 0x4

	)

107 
	#WEBS_POST_CLEN
 0x8

	)

108 
	#WEBS_PROCESSING
 0x10

	)

109 
	#WEBS_KEEP_TIMEOUT
 15000

	)

110 
	#WEBS_TIMEOUT
 60000

	)

112 
	#PAGE_READ_BUFSIZE
 512

	)

113 
	#MAX_PORT_LEN
 10

	)

114 
	#WEBS_SYM_INIT
 64

	)

121 (*
	mhªdËr
)(
webs_t
 
	mwp
, 
ch¬_t
 *
	mu¾P»fix
, ch¬_ˆ*
	mwebDœ
, 
	m¬g
,

122 
ch¬_t
 *
	mu¾
, ch¬_ˆ*
	m·th
,

123 
ch¬_t
 *
	mqu”y
);

124 
ch¬_t
 *
	mwebDœ
;

125 
ch¬_t
 *
	mu¾P»fix
;

126 
	mËn
;

127 
	m¬g
;

128 
	mæags
;

129 } 
	twebsU¾HªdËrTy³
;

135 
	m”rÜs
;

136 
	m»dœeùs
;

137 
	mÃt_»que¡s
;

138 
	maùiveN‘Reque¡s
;

139 
	maùiveBrow£rReque¡s
;

140 
	mtimeouts
;

141 
	macûss
;

142 
	mloÿlH™s
;

143 
	m»mÙeH™s
;

144 
	mfÜmH™s
;

145 
	mcgiH™s
;

146 
	mhªdËrH™s
;

147 } 
	twebsStsTy³
;

149 
websStsTy³
 
websSts
;

155 
	mcode
;

156 
ch¬_t
 *
	mmsg
;

157 } 
	twebsE¼ÜTy³
;

163 
ch¬_t
 *
	mty³
;

164 
ch¬_t
 *
	mext
;

165 } 
	twebsMimeTy³
;

171 
	msize
;

172 
	misDœ
;

173 
time_t
 
	mmtime
;

174 } 
	twebsStTy³
;

180 
ch¬_t
 *
	m·th
;

181 *
	m·ge
;

182 
	msize
;

183 
	mpos
;

184 } 
	twebsRomPageIndexTy³
;

189 #iâdeà
CE


190 
	#SOCKET_RDONLY
 
O_RDONLY


	)

191 
	#SOCKET_BINARY
 
O_BINARY


	)

193 
	#SOCKET_RDONLY
 0x1

	)

194 
	#SOCKET_BINARY
 0x2

	)

197 
websRomPageIndexTy³
 
websRomPageIndex
[];

198 
websMimeTy³
 
websMimeLi¡
[];

199 
sym_fd_t
 
websMime
;

200 
webs_t
* 
webs
;

201 
websMax
;

202 
ch¬_t
 
websHo¡
[64];

203 
ch¬_t
 
websI·ddr
[64];

204 
ch¬_t
 *
websHo¡U¾
;

205 
ch¬_t
 *
websI·ddrU¾
;

206 
websPÜt
;

210 
websA¥O³n
();

211 
websA¥Clo£
();

212 
websFÜmO³n
();

213 
websFÜmClo£
();

214 
websA¥Wr™e
(
ejid
, 
webs_t
 
wp
, 
¬gc
, 
ch¬_t
 **
¬gv
);

216 
websDeçuÉO³n
();

217 
websDeçuÉClo£
();

218 #ifdeà
WEBS_WHITELIST_SUPPORT


219 
	#WHITELIST_SSL
 0x001

	)

220 
	#WHITELIST_CGI
 0x002

	)

221 
websBuždWh™–i¡
();

222 
websWh™–i¡Check
(*
·th
);

223 
websD–‘eWh™–i¡
();

225 
websDeçuÉHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
,

226 
ch¬_t
 *
webDœ
, 
¬g
, ch¬_ˆ*
u¾
, ch¬_ˆ*
·th
,

227 
ch¬_t
 *
qu”y
);

228 
websFÜmHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
, 
¬g
, ch¬_ˆ*
u¾
, ch¬_ˆ*
·th
, ch¬_ˆ*
qu”y
);

229 
websCgiHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
, ch¬_ˆ*
webDœ
,

230 
¬g
, 
ch¬_t
 *
u¾
, ch¬_ˆ*
·th
, ch¬_ˆ*
qu”y
);

231 
websCgiCËªup
();

232 
websCheckCgiProc
(
hªdË
);

233 
ch¬_t
 *
websG‘CgiCommName
();

235 
websLaunchCgiProc
(
ch¬_t
 *
cgiP©h
, ch¬_ˆ**
¬gp
,

236 
ch¬_t
 **
’vp
, ch¬_ˆ*
¡dIn
, ch¬_ˆ*
¡dOut
);

237 
websO³n
(
sid
);

238 
websRe¥Ú£
(
webs_t
 
wp
, 
code
, 
ch¬_t
 *
msg
,

239 
ch¬_t
 *
»dœeù
);

240 
websJavaSütEv®
(
webs_t
 
wp
, 
ch¬_t
 *
süt
);

241 
websPageR—dD©a
(
webs_t
 
wp
, *
buf
, 
nBy‹s
);

242 
websPageO³n
(
webs_t
 
wp
, 
ch¬_t
 *
Í©h
, ch¬_ˆ*
·th
, 
mode
,

243 
³rm
);

244 
websPageClo£
(
webs_t
 
wp
);

245 
websPageS“k
(
webs_t
 
wp
, 
off£t
);

246 
websPageSt
(
webs_t
 
wp
, 
ch¬_t
 *
Í©h
, ch¬_ˆ*
·th
,

247 
websStTy³
 *
sbuf
);

248 
websPageIsDœeùÜy
(
ch¬_t
 *
Í©h
);

249 
websRomO³n
();

250 
websRomClo£
();

251 
websRomPageO³n
(
webs_t
 
wp
, 
ch¬_t
 *
·th
, 
mode
, 
³rm
);

252 
websRomPageClo£
(
fd
);

253 
websRomPageR—dD©a
(
webs_t
 
wp
, *
buf
, 
Ën
);

254 
websRomPageSt
(
ch¬_t
 *
·th
, 
websStTy³
 *
sbuf
);

255 
websRomPageS“k
(
webs_t
 
wp
, 
off£t
, 
Üigš
);

256 
websS‘Reque¡Sock‘HªdËr
(
webs_t
 
wp
, 
mask
,

257 (*
â
)(
webs_t
 
wp
));

258 
	`websSÞutiÚHªdËr
(
webs_t
 
wp
, 
ch¬_t
 *
u¾P»fix
,

259 
ch¬_t
 *
webDœ
, 
¬g
, ch¬_ˆ*
u¾
, ch¬_ˆ*
·th
,

260 
ch¬_t
 *
qu”y
);

261 
	`websU¾HªdËrClo£
();

262 
	`websU¾HªdËrO³n
();

263 
	`websO³nS”v”
(
pÜt
, 
»Œ›s
);

264 
	`websClo£S”v”
();

265 
ch¬_t
* 
	`websG‘D©eSŒšg
(
websStTy³
* 
sbuf
);

267 
	`¡rcmpci
(
ch¬_t
* 
s1
, ch¬_t* 
s2
);

269 #ifdeà
CE


270 
	`wr™eUniToAsc
(
fid
, *
buf
, 
Ën
);

271 
	`»adAscToUni
(
fid
, **
buf
, 
Ën
);

	@wwwdemo/cgi-bin/cgitest.c

19 
	~<¡dio.h
>

20 
	~<¡ršg.h
>

21 
	~<¡dlib.h
>

22 
	~<time.h
>

33 
	$¡rcmpci
(*
s1
, *
s2
)

35 
rc
;

37 ià(
s1
 =ð
NULL
 || 
s2
 == NULL) {

41 ià(
s1
 =ð
s2
) {

46 
rc
 = 
	`tÞow”
(*
s1
è-Þow”(*
s2
);

47 ià(*
s1
 == '\0') {

50 
s1
++;

51 
s2
++;

52 } 
rc
 == 0);

54  
rc
;

55 
	}
}

63 *
	$gog‘’v
(*
v¬Çme
)

65 *
»suÉ
;

67 ià((
»suÉ
 = 
	`g‘’v
(
v¬Çme
)è=ð
NULL
) {

68 
»suÉ
 = "(NULL)";

70  
»suÉ
;

71 
	}
}

78 
	$x2c
(*
wh©
)

80 
dig™
;

82 
dig™
 = (
wh©
[0] >= 'A' ? ((what[0] & 0xdf) - 'A') + 10 : (what[0] - '0'));

83 
dig™
 *= 16;

84 
dig™
 +ð(
wh©
[1] >= 'A' ? ((what[1] & 0xdf) - 'A') + 10 : (what[1] - '0'));

86  
dig™
;

87 
	}
}

94 
	$uÃsÿ³_u¾
(*
u¾
)

96 
i
,
j
;

98 
i
 = 0, 
j
 = 0; 
u¾
[j]; ++i,++j) {

99 if((
u¾
[
i
] = u¾[
j
]) == '%') {

100 
u¾
[
i
] = 
	`x2c
(&u¾[
j
 + 1]) ;

101 
j
 += 2 ;

105 
u¾
[
i
] = '\0' ;

106 
	}
}

123 **
	$g‘CGIv¬s
()

125 
i
;

126 *
»que¡_m‘hod
, *
cgišput
, *
nv·œ
, *
eqpos
;

127 
cÚ‹Á_Ëngth
, 
·œcouÁ
;

128 **
cgiv¬s
, **
·œli¡
;

134 
»que¡_m‘hod
 = 
	`gog‘’v
("REQUEST_METHOD") ;

136 ià(!
»que¡_m‘hod
) {

137 
»que¡_m‘hod
 = "NOT-CGI";

140 ià(!
	`¡rcmp
(
»que¡_m‘hod
, "GET") || !strcmp(request_method, "HEAD")) {

141 
cgišput
ð
	`¡rdup
(
	`gog‘’v
("QUERY_STRING"));

142 } ià(!
	`¡rcmp
(
»que¡_m‘hod
, "POST")) {

143 ià(
	`¡rcmpci
(
	`gog‘’v
("CONTENT_TYPE"), "application/x-www-form-urlencoded")) {

144 
	`´štf
("getcgivars(): Unsupported Content-Type.\n");

145  
NULL
;

148 ià(!(
cÚ‹Á_Ëngth
 = 
	`©oi
(
	`gog‘’v
("CONTENT_LENGTH")))) {

149 
	`´štf
("getcgivars(): No Content-Length was sent withhe POST„equest.\n");

150  
NULL
;

153 ià(!(
cgišput
 = (*è
	`m®loc
(
cÚ‹Á_Ëngth
 + 1))) {

154 
	`´štf
("getcgivars(): Could‚ot malloc for cgiinput.\n") ;

155  
NULL
;

158 ià(!
	`ä—d
(
cgišput
, 
cÚ‹Á_Ëngth
, 1, 
¡dš
)) {

159 
	`´štf
("Couldn't„ead CGI input from STDIN.\n");

160  
NULL
;

163 
cgišput
[
cÚ‹Á_Ëngth
] = '\0' ;

165 
	`´štf
("getcgivars(): unsupported REQUEST_METHOD\n") ;

166  
NULL
;

172 
i
 = 0; 
cgišput
[i]; i++) {

173 ià(
cgišput
[
i
] == '+') {

174 
cgišput
[
i
] = ' ';

181 
·œli¡
 = (**è
	`m®loc
(256 * (**));

182 
·œcouÁ
 = 0 ;

183 
nv·œ
 = 
	`¡¹ok
(
cgišput
, "&");

185 
nv·œ
) {

186 
·œli¡
[
·œcouÁ
++] = 
	`¡rdup
(
nv·œ
);

187 ià(!(
·œcouÁ
 % 256)) {

188 
·œli¡
ð(**è
	`»®loc
Õaœli¡, (
·œcouÁ
 + 256)

192 
nv·œ
 = 
	`¡¹ok
(
NULL
, "&") ;

198 
·œli¡
[
·œcouÁ
] = 0;

203 
cgiv¬s
 = (**è
	`m®loc
((
·œcouÁ
 * 2 + 1) * (**));

204 
i
 = 0; i < 
·œcouÁ
; i++) {

205 ià(
eqpos
 = 
	`¡rchr
(
·œli¡
[
i
], '=')) {

206 *
eqpos
 = '\0' ;

207 
	`uÃsÿ³_u¾
(
cgiv¬s
[
i
 * 2 + 1] = 
	`¡rdup
(
eqpos
 + 1));

209 
	`uÃsÿ³_u¾
(
cgiv¬s
[
i
 * 2 + 1] = 
	`¡rdup
(""));

211 
	`uÃsÿ³_u¾
(
cgiv¬s
[
i
 * 2] = 
	`¡rdup
(
·œli¡
[i]));

217 
cgiv¬s
[
·œcouÁ
 * 2] = 0;

222 
	`ä“
(
cgišput
);

224 
i
 = 0; 
·œli¡
[i]; i++) {

225 
	`ä“
(
·œli¡
[
i
]);

228 
	`ä“
(
·œli¡
);

233  
cgiv¬s
;

235 
	}
}

242 
	$maš
(
¬gc
, *
¬gv
[])

244 **
pV¬s
;

245 
loÝCouÁ
 = 1000;

246 
time_t
 
£cÚd
;

252 
	`´štf
("Content-type:ext/html\n\n") ;

256 
	`´štf
("<html>\n");

257 
	`´štf
("<head><title>CGI Output</title></head>\n");

258 
	`´štf
("<body>\n");

260 
	`´štf
("<H1>CGI Test Program</H1>\n");

261 
	`´štf
("<P>This…rogram displayshe CGI Enviroment</P>\n");

266 
	`´štf
("<H2>Environment Variables<A NAME=\"env\"></A></H2>\n");

267 
	`´štf
("<P>REQUEST METHOD = %s</P>\n", 
	`gog‘’v
("REQUEST_METHOD"));

268 
	`´štf
("<P>QUERY STRING = %s</P>\n", 
	`gog‘’v
("QUERY_STRING"));

269 
	`´štf
("<P>GATEWAY INTERFACE = %s</P>\n", 
	`gog‘’v
("GATEWAY_INTERFACE"));

270 
	`´štf
("<P>SCRIPT NAME = %s</P>\n", 
	`gog‘’v
("SCRIPT_NAME"));

272 
	`´štf
("<P>PATH TRANSLATED = %s</P>\n", 
	`gog‘’v
("PATH_TRANSLATED"));

273 
	`´štf
("<P>PATH INFO = %s</P>\n", 
	`gog‘’v
("PATH_INFO"));

275 
	`´štf
("<P>HTTP HOST = %s</P>\n", 
	`gog‘’v
("HTTP_HOST"));

276 
	`´štf
("<P>HTTP ACCEPT = %s</P>\n", 
	`gog‘’v
("HTTP_ACCEPT"));

277 
	`´štf
("<P>HTTP CONNECTION = %s</P>\n", 
	`gog‘’v
("HTTP_CONNECTION"));

279 
	`´štf
("<P>REMOTE USER = %s</P>\n", 
	`gog‘’v
("REMOTE_USER"));

280 
	`´štf
("<P>REMOTE HOST = %s</P>\n", 
	`gog‘’v
("REMOTE_HOST"));

281 
	`´štf
("<P>REMOTE ADDR = %s</P>\n", 
	`gog‘’v
("REMOTE_ADDR"));

283 
	`´štf
("<P>SERVER NAME = %s</P>\n", 
	`gog‘’v
("SERVER_NAME"));

284 
	`´štf
("<P>SERVER PORT = %s</P>\n", 
	`gog‘’v
("SERVER_PORT"));

285 
	`´štf
("<P>SERVER HOST = %s</P>\n", 
	`gog‘’v
("SERVER_HOST"));

286 
	`´štf
("<P>SERVER PROTOCOL = %s</P>\n", 
	`gog‘’v
("SERVER_PROTOCOL"));

287 
	`´štf
("<P>SERVER ADDR = %s</P>\n", 
	`gog‘’v
("SERVER_ADDR"));

288 
	`´štf
("<P>SERVER URL = %s</P>\n", 
	`gog‘’v
("SERVER_URL"));

289 
	`´štf
("<P>SERVER SOFTWARE = %s</P>\n", 
	`gog‘’v
("SERVER_SOFTWARE"));

294 
	`´štf
("<H2>Query String Variables<A NAME=\"query\"></A></H2>\n");

295 
pV¬s
 = 
	`g‘CGIv¬s
();

296 ià(
pV¬s
) {

297 *
pV¬s
 && *(pVars + 1)) {

298 
	`´štf
("<p>% ð<b>%s</b></p>\n", *
pV¬s
, *(pVars + 1));

299 
pV¬s
 += 2;

302 
	`´štf
("<P>No query variables found</P>\n");

309 #ifdeà
PRINT_BIG_CHUNK_SLOWLY


310 
	`´štf
("<H2>Large chunk of meaninglessext<A NAME=\"chunk\"></A></H2>\n");

311 
loÝCouÁ
) {

312 
	`´štf
("<p>M—nšgËs lšoà‹xˆnumb” %d.</p>\n", 
loÝCouÁ
);

313 ià((
loÝCouÁ
 % 100) == 0) {

314 
£cÚd
 = 
	`time
(
NULL
);

315 (
	`time
(
NULL
è- 
£cÚd
) < 5) {

318 
loÝCouÁ
--;

322 
	`´štf
("</body>\n");

323 
	`´štf
("</html>\n");

326 
	}
}

	@
1
.
0
57
555
CE/main.c
CE/wincompat.c
CE/wincompat.h
ECOS/main.c
LINUX/main.c
LYNX/main.c
MACOSX/main.c
NW/main.c
QNX4/main.c
VXWORKS/main.c
VXWORKS/vxcgitst.c
WIN/main.c
asp.c
balloc.c
cgi.c
default.c
ej.h
ejIntrn.h
ejlex.c
ejparse.c
emfdb.c
emfdb.h
form.c
h.c
handler.c
matrixSSLSocket.c
matrixSSLSocket.h
md5.h
md5c.c
mime.c
mime64.c
misc.c
page.c
ringq.c
rom.c
security.c
sock.c
sockGen.c
sym.c
uemf.c
uemf.h
um.c
um.h
umui.c
url.c
utils/webcomp.c
value.c
webrom.c
webs.c
webs.h
websSSL.c
websSSL.h
websda.c
websda.h
websuemf.c
wsIntrn.h
wwwdemo/cgi-bin/cgitest.c