1 /* $Header: /p/tcsh/cvsroot/tcsh/tw.color.c,v 1.27 2010/08/19 05:52:19 christos Exp $ */
3 * tw.color.c: builtin color ls-F
6 * Copyright (c) 1998 The Regents of the University of California.
9 * Redistribution and use in source and binary forms, with or without
10 * modification, are permitted provided that the following conditions
12 * 1. Redistributions of source code must retain the above copyright
13 * notice, this list of conditions and the following disclaimer.
14 * 2. Redistributions in binary form must reproduce the above copyright
15 * notice, this list of conditions and the following disclaimer in the
16 * documentation and/or other materials provided with the distribution.
17 * 3. Neither the name of the University nor the names of its contributors
18 * may be used to endorse or promote products derived from this software
19 * without specific prior written permission.
21 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
35 RCSID("$tcsh: tw.color.c,v 1.27 2010/08/19 05:52:19 christos Exp $")
49 #define VAR(suffix,variable,defaultcolor) \
51 suffix, variable, { defaultcolor, sizeof(defaultcolor) - 1 }, \
52 { defaultcolor, sizeof(defaultcolor) - 1 } \
54 #define NOS '\0' /* no suffix */
63 static Variable variables
[] = {
64 VAR('/', "di", "01;34"), /* Directory */
65 VAR('@', "ln", "01;36"), /* Symbolic link */
66 VAR('&', "or", ""), /* Orphanned symbolic link (defaults to ln) */
67 VAR('|', "pi", "33"), /* Named pipe (FIFO) */
68 VAR('=', "so", "01;35"), /* Socket */
69 VAR('>', "do", "01;35"), /* Door (solaris fast ipc mechanism) */
70 VAR('#', "bd", "01;33"), /* Block device */
71 VAR('%', "cd", "01;33"), /* Character device */
72 VAR('*', "ex", "01;32"), /* Executable file */
73 VAR(NOS
, "fi", "0"), /* Regular file */
74 VAR(NOS
, "no", "0"), /* Normal (non-filename) text */
75 VAR(NOS
, "mi", ""), /* Missing file (defaults to fi) */
77 VAR(NOS
, "lc", "\033["), /* Left code (ASCII) */
79 VAR(NOS
, "lc", "\x27["), /* Left code (EBCDIC)*/
81 VAR(NOS
, "rc", "m"), /* Right code */
82 VAR(NOS
, "ec", ""), /* End code (replaces lc+no+rc) */
83 VAR(NOS
, "su", ""), /* Setuid file (u+s) */
84 VAR(NOS
, "sg", ""), /* Setgid file (g+s) */
85 VAR(NOS
, "tw", ""), /* Sticky and other writable dir (+t,o+w) */
86 VAR(NOS
, "ow", ""), /* Other writable dir (o+w) but not sticky */
87 VAR(NOS
, "st", ""), /* Sticky dir (+t) but not other writable */
88 VAR(NOS
, "rs", "0"), /* Reset to normal color */
89 VAR(NOS
, "hl", "44;37"), /* Reg file extra hard links, obsolete? */
90 VAR(NOS
, "mh", "44;37"), /* Reg file extra hard links */
91 VAR(NOS
, "ca", "30;41"), /* File with capability */
95 VDir
, VSym
, VOrph
, VPipe
, VSock
, VDoor
, VBlock
, VChr
, VExe
,
96 VFile
, VNormal
, VMiss
, VLeft
, VRight
, VEnd
99 #define nvariables (sizeof(variables)/sizeof(variables[0]))
102 Str extension
; /* file extension */
103 Str color
; /* color string */
106 static Extension
*extensions
= NULL
;
107 static size_t nextensions
= 0;
109 static char *colors
= NULL
;
110 int color_context_ls
= FALSE
; /* do colored ls */
111 static int color_context_lsmF
= FALSE
; /* do colored ls-F */
113 static int getstring (char **, const Char
**, Str
*, int);
114 static void put_color (const Str
*);
115 static void print_color (const Char
*, size_t, Char
);
117 /* set_color_context():
120 set_color_context(void)
122 struct varent
*vp
= adrof(STRcolor
);
124 if (vp
== NULL
|| vp
->vec
== NULL
) {
125 color_context_ls
= FALSE
;
126 color_context_lsmF
= FALSE
;
127 } else if (!vp
->vec
[0] || vp
->vec
[0][0] == '\0') {
128 color_context_ls
= TRUE
;
129 color_context_lsmF
= TRUE
;
133 color_context_ls
= FALSE
;
134 color_context_lsmF
= FALSE
;
135 for (i
= 0; vp
->vec
[i
]; i
++)
136 if (Strcmp(vp
->vec
[i
], STRls
) == 0)
137 color_context_ls
= TRUE
;
138 else if (Strcmp(vp
->vec
[i
], STRlsmF
) == 0)
139 color_context_lsmF
= TRUE
;
147 getstring(char **dp
, const Char
**sp
, Str
*pd
, int f
)
153 while (*s
&& (*s
& CHAR
) != (Char
)f
&& (*s
& CHAR
) != ':') {
154 if ((*s
& CHAR
) == '\\' || (*s
& CHAR
) == '^') {
155 if ((sc
= parseescape(&s
)) == CHAR_ERR
)
160 d
+= one_wctomb(d
, sc
);
167 return *s
== (Char
)f
;
172 * Parse the LS_COLORS environment variable
175 parseLS_COLORS(const Char
*value
)
178 const Char
*v
; /* pointer in value */
179 char *c
; /* pointer in colors */
180 Extension
*volatile e
; /* pointer in extensions */
188 for (i
= 0; i
< nvariables
; i
++)
189 variables
[i
].color
= variables
[i
].defaultcolor
;
198 /* allocate memory */
200 for (v
= value
; *v
; v
++)
201 if ((*v
& CHAR
) == ':')
203 extensions
= xmalloc(len
+ i
* sizeof(Extension
));
204 colors
= i
* sizeof(Extension
) + (char *)extensions
;
212 /* Prevent from crashing if unknown parameters are given. */
214 omark
= cleanup_push_mark();
217 if (setexit() == 0) {
226 case '*': /* :*ext=color: */
228 if (getstring(&c
, &v
, &e
->extension
, '=') &&
229 0 < e
->extension
.len
) {
231 getstring(&c
, &v
, &e
->color
, ':');
237 default: /* :vl=color: */
238 if (v
[0] && v
[1] && (v
[2] & CHAR
) == '=') {
239 for (i
= 0; i
< nvariables
; i
++)
240 if ((Char
)variables
[i
].variable
[0] == (v
[0] & CHAR
) &&
241 (Char
)variables
[i
].variable
[1] == (v
[1] & CHAR
))
243 if (i
< nvariables
) {
245 getstring(&c
, &v
, &variables
[i
].color
, ':');
249 stderror(ERR_BADCOLORVAR
, v
[0], v
[1]);
253 while (*v
&& (*v
& CHAR
) != ':')
258 cleanup_pop_mark(omark
);
261 nextensions
= e
- extensions
;
267 put_color(const Str
*color
)
270 const char *c
= color
->s
;
271 int original_output_raw
= output_raw
;
274 cleanup_push(&original_output_raw
, output_raw_restore
);
275 for (i
= color
->len
; 0 < i
; i
--)
277 cleanup_until(&original_output_raw
);
284 print_color(const Char
*fname
, size_t len
, Char suffix
)
287 char *filename
= short2str(fname
);
288 char *last
= filename
+ len
;
289 Str
*color
= &variables
[VFile
].color
;
292 case '>': /* File is a symbolic link pointing to
294 color
= &variables
[VDir
].color
;
296 case '+': /* File is a hidden directory [aix] or
297 * context dependent [hpux] */
298 case ':': /* File is network special [hpux] */
301 for (i
= 0; i
< nvariables
; i
++)
302 if (variables
[i
].suffix
!= NOS
&&
303 (Char
)variables
[i
].suffix
== suffix
) {
304 color
= &variables
[i
].color
;
307 if (i
== nvariables
) {
308 for (i
= 0; i
< nextensions
; i
++)
309 if (len
>= extensions
[i
].extension
.len
310 && strncmp(last
- extensions
[i
].extension
.len
,
311 extensions
[i
].extension
.s
,
312 extensions
[i
].extension
.len
) == 0) {
313 color
= &extensions
[i
].color
;
320 put_color(&variables
[VLeft
].color
);
322 put_color(&variables
[VRight
].color
);
326 /* print_with_color():
329 print_with_color(const Char
*filename
, size_t len
, Char suffix
)
331 if (color_context_lsmF
&&
332 (haderr
? (didfds
? is2atty
: isdiagatty
) :
333 (didfds
? is1atty
: isoutatty
))) {
334 print_color(filename
, len
, suffix
);
335 xprintf("%S", filename
);
336 if (0 < variables
[VEnd
].color
.len
)
337 put_color(&variables
[VEnd
].color
);
339 put_color(&variables
[VLeft
].color
);
340 put_color(&variables
[VNormal
].color
);
341 put_color(&variables
[VRight
].color
);
345 xprintf("%S", filename
);
350 #endif /* COLOR_LS_F */