;;; -*- mode: Lisp; Syntax: Common-Lisp; -*- ;;; ;;; Copyright (c) 2009 by the authors. ;;; ;;; See LICENCE for details. (in-package :hu.dwim.number-toss) ;;;;;; ;;; Constant (def constant +default-database-name+ "hu.dwim.number-toss") (def constant +default-database-user-name+ "hu.dwim.number-toss") (def constant +default-database-password+ "engedjbe") (def constant +public-key+ "MIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEAh3H4cEbyb8OycUyKom7E8vY7aaTBtAgqqKEYANX/GuLFZ2Ba/eOyClVYKANlYgH/2GVaSRUKTKpkCACRwMkq34G7nKyRRAsXT2q2mxkWOUQ6ksfYFq6rDwp+BUjuOaeKF+3lWcY87UZgWhlVvOm8mow3E2W0zrmmPF7/cjDdJqjCJzet0X/8+RDp3LTdXvvJF/y1L1GxeEepyArxUxKYAjqIbY6q5Ue6KDXWYMACQWiOTkPbnkWhbEMdy8EGbXDe8goLOBw+Y7Xs6UsZwmLgFtkIMacHEb6YPOlhtcWXtHPStcnhRrS5FuJa7ARimw1dF39prr2V4SSZ5Gp/IKDTFQIDAQAB") (def constant +public-key-modulus+ 17098372100465664752744809050694137816337499954066929773329334941389884862930837978360423007774046006594539865955670064944343291537307981646313529484684777761491007701267253652308078444307015792309052947105316541916318415432383729130497497488677520003858744540050388611579733413762088979947785664864205716996076002277177721915764158352014885394528748630399171324659229718826240763063068634333454036272126235099716742738164480195472957404473841245317200688397155175619940387207374964198424013500222335788655107340175272024977639752369316393217683165214736964909001197719025591561686334476216364859036537369857942934293) (def constant +public-key-exponent+ 65537) (def constant +scoreboard-size+ 100) (def constant +java-timestamp-format+ '((:year 4) #\- (:month 2) #\- (:day 2) #\T (:hour 2) #\: (:min 2) #\: (:sec 2) :gmt-offset)) (def constant +recalculation-frequency+ +seconds-per-minute+) (def constant +countries+ '(("AD" "Andorra") ("AE" "United Arab Emirates") ("AF" "Afghanistan") ("AG" "Antigua & Barbuda") ("AI" "Anguilla") ("AL" "Albania") ("AM" "Armenia") ("AN" "Netherlands Antilles") ("AO" "Angola") ("AQ" "Antarctica") ("AR" "Argentina") ("AS" "American Samoa") ("AT" "Austria") ("AU" "Australia") ("AW" "Aruba") ("AZ" "Azerbaijan") ("BA" "Bosnia and Herzegovina") ("BB" "Barbados") ("BD" "Bangladesh") ("BE" "Belgium") ("BF" "Burkina Faso") ("BG" "Bulgaria") ("BH" "Bahrain") ("BI" "Burundi") ("BJ" "Benin") ("BM" "Bermuda") ("BN" "Brunei Darussalam") ("BO" "Bolivia") ("BR" "Brazil") ("BS" "Bahama") ("BT" "Bhutan") ("BU" "Burma (no longer exists)") ("BV" "Bouvet Island") ("BW" "Botswana") ("BY" "Belarus") ("BZ" "Belize") ("CA" "Canada") ("CC" "Cocos (Keeling) Islands") ("CF" "Central African Republic") ("CG" "Congo") ("CH" "Switzerland") ("CI" "Côte D'ivoire (Ivory Coast)") ("CK" "Cook Iislands") ("CL" "Chile") ("CM" "Cameroon") ("CN" "China") ("CO" "Colombia") ("CR" "Costa Rica") ("CS" "Czechoslovakia (no longer exists)") ("CU" "Cuba") ("CV" "Cape Verde") ("CX" "Christmas Island") ("CY" "Cyprus") ("CZ" "Czech Republic") ("DD" "German Democratic Republic (no longer exists)") ("DE" "Germany") ("DJ" "Djibouti") ("DK" "Denmark") ("DM" "Dominica") ("DO" "Dominican Republic") ("DZ" "Algeria") ("EC" "Ecuador") ("EE" "Estonia") ("EG" "Egypt") ("EH" "Western Sahara") ("ER" "Eritrea") ("ES" "Spain") ("ET" "Ethiopia") ("FI" "Finland") ("FJ" "Fiji") ("FK" "Falkland Islands (Malvinas)") ("FM" "Micronesia") ("FO" "Faroe Islands") ("FR" "France") ("FX" "France, Metropolitan") ("GA" "Gabon") ("GB" "United Kingdom (Great Britain)") ("GD" "Grenada") ("GE" "Georgia") ("GF" "French Guiana") ("GH" "Ghana") ("GI" "Gibraltar") ("GL" "Greenland") ("GM" "Gambia") ("GN" "Guinea") ("GP" "Guadeloupe") ("GQ" "Equatorial Guinea") ("GR" "Greece") ("GS" "South Georgia and the South Sandwich Islands") ("GT" "Guatemala") ("GU" "Guam") ("GW" "Guinea-Bissau") ("GY" "Guyana") ("HK" "Hong Kong") ("HM" "Heard & McDonald Islands") ("HN" "Honduras") ("HR" "Croatia") ("HT" "Haiti") ("HU" "Hungary") ("ID" "Indonesia") ("IE" "Ireland") ("IL" "Israel") ("IN" "India") ("IO" "British Indian Ocean Territory") ("IQ" "Iraq") ("IR" "Islamic Republic of Iran") ("IS" "Iceland") ("IT" "Italy") ("JM" "Jamaica") ("JO" "Jordan") ("JP" "Japan") ("KE" "Kenya") ("KG" "Kyrgyzstan") ("KH" "Cambodia") ("KI" "Kiribati") ("KM" "Comoros") ("KN" "St. Kitts and Nevis") ("KP" "Korea, Democratic People's Republic of") ("KR" "Korea, Republic of") ("KW" "Kuwait") ("KY" "Cayman Islands") ("KZ" "Kazakhstan") ("LA" "Lao People's Democratic Republic") ("LB" "Lebanon") ("LC" "Saint Lucia") ("LI" "Liechtenstein") ("LK" "Sri Lanka") ("LR" "Liberia") ("LS" "Lesotho") ("LT" "Lithuania") ("LU" "Luxembourg") ("LV" "Latvia") ("LY" "Libyan Arab Jamahiriya") ("MA" "Morocco") ("MC" "Monaco") ("MD" "Moldova, Republic of") ("MG" "Madagascar") ("MH" "Marshall Islands") ("ML" "Mali") ("MN" "Mongolia") ("MM" "Myanmar") ("MO" "Macau") ("MP" "Northern Mariana Islands") ("MQ" "Martinique") ("MR" "Mauritania") ("MS" "Monserrat") ("MT" "Malta") ("MU" "Mauritius") ("MV" "Maldives") ("MW" "Malawi") ("MX" "Mexico") ("MY" "Malaysia") ("MZ" "Mozambique") ("NA" "Namibia") ("NC" "New Caledonia") ("NE" "Niger") ("NF" "Norfolk Island") ("NG" "Nigeria") ("NI" "Nicaragua") ("NL" "Netherlands") ("NO" "Norway") ("NP" "Nepal") ("NR" "Nauru") ("NT" "Neutral Zone (no longer exists)") ("NU" "Niue") ("NZ" "New Zealand") ("OM" "Oman") ("PA" "Panama") ("PE" "Peru") ("PF" "French Polynesia") ("PG" "Papua New Guinea") ("PH" "Philippines") ("PK" "Pakistan") ("PL" "Poland") ("PM" "St. Pierre & Miquelon") ("PN" "Pitcairn") ("PR" "Puerto Rico") ("PT" "Portugal") ("PW" "Palau") ("PY" "Paraguay") ("QA" "Qatar") ("RE" "Réunion") ("RO" "Romania") ("RU" "Russian Federation") ("RW" "Rwanda") ("SA" "Saudi Arabia") ("SB" "Solomon Islands") ("SC" "Seychelles") ("SD" "Sudan") ("SE" "Sweden") ("SG" "Singapore") ("SH" "St. Helena") ("SI" "Slovenia") ("SJ" "Svalbard & Jan Mayen Islands") ("SK" "Slovakia") ("SL" "Sierra Leone") ("SM" "San Marino") ("SN" "Senegal") ("SO" "Somalia") ("SR" "Suriname") ("ST" "Sao Tome & Principe") ("SU" "Union of Soviet Socialist Republics (no longer exists)") ("SV" "El Salvador") ("SY" "Syrian Arab Republic") ("SZ" "Swaziland") ("TC" "Turks & Caicos Islands") ("TD" "Chad") ("TF" "French Southern Territories") ("TG" "Togo") ("TH" "Thailand") ("TJ" "Tajikistan") ("TK" "Tokelau") ("TM" "Turkmenistan") ("TN" "Tunisia") ("TO" "Tonga") ("TP" "East Timor") ("TR" "Turkey") ("TT" "Trinidad & Tobago") ("TV" "Tuvalu") ("TW" "Taiwan, Province of China") ("TZ" "Tanzania, United Republic of") ("UA" "Ukraine") ("UG" "Uganda") ("UM" "United States Minor Outlying Islands") ("US" "United States of America") ("UY" "Uruguay") ("UZ" "Uzbekistan") ("VA" "Vatican City State (Holy See)") ("VC" "St. Vincent & the Grenadines") ("VE" "Venezuela") ("VG" "British Virgin Islands") ("VI" "United States Virgin Islands") ("VN" "Viet Nam") ("VU" "Vanuatu") ("WF" "Wallis & Futuna Islands") ("WS" "Samoa") ("YD" "Democratic Yemen (no longer exists)") ("YE" "Yemen") ("YT" "Mayotte") ("YU" "Yugoslavia") ("ZA" "South Africa") ("ZM" "Zambia") ("ZR" "Zaire") ("ZW" "Zimbabwe") ("ZZ" "Unknown or unspecified country")))