host.defs revision 167465
1newcode	:
2/* $Header: /p/tcsh/cvsroot/tcsh/host.defs,v 1.43 2006/03/02 18:46:44 christos Exp $ */
3/*
4 * host.defs: Hosttype/Machtype etc.
5 */
6/*-
7 * Copyright (c) 1980, 1991 The Regents of the University of California.
8 * All rights reserved.
9 *
10 * Redistribution and use in source and binary forms, with or without
11 * modification, are permitted provided that the following conditions
12 * are met:
13 * 1. Redistributions of source code must retain the above copyright
14 *    notice, this list of conditions and the following disclaimer.
15 * 2. Redistributions in binary form must reproduce the above copyright
16 *    notice, this list of conditions and the following disclaimer in the
17 *    documentation and/or other materials provided with the distribution.
18 * 3. Neither the name of the University nor the names of its contributors
19 *    may be used to endorse or promote products derived from this software
20 *    without specific prior written permission.
21 *
22 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
23 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
24 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
25 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
26 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
27 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
28 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
29 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
30 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
31 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
32 * SUCH DAMAGE.
33 */
34#include "sh.h"
35
36RCSID("$tcsh: host.defs,v 1.43 2006/03/02 18:46:44 christos Exp $")
37
38endcode	:
39
40macro	: M_mips64el : (defined(mips64) || defined(__mips64)) && (defined(MIPSEL) || defined(__MIPSEL))
41macro	: M_mips64eb : (defined(mips64) || defined(__mips64)) && (defined(MIPSEB) || defined(__MIPSEB))
42macro	: M_mipsel : (!defined(M_mips64el)) && (defined(mips) || defined(__mips)) && (defined(MIPSEL) || defined(__MIPSEL))
43macro	: M_mipseb : (!defined(M_mips64eb)) && (defined(mips) || defined(__mips)) && (defined(MIPSEB) || defined(__MIPSEB))
44macro	: M_i386 : (defined(i386) || defined(__i386__))
45macro	: M_i486 : (defined(i486) || defined(__i486__))
46macro	: M_i586 : (defined(i586) || defined(__i586__))
47macro	: M_intel : (defined(M_i386) || defined(M_i486) || defined(M_i586))
48
49newdef	: defined(ns32000)
50newcode	:
51static char *
52isamultimax(int flag)
53{
54    if (access("/Umax.image", F_OK) == 0)
55	return "multimax";
56    else 
57	return flag ? "mach" : "ns32000";
58}
59endcode	:
60enddef	:
61
62
63newdef	: defined(cray)
64newcode	:
65/*  
66 * On crays, find the current machine type via the target() syscall
67 * We need ctype.h to convert the name returned to lower case
68 */
69# include <sys/target.h> 
70# include <ctype.h>
71# include <string.h>
72
73/* From: hpa@hook.eecs.nwu.edu (H. Peter Anvin) */
74static char *
75getcray(void)
76{
77# ifdef MC_GET_SYSTEM /* If we have target() */
78    struct target data;
79
80    if (target(MC_GET_SYSTEM, &data) != -1) {
81	static char hosttype_buf[sizeof(data.mc_pmt)+1];
82	char *p = (char *) &(data.mc_pmt);
83	char *q = hosttype_buf;
84	int n;
85
86	/* 
87	 * Copy to buffer and convert to lower case 
88	 * String may not be null-terminated, so keep a counter
89	 */
90	for (n = 0; *p && n < sizeof(data.mc_pmt); n++)
91	  *q++ = tolower(p[n]);
92
93	*q = '\0';
94
95	/* replace dashes with underscores if present */
96	while ((q = strchr(hosttype_buf, '-')) != NULL)
97	    *q = '_';
98	return hosttype_buf; 	/* Return in static buffer */
99    }
100    else
101# endif /* MC_GET_SYSTEM */
102	return "cray";		/* target() failed */
103}
104endcode	:
105enddef	:
106
107
108newdef	: defined(convex)
109newcode	:
110/*  
111 * On convex, find the current machine type via the getsysinfo() syscall
112 */
113#include <sys/sysinfo.h> 
114
115/* From: fox@convex.com (David DeSimone) */
116static char *
117getconvex(void)
118{
119    struct system_information  sysinfo;
120    static char  result[8];
121
122    if (getsysinfo(SYSINFO_SIZE, &sysinfo) == -1)
123	return "convex";
124
125    switch(sysinfo.cpu_type) {
126#ifdef SI_CPUTYPE_C1
127    case SI_CPUTYPE_C1:
128	return "c1";
129#endif
130
131#ifdef SI_CPUTYPE_C2
132    case SI_CPUTYPE_C2:
133	return "c2";
134#endif
135
136#ifdef SI_CPUTYPE_C2MP
137    case SI_CPUTYPE_C2MP:
138	(void) strcpy(result, "c2X0");
139	result[2] = sysinfo.cpu_count + '0';
140	return result;
141#endif
142
143#ifdef SI_CPUTYPE_C34
144    case SI_CPUTYPE_C34:
145	(void) strcpy(result, "c34X0");
146	result[3] = sysinfo.cpu_count + '0';
147	return result;
148#endif
149
150#ifdef SI_CPUTYPE_C38
151    case SI_CPUTYPE_C38:
152	(void) strcpy(result, "c38X0");
153	result[3] = sysinfo.cpu_count + '0';
154	return result;
155#endif
156
157#ifdef SI_CPUTYPE_C46
158    case SI_CPUTYPE_C46:
159	(void) strcpy(result, "c46X0");
160	result[3] = sysinfo.cpu_count + '0';
161	return result;
162#endif
163
164    default:
165	return "convex";
166    }
167}
168endcode	:
169enddef	:
170
171
172newcode	:
173void
174getmachine(void)
175{
176     const char *hosttype;
177     const char *ostype;
178     const char *vendor;
179     const char *machtype;
180
181endcode	:
182
183
184newdef	: defined(HOSTTYPE)
185hosttype:						: HOSTTYPE
186enddef	:
187
188
189newdef	: defined(__PARAGON__)
190comment	: Intel Paragon running OSF/1
191vendor	:						: "intel"
192hosttype:						: "paragon"
193ostype	:						: "osf1"
194machtype: defined(M_i386) 				: "i386"
195enddef	:
196
197
198newdef	: defined(AMIX)
199comment	: Amiga running Amix 2.02
200vendor	:						: "commodore"
201hosttype:						: "amiga"
202ostype	:						: "Amix"
203machtype:						: "m68k"
204enddef	:
205
206
207newdef	: defined(accel)
208comment	: celerity Accel
209vendor	: 						: "celerity"
210hosttype: 						: "celerityACCEL"
211ostype	:						: "unix"
212machtype:						: "accel"
213enddef	:
214
215
216newdef	: defined(_VMS_POSIX)
217comment	: digital vax or alpha running vms posix
218vendor	:						: "dec"
219hosttype:						: "VMS-POSIX"
220ostype	:						: "vms"
221machtype: defined(__alpha)				: "alpha"
222machtype: defined(__vax) || defined(vax)		: "vax"
223machtype: defined(__vax__) 				: "vax"
224enddef	:
225
226
227newdef	: defined(__hp_osf)
228comment	: Hewlett Packard running OSF/1
229vendor	:						: "hp"
230hosttype: defined(__pa_risc)				: "hp9000s700-osf1"
231hosttype: 						: "hp-osf1"
232ostype	: 						: "osf1"
233machtype: defined(__pa_risc)				: "pa_risc"
234enddef	:
235
236
237newdef	: defined(hp9000)
238comment	: Hewlett Packard running MORE/bsd 
239vendor	: 						: "hp"
240hosttype: defined(hp300)				: "hp300"
241hosttype: defined(hp800)				: "hp800"
242hosttype: 						: "hp9000"
243ostype	: defined(BSD4_4)				: "bsd44"
244ostype	:						: "mtXinu"
245machtype: defined(hp300)				: "m68k"
246machtype: defined(hp800)				: "pa_risc"
247enddef	:
248
249
250newdef	: defined(hpux) || defined(__hpux)
251comment	: Hewlett Packard running HP/UX
252vendor	:						: "hp"
253hosttype: defined(__hp9000s700)				: "hp9000s700"
254hosttype: defined(__hp9000s800) || defined(hp9000s800)  : "hp9000s800"
255hosttype: defined(hp9000s500)				: "hp9000s500"
256hosttype: defined(__hp9000s300) || defined(hp9000s300)  : "hp9000s300"
257hosttype: 						: "hp"
258ostype	:						: "hpux"
259machtype: defined(__hp9000s700)				: "pa_risc"
260machtype: defined(__hp9000s800) || defined(hp9000s800)  : "pa_risc"
261machtype: defined(hp9000s500)				: "m68k"
262machtype: defined(__hp9000s300) || defined(hp9000s300)  : "m68k"
263enddef	:
264
265
266newdef	: defined(apollo)
267comment	: Hewlett Packard apollo running Domain/OS
268vendor	:						: "hp"
269hosttype: 						: "apollo"
270ostype	:						: "DomainOS"
271machtype: 						: "m68k"
272enddef	:
273
274
275newdef	: defined(sun) || defined(__sun__)
276comment	: Sun Microsystems series 2 workstation (68010 based)
277comment	: Sun Microsystems series 3 workstation (68020 based)
278comment	: Sun Microsystems 386i workstation (386 based)
279comment	: Sun Microsystems series 4 workstation (SPARC based)
280vendor	:						: "sun"
281hosttype: defined(M_i386) && !defined(__SVR4)		: "sun386i"
282hosttype: defined(M_i386) && defined(__SVR4)		: "i86pc"
283hosttype: defined(mc68010) || defined(__mc68010__)	: "sun2"
284hosttype: defined(mc68020) || defined(__mc68020__)	: "sun3"
285hosttype: defined(sparc) || defined(__sparc__)		: "sun4"
286hosttype: 						: "sun"
287ostype	: defined(SUNOS3)				: "sunos3"
288ostype	: defined(SUNOS4)				: "sunos4"
289ostype	: defined(SOLARIS2)				: "solaris"
290machtype: defined(mc68010) || defined(__mc68010__)	: "m68k"
291machtype: defined(mc68020) || defined(__mc68020__)	: "m68k"
292machtype: defined(sparc) || defined(__sparc__)		: "sparc"
293machtype: defined(M_i386)				: "i386"
294enddef	:
295
296
297newdef	: defined(pyr)
298comment	: Pyramid Technology
299vendor	:						: "pyramid"
300hosttype:						: "pyramid"
301machtype:						: "pyramid"
302enddef	:
303
304
305newdef	: defined(hcx) || defined(_CX_UX)
306comment	: Harris Tahoe running CX/UX
307vendor	:						: "harris"
308hosttype:						: "hcx"
309ostype	:						: "hcx"
310machtype:						: "tahoe"
311enddef	:
312
313
314newdef	: defined(tahoe)
315comment	: Harris Tahoe
316vendor	:						: "harris"
317hosttype:						: "tahoe"
318machtype:						: "tahoe"
319enddef	:
320
321
322newdef	: defined(ibm032)
323comment	: RT running IBM AOS4.3 or MACH
324vendor	:						: "ibm"
325hosttype:						: "rt"
326ostype	: defined(MACH)					: "mach"
327ostype	: 						: "aos"
328machtype:						: "ibm032"
329enddef	:
330
331
332newdef	: defined(aiws)
333comment	: RT running IBM aix2.x
334vendor	:						: "ibm"
335hosttype:						: "rtpc"
336ostype	:						: "aix"
337machtype:						: "ibm032"
338enddef	:
339
340
341newdef	: defined(_AIX370)
342comment	: IBM/370 running aix
343vendor	:						: "ibm"
344hosttype:						: "aix370"
345ostype	:						: "aix"
346machtype:						: "ibm370"
347enddef	:
348
349
350newdef	: defined(_IBMESA)
351comment	: IBM/ESA running aix
352vendor	:						: "ibm"
353hosttype:						: "aixESA"
354ostype	:						: "aix"
355machtype:						: "esa"
356enddef	:
357
358
359newdef	: defined(_IBMR2)
360comment	: IBM/RS6000 running aix
361vendor	:						: "ibm"
362hosttype:						: "rs6000"
363ostype	:						: "aix"
364machtype:						: "rs6000"
365enddef	:
366
367
368newdef	: defined(_AIXPS2)
369comment	: IBM/PS2 running aix
370vendor	:						: "ibm"
371hosttype:						: "ps2"
372ostype	:						: "aix"
373machtype:						: "i386"
374enddef	:
375
376
377newdef	: defined(OREO)
378comment	: Macintosh running AU/X
379vendor	:						: "apple"
380hosttype:						: "mac2"
381ostype	:						: "aux"
382machtype: defined(mc68020)				: "m68k"
383enddef	:
384
385
386newdef	: defined(u3b20d)
387comment	: AT&T 3B/20 series running SVR2/3 
388vendor	:						: "att"
389hosttype:						: "att3b20"
390machtype:						: "u3b20"
391enddef	:
392
393
394newdef	: defined(u3b15)
395comment	: AT&T 3B/15 series running SVR2/3 
396vendor	:						: "att"
397hosttype:						: "att3b15"
398machtype:						: "u3b15"
399enddef	:
400
401
402newdef	: defined(u3b5)
403comment	: AT&T 3B/5 series running SVR2/3 
404vendor	:						: "att"
405hosttype:						: "att3b5"
406machtype:						: "u3b5"
407enddef	:
408
409
410newdef	: defined(u3b2)
411comment	: AT&T 3B/2 series running SVR2/3 
412vendor	:						: "att"
413hosttype:						: "att3b2"
414machtype:						: "u3b2"
415enddef	:
416
417
418newdef	: defined(UNIXPC)
419comment	: AT&T UnixPC att3b1/att7300
420vendor	:						: "att"
421hosttype:						: "unixpc"
422machtype: defined(u3b1)					: "u3b1"
423machtype: defined(att7300)				: "att7300"
424enddef	:
425
426
427newdef	: defined(_MINIX)
428comment	: Andy Tanenbaum's minix
429vendor	: defined(M_i386)				: "intel"
430hosttype: defined(M_i386)				: "minix386"
431hosttype:						: "minix"
432ostype	:						: "minix"
433machtype: defined(M_i386)				: "i386"
434enddef	:
435
436
437newdef	: defined(linux) || defined(__GNU__) || defined(__GLIBC__)
438comment	: Linus Torvalds's linux
439vendor	: defined(M_intel)				: "intel"
440hosttype: defined(__ia64__)				: "ia64-linux"
441hosttype: defined(__powerpc64__)			: "powerpc64-linux"
442hosttype: defined(__s390x__)				: "s390x-linux"
443hosttype: defined(__s390__)				: "s390-linux"
444hosttype: defined(__x86_64__)				: "x86_64-linux"
445hosttype: defined(M_i586) 				: "i586-linux"
446hosttype: defined(M_i486) 				: "i486-linux"
447hosttype: defined(M_i386)				: "i386-linux"
448ostype	: 						: "linux"
449machtype: defined(__ia64__)				: "ia64"
450machtype: defined(__powerpc64__)			: "powerpc64"
451machtype: defined(__s390x__)				: "s390x"
452machtype: defined(__s390__)				: "s390"
453machtype: defined(__x86_64__)				: "x86_64"
454machtype: defined(M_i586) 				: "i586"
455machtype: defined(M_i486) 				: "i486"
456machtype: defined(M_i386)				: "i386"
457vendor	: defined(__alpha)				: "dec"
458vendor	: defined(PPC)					: "apple"
459hosttype: defined(__alpha)				: "alpha"
460hosttype: defined(PPC)					: "powerpc"
461machtype: defined(__alpha)				: "alpha"
462machtype: defined(PPC)					: "powerpc"
463machtype: defined(M_mipsel)				: "mipsel"
464machtype: defined(M_mipseb)				: "mipseb"
465machtype: defined(M_mips64el)				: "mips64el"
466machtype: defined(M_mips64eb)				: "mips64eb"
467enddef	:
468
469
470newdef	: defined(__EMX__)
471comment	: OS/2 EMX [unix emulation under OS/2]
472vendor	: defined(M_intel)				: "intel"
473hosttype: defined(M_i386)				: "i386-emx"
474ostype	:						: "os2"
475machtype: defined(M_i386)				: "i386"
476enddef	:
477
478
479newdef	: defined(__NetBSD__) 
480comment	: NetBSD
481vendor	: defined(arm32) || defined(__arm__)		: "acorn"
482vendor	: defined(alpha)				: "digital"
483vendor	: defined(amiga)				: "commodore"
484vendor	: defined(atari)				: "atari"
485vendor	: defined(hp300)				: "hp"
486vendor	: defined(M_intel)				: "intel"
487vendor	: defined(m68k)					: "motorola"
488vendor	: defined(mac68k)				: "apple"
489vendor	: defined(pc532)				: "national-semi"
490vendor	: defined(pmax)					: "dec"
491vendor	: defined(mips)					: "mips"
492vendor	: defined(sparc)				: "sun"
493vendor	: defined(sun3)					: "sun"
494vendor	: defined(vax)					: "digital"
495hosttype: 						: "NetBSD"
496ostype	: 						: "NetBSD"
497machtype: defined(arm32) || defined(__APCS_32__)	: "arm32"
498machtype: defined(arm26) || defined(__APCS_26__)	: "arm26"
499machtype: defined(arm) || defined(__arm__)		: "arm"
500machtype: defined(sparc)				: "sparc"
501machtype: defined(mc68020)				: "m68k"
502machtype: defined(M_i386)				: "i386"
503machtype: defined(M_mipsel)				: "mipsel"
504machtype: defined(M_mipseb)				: "mipseb"
505machtype: defined(mips)					: "mips"
506machtype: defined(pc532)				: "pc532"
507machtype: defined(vax)					: "vax"
508machtype: defined(alpha)				: "alpha"
509enddef	:
510
511
512newdef	: defined(__FreeBSD__) 
513comment	: FreeBSD
514vendor	: defined(__alpha)				: "digital"
515vendor	: defined(M_intel)				: "intel"
516hosttype:						: "FreeBSD"
517ostype	:						: "FreeBSD"
518machtype: defined(__alpha)				: "alpha"
519machtype: defined(M_i386)				: "i386"
520enddef	:
521
522
523newdef	: defined(__386BSD__)
524comment	: Bill Jolitz's 386BSD
525vendor	: defined(M_intel)				: "intel"
526hosttype:						: "386BSD"
527ostype	:						: "386BSD"
528machtype:						: "i386"
529enddef	:
530
531
532newdef	: defined(bsdi)
533comment	: BSDI's unix
534vendor	: defined(M_intel)				: "intel"
535vendor	: defined(sparc)				: "sun"
536vendor	: defined(__powerpc__)				: "motorola"
537hosttype: defined(M_intel)				: "bsd386"
538hosttype: defined(sparc)				: "bsd-sparc"
539hosttype: defined(__powerpc__)				: "bsd-powerpc"
540ostype	:						: "bsdi"
541machtype: defined(M_i386)				: "i386"
542machtype: defined(sparc)				: "sparc"
543machtype: defined(__powerpc__)				: "powerpc"
544enddef	:
545
546
547newdef	: defined(COHERENT)
548comment	: COHERENT's unix
549vendor	: defined(_I386)				: "intel"
550hosttype:						: "coh386"
551hosttype:						: "coherent"
552ostype	:						: "coherent"
553machtype: defined(_I386)				: "i386"
554enddef	:
555
556newdef	: defined(concurrent)
557comment	: Concurrent PowerHawk
558vendor	:						: "concurrent"
559hosttype:						: "powerhawk"
560ostype	:						: "powermax_os"
561machtype:						: "powerhawk"
562enddef	:
563
564newdef	: defined(SCO)
565comment	: SCO UNIX System V/386 Release 3.2
566vendor	:						: "sco"
567hosttype:						: "sco386"
568ostype	:						: "sco_unix"
569machtype:						: "i386"
570enddef	:
571
572newdef	: defined(M_XENIX) && !defined(M_UNIX)
573comment	: SCO XENIX
574vendor	:						: "sco"
575hosttype:						: "sco_xenix"
576ostype	:						: "sco_xenix"
577machtype: defined(M_I386)				: "i386"
578machtype: defined(M_I286)				: "i286"
579enddef	:
580
581
582newdef	: defined(ISC) || defined(ISC202)
583comment	: Interactive Unix
584vendor	:						: "isc"
585hosttype:						: "isc386"
586ostype	: defined(POSIX)				: "POSIX"
587ostype	: 						: "SVR3"
588machtype: defined(M_i386)				: "i386"
589enddef	:
590
591
592newdef	: defined(INTEL)
593comment	: Intel Unix
594vendor	:						: "intel"
595hosttype:						: "intel386"
596ostype	:						: "intel_unix"
597machtype: defined(M_i386)				: "i386"
598enddef	:
599
600
601newdef	: defined(MACH)
602comment	: cmu's mach
603vendor	:						: "cmu"
604hosttype: defined(M_i386)				: "i386-mach"
605ostype	:						: "mach"
606machtype: defined(M_i386)				: "i386"
607enddef	:
608
609
610newdef	: defined(alliant)
611comment	: Alliants FSX
612vendor	:						: "alliant"
613hosttype: defined(mc68000)				: "alliant-fx80"
614hosttype: defined(i860)					: "alliant-fx2800"
615hosttype:						: "alliant"
616ostype	:						: "fsx"
617machtype: defined(mc68000)				: "mc68000"
618machtype: defined(i860)					: "i860"
619enddef	:
620
621
622newdef	: defined(_FTX)
623comment	: Stratus Computer, Inc FTX2 (i860 based)
624comment	: Stratus Computer, Inc FTX3 (HPPA based)
625vendor	:						: "stratus"
626hosttype: defined(i860) && defined(_FTX)		: "atlantic"
627hosttype: defined(__hppa) && defined(_FTX)		: "continuum"
628ostype	: defined(i860) && defined(_FTX)		: "ftx2"
629ostype	: defined(__hppa) && defined(_FTX)		: "ftx3"
630machtype: defined(i860)					: "i860"
631machtype: defined(__hppa)				: "hppa"
632enddef	:
633
634
635newdef	: defined(sequent) || defined(_SEQUENT_)
636comment	: Sequent Balance (32000 based)
637comment	: Sequent Symmetry running DYNIX/ptx (386/486 based)
638comment	: Sequent Symmetry running DYNIX 3 (386/486 based)
639vendor	:						: "sequent"
640hosttype: defined(M_i386) && defined(sequent)		: "symmetry"
641hosttype: defined(M_i386)				: "ptx"
642hosttype: 						: "balance"
643ostype	: defined(M_i386) && !defined(sequent)		: "ptx"
644ostype	: 						: "dynix3"
645machtype: defined(M_i386)				: "i386"
646machtype: defined(ns32000)				: "ns32000"
647enddef	:
648
649
650newdef	: defined(ns32000)
651comment	: Encore Computer Corp. Multimax (32000 based)
652vendor	:						: "encore"
653hosttype: defined(CMUCS)				: "multimax"
654hosttype: 						: isamultimax(0)
655ostype	: defined(CMUCS)				: "mach"
656ostype	:						: isamultimax(1)
657machtype:						: "ns32000"
658enddef	:
659
660
661newdef	: defined(iconuxv)
662comment	: Icon 88k running Unix
663vendor	:						: "icon"
664hosttype:						: "icon"
665ostype	:						: "iconuxv"
666machtype: defined(m88k) || defined(__m88k__)		: "m88k"
667enddef	:
668
669
670newdef	: defined(_CRAY) && defined(_CRAYCOM)
671comment	: Cray Computer Corp. running CSOS
672vendor	:						: "ccc"
673hosttype: defined(_CRAY2)				: "cray"
674hosttype: defined(_CRAY3)				: "cray"
675hosttype: defined(_CRAY4)				: "cray"
676ostype	:						: "CSOS"
677machtype: defined(_CRAY2)				: "cray2"
678machtype: defined(_CRAY3)				: "cray3"
679machtype: defined(_CRAY4)				: "cray4"
680enddef	:
681
682
683newdef	: defined(cray) && !defined(_CRAYMPP)
684comment	: Cray Research Inc. PVP running UNICOS
685vendor	:						: "cri"
686hosttype:						: getcray()
687ostype	:						: "unicos"
688machtype:						: getcray()
689enddef	:
690
691
692newdef  : defined(cray) && defined(_CRAYT3D)
693comment : Cray Research Inc. running UNICOS MAX
694vendor  :                                               : "cri"
695hosttype:                                               : getcray()
696ostype  :                                               : "unicosmax"
697machtype:                                               : getcray()
698enddef  :
699
700
701newdef	: defined(cray) && defined(_CRAYT3E)
702comment	: Cray Research Inc. running UNICOS/mk
703vendor	:						: "cri"
704hosttype:						: getcray()
705ostype	:						: "unicosmk"
706machtype:						: getcray()
707enddef	:
708
709
710newdef	: defined(convex)
711comment	: Convex
712vendor	: 						: "convex"
713hosttype:						: "convex"
714ostype	:						: "convexos"
715machtype:						: getconvex()
716enddef	:
717
718
719newdef	: defined(butterfly)
720comment	: BBN Butterfly 1000
721vendor	:						: "bbn"
722hosttype:						: "butterfly"
723machtype: defined(mc68020) || defined(__mc68020__)	: "m68k"
724enddef	:
725
726
727newdef	: defined(NeXT)
728comment	: NeXTStep
729vendor	:						: "next"
730hosttype: defined(mc68020) || defined(__mc68020__)	: "next"
731hosttype: defined(M_i386)  || defined(__i386__)		: "intel-pc"
732hosttype: defined(hppa)    || defined(__hppa__)		: "hp"
733hosttype: defined(sparc)   || defined(__sparc__)	: "sun"
734ostype	:						: "nextstep"
735machtype: defined(mc68020) || defined(__mc68020__)	: "m68k"
736machtype: defined(M_i386)  || defined(__i386__)		: "i386"
737machtype: defined(hppa)    || defined(__hppa__)		: "hppa"
738machtype: defined(sparc)   || defined(__sparc__)	: "sparc"
739enddef	:
740
741
742newdef	: defined(__APPLE__) && defined(__MACH__)
743comment	: OS X
744vendor	:						: "apple"
745hosttype: defined(__i386__)				: "intel-pc"
746hosttype: defined(__ppc__)				: "powermac"
747ostype	:						: "darwin"
748machtype: defined(__i386__)				: "i386"
749machtype: defined(__ppc__)				: "powerpc"
750enddef	:
751
752
753newdef	: defined(sony_news)
754comment	: Sony NEWS 800 or 1700 workstation
755vendor	:						: "sony"
756hosttype: defined(mips)					: "news_mips"
757hosttype: defined(mc68020) || defined(__mc68020__)	: "news_m68k"
758ostype	:						: "News"
759machtype: defined(mc68020) || defined(__mc68020__)	: "m68k"
760machtype: defined(M_mipsel)				: "mipsel"
761machtype: defined(M_mipseb)				: "mipseb"
762enddef	:
763
764
765newdef	: defined(sgi)
766comment	: Silicon Graphics
767vendor	:						: "sgi"
768hosttype: defined(M_mipsel)				: "iris4d"
769hosttype: defined(M_mipseb)				: "iris4d"
770hosttype: defined(mc68000) 				: "iris3d"
771ostype	:						: "irix"
772machtype: defined(M_mipsel)				: "mipsel"
773machtype: defined(M_mipseb)				: "mipseb"
774machtype: defined(mc68000) 				: "mc68000"
775enddef	:
776
777
778newdef	: defined(ultrix) || defined(__ultrix)
779comment	: Digital's Ultrix 
780vendor	:						: "dec"
781hosttype: defined(M_mipsel)				: "decstation"
782hosttype: defined(M_mipseb)				: "decmips"
783hosttype: defined(vax) || defined(__vax)		: "vax"
784hosttype: defined(__vax__) 				: "vax"
785ostype	:						: "ultrix"
786machtype: defined(M_mipsel)				: "mipsel"
787machtype: defined(M_mipseb)				: "mipseb"
788machtype: defined(vax) || defined (__vax)		: "vax"
789hosttype: defined(__vax__) 				: "vax"
790enddef	:
791
792
793newdef	: defined(MIPS)
794comment	: Mips OS
795vendor	:						: "mips"
796hosttype: defined(M_mipsel) 				: "mips"
797hosttype: defined(M_mipseb)				: "mips"
798ostype	:						: "mips"
799machtype: defined(M_mipsel)				: "mipsel"
800machtype: defined(M_mipseb)				: "mipseb"
801enddef	:
802
803
804newdef	: defined(DECOSF1)
805comment	: Digital's alpha running osf1
806vendor	:						: "dec"
807ostype	:						: "osf1"
808hosttype: defined(__alpha)				: "alpha"
809machtype: defined(__alpha)				: "alpha"
810enddef	:
811
812
813newdef	: defined(Lynx)
814comment	: Lynx OS 2.1
815vendor	:						: "Lynx"
816hosttype: defined(M_mipsel)				: "lynxos-mips"
817hosttype: defined(M_mipseb)				: "lynxos-mips"
818hosttype: defined(M_i386)				: "lynxos-i386"
819hosttype: defined(i860) || defined(__i860__)		: "lynxos-i860"
820hosttype: defined(m68k)					: "lynxos-m68k"
821hosttype: defined(m88k)					: "lynxos-m88k"
822hosttype: defined(sparc)				: "lynxos-sparc"
823hosttype: 						: "lynxos-unknown"
824ostype	:						: "LynxOS"
825machtype: defined(M_mipsel)				: "mipsel"
826machtype: defined(M_mipseb)				: "mipseb"
827machtype: defined(M_i386)				: "i386"
828machtype: defined(i860) || defined(__i860__)		: "i860"
829machtype: defined(m68k)					: "m68k"
830machtype: defined(m88k)					: "m88k"
831machtype: defined(sparc)				: "sparc"
832enddef	:
833
834
835newdef	: defined(masscomp)
836comment	: Masscomp
837vendor	:						: "masscomp"
838hosttype:						: "masscomp"
839ostype	:						: "masscomp"
840enddef	:
841
842newdef	: defined(__MACHTEN__)
843comment	: Machintosh
844vendor	:						: "Tenon"
845hosttype:						: "Macintosh"
846ostype	: 						: "MachTen"
847machtype:						: "Macintosh"
848enddef	:
849
850
851
852newdef	: defined(GOULD_NP1)
853comment	: Gould
854vendor	:						: "gould"
855hosttype:						: "gould_np1"
856machtype:						: "gould"
857enddef	:
858
859
860newdef	: defined(MULTIFLOW)
861comment	: Multiflow running 4.3BSD
862vendor	:						: "multiflow"
863hosttype:						: "multiflow"
864machtype:						: "multiflow"
865ostype	:						: "bsd43"
866enddef	:
867
868
869newdef	: defined(SXA)
870comment	: PFU/Fujitsu A-xx computer
871vendor	:						: "sxa"
872hosttype:						: "pfa50"
873ostype	: defined(_BSDX_)				: "e60-bsdx"
874ostype	: 						: "e60"
875machtype:						: "pfa50"
876enddef	:
877
878
879newdef	: defined(titan)
880comment	: (St)Ardent Titan
881vendor	:						: "ardent"
882hosttype:						: "titan"
883enddef	:
884
885
886newdef	: defined(stellar)
887comment	: Stellar
888vendor	:						: "stellar"
889hosttype:						: "stellar"
890ostype	:						: "stellix"
891enddef	:
892
893
894newdef	: defined(atari)
895comment	: Atari TT running SVR4. This machine was never
896comment	: commercially available.
897vendor	:						: "atari"
898hosttype:						: "atari"
899ostype	:						: "asv"
900enddef	:
901
902
903newdef	: defined(OPUS)
904comment	: ???
905vendor	:						: "opus"
906hosttype:						: "opus"
907enddef	:
908
909
910newdef	: defined(eta10)
911comment	: ETA running SVR3
912vendor	:						: "eta"
913hosttype:						: "eta10"
914enddef	:
915
916
917newdef	: defined(hk68)
918comment	: Heurikon HK68 running Uniplus+ 5.0
919vendor	:						: "heurikon"
920hosttype:						: "hk68"
921ostype	:						: "uniplus"
922enddef	:
923
924
925newdef	: defined(NDIX)
926comment	: Norsk Data ND 500/5000 running Ndix
927vendor	:						: "norsk"
928hosttype:						: "nd500"
929ostype	:						: "ndix"
930enddef	:
931
932
933newdef	: defined(AMIGA)
934comment	: Amiga running AmigaOS+GG
935vendor	:						: "commodore"
936hosttype:						: "amiga"
937ostype	:						: "AmigaOS"
938machtype:						: "m68k"
939enddef	:
940
941
942newdef	: defined(uts)
943comment	: Amdahl running uts 2.1
944vendor	: 						: "amdahl"
945hosttype:						: "amdahl"
946ostype	:						: "uts"
947machtype:						: "amdahl"
948enddef	:
949
950
951newdef	: defined(UTek)
952comment	: Tektronix 4300 running UTek (BSD 4.2 / 68020 based)
953vendor	:						: "tektronix"
954hosttype: 						: "tek4300"
955enddef	:
956
957
958newdef	: defined(UTekV)
959comment	: Tektronix XD88/10 running UTekV 3.2e (SVR3/88100 based)
960vendor	:						: "tektronix"
961hosttype: 						: "tekXD88"
962enddef	:
963
964
965newdef	: defined(__DGUX__)
966comment	: Data-General AViiON running DGUX
967hosttype:						: "aviion"
968ostype	:						: "dgux"
969vendor	:						: "dg"
970machtype: defined(__m88k__)				: "m88k"
971machtype: defined(__i386__)				: "pentium"
972enddef	:
973
974
975newdef	: defined(sysV68)
976comment	: Motorola MPC running System V/68 R32V2 (SVR3/68020 based)
977vendor	:						: "motorola"
978hosttype: 						: "sysV68"
979machtype:						: "m68k"
980enddef	:
981
982
983newdef	: defined(supermax)
984comment	: DDE Supermax running System V/68 R3 (SVR3/68020 based)
985vendor	:						: "supermax"
986hosttype: 						: "supermax"
987machtype:						: "m68k"
988enddef	:
989
990
991newdef	: defined(sysV88)
992comment	: Motorola MPC running System V/88 R32V2 (SVR3/88100 based)
993vendor	:						: "motorola"
994hosttype: 						: "sysV88"
995machtype:						: "m88k"
996enddef	:
997
998
999newdef	: defined(__clipper__)
1000comment	: Clipper Chipset (Intergraph)
1001vendor	:						: "intergraph"
1002hosttype:						: "clipper"
1003machtype:						: "clipper"
1004enddef	:
1005
1006
1007newdef	: (defined(SNI) || defined(sinix)) && !defined(_OSD_POSIX)
1008comment	: Fujitsu Siemens Computers (former "Siemens Nixdorf Informationssysteme"): SINIX aka. ReliantUNIX, a SVR4 derivative
1009vendor	:						: "fsc"
1010hosttype: defined(M_intel)				: "wx200i"
1011hosttype: defined(MIPSEB)				: "rm400"
1012ostype	: defined(sinix)				: "sinix"
1013machtype: defined(M_i586)				: "i586"
1014machtype: defined(M_i486)				: "i486"
1015machtype: defined(M_i386)				: "i386"
1016machtype: defined(M_mipsel)				: "mipsel"
1017machtype: defined(M_mipseb)				: "mipseb"
1018machtype:						: "mips"
1019enddef	:
1020
1021newdef	: defined(_OSD_POSIX)
1022comment	: Fujitsu Siemens Computers (former "Siemens Nixdorf Informationssysteme"): BS2000 POSIX (mainframe, EBCDIC)
1023vendor	:						: "fsc"
1024hosttype:						: "bs2000"
1025ostype	:						: "osdposix"
1026machtype: #machine(7500)				: "s390"
1027machtype: #machine(mips)				: "mips"
1028machtype: #machine(sparc)				: "sparc"
1029machtype:						: "bs2000"
1030enddef	:
1031
1032newdef	: defined(__MVS__)
1033comment	: ibm uss s/390 (mainframe, EBCDIC)
1034vendor	:						: "ibm"
1035hosttype:					 	: "s390"
1036ostype	: 						: "os390"
1037machtype:						: "s390"
1038enddef	:
1039
1040newdef	: defined(_SX)
1041comment : NEC Corporation (SX-4)
1042vendor	: 						: "nec"
1043ostype	:						: "superux"
1044hosttype:						: "sx4"
1045machtype:						: "sx4"
1046enddef	:
1047
1048newdef  : !defined(SOLARIS2) && (SYSVREL == 4)
1049comment : Unix System V Release 4.0
1050vendor  : defined(DELL)					: "dell"
1051hosttype: defined(M_i386)				: "i386"
1052ostype  :						: "svr4"
1053machtype: defined(M_i386)				: "i386"
1054enddef	:
1055
1056newdef	: defined(__uxp__) || defined(__uxps__)
1057comment	: FUJITSU DS/90 7000
1058vendor	:						: "fujitsu"
1059hosttype:						: "ds90"
1060ostype	:						: "sysv4"
1061machtype:						: "sparc"
1062enddef	:
1063
1064newdef  : defined(_UWIN)
1065comment : AT&T Research Unix for Windows
1066vendor  :               				: "att"
1067hosttype:                       			: "win32.i386"
1068machtype:                       			: "i386"
1069enddef	:
1070
1071
1072newdef	: defined(mc68000) || defined(__mc68000__) || defined(mc68k32) || defined(m68k) || defined(mc68010) || defined(mc68020)
1073hosttype:						: "m68k"
1074vendor	: defined(m68k)					: "motorola"
1075machtype:						: "m68k"
1076enddef	:
1077
1078
1079newdef	: defined(m88k) || defined(__m88k__)
1080hosttype:						: "m88k"
1081machtype:						: "m88k"
1082enddef	:
1083
1084
1085newdef	: defined(M_intel)
1086hosttype: defined(M_i586)				: "i586"
1087hosttype: defined(M_i486)				: "i486"
1088hosttype: defined(M_i386)				: "i386"
1089vendor	: 						: "intel"
1090machtype: defined(M_i586)				: "i586"
1091machtype: defined(M_i486)				: "i486"
1092machtype: defined(M_i386)				: "i386"
1093enddef	:
1094
1095
1096newdef	: defined(sparc) || defined(__sparc__)
1097hosttype:						: "sparc"
1098machtype:						: "sparc"
1099enddef	:
1100
1101
1102newdef	: defined(i860) || defined(__i860__)
1103hosttype:						: "i860"
1104machtype:						: "i860"
1105enddef	:
1106
1107
1108newdef	: defined(osf1)
1109ostype	:						: "osf1"
1110enddef	:
1111
1112
1113newdef	: SYSVREL == 0
1114ostype	: defined(BSD4_4)				: "bsd44"
1115ostype	: defined(BSD)					: "bsd"
1116ostype	: defined(POSIX)				: "posix"
1117enddef	:
1118
1119
1120newdef	: SYSVREL == 1
1121ostype	: 						: "svr1"
1122enddef	:
1123
1124
1125newdef	: SYSVREL == 2
1126ostype	: 						: "svr2"
1127enddef	:
1128
1129
1130newdef	: SYSVREL == 3
1131ostype	: 						: "svr3"
1132enddef	:
1133
1134
1135newdef	: SYSVREL == 4
1136ostype	: 						: "svr4"
1137enddef	:
1138
1139
1140newcode	:
1141#ifndef _hosttype_
1142    hosttype = "unknown";
1143#endif
1144#ifndef _ostype_
1145    ostype = "unknown";
1146#endif
1147#ifndef _vendor_
1148    vendor = "unknown";
1149#endif
1150#ifndef _machtype_
1151    machtype = "unknown";
1152#endif
1153    tsetenv(STRHOSTTYPE, str2short(hosttype));
1154    tsetenv(STRVENDOR,   str2short(vendor));
1155    tsetenv(STROSTYPE,   str2short(ostype));
1156    tsetenv(STRMACHTYPE, str2short(machtype));
1157} /* end setmachine */
1158endcode	:
1159