Common Lisp Package: COM.INFORMATIMAGO.COMMON-LISP.CESARUM.ISO4217

This package exports functions and data to process iso4217 currency codes. License: AGPL3 Copyright Pascal J. Bourguignon 2004 - 2012 This program is free software: you can redistribute it and/or modify it under the terms of the GNU Affero General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License for more details. You should have received a copy of the GNU Affero General Public License along with this program. If not, see <http://www.gnu.org/licenses/>

README:

FUNCTION

Public

CC-COUNTRY (STRUCTURE)

The country of the currency.

CC-CURRENCY (STRUCTURE)

The currency.

CC-NOTE (STRUCTURE)

A note.

CURRENCY-ALPHABETIC-CODE (STRUCTURE)

The alphabetic code (3 letters) of the currency.

CURRENCY-MINOR-UNIT (STRUCTURE)

The number of digits after the decimal point for amounts in the currency.

CURRENCY-NAME (STRUCTURE)

The name of the currency

CURRENCY-NUMERIC-CODE (STRUCTURE)

The numeric code (between 0 and 999) of the currency.

FIND-CURRENCY (DESIGNATOR)

DESIGNATOR: An integer between 0 and 999, or a string or a symbol, or a list whose first element is an integer between 0 and 999, or a string or a symbol, RETURN: A currency structure (list) if the designator matches one, or nil if none found. RAISE: An error when the type of DESIGNATOR is not as described above.

GET-CURRENCIES (&KEY ONLY-EXISTING ORDER (LANGUAGE EN))

ONLY-EXISTING: NOT IMPLEMENTED YET. Select only currencly in current use. LANGUAGE: NOT IMPLEMENTED YET. ORDER: :NAME or :ALPHABETIC-CODE or :NUMERIC-CODE. if not specified, no ordering is done. RETURN: A list of CURRENCY: (alphabetic-code numeric-code minor-unit name).

Undocumented

SETFCC-COUNTRY (NEW-VALUE STRUCTURE)

SETFCC-CURRENCY (NEW-VALUE STRUCTURE)

SETFCC-NOTE (NEW-VALUE STRUCTURE)

SETFCURRENCY-ALPHABETIC-CODE (NEW-VALUE STRUCTURE)

SETFCURRENCY-MINOR-UNIT (NEW-VALUE STRUCTURE)

SETFCURRENCY-NAME (NEW-VALUE STRUCTURE)

SETFCURRENCY-NUMERIC-CODE (NEW-VALUE STRUCTURE)

Private

COPY-COUNTRY-CURRENCY-ROW (SEQUENCE)

Return a copy of SEQUENCE which is EQUAL to SEQUENCE but not EQ.

COPY-CURRENCY (SEQUENCE)

Return a copy of SEQUENCE which is EQUAL to SEQUENCE but not EQ.

Undocumented

MAKE-COUNTRY-CURRENCY-ROW (&KEY ((COUNTRY DUM1) NIL) ((CURRENCY DUM2) NIL) ((NOTE DUM3) NIL))

MAKE-CURRENCY (&KEY ((ALPHABETIC-CODE DUM73) NIL) ((NUMERIC-CODE DUM74) NIL) ((MINOR-UNIT DUM75) NIL) ((NAME DUM76) NIL))

VARIABLE

Private

*CURRENCY-MAP*

Maps codes to currencies.

+COUNTRY-CURRENCY+

Relation N-N between countries and currencies.

+COUNTRY-CURRENCY-NOTES+

Notes for country-currency relations.

+CURRENCIES+

Information about currencies.