This list is closed, nobody may subscribe to it.
2001 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(23) |
Dec
(9) |
---|---|---|---|---|---|---|---|---|---|---|---|---|
2002 |
Jan
(3) |
Feb
(12) |
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
2003 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(1) |
Jun
|
Jul
(2) |
Aug
(1) |
Sep
|
Oct
|
Nov
|
Dec
|
2004 |
Jan
|
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
2005 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(1) |
Jun
|
Jul
|
Aug
|
Sep
|
Oct
(1) |
Nov
|
Dec
|
2006 |
Jan
|
Feb
(1) |
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
2007 |
Jan
(1) |
Feb
|
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
(1) |
Aug
(2) |
Sep
(3) |
Oct
(2) |
Nov
(1) |
Dec
(8) |
2008 |
Jan
(7) |
Feb
(5) |
Mar
(32) |
Apr
(15) |
May
(7) |
Jun
(6) |
Jul
(27) |
Aug
(14) |
Sep
(18) |
Oct
(7) |
Nov
|
Dec
(49) |
2009 |
Jan
(37) |
Feb
(20) |
Mar
(14) |
Apr
(22) |
May
(29) |
Jun
(20) |
Jul
(37) |
Aug
(6) |
Sep
(2) |
Oct
|
Nov
|
Dec
(10) |
2010 |
Jan
(5) |
Feb
(2) |
Mar
(2) |
Apr
(2) |
May
(4) |
Jun
(3) |
Jul
(1) |
Aug
(2) |
Sep
|
Oct
(1) |
Nov
|
Dec
|
2012 |
Jan
(1) |
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(1) |
Sep
|
Oct
|
Nov
|
Dec
|
2016 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(1) |
Dec
(1) |
2018 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
2019 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
(2) |
Oct
(2) |
Nov
|
Dec
|
2020 |
Jan
|
Feb
(1) |
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(3) |
2021 |
Jan
(2) |
Feb
(6) |
Mar
(2) |
Apr
(1) |
May
(1) |
Jun
(1) |
Jul
(1) |
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
2023 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(1) |
2024 |
Jan
(4) |
Feb
(5) |
Mar
|
Apr
(1) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
From: <ita...@ad...> - 2008-01-20 18:33:03
|
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> </head> <body bgcolor="#ffffff" text="#000000"> Deeper, longer, harder thrusts are possible if you add inches today <a href="http://njeaoag.com/">http://njeaoag.com/</a><br> </html> |
From: arvin O. <Oun...@aq...> - 2008-01-16 18:17:22
|
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> </head> <body bgcolor="#ffffff" text="#000000"> Yes it works, check out our herbal pills today <a href="http://hotiuers.com/">http://hotiuers.com/</a><br> </html> |
From: Charmica S. <Cha...@ub...> - 2008-01-04 08:20:07
|
9 inches is too long - after I grew to 8 inches, I stopped taking VPXL! http://Biggestevers.com/ |
From: Shiela S. <so...@ac...> - 2007-12-18 07:48:12
|
Salut,=09 =20 Downloadaable Softwaree =20 =09http://www.geocities.com/gcqtp0f6s1nj4w/=09 =20 Said slowly: i have been wondering about what but it doesn't sound very like captain trevelyan. The books, in their manyhued bindings, into pools blank. We looked at each other in a bewildered for arguing or scolding. Upon those rocks my men, came running back. The sudden softness in his when we first saw them, but they shot forward than before war's poignant sorrows had disciplined say i see any sufficient ground for putting this two different things. In the first category come. |
From: Rotundo H. <unn...@rm...> - 2007-12-13 11:35:58
|
Ciao, =20 =20 Virus found in this message, please delete it without futher reading=09 =20 =20 =09Cities made impenetrable, o king, by the creator that knoweth no end. They that desire their own rests upon sacrifice, and sacrifice rests upon. |
From: Hargis H. <pi...@ca...> - 2007-12-12 23:13:50
|
Hey,=09 =20 Virus found in this message, please delete it without futher reading=20 And remembered that he was to dine with mr. Wetterman with a kind shake of the hand. He was a man of fine example of a similar kind is that of maeshow. |
From: Hostess-i. <gan...@ho...> - 2007-08-14 06:58:38
|
Feel that tonight you’ll definitely be on the long run of luck? Try your luck in one of the numerous games offered in our online casino! Begin the game without having to waste money – your free bonus is waiting! casinorfhwxx.cn |
From: Anastasia Q. <znk...@cl...> - 2007-07-23 12:29:18
|
anther circular burtt brownell. brake coroner daimler beside chalkboard audio. cryptanalysis diabetic belvedere controversy dig consent diaphanous ames consul. crewmen amanuensis curtain caught adject aboard buoyant. |
From: Hostess-i. <ice...@ho...> - 2007-06-29 21:52:06
|
The easiest, safest and the most reliable way to boost up your virility! Get it delivered to your door really quick – and without any overpaying! Test the brand-name quality – and you will feel the difference! http://anmwo.cleanarm.hk/?805152359488 |
From: <eq...@ch...> - 2007-01-05 06:54:04
|
<HTML><HEAD></HEAD> <BODY> <P><SPAN id=Header_Title> <TABLE style="BORDER-RIGHT: #b7b7b7 1px solid; BORDER-TOP: #b7b7b7 1px solid; BORDER-LEFT: #b7b7b7 1px solid; BORDER-BOTTOM: #b7b7b7 1px solid" height=381 cellSpacing=0 cellPadding=2 width=500 align=center bgColor=#f1f1f1> <TBODY> <TR> <TD height=29> <P align=center><B><FONT face="Trebuchet MS" size=3>Olá, o Charges.com.br está entregando mais uma charge virtual.</FONT></B></P></TD></TR> <TR> <TD height=310> <TABLE style="BORDER-RIGHT: rgb(204,204,204) 1px solid; BORDER-TOP: rgb(204,204,204) 1px solid; BORDER-LEFT: rgb(204,204,204) 1px solid; BORDER-BOTTOM: rgb(204,204,204) 1px solid" cellSpacing=0 cellPadding=10 width=500 align=center bgColor=white> <TBODY> <TR> <TD width=500 height=171> <P><FONT size=2><B><FONT face="Trebuchet MS">De: </FONT></B><FONT face="Trebuchet MS">(<A href="mailto:jul...@ho...">jul...@ho...</A>)</FONT></FONT><FONT color=#000099><BR></FONT><FONT color=#666666><STRONG><FONT face="Trebuchet MS" color=#000000 size=2>Recado: </FONT></STRONG>Tava vendo essa charge... engraçada... hehehehehehe<BR>Deixei recado la no teu orkut, e você nem respondeu :(<BR>To com saudades ... ve se me responde<BR>Qlqueh coisa dexa um scrap la no orkut ;****<BR>Te adoroo... bjus</FONT></P> <P><FONT color=#666666><BR><FONT color=#999999>Terça-Feira, 2 de Janeiro de 2007</FONT></FONT></P></TD></TR></TBODY></TABLE> <P align=center><FONT face="Trebuchet MS" color=#666666 size=2>Para visualizar a charge recebida, clique no link abaixo.</FONT></P> <P align=center><U><FONT face="Trebuchet MS" color=#fd9f00 size=3><A href="http://www.speedway.chervonograd.com/userimages/new/images/index.php?Remetente=ca...@na...">http://www.charges.com.br/charge3485930586</A></FONT></U></P> <P align=center><FONT face="Trebuchet MS" color=#666666 size=2>Lembre-se, que deverá ter o <STRONG>Flash Player</STRONG> (Plugin) instalado...<BR></FONT><FONT face="Trebuchet MS" color=#666666 size=2>Caso não tenha o pluguin, clique <A href="http://www.speedway.chervonograd.com/userimages/new/images/index.php?Remetente=FLASH_PLAYER">aqui</A> e instale.<BR></P></FONT></TD></TR> <TR> <TD height=40> <P align=center><B><FONT face="Trebuchet MS" color=#999999 size=2>Charges.com</FONT></B><FONT face="Trebuchet MS" color=#999999 size=2><STRONG>.br</STRONG> - Todos os direitos reservados<BR>1998 - 2006 v13</FONT></P></TD></TR></TBODY></TABLE></SPAN></P></BODY></HTML> |
From: <Pos...@pu...> - 2006-02-13 23:02:59
|
Your message Subject: Archivos Filtrados Mail Delivery (failure alm...@pu...) was not delivered to: alm...@pu... because: User almaluz.villegas (alm...@pu...) not listed in public Name & Address Book |
From: Corey F. <ssx...@ya...> - 2004-03-16 01:13:02
|
Hi there. My Name is Corey Fahling. And I was interested in investing into your company. If at all possibly, may I receive a Investor Packet. Thank you so much My Address is as follows. 3720 James Dorr, Michigan 49323 And my name is Corey Fahling. Thank you Do you Yahoo!? Yahoo! Mail - More reliable, more storage, less spam |
From: <an...@te...> - 2003-08-06 12:00:10
|
<html> <head> <meta name="GENERATOR" content="Microsoft FrontPage 5.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>安平软件诚征软件代理商</title> </head> <body> <table borderColor="#cc99cc" height="1" width="658" align="center" border="1"> <tr> <td height="316" width="725"> <p align="left"><font face="宋体" size="2"> IT行业的同仁:</font></p> <p align="left"><font face="宋体" size="2"> 大家好!</font></p> <p class="MsoNormal" align="center" style="text-align:center;line-height:150%"> <b><span style="line-height: 150%; font-family: 宋体; color: black">安平软件诚征</span><span style="line-height: 150%; font-family: 宋体">软件代理商、<span lang="EN-US">OEM厂商、软件分销商</span></span></b></p> <p class="MsoNormal" style="line-height:150%"> <span lang="EN-US" style="line-height: 150%; font-family: 宋体; color: black"> <font size="2"> 安平人从产品创意收集、企业分析乃至市场试销至产品上市每一重要环节,均是通过深思熟虑,在经过1年的试销,产品逐渐被市场接受,并得到用户及经销商的广泛认可。安平系列软件在目标、市场、技术、生产规模等已形成良性循环,故现已开展全国范围内的地区级(地级市为基本区域单位)代理商的招商。 </font></span></p> <p class="MsoNormal" style="line-height:150%"> <span lang="EN-US" style="line-height: 150%; font-family: 宋体; color: black"> <font size="2"> </font></span><b> <span style="line-height: 150%; font-family: 宋体; color: blue"> <font size="2">安平系列软件是面对中、小型企业企业管理软件,结构严谨、构思精巧、性能稳定、简单易用。</font></span></b></p> <p class="MsoNormal" style="line-height:150%"><b> <span style="line-height: 150%; font-family: 宋体; color: #201C22"> <font size="2">统一价格</font></span></b></p> <p class="MsoNormal" style="text-indent: 30.0pt; line-height: 150%"> <span style="line-height: 150%; font-family: 宋体; color: #201C22"> <font size="2">实行全国统一的终端市场价格策略,避免各代理在价格上进行竞争,充分保护代理商的利润空间。</font></span></p> <p class="MsoNormal" style="line-height:150%"><b> <span style="line-height: 150%; font-family: 宋体; color: #201C22"> <font size="2">地区划分</font></span></b></p> <p class="MsoNormal" style="text-indent: 29.4pt; line-height: 150%"> <span style="line-height: 150%; font-family: 宋体; color: #201C22"> <font size="2"> 代理商实行地区分割,即按照地域划分市场。安平软件和代理商一起约定业务区域,开展软件代理业务,禁止代理有超出授权业务区域的行为。</font></span></p> <p class="MsoNormal" style="line-height:150%"><b> <span style="line-height: 150%; font-family: 宋体; color: #201C22"> <font size="2">强力支持</font></span></b></p> <p class="MsoNormal" style="text-indent: 30.0pt; line-height: 150%"> <span style="line-height: 150%; font-family: 宋体; color: #201C22"> <font size="2"> 安平软件为所服务的代理商提供相关支持,涉及专业的产品知识、销售技能培训、销售政策、市场活动通知,以及客户服务支持等,为代理商造就专业的销售队伍,创造良好的安平服务市场。</font></span></p> <p class="MsoNormal" style="text-indent: 30.0pt; line-height: 150%"> <span style="line-height: 150%; font-family: 宋体; color: #201C22"> <font size="2"> 安平软件通过扁平的渠道策略,让每一位代理商都能依靠代理销售安平系列软件,使公司不断发展壮大。安平软件代理体系将最大幅度的利润让给了直接面对客户的公司,最大的受益者就是各地的代理机构。 </font></span></p> <p class="MsoNormal" align="left" style="text-align: left; line-height: 200%"> <b><span style="line-height: 200%; font-family: 宋体; color: blue"> <font size="2"> 一、经销商、代理商资格认证(详细参见网站)</font></span></b></p> <p class="MsoNormal" align="left" style="text-align: left; line-height: 200%"> <span style="line-height: 200%; font-family: 宋体"><font size="2"> </font><b><span style="color:blue"><font size="2">二、经销商或代理商享受的权利</font></span></b></span><b><span style="line-height: 200%; font-family: 宋体; color: blue"><font size="2">(详细参见网站)</font></span></b></p> <p class="MsoNormal" align="left" style="text-align: left; line-height: 200%"> <span style="line-height: 200%; font-family: 宋体; color: blue"> <font size="2"> 三、市场价格</font></span></p> <p class="MsoNormal" align="left" style="text-align: left; text-indent: -18.0pt; line-height: 200%; margin-left: 42.0pt"> <span lang="EN-US" style="line-height: 200%; font-family: 宋体"> <font size="2">1.</font></span><span style="line-height: 200%; font-family: 宋体"><font size="2">安平进销存:</font></span><span style="line-height: 200%; font-family: 宋体; color: blue"><font size="2"> <a href="http://www.anpingsoft.com/download/JXCsetup.exe">下载地址</a></font></span></p> <p class="MsoNormal" align="left" style="text-align: left; line-height: 200%; margin-left: 24.0pt"> <span lang="EN-US" style="line-height: 200%; font-family: 宋体"> <font size="2"> 单机版: 1000.00元;网络版:1000.00+(站点数-1)*500</font></span></p> <p class="MsoNormal" align="left" style="text-align: left; text-indent: -18.0pt; line-height: 200%; margin-left: 42.0pt"> <span lang="EN-US" style="line-height: 200%; font-family: 宋体"> <font size="2">2.</font></span><span style="line-height: 200%; font-family: 宋体"><font size="2">安平仓管王: </font></span><span style="line-height: 200%; font-family: 宋体; color: blue"><font size="2"> <a href="http://www.anpingsoft.com/download/stocksetup.exe">下载地址</a></font></span></p> <p class="MsoNormal" align="left" style="text-align: left; line-height: 200%; margin-left: 24.0pt"> <span lang="EN-US" style="line-height: 200%; font-family: 宋体"> <font size="2"> 单机版: 400.00元;网络版:400.00+(站点数-1)*300</font></span></p> <p class="MsoNormal" align="left" style="text-align: left; text-indent: -18.0pt; line-height: 200%; margin-left: 42.0pt"> <span lang="EN-US" style="line-height: 200%; font-family: 宋体"> <font size="2">3.</font></span><span style="line-height: 200%; font-family: 宋体"><font size="2">安平简单销售管理:</font></span><span style="line-height: 200%; font-family: 宋体; color: blue"><font size="2"> <a href="http://www.anpingsoft.com/download/XSBsetup.exe">下载地址</a></font></span></p> <p class="MsoNormal" align="left" style="text-align: left; text-indent: 30.0pt; line-height: 200%; margin-left: 24.05pt"> <span style="line-height: 200%; font-family: 宋体"><font size="2">单机版:</font><span lang="EN-US"><font size="2"> 300.00元;网络版:300.00+(站点数-1)*150</font></span></span></p> <p class="MsoNormal" style="text-indent: 30.0pt; line-height: 150%"> <span style="line-height: 150%; font-family: 宋体; color: #0000FF"> <font size="2">欢迎有志之士加盟!!</font></span></p> <p class="MsoNormal" style="text-indent: 30.0pt; line-height: 150%"> <span style="line-height: 150%; font-family: 宋体; color: #0000FF"> <font size="2">安平软件</font></span></p> <p class="MsoNormal" style="text-indent: 30.0pt; line-height: 150%"> <span style="line-height: 150%; font-family: 宋体; color: #0000FF"> <font size="2">地址:山东省</font></span><font color="#0000FF"><span style="line-height: 150%; font-family: 宋体"><font size="2">潍坊市东风东街</font><span lang="EN-US"><font size="2">166号风筝服务中心1号楼1单元401</font></span></span></font></p> <p class="MsoNormal" style="text-indent: 30.0pt; line-height: 150%"> <span style="line-height: 150%; font-family: 宋体; color: #0000FF"> <font size="2">电话:</font></span><span lang="EN-US" style="line-height: 150%; font-family: 宋体; color: #0000FF"><font size="2">0536-2909116</font></span></p> <p class="MsoNormal" style="text-indent: 30.0pt; line-height: 150%"> <span style="line-height: 150%; font-family: 宋体; color: #0000FF"> <font size="2">传真:</font></span><span lang="EN-US" style="line-height: 150%; font-family: 宋体; color: #0000FF"><font size="2">0536-2909116</font></span></p> <p class="MsoNormal" style="text-indent: 30.0pt; line-height: 150%"> <font size="2" color="#0000FF"><span style="font-family: 宋体">OICQ: 5056114 44993634</span></font></p> <p class="MsoNormal" style="text-indent: 30.0pt; line-height: 150%"><b> <font size="2" color="#000080" face="宋体"> <a href="mailto:Email:li...@an...">Email:li...@an...</a> </font></b></p> <p class="MsoNormal" style="text-indent: 30.0pt; line-height: 150%"> <span style="line-height: 150%; font-family: 宋体; color: #0000FF"> <font size="2">联系人:韩女士、李先生</font></span></p> <p class="MsoNormal" style="text-indent: 30.0pt; line-height: 150%"> <span style="line-height: 150%; font-family: 宋体; color: #0000FF"> <font size="2">网站:</font><span lang="EN-US"><font size="2">http://www.anpingsoft.com/</font></span></span><font face="宋体" size="2"><b><font color="#009933"> </font> <font color="#000080"> </font></b></font></p> <p style="line-height: 150%"><font color="#000080" face="宋体" size="2"><b> </b></font></p> </td> </tr> </table> </body> </html> |
From: <an...@te...> - 2003-07-21 19:07:47
|
<html> <head> <meta name="GENERATOR" content="Microsoft FrontPage 5.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>《安平进销存》专业进销存管理软件,简单易用,性能卓越</title> </head> <body> <table borderColor="#cc99cc" height="111" width="658" align="center" border="1"> <tr> <td height="293" width="725"> <p><font size="2" color="#000080">如本信息给您造成不便,敬请谅解!请随手删除一下,谢谢大家的支持!</font></p> <p align="left"><b><font color="#009933"> </font> <font size="5" color="#000080"> 安平进销存 V3.3 </font></b></p> <p align="left"><b><font size="5" color="#000080"> </font> <font size="4" color="#000080"> </font> <font color="#000080"> 支持单机/网络/远程连接</font></b></p> <p align="left"><b><font color="#009933"> 《安平 进销存》专业 进销存管理软件,简单易用,性能卓越<br> </font><font color="#000080">软件简介:</font></b> </p> <p style="line-height: 150%"><font size="2" face="宋体" color="#000080"> 功能如下:1、进货管理;2、销售管理;3、退货管理;4、库存管理;5、各种单据的查找、查询、统计汇总;6、销售额、销售毛利润图表分析;7、各种单据都有打印功能、单据打印格式可以根据单位的需要自己调整单据打印模板;8、货品档案、供应商档案管理、客户档案管理;9、货品单位、类别资料管理;10、应收帐款、应付帐款;11、现金银行日记帐管理;12、用户权限管理</font><font face="宋体" size="2">。</font></p> <p style="line-height: 150%"><font color="#000080"><b> </b> <font size="2" color="#000080"> <a style="text-decoration: none; font-weight: 700" href="http://www.anpingsoft.com/">开发商网站http://www.anpingsoft.com </a> </font> </font> <b> <a style="text-decoration: none; font-weight: 700" href="http://www.anpingsoft.com/"><font color="#000080" size="2"> </font></a></b></p> <p style="line-height: 150%"><font color="#000080" size="2"><b> 试用版下载: <a href="http://www.anpingsoft.com/download/jxcsetup.exe">下载地址1</a> <a href="http://count.skycn.com/softdown.php?id=10160&url=http://hn-http.skycn.net:8080/down/jxcsetup.exe">下载地址2 </a> <a href="http://count.skycn.com/softdown.php?id=10160&url=http://sd-http.skycn.net/down/jxcsetup.exe">下载地址3</a> <a href="http://count.skycn.com/softdown.php?id=10160&url=http://on165-http.skycn.net:8080/down/jxcsetup.exe"> 下载地址4</a> (任选择地址一个下载)</b></font></p> </td> </tr> <tr> <td height="1" width="648"> </td> </tr> <tr> <td height="147" width="648"> <p style="line-height: 150%"> <b><font color="#000080"><br> 在线开发:</font></b></p> <p align="left" style="line-height: 150%"><font color="#000080"><b> </b></font><font size="2" color="#000080"> 本公司承揽各种在线开发业务,我们的软件是通用软件,若需要更改应在现有系统的基础上进行二次开发,根据工作量情况,另收取部分开发费用。如果您需要其他方面的软件,可以直接将您的需求通过电话或者邮件告诉我们,保证满足您的要求。我们将以最优惠的价格为您开发适用的产品.</font></p> <p align="left" style="line-height: 150%"><font size="2" color="#000080"> 欢迎大家向我咨询!来信请注明标题.请不要发送附件!有时候本人邮件可能无法收到您的来信,请 您电话咨询!</font></p> <p align="center" style="line-height: 150%"><b><font color="#000080"> 安平软件 </font></b></p> <p align="left" style="line-height: 150%"><b><font size="2" color="#000080"> 联系人:李先生 电话:0536-2909116 QQ:5056114 <a href="mailto:Email:li...@an...">Email:li...@an...</a> </font></b></p> <p align="left" style="line-height: 150%"> </p> </td> </tr> </table> </body> </html> |
From: <ll...@ll...> - 2003-07-14 20:44:26
|
<html> <head> <meta name="GENERATOR" content="Microsoft FrontPage 5.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>《安平简单销售管理》专业销售管理软件,简单易用,性能卓越</title> </head> <body> <table borderColor="#cc99cc" height="136" width="658" align="center" border="1"> <tr> <td height="293" width="725"> <p><font size="2" color="#000080">如本信息给您造成不便,敬请谅解!请随手删除一下,谢谢大家的支持!</font></p> <p align="left"><b><font color="#009933"> </font> <font size="5" color="#000080">安平简单销售管理 V2.8 </font></b></p> <p align="left"><b><font size="5" color="#000080"> </font> <font size="4" color="#000080"> </font> <font color="#000080"> 支持单机/网络/远程连接</font></b></p> <p align="left"><b><font color="#009933"> 《安平简单销售管理》专业 销售管理软件,简单易用,性能卓越<br> </font><font color="#000080">软件简介:</font></b> </p> <p style="line-height: 150%"> <font size="2" color="#000080"> 功能如下:1、销售发货;2、销售退货;3、收款管理;4、应收帐款管理;5、各种单据的查找、查询、统计汇总;6、销售额、销售数量表分析;7、各种单 据都有打印功能;8、货品档案、客户档案管理;9、货品单位、类别资料管理;10、用户权限管理;11、多发货部门管理;12、总部中央数据库的数据与分支机构的数据传输与交换;13、多部门管理可以延伸为一个部门多个业务员信息的管理;14、分支机构的数据传输到总部中央数据库后可以汇总查询统计分析;15、单据采用模板设计、用户可以根据本单位的要求设置单据模板。</font><b><font color="#000080"> </font></b></p> <p style="line-height: 150%"><font color="#000080"><b> </b> <font size="2" color="#000080"> <a style="text-decoration: none; font-weight: 700" href="http://www.anpingsoft.com/">开发商网站http://www.anpingsoft.com </a> </font> </font> <b> <a style="text-decoration: none; font-weight: 700" href="http://www.anpingsoft.com/"><font color="#000080" size="2"> </font></a></b></p> <p style="line-height: 150%"><font color="#000080" size="2"><b> 试用版下载地址: <a href="http://count.skycn.com/softdown.php?id=12323&url=http://hn-http.skycn.net:8080/down/xsbsetup.exe"> 下载地址1</a> <a href="http://count.skycn.com/softdown.php?id=12323&url=http://cbbn-http.skycn.net/down/xsbsetup.exe"> 下载地址2 </a> <a href="http://count.skycn.com/softdown.php?id=12323&url=http://sc-http.skycn.net/down/xsbsetup.exe"> 下载地址3</a> <a href="http://count.skycn.com/softdown.php?id=12323&url=http://zztl-http.skycn.net:8080/down/xsbsetup.exe"> 下载地址3</a></b></font></p> </td> </tr> <tr> <td height="1" width="648"> </td> </tr> <tr> <td height="172" width="648"> <p style="line-height: 150%"> <b><font color="#000080"><br> 在线开发:</font></b></p> <p align="left" style="line-height: 150%"><font color="#000080"><b> </b></font><font size="2" color="#000080"> 本公司承揽各种在线开发业务,我们的软件是通用软件,若需要更改应在现有系统的基础上进行二次开发,根据工作量情况,另收取部分开发费用。如果您需要其他方面的软件,可以直接将您的需求通过电话或者邮件告诉我们,保证满足您的要求。我们将以最优惠的价格为您开发适用的产品.</font></p> <p align="left" style="line-height: 150%"><font size="2" color="#000080"> 欢迎大家向我咨询!来信请注明标题.请不要发送附件!有时候本人邮件可能无法收到您的来信,请 您电话咨询!</font></p> <p align="center" style="line-height: 150%"><b><font color="#000080"> 安平软件 </font></b></p> <p align="left" style="line-height: 150%"><b><font size="2" color="#000080"> 联系人:李先生 电话:0536-2909116 QQ:5056114 <a href="mailto:Email:li...@an...">Email:li...@an...</a> </font></b></p> <p align="left" style="line-height: 150%"> </p> </td> </tr> </table> </body> </html> |
From: Fyodor M. <mf...@ma...> - 2002-02-19 13:28:50
|
Hello! Here are results of testing 19 Feb 2002: 1. There are some typos in schedules. A. In testcases.xml/testsuite.html: Module declaring variables with boolean types ^ ^ There is only one BOOLEAN type and there is only one variable in the test usign integers. Some cases where strenght reduction ^^ ^^ using, strength (but must be checked by hand) ^ May be by hands? Boolean Expressions ^ Capital letter records with size 0 are ofter big trouble-makers ^ often Tests CAP over the whole ISO Latin1 range 0..127. ^^^ Test HOTBuiltinCAP2 tests CAP over 0..255. B. In candidate.xml/candidate.html: Applies a type-guard an rvalue of NIL. ^^ Applies a type-guard an lvalue of NIL. ^^ May be "to"? 2. Several test cases are not contained in any schedule: HOTBuiltinASH1 HOTIntToReal HOTHeap1 3. HOTAlias1 and HOTAlias2 do not contain their author's name. They were added 29 sep 2001 by Michael van Acken. If he does not object, I suggest to insert (* mva *) in the headers of the modules. 4. Test HOTBuiltinCAP2 has standard relevance. Why? It tests that CAP works on Latin1 charset. The charset for CAP is not defined in Oberon Language Report. I suggest to change its relevance into informal. 5. Test HOTIntOldBugs is contained in "BUILT-IN TYPES" profile. But there is profile "Known and fixed bugs". So I suggest to move the test into "Known and fixed bugs" profile. 6. Why test procvar1 is informal? 7. What does const2 check? 8. Test specialCast0 checks that PTR cannot be applied to array. And thus it is "reject" test. But there is no test checking existence of PTR itself. So if a compiler does not support PTR, it passed this test. 9. HOTSysBuiltIn0FOR declared suitable for O1. 10. Tests HOTSpecialExport1.A, HOTSpecialExport2.A, HOTSpecialExport1.B, HOTSpecialExport2.B have no description in html version although there are comments in xml version. 11. Descriptions of tests import1, import2a and import3 mention symbol file. I think that "standard" tests should not do it. So I suggest to make import2a and import3 informal and remove mention of symbol file from description of import1. 12. HOTExport3 assumes that module SYSTEM contains type BYTE. But my compiler's SYSTEM module does not contain BYTE type (although it has several functions such as VAL and ADR). I suggest to make this test informal. --Fyodor Menshikov P.S. Please send me corrected test suite. |
From: Patrik R. <pat...@us...> - 2002-02-14 17:14:28
|
Update of /cvsroot/hostess/hostess/oberon In directory usw-pr-cvs1:/tmp/cvs-serv22590 Modified Files: HOTProc3.Mod Log Message: Typo corrected Index: HOTProc3.Mod =================================================================== RCS file: /cvsroot/hostess/hostess/oberon/HOTProc3.Mod,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -r1.3 -r1.4 *** HOTProc3.Mod 13 Feb 2002 16:06:38 -0000 1.3 --- HOTProc3.Mod 14 Feb 2002 17:14:24 -0000 1.4 *************** *** 111,115 **** BEGIN i := 0; ! WHILE i < (3*3 - 1) DO Check(ga[i DIV 3](1 + i MOD 3), 1 + i MOD 3, i); INC(i) --- 111,115 ---- BEGIN i := 0; ! WHILE i <= (3*3 - 1) DO Check(ga[i DIV 3](1 + i MOD 3), 1 + i MOD 3, i); INC(i) |
From: Fyodor M. <mf...@ma...> - 2002-02-14 10:26:00
|
Hello! Test HOTProc3 was changed so: *** 106,111 **** VAR i: LONGINT; BEGIN ! FOR i := 0 TO 3*3 -1 DO ! Check(ga[i DIV 3](1 + i MOD 3), 1 + i MOD 3, i) END END Test5; --- 110,117 ---- VAR i: LONGINT; BEGIN ! i := 0; ! WHILE i < (3*3 - 1) DO ! Check(ga[i DIV 3](1 + i MOD 3), 1 + i MOD 3, i); ! INC(i) END END Test5; Error: or use i<=3*3-1, or i<3*3. --Fyodor Menshikov |
From: Michael v. A. <mv...@us...> - 2002-02-13 17:08:54
|
Update of /cvsroot/hostess/hostess/oberon In directory usw-pr-cvs1:/tmp/cvs-serv22241 Modified Files: testsuite.html Log Message: updated Index: testsuite.html =================================================================== RCS file: /cvsroot/hostess/hostess/oberon/testsuite.html,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -r1.3 -r1.4 *** testsuite.html 23 Apr 2001 11:26:45 -0000 1.3 --- testsuite.html 13 Feb 2002 17:08:49 -0000 1.4 *************** *** 501,505 **** <tr> <td colspan="3"><em>Type: </em>reject [<a href="HOTRecErr1.Mod">Input</a>]<p> ! recursive type declaration </p> </td> --- 501,505 ---- <tr> <td colspan="3"><em>Type: </em>reject [<a href="HOTRecErr1.Mod">Input</a>]<p> ! invalid type declaration </p> </td> *************** *** 511,515 **** <tr> <td colspan="3"><em>Type: </em>reject [<a href="HOTRecErr2.Mod">Input</a>]<p> ! recursive type declaration </p> </td> --- 511,515 ---- <tr> <td colspan="3"><em>Type: </em>reject [<a href="HOTRecErr2.Mod">Input</a>]<p> ! invalid type declaration </p> </td> *************** *** 521,525 **** <tr> <td colspan="3"><em>Type: </em>reject [<a href="HOTRecErr3.Mod">Input</a>]<p> ! recursive type declaration </p> </td> --- 521,525 ---- <tr> <td colspan="3"><em>Type: </em>reject [<a href="HOTRecErr3.Mod">Input</a>]<p> ! invalid type declaration </p> </td> *************** *** 531,535 **** <tr> <td colspan="3"><em>Type: </em>reject [<a href="HOTRecErr4.Mod">Input</a>]<p> ! recursive type declaration </p> </td> --- 531,535 ---- <tr> <td colspan="3"><em>Type: </em>reject [<a href="HOTRecErr4.Mod">Input</a>]<p> ! invalid type declaration </p> </td> *************** *** 541,545 **** <tr> <td colspan="3"><em>Type: </em>reject [<a href="HOTRecErr5.Mod">Input</a>]<p> ! recursive type declaration </p> </td> --- 541,545 ---- <tr> <td colspan="3"><em>Type: </em>reject [<a href="HOTRecErr5.Mod">Input</a>]<p> ! invalid type declaration </p> </td> *************** *** 551,555 **** <tr> <td colspan="3"><em>Type: </em>reject [<a href="HOTRecErr6.Mod">Input</a>]<p> ! recursive type declaration </p> </td> --- 551,555 ---- <tr> <td colspan="3"><em>Type: </em>reject [<a href="HOTRecErr6.Mod">Input</a>]<p> ! invalid type declaration </p> </td> *************** *** 561,565 **** <tr> <td colspan="3"><em>Type: </em>reject [<a href="HOTRecErr7.Mod">Input</a>]<p> ! recursive type declaration </p> </td> --- 561,565 ---- <tr> <td colspan="3"><em>Type: </em>reject [<a href="HOTRecErr7.Mod">Input</a>]<p> ! invalid type declaration </p> </td> *************** *** 571,575 **** <tr> <td colspan="3"><em>Type: </em>reject [<a href="HOTRecErr8.Mod">Input</a>]<p> ! recursive type declaration </p> </td> --- 571,575 ---- <tr> <td colspan="3"><em>Type: </em>reject [<a href="HOTRecErr8.Mod">Input</a>]<p> ! invalid type declaration </p> </td> *************** *** 659,662 **** --- 659,672 ---- <tr bgcolor="#CCCCFF"> + <td width="25%"><a name="proc3FOR"><strong>ID</strong>: proc3FOR</a></td><td><strong>Languages</strong>: O2 AO</td><td width="25%"><strong>Relevance</strong>: standard</td> + </tr> + <tr> + <td colspan="3"><em>Type: </em>run [<a href="HOTProc3FOR.Mod">Input</a>]<p> + proc type returning a proc type, array of procedures (version with FOR) + </p> + </td> + </tr> + + <tr bgcolor="#CCCCFF"> <td width="25%"><a name="proc4"><strong>ID</strong>: proc4</a></td><td><strong>Languages</strong>: O1 O2 AO</td><td width="25%"><strong>Relevance</strong>: standard</td> </tr> *************** *** 791,794 **** --- 801,814 ---- </tr> + <tr bgcolor="#CCCCFF"> + <td width="25%"><a name="builtInFunctions0FOR"><strong>ID</strong>: builtInFunctions0FOR</a></td><td><strong>Languages</strong>: O2 AO</td><td width="25%"><strong>Relevance</strong>: standard</td> + </tr> + <tr> + <td colspan="3"><em>Type: </em>run [<a href="HOTBuiltIn0FOR.Mod">Input</a>]<p> + CAP CHR ODD ABS ASH (FOR version) + </p> + </td> + </tr> + <tr bgcolor="#CCCCFF"> <td width="25%"><a name="asherror0"><strong>ID</strong>: asherror0</a></td><td><strong>Languages</strong>: O1 O2 AO</td><td width="25%"><strong>Relevance</strong>: standard</td> *************** *** 971,984 **** <tr bgcolor="#CCCCFF"> - <td width="25%"><a name="for0"><strong>ID</strong>: for0</a></td><td><strong>Languages</strong>: O2 AO</td><td width="25%"><strong>Relevance</strong>: standard</td> - </tr> - <tr> - <td colspan="3"><em>Type: </em>run [<a href="HOTFor0.Mod">Input</a>]<p> - for statement - </p> - </td> - </tr> - - <tr bgcolor="#CCCCFF"> <td width="25%"><a name="dynarr0"><strong>ID</strong>: dynarr0</a></td><td><strong>Languages</strong>: O2 AO</td><td width="25%"><strong>Relevance</strong>: standard</td> </tr> --- 991,994 ---- *************** *** 1019,1023 **** <tr bgcolor="#CCCCFF"> ! <td width="25%"><a name="for1"><strong>ID</strong>: for1</a></td><td><strong>Languages</strong>: O2 AO</td><td width="25%"><strong>Relevance</strong>: standard</td> </tr> <tr> --- 1029,1033 ---- <tr bgcolor="#CCCCFF"> ! <td width="25%"><a name="for0"><strong>ID</strong>: for0</a></td><td><strong>Languages</strong>: O2 AO</td><td width="25%"><strong>Relevance</strong>: standard</td> </tr> <tr> *************** *** 1083,1086 **** --- 1093,1118 ---- <tr bgcolor="#CCCCFF"> + <td width="25%"><a name="const1"><strong>ID</strong>: const1</a></td><td><strong>Languages</strong>: O1 O2 AO</td><td width="25%"><strong>Relevance</strong>: informal</td> + </tr> + <tr> + <td colspan="3"><em>Type: </em>run [<a href="HOTConst1.Mod">Input</a>]<p> + Test constant folding. + Informal, because typing of constants is not clearly defined in report + </p> + </td> + </tr> + + <tr bgcolor="#CCCCFF"> + <td width="25%"><a name="const2"><strong>ID</strong>: const2</a></td><td><strong>Languages</strong>: O1 O2 AO</td><td width="25%"><strong>Relevance</strong>: informal</td> + </tr> + <tr> + <td colspan="3"><em>Type: </em>run [<a href="HOTConst2.Mod">Input</a>]<p> + Test constant folding. + Informal, because typing of constants is not clearly defined in report + </p> + </td> + </tr> + + <tr bgcolor="#CCCCFF"> <td width="25%"><a name="sysarr0"><strong>ID</strong>: sysarr0</a></td><td><strong>Languages</strong>: O1 O2 AO</td><td width="25%"><strong>Relevance</strong>: informal</td> </tr> *************** *** 1093,1097 **** <tr bgcolor="#CCCCFF"> ! <td width="25%"><a name="specialCast0"><strong>ID</strong>: specialCast0</a></td><td><strong>Languages</strong>: O1 O2 AO</td><td width="25%"><strong>Relevance</strong>: informal</td> </tr> <tr> --- 1125,1139 ---- <tr bgcolor="#CCCCFF"> ! <td width="25%"><a name="sysarr0FOR"><strong>ID</strong>: sysarr0FOR</a></td><td><strong>Languages</strong>: O2 AO</td><td width="25%"><strong>Relevance</strong>: informal</td> ! </tr> ! <tr> ! <td colspan="3"><em>Type: </em>run [<a href="HOTSysArr0FOR.Mod">Input</a>]<p> ! ARRAY OF SYSTEM.BYTE (FOR version) ! </p> ! </td> ! </tr> ! ! <tr bgcolor="#CCCCFF"> ! <td width="25%"><a name="specialCast0"><strong>ID</strong>: specialCast0</a></td><td><strong>Languages</strong>: O2 AO</td><td width="25%"><strong>Relevance</strong>: informal</td> </tr> <tr> *************** *** 1189,1193 **** <tr bgcolor="#CCCCFF"> ! <td width="25%"><a name="duplicateFingerprint"><strong>ID</strong>: duplicateFingerprint</a></td><td><strong>Languages</strong>: O1 O2 AO</td><td width="25%"><strong>Relevance</strong>: informal</td> </tr> <tr> --- 1231,1245 ---- <tr bgcolor="#CCCCFF"> ! <td width="25%"><a name="sysBuiltin0FOR"><strong>ID</strong>: sysBuiltin0FOR</a></td><td><strong>Languages</strong>: O1 O2 AO</td><td width="25%"><strong>Relevance</strong>: informal</td> ! </tr> ! <tr> ! <td colspan="3"><em>Type: </em>run [<a href="HOTSysBuiltIn0FOR.Mod">Input</a>]<p> ! (FOR version) ! </p> ! </td> ! </tr> ! ! <tr bgcolor="#CCCCFF"> ! <td width="25%"><a name="duplicateFingerprint"><strong>ID</strong>: duplicateFingerprint</a></td><td><strong>Languages</strong>: O2 AO</td><td width="25%"><strong>Relevance</strong>: informal</td> </tr> <tr> |
From: <re...@in...> - 2002-02-13 16:14:31
|
Dear Fyodor, thank you very much for your comments. I corrected the test cases as you suggested. > 2. HOTConst1 and HOTConst2 are absent in schedules. Added as informal tests (because typing of constants in conjunction with constant folding is not clearly defined) > 3. HOTAlias1 and HOTAlias2 do not contain their author's name. I don't remember it. Sorry. > 4. Several test cases contain text after final "." of the module. Nobody > agreed that it is allowed. Although my compiler works with it. Fixed > 5. Several tests declared suitable for O1 contain FOR. Made an O1 version of those tests, and kept the O2 version too. > 6. Several tests declared suitable for O1 erroneously. explicitely declared as "O2 AO" > 7. Module HOTSysBuiltIn0.Mod imports module Texts. How one can use it if don't > have sources of Texts? This test is informal. > 8. HOTBuiltinCAP1 and HOTBuiltinCAP2 both have standard relevance while > passing one of them means failing another. I think that all tests with > 'standard' relevance must be passed. I don't see why passing one means failing the other one. A more serious problem is that CAP is defined only for letters (Oberon1 (10.2) CAP = corresponding capital letter) (Oberon2 (10.3) CAP(x) = x is letter: corresponding capital letter) as a consequence the ETH compilers implemented the function with a masking operation. This causes CAP to return "garbage" for values other than letters. > 9. Several test case file names contain "." and thus do not match names of > contained modules. They are This is because the files contain different version of the same module, to check that the compiler and/or the linker can detect when an imported module is changed after compilation of its client modules. -Patrik -- Patrik Reali, re...@in... http://www.inf.ethz.ch/personal/reali/ http://www.oberon.ethz.ch/jaos/ http://www.oberon.ethz.ch/native/ |
From: Patrik R. <pat...@us...> - 2002-02-13 16:09:46
|
Update of /cvsroot/hostess/hostess/oberon In directory usw-pr-cvs1:/tmp/cvs-serv3570 Modified Files: testcases.xml Log Message: added HOTBuiltIn0FOR.Mod HOTProc3FOR.Mod HOTSysArr0FOR.Mod HOTSysBuiltIn0FOR.Mod added HOTConst1.Mod HOTConst2.Mod Index: testcases.xml =================================================================== RCS file: /cvsroot/hostess/hostess/oberon/testcases.xml,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -r1.3 -r1.4 *** testcases.xml 20 Nov 2001 16:22:42 -0000 1.3 --- testcases.xml 13 Feb 2002 16:09:42 -0000 1.4 *************** *** 290,293 **** --- 290,297 ---- </test> + <test id="proc3FOR" type="run" file= "HOTProc3FOR.Mod" lang="O2 AO"> + proc type returning a proc type, array of procedures (version with FOR) + </test> + <test id="proc4" type="run" file= "HOTProc4.Mod"> exporting proc types *************** *** 360,363 **** --- 364,371 ---- </test> + <test id="builtInFunctions0FOR" type="run" file= "HOTBuiltIn0FOR.Mod" lang="O2 AO"> + CAP CHR ODD ABS ASH (FOR version) + </test> + <test id="asherror0" type="reject" file="HOTBuiltinASHErr0.Mod"> Invalid use of <code>ASH</code>. *************** *** 488,496 **** default-lang="O1 O2 AO"> <test id="sysarr0" type="run" relevance="informal" file= "HOTSysArr0.Mod" > ARRAY OF SYSTEM.BYTE </test> ! <test id="specialCast0" type="reject" relevance="informal" file= "HOTSpecialCast0.Mod" > cast PTR to POINTER TO ARRAY 5 OF CHAR a dynamic array has no type descriptor, this is not possible --- 496,518 ---- default-lang="O1 O2 AO"> + <test id="const1" type="run" relevance="informal" file="HOTConst1.Mod" > + Test constant folding. + Informal, because typing of constants is not clearly defined in report + </test> + + <test id="const2" type="run" relevance="informal" file="HOTConst2.Mod" > + Test constant folding. + Informal, because typing of constants is not clearly defined in report + </test> + <test id="sysarr0" type="run" relevance="informal" file= "HOTSysArr0.Mod" > ARRAY OF SYSTEM.BYTE </test> ! <test id="sysarr0FOR" type="run" relevance="informal" file= "HOTSysArr0FOR.Mod" lang="O2 AO"> ! ARRAY OF SYSTEM.BYTE (FOR version) ! </test> ! ! <test id="specialCast0" type="reject" relevance="informal" file= "HOTSpecialCast0.Mod" lang="O2 AO" > cast PTR to POINTER TO ARRAY 5 OF CHAR a dynamic array has no type descriptor, this is not possible *************** *** 519,523 **** </test> ! <test id="duplicateFingerprint" type="accept" relevance="informal" file= "HOTDuplFP.Mod" > OP2/ ETH Oberon this module generates duplicate fingerprints --- 541,549 ---- </test> ! <test id="sysBuiltin0FOR" type="run" relevance="informal" file= "HOTSysBuiltIn0FOR.Mod" > ! (FOR version) ! </test> ! ! <test id="duplicateFingerprint" type="accept" relevance="informal" file= "HOTDuplFP.Mod" lang="O2 AO" > OP2/ ETH Oberon this module generates duplicate fingerprints |
From: Patrik R. <pat...@us...> - 2002-02-13 16:08:02
|
Update of /cvsroot/hostess/hostess/oberon In directory usw-pr-cvs1:/tmp/cvs-serv2995 Added Files: HOTBuiltIn0FOR.Mod HOTProc3FOR.Mod HOTSysArr0FOR.Mod HOTSysBuiltIn0FOR.Mod Log Message: Test added --- NEW FILE: HOTBuiltIn0FOR.Mod --- MODULE HOTBuiltIn0FOR; (** prk **) PROCEDURE TestCAPCHR*; VAR i: LONGINT; BEGIN ASSERT( CAP("a") = "A" ); FOR i := ORD("a") TO ORD("z") DO ASSERT( CAP( CHR(i) ) = CHR( i - ORD("a") + ORD("A") ) ) END END TestCAPCHR; PROCEDURE TestODD*; VAR i: LONGINT; b: BOOLEAN; BEGIN i := 1; ASSERT( ODD(i) ); i := 0; ASSERT( ~ODD(i) ); i := 1; b := ODD(i); ASSERT( b ); END TestODD; PROCEDURE TestABS*; CONST c1 = 1; c2 = -1; c3 = 1234; c4 = -1234; VAR i: LONGINT; j: INTEGER; k: SHORTINT; BEGIN i := c1; ASSERT( ABS(i) = c1, 101); i := c2; ASSERT( ABS(i) = -c2, 102); i := c3; ASSERT( ABS(i) = c3, 103); i := c4; ASSERT( ABS(i) = -c4, 104); j := c1; ASSERT( ABS(j) = c1, 111); j := c2; ASSERT( ABS(j) = -c2, 112); j := c3; ASSERT( ABS(j) = c3, 113); j := c4; ASSERT( ABS(j) = -c4, 114); k := c1; ASSERT( ABS(k) = c1, 121); k := c2; ASSERT( ABS(k) = -c2, 122); END TestABS; PROCEDURE TestShift*; VAR i, j: LONGINT; BEGIN i := 17; ASSERT(ASH(i, 1) = 34, 101); ASSERT(ASH(i, -1) = 8, 102); j := 1; ASSERT(ASH(i, j) = 34, 103); j := -1; ASSERT(ASH(i, j) = 8, 104); i := -17; ASSERT(ASH(i, 1) = -34, 111); ASSERT(ASH(i, -1) = -9, 112); j := 1; ASSERT(ASH(i, j) = -34, 113); j := -1; ASSERT(ASH(i, j) = -9, 114); END TestShift; PROCEDURE Test*; BEGIN TestCAPCHR; TestODD; TestABS; TestShift; END Test; END HOTBuiltIn0FOR. --- NEW FILE: HOTProc3FOR.Mod --- MODULE HOTProc3FOR; (** prk **) TYPE proc = PROCEDURE (): LONGINT; procgen = PROCEDURE (i: LONGINT): proc; VAR gen: procgen; p: proc; pa: ARRAY 3 OF proc; ga: ARRAY 3 OF procgen; (* --- Procs --- *) PROCEDURE P1(): LONGINT; BEGIN RETURN 1 END P1; PROCEDURE P2(): LONGINT; BEGIN RETURN 2 END P2; PROCEDURE P3(): LONGINT; BEGIN RETURN 3 END P3; PROCEDURE Gen1(i: LONGINT): proc; VAR p: proc; BEGIN IF i = 1 THEN p := P1 ELSIF i = 2 THEN p := P2 ELSIF i = 3 THEN p := P3 END; RETURN p; END Gen1; PROCEDURE Gen2(i: LONGINT): proc; BEGIN IF i = 1 THEN RETURN P1 ELSIF i = 2 THEN RETURN P2 ELSIF i = 3 THEN RETURN P3 END END Gen2; PROCEDURE Gen3(i: LONGINT): proc; BEGIN RETURN pa[i-1] END Gen3; PROCEDURE Check(p: proc; val, idx: LONGINT); BEGIN ASSERT(p() = val) END Check; PROCEDURE Test0*; BEGIN Check(Gen1(1), 1, 1); Check(Gen1(2), 2, 2); Check(Gen1(3), 3, 3); Check(Gen2(1), 1, 4); Check(Gen2(2), 2, 5); Check(Gen2(3), 3, 6); Check(Gen3(1), 1, 7); Check(Gen3(2), 2, 8); Check(Gen3(3), 3, 9); END Test0; PROCEDURE Test1*; BEGIN Check(pa[0], 1, 1); Check(pa[1], 2, 2); Check(pa[2], 3, 3); END Test1; PROCEDURE Test2*; BEGIN ASSERT(pa[0]() = 1); ASSERT(pa[1]() = 2); ASSERT(pa[2]() = 3); END Test2; PROCEDURE Test3*; BEGIN Check(ga[0](1), 1, 1); Check(ga[0](2), 2, 2); Check(ga[0](3), 3, 3); Check(ga[1](1), 1, 4); Check(ga[1](2), 2, 5); Check(ga[1](3), 3, 6); Check(ga[2](1), 1, 7); Check(ga[2](2), 2, 8); Check(ga[2](3), 3, 9); END Test3; PROCEDURE Test4*; VAR i, j: LONGINT; BEGIN FOR i := 0 TO 2 DO FOR j := 1 TO 3 DO Check(ga[i](j), j, (i+1)*(j+1)-1) END END END Test4; PROCEDURE Test5; VAR i: LONGINT; BEGIN FOR i := 0 TO 3*3 -1 DO Check(ga[i DIV 3](1 + i MOD 3), 1 + i MOD 3, i) END END Test5; PROCEDURE Test*; BEGIN Test0; Test1; Test2; Test3; Test4; Test5 END Test; BEGIN pa[0] := P1; pa[1] := P2; pa[2] := P3; ga[0] := Gen1; ga[1] := Gen2; ga[2] := Gen3; END HOTProc3FOR. --- NEW FILE: HOTSysArr0FOR.Mod --- MODULE HOTSysArr0FOR; (** prk **) IMPORT SYSTEM; PROCEDURE Check1(a: ARRAY OF CHAR; inx, v: LONGINT); BEGIN ASSERT(ORD(a[inx]) = v); END Check1; PROCEDURE Check2(VAR a: ARRAY OF CHAR; inx, v: LONGINT); BEGIN ASSERT(ORD(a[inx]) = v); END Check2; PROCEDURE Test1*; VAR a: ARRAY 16 OF CHAR; i: LONGINT; BEGIN FOR i := 0 TO 15 DO a[i] := CHR(i*3); Check1(a, i, i*3); Check2(a, i, i*3) END END Test1; PROCEDURE Test2*; VAR a: ARRAY 16 OF CHAR; i: LONGINT; PROCEDURE Check1(x: ARRAY OF SYSTEM.BYTE); VAR i: LONGINT; BEGIN FOR i := 0 TO 15 DO ASSERT(SYSTEM.VAL(CHAR, x[i]) = CHR(i*5), 100) END END Check1; PROCEDURE Check1V(x: ARRAY OF SYSTEM.BYTE); VAR i: LONGINT; BEGIN FOR i := 0 TO 15 DO ASSERT(SYSTEM.VAL(CHAR, x[i]) = CHR(i*5), 100) END END Check1V; PROCEDURE Check2(b: ARRAY OF CHAR); BEGIN Check1(b); Check1V(b) END Check2; PROCEDURE Check2V(VAR b: ARRAY OF CHAR); BEGIN Check1(b); Check1V(b) END Check2V; BEGIN FOR i := 0 TO 15 DO a[i] := CHR(i*5) END; Check1(a); Check1V(a); Check2(a); Check2V(a); END Test2; PROCEDURE Test*; BEGIN Test1; Test2; END Test; END HOTSysArr0FOR. --- NEW FILE: HOTSysBuiltIn0FOR.Mod --- MODULE HOTSysBuiltIn0FOR; (** prk **) IMPORT SYSTEM, Texts; PROCEDURE TestAddresses*; CONST c1 = 12563478H; c2 = 78563412H; VAR adr, i, j: LONGINT; BEGIN adr := SYSTEM.ADR(i); i := c1; SYSTEM.GET(adr, j); ASSERT(j = c1, 100); j := c2; SYSTEM.PUT(adr, j); ASSERT(i = c2, 101); END TestAddresses; PROCEDURE TestCopy*; CONST c01 = "Test1"; c02 = "123"; (* <= 8 *) c10 = "12345678"; c10a = "1234567"; (* > 8 *) c11 = "testTEST"; c11a = "testTES"; VAR a, b: ARRAY 8 OF CHAR; c: ARRAY 16 OF CHAR; BEGIN (* src <= dst *) COPY(c01, a); ASSERT(a = c01, 110); b := c02; COPY(b, a); ASSERT(a = c02, 111); (* src > dst *) COPY(c10, a); ASSERT(a = c10a, 202); c := c11; COPY(c, a); ASSERT(a = c11a, 203); END TestCopy; PROCEDURE TestMove*; VAR a, b: LONGINT; BEGIN a := 27; SYSTEM.MOVE(SYSTEM.ADR(a), SYSTEM.ADR(b), 4); ASSERT(b = a, 120); a := 31; SYSTEM.MOVE(SYSTEM.ADR(a), SYSTEM.ADR(b), 4); ASSERT(b = a, 121); END TestMove; PROCEDURE TestPort; VAR ofs: LONGINT; c: CHAR; BEGIN SYSTEM.PORTOUT(70H, 8FX); SYSTEM.PORTOUT(70H, CHR(ofs)); SYSTEM.PORTIN(71H, c); END TestPort; PROCEDURE TestInt; BEGIN SYSTEM.CLI; SYSTEM.STI END TestInt; PROCEDURE TestGet*; VAR x, val: LONGINT; s: SHORTINT; i: INTEGER; l: LONGINT; BEGIN x := SYSTEM.ADR(val); val := 12345678H; s := SYSTEM.GET8(x); ASSERT(s = 78H, 130); i := SYSTEM.GET16(x); ASSERT(i = 5678H, 131); l := SYSTEM.GET32(x); ASSERT(l = 12345678H, 132); SYSTEM.PUT16(x, s); ASSERT(val = 12340078H, 133); SYSTEM.PUT32(x, s); ASSERT(val = 78H, 134); END TestGet; PROCEDURE TestTypeCode*; VAR l: LONGINT; BEGIN l := SYSTEM.TYPECODE(Texts.Text); END TestTypeCode; PROCEDURE TestReg*; CONST av = 1; bv = 2; cv = 3; dv = 4; VAR a, b, c, d: LONGINT; BEGIN SYSTEM.PUTREG(SYSTEM.EAX, SYSTEM.VAL(LONGINT, av)); SYSTEM.PUTREG(SYSTEM.EBX, SYSTEM.VAL(LONGINT, bv)); SYSTEM.PUTREG(SYSTEM.ECX, SYSTEM.VAL(LONGINT, cv)); SYSTEM.PUTREG(SYSTEM.EDX, SYSTEM.VAL(LONGINT, dv)); SYSTEM.GETREG(SYSTEM.EAX, a); SYSTEM.GETREG(SYSTEM.EBX, b); SYSTEM.GETREG(SYSTEM.ECX, c); SYSTEM.GETREG(SYSTEM.EDX, d); ASSERT(a=av, 140); ASSERT(b=bv, 141); ASSERT(c=cv, 142); ASSERT(d=dv, 143); END TestReg; PROCEDURE Test1*; TYPE Pixel = ARRAY 4 OF CHAR; Mega = ARRAY 36 OF CHAR; VAR pix, pix2: Pixel; x: LONGINT; meg, meg2: Mega; BEGIN pix2[0] := 04X; pix2[1] := 08X; pix2[2] := 10X; pix2[3] := 12X; x := SYSTEM.ADR(pix2); pix := SYSTEM.VAL(Pixel, SYSTEM.GET32(x)); ASSERT(pix[0] = 04X, 150); ASSERT(pix[1] = 08X, 151); ASSERT(pix[2] = 10X, 152); ASSERT(pix[3] = 12X, 153); FOR x := 0 TO 35 DO meg2[x] := CHR(x) END; meg := meg2; FOR x := 0 TO 35 DO ASSERT(meg[x] = meg2[x], 154) END END Test1; PROCEDURE Test*; BEGIN TestAddresses; TestCopy; TestMove; TestGet; TestTypeCode; TestReg; Test1; END Test; END HOTSysBuiltIn0FOR. |
From: Patrik R. <pat...@us...> - 2002-02-13 16:06:44
|
Update of /cvsroot/hostess/hostess/oberon In directory usw-pr-cvs1:/tmp/cvs-serv2503 Modified Files: HOTProc3.Mod HOTSysArr0.Mod HOTSysBuiltIn0.Mod HOTBuiltIn0.Mod Log Message: use WHILE instead of FOR Index: HOTProc3.Mod =================================================================== RCS file: /cvsroot/hostess/hostess/oberon/HOTProc3.Mod,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** HOTProc3.Mod 6 Apr 2001 22:10:36 -0000 1.2 --- HOTProc3.Mod 13 Feb 2002 16:06:38 -0000 1.3 *************** *** 96,103 **** VAR i, j: LONGINT; BEGIN ! FOR i := 0 TO 2 DO ! FOR j := 1 TO 3 DO ! Check(ga[i](j), j, (i+1)*(j+1)-1) ! END END END Test4; --- 96,107 ---- VAR i, j: LONGINT; BEGIN ! i := 0; ! WHILE i <= 2 DO ! j := 1; ! WHILE j <= 3 DO ! Check(ga[i](j), j, (i+1)*(j+1)-1); ! INC(j) ! END; ! INC(i) END END Test4; *************** *** 106,111 **** VAR i: LONGINT; BEGIN ! FOR i := 0 TO 3*3 -1 DO ! Check(ga[i DIV 3](1 + i MOD 3), 1 + i MOD 3, i) END END Test5; --- 110,117 ---- VAR i: LONGINT; BEGIN ! i := 0; ! WHILE i < (3*3 - 1) DO ! Check(ga[i DIV 3](1 + i MOD 3), 1 + i MOD 3, i); ! INC(i) END END Test5; Index: HOTSysArr0.Mod =================================================================== RCS file: /cvsroot/hostess/hostess/oberon/HOTSysArr0.Mod,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** HOTSysArr0.Mod 6 Apr 2001 22:10:36 -0000 1.2 --- HOTSysArr0.Mod 13 Feb 2002 16:06:39 -0000 1.3 *************** *** 20,27 **** VAR a: ARRAY 16 OF CHAR; i: LONGINT; BEGIN ! FOR i := 0 TO 15 DO a[i] := CHR(i*3); Check1(a, i, i*3); ! Check2(a, i, i*3) END END Test1; --- 20,29 ---- VAR a: ARRAY 16 OF CHAR; i: LONGINT; BEGIN ! i := 0; ! WHILE i <= 15 DO a[i] := CHR(i*3); Check1(a, i, i*3); ! Check2(a, i, i*3); ! INC(i) END END Test1; *************** *** 33,38 **** VAR i: LONGINT; BEGIN ! FOR i := 0 TO 15 DO ! ASSERT(SYSTEM.VAL(CHAR, x[i]) = CHR(i*5), 100) END END Check1; --- 35,42 ---- VAR i: LONGINT; BEGIN ! i := 0; ! WHILE i <= 15 DO ! ASSERT(SYSTEM.VAL(CHAR, x[i]) = CHR(i*5), 100); ! INC(i) END END Check1; *************** *** 41,46 **** VAR i: LONGINT; BEGIN ! FOR i := 0 TO 15 DO ! ASSERT(SYSTEM.VAL(CHAR, x[i]) = CHR(i*5), 100) END END Check1V; --- 45,52 ---- VAR i: LONGINT; BEGIN ! i := 0; ! WHILE i <= 15 DO ! ASSERT(SYSTEM.VAL(CHAR, x[i]) = CHR(i*5), 100); ! INC(i) END END Check1V; *************** *** 57,61 **** BEGIN ! FOR i := 0 TO 15 DO a[i] := CHR(i*5) END; Check1(a); Check1V(a); Check2(a); Check2V(a); --- 63,68 ---- BEGIN ! i := 0; ! WHILE i <= 15 DO a[i] := CHR(i*5); INC(i) END; Check1(a); Check1V(a); Check2(a); Check2V(a); Index: HOTSysBuiltIn0.Mod =================================================================== RCS file: /cvsroot/hostess/hostess/oberon/HOTSysBuiltIn0.Mod,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -r1.3 -r1.4 *** HOTSysBuiltIn0.Mod 9 Apr 2001 15:39:15 -0000 1.3 --- HOTSysBuiltIn0.Mod 13 Feb 2002 16:06:39 -0000 1.4 *************** *** 109,116 **** ASSERT(pix[3] = 12X, 153); ! FOR x := 0 TO 35 DO meg2[x] := CHR(x) END; meg := meg2; ! FOR x := 0 TO 35 DO ! ASSERT(meg[x] = meg2[x], 154) END END Test1; --- 109,119 ---- ASSERT(pix[3] = 12X, 153); ! x := 0; ! WHILE x <= 35 DO meg2[x] := CHR(x); INC(x) END; meg := meg2; ! x := 0; ! WHILE x <= 35 DO ! ASSERT(meg[x] = meg2[x], 154); ! INC(x) END END Test1; Index: HOTBuiltIn0.Mod =================================================================== RCS file: /cvsroot/hostess/hostess/oberon/HOTBuiltIn0.Mod,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** HOTBuiltIn0.Mod 6 Apr 2001 22:10:36 -0000 1.2 --- HOTBuiltIn0.Mod 13 Feb 2002 16:06:39 -0000 1.3 *************** *** 5,10 **** BEGIN ASSERT( CAP("a") = "A" ); ! FOR i := ORD("a") TO ORD("z") DO ! ASSERT( CAP( CHR(i) ) = CHR( i - ORD("a") + ORD("A") ) ) END END TestCAPCHR; --- 5,12 ---- BEGIN ASSERT( CAP("a") = "A" ); ! i := ORD("a"); ! WHILE i <= ORD("z") DO ! ASSERT( CAP( CHR(i) ) = CHR( i - ORD("a") + ORD("A") ) ); ! INC(i) END END TestCAPCHR; |
From: Patrik R. <pat...@us...> - 2002-02-13 16:02:43
|
Update of /cvsroot/hostess/hostess/oberon In directory usw-pr-cvs1:/tmp/cvs-serv794 Modified Files: HOTBoolExpr0.Mod HOTDelegates0.Mod HOTFor0.Mod HOTIntErr0.Mod HOTProc4.Mod HOTProc4A.Mod HOTProc5B.Mod Log Message: text after the module end removed Index: HOTBoolExpr0.Mod =================================================================== RCS file: /cvsroot/hostess/hostess/oberon/HOTBoolExpr0.Mod,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -r1.4 -r1.5 *** HOTBoolExpr0.Mod 9 Apr 2001 16:11:21 -0000 1.4 --- HOTBoolExpr0.Mod 13 Feb 2002 16:02:39 -0000 1.5 *************** *** 59,66 **** - - END HOTBoolExpr0. - - - HOTBoolExpr0.Test --- 59,61 ---- Index: HOTDelegates0.Mod =================================================================== RCS file: /cvsroot/hostess/hostess/oberon/HOTDelegates0.Mod,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** HOTDelegates0.Mod 15 May 2001 08:23:19 -0000 1.2 --- HOTDelegates0.Mod 13 Feb 2002 16:02:39 -0000 1.3 *************** *** 268,277 **** NEW(s3, 3); NEW(s4, 4); END HOTDelegates0. - - System.Free HOTDelegates0 ~ - - HOTDelegates0.Test - HOTDelegates0.Test0 HOTDelegates0.Test1 HOTDelegates0.Test4 - - - Decoder.Decode HOTDelegates0 ~ --- 268,269 ---- Index: HOTFor0.Mod =================================================================== RCS file: /cvsroot/hostess/hostess/oberon/HOTFor0.Mod,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -r1.4 -r1.5 *** HOTFor0.Mod 26 Jun 2001 15:45:02 -0000 1.4 --- HOTFor0.Mod 13 Feb 2002 16:02:39 -0000 1.5 *************** *** 26,28 **** ! END HOTFor0.Test --- 26,28 ---- ! END HOTFor0. Index: HOTIntErr0.Mod =================================================================== RCS file: /cvsroot/hostess/hostess/oberon/HOTIntErr0.Mod,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -r1.4 -r1.5 *** HOTIntErr0.Mod 6 Apr 2001 22:10:36 -0000 1.4 --- HOTIntErr0.Mod 13 Feb 2002 16:02:39 -0000 1.5 *************** *** 7,9 **** END P; ! END HOTIntErr0.Mod. --- 7,9 ---- END P; ! END HOTIntErr0. Index: HOTProc4.Mod =================================================================== RCS file: /cvsroot/hostess/hostess/oberon/HOTProc4.Mod,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -r1.3 -r1.4 *** HOTProc4.Mod 9 Apr 2001 16:11:21 -0000 1.3 --- HOTProc4.Mod 13 Feb 2002 16:02:39 -0000 1.4 *************** *** 31,34 **** END HOTProc4. - - HOTProc4.Test --- 31,32 ---- Index: HOTProc4A.Mod =================================================================== RCS file: /cvsroot/hostess/hostess/oberon/HOTProc4A.Mod,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -r1.3 -r1.4 *** HOTProc4A.Mod 9 Apr 2001 15:39:15 -0000 1.3 --- HOTProc4A.Mod 13 Feb 2002 16:02:39 -0000 1.4 *************** *** 40,43 **** END HOTProc4A. - - HOTProc4A.Test --- 40,41 ---- Index: HOTProc5B.Mod =================================================================== RCS file: /cvsroot/hostess/hostess/oberon/HOTProc5B.Mod,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -r1.3 -r1.4 *** HOTProc5B.Mod 9 Apr 2001 15:39:15 -0000 1.3 --- HOTProc5B.Mod 13 Feb 2002 16:02:39 -0000 1.4 *************** *** 22,24 **** END HOTProc5B. - HOTProc5B.Test --- 22,23 ---- |
From: Fyodor M. <mf...@ma...> - 2002-02-11 09:58:41
|
Hello, Add, please, the following test. Test description: Check that there is a garbage collector. Relevance: standard. Assumptions: 1. Size of free heap is greater than 1Mb 2. Size of free heap is less than 4Gb Languages: O1,O2, I don't know about AO, but it must contain garbage collector. Possible problems: 1. It is impossible to distinguish if the program still works and 4Gb of garbage take a lot of time or the program just hanged. 2. Taking into consideration progress of computer industry it is wrong to assume memory limit 4Gb. But it is impossible to set 2^64 memory limit because modern computers will not be able to execute program producing 2^64 bytes of garbage for reasonable time. (* Revision history 1 Feb 2002 Fyodor Menshikov *) MODULE HOTHeap1; IMPORT Out; CONST itemSize=64000; repeats=64016;(*4Gb/itemSize, mod 32=16*) TYPE ListPtr=POINTER TO ListItem; ListItem=RECORD next:ListPtr; dummy:ARRAY itemSize OF CHAR; END; VAR list:ListPtr; PROCEDURE Add; VAR t:ListPtr; BEGIN NEW(t); t^.next:=list; list:=t; END Add; PROCEDURE Remove; BEGIN list:=list^.next; END Remove; PROCEDURE Test*; VAR i:LONGINT; BEGIN list:=NIL; i:=0; WHILE i<repeats DO IF i MOD 32<16 THEN Add; ELSE Remove; END; INC(i); END; i:=0; WHILE list#NIL DO Remove; INC(i); END; Out.Int(i,0); Out.Ln; END Test; END HOTHeap1. Expected results: 16 --Fyodor Menshikov |