1if [ ! "$_TIMEZONE_COUNTRIES_SUBR" ]; then _TIMEZONE_COUNTRIES_SUBR=1 2# 3# Copyright (c) 2011-2015 Devin Teske 4# All rights reserved. 5# 6# Redistribution and use in source and binary forms, with or without 7# modification, are permitted provided that the following conditions 8# are met: 9# 1. Redistributions of source code must retain the above copyright 10# notice, this list of conditions and the following disclaimer. 11# 2. Redistributions in binary form must reproduce the above copyright 12# notice, this list of conditions and the following disclaimer in the 13# documentation and/or other materials provided with the distribution. 14# 15# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 16# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 17# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 18# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 19# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 20# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 21# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 22# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 23# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 24# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 25# SUCH DAMAGE. 26# 27# $FreeBSD$ 28# 29############################################################ FUNCTIONS 30 31# f_country $code $property [$var_to_set] 32# 33# Returns a single property of a given country. Available properties are: 34# 35# name Name of the country as read from _PATH_ISO3166. 36# nzones Number of zones within the country (-1 if country has 37# only a single zone). 38# filename The filename portion of the TZ field (after the `/') as 39# read from _PATH_ZONETAB. 40# cont The principal continent in which the country lies (appears 41# before the `/' in the TZ field of _PATH_ZONETAB). 42# filename_N Like filename, but for the Nth zone when the country has 43# multiple zones (nzones > 0). 44# cont_N Like cont, but for the Nth zone when the country has 45# multiple zones (nzones > 0). 46# descr_N Like name, but for the Nth zone when the country has 47# multiple zones (nzones > 0) 48# 49# If $var_to_set is missing or NULL, the value of $var_to_get is printed to 50# standard output for capturing in a sub-shell (which is less-recommended 51# because of performance degredation; for example, when called in a loop). 52# 53f_country() 54{ 55 f_getvar "country_${1}_$2" $3 56} 57 58# f_sort_countries 59# 60# Sorts alphabetically the 2-character country codes listed in $COUNTRIES based 61# on the name of each country. 62# 63# This function is a two-parter. Below is the awk(1) portion of the function, 64# afterward is the sh(1) function which utilizes the below awk script. 65# 66f_sort_countries_awk=' 67function _asorti(src, dest) 68{ 69 k = nitems = 0 70 for (i in src) dest[++nitems] = i 71 for (i = 1; i <= nitems; k = i++) { 72 idx = dest[i] 73 while ((k > 0) && (dest[k] > idx)) { 74 dest[k+1] = dest[k]; k-- 75 } 76 dest[k+1] = idx 77 } 78 return nitems 79} 80BEGIN { 81 split(ENVIRON["COUNTRIES"], array, /[[:space:]]+/) 82 for (item in array) 83 { 84 tlc = array[item] 85 name = ENVIRON["country_" tlc "_name"] 86 countries[name] = tlc 87 } 88 n = _asorti(countries, sorted_countries) 89 for (i = 1; i <= n; i++) 90 print countries[sorted_countries[i]] 91 exit 92} 93' 94f_sort_countries() 95{ 96 export COUNTRIES # for awk(1) ENVIRON[] visibility 97 COUNTRIES=$( awk "$f_sort_countries_awk" ) 98 export COUNTRIES # Pedantic 99} 100 101############################################################ MAIN 102 103f_dprintf "%s: Successfully loaded." timezone/countries.subr 104 105fi # ! $_TIMEZONE_COUNTRIES_SUBR 106