Merge branch 'vendor/TCSH'
[dragonfly.git] / contrib / tcsh-6 / tc.vers.c
1 /* $Header: /p/tcsh/cvsroot/tcsh/tc.vers.c,v 3.54 2006/03/02 18:46:45 christos Exp $ */
2 /*
3  * tc.vers.c: Version dependent stuff
4  */
5 /*-
6  * Copyright (c) 1980, 1991 The Regents of the University of California.
7  * All rights reserved.
8  *
9  * Redistribution and use in source and binary forms, with or without
10  * modification, are permitted provided that the following conditions
11  * are met:
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.
20  *
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
31  * SUCH DAMAGE.
32  */
33 #include "sh.h"
34 #include "tw.h"
35
36 RCSID("$tcsh: tc.vers.c,v 3.54 2006/03/02 18:46:45 christos Exp $")
37
38 #include "patchlevel.h"
39
40
41 /* fix_version():
42  *      Print a reasonable version string, printing all compile time
43  *      options that might affect the user.
44  */
45 void
46 fix_version(void)
47 {
48 #ifdef WIDE_STRINGS
49 # define SSSTR "wide"
50 #elif defined (SHORT_STRINGS)
51 # define SSSTR "8b"
52 #else
53 # define SSSTR "7b"
54 #endif 
55 #ifdef NLS
56 # define NLSSTR ",nls"
57 #else
58 # define NLSSTR ""
59 #endif 
60 #ifdef LOGINFIRST
61 # define LFSTR ",lf"
62 #else
63 # define LFSTR ""
64 #endif 
65 #ifdef DOTLAST
66 # define DLSTR ",dl"
67 #else
68 # define DLSTR ""
69 #endif 
70 #ifdef VIDEFAULT
71 # define VISTR ",vi"
72 #else
73 # define VISTR ""
74 #endif 
75 #ifdef TESLA
76 # define DTRSTR ",dtr"
77 #else
78 # define DTRSTR ""
79 #endif 
80 #ifdef KAI
81 # define BYESTR ",bye"
82 #else
83 # define BYESTR ""
84 #endif 
85 #ifdef AUTOLOGOUT
86 # define ALSTR ",al"
87 #else
88 # define ALSTR ""
89 #endif 
90 #ifdef KANJI
91 # define KANSTR ",kan"
92 #else
93 # define KANSTR ""
94 #endif 
95 #ifdef SYSMALLOC
96 # define SMSTR  ",sm"
97 #else
98 # define SMSTR  ""
99 #endif 
100 #ifdef HASHBANG
101 # define HBSTR  ",hb"
102 #else
103 # define HBSTR  ""
104 #endif 
105 #ifdef NEWGRP
106 # define NGSTR  ",ng"
107 #else
108 # define NGSTR  ""
109 #endif
110 #ifdef REMOTEHOST
111 # define RHSTR  ",rh"
112 #else
113 # define RHSTR  ""
114 #endif
115 #ifdef AFS
116 # define AFSSTR ",afs"
117 #else
118 # define AFSSTR ""
119 #endif
120 #ifdef NODOT
121 # define NDSTR  ",nd"
122 #else
123 # define NDSTR  ""
124 #endif
125 #ifdef COLOR_LS_F
126 # define COLORSTR ",color"
127 #else /* ifndef COLOR_LS_F */
128 # define COLORSTR ""
129 #endif /* COLOR_LS_F */
130 #ifdef DSPMBYTE
131 # define DSPMSTR ",dspm"
132 #else
133 # define DSPMSTR ""
134 #endif
135 #ifdef COLORCAT
136 # define CCATSTR ",ccat"
137 #else
138 # define CCATSTR ""
139 #endif
140 #if defined(FILEC) && defined(TIOCSTI)
141 # define FILECSTR ",filec"
142 #else
143 # define FILECSTR ""
144 #endif
145 /* if you want your local version to say something */
146 #ifndef LOCALSTR
147 # define LOCALSTR ""
148 #endif /* LOCALSTR */
149     char    *version;
150     const Char *machtype = tgetenv(STRMACHTYPE);
151     const Char *vendor   = tgetenv(STRVENDOR);
152     const Char *ostype   = tgetenv(STROSTYPE);
153
154     if (vendor == NULL)
155         vendor = STRunknown;
156     if (machtype == NULL)
157         machtype = STRunknown;
158     if (ostype == NULL)
159         ostype = STRunknown;
160
161
162     version = xasprintf(
163 "tcsh %d.%.2d.%.2d (%s) %s (%S-%S-%S) options %s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s",
164              REV, VERS, PATCHLEVEL, ORIGIN, DATE, machtype, vendor, ostype,
165              SSSTR, NLSSTR, LFSTR, DLSTR, VISTR, DTRSTR, BYESTR,
166              ALSTR, KANSTR, SMSTR, HBSTR, NGSTR, RHSTR, AFSSTR, NDSTR,
167              COLORSTR, DSPMSTR, CCATSTR, FILECSTR, LOCALSTR);
168     cleanup_push(version, xfree);
169     setcopy(STRversion, str2short(version), VAR_READWRITE);
170     cleanup_until(version);
171     version = xasprintf("%d.%.2d.%.2d", REV, VERS, PATCHLEVEL);
172     cleanup_push(version, xfree);
173     setcopy(STRtcsh, str2short(version), VAR_READWRITE);
174     cleanup_until(version);
175 }