File: locale

package info (click to toggle)
epic5 3.0.3-1
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 5,328 kB
  • sloc: ansic: 75,810; makefile: 648; ruby: 227; python: 215; sh: 78; perl: 13
file content (19 lines) | stat: -rw-r--r-- 467 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
if (word(2 $loadinfo()) != [pf]) { load -pf $word(1 $loadinfo()); return; };

#
# Ok.  Here's the plan.
#
# Load the current locale (given by locale(1)) into $locale.<whatever>
#

alias load_locale {
	push set notify_on_termination;
	set notify_on_termination off;
	^exec -name locale_dump -line {
		eval @ locale.$*
	} locale -k $$(locale -k list | perl -ane 'print($F[0], "\n") unless (1 .. /--/)');
	wait %locale_dump;
	pop set notify_on_termination
};

#hop'y2k9