no.168.mils

一个内存数据库的源代码这是服务器端还有客户端

# 
# >Number:         168
# >Category:       Module_url
# >Synopsis:       cast url(str) returns nil
# >Confidential:   no
# >Severity:       serious
# >Priority:       medium
# >Responsible:    mk (Martin Kersten)
# >State:          open
# >Class:          sw-bug
# >Submitter-Id:   unknown
# >Arrival-Date:   Thu Aug 13 22:21:00 1998
# >Originator:     [e-mail]
# >Organization:
# CWI
# >Release:        980101
# >Environment:
# any
# >Description:
# cast url(str) returns nil.
# this bug occurs only today, i.e. after the recent checkins by Menzo & Peter.
# so, it's no bug in module url, but somewhere else.
# 
# ========
# test script
# --------
# module(url);
# u:= url("http://www.cwi.nl/~mk/Acoi/index.html");
# u.print();
# u.getHost.print();
# u.getPort.print();
# u.getDomain.print();
# u.getFile.print();
# u.getAnchor.print();
# u.getBasename.print();
# u.getProtocol.print();
# u.getUser.print();
# u.getDirectory.print();
# quit;
# ========
# 
# ========
# output
# --------
# [...]
# module(url);
# u:= url("http://www.cwi.nl/~mk/Acoi/index.html");
# u.print();
# [ nil ]
# u.getHost.print();
# [ nil ]
# u.getPort.print();
# [ nil ]
# u.getDomain.print();
# [ nil ]
# u.getFile.print();
# [ nil ]
# u.getAnchor.print();
# [ nil ]
# u.getBasename.print();
# [ nil ]
# u.getProtocol.print();
# [ nil ]
# u.getUser.print();
# [ nil ]
# u.getDirectory.print();
# ========

setoid(oid(20000000));

module(url);
var u:= url("http://www.cwi.nl/~mk/Acoi/index.html");
u.print();
u.getHost().print();
u.getPort().print();
u.getDomain().print();
u.getFile().print();
u.getAnchor().print();
u.getBasename().print();
u.getProtocol().print();
u.getUser().print();
u.getDirectory().print();

quit();