[ANN] Chalten - A Point based model of the Gregorian Calendar
Hernan Wilkinson
hernan.wilkinson at mercapsoftware.com
Tue Apr 4 12:54:58 UTC 2006
Hi,
we uploaded to SqueakSource a new project called "Chalten" that is
the Squeak implementation of the Gregorian Calendar we presented last
year at ESUG.
This model reifyes many concepts of the Gregorian Calendar that
Smalltalk-80 does not (like day or day of month, etc).
This model was born one year and a half ago but we just be able to
open it.
The main objective of this model is to easily solve problems of the
Gregorian Calendar that are not so easy to do with the Smalltalk-80
classes. It provides also some concepts that are useful for financial
applications like TimeLineFilter and RelativeGregorianDate.
This model also uses the units models (Aconcagua) we uploaded last
week. Because it uses the units model, there are some concepts that are
not useful anymore, like Duration, because a Duration is a Measure of time.
Anyway, you can read about the model at the SqueakSource wiki (we
wrote a faq with some examples), the ESUG presentation from
http://prog2.vub.ac.be/~cderoove/esugtalks/Wilkinson.pdf
<http://prog2.vub.ac.be/%7Ecderoove/esugtalks/Wilkinson.pdf> and the
paper from
http://www.iam.unibe.ch/publikationen/techreports/2005/iam-05-001/file/at_download
It comes with almost 600 tests and you can read in the paper how it
compares to Chronology.
Here are some examples I hope you will like:
January first, 2006 --> Creates an instance of GregorianDate for
01/01/2006
January first --> Creates an instance of
GregorianDayOfMonth for 01/01
January, 2006 --> Creates an instance of
GregorianMonthOfYear for January 2006
January first, 2006 distanceTo: July first, 2006 --> Returns an
instance of Measure "181 days"
(GregorianYear number: 2006) months collect: [ :aMonthOfYear |
aMonthOfYear lastDate ] -->Returns all the last dates of the 2006 months.
(GregorianYear number: 2006) dates collect: [ :aDate | aDate
isMonday ] -->Returns all Mondays of 2006
"Let's create a filter for all dates..."
nonWorkingDays := TimelineFilter universe: (TheBeginningOfTime to:
TheEndOfTime).
"Now, we want Saturdays to be on that filter"
nonWorkingDays addDayRule: Saturday.
"Now we want Sundays from January 1st of year 1000 to the end of
time..."
nonWorkingDays addDayRule: Sunday from: (January first, 1000) to:
TheEndOfTime.
"Now we want all July 9th since 1816 because is the Independence Day
in Argentina".
nonWorkingDays addDayOfMonthRule: July ninth from: (July ninth,
1816) to: TheEndOfTime.
nonWorkingDays includes: (July ninth, 2005) "Returns true"
nonWorkingDays includes: (July eighth, 2005) "Returns false"
nonWorkingDays includes: (July sixteenth, 2005) "Returns true, it is
Saturday"
"06/01/2005 is a Thursday"
aTimespan := GregorianTimespan from: (January sixth, 2005) duration:
48 hours.
aSettleDate := RelativeGregorianDate timespan: aTimespan calendar:
nonWorkingDays negated.
"Returns false because 10/01/2005, a Monday, is a working day"
nonWorkingDays includes: (January tenth, 2005).
"Returns 10/01/2005"
aSettleDate absoluteDate.
"Now a new non working day is added to the filter"
nonWorkingDays addDateRuleFor: (January tenth, 2005).
"Return true. Now 10/01/2005, is a not working day"
nonWorkingDays includes: (January tenth, 2005).
"Now it returns 11/01/2005 because the filter has changed"
aSettleDate absoluteDate.
Hernan.
--
______________________________
Lic. Hernán A. Wilkinson
Gerente de Desarrollo y Tecnología
Mercap S.R.L.
Tacuari 202 - 7mo Piso - Tel: 54-11-4878-1118
Buenos Aires - Argentina
http://www.mercapsoftware.com
---------------------------------------------------------------------
Este mensaje es confidencial. Puede contener informacion amparada
por el secreto profesional. Si usted ha recibido este e-mail por error,
por favor comuniquenoslo inmediatamente via e-mail y tenga la
amabilidad de eliminarlo de su sistema; no debera copiar el mensaje
ni divulgar su contenido a ninguna persona. Muchas gracias.
This message is confidential. It may also contain information that is
privileged or otherwise legally exempt from disclosure. If you have
received it by mistake please let us know by e-mail immediately and
delete it from your system; you should also not copy the message nor
disclose its contents to anyone. Thanks.
---------------------------------------------------------------------
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20060404/12c9bb28/attachment.htm
More information about the Squeak-dev
mailing list
|