summaryrefslogtreecommitdiffstats
path: root/mdk-stage1/frontend.h
blob: 1737ee7e733615105928f5d5852c8901d49915d8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
/*
 * Guillaume Cottenceau (gc@mandrakesoft.com)
 *
 * Copyright 2000 Mandrakesoft
 *
 * This software may be freely redistributed under the terms of the GNU
 * public license.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 */

/*
 * For doc please read doc/documented..frontend.h
 */

#ifndef _FRONTEND_H_
#define _FRONTEND_H_

#include <stdarg.h>

/* 'unused' atttribute, gcc specific and just to turn down some warnings.  */
#if defined __GNUC__
#define UNUSED __attribute__((unused))
#else
#define UNUSED
#endif

enum return_type { RETURN_OK, RETURN_BACK, RETURN_ERROR };

void init_frontend(char * welcome_msg);
void finish_frontend(void);

void error_message(char *msg, ...) __attribute__ ((format (printf, 1, 2))); /* blocking */
void info_message(char *msg, ...) __attribute__ ((format (printf, 1, 2))); /* blocking */
void wait_message(char *msg, ...) __attribute__ ((format (printf, 1, 2))); /* non-blocking */
void remove_wait_message(void);

void init_progression_raw(char *msg, int size);
void update_progression_raw(int current_size);
void end_progression_raw(void);

#ifdef ENABLE_BOOTSPLASH
void init_progression(char *msg, int size);
void update_progression(int current_size);
void end_progression(void);
#else
#define init_progression init_progression_raw
#define update_progression update_progression_raw
#define end_progression end_progression_raw
#endif

enum return_type ask_yes_no(char *msg);
enum return_type ask_from_list(char *msg, char ** elems, char ** choice);
enum return_type ask_from_list_comments(char *msg, char ** elems, char ** elems_comments, char ** choice);
enum return_type ask_from_entries(char *msg, char ** questions, char *** answers, int entry_size, void (*callback_func)(char ** strings));

void suspend_to_console(void);
void resume_from_suspend(void);

void verror_message(char *msg, va_list ap);
void vinfo_message(char *msg, va_list ap);
void vwait_message(char *msg, va_list ap);

#endif
s="hl slc"># > the few nanoseconds difference. #parse() while <F>; parse($_) while <$G>; my @all; my ($l, $nb); sub parse { local ($_) = @_; /Active Servers/ .. /Discontinued Service/ or return; if (/^\s+\d+\. ([A-Z ]*[A-Z]);?\s+([.\w-]+)/) { push @all, $l = { name => $2, indic => $1 }; $nb = 0; } else { s/^\s*//; s/\s*$//; my ($field, $val) = /^(.*):\s*(.*)/; if ($field =~ /policy/i) { $field = "policy"; $val = lc join(' ', split(' ', $val)); $val =~ s/glad to receive a note//; $val =~ s/(but )?please send (a )?message to notify//; $val =~ s/an email note is appreciated//; $val =~ s/please send a message with the//; $val =~ s/no need to notify//; $val =~ s/[(), .;]*$//; $val = "open access" if $val eq "public"; warn "$val ($all[-1]{name})\n" if $val ne 'open access'; } elsif ($field =~ /^Contact|Synchroni[sz]ation|Location|Geographic\s+Coordinates|Service\s+Area|Note$/i) { } else { # warn "bad line ($field) $_\n"; return; } $l->{$field} .= ($l->{$field} && ' ') . $val; } $nb++; } use Data::Dumper; #warn Dumper(\@all); foreach (grep { $_->{policy} eq 'open access' } @all) { my ($country, $state) = split ' ', $_->{indic}; $country = ucfirst(lc $country_codes{$country}); $country .= " $state" if $state; printf "\t'%s' => '%s',\n", lc($_->{name}), $country; } BEGIN { %country_codes = ( # from ftp://ftp.ripe.net/iso3166-countrycodes "AF", "AFGHANISTAN", "AL", "ALBANIA", "DZ", "ALGERIA", "AS", "AMERICAN SAMOA", "AD", "ANDORRA", "AO", "ANGOLA", "AI", "ANGUILLA", "AQ", "ANTARCTICA", "AG", "ANTIGUA AND BARBUDA", "AR", "ARGENTINA", "AM", "ARMENIA", "AW", "ARUBA", "AU", "AUSTRALIA", "AT", "AUSTRIA", "AZ", "AZERBAIJAN", "BS", "BAHAMAS", "BH", "BAHRAIN", "BD", "BANGLADESH", "BB", "BARBADOS", "BY", "BELARUS", "BE", "BELGIUM", "BZ", "BELIZE", "BJ", "BENIN", "BM", "BERMUDA", "BT", "BHUTAN", "BO", "BOLIVIA", "BA", "BOSNIA AND HERZEGOWINA", "BW", "BOTSWANA", "BV", "BOUVET ISLAND", "BR", "BRAZIL", "IO", "BRITISH INDIAN OCEAN TERRITORY", "BN", "BRUNEI DARUSSALAM", "BG", "BULGARIA", "BF", "BURKINA FASO", "BI", "BURUNDI", "KH", "CAMBODIA", "CM", "CAMEROON", "CA", "CANADA", "CV", "CAPE VERDE", "KY", "CAYMAN ISLANDS", "CF", "CENTRAL AFRICAN REPUBLIC", "TD", "CHAD", "CL", "CHILE", "CN", "CHINA", "CX", "CHRISTMAS ISLAND", "CC", "COCOS (KEELING) ISLANDS", "CO", "COLOMBIA", "KM", "COMOROS", "CG", "CONGO", "CD", "CONGO, THE DEMOCRATIC REPUBLIC OF THE", "CK", "COOK ISLANDS", "CR", "COSTA RICA", "CI", "COTE D'IVOIRE", "HR", "CROATIA", "CU", "CUBA", "CY", "CYPRUS", "CZ", "CZECH REPUBLIC", "DK", "DENMARK", "DJ", "DJIBOUTI", "DM", "DOMINICA", "DO", "DOMINICAN REPUBLIC", "TP", "EAST TIMOR", "EC", "ECUADOR", "EG", "EGYPT", "SV", "EL SALVADOR", "GQ", "EQUATORIAL GUINEA", "ER", "ERITREA", "EE", "ESTONIA", "ET", "ETHIOPIA", "FK", "FALKLAND ISLANDS (MALVINAS)", "FO", "FAROE ISLANDS", "FJ", "FIJI", "FI", "FINLAND", "FR", "FRANCE", "FX", "FRANCE, METROPOLITAN", "GF", "FRENCH GUIANA", "PF", "FRENCH POLYNESIA", "TF", "FRENCH SOUTHERN TERRITORIES", "GA", "GABON", "GM", "GAMBIA", "GE", "GEORGIA", "DE", "GERMANY", "GH", "GHANA", "GI", "GIBRALTAR", "GR", "GREECE", "GL", "GREENLAND", "GD", "GRENADA", "GP", "GUADELOUPE", "GU", "GUAM", "GT", "GUATEMALA", "GN", "GUINEA", "GW", "GUINEA-BISSAU", "GY", "GUYANA", "HT", "HAITI", "HM", "HEARD AND MC DONALD ISLANDS", "VA", "HOLY SEE (VATICAN CITY STATE)", "HN", "HONDURAS", "HK", "HONG KONG", "HU", "HUNGARY", "IS", "ICELAND", "IN", "INDIA", "ID", "INDONESIA", "IR", "IRAN (ISLAMIC REPUBLIC OF)", "IQ", "IRAQ", "IE", "IRELAND", "IL", "ISRAEL", "IT", "ITALY", "JM", "JAMAICA", "JP", "JAPAN", "JO", "JORDAN", "KZ", "KAZAKHSTAN", "KE", "KENYA", "KI", "KIRIBATI", "KP", "KOREA, DEMOCRATIC PEOPLE'S REPUBLIC OF", "KR", "KOREA, REPUBLIC OF", "KW", "KUWAIT", "KG", "KYRGYZSTAN", "LA", "LAO PEOPLE'S DEMOCRATIC REPUBLIC", "LV", "LATVIA", "LB", "LEBANON", "LS", "LESOTHO", "LR", "LIBERIA", "LY", "LIBYAN ARAB JAMAHIRIYA", "LI", "LIECHTENSTEIN", "LT", "LITHUANIA", "LU", "LUXEMBOURG", "MO", "MACAU", "MK", "MACEDONIA, THE FORMER YUGOSLAV REPUBLIC OF", "MG", "MADAGASCAR", "MW", "MALAWI", "MY", "MALAYSIA", "MV", "MALDIVES", "ML", "MALI", "MT", "MALTA", "MH", "MARSHALL ISLANDS", "MQ", "MARTINIQUE", "MR", "MAURITANIA", "MU", "MAURITIUS", "YT", "MAYOTTE", "MX", "MEXICO", "FM", "MICRONESIA, FEDERATED STATES OF", "MD", "MOLDOVA, REPUBLIC OF", "MC", "MONACO", "MN", "MONGOLIA", "MS", "MONTSERRAT", "MA", "MOROCCO", "MZ", "MOZAMBIQUE", "MM", "MYANMAR", "NA", "NAMIBIA", "NR", "NAURU", "NP", "NEPAL", "NL", "NETHERLANDS", "AN", "NETHERLANDS ANTILLES", "NC", "NEW CALEDONIA", "NZ", "NEW ZEALAND", "NI", "NICARAGUA", "NE", "NIGER", "NG", "NIGERIA", "NU", "NIUE", "NF", "NORFOLK ISLAND", "MP", "NORTHERN MARIANA ISLANDS", "NO", "NORWAY", "OM", "OMAN", "PK", "PAKISTAN", "PW", "PALAU", "PA", "PANAMA", "PG", "PAPUA NEW GUINEA", "PY", "PARAGUAY", "PE", "PERU", "PH", "PHILIPPINES", "PN", "PITCAIRN", "PL", "POLAND", "PT", "PORTUGAL", "PR", "PUERTO RICO", "QA", "QATAR", "RE", "REUNION", "RO", "ROMANIA", "RU", "RUSSIA", "RW", "RWANDA", "KN", "SAINT KITTS AND NEVIS", "LC", "SAINT LUCIA", "VC", "SAINT VINCENT AND THE GRENADINES", "WS", "SAMOA", "SM", "SAN MARINO", "ST", "SAO TOME AND PRINCIPE", "SA", "SAUDI ARABIA", "SN", "SENEGAL", "SC", "SEYCHELLES", "SL", "SIERRA LEONE", "SG", "SINGAPORE", "SK", "SLOVAKIA (Slovak Republic)", "SI", "SLOVENIA", "SB", "SOLOMON ISLANDS", "SO", "SOMALIA", "ZA", "SOUTH AFRICA", "GS", "SOUTH GEORGIA AND THE SOUTH SANDWICH ISLANDS", "ES", "SPAIN", "LK", "SRI LANKA", "SH", "ST. HELENA", "PM", "ST. PIERRE AND MIQUELON", "SD", "SUDAN", "SR", "SURINAME", "SJ", "SVALBARD AND JAN MAYEN ISLANDS", "SZ", "SWAZILAND", "SE", "SWEDEN", "CH", "SWITZERLAND", "SY", "SYRIAN ARAB REPUBLIC", "TW", "TAIWAN, PROVINCE OF CHINA", "TJ", "TAJIKISTAN", "TZ", "TANZANIA, UNITED REPUBLIC OF", "TH", "THAILAND", "TG", "TOGO", "TK", "TOKELAU", "TO", "TONGA", "TT", "TRINIDAD AND TOBAGO", "TN", "TUNISIA", "TR", "TURKEY", "TM", "TURKMENISTAN", "TC", "TURKS AND CAICOS ISLANDS", "TV", "TUVALU", "UG", "UGANDA", "UA", "UKRAINE", "AE", "UNITED ARAB EMIRATES", "GB", "UNITED KINGDOM", "US", "UNITED STATES", "UM", "UNITED STATES MINOR OUTLYING ISLANDS", "UY", "URUGUAY", "UZ", "UZBEKISTAN", "VU", "VANUATU", "VE", "VENEZUELA", "VN", "VIET NAM", "VG", "VIRGIN ISLANDS (BRITISH)", "VI", "VIRGIN ISLANDS (U.S.)", "WF", "WALLIS AND FUTUNA ISLANDS", "EH", "WESTERN SAHARA", "YE", "YEMEN", "YU", "YUGOSLAVIA", "ZM", "ZAMBIA", "ZW", "ZIMBABWE", #added "UK", "UNITED KINGDOM", ); }