Import macOS userland

adv_cmds-176
basic_cmds-55
bootstrap_cmds-116.100.1
developer_cmds-66
diskdev_cmds-667.40.1
doc_cmds-53.60.1
file_cmds-321.40.3
mail_cmds-35
misc_cmds-34
network_cmds-606.40.1
patch_cmds-17
remote_cmds-63
shell_cmds-216.60.1
system_cmds-880.60.2
text_cmds-106

2 files changed, 529 insertions, 0 deletions

diff --git a/adv_cmds/locale/locale.1 b/adv_cmds/locale/locale.1
new file mode 100644
index 0000000..e4df365
--- /dev/null
+++ b/adv_cmds/locale/locale.1
@@ -0,0 +1,101 @@
+.\"Modified from man(1) of FreeBSD, the NetBSD mdoc.template, and mdoc.samples.
+.\"See Also:
+.\"man mdoc.samples for a complete listing of options
+.\"man mdoc for the short list of editing options
+.\"/usr/share/misc/mdoc.template
+.Dd August 27, 2004
+.Dt LOCALE 1
+.Os Darwin
+.Sh NAME
+.Nm locale
+.Nd display locale settings
+.Sh SYNOPSIS
+.Nm
+.Op Fl a|m
+.Nm
+.Op Fl ck
+.Ar name 
+.Op ...
+.Sh DESCRIPTION
+.Nm
+displays information about the current locale, or a list of all available 
+locales.
+.Pp
+When
+.Nm
+is run with no arguments,
+it will display the current source of each locale category.
+.Pp
+When
+.Nm
+is given the name of a category,
+it acts as if it had been given each keyword in that category.
+For each keyword it is given, the current value
+is displayed.
+.Sh OPTIONS
+.Bl -tag -width -indent
+.It Fl a
+Lists all public locales.
+.It Fl c Ar name ...
+Lists the category name before each keyword,
+unless it is the same category as the previously displayed keyword.
+.It Fl k Ar name ...
+Displays the name of each keyword prior to its value.
+.It Fl m
+Lists all available public charmaps.
+Darwin locales do not support charmaps, so list all CODESETs instead.
+.El
+.Pp
+.Sh OPERANDS
+The following operand is supported:
+.Pp
+.Ar name
+is the name of a keyword or category to display.  A list of all keywords
+and categories can be shown with the following command:
+.Bd -literal
+locale -ck LC_ALL
+.Ed
+.Pp
+.Sh ENVIRONMENT
+.Bl -tag -width "LC_MESSAGES"
+.It Ev LANG
+Used as a substitute for any unset 
+.Ev LC_* 
+variable.  If
+.Ev LANG
+is unset, it will act as if set to "C".  If any of
+.Ev LANG
+or
+.Ev LC_*
+are set to invalid values,
+.Nm
+acts as if they are all unset.
+.It Ev LC_ALL
+Will override the setting of all other
+.Ev LC_*
+variables.
+.It Ev LC_COLLATE
+Sets the locale for the LC_COLLATE category.
+.It Ev LC_CTYPE
+Sets the locale for the LC_CTYPE category.
+.It Ev LC_MESSAGES
+Sets the locale for the LC_MESSAGES category.
+.It Ev LC_MONETARY
+Sets the locale for the LC_MONETARY category.
+.It Ev LC_NUMERIC
+Sets the locale for the LC_NUMERIC category.
+.It Ev LC_TIME
+Sets the locale for the LC_TIME category.
+.El                      
+.Sh SEE ALSO 
+.Xr localedef 1 , 
+.Xr localeconv 3 ,
+.Xr nl_langinfo 3 ,
+.Xr setlocale 3
+.Sh STANDARDS
+The
+.Nm
+utility conforms to IEEE Std 1003.1-2001 (``POSIX.1'').
+.Sh HISTORY
+.Nm
+appeared in Mac OS X 10.4
diff --git a/adv_cmds/locale/locale.cc b/adv_cmds/locale/locale.cc
new file mode 100644
index 0000000..88c7784
--- /dev/null
+++ b/adv_cmds/locale/locale.cc
@@ -0,0 +1,428 @@
+#include <iostream>
+#include <sstream>
+#include <map>
+#include <set>
+#include <vector>
+#include <algorithm>
+
+#include <unistd.h>
+#include <langinfo.h>
+#include <locale.h>
+#include <xlocale.h>
+#include <sys/types.h>
+#include <dirent.h>
+
+#define LAST(array) array + (sizeof(array) / sizeof(*array))
+
+#define LC_SPECIAL (LC_COLLATE+LC_CTYPE+LC_MESSAGES+LC_MONETARY+LC_NUMERIC+LC_TIME)
+
+using namespace std;
+
+enum vtype {
+	V_STR, V_NUM
+};
+
+template<typename T> string tostr(T val) {
+	ostringstream ss;
+	ss << val;
+	return ss.str();
+}
+
+string quote(string s) {
+	return '"' + s + '"';
+}
+
+class keyword {
+  public:
+	virtual string get_category() const { return category; }
+	virtual string get_keyword() const { return kword; }
+	virtual string get_value(bool show_quotes) const {
+	  return (show_quotes && t == V_STR) ? quote(value) : value; }
+	
+	virtual ~keyword() { }
+  protected:
+	keyword(int category_, string kword, string value, vtype t)
+	  : kword(kword), value(value), t(t) {
+		switch(category_) {
+			case LC_COLLATE:
+				category = "LC_COLLATE";
+				break;
+			case LC_CTYPE:
+				category = "LC_CTYPE";
+				break;
+			case LC_MESSAGES:
+				category = "LC_MESSAGES";
+				break;
+			case LC_MONETARY:
+				category = "LC_MONETARY";
+				break;
+			case LC_NUMERIC:
+				category = "LC_NUMERIC";
+				break;
+			case LC_TIME:
+				category = "LC_TIME";
+				break;
+			case LC_SPECIAL:
+				category = "LC_SPECIAL";
+				break;
+			default:
+				{
+					ostringstream lc;
+					lc << "LC_" << category_;
+					category = lc.str();
+				}
+				break;
+		}
+	}
+
+	string category, kword, value;
+	vtype t;
+};
+
+struct keyword_cmp {
+	bool operator()(const keyword *a, const keyword *b) const {
+		return a->get_category() < b->get_category();
+	}
+};
+
+class li_keyword : public keyword {
+  public:
+	li_keyword(int category, string kword, int itemnum, vtype t = V_STR)
+	  : keyword(category, kword, nl_langinfo(itemnum), t) { }
+};
+
+class lia_keyword : public keyword {
+  protected:
+	vector<string> values;
+  public:
+	virtual string get_value(bool show_quotes) const {
+		ostringstream ss;
+		vector<string>::const_iterator s(values.begin()), e(values.end()), i(s);
+
+		for(; i < e; ++i) {
+			if (i != s) {
+				ss << ';';
+			}
+			if (show_quotes && t == V_STR) {
+				ss << quote(*i);
+			} else {
+				ss << *i;
+			}
+		}
+
+		return ss.str();
+	}
+
+	lia_keyword(int category, string kword, int *s, int *e, vtype t = V_STR)
+	  : keyword(category, kword, "", t) {
+		for(; s < e; ++s) {
+			values.push_back(nl_langinfo(*s));
+		}
+	}
+};
+
+class lc_keyword : public keyword {
+  public:
+	lc_keyword(int category, string kword, string value, vtype t = V_STR)
+	  : keyword(category, kword, value, t) { }
+};
+
+void usage(char *argv0) {
+	clog << "usage: " << argv0 << "[-a|-m]\n   or: "
+	  << argv0 << " [-cCk] name..." << endl;
+}
+
+void list_all_valid_locales() {
+	string locale_dir("/usr/share/locale");
+	bool found_C = false, found_POSIX = false;
+	DIR *d = opendir(locale_dir.c_str());
+	struct dirent *de;
+	static string expected[] = { "LC_COLLATE", "LC_CTYPE", "LC_MESSAGES",
+	  "LC_NUMERIC", "LC_TIME" };
+
+	for(de = readdir(d); de; de = readdir(d)) {
+		string lname(de->d_name, de->d_namlen);
+		string ldir(locale_dir + "/" + lname);
+		int cnt = 0;
+		DIR *ld = opendir(ldir.c_str());
+		if (ld) {
+			struct dirent *lde;
+			for(lde = readdir(ld); lde; lde = readdir(ld)) {
+				string fname(lde->d_name, lde->d_namlen);
+				if (LAST(expected) != find(expected, LAST(expected), fname)) {
+					cnt++;
+				}
+			}
+			closedir(ld);
+
+			if (cnt == LAST(expected) - expected) {
+				cout << lname << endl;
+				if (lname == "C") {
+					found_C = true;
+				}
+				if (lname == "POSIX") {
+					found_POSIX = true;
+				}
+			}
+		}
+	}
+	closedir(d);
+	if (!found_C) {
+		cout << "C" << endl;
+	}
+	if (!found_POSIX) {
+		cout << "POSIX" << endl;
+	}
+}
+
+void show_all_unique_codesets() {
+	string locale_dir("/usr/share/locale");
+	DIR *d = opendir(locale_dir.c_str());
+	struct dirent *de;
+	static string expected[] = { "LC_COLLATE", "LC_CTYPE", "LC_MESSAGES",
+	  "LC_NUMERIC", "LC_TIME" };
+	set<string> codesets;
+	for(de = readdir(d); de; de = readdir(d)) {
+		string lname(de->d_name, de->d_namlen);
+		string ldir(locale_dir + "/" + lname);
+		int cnt = 0;
+		DIR *ld = opendir(ldir.c_str());
+		if (ld) {
+			struct dirent *lde;
+			for(lde = readdir(ld); lde; lde = readdir(ld)) {
+				string fname(lde->d_name, lde->d_namlen);
+				if (LAST(expected) != find(expected, LAST(expected), fname)) {
+					cnt++;
+				}
+			}
+			closedir(ld);
+
+			if (cnt == LAST(expected) - expected) {
+				locale_t xloc = newlocale(LC_ALL_MASK, lname.c_str(), NULL);
+				if (xloc) {
+					char *cs = nl_langinfo_l(CODESET, xloc);
+					if (cs && *cs && (codesets.find(cs) == codesets.end())) {
+						cout << cs << endl;
+						codesets.insert(cs);
+					}
+					freelocale(xloc);
+				}
+			}
+		}
+	}
+	closedir(d);
+}
+
+typedef map<string, keyword *> keywords_t;
+keywords_t keywords;
+
+typedef map<string, vector<keyword *> > catorgies_t;
+catorgies_t catoriges;
+
+void add_kw(keyword *k) {
+	keywords.insert(make_pair(k->get_keyword(), k));
+	catorgies_t::iterator c = catoriges.find(k->get_category());
+	if (c != catoriges.end()) {
+		c->second.push_back(k);
+	} else {
+		vector<keyword *> v;
+		v.push_back(k);
+		catoriges.insert(make_pair(k->get_category(), v));
+	}
+}
+
+string grouping(char *g) {
+	ostringstream ss;
+	if (*g == 0) {
+	    ss << "0";
+	} else {
+	    ss << static_cast<int>(*g);
+	    while(*++g) {
+		ss << ";" << static_cast<int>(*g);
+	    }
+	}
+	return ss.str();
+}
+
+void init_keywords() {
+	struct lconv *lc = localeconv();
+	if (lc) {
+		add_kw(new lc_keyword(LC_NUMERIC, "decimal_point", lc->decimal_point));
+		add_kw(new lc_keyword(LC_NUMERIC, "thousands_sep", lc->thousands_sep));
+		add_kw(new lc_keyword(LC_NUMERIC, "grouping", grouping(lc->grouping)));
+		add_kw(new lc_keyword(LC_MONETARY, "int_curr_symbol", lc->int_curr_symbol));
+		add_kw(new lc_keyword(LC_MONETARY, "currency_symbol", lc->currency_symbol));
+		add_kw(new lc_keyword(LC_MONETARY, "mon_decimal_point", lc->mon_decimal_point));
+		add_kw(new lc_keyword(LC_MONETARY, "mon_thousands_sep", lc->mon_thousands_sep));
+		add_kw(new lc_keyword(LC_MONETARY, "mon_grouping", grouping(lc->mon_grouping)));
+		add_kw(new lc_keyword(LC_MONETARY, "positive_sign", lc->positive_sign));
+		add_kw(new lc_keyword(LC_MONETARY, "negative_sign", lc->negative_sign));
+		add_kw(new lc_keyword(LC_MONETARY, "int_frac_digits", tostr((int)lc->int_frac_digits), V_NUM));
+		add_kw(new lc_keyword(LC_MONETARY, "frac_digits", tostr((int)lc->frac_digits), V_NUM));
+		add_kw(new lc_keyword(LC_MONETARY, "p_cs_precedes", tostr((int)lc->p_cs_precedes), V_NUM));
+		add_kw(new lc_keyword(LC_MONETARY, "p_sep_by_space", tostr((int)lc->p_sep_by_space), V_NUM));
+		add_kw(new lc_keyword(LC_MONETARY, "n_cs_precedes", tostr((int)lc->n_cs_precedes), V_NUM));
+		add_kw(new lc_keyword(LC_MONETARY, "n_sep_by_space", tostr((int)lc->n_sep_by_space), V_NUM));
+		add_kw(new lc_keyword(LC_MONETARY, "p_sign_posn", tostr((int)lc->p_sign_posn), V_NUM));
+		add_kw(new lc_keyword(LC_MONETARY, "n_sign_posn", tostr((int)lc->n_sign_posn), V_NUM));
+		add_kw(new lc_keyword(LC_MONETARY, "int_p_cs_precedes", tostr((int)lc->int_p_cs_precedes), V_NUM));
+		add_kw(new lc_keyword(LC_MONETARY, "int_n_cs_precedes", tostr((int)lc->int_n_cs_precedes), V_NUM));
+		add_kw(new lc_keyword(LC_MONETARY, "int_p_sep_by_space", tostr((int)lc->int_p_sep_by_space), V_NUM));
+		add_kw(new lc_keyword(LC_MONETARY, "int_n_sep_by_space", tostr((int)lc->int_n_sep_by_space), V_NUM));
+		add_kw(new lc_keyword(LC_MONETARY, "int_p_sign_posn", tostr((int)lc->int_p_sign_posn), V_NUM));
+		add_kw(new lc_keyword(LC_MONETARY, "int_n_sign_posn", tostr((int)lc->int_n_sign_posn), V_NUM));
+	}
+
+	int abdays[] = {ABDAY_1, ABDAY_2, ABDAY_3, ABDAY_4, ABDAY_5, ABDAY_6, ABDAY_7};
+	add_kw(new lia_keyword(LC_TIME, "ab_day", abdays, LAST(abdays)));
+	add_kw(new lia_keyword(LC_TIME, "abday", abdays, LAST(abdays)));
+
+	int days[] = {DAY_1, DAY_2, DAY_3, DAY_4, DAY_5, DAY_6, DAY_7};
+	add_kw(new lia_keyword(LC_TIME, "day", days, LAST(days)));
+
+	int abmons[] = {ABMON_1, ABMON_2, ABMON_3, ABMON_4, ABMON_5, ABMON_6, ABMON_7, ABMON_8, ABMON_9, ABMON_10, ABMON_11, ABMON_12};
+	add_kw(new lia_keyword(LC_TIME, "abmon", abmons, LAST(abmons)));
+
+	int mons[] = {MON_1, MON_2, MON_3, MON_4, MON_5, MON_6, MON_7, MON_8, MON_9, MON_10, MON_11, MON_12};
+	add_kw(new lia_keyword(LC_TIME, "mon", mons, LAST(mons)));
+
+	int am_pms[] = {AM_STR, PM_STR};
+	add_kw(new lia_keyword(LC_TIME, "am_pm", am_pms, LAST(am_pms)));
+
+	add_kw(new li_keyword(LC_TIME, "t_fmt_ampm", T_FMT_AMPM));
+	add_kw(new li_keyword(LC_TIME, "era", ERA));
+	add_kw(new li_keyword(LC_TIME, "era_d_fmt", ERA_D_FMT));
+	add_kw(new li_keyword(LC_TIME, "era_t_fmt", ERA_T_FMT));
+	add_kw(new li_keyword(LC_TIME, "era_d_t_fmt", ERA_D_T_FMT));
+	add_kw(new li_keyword(LC_TIME, "alt_digits", ALT_DIGITS));
+
+	add_kw(new li_keyword(LC_TIME, "d_t_fmt", D_T_FMT));
+	add_kw(new li_keyword(LC_TIME, "d_fmt", D_FMT));
+	add_kw(new li_keyword(LC_TIME, "t_fmt", T_FMT));
+
+	add_kw(new li_keyword(LC_MESSAGES, "yesexpr", YESEXPR));
+	add_kw(new li_keyword(LC_MESSAGES, "noexpr", NOEXPR));
+	add_kw(new li_keyword(LC_MESSAGES, "yesstr", YESSTR));
+	add_kw(new li_keyword(LC_MESSAGES, "nostr", NOSTR));
+
+	add_kw(new li_keyword(LC_CTYPE, "charmap", CODESET));
+	add_kw(new lc_keyword(LC_SPECIAL, "categories", "LC_COLLATE LC_CTYPE LC_MESSAGES LC_MONETARY LC_NUMERIC LC_TIME"));
+
+	// add_kw: CRNCYSTR D_MD_ORDER CODESET RADIXCHAR THOUSEP
+}
+
+void show_keyword(string &last_cat, bool sw_categories, bool sw_keywords, 
+  keyword *k) {
+	if (sw_categories && last_cat != k->get_category()) {
+		last_cat = k->get_category();
+		cout << last_cat << endl;
+	}
+	if (sw_keywords) {
+		cout << k->get_keyword() << "=";
+	}
+	cout << k->get_value(sw_keywords) << endl;
+}
+
+int main(int argc, char *argv[]) {
+	int sw; 
+	bool sw_all_locales = false, sw_categories = false, sw_keywords = false,
+	  sw_charmaps = false;
+
+	while(-1 != (sw = getopt(argc, argv, "ackm"))) {
+		switch(sw) {
+			case 'a':
+				sw_all_locales = true;
+				break;
+			case 'c':
+				sw_categories = true;
+				break;
+			case 'k':
+				sw_keywords = true;
+				break;
+			case 'm':
+				sw_charmaps = true;
+				break;
+			default:
+				usage(argv[0]);
+				exit(1);
+		}
+	}
+
+	if ((sw_all_locales && sw_charmaps)
+	  || ((sw_all_locales || sw_charmaps) && (sw_keywords || sw_categories))
+	  ) {
+		usage(argv[0]);
+		exit(1);
+	}
+
+	setlocale(LC_ALL, "");
+
+	if (!(sw_all_locales || sw_categories || sw_keywords || sw_charmaps)
+	  && argc == optind) {
+		char *lang = getenv("LANG");
+		cout << "LANG=" << quote(lang ? lang : "") << endl;
+		cout << "LC_COLLATE=" << quote(setlocale(LC_COLLATE, NULL)) << endl;
+		cout << "LC_CTYPE=" << quote(setlocale(LC_CTYPE, NULL)) << endl;
+		cout << "LC_MESSAGES=" << quote(setlocale(LC_MESSAGES, NULL)) << endl;
+		cout << "LC_MONETARY=" << quote(setlocale(LC_MONETARY, NULL)) << endl;
+		cout << "LC_NUMERIC=" << quote(setlocale(LC_NUMERIC, NULL)) << endl;
+		cout << "LC_TIME=" << quote(setlocale(LC_TIME, NULL)) << endl;
+		if (getenv("LC_ALL")) {
+		    cout << "LC_ALL=" << quote(setlocale(LC_ALL, NULL)) << endl;
+		} else {
+		    cout << "LC_ALL=" << endl;
+		}
+
+		return 0;
+	}
+
+	if (sw_all_locales) {
+		list_all_valid_locales();
+		return 0;
+	}
+
+	if (sw_charmaps) {
+	        show_all_unique_codesets();
+		return 0;
+	}
+
+	init_keywords();
+	string last_cat("");
+	int exit_val = 0;
+	for(int i = optind; i < argc; ++i) {
+		keywords_t::iterator ki = keywords.find(argv[i]);
+		if (ki != keywords.end()) {
+			show_keyword(last_cat, sw_categories, sw_keywords, ki->second);
+		} else {
+			catorgies_t::iterator ci = catoriges.find(argv[i]);
+			if (ci != catoriges.end()) {
+				vector<keyword *>::iterator vi(ci->second.begin()),
+				  ve(ci->second.end());
+				for(; vi != ve; ++vi) {
+					show_keyword(last_cat, sw_categories, sw_keywords, *vi);
+				}
+			} else if (argv[i] == string("LC_ALL")) {
+			    ki = keywords.begin();
+			    keywords_t::iterator ke = keywords.end();
+			    for(; ki != ke; ++ki) {
+				show_keyword(last_cat, sw_categories, sw_keywords, ki->second);
+			    }
+			} else {
+				if (argv[i] == string("LC_CTYPE") 
+				  || argv[i] == string("LC_COLLATE")) {
+				    // It would be nice to print a warning,
+				    // but we aren't allowed (locale.ex test#14)
+				    if (sw_categories) {
+					cout << argv[i] << endl;
+				    }
+				} else {
+				    clog << "unknown keyword "
+				      << argv[i] << endl;
+				    exit_val = 1;
+				}
+			}
+		}
+	}
+
+	return exit_val;
+}