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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
####################################################################
# Shell.awk #
####################################################################
# Detect external readline wrapper (rlwrap).
function initRlwrap() {
Rlwrap = ("rlwrap --version 2>/dev/null" | getline) ? "rlwrap" : ""
}
# Prompt for interactive session.
function prompt( i, p, temp) {
p = Option["prompt"]
# Format specifiers supported by strftime().
# Roughly following ISO 8601:1988, with the notable exception of "%S", "%t" and "%T".
# GNU libc extensions like "%l", "%s" and "%_*" are not supported.
# See: <https://www.gnu.org/software/gawk/manual/html_node/Time-Functions.html>
# <http://pubs.opengroup.org/onlinepubs/007908799/xsh/strftime.html>
if (p ~ /%a/) gsub(/%a/, strftime("%a"), p)
if (p ~ /%A/) gsub(/%A/, strftime("%A"), p)
if (p ~ /%b/) gsub(/%b/, strftime("%b"), p)
if (p ~ /%B/) gsub(/%B/, strftime("%B"), p)
if (p ~ /%c/) gsub(/%c/, strftime("%c"), p)
if (p ~ /%C/) gsub(/%C/, strftime("%C"), p)
if (p ~ /%d/) gsub(/%d/, strftime("%d"), p)
if (p ~ /%D/) gsub(/%D/, strftime("%D"), p)
if (p ~ /%e/) gsub(/%e/, strftime("%e"), p)
if (p ~ /%F/) gsub(/%F/, strftime("%F"), p)
if (p ~ /%g/) gsub(/%g/, strftime("%g"), p)
if (p ~ /%G/) gsub(/%G/, strftime("%G"), p)
if (p ~ /%h/) gsub(/%h/, strftime("%h"), p)
if (p ~ /%H/) gsub(/%H/, strftime("%H"), p)
if (p ~ /%I/) gsub(/%I/, strftime("%I"), p)
if (p ~ /%j/) gsub(/%j/, strftime("%j"), p)
if (p ~ /%m/) gsub(/%m/, strftime("%m"), p)
if (p ~ /%M/) gsub(/%M/, strftime("%M"), p)
if (p ~ /%n/) gsub(/%n/, strftime("%n"), p)
if (p ~ /%p/) gsub(/%p/, strftime("%p"), p)
if (p ~ /%r/) gsub(/%r/, strftime("%r"), p)
if (p ~ /%R/) gsub(/%R/, strftime("%R"), p)
if (p ~ /%u/) gsub(/%u/, strftime("%u"), p)
if (p ~ /%U/) gsub(/%U/, strftime("%U"), p)
if (p ~ /%V/) gsub(/%V/, strftime("%V"), p)
if (p ~ /%w/) gsub(/%w/, strftime("%w"), p)
if (p ~ /%W/) gsub(/%W/, strftime("%W"), p)
if (p ~ /%x/) gsub(/%x/, strftime("%x"), p)
if (p ~ /%X/) gsub(/%X/, strftime("%X"), p)
if (p ~ /%y/) gsub(/%y/, strftime("%y"), p)
if (p ~ /%Y/) gsub(/%Y/, strftime("%Y"), p)
if (p ~ /%z/) gsub(/%z/, strftime("%z"), p)
if (p ~ /%Z/) gsub(/%Z/, strftime("%Z"), p)
# %_ : prompt message
if (p ~ /%_/)
gsub(/%_/, sprintf(Locale[getCode(Option["hl"])]["message"], ""), p)
# %l : home language
if (p ~ /%l/)
gsub(/%l/, Locale[getCode(Option["hl"])]["display"], p)
# %L : home language (English name)
if (p ~ /%L/)
gsub(/%L/, Locale[getCode(Option["hl"])]["name"], p)
# %s : source language
# 's' is the format-control character for string
# %S : source language (English name)
if (p ~ /%S/)
gsub(/%S/, Locale[getCode(Option["sl"])]["name"], p)
# %t : target languages, separated by "+"
if (p ~ /%t/) {
temp = Locale[getCode(Option["tl"][1])]["display"]
for (i = 2; i <= length(Option["tl"]); i++)
temp = temp "+" Locale[getCode(Option["tl"][i])]["display"]
gsub(/%t/, temp, p)
}
# %T : target languages (English names), separated by "+"
if (p ~ /%T/) {
temp = Locale[getCode(Option["tl"][1])]["name"]
for (i = 2; i <= length(Option["tl"]); i++)
temp = temp "+" Locale[getCode(Option["tl"][i])]["name"]
gsub(/%T/, temp, p)
}
# %, : target languages, separated by ","
if (p ~ /%,/) {
temp = Locale[getCode(Option["tl"][1])]["display"]
for (i = 2; i <= length(Option["tl"]); i++)
temp = temp "," Locale[getCode(Option["tl"][i])]["display"]
gsub(/%,/, temp, p)
}
# %< : target languages (English names), separated by ","
if (p ~ /%</) {
temp = Locale[getCode(Option["tl"][1])]["name"]
for (i = 2; i <= length(Option["tl"]); i++)
temp = temp "," Locale[getCode(Option["tl"][i])]["name"]
gsub(/%</, temp, p)
}
# %/ : target languages, separated by "/"
if (p ~ /%\//) {
temp = Locale[getCode(Option["tl"][1])]["display"]
for (i = 2; i <= length(Option["tl"]); i++)
temp = temp "/" Locale[getCode(Option["tl"][i])]["display"]
gsub(/%\//, temp, p)
}
# %? : target languages (English names), separated by "/"
if (p ~ /%\?/) {
temp = Locale[getCode(Option["tl"][1])]["name"]
for (i = 2; i <= length(Option["tl"]); i++)
temp = temp "/" Locale[getCode(Option["tl"][i])]["name"]
gsub(/%\?/, temp, p)
}
# %s : source language
printf(AnsiCode["bold"] AnsiCode[tolower(Option["prompt-color"])] p AnsiCode[0] " ", Locale[getCode(Option["sl"])]["display"]) > "/dev/stderr"
}
|
