1 /* 2 * Copyright (c) 1980 Regents of the University of California. 3 * All rights reserved. 4 * 5 * Redistribution and use in source and binary forms are permitted 6 * provided that the above copyright notice and this paragraph are 7 * duplicated in all such forms and that any documentation, 8 * advertising materials, and other materials related to such 9 * distribution and use acknowledge that the software was developed 10 * by the University of California, Berkeley. The name of the 11 * University may not be used to endorse or promote products derived 12 * from this software without specific prior written permission. 13 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR 14 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED 15 * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. 16 */ 17 18 #ifndef lint 19 static char sccsid[] = "@(#)systemname.c 5.3 (Berkeley) 06/18/88"; 20 #endif /* not lint */ 21 22 # include "trek.h" 23 24 /* 25 ** RETRIEVE THE STARSYSTEM NAME 26 ** 27 ** Very straightforward, this routine just gets the starsystem 28 ** name. It returns zero if none in the specified quadrant 29 ** (which, by the way, is passed it). 30 ** 31 ** This routine knows all about such things as distressed 32 ** starsystems, etc. 33 */ 34 35 char *systemname(q1) 36 struct quad *q1; 37 { 38 register struct quad *q; 39 register int i; 40 41 q = q1; 42 43 i = q->qsystemname; 44 if (i & Q_DISTRESSED) 45 i = Event[i & Q_SYSTEM].systemname; 46 47 i &= Q_SYSTEM; 48 if (i == 0) 49 return (0); 50 return (Systemname[i]); 51 } 52