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