Common Lisp Package: CHRONICITY-TEST

README:

FUNCTION

Public

Undocumented

RUN-SUITE

Private

DAY-SEC-OF (DATETIME)

Returns the second of the day.

PARSE (TEXT &KEY ((CONTEXT *CONTEXT*) *CONTEXT*) ((NOW *NOW*) (OR *NOW* (NOW))) (GUESS *GUESS*) ((AMBIGUOUS-TIME-RANGE *AMBIGUOUS-TIME-RANGE*) *AMBIGUOUS-TIME-RANGE*) ((ENDIAN-PREFERENCE *ENDIAN-PREFERENCE*) *ENDIAN-PREFERENCE*) &AUX TOKENS)

Parse the string in TEXT and return either a DATETIME or a SPAN object. Also returns a list of tokens as the second value. CONTEXT (default *CONTEXT*) can be either :PAST or :FUTURE. NOW (default *NOW* or this instant) should be a DATETIME instance, relative to which the date/time will be calculated. GUESS (default *GUESS*) if NIL, PARSE returns a SPAN object, otherwise returns the start, end or middle of the span if the it is :START, :END or :MIDDLE respectively. For AMBIGUOUS-TIME-RANGE (default *AMBIGUOUS-TIME-RANGE*), if an integer is given, ambiguous times (like 5:00) will be assumed to be within the range of that time in the AM to that time in the PM. For example, if you set it to 7, then the parser will look for the time between 7am and 7pm. In the case of 5:00, it would assume that means 5:00pm. If NIL is given, no assumption will be made, and the first matching instance of that time will be used.

Undocumented

COPY-DATE (FROM &KEY (YEAR (YEAR-OF FROM)) (MONTH (MONTH-OF FROM)) (DAY (DAY-OF FROM)))

COPY-DATETIME (FROM &KEY (YEAR (YEAR-OF FROM)) (MONTH (MONTH-OF FROM)) (DAY (DAY-OF FROM)) (HOUR (HOUR-OF FROM)) (MINUTE (MINUTE-OF FROM)) (SEC (SEC-OF FROM)))

COPY-TIME (FROM &KEY (HOUR (HOUR-OF FROM)) (MINUTE (MINUTE-OF FROM)) (SEC (SEC-OF FROM)))

CREATE-TAG (CLASS TYPE &KEY NOW)

CREATE-TOKEN (WORD &REST TAGS)

DATETIME-ADJUST (DATETIME PART VALUE)

DATETIME-DECR (DATETIME UNIT &OPTIONAL (AMOUNT 1))

DATETIME-INCR (DATETIME UNIT &OPTIONAL (AMOUNT 1))

DATETIME-MONTH+ (DATETIME AMOUNT)

DATETIME-TO-UNIVERSAL (DATETIME)

DATETIME/= (&REST ARGS)

DATETIME< (&REST ARGS)

DATETIME<= (&REST ARGS)

DATETIME= (&REST ARGS)

DATETIME> (&REST ARGS)

DATETIME>= (&REST ARGS)

DAY-OF (DATETIME)

DEALIAS-AND-DISAMBIGUATE-TIME (TOKENS)

DOW-OF (DATETIME)

GET-REPEATERS (TOKENS)

GUESS-SPAN (SPAN GUESS)

HOUR-OF (DATETIME)

MAKE-DATE (YEAR &OPTIONAL (MONTH 1) (DAY 1))

MAKE-DATETIME (YEAR &OPTIONAL (MONTH 1) (DAY 1) (HOUR 0) (MINUTE 0) (SEC 0))

MAKE-SPAN (START END &OPTIONAL (END-INCLUDED-P NIL))

MAKE-TIME (HOUR &OPTIONAL (MINUTE 0) (SEC 0))

MERGE-DATETIME (DATE TIME)

MERGE-TIME-TOKENS-DAY (TOKENS DATE-START)

MINUTE-OF (DATETIME)

MONTH-OF (DATETIME)

NOW

SCAN-FOR-TIMES (TOKEN &AUX (WORD (TOKEN-WORD TOKEN)))

SEC-OF (DATETIME)

SPAN+ (SPAN AMOUNT UNIT)

SPAN- (SPAN AMOUNT UNIT)

SPAN-INCLUDES-P (SPAN DATETIME)

SPAN-WIDTH (SPAN)

TOKENS-TO-SPAN (TOKENS)

UNIVERSAL-TO-DATETIME (UNIVERSAL-TIME)

YEAR-OF (DATETIME)

MACRO

Private

Undocumented

ASSERT-DATETIME= (EXPECTED FORM)

DATETIME-DECF (PLACE UNIT &OPTIONAL (AMOUNT 1))

DATETIME-INCF (PLACE UNIT &OPTIONAL (AMOUNT 1))

GENERIC-FUNCTION

Private

Undocumented

R-NEXT (REPEATER POINTER)

R-OFFSET (REPEATER SPAN AMOUNT POINTER)

R-THIS (REPEATER POINTER)

R-WIDTH (REPEATER)

SLOT-ACCESSOR

Private

Undocumented

SPAN-END (OBJECT)

SPAN-END-INCLUDED-P (OBJECT)

SPAN-START (OBJECT)

TAG-NOW (OBJECT)

SETFTAG-NOW (NEW-VALUE OBJECT)

TAG-TYPE (OBJECT)

TICK-TIME (OBJECT)

SETFTICK-TIME (NEW-VALUE OBJECT)

VARIABLE

Private

*AMBIGUOUS-TIME-RANGE*

The default value for :AMBIGUOUS-TIME-RANGE.

Undocumented

*NUMERIZER-TEST-MAP*

CLASS

Private

Undocumented

REPEATER

REPEATER-DAY

REPEATER-DAY-NAME

REPEATER-DAY-PORTION

REPEATER-FORTNIGHT

REPEATER-HOUR

REPEATER-MINUTE

REPEATER-MONTH

REPEATER-MONTH-NAME

REPEATER-SEC

REPEATER-TIME

REPEATER-WEEK

REPEATER-WEEKEND

REPEATER-YEAR

SPAN