Context Navigation

host.defs @ 12039

Visit:

Revision 12039, 26.3 KB checked in by danw, 26 years ago (diff)
This commit was generated by cvs2svn to compensate for changes in r12038, which included commits to RCS files with non-trunk default branches.

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

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format