1if [ ! "$_TIMEZONE_MENUS_SUBR" ]; then _TIMEZONE_MENUS_SUBR=1
2#
3# Copyright (c) 2011-2012 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############################################################ INCLUDES
30
31BSDCFG_SHARE="/usr/share/bsdconfig"
32. $BSDCFG_SHARE/common.subr || exit 1
33f_dprintf "%s: loading includes..." timezone/menus.subr
34f_include $BSDCFG_SHARE/dialog.subr
35
36############################################################ GLOBALS
37
38#
39# Export special included variables required by awk(1) for `ENVIRON' visibility
40#
41export DIALOG_MENU_TAGS
42
43############################################################ FUNCTIONS
44
45# f_make_menus
46#
47# Creates the tag/item ordered-pair list environment variables for the
48# continent and country menus.
49#
50# Required variables [from continents.subr]:
51#
52# 	CONTINENTS
53# 		Space-separated list of continents.
54# 	continent_*_title
55# 		Desired menu text for the continent represented by *.
56#
57# Required variables [created by f_read_iso3166_table from iso3166.subr]:
58#
59# 	COUNTRIES
60# 		Space-separated list of 2-character country codes.
61# 	country_*_name :: when country_*_nzones < 0
62# 		Desired menu text for the country-zone represented by *, the 2-
63# 		character country code.
64#
65# Required variables [created by f_read_zones from zones.subr]:
66#
67# 	country_*_nzones
68# 		Number of zones for the country represented by *, the 2-
69# 		character country code. Should be -1 if the country has only
70# 		one single zone, otherwise 1 or greater to indicate how many
71# 		zones the country has.
72# 	country_*_cont :: when country_*_nzones < 0
73# 		Principal continent (or ocean) in which the country-zone
74# 		represented by *, the 2-character country code, resides.
75# 	country_*_cont_N :: when country_*_nzones > 0
76# 		Principal continent (or ocean) in which zone-N of the country
77# 		represented by * resides, the 2-character country code.
78# 	country_*_descr_N :: when country_*_nzones > 0
79# 		Desired submenu text for zone-N of the country represented by
80# 		*, the 2-character country code.
81#
82# Variables created by this function:
83#
84# 	continent_menu_list
85# 		Menu-list of continents.
86# 	continent_*_nitems
87# 		Number of items associated with the continent represented by *,
88# 		the continent identifier.
89# 	continent_*_tlc_N
90# 		2-character country code of the Nth item in the continent menu
91# 		for the continent represented by *, the continent identifier.
92# 	continent_*_menu_list
93# 		Menu-list of countries/zones for each continent represented by
94# 		*, the continent identifier.
95# 	country_*_menu_list
96# 		For countries that have multiple zones, this is the submenu-
97# 		list of zones for said country represented by *, the 2-
98# 		character country code.
99#
100# This function is a two-parter. Below is the awk(1) portion of the function,
101# afterward is the sh(1) function which utilizes the below awk script.
102#
103f_make_menus_awk='
104function add_zone_n_to_country_menu(tlc, n)
105{
106	zone_title = ENVIRON["country_" tlc "_descr_" n]
107	gsub(/'\''/, "'\''\\'\'\''", zone_title)
108	country_menu_list[tlc] = country_menu_list[tlc] \
109		( length(country_menu_list[tlc]) > 0 ? "\n" : "" ) \
110		n " '\''" zone_title "'\''"
111}
112BEGIN {
113	#
114	# First, count up all the countries in each continent/ocean.
115	# Be careful to count those countries which have multiple zones
116	# only once for each.  NB: some countries are in multiple
117	# continents/oceans.
118	#
119	i = split(ENVIRON["COUNTRIES"], countries, /[[:space:]]+/)
120	for (cp = 1; cp <= i; cp++)
121	{
122		tlc = countries[cp]
123		title = ENVIRON["country_" tlc "_name"]
124		gsub(/'\''/, "'\''\\'\'\''", title)
125		nzones = ENVIRON["country_" tlc "_nzones"]
126		if (!nzones)
127		{
128			# Country has no zones
129			continue
130		}
131		else if (nzones < 0)
132		{
133			# Country has only one zone
134			cont = ENVIRON["country_" tlc "_cont"]
135			nitems = ++continent_nitems[cont]
136			continent_tlc[cont,nitems] = tlc
137			continent_title[cont,nitems] = title
138		}
139		else
140		{
141			# Country has one or more zones
142			for (n = 1; n <= nzones; n++)
143			{
144				add_zone_n_to_country_menu(tlc, n)
145				cont = ENVIRON["country_" tlc "_cont_" n]
146				for (x = 1; x < n; x++)
147				{
148					contx = ENVIRON["country_"tlc"_cont_"x]
149					if (cont == contx) break
150				}
151				if (x == n)
152				{
153					nitems = ++continent_nitems[cont]
154					continent_tlc[cont,nitems] = tlc
155					continent_title[cont,nitems] = title
156				}
157			}
158		}
159	}
160}
161END {
162	tags = ENVIRON["DIALOG_MENU_TAGS"]
163	cont_menu_list = ""
164	tagn = 0
165
166	#
167	# Assemble the menu items in the menu list for each continent/ocean.
168	#
169	i = split(ENVIRON["CONTINENTS"], array, /[[:space:]]+/)
170	for (item = 1; item <= i; item++)
171	{
172		cont = array[item]
173		if (!cont) continue
174
175		if (++tagn >= length(tags)) break
176		tag = substr(tags, tagn, 1)
177		cont_menu_list = cont_menu_list \
178			( length(cont_menu_list) > 0 ? "\n" : "" ) \
179			"'\''" tag "'\'' '\''" \
180			ENVIRON["continent_" cont "_title"] "'\''"
181
182		nitems = continent_nitems[cont]
183		printf "continent_%s_nitems=%d\n", cont, nitems
184
185		menu_list = ""
186		for (n = 1; n <= nitems; n++)
187		{
188			printf "continent_%s_tlc_%d=%s\n",
189			       cont, n, continent_tlc[cont,n]
190
191			title = continent_title[cont,n]
192			menu_list = menu_list \
193				( length(menu_list) > 0 ? "\n" : "" ) \
194				n " '\''" title "'\''"
195		}
196
197		gsub(/"/, "\\\"", menu_list)
198		printf "continent_%s_menu_list=\"%s\"\n", cont, menu_list
199	}
200
201	gsub(/"/, "\\\"", continent_menu_list)
202	printf "continent_menu_list=\"%s\"\n", cont_menu_list
203	print "export continent_menu_list"
204
205	#
206	# Dump the submenus of countries with multiple zones
207	#
208	for (tlc in country_menu_list)
209	{
210		menu_list = country_menu_list[tlc]
211		gsub(/"/, "\\\"", menu_list)
212		printf "country_%s_menu_list=\"%s\"\n", tlc, menu_list
213	}
214}
215'
216f_make_menus()
217{
218	eval $( :| awk "$f_make_menus_awk" )
219}
220
221############################################################ MAIN
222
223f_dprintf "%s: Successfully loaded." timezone/menus.subr
224
225fi # ! $_TIMEZONE_MENUS_SUBR
226