xemp5.1-beta/ 40755 12266 2116 0 6043206315 11335 5ustar jponexorxemp5.1-beta/BUGS100644 12266 2116 645 5357364376 12125 0ustar jponexor- enemy landunits are not deleted from sectors, you sucessfully attacked. - assault has problems with landunits - recon has also some problem, dont remeber what, crashed one time here. - sometime it crashes with because of a invalid sector argument. happened a few times to me, but i'm not able to reproduce it. - mobcost is not always correct (assumes 100% roads use no mob) - a lot more which i forgot at the moment xemp5.1-beta/CHANGES100644 12266 2116 4475 6043205577 12450 0ustar jponexor* Changes since xemp relase 5.0.02, (Julian Onions ) - added parsing for some of the new empire server formats - set default options if connected to a server 2 beta - nation displays more stuff if it can. - fixed a bug with newdes tests. - added a temporary highlight command - added support for ship missions - added support for planes missions - added support for ship orders - added GNU configure support - added retreat orders for ships - added missions for land - save and restore land units - parse ship names from coastwatch - added retreat orders for land - added ansi C stuff - added new mode stuff and change in actions. - released first beta - added a power display command. - change country information to make new window. - fixed some parsing stuff for programs. - worked round odd output in nav and march - RELEASED 5.1a - added in budget code - FIXES from Patrick Kenny - lload/lunload works correctly for loading/unloading - change for emp3server - new load/unload syntax - add flak/marine/anti-missile capabilities - RELEASED 5.1b - added regex code for matching purposes - new scuttle stuff - bugs in various scanning stuff - RELEASED 5.1c - various portability problems for sunos. - some restructuring. * Changes since xemp initial release of xemp 5.0 (17.03.93) 19.03.93 - spurious misplacing of ships after marching with units should be fixed. - enemy ships show now up again. 24.03.93 - simulate update is now correct for eff/prod/deliver/distribute. 25.03.93 - armyadd works now. (also should fleetadd) 26.03.93 - option '-N' (make no connection) does work again. needs some work to do, that the behavior is the same as when doing a connection. - build needs only 10%/20% (plane,landunit/ships) of material present to build - added ALLYHARBORWORK-option (simul. update) - added unitcost to simul. update - added announcements to IsEmpireMessage, so xemp does not interpret the announcements message as failed command. 31.03.93 - shipnames are now correct shown. removed the leading '*' from setting name. 01.04.93 - added scanning of new nation-output 02.04.93 - corrected maintenace cost - added units to check 03.04.93 - corrected income and mil. payment in simul. update. - corrected ship/plane/unit eff grow in simul. update - added CARRIER_WORK to simul. update. - released V 5.0.02 xemp5.1-beta/CHANGES.OLD100644 12266 2116 573 5334624460 13036 0ustar jponexor# changes made by etienne@imp.ch * ported to sgi * highlight mines works * changed the options-scanning and added all chainsaw 2.1 options * demob & convert shows now correct values * added code for OWNASSAULT * added grind & cede * changed commands.c that it does only show possible commands * changed distribute realm for chainsaw 3.0 * fixed landscan (scanning eff 2 times) xemp5.1-beta/GNUmakefile100644 12266 2116 2305 6034231421 13500 0ustar jponexorinclude make/ConfigMakefile # These variables are configurable. #---------------------------------------# ifdef XEMP DIRS := lib x endif ifdef TCEMP DIRS := lib termc endif #---------------------------------------# .PHONY: all depend clean dependall cleanall checkinall editinall checkoutall editoutall include make/UtilMakefile # Productions: # all: Make everything # depend: Modify the makefiles to reflect the local setup. # dependall: Make depend in all the directories. # cleanall: Make clean in all the directories. # archall: (If the ARCH env var is set). mkdir $ARCH in all subdirs. all: dirs ifdef SRCDIR depend: mkmf -df make/GenMakefile SRCDIR=$(SRCDIR) else depend: mkmf -df make/GenMakefile endif clean: dependall: $(MAKE) COMMAND=depend recursive cleanall: $(MAKE) COMMAND=clean recursive checkinall: $(MAKE) COMMAND=checkin recursive editinall: $(MAKE) COMMAND=editin recursive checkoutall: $(MAKE) COMMAND=checkout recursive editoutall: $(MAKE) COMMAND=editout recursive installall: $(MAKE) COMMAND=install recursive install: ifdef ARCH eviscerate: find . -name $(ARCH) -a -type d -exec rm -rf \{\} \; archall: $(MAKE) COMMAND=arch recursive endif xemp5.1-beta/TODO100644 12266 2116 1451 6024067161 12126 0ustar jponexor- fire. some routines are there, but mostly for testing. i guess all has to be rewritten there. - most of the plane stuff is not done, or not fully done. but till you reach plane-tech, it might be in. - enemy planes youve seen, are not shown or saved. - FUEL is ignored, you always get full mob. in simul. update. - fortify does not alter the census. - nothing of 3.0 is supported with highlight or the scriptlang. i dont have the src for the parser. - if '-N' (no connection) is choosen, it does not use chain 3.0 code. - does not save some info. for that, the dumpfile has to be extended. and then there should be some converting prg. so that people dont loose all old info. - eff. gain for forts does not depend on available hcms. - BUDGET is not supported. (but the new update-seq with BUDGET is) xemp5.1-beta/doc100744 12266 2116 4041 5334624360 12130 0ustar jponexor#!/bin/sh more=${PAGER-more} show=`pwd`/bin/show cd info.t echo "Searching troff files" files=`find . -name '*.t' -print` echo "Found: " `ls -1 $files | wc -l` " files" echo echo echo Documentation echo echo "1: Print info files (dip)" echo "2: Print info files (lpr)" echo "3: View info files (xtroff)" echo "4: View info files (more)" echo "5: Install info files" echo "6: Help on compiling tcemp" echo "7: Help on compiling xemp" echo echo -n "Command: " read ans case ${ans} in 1) ${show} -t -d ${files} exit ;; 2) echo "Print command (eg: lpr -Pp01)" echo -n "Command: " read com exit ;; 3) ${show} -t -x ${files} exit ;; 4) ${show} -t ${files} exit ;; 5) for file in ${files} do dir=`dirname $file` if test ! -d ../info/${dir} then mkdir ../info/${dir} fi tbl ${file} | nroff -ms crt.mac - | awk -f Blank.awk | sed -e 's/8//g' \ -e 's/_//g' \ -e 's/o+/*/g' > \ ../info/${dir}/`basename ${file} .t` echo ${file} done done exit ;; 6) show tcemp/help.t files="tcemp/compiling.t tcemp/xemprc.t tcemp/startup.t \ tcemp/pager.t" echo echo "1: Print those info-files (dip)" echo "2: Print those info-files (lpr)" echo "3: Show those info-files (xtroff)" echo "4: Show those info-files (more)" echo echo -n "Command: " read ans case ${ans} in 1) echo "Print command (eg: dip -Pp01)" echo -n "Dip-Command: " read com tbl ${files} | troff -ms troff.mac - > XXX eval $com XXX rm XXX exit ;; 2) echo "Print command (eg: lpr -Pp01)" echo -n "Print-Command: " read com tbl ${files} | nroff -ms lp.mac - > XXX eval $com XXX rm XXX exit ;; 3) xtroff -command \ "tbl ${files} | troff -ms troff.mac -" exit ;; 4) ${show} ${files} exit ;; *) echo "Illegal choice" exit ;; esac ;; 7) echo "No documentation on installing xemp, look at tcemp" exit ;; *) echo "Invalid input" exit ;; esac xemp5.1-beta/editout100755 12266 2116 370 5351124371 13017 0ustar jponexorcd include co -q -l RCS/* cd .. cd x co -q -l RCS/* cd icons co -q -l RCS/* cd ../include_x co -q -l RCS/* cd ../../lib for dir in census clients commands data deity land misc nuke parse plane ship update util do cd $dir co -q -l RCS/* cd .. done xemp5.1-beta/include/ 40755 12266 2116 0 6043206215 12757 5ustar jponexorxemp5.1-beta/include/census.h100444 12266 2116 12550 6032444710 14550 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/include/RCS/census.h,v 5.2 1995/09/08 06:49:54 jpo Exp $ $Date: 1995/09/08 06:49:54 $ $Author: jpo $ $Id: census.h,v 5.2 1995/09/08 06:49:54 jpo Exp $ $Locker: $ $Log: census.h,v $ Revision 5.2 1995/09/08 06:49:54 jpo sync * Revision 5.1 93/03/14 16:38:05 etienne * changed/added defs for chain 3.0 * * Revision 5.0 93/02/06 09:25:20 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:17:12 greyhelm * Added RCS headers - Karl Hagen * */ #ifndef _CENSUS #define _CENSUS #ifdef TERMC_VERSION /* * Normal Layout */ #define NL_SY_SCT 0 #define NL_SY_CENSUS 3 #define NL_SY_RESOUR 5 #define NL_SY_CRAFTS 7 #define NL_SY_DISTR 9 #define NL_SY_COMM 10 #define NL_SY_BUT 23 #define NL_SX_SHIP 1 #define NL_SX_INFO 7 #define NL_SX_NUKE 13 #define NL_SX_PLANE 20 /* * Additional layout */ #define NL_SY_ADDIT 10 #define AL_SY_BUT 23 #define AL_SX_SECTOR 11 #define NL_ADDIT_LINES 6 /* * Ship layout */ #define SL_SY_TYPE 5 #define SL_SY_NAME 6 #define SL_SY_FERRY 7 #define SL_SY_OWNER 8 #define SL_SY_STATS 10 #define SL_SY_COM 14 #define SL_SY_BUT 19 #define SL_SX_SECTOR 1 #define SL_SX_FLEET 11 #define SL_SX_NEXT 19 #define SL_SY_FUNCBUT 21 /* * Fleet layout */ #define FL_MAX_SHIPS 5 #define FL_SY_FLEET 6 #define FL_SY_POS 7 #define FL_SY_FERRY 8 #define FL_SY_HEADER 10 #define FL_SY_SHIPS 12 #define FL_SY_BUT 18 #define FL_SX_SECTOR 1 #define FL_SX_MORE 10 #define FL_SX_NEXT 19 /* * Land layout */ /* * Army layout */ #define FL_MAX_LANDS 5 #define FL_SY_ARMY 6 #define FL_SY_POS 7 #define FL_SY_HEADER 10 #define FL_SY_LANDS 12 #define FL_SY_BUT 18 #define FL_SX_SECTOR 1 #define FL_SX_MORE 10 #define FL_SX_NEXT 19 /* * Plane layout */ #define PL_SY_NAME 7 #define PL_SY_POS 8 #define PL_SY_WING 9 #define PL_SY_NUMBER 10 #define PL_SY_STATS 12 #define PL_SY_BUT 18 #define PL_SX_SECTOR 1 #define PL_SX_WING 10 #define PL_SX_NEXT 19 #define PL_SY_FUNCBUT 20 /* * Wing layout */ #define WL_MAX_PLANES 6 #define WL_SY_WING 6 #define WL_SY_POS 7 #define WL_SY_HEADER 9 #define WL_SY_PLANES 11 #define WL_SY_BUT 18 #define WL_SX_SECTOR 1 #define WL_SX_MORE 10 #define WL_SX_NEXT 19 /* * Nuke layout */ #define NKL_SY_NR 6 #define NKL_SY_NUKES 8 #define NKL_SY_BUT 20 #define NKL_SX_SHIP 1 #define NKL_SX_SECTOR 10 #define NKL_SX_PLANE 20 #define NKL_SY_FUNCBUT 22 #define NKL_MAX_NUKES 7 /* * Plan Layout */ #define SL_PLAN_START 7 #define SL_PLAN_CIVS 12 #define SL_PLAN_THRESH 17 #else /* * X version * * Normal layout */ #define NL_SY_SCT 1 #define NL_SY_CENSUS 3 #define NL_SY_RESOUR 6 #define NL_SY_CRAFTS 9 #define NL_SY_DISTR 11 #define NL_SY_COMM 13 #define NL_SY_BUT 27 #define NL_SX_SHIP 2 #define NL_SX_NUKE 10 #define NL_SX_PLANE 19 #define NL_SX_SHIP3 2 #define NL_SX_PLANE3 8 #define NL_SX_NUKE3 14 #define NL_SX_LAND3 20 #define NL_SY_ADDIT 29 #define NL_ADDIT_LINES 6 /* * Ships layout */ #define SL_SY_TYPE 12 /* next 6 defines -1 by ET */ #define SL_SY_NAME 13 #define SL_SY_OWNER 14 #define SL_SY_FERRY 14 #define SL_SY_CARGO 15 #define SL_SY_STATS 16 #define SL_SY_COM 23 #define SL_SY_BUT 28 #define SL_SX_SECTOR 1 #define SL_SX_FLEET 11 #define SL_SX_NEXT 20 #define SL_SY_FUNCBUT (CENSUS_HEIGHT - 4) /* * Fleet layout */ #define FL_MAX_SHIPS (CENSUS_HEIGHT - 27) #define FL_SY_FLEET 13 #define FL_SY_POS 14 #define FL_SY_FERRY 15 #define FL_SY_MISSION 16 #define FL_SY_RETREAT 17 #define FL_SY_HEADER 19 #define FL_SY_SHIPS 20 #define FL_SY_BUT (CENSUS_HEIGHT - 6) #define FL_SX_SECTOR 2 #define FL_SX_MORE 10 #define FL_SX_NEXT 20 /* * Lands layout */ #define LL_SY_TYPE 14 #define LL_SY_OWNER 15 #define LL_SY_STATS 16 #define LL_SY_COM 23 #define LL_SY_BUT 28 #define LL_SX_SECTOR 1 #define LL_SX_ARMY 11 #define LL_SX_NEXT 20 #define LL_SY_FUNCBUT (CENSUS_HEIGHT - 4) /* * Army layout */ #define AL_MAX_LANDS (CENSUS_HEIGHT - 26) #define AL_SY_ARMY 13 #define AL_SY_POS 14 #define AL_SY_MISSION 15 #define AL_SY_RETREAT 16 #define AL_SY_HEADER 18 #define AL_SY_LANDS 19 #define AL_SY_BUT (CENSUS_HEIGHT - 6) #define AL_SX_SECTOR 2 #define AL_SX_MORE 10 #define AL_SX_NEXT 20 /* * Plane layout */ #define PL_SY_NAME 16 #define PL_SY_POS 17 #define PL_SY_WING 18 #define PL_SY_NUMBER 19 #define PL_SY_STATS 21 #define PL_SY_BUT 26 #define PL_SX_SECTOR 1 #define PL_SX_WING 11 #define PL_SX_NEXT 20 #define PL_SY_FUNCBUT (CENSUS_HEIGHT - 4) /* * Wing layout */ #define WL_MAX_PLANES (CENSUS_HEIGHT - 27) #define WL_SY_WING 16 #define WL_SY_POS 17 #define WL_SY_HEADER 19 #define WL_SY_PLANES 20 #define WL_SY_BUT (CENSUS_HEIGHT - 6) #define WL_SX_SECTOR 1 #define WL_SX_MORE 10 #define WL_SX_NEXT 19 /* * Nuke layout */ #define NKL_SY_NR 16 #define NKL_SY_NUKES 18 #define NKL_SY_BUT 27 #define NKL_SX_SHIP 2 #define NKL_SX_SECTOR 10 #define NKL_SX_PLANE 19 #define NKL_SY_FUNCBUT 29 #define NKL_MAX_NUKES 8 /* * Plan Layout */ #define SL_PLAN_START 16 #define SL_PLAN_CIVS 21 #define SL_PLAN_THRESH 26 #endif /* VERSION */ struct s_funcbutton { int id; char * name; int x, y; int len; }; #endif /* _CENSUS */ xemp5.1-beta/include/config.h.in100444 12266 2116 756 6043127335 15072 0ustar jponexor#ifndef _CONFIG_H_ #define _CONFIG_H_ #undef HAVE_VPRINTF #undef HAVE_X11 #undef HAVE_UNISTD_H #undef HAVE_BCOPY #undef HAVE_MEMMOVE #undef HAVE_BZERO #undef HAVE_RANDOM #undef HAVE_STRING_H #undef HAVE_STRINGS_H #undef HAVE_STRCHR #undef HAVE_STRSTR #undef HAVE_SIGSETMASK #undef HAVE_TERMIO_H #undef HAVE_TERMIOS_H #undef HAVE_SYS_IOCTL_H #undef HAVE_SYS_FILE_H #undef HAVE_SGTTY_H #undef _POSIX_SOURCE #undef HAVE_SYS_SELECT_H #undef uchar #undef HAVE_GETDTABLESIZE #endif /* _CONFIG_H_ */ xemp5.1-beta/include/dlist.h100444 12266 2116 1765 6032444710 14355 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/include/RCS/dlist.h,v 5.2 1995/09/28 07:05:17 jpo Exp $ $Date: 1995/09/28 07:05:17 $ $Author: jpo $ $Id: dlist.h,v 5.2 1995/09/28 07:05:17 jpo Exp $ $Locker: $ $Log: dlist.h,v $ Revision 5.2 1995/09/28 07:05:17 jpo sync Revision 5.1 1993/03/14 16:38:51 etienne * Revision 5.0 93/02/06 09:25:20 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:17:12 greyhelm * Added RCS headers - Karl Hagen * */ #ifndef _DLIST #define _DLIST #define HEAD 0 #define TAIL 1 #define NEXT 2 #define PREV 3 #define CURRENT 4 #ifndef DLISTPTR # define DLISTPTR char * #endif #ifndef ENTRYPTR # define ENTRYPTR char * #endif extern DLISTPTR DLNew (); extern ENTRYPTR DLAddElem (); extern ENTRYPTR DLInsElem (); extern ENTRYPTR DLGet (); #define FWRITE (void (*) ()) 0 #define FREAD (void (*) ()) 0 #define FREE (void (*) ()) 0 #endif /* _DLIST */ xemp5.1-beta/include/emp_proto.h100444 12266 2116 1605 6032444710 15233 0ustar jponexor/* * proto.h * * The master copy of this is in the standard include directory. * A copy is placed in the client directory to allow client * to be compiled independently of the rest of the game. * * Dave Pare, 1986 * $Revision: 5.2 $ $Date: 1995/09/08 06:50:10 $ */ #define CLIENTPROTO 2 /* if new things are added, bump this */ #define USER 0 #define COUN 1 #define QUIT 2 #define PASS 3 #define PLAY 4 #define LIST 5 #define CMD 6 #define CTLD 7 #define WAT 8 #define KILL 9 #define GKILL 10 /* kill even if process stuck --ts */ #define C_CMDOK 0x0 #define C_DATA 0x1 #define C_INIT 0x2 #define C_EXIT 0x3 #define C_FLUSH 0x4 #define C_NOECHO 0x5 #define C_PROMPT 0x6 #define C_ABORT 0x7 #define C_REDIR 0x8 #define C_PIPE 0x9 #define C_CMDERR 0xA #define C_BADCMD 0xB #define C_EXECUTE 0xC #define C_FLASH 0xD #define C_INFORM 0xE #define C_LAST 0xE xemp5.1-beta/include/ferry.h100444 12266 2116 4512 6032444710 14356 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/include/RCS/ferry.h,v 5.2 1995/09/08 06:50:19 jpo Exp $ $Date: 1995/09/08 06:50:19 $ $Author: jpo $ $Id: ferry.h,v 5.2 1995/09/08 06:50:19 jpo Exp $ $Locker: $ $Log: ferry.h,v $ Revision 5.2 1995/09/08 06:50:19 jpo bit of redefinition * Revision 5.1 93/03/14 16:39:07 etienne * * * Revision 5.0 93/02/06 09:25:20 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:17:12 greyhelm * Added RCS headers - Karl Hagen * */ #ifndef _FERRY #define _FERRY #ifndef _VAR #include "var.h" #endif #define RET_DONE 0 #define RET_PREV 1 #define RET_NEXT 2 #define RET_DELE 3 #define TASK_CARGO 0 #define TASK_GOTO 1 #define TASK_EXPLORE 2 #define TASK_OIL 3 #define TASK_MAX 2 struct s_ferry { int id; char fleet; /* when '\0'-> use shipnr */ int shipnr; int task; bool active; bool complet; bool goto_a; char expl_dir; int waremob; int oil_min; int ax, ay, bx, by; int dir [V_MAX]; /* bit 0: A -> B * bit 1: B -> A * bit 2: import */ int thr_ship [V_MAX]; int thr_sct [V_MAX]; int max_ship [V_MAX]; Ferry next, prev; }; #define SET_A_TO_B(i) ((i) = (((i) & ~0x03) | 0x01)) #define SET_B_TO_A(i) ((i) = (((i) & ~0x03) | 0x02)) #define SET_NOMOVE(i) ((i) &= ~0x03) #define SET_IMPORT(i) ((i) |= 0x04) #define SET_NOIMP(i) ((i) &= ~0x04) #define IS_A_TO_B(i) (((i) & 0x01) == 0x01) #define IS_B_TO_A(i) (((i) & 0x02) == 0x02) #define IS_NOMOVE(i) (((i) & 0x03) == 0x00) #define IMPORT(i) (((i) & 0x04) == 0x04) #ifdef TERMC_VERSION #define F_MAX_X 70 #define F_SX_DONE 2 #define F_SX_PREV 16 #define F_SX_RUN 30 #define F_SX_NEXT 44 #define F_SX_DELETE 58 #define LINE_FLEET 1 #define LINE_SECTA 2 #define LINE_SECTB 3 #define LINE_ACTIVE 4 #define LINE_DIR 5 #define LINE_WAREH 6 #define LINE_HEADER 7 #define LINE_ITEMS 8 #define LINE_LOW LINE_ITEMS + V_MAX #else /* X_VERSION */ #define F_MAX_X 80 #define F_SX_DONE 3 #define F_SX_PREV 20 #define F_SX_RUN 38 #define F_SX_NEXT 54 #define F_SX_DELETE 69 #define LINE_FLEET 5 #define LINE_SECTA 7 #define LINE_SECTB 8 #define LINE_ACTIVE 9 #define LINE_DIR 10 #define LINE_WAREH 12 #define LINE_HEADER 15 #define LINE_ITEMS 17 #define LINE_LOW LINE_ITEMS + V_MAX + 3 #endif /* TERMC_VERSION */ #endif _FERRY xemp5.1-beta/include/func.h100444 12266 2116 2201 6032444710 14153 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/include/RCS/func.h,v 5.2 1995/09/28 07:05:17 jpo Exp $ $Date: 1995/09/28 07:05:17 $ $Author: jpo $ $Id: func.h,v 5.2 1995/09/28 07:05:17 jpo Exp $ $Locker: $ $Log: func.h,v $ Revision 5.2 1995/09/28 07:05:17 jpo sync Revision 5.1 1993/03/14 16:39:10 etienne * Revision 5.0 93/02/06 09:25:20 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:17:12 greyhelm * Added RCS headers - Karl Hagen * */ #define SELECT LEFT_BUTTON #define CANCEL MIDDLE_BUTTON #define CANCELALL RIGHT_BUTTON #define NOFUNC 0 #define DEFAULTFUNC -1 #define WRITEFUNC -2 #define READFUNC -3 #define DONEFUNC -4 #define NEWFUNC -5 #define RUNFUNC -6 #define NONEFUNC -7 #define KEEPFUNC -8 #define DELETEFUNC -9 #define RETREADFUNC -10 #define CANCELFUNC -11 #define TOGGLEFUNC -12 #define TOGGLEWINGFUNC -13 #define TOGGLEFLEETFUNC -13 #define COMPILEFUNC -14 #define TOWMFUNC -15 #define ANSWERFUNC -16 #define CONCATFUNC -17 #define SELECTFUNC -18 #define SAVEFUNC -19 xemp5.1-beta/include/land.h100444 12266 2116 15273 6032444711 14174 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/include/RCS/land.h,v 5.3 1995/09/27 13:18:29 jpo Exp $ $Date: 1995/09/27 13:18:29 $ $Author: jpo $ $Id: land.h,v 5.3 1995/09/27 13:18:29 jpo Exp $ $Locker: $ $Log: land.h,v $ Revision 5.3 1995/09/27 13:18:29 jpo Added flak units Revision 5.2 1995/09/08 06:50:37 jpo support for missions move Task to types support for retreat * Revision 5.1 93/03/14 16:39:12 etienne * added some things (dont remeber all) * * Revision 5.0 93/02/06 09:25:20 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:17:12 greyhelm * Added RCS headers - Karl Hagen * */ #ifndef _LAND #define _LAND #ifndef _VAR #include "var.h" #endif _VAR /* * No need to add entries for the old coordinates of * an enemy unit. Let's take the lcm & hcm values */ #define old_x lcm #define old_y hcm struct l_land { short owner; /* deity only */ short nr; short type; short x, y; char army; short eff; short fort; short mob; uchar moves; short food; short fuel; short tech; short retr; short arad; /* actions radius */ short xpln; /* xlight planes */ short shipnr; short shell; short gun; short pet; short iron; short dust; short bar; short oil; short lcm; short hcm; short rad; time_t time; Land nextsct, next; bool marked; short rtrtx, rtrty; uchar rtrcond; char mission; short radius; }; #define ld_owned(p) (int) ((p)-> owner == my_cnum) #define ld_owner(p) (int) (p)-> owner #define ld_nr(p) (int) (p)-> nr #define ld_type(p) (int) (p)-> type #define ld_xcd(p) (int) (p)-> x #define ld_ycd(p) (int) (p)-> y #define ld_army(p) (int) (p)-> army #define ld_eff(p) (int) (p)-> eff #define ld_fort(p) (int) (p)-> fort #define ld_mob(p) (int) (p)-> mob #define ld_moves(p) (int) (p)-> moves #define ld_foo(p) (int) (p)-> food #define ld_fuel(p) (int) (p)-> fuel #define ld_tech(p) (int) (p)-> tech #define ld_retr(p) (int) (p)-> retr #define ld_arad(p) (int) (p)-> arad #define ld_xpln(p) (int) (p)-> xpln #define ld_shipnr(p) (int) (p)-> shipnr #define ld_she(p) (int) (p)-> shell #define ld_gun(p) (int) (p)-> gun #define ld_pet(p) (int) (p)-> pet #define ld_iron(p) (int) (p)-> iron #define ld_dust(p) (int) (p)-> dust #define ld_bar(p) (int) (p)-> bar #define ld_oil(p) (int) (p)-> oil #define ld_lcm(p) (int) (p)-> lcm #define ld_hcm(p) (int) (p)-> hcm #define ld_rad(p) (int) (p)-> rad #define ld_next(p) (p)-> next #define ld_nxtsct(p) (p)-> nextsct #define ld_marked(p) (p)-> marked #define ld_time(p) (p)-> time #define ld_mission(p) (p) -> mission #define ld_retreat(p) (p) -> rtrcond #define ld_oldx(p) (p)-> old_x #define ld_oldy(p) (p)-> old_y #define set_ld_owner(p,q) ((p)-> owner = (short) (q)) #define set_ld_nr(p,q) ((p)-> nr = (short) (q)) #define set_ld_type(p,q) ((p)-> type = (short) (q)) #define set_ld_xcd(p,q) ((p)-> x = (short) (q)) #define set_ld_ycd(p,q) ((p)-> y = (short) (q)) #define set_ld_army(p,q) ((p)-> army = (char) (q)) #define set_ld_eff(p,q) ((p)-> eff = (short) (q)) #define inc_ld_eff(p,q) (p)-> eff += (short) (q) #define set_ld_fort(p,q) ((p)-> fort = (short) (q)) #define set_ld_mob(p,q) ((p)-> mob = (short) (q)) #define set_ld_foo(p,q) ((p)-> food = (short) (q)) #define inc_ld_foo(p,q) (p)-> food += (short) (q) #define set_ld_fuel(p,q) ((p)-> fuel = (short) (q)) #define set_ld_tech(p,q) ((p)-> tech = (short) (q)) #define set_ld_retr(p,q) ((p)-> retr = (short) (q)) #define set_ld_arad(p,q) ((p)-> arad = (short) (q)) #define set_ld_xpln(p,q) ((p)-> xpln = (short) (q)) #define set_ld_shipnr(p,q) ((p)-> shipnr = (short) (q)) #define set_ld_she(p,q) ((p)-> shell = (short) (q)) #define set_ld_gun(p,q) ((p)-> gun = (short) (q)) #define set_ld_pet(p,q) ((p)-> pet = (short) (q)) #define set_ld_iron(p,q) ((p)-> iron = (short) (q)) #define set_ld_dust(p,q) ((p)-> dust = (short) (q)) #define set_ld_bar(p,q) ((p)-> bar = (short) (q)) #define set_ld_oil(p,q) ((p)-> oil = (short) (q)) #define set_ld_lcm(p,q) ((p)-> lcm = (short) (q)) #define set_ld_hcm(p,q) ((p)-> hcm = (short) (q)) #define set_ld_rad(p,q) ((p)-> rad = (short) (q)) #define set_ld_next(p,q) ((p)-> next = (q)) #define set_ld_nxtsct(p,q) ((p)-> nextsct = (q)) #define set_ld_marked(p,q) ((p)-> marked = (q)) #define set_ld_mission(p,q) ((p) -> mission = (q)) #define set_ld_oldx(p,q) ((p)-> old_x = (short) (q)) #define set_ld_oldy(p,q) ((p)-> old_y = (short) (q)) #define set_ld_oldpos(p,q,r) { set_ld_oldx(p, q); set_ld_oldy (p, r); } #define set_ld_time(p,q) ((p)-> time = (q)) #define set_ld_moves(p,q) ((p)-> moves = (uchar) (q)) struct l_landtype { char *nam; /* full name of type of landunit */ int lcm; /* units of lcm to build */ int hcm; /* units of hcm to build */ int mil; /* units of mil to build */ int guns; /* units of guns to build */ int shells; /* units of shells to build */ int ava; /* How may workers should be available */ int tec; /* tech required to build */ int cos; /* how much it costs to build */ float att; /* attack value of unit. */ float def; /* defense value of unit. */ int vul; /* how vulnerable to shelling it is */ int spd; /* how fast it can go */ int vis; /* how well it can be seen */ int spy; /* how well it can see */ int rad; /* how far it can react */ int frg; /* how far it can fire */ int acc; /* how many guns it can fire */ int dam; /* how much damage it does when firing*/ int amm; /* how much ammo it uses to fire */ int aaf; /* the AA fire rating of the unit */ int fuse; /* the units fuel usage */ int fcar; /* the units fuel capacity */ int xpl; /* how many light planes on board */ long flags; /* what special things can this landunit do */ int car [V_MAX]; }; #define MAX_LANDTYPES 100 #define L_SUPPLY 0x00001 /* supply unit */ #define L_LIGHT 0x00002 /* light unit */ #define L_ASSAULT 0x00004 /* can take land from water */ #define L_RECON 0x00008 /* gets better info on enemy */ #define L_SECURITY 0x00010 /* better on guerillas */ #define L_ENGINEER 0x00020 /* engineering unit ... better building */ #define L_RADAR 0x00040 /* radar capable */ #define L_MARINE 0x00080 /* marines ... YES! */ #define L_XLIGHT 0x00100 /* can load xligh stuff */ #define L_FLAK 0x00400 /* flak unit */ #define L_KNOWN 0x00200 /* do I know the specs ? */ extern Land landlist; extern LdType landtypes[]; #define ALL_LANDS(p) (p=landlist; p != (Land) 0; p = ld_next (p)) #define LND_RADAR 0 #define LND_LOOK 1 #define LND_MARCH 2 #define LND_FIRE 3 #define LND_MINE 4 #define LND_FORT 5 #define LND_WORK 6 #define LND_SUPPLY 7 #define LND_SET 9 #define LND_SCRAP 10 #define LND_SCUTTLE 11 #define LND_BUILD 12 #define LND_MAX 12 #endif /* _LAND */ xemp5.1-beta/include/main.h100444 12266 2116 16615 6032456037 14207 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/include/RCS/main.h,v 5.4 1995/09/28 08:26:07 jpo Exp $ $Date: 1995/09/28 08:26:07 $ $Author: jpo $ $Id: main.h,v 5.4 1995/09/28 08:26:07 jpo Exp $ $Locker: $ $Log: main.h,v $ Revision 5.4 1995/09/28 08:26:07 jpo Add some new globals. Revision 5.3 1995/09/19 06:50:33 jpo Some bits for later Revision 5.2 1995/09/08 06:51:03 jpo use config.h stuff some new variables * Revision 5.1 93/03/14 16:39:40 etienne * added some things (dont remeber all) * * Revision 5.0 93/02/06 09:25:20 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:17:12 greyhelm * Added RCS headers - Karl Hagen * */ /* ****** ***************** * * C * * MESSAGE * * * E * ***************** * * N * ***************** * * S * * * * * U * * * * * S * * M A P * * * * * * * * * * * * ****** ***************** * ************************ * * * * * E M P I R E * * * * * ************************ */ #ifndef _MAIN #define _MAIN #include "config.h" #ifndef _TYPE #include "type.h" #endif #ifdef X_VERSION #include "xemp.h" #endif #ifdef TERMC_VERSION #include "tcemp.h" #endif #include "options.h" #define UNCOMP_BIN "uncompress -f" #define COMP_BIN "compress -f" #define ROOT_WIDTH 90 #define ROOT_HEIGHT 50 #define CENSUS_WIDTH 26 #define CENSUS_HEIGHT 34 #define DEBUG(x) system (Fmt ("echo '%s' > /dev/console", Fmt x)) #ifdef TERMC_VERSION # define EMPIRE_HEIGHT 3 # define EMPIRE_STARTY (screen_rows - EMPIRE_HEIGHT - 2) # define EMPIRE_STARTX (screen_cols - CENSUS_WIDTH - 2) #else # define EMPIRE_HEIGHT (ROOT_HEIGHT - CENSUS_HEIGHT - 2) # define EMPIRE_STARTY (CENSUS_HEIGHT + 1) #endif #define EMPIRE_SAVEL 50 #define MAP_WIDTH (ROOT_WIDTH - CENSUS_WIDTH - 2) #define MAP_HEIGHT (CENSUS_HEIGHT - MES_HEIGHT - 1) #define MAP_STARTX (CENSUS_WIDTH + 1) #define MAP_STARTY (MES_HEIGHT + 1) #define MES_HEIGHT 2 #define BORDER_WIDTH 2 #define ABS(x) (((x) < 0 ) ? -(x) : (x)) #define XDIST(x1, x2) (WX (x2) < WX (x1) ? \ (MAX_X + WX (x2) - WX (x1)) : \ (WX (x2) - WX (x1))) #define YDIST(y1, y2) (WY (y2) < WY (y1) ? \ (MAX_Y + WY (y2) - WY (y1)) : \ (WY (y2) - WY (y1))) /* States of the client */ #define E_PRINTING 0 #define E_QUESTION 1 #define E_COMMAND 2 #define E_DEAD 3 #define RLM_ALL 0 #define RLM_KNOWN 1 #define RLM_OWNED 2 #ifndef PRINT #define PRINT 0 #define DONT_PRINT 1 #endif PRINT #define MIN_CONTIMEOUT 5 #define NORMAL_MODE 0 #define SHIP_MODE 1 #define PLANE_MODE 2 #define NUKE_MODE 3 #define FLEET_MODE 4 #define WING_MODE 5 #define FERRY_LIST 6 #define PLAN_MODE 7 #define INFO_MODE 8 #define ARMY_MODE 9 #define LAND_MODE 10 #define NOBUTTONS 0x00 #define WRITEBUT 0x01 #define CANCELBUT 0x02 #define DONEBUT 0x04 #define NEWBUT 0x08 #define MAX_SHIPMOB 127 #define MAX_LANDMOB 127 #define MAX_SECTMOB 127 #define MAX_OILCONT 100 #define MAX_TO_LOAD 999 #define MAX_CIV_UW 999 #define MAX_COMM 999 #define MAX_MIL 999 #define RET_BUT_IS(x,y) ((x) == -2 * (y)) #ifndef BUFSIZ #define BUFSIZ 1024 #endif BUFSIZ extern Sector cursct; extern Ship curship; extern Land curland; extern Plane curplane; extern Nuke curnuke; extern Nation nation; extern char curfleet; extern char curarmy; extern char curwing; extern int curnuketype; extern WinInfo mes_win; extern WinInfo empire_win; extern WinInfo map_win; extern WinInfo census_win; extern WinInfo root_win; extern bool interrupt; extern int my_cnum; extern bool bold_is_reversed; extern Sector **world; extern char *mappart, *dumppart, *allships; extern bool deity; extern int command_mode; extern int save_mode; extern int last_layout; extern char *cname, *pname, *user_name, *host; extern char windowname[]; extern int etu_per_update, sec_per_etu; extern double fgrate, fcrate; extern double eatrate, babyeat; extern double obrate, uwbrate; extern int ver_max_x, ver_max_y; extern double bankint; extern double money_civ, money_mil, money_uw, money_res; extern double money_plane, money_ship, money_land; extern double happy_req; extern int safe_civ, safe_uw; extern int max_civ_uw, max_comm, max_mil; extern int sect_mob_max; extern int sect_mob_gain; extern int ship_mob_max; extern int ship_mob_gain; extern int ship_eff_gain; extern int plane_mob_max; extern int plane_mob_gain; extern int plane_eff_gain; extern int land_mob_max; extern int land_mob_gain; extern int land_eff_gain; extern char * progname; extern bool silent_mode; extern bool util_mode; extern bool terse_mode; extern bool save_data, xstarted; extern bool buffer_commands; extern bool buffer_move; extern int command_state; extern bool ksu_version; extern bool chainsaw_version; extern bool land_units; extern bool other_version; extern bool bbn_version; extern bool emp3server; extern bool no_food; extern int nr_realms; extern bool no_empwin; extern bool market; extern bool trade; extern bool budget; extern int savedbits; /* list of new things that are saved - allows upgrades */ #define SAVE_VARS 0x01 extern char chardirs []; /* kludge to make satellite's work */ extern int scanning_satellites; #define BIT_SET(a,b) (((a) & (b)) == (b)) #define SET_BIT(a,b) a |= (b) #define CLR_BIT(a,b) a &= ~ (b) #ifdef TERMC_VERSION #ifndef CNTR #define CNTR(c) (c - 'A' + 1) #endif /* CNTR */ #ifndef ESCAPE #define ESCAPE '\033' #endif /* ESCAPE */ #ifndef BUFSIZ #define BUFSIZ 1024 #endif /* ! BUFSIZ */ #ifndef True #define True 1 #define False 0 #endif /* ! True */ /* * Boxes */ #define NO_BOX 0x00 #define LEFT_BOX 0x01 #define RIGHT_BOX 0x02 #define UPPER_BOX 0x04 #define LOWER_BOX 0x08 #define FULL_BOX 0x0f #define LEFT_BORDER(x) (x & LEFT_BOX) #define RIGHT_BORDER(x) (x & RIGHT_BOX) #define UPPER_BORDER(x) (x & UPPER_BOX) #define LOWER_BORDER(x) (x & LOWER_BOX) #define FULL_BORDER(x) ((x & FULL_BOX) == FULL_BOX) #define MENU FULL_BOX #define LEFT_BUTTON 0 #define MIDDLE_BUTTON 1 #define RIGHT_BUTTON 2 #define PIXELS FULL_BOX #define CHARS FULL_BOX extern int screen_cols, screen_rows; #else /* ! TERMC_VERSION */ #define PIXELS 0 #define CHARS 1 extern bool reversed; #define FIXED 0 #define MENU 1 #define SUBWINDOW 2 #define WM_MENU 3 #define LEFT_BUTTON 1 #define MIDDLE_BUTTON 2 #define RIGHT_BUTTON 3 #endif /* TERMC_VERSION */ #define BOLD 0 #define NORMAL 1 #define REVERSED 2 #define CR_ARROWS 0 #define CR_HJV 1 #define CR_MAP 2 #define CR_MENU 3 #define CR_DISTR 4 #define CR_SMILEY 5 #define GS_TEXT "-a-zA-Z0-9()!@#$%^&*,.<>;:'\"[]{}|?/-_=+~` " #define GS_NUMBER "-+0-9" #define GS_PNUMBER "+0-9" #define GS_SECTOR "-0-9,;@ +" #define GS_SECTORS "-0-9,;@:+ " #define GS_NAME "a-zA-Z " #define GS_YN "yn" #define DESPIX_WIDTH 18 #define DESPIX_HEIGHT 18 /* compatability */ #ifdef HAVE_STRCHR #define index(a,b) strchr((a),(b)) #define rindex(a,b) strrchr((a),(b)) #endif #ifdef HAVE_STRSTR #define StrStr(x,y) strstr((x), (y)) #endif #ifndef HAVE_BCOPY #define bzero(a,b) memset((a), 0, (b)); #define bcopy(b1,b2,length) memcpy ((b2), (b1), (length)) #endif #ifndef HAVE_GETDTABLESIZE #define getdtablesize() _NFILE #endif #ifndef HAVE_RANDOM #define random() rand() #endif #endif _MAIN xemp5.1-beta/include/nation.h100444 12266 2116 2740 6032444711 14521 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/include/RCS/nation.h,v 5.2 1995/09/28 07:05:17 jpo Exp $ $Date: 1995/09/28 07:05:17 $ $Author: jpo $ $Id: nation.h,v 5.2 1995/09/28 07:05:17 jpo Exp $ $Locker: $ $Log: nation.h,v $ Revision 5.2 1995/09/28 07:05:17 jpo sync Revision 5.1 1993/03/14 16:39:43 etienne * Revision 5.0 93/02/06 09:25:20 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:17:12 greyhelm * Added RCS headers - Karl Hagen * */ /* nation.h */ #ifndef _NATION #define _NATION #define NR_REALMS 12 struct s_nation { /* mta Sun Jan 6 23:01:19 EET 1991 * was previously NR_REALMS, but what if game has * non-standard number of realms, allocate big enough * array and use only part of it */ char realm [48] [100]; int btu; double educ; double tech; double tech_fact; double treas; long mil_res; double hap; float research; double plaq_fact; }; #define MAX_NATIONS 1024 #define MAX_CNAMELEN 26 #define UNKNOWN_CNUM -2 #define n_btu(p) p->btu #define n_educ(p) p->educ #define n_tech(p) p->tech #define n_tech_fact(p) p->tech_fact #define n_treas(p) p->treas #define n_mil_res(p) p->mil_res #define n_hap(p) p->hap #define n_research(p) p->research #define n_plag_fact(p) p->plaq_fact #define n_realm(p,i) p->realm [i] #define n_set_treas(p,q) p-> treas = (double) q #define n_delta_treas(p,d) p-> treas += (double) d #endif _NATION xemp5.1-beta/include/nuke.h100444 12266 2116 5333 6032444711 14174 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/include/RCS/nuke.h,v 5.2 1995/09/28 07:05:17 jpo Exp $ $Date: 1995/09/28 07:05:17 $ $Author: jpo $ $Id: nuke.h,v 5.2 1995/09/28 07:05:17 jpo Exp $ $Locker: $ $Log: nuke.h,v $ Revision 5.2 1995/09/28 07:05:17 jpo sync Revision 5.1 1993/03/14 16:39:46 etienne * Revision 5.0 93/02/06 09:25:20 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:17:12 greyhelm * Added RCS headers - Karl Hagen * */ #ifndef _NUKE #define _NUKE #define MAX_NUKETYPES 40 #ifndef _TYPE #include "type.h" #endif /* _TYPE */ struct s_nuke { int nr; int x; int y; int owner; int nuke_amt [MAX_NUKETYPES]; Stockp next; }; #define sp_x(p) (p)-> x #define sp_y(p) (p)-> y #define sp_owner(p) (p)-> owner #define sp_nukamt(p,q) (p)-> nuke_amt [q] #define sp_nr(p) (p)-> nr #define sp_next(p) (p)-> next #define set_sp_x(p,q) (p)-> x = (q) #define set_sp_y(p,q) (p)-> y = (q) #define set_sp_owner(p,q) (p)-> owner = (q) #define set_sp_nukamt(p,q,r) (p)-> nuke_amt [q] = (r) #define set_sp_nr(p,q) (p)-> nr = (q) #define set_sp_next(p,q) (p)-> next = q #define NK_NEUTRON 0x01 struct s_nuketype { char * name; int lcm; int hcm; int oil; int rad; int ava; int tech; int res; int cost; int blst; int dam; int lbs; int abil; }; #define nt_name(z) nuke_type [z]. name #define nt_lcm(i) nuke_type [i]. lcm #define nt_hcm(i) nuke_type [i]. hcm #define nt_oil(i) nuke_type [i]. oil #define nt_rad(i) nuke_type [i]. rad #define nt_ava(i) nuke_type [i]. ava #define nt_tech(i) nuke_type [i]. tech #define nt_res(i) nuke_type [i]. res #define nt_cost(i) nuke_type [i]. cost #define nt_blst(i) nuke_type [i]. blst #define nt_dam(i) nuke_type [i]. dam #define nt_lbs(i) nuke_type [i]. lbs #define nt_abil(i,j) ((nuke_type [i]. abil & j) == j) #define nt_abils(i) nuke_type [i]. abil #define set_nt_name(i,z) nuke_type [i]. name = z #define set_nt_lcm(i,x) nuke_type [i]. lcm = (x) #define set_nt_hcm(i,x) nuke_type [i]. hcm = (x) #define set_nt_oil(i,x) nuke_type [i]. oil = (x) #define set_nt_rad(i,x) nuke_type [i]. rad = (x) #define set_nt_ava(i,x) nuke_type [i]. ava = (x) #define set_nt_tech(i,x) nuke_type [i]. tech = (x) #define set_nt_res(i,x) nuke_type [i]. res = (x) #define set_nt_cost(i,x) nuke_type [i]. cost = (x) #define set_nt_blst(i,x) nuke_type [i]. blst = (x) #define set_nt_dam(i,x) nuke_type [i]. dam = (x) #define set_nt_lbs(i,x) nuke_type [i]. lbs = (x) #define set_nt_abil(i,x) nuke_type [i]. abil |= (x) extern struct s_nuketype nuke_type [MAX_NUKETYPES]; extern int nr_nuke_types; extern Stockp spl_head, spl_tail; #define NK_BUILD 0 #endif _NUKE xemp5.1-beta/include/options.h100444 12266 2116 1732 6032444711 14724 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/include/RCS/options.h,v 5.2 1995/09/08 06:51:30 jpo Exp $ $Date: 1995/09/08 06:51:30 $ $Author: jpo $ $Id: options.h,v 5.2 1995/09/08 06:51:30 jpo Exp $ $Locker: $ $Log: options.h,v $ Revision 5.2 1995/09/08 06:51:30 jpo minor config stuff * Revision 5.1 93/03/14 16:39:50 etienne * * * Revision 5.0 93/02/06 09:25:20 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:17:12 greyhelm * Added RCS headers - Karl Hagen * */ #ifndef XEMPINFO #define XEMPINFO "/nexor/users/jpo/games/empire/xempinfo" #endif #ifndef EMPINFO #define EMPINFO "/nexor/users/jpo/games/empire/info" #endif #ifndef EMPIREHOST #define EMPIREHOST "chainsaw.ecn.purdue.edu" #endif #ifndef EMPIREPORT #define EMPIREPORT "6668" #endif #ifndef DEF_MAX_X #define DEF_MAX_X 128 #endif #ifndef DEF_MAX_Y #define DEF_MAX_Y 128 #endif xemp5.1-beta/include/plane.h100444 12266 2116 15206 6032444711 14351 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/include/RCS/plane.h,v 5.3 1995/09/27 13:19:02 jpo Exp $ $Date: 1995/09/27 13:19:02 $ $Author: jpo $ $Id: plane.h,v 5.3 1995/09/27 13:19:02 jpo Exp $ $Locker: $ $Log: plane.h,v $ Revision 5.3 1995/09/27 13:19:02 jpo Added marine missiles Revision 5.2 1995/09/08 06:51:46 jpo missions for plames moved flight Mission definition to types.h * Revision 5.1 93/03/14 16:39:53 etienne * * * Revision 5.0 93/02/06 09:25:20 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:17:12 greyhelm * Added RCS headers - Karl Hagen * */ #ifndef _PLANE #define _PLANE #define MAX_PLANETYPES 200 struct s_plane { int nr; int x, y; int own; /* owning country (deity only) */ uchar type; /* index in plane_type tabel */ char eff; /* actually "training" */ int mob; /* mobility */ int tech; /* plane's tech level */ int stlth; char wing; /* like fleet */ uchar range; /* total distance, not radius */ uchar max_range; /* maximum range (KSU - RANGEEDIT) */ int shipnr; /* pointer to ship */ int landnr; /* pointer to landunit */ uchar att; /* plane air-air attack/defense values */ char def; uchar hard; /* for missiles */ uchar nuketype; /* type of nuclear armament (if any) */ uchar nukeamt; /* # of nukes */ uchar flags; /* State of the plane */ Plane next; Plane nxtsct; char mission; /* mission type */ short radius; /* radius of mission */ }; #define PB_LAUNC 0x01 #define PB_SELL 0x02 #define PB_MARK 0x04 #define PB_PETROL 0x08 #define PB_20MOB 0x10 #define PB_LOADED 0x20 #define MOB12 True #define MOB20 False #define pl_nr(p) (p)-> nr #define pl_xcd(p) (p)-> x #define pl_ycd(p) (p)-> y #define pl_owner(p) (p)-> own #define pl_owned(p) ((p)-> own == my_cnum) #define pl_type(p) (int) (p)-> type #define pl_eff(p) (int) (p)-> eff #define pl_mob(p) (int) (p)-> mob #define pl_stlth(p) (int) (p)-> stlth #define pl_tech(p) (p)-> tech #define pl_wing(p) (p)-> wing #define pl_range(p) (int) (p)-> range #define pl_maxrange(p) (int) (p)-> max_range #define pl_shipnr(p) (p)-> shipnr #define pl_landnr(p) (p)-> landnr #define pl_att(p) (int) (p)-> att #define pl_flags(p) (int) (p)-> flags #define pl_next(p) (p)-> next #define pl_nxtsct(p) (p)-> nxtsct #define pl_hard(p) (p)-> hard #define pl_def(p) (p)-> def #define pl_nukeamt(p) (p)-> nukeamt #define pl_nuketype(p) (p)-> nuketype #define pl_mission(p) (p) -> mission #define pl_radius(p) (p) -> radius #define pl_launc(p) BIT_SET ((p)-> flags, PB_LAUNC) #define pl_sell(p) BIT_SET ((p)-> flags, PB_SELL) #define pl_marked(p) BIT_SET ((p)-> flags, PB_MARK) #define pl_petrol(p) BIT_SET ((p)-> flags, PB_PETROL) #define pl_20mob(p) BIT_SET ((p)-> flags, PB_20MOB) #define pl_loaded(p) BIT_SET ((p)-> flags, PB_LOADED) #define set_pl_nr(p,q) (p)-> nr = (int) q #define set_pl_xcd(p,q) (p)-> x = (int) q #define set_pl_ycd(p,q) (p)-> y = (int) q #define set_pl_owner(p,q) (p)-> own = (int) q #define set_pl_owned(p) (p)-> own = (int) my_cnum #define set_pl_type(p,q) (p)-> type = (uchar) q #define set_pl_eff(p,q) (p)-> eff = (uchar) q #define set_pl_mob(p,q) (p)-> mob = (int) q #define set_pl_stlth(p,q) (p)-> stlth = (int) q #define set_pl_tech(p,q) (p)-> tech = (int) q #define set_pl_wing(p,q) (p)-> wing = q #define set_pl_range(p,q) (p)-> range = (uchar) q #define set_pl_shipnr(p,q) (p)-> shipnr = q #define set_pl_landnr(p,q) (p)-> landnr = q #define set_pl_att(p,q) (p)-> att = (uchar) q #define set_pl_flags(p,q) (p)-> flags = (uchar) q #define set_pl_next(p,q) (p)-> next = q #define set_pl_nxtsct(p,q) (p)-> nxtsct = q #define set_pl_hard(p,q) (p)-> hard = (uchar) q #define inc_pl_hard(p,q) (p)-> hard += (uchar) q #define set_pl_def(p,q) (p)-> def = (char) q #define set_pl_nukeamt(p,q) (p)-> nukeamt = (uchar) q #define set_pl_nuketype(p,q) (p)-> nuketype = (uchar) q #define set_pl_mission(p,q) (p)-> mission = (char) q; #define set_pl_radius(p,q) (p)-> radius = (short) q; #define set_pl_launc(p) SET_BIT ((p)-> flags, PB_LAUNC) #define clr_pl_launc(p) CLR_BIT ((p)-> flags, PB_LAUNC) #define set_pl_marked(p) SET_BIT ((p)-> flags, PB_MARK) #define clr_pl_marked(p) CLR_BIT ((p)-> flags, PB_MARK) #define set_pl_sell(p) SET_BIT ((p)-> flags, PB_SELL) #define clr_pl_sell(p) CLR_BIT ((p)-> flags, PB_SELL) #define set_pl_petrol(p) SET_BIT ((p)-> flags, PB_PETROL) #define clr_pl_petrol(p) CLR_BIT ((p)-> flags, PB_PETROL) #define set_pl_20mob(p) SET_BIT ((p)-> flags, PB_20MOB) #define clr_pl_20mob(p) CLR_BIT ((p)-> flags, PB_20MOB) #define set_pl_loaded(p) SET_BIT ((p)-> flags, PB_LOADED) #define clr_pl_loaded(p) CLR_BIT ((p)-> flags, PB_LOADED) struct s_pltype { char *nam; /* plane unit name */ int lcm; /* costs to build */ int hcm; int cost; int tech; /* tech needed to build */ int acc; /* bombing accuracy (higher the better) */ int load; /* bomb load, also for carrying cargo */ int att; /* air-air attack/defense strengths */ int def; int range; /* how many sectors it can fly */ int crew; /* number of mil to crew it */ int fuel; /* fuel consumption */ int stlth; int ava; long flags; /* description of capability */ }; extern PlType planetypes []; extern Plane first_plane; #define P_B 0x00001 /* bombing factor only for bombing */ #define P_T 0x00002 /* tactical bombing ability */ #define P_F 0x00004 /* interceptor/escort */ #define P_C 0x00008 /* bombing factor for transport only */ #define P_V 0x00010 /* vtol ability */ #define P_M 0x00020 /* missile, used only once, can't be intercepted */ #define P_L 0x00040 /* light plane, lands on carriers */ #define P_S 0x00080 /* Spy ability */ #define P_I 0x00100 /* Imaging ability (advanced spying) */ #define P_O 0x00200 /* Orbital ability (a satellite) */ #define P_X 0x00400 /* Stealth ability */ #define P_D 0x00800 /* KSU SDI (ABM) ability */ #define P_H 0x01000 /* Half-steath */ #define P_A 0x02000 /* ASW */ #define P_N 0x04000 /* mine */ #define P_E 0x08000 /* escort */ #define P_h 0x10000 /* Helo */ #define P_W 0x20000 /* Sweep */ #define P_P 0x40000 /* para */ #define P_G 0x80000 /* x-light */ #define P_MAR 0x100000 /* missile can hit ship */ #define P_KNOWN 0x200000 /* do we now this ship */ #define ALL_PLANES(p) (p = first_plane; p != (Plane) 0; p = pl_next (p)) #define PCM_BOMB 0 #define PCM_TRANSPORT 1 #define PCM_RECON 2 #define PCM_PARADROP 3 #define PCM_LAUNCH 4 #define PCM_SCRAP 5 #define PCM_DROP 6 #define PCM_HARDEN 7 #define PCM_FLY 8 #define PCM_ARM 9 #define PCM_SET 10 #define PCM_BUILD 11 #define PCM_SCUTTLE 12 #define PCM_MAX 12 extern bool pl_census_enable []; #define AIR_EFF 40 #endif _PLANE xemp5.1-beta/include/product.h100444 12266 2116 2542 6032444711 14711 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/include/RCS/product.h,v 5.2 1995/09/28 07:05:17 jpo Exp $ $Date: 1995/09/28 07:05:17 $ $Author: jpo $ $Id: product.h,v 5.2 1995/09/28 07:05:17 jpo Exp $ $Locker: $ $Log: product.h,v $ Revision 5.2 1995/09/28 07:05:17 jpo sync Revision 5.1 1993/03/14 16:39:57 etienne * Revision 5.0 93/02/06 09:25:20 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:17:12 greyhelm * Added RCS headers - Karl Hagen * */ #define MAXPRDV 6 struct pchrstr { int p_type; /* vtype if product is a variable */ int p_level; /* index (NAT_?LEV) if product is not a var */ int p_cost; /* dollars / product unit */ int p_nrndx; /* index into sect of natural resource */ int p_nrdep; /* depletion as a % of resource used */ int p_nlndx; /* index (NAT_?LEV) affecting production */ int p_nlmin; /* minimum lvl required */ int p_nllag; /* lag, mul by (lvl-nlmin)/(lvl-nlmin+nllag) */ int p_effic; /* process efficiency, mult by p_effic/100 */ char *p_name; /* name of product */ u_char p_nv; /* number of constituents */ u_char p_vtype[MAXPRDV];/* constituent types */ u_int p_vamt[MAXPRDV]; /* constituent amounts */ char *p_sname; /* int (7char or less) name of product */ }; extern struct pchrstr pchr[]; xemp5.1-beta/include/production.h100444 12266 2116 3121 6032444711 15411 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/include/RCS/production.h,v 5.2 1995/09/28 07:05:17 jpo Exp $ $Date: 1995/09/28 07:05:17 $ $Author: jpo $ $Id: production.h,v 5.2 1995/09/28 07:05:17 jpo Exp $ $Locker: $ $Log: production.h,v $ Revision 5.2 1995/09/28 07:05:17 jpo sync Revision 5.1 1993/03/14 16:39:57 etienne * Revision 5.0 93/02/06 09:25:20 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:17:12 greyhelm * Added RCS headers - Karl Hagen * */ /* * All that is for plague get's here. * mta Sun Dec 2 23:29:04 EET 1990 */ typedef struct s_production S_PRODUCTION; struct s_production { int plague_stage; int happines; int bad_dist; int xcd; int ycd; S_PRODUCTION *next; } ; #define PLG_HEALTHY 0 /* free of plague, safe to move (no info) */ #define PLG_DYING 1 /* killing people, safe to move (info available) */ #define PLG_INFECT 2 /* infectious, no moves (info available) */ #define PLG_INCUBATE 3 /* new plague, no moves (info available) */ #define PLG_EXPOSED 4 /* plague coming, safe to move (no info) */ #define HP_LOYAL 0 /* people loyal */ #define HP_UNREST 1 /* people unrest */ #define HP_REVOLUTIONARIES 2 /* revolutionary subversion */ #define HP_TERRORISTS 3 /* terrorists */ #define HP_GUERRILLAS 4 /* guerrilas */ #define p_plague_stage(p) (p)-> plague_stage #define p_happines(p) (p)-> happines #define p_bad_dist(p) (p)-> bad_dist #define p_xcd(p) (p)-> xcd #define p_ycd(p) (p)-> ycd #define p_next(p) (p)-> next xemp5.1-beta/include/prototype.h100444 12266 2116 345 6032444711 15255 0ustar jponexor /* this stuff ought to be somewhere general... */ #ifndef _PROTO #if defined(__cplusplus) || (defined(__STDC__) &&__STDC__) #define _PROTO(x) x #else #define _PROTO(x) () #define const #define volatile #endif #endif xemp5.1-beta/include/sector.h100444 12266 2116 35153 6032444711 14554 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/include/RCS/sector.h,v 5.2 1995/09/28 07:05:17 jpo Exp $ $Date: 1995/09/28 07:05:17 $ $Author: jpo $ $Id: sector.h,v 5.2 1995/09/28 07:05:17 jpo Exp $ $Locker: $ $Log: sector.h,v $ Revision 5.2 1995/09/28 07:05:17 jpo sync Revision 5.1 1993/03/14 16:39:57 etienne * Revision 5.0 93/02/06 09:25:20 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:17:12 greyhelm * Added RCS headers - Karl Hagen * */ #ifndef _SECTOR #define _SECTOR #include /* * Change these values: */ extern int MAX_X; extern int MAX_Y; #define D_CIV 0 #define D_MIL 1 #define D_UW 2 #define D_FOO 3 #define D_SHE 4 #define D_GUN 5 #define D_PET 6 #define D_IRO 7 #define D_BAR 8 #define D_DUS 9 #define D_OIL 10 #define D_LCM 11 #define D_HCM 12 #define D_RAD 13 #define D_MAX 14 /* * Three different sector types: * * 1. sea sector / only know the designation * 2. enemy sector (spy, lookout, explore) * 3. you're sector */ #define S_EXIST 0 #define S_DESIG 1 #define S_RESOU 2 #define S_OWNED 3 typedef struct s_sector1 * Sct1; typedef struct s_sector2 * Sct2; typedef struct s_sector3 * Sct3; struct s_sector1 { short xcd; short ycd; short owner; char des; uchar oil; uchar fer; uchar inf; uchar shi; uchar land; uchar pla; uchar nuk; uchar mines; Ship fship; Land fland; Plane fplane; Nuke stock; uchar mar; /* Is this Sector marked */ Sct2 sct2; }; #define s_xcd(p) (int) (p)-> xcd #define s_ycd(p) (int) (p)-> ycd #define s_owned(p) ((p)-> owner == my_cnum) #define s_owner(p) (int) (p)-> owner #define s_des(p) (p)-> des #define s_oil(p) (int) (p)-> oil #define s_fer(p) (int) (p)-> fer #define s_fship(p) (p)-> fship #define s_fland(p) (p)-> fland #define s_fplane(p) (p)-> fplane #define s_stock(p) (p)-> stock #define s_mar(p) (int) (p)-> mar #define s_mines(p) (int) (p)-> mines #define s_shi(p) (int) (p)-> shi #define s_land(p) (int) (p)-> land #define s_pla(p) (int) (p)-> pla #define s_nuk(p) (int) (p)-> nuk #define s_inf(p) (p)-> inf #define set_xcd(p,x) (p)-> xcd = (short) x #define set_ycd(p,y) (p)-> ycd = (short) y #define set_owner(p,q) (p)-> owner = (short) q #define set_des(p,c) (p)-> des = c #define set_oil(p,q) (p)-> oil = (uchar) q #define set_fer(p,q) (p)-> fer = (uchar) q #define set_fship(p,s) (p)-> fship = s #define set_fland(p,s) (p)-> fland = s #define set_fplane(p,s) (p)-> fplane = s #define set_stock(p,x) (p)-> stock = x #define set_shi(p,q) (p)-> shi = (uchar) q #define set_land(p,q) (p)-> land = (uchar) q #define set_pla(p,q) (p)-> pla = (uchar) q #define set_nuk(p,q) (p)-> nuk = (uchar) q #define set_mar(p,q) (p)-> mar = (uchar) q #define inc_mines(p,q) (p)-> mines += (uchar) q #define set_mines(p,q) (p)-> mines = (uchar) q #define inc_shi(p) (p)-> shi ++ #define inc_land(p) (p)-> land ++ #define inc_pla(p) (p)-> pla ++ #define inc_nuk(p) (p)-> nuk ++ #define inc_mar(p) (p)-> mar ++ #define add_nuk(p,q) (p)-> nuk += (q) #define dec_shi(p) (p)-> shi -- #define dec_land(p) (p)-> land -- #define dec_pla(p) (p)-> pla -- #define dec_nuk(p) (p)-> nuk -- #define dec_mar(p) (p)-> mar -- #define NONE 0x0 #define DES 0x1 #define OIL 0x2 #define FER 0x4 #define RES 0x8 #define LOO 0x10 #define SPY 0x20 #define ALL 0x40 #define KNEWALL 0x80 #define SET_INFO_DES(sct) (s_inf (sct) |= (DES)) #define SET_INFO_OIL(sct) (s_inf (sct) |= (DES | OIL)) #define SET_INFO_FER(sct) (s_inf (sct) |= (DES | FER)) #define SET_INFO_RES(sct) (s_inf (sct) |= (DES | OIL | FER | RES)) #define SET_INFO_LOO(sct) (s_inf (sct) |= (DES | LOO)) #define SET_INFO_SPY(sct) (s_inf (sct) |= (DES | SPY)) #define SET_INFO_ALL(sct) (s_inf (sct) |= (DES | OIL | FER | RES | ALL)) #define SET_INFO_KNEWALL(sct) (s_inf (sct) |= KNEWALL) #define NO_INFO(sct) (s_inf (sct) == NONE) #define KNOW_DES(sct) ((s_inf (sct) & DES) == DES) #define KNOW_OWN(sct) (s_owner(sct) != UNKNOWN_CNUM) /* - heinola 9/11/91.*/ #define KNOW_OIL(sct) ((s_inf (sct) & OIL) == OIL) #define KNOW_FER(sct) ((s_inf (sct) & FER) == FER) #define KNOW_RES(sct) ((s_inf (sct) & RES) == RES) #define KNOW_LOO_ONLY(sct) ((s_inf (sct) & LOO) == LOO) #define KNOW_SPY_ONLY(sct) ((s_inf (sct) & SPY) == SPY) #define KNOW_ALL(sct) ((s_inf (sct) & ALL) == ALL) #define KNEW_ALL(sct) ((s_inf (sct) & KNEWALL) == KNEWALL) #define KNOW_LOO(sct) (KNOW_ALL (sct) || KNOW_LOO_ONLY (sct)) #define KNOW_SPY(sct) (KNOW_ALL (sct) || KNOW_SPY_ONLY (sct)) #define KNOW_CIV(sct) KNOW_LOO (sct) #define KNOW_MIL(sct) KNOW_LOO (sct) #define KNOW_EFF(sct) KNOW_LOO (sct) #define DEL_INFO(sct) (s_inf (sct) = NONE) struct s_sector2 { short eff; uchar mob; short off; uchar min; uchar gol; uchar ura; short civ; short mil; short qua [D_MAX]; time_t tim; /* time from lookout or spy */ Sct3 sct3; }; #define s_eff(p) (int) (p)-> sct2-> eff #define s_mob(p) (int) (p)-> sct2-> mob #define s_off(p) (int) (p)-> sct2-> off #define s_min(p) (int) (p)-> sct2-> min #define s_gol(p) (int) (p)-> sct2-> gol #define s_ura(p) (int) (p)-> sct2-> ura #define s_civ(p) (int) (p)-> sct2-> civ #define s_mil(p) (int) (p)-> sct2-> mil #define s_time(p) (p)-> sct2-> tim #define set_eff(p,i) (p)-> sct2-> eff = (short) i #define set_mob(p,i) (p)-> sct2-> mob = (uchar) i #define set_off(p,i) (p)-> sct2-> off = (short) i #define set_min(p,i) (p)-> sct2-> min = (uchar) i #define set_gol(p,i) (p)-> sct2-> gol = (uchar) i #define set_ura(p,i) (p)-> sct2-> ura = (uchar) i #define set_civ(p,i) (p)-> sct2-> civ = (short) i #define set_mil(p,i) (p)-> sct2-> mil = (short) i #define set_time(p,l) (p)-> sct2-> tim = l #define q_uw(p) (int) (p) -> sct2-> qua [D_UW] #define q_foo(p) (int) (p) -> sct2-> qua [D_FOO] #define q_she(p) (int) (p) -> sct2-> qua [D_SHE] #define q_gun(p) (int) (p) -> sct2-> qua [D_GUN] #define q_pet(p) (int) (p) -> sct2-> qua [D_PET] #define q_iro(p) (int) (p) -> sct2-> qua [D_IRO] #define q_dus(p) (int) (p) -> sct2-> qua [D_DUS] #define q_bar(p) (int) (p) -> sct2-> qua [D_BAR] #define q_oil(p) (int) (p) -> sct2-> qua [D_OIL] #define q_lcm(p) (int) (p) -> sct2-> qua [D_LCM] #define q_hcm(p) (int) (p) -> sct2-> qua [D_HCM] #define q_rad(p) (int) (p) -> sct2-> qua [D_RAD] #define set_q_uw(p,q) (p) -> sct2-> qua [D_UW] = (short) q #define set_q_foo(p,q) (p) -> sct2-> qua [D_FOO] = (short) q #define set_q_she(p,q) (p) -> sct2-> qua [D_SHE] = (short) q #define set_q_gun(p,q) (p) -> sct2-> qua [D_GUN] = (short) q #define set_q_pet(p,q) (p) -> sct2-> qua [D_PET] = (short) q #define set_q_iro(p,q) (p) -> sct2-> qua [D_IRO] = (short) q #define set_q_dus(p,q) (p) -> sct2-> qua [D_DUS] = (short) q #define set_q_bar(p,q) (p) -> sct2-> qua [D_BAR] = (short) q #define set_q_oil(p,q) (p) -> sct2-> qua [D_OIL] = (short) q #define set_q_lcm(p,q) (p) -> sct2-> qua [D_LCM] = (short) q #define set_q_hcm(p,q) (p) -> sct2-> qua [D_HCM] = (short) q #define set_q_rad(p,q) (p) -> sct2-> qua [D_RAD] = (short) q struct s_sector3 { char nds; uchar wor; short ava; uchar ter; char occ; short cut [D_MAX]; short tre [D_MAX]; char *pat; short dxc; short dyc; Nuke fnuke; PlanEntry plan; }; #define s_plan(p) (p)-> sct2-> sct3-> plan #define set_plan(p,q) (p)-> sct2-> sct3-> plan = (q) #define s_nds(p) (p)-> sct2-> sct3-> nds #define s_wor(p) (int) (p)-> sct2-> sct3-> wor #define s_ava(p) (int) (p)-> sct2-> sct3-> ava #define s_ter(p) (int) (p)-> sct2-> sct3-> ter #define s_occ(p) (p)-> sct2-> sct3-> occ #define s_pat(p) (p)-> sct2-> sct3-> pat #define s_dxc(p) (int) (p)-> sct2-> sct3-> dxc #define s_dyc(p) (int) (p)-> sct2-> sct3-> dyc #define s_fnuke(p) (p)-> sct2-> sct3-> fnuke #define set_nds(p,q) (p)-> sct2-> sct3-> nds = q #define set_wor(p,i) (p)-> sct2-> sct3-> wor = (uchar) i #define set_ava(p,i) (p)-> sct2-> sct3-> ava = (short) i #define set_ter(p,i) (p)-> sct2-> sct3-> ter = (uchar) i #define set_occ(p,c) (p)-> sct2-> sct3-> occ = c #define set_dxc(p,i) (p)-> sct2-> sct3-> dxc = (short) i #define set_dyc(p,i) (p)-> sct2-> sct3-> dyc = (short) i #define set_pat(p,s) (p)-> sct2-> sct3-> pat = s #define set_fnuke(p,q) (p)-> sct2-> sct3-> fnuke = q /* * set_pat is a function (SetPath) */ /* d_ => delivery direction */ #define DIR_MASK 0x07 #define CUT_SHIFT 3 #define d_civ(p) (int) chardirs [((p)-> sct2-> sct3-> cut [D_CIV] & DIR_MASK)] #define d_mil(p) (int) chardirs [((p)-> sct2-> sct3-> cut [D_MIL] & DIR_MASK)] #define d_uw(p) (int) chardirs [((p)-> sct2-> sct3-> cut [D_UW] & DIR_MASK)] #define d_foo(p) (int) chardirs [((p)-> sct2-> sct3-> cut [D_FOO] & DIR_MASK)] #define d_she(p) (int) chardirs [((p)-> sct2-> sct3-> cut [D_SHE] & DIR_MASK)] #define d_gun(p) (int) chardirs [((p)-> sct2-> sct3-> cut [D_GUN] & DIR_MASK)] #define d_pet(p) (int) chardirs [((p)-> sct2-> sct3-> cut [D_PET] & DIR_MASK)] #define d_iro(p) (int) chardirs [((p)-> sct2-> sct3-> cut [D_IRO] & DIR_MASK)] #define d_dus(p) (int) chardirs [((p)-> sct2-> sct3-> cut [D_DUS] & DIR_MASK)] #define d_bar(p) (int) chardirs [((p)-> sct2-> sct3-> cut [D_BAR] & DIR_MASK)] #define d_oil(p) (int) chardirs [((p)-> sct2-> sct3-> cut [D_OIL] & DIR_MASK)] #define d_lcm(p) (int) chardirs [((p)-> sct2-> sct3-> cut [D_LCM] & DIR_MASK)] #define d_hcm(p) (int) chardirs [((p)-> sct2-> sct3-> cut [D_HCM] & DIR_MASK)] #define d_rad(p) (int) chardirs [((p)-> sct2-> sct3-> cut [D_RAD] & DIR_MASK)] #define set_d(a,b) ((a) = (short) ((a) & ~DIR_MASK) | b) #define set_d_uw(p,q) set_d ((p)-> sct2-> sct3-> cut [D_UW], q) #define set_d_foo(p,q) set_d ((p)-> sct2-> sct3-> cut [D_FOO], q) #define set_d_she(p,q) set_d ((p)-> sct2-> sct3-> cut [D_SHE], q) #define set_d_gun(p,q) set_d ((p)-> sct2-> sct3-> cut [D_GUN], q) #define set_d_pet(p,q) set_d ((p)-> sct2-> sct3-> cut [D_PET], q) #define set_d_iro(p,q) set_d ((p)-> sct2-> sct3-> cut [D_IRO], q) #define set_d_dus(p,q) set_d ((p)-> sct2-> sct3-> cut [D_DUS], q) #define set_d_bar(p,q) set_d ((p)-> sct2-> sct3-> cut [D_BAR], q) #define set_d_oil(p,q) set_d ((p)-> sct2-> sct3-> cut [D_OIL], q) #define set_d_lcm(p,q) set_d ((p)-> sct2-> sct3-> cut [D_LCM], q) #define set_d_hcm(p,q) set_d ((p)-> sct2-> sct3-> cut [D_HCM], q) #define set_d_rad(p,q) set_d ((p)-> sct2-> sct3-> cut [D_RAD], q) /* c_ => cuttoff */ #define c_uw(p) (int) ((p)-> sct2-> sct3-> cut [D_UW] >> CUT_SHIFT) #define c_foo(p) (int) ((p)-> sct2-> sct3-> cut [D_FOO] >> CUT_SHIFT) #define c_she(p) (int) ((p)-> sct2-> sct3-> cut [D_SHE] >> CUT_SHIFT) #define c_gun(p) (int) ((p)-> sct2-> sct3-> cut [D_GUN] >> CUT_SHIFT) #define c_pet(p) (int) ((p)-> sct2-> sct3-> cut [D_PET] >> CUT_SHIFT) #define c_iro(p) (int) ((p)-> sct2-> sct3-> cut [D_IRO] >> CUT_SHIFT) #define c_dus(p) (int) ((p)-> sct2-> sct3-> cut [D_DUS] >> CUT_SHIFT) #define c_bar(p) (int) ((p)-> sct2-> sct3-> cut [D_BAR] >> CUT_SHIFT) #define c_oil(p) (int) ((p)-> sct2-> sct3-> cut [D_OIL] >> CUT_SHIFT) #define c_lcm(p) (int) ((p)-> sct2-> sct3-> cut [D_LCM] >> CUT_SHIFT) #define c_hcm(p) (int) ((p)-> sct2-> sct3-> cut [D_HCM] >> CUT_SHIFT) #define c_rad(p) (int) ((p)-> sct2-> sct3-> cut [D_RAD] >> CUT_SHIFT) #define set_c(p,q) (p = (short) (q << CUT_SHIFT) | (p & DIR_MASK)) #define set_c_uw(p,q) set_c ((p)-> sct2-> sct3-> cut[D_UW], q) #define set_c_foo(p,q) set_c ((p)-> sct2-> sct3-> cut[D_FOO], q) #define set_c_she(p,q) set_c ((p)-> sct2-> sct3-> cut[D_SHE], q) #define set_c_gun(p,q) set_c ((p)-> sct2-> sct3-> cut[D_GUN], q) #define set_c_pet(p,q) set_c ((p)-> sct2-> sct3-> cut[D_PET], q) #define set_c_iro(p,q) set_c ((p)-> sct2-> sct3-> cut[D_IRO], q) #define set_c_dus(p,q) set_c ((p)-> sct2-> sct3-> cut[D_DUS], q) #define set_c_bar(p,q) set_c ((p)-> sct2-> sct3-> cut[D_BAR], q) #define set_c_oil(p,q) set_c ((p)-> sct2-> sct3-> cut[D_OIL], q) #define set_c_lcm(p,q) set_c ((p)-> sct2-> sct3-> cut[D_LCM], q) #define set_c_hcm(p,q) set_c ((p)-> sct2-> sct3-> cut[D_HCM], q) #define set_c_rad(p,q) set_c ((p)-> sct2-> sct3-> cut[D_RAD], q) /* set cutoff and deliver direction in one go (used with dump) */ /* ATT: use the character off the delivery here */ #define set_dc(p,q,r) (p = (short) ((r << CUT_SHIFT) | \ ((int) (index (chardirs, q) - chardirs) & DIR_MASK))) #define set_dc_uw(p,q,r) set_dc ((p)-> sct2-> sct3-> cut[D_UW] , q, r) #define set_dc_foo(p,q,r) set_dc ((p)-> sct2-> sct3-> cut[D_FOO], q, r) #define set_dc_she(p,q,r) set_dc ((p)-> sct2-> sct3-> cut[D_SHE], q, r) #define set_dc_gun(p,q,r) set_dc ((p)-> sct2-> sct3-> cut[D_GUN], q, r) #define set_dc_pet(p,q,r) set_dc ((p)-> sct2-> sct3-> cut[D_PET], q, r) #define set_dc_iro(p,q,r) set_dc ((p)-> sct2-> sct3-> cut[D_IRO], q, r) #define set_dc_dus(p,q,r) set_dc ((p)-> sct2-> sct3-> cut[D_DUS], q, r) #define set_dc_bar(p,q,r) set_dc ((p)-> sct2-> sct3-> cut[D_BAR], q, r) #define set_dc_oil(p,q,r) set_dc ((p)-> sct2-> sct3-> cut[D_OIL], q, r) #define set_dc_lcm(p,q,r) set_dc ((p)-> sct2-> sct3-> cut[D_LCM], q, r) #define set_dc_hcm(p,q,r) set_dc ((p)-> sct2-> sct3-> cut[D_HCM], q, r) #define set_dc_rad(p,q,r) set_dc ((p)-> sct2-> sct3-> cut[D_RAD], q, r) /* t_ => threshold */ #define t_uw(p) (int) (p)-> sct2-> sct3-> tre [D_UW] #define t_foo(p) (int) (p)-> sct2-> sct3-> tre [D_FOO] #define t_she(p) (int) (p)-> sct2-> sct3-> tre [D_SHE] #define t_gun(p) (int) (p)-> sct2-> sct3-> tre [D_GUN] #define t_pet(p) (int) (p)-> sct2-> sct3-> tre [D_PET] #define t_iro(p) (int) (p)-> sct2-> sct3-> tre [D_IRO] #define t_dus(p) (int) (p)-> sct2-> sct3-> tre [D_DUS] #define t_bar(p) (int) (p)-> sct2-> sct3-> tre [D_BAR] #define t_oil(p) (int) (p)-> sct2-> sct3-> tre [D_OIL] #define t_lcm(p) (int) (p)-> sct2-> sct3-> tre [D_LCM] #define t_hcm(p) (int) (p)-> sct2-> sct3-> tre [D_HCM] #define t_rad(p) (int) (p)-> sct2-> sct3-> tre [D_RAD] #define set_t_uw(p,q) (p)-> sct2-> sct3-> tre [D_UW] = (short) q #define set_t_foo(p,q) (p)-> sct2-> sct3-> tre [D_FOO] = (short) q #define set_t_she(p,q) (p)-> sct2-> sct3-> tre [D_SHE] = (short) q #define set_t_gun(p,q) (p)-> sct2-> sct3-> tre [D_GUN] = (short) q #define set_t_pet(p,q) (p)-> sct2-> sct3-> tre [D_PET] = (short) q #define set_t_iro(p,q) (p)-> sct2-> sct3-> tre [D_IRO] = (short) q #define set_t_dus(p,q) (p)-> sct2-> sct3-> tre [D_DUS] = (short) q #define set_t_bar(p,q) (p)-> sct2-> sct3-> tre [D_BAR] = (short) q #define set_t_oil(p,q) (p)-> sct2-> sct3-> tre [D_OIL] = (short) q #define set_t_lcm(p,q) (p)-> sct2-> sct3-> tre [D_LCM] = (short) q #define set_t_hcm(p,q) (p)-> sct2-> sct3-> tre [D_HCM] = (short) q #define set_t_rad(p,q) (p)-> sct2-> sct3-> tre [D_RAD] = (short) q #define EX(x) ((WX (x) >= MAX_X / 2) ? (WX (x) - MAX_X) : WX (x)) #define EY(y) ((WY (y) >= MAX_Y / 2) ? (WY (y) - MAX_Y) : WY (y)) #define WX(x) (((x) + 2*MAX_X) % MAX_X) #define WY(y) (((y) + 2*MAX_Y) % MAX_Y) #define W_COORD 0x01 #define W_DES 0x02 #define W_COUN 0x04 #define W_NORM 0x0 #endif /* _SECTOR */ xemp5.1-beta/include/ship.h100444 12266 2116 20101 6032444711 14203 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/include/RCS/ship.h,v 5.3 1995/09/27 13:19:28 jpo Exp $ $Date: 1995/09/27 13:19:28 $ $Author: jpo $ $Id: ship.h,v 5.3 1995/09/27 13:19:28 jpo Exp $ $Locker: $ $Log: ship.h,v $ Revision 5.3 1995/09/27 13:19:28 jpo Added anti-missile capability Revision 5.2 1995/09/08 06:52:15 jpo adder orders, missions, retreats * Revision 5.1 93/03/14 16:39:58 etienne * * * Revision 5.0 93/02/06 09:25:20 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:17:12 greyhelm * Added RCS headers - Karl Hagen * */ #ifndef _SHIP #define _SHIP #ifndef _VAR #include "var.h" #endif _VAR #define MAXSHPNAMLEN 24 /* ksu option */ /* * No need to add entries for the old coordinates of * an enemy ship. Let's take the lcm & hcm values */ #define old_x lcm #define old_y hcm typedef struct _Holds { uchar stype; short samount; uchar etype; short eamount; } Holds; #define MAXHOLDS 6 struct s_ship { char name [MAXSHPNAMLEN]; short nr; short type; short radar; /* effective radar range */ short sonar; /* effective sonar range */ short x, y; char fleet; short eff; short civ; short owner; /* deity only */ short mil; short uw; short food; short pln; short xpln; /* xlight planes */ short heli; /* helicopters on ship */ short fuel; /* Fuel on ship */ short land; /* land units */ short mob; uchar moves; short tech; short shell; short gun; short pet; short iron; short dust; short bar; short oil; short lcm; short hcm; short rad; time_t time; Ship nextsct, next; bool marked; char mission; /* mission stuff */ short radius; /* mission radius */ short rtrtx, rtrty; /* retreat X & Y */ uchar rtrcond; /* retreat conditions */ /* orders are orders... */ short d1x, d1y; short d2x, d2y; uchar orderflags; /* suspended etc */ #define ORDER_SUSPENDED 0x01 #define ORDER_TWOWAY 0x02 #define ORDER_ONEWAY 0x04 #define ORDER_LOADING 0x08 uchar eta; uchar lenpath; Holds holds[MAXHOLDS]; }; #define sh_nr(p) (int) (p)-> nr #define sh_type(p) (int) (p)-> type #define sh_name(p) (p)-> name #define sh_radar(p) (int) (p)-> radar #define sh_sonar(p) (int) (p)-> sonar #define sh_xcd(p) (int) (p)-> x #define sh_ycd(p) (int) (p)-> y #define sh_fleet(p) (int) (p)-> fleet #define sh_eff(p) (int) (p)-> eff #define sh_civ(p) (int) (p)-> civ #define sh_owner(p) (int) (p)-> owner #define sh_owned(p) (int) ((p)-> owner == my_cnum) #define sh_mil(p) (int) (p)-> mil #define sh_uw(p) (int) (p)-> uw #define sh_foo(p) (int) (p)-> food #define sh_pln(p) (int) (p)-> pln #define sh_xpln(p) (int) (p)-> xpln #define sh_heli(p) (int) (p)-> heli #define sh_fuel(p) (int) (p)-> fuel #define sh_land(p) (int) (p)-> land #define sh_mob(p) (int) (p)-> mob #define sh_moves(p) (int) (p)-> moves #define sh_tech(p) (int) (p)-> tech #define sh_she(p) (int) (p)-> shell #define sh_gun(p) (int) (p)-> gun #define sh_pet(p) (int) (p)-> pet #define sh_iron(p) (int) (p)-> iron #define sh_dust(p) (int) (p)-> dust #define sh_bar(p) (int) (p)-> bar #define sh_oil(p) (int) (p)-> oil #define sh_lcm(p) (int) (p)-> lcm #define sh_hcm(p) (int) (p)-> hcm #define sh_rad(p) (int) (p)-> rad #define sh_next(p) (p)-> next #define sh_nxtsct(p) (p)-> nextsct #define sh_marked(p) (p)-> marked #define sh_time(p) (p)-> time #define sh_mission(p) (p)-> mission #define sh_radius(p) (p) -> radius #define sh_ordertype(p) (p) -> ordertype #define sh_retreat(p) (p) -> rtrcond #define sh_oldx(p) (p)-> old_x #define sh_oldy(p) (p)-> old_y #define set_sh_nr(p,q) ((p)-> nr = (short) (q)) #define set_sh_type(p,q) ((p)-> type = (short) (q)) #define set_sh_name(p,q) (void) strcpy ((p)-> name, (q)) #define set_sh_radar(p,q) ((p)-> radar = (short) (q)) #define set_sh_sonar(p,q) ((p)-> sonar = (short) (q)) #define set_sh_xcd(p,q) ((p)-> x = (short) (q)) #define set_sh_ycd(p,q) ((p)-> y = (short) (q)) #define set_sh_fleet(p,q) ((p)-> fleet = (char) (q)) #define set_sh_eff(p,q) ((p)-> eff = (short) (q)) #define inc_sh_eff(p,q) (p)-> eff += (short) (q) #define set_sh_civ(p,q) ((p)-> civ = (short) (q)) #define set_sh_owner(p,q) ((p)-> owner = (short) (q)) #define set_sh_mil(p,q) ((p)-> mil = (short) (q)) #define set_sh_uw(p,q) ((p)-> uw = (short) (q)) #define set_sh_foo(p,q) ((p)-> food = (short) (q)) #define inc_sh_foo(p,q) (p)-> food += (short) (q) #define set_sh_pln(p,q) ((p)-> pln = (short) (q)) #define set_sh_xpln(p,q) ((p)-> xpln = (short) (q)) #define set_sh_heli(p,q) ((p)-> heli = (short) (q)) #define set_sh_land(p,q) ((p)-> land = (short) (q)) #define set_sh_fuel(p,q) ((p)-> fuel = (short) (q)) #define set_sh_mob(p,q) ((p)-> mob = (short) (q)) #define set_sh_tech(p,q) ((p)-> tech = (short) (q)) #define set_sh_she(p,q) ((p)-> shell = (short) (q)) #define set_sh_gun(p,q) ((p)-> gun = (short) (q)) #define set_sh_pet(p,q) ((p)-> pet = (short) (q)) #define set_sh_iron(p,q) ((p)-> iron = (short) (q)) #define set_sh_dust(p,q) ((p)-> dust = (short) (q)) #define set_sh_bar(p,q) ((p)-> bar = (short) (q)) #define set_sh_oil(p,q) ((p)-> oil = (short) (q)) #define inc_sh_oil(p,q) (p)-> oil += (short) (q) #define set_sh_lcm(p,q) ((p)-> lcm = (short) (q)) #define set_sh_hcm(p,q) ((p)-> hcm = (short) (q)) #define set_sh_rad(p,q) ((p)-> rad = (short) (q)) #define set_sh_next(p,q) ((p)-> next = (q)) #define set_sh_nxtsct(p,q) ((p)-> nextsct = (q)) #define set_sh_marked(p,q) ((p)-> marked = (q)) #define set_sh_oldx(p,q) ((p)-> old_x = (short) (q)) #define set_sh_oldy(p,q) ((p)-> old_y = (short) (q)) #define set_sh_oldpos(p,q,r) { set_sh_oldx(p, q); set_sh_oldy (p, r); } #define set_sh_time(p,q) ((p)-> time = (q)) #define set_sh_moves(p,q) ((p)-> moves = (uchar) (q)) #define set_sh_mission(p,q) ((p)->mission = (char)(q)) #define set_sh_radius(p,q) ((p)->radius = (short)(q)) struct s_shtype { int lcm; /* units of lcm to build */ int hcm; /* units of hcm to build */ int def; /* how well armored it is */ int spd; /* how fast it can go */ int vis; /* how well it can be seen */ int spy; /* how well it can see */ int rng; /* how far it can fire */ int fir; /* how many guns it can fire */ int hel; /* how many helicopters on board */ int xpl; /* how many light planes on board */ int fuse; /* how much fuel on board */ int fcar; /* how much fuel on board */ int pla; /* how many planes it can carry */ int land; /* how many land units it can carry */ char *nam; /* full name of type of ship */ int tec; /* tech required to build */ int cos; /* how much it costs to build */ int ava; /* How may workers should be available */ long flags; /* what special things can this ship do */ int car [V_MAX]; }; #define MAX_SHIPTYPES 100 #define M_FISH 0x00001 /* catch that fish */ #define M_TORP 0x00002 /* fire torpedoes */ #define M_DCHRG 0x00004 /* drop depth charges on subs */ #define M_PLANE 0x00008 /* launch and recover planes */ #define M_MISS 0x00010 /* launch missiles */ #define M_OIL 0x00020 /* drill for oil */ #define M_SONAR 0x00040 /* locate submarines */ #define M_MINE 0x00080 /* drop mines */ #define M_SWEEP 0x00100 /* clean up the mines */ #define M_SUB 0x00200 /* a submarine */ #define M_SPY 0x00400 /* gather intelligence info */ #define M_LAND 0x00800 /* allows full landing ability */ #define M_SUBT 0x01000 #define M_TRADE 0x02000 /* trade ships */ #define M_OILER 0x04000 /* Oiler Ships */ #define M_SEMILAND 0x08000 #define M_SUPPLY 0x10000 /* Allow supply ships */ #define M_KNOWN 0x20000 /* do I know the specs ? */ #define M_ANTIMISS 0x40000 /* anti missile capability */ extern Ship shiplist; extern ShType shiptypes[]; #define ALL_SHIPS(p) (p=shiplist; p != (Ship) 0; p = sh_next (p)) #define SCM_RADAR 0 #define SCM_SONAR 1 #define SCM_LOOKOUT 2 #define SCM_NAVIGATE 3 #define SCM_BOARD 4 #define SCM_TEND 5 #define SCM_FIRE 6 /* torpedo & fire */ #define SCM_MINE 7 #define SCM_TORPEDO 8 /* seperate torpedo button */ #define SCM_UPGRADE 9 #define SCM_SCRAP 10 #define SCM_SET 11 #define SCM_SCUTTLE 12 #define SCM_MAX 12 #endif /* _SHIP */ xemp5.1-beta/include/slist.h100444 12266 2116 1214 6032444712 14363 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/include/RCS/slist.h,v 5.2 1995/09/28 07:05:17 jpo Exp $ $Date: 1995/09/28 07:05:17 $ $Author: jpo $ $Id: slist.h,v 5.2 1995/09/28 07:05:17 jpo Exp $ $Locker: $ $Log: slist.h,v $ Revision 5.2 1995/09/28 07:05:17 jpo sync Revision 5.1 1993/03/14 16:39:58 etienne * Revision 5.0 93/02/06 09:25:20 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:17:12 greyhelm * Added RCS headers - Karl Hagen * */ struct s_slist { Sector sct; bool marked; char * path; SList next; }; xemp5.1-beta/include/tcemp.h100444 12266 2116 137254 6032444712 14413 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/include/RCS/tcemp.h,v 5.2 1995/09/28 07:05:17 jpo Exp $ $Date: 1995/09/28 07:05:17 $ $Author: jpo $ $Id: tcemp.h,v 5.2 1995/09/28 07:05:17 jpo Exp $ $Locker: $ $Log: tcemp.h,v $ Revision 5.2 1995/09/28 07:05:17 jpo sync Revision 5.1 1993/03/14 16:39:59 etienne * Revision 5.0 93/02/06 09:25:20 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:17:12 greyhelm * Added RCS headers - Karl Hagen * */ /* misc/add.c */ extern void AddNation (); extern void DoNewCap (); extern void NewCap (); /* misc/build.c */ extern bool BuildCheckAvailable (); extern bool BuildCheckCommodity (); /* misc/check.c */ extern bool CheckOwnedCurSct (); /* misc/client.c */ extern bool BufferdCommands (); extern void CloseConnection (); extern void DeleteBufCommands (); extern int EmpireStatus (); extern void FeedBufCommands (); extern void FeedCommand (); extern void FeedEmpire (); extern bool HostConnect (); extern bool InitClient (); extern bool IsEmpireMessage (); extern int Login (); extern void ReadBufCommands (); extern char * ReadEmpire (); extern void Reconnect (); extern void SaveBufCommands (); extern void ShowBufCommands (); extern bool SkipNLines (); extern char * WaitForPrompt (); /* misc/dlist.c */ extern void DLCall (); extern void DLDelete (); extern int DLElems (); extern void DLRead (); extern void DLSetCurrent (); extern void DLWrite (); extern void DumpList (); /* misc/empire.c */ extern bool EmpireMore (); extern void InitEmpire (); extern void InputToEmpire (); extern void MessageAtEmpire (); extern void PrintAtEmpire (); extern void PrintAtEmpireMode (); extern void ReprintAtEmpire (); /* misc/highl.c */ extern bool HighlightSector (); extern void InitHighlight (); extern void ReadHighlight (); extern void SaveHighlight (); extern void SetHighlight (); /* misc/info.c */ extern void EmpInfo (); extern Strings FileToStrings (); extern void InfoCommands (); extern bool InfoDir (); extern void InfoFile (); extern Strings ListDir (); extern void XempInfo (); /* misc/io.c */ extern void Disconnect (); extern void DoQuit (); extern void FastQuit (); extern void Forceleave (); extern void GetSpecialChars (); extern void NoConTimeout (); extern void Panic (); extern void ResetConTimeout (); extern void SetSignalsOff (); extern void SetSignalsOn (); /* misc/item.c */ extern int CharToItem (); extern char ItemChar (); extern char * ItemName (); extern double ItemWeight (); extern int SelectAvaItem (); extern int SelectItem (); extern int SelectSellItem (); /* misc/main.c */ extern void AbortClient (); extern void PrintSaved (); extern void SaveTillPrompt (); extern void leave (); extern void leave0 (); extern void main (); /* misc/map.c */ extern bool AtScreen (); extern void BindExpression (); extern void BindNormalDisplay (); extern void CenterMap (); extern void ChangeDisplay (); extern void ChangeOverlay (); extern void ConvMapPosToPixelPos (); extern bool ConvertToSctCrd (); extern int Dist (); extern int Distance (); extern void DoCenterMap (); extern void DrawMap (); extern void DrawMapPart (); extern void DrawNeighbours (); extern void DrawRealm (); extern void DrawSector (); extern char * FileStr (); extern Sector FindSector (); extern void GotoSct (); extern void InitMap (); extern int MapSctHeight (); extern int MapSctWidth (); extern void MarkSector (); extern void ReCenter (); extern bool SaveMap (); extern void SetCurrent (); extern void SetCurrentSctShip (); extern void ShiftField (); extern void UnmarkSector (); /* misc/message.c */ extern void ClearMes (); extern void ClearMes2 (); extern void InitMessage (); extern char * InputAtMessage (); extern void MesBut (); extern void MesClearBut (); extern void Message (); extern void Message2 (); extern void MessageMore (); extern void SameBut (); extern void Warning (); /* misc/misc.c */ extern char * Centered (); extern bool CharInFormat (); extern void ClearText (); extern void CloseTextWindow (); extern char * CrdStr (); extern char * DateFmt (); extern char * Fmt (); extern void FreeFmts (); extern char * MakeFreeString (); extern void NoNl (); extern void OpenTextWindow (); extern double PlagueChance (); extern char * ReadEmpireStrings (); extern void ShowDone (); extern void ShowStrings (); extern void ShowText (); extern char * Str (); extern bool StrEQ (); extern char * StrNl (); extern double TechFact (); extern double dmax (); extern double dmin (); extern char * doalloc (); /* misc/misc2.c */ extern bool Confirm (); extern void Disabled (); extern void Error (); extern char * GetQuest (); extern bool HandleQuestion (); extern void SwapInt (); /* misc/myopt.c */ extern char * check_arg (); extern void init_opt (); extern char * next_arg (); extern char next_opt (); /* misc/nation.c */ extern void AddCountry (); extern char * AskCountry (); extern int CountryId (); extern char * CountryName (); extern bool ExistCountry (); extern void FindMyCnum (); extern double GiveNatLevel (); extern void InitNation (); extern int NatCmp (); extern void NationSetRealm (); extern void RestoreCountries (); extern void SaveCountries (); extern void ShowNation (); /* misc/path.c */ extern char * BestDistPath (); extern char * BestLandPath (); extern char * BestTmpDistPath (); extern char * ReversePath (); /* misc/product.c */ extern int GiveProdResource (); extern struct pchrstr * ProdChr (); extern int ProdCost (); extern void SetProdResource (); /* misc/realm.c */ extern bool ConvRealmToCoord (); extern void FreeRealm (); extern bool InRealm (); extern Realm InitRealm (); extern bool NextSctInRealm (); /* misc/scan.c */ extern char * DelControl (); extern char * DelNewline (); extern char * DelTabs (); extern void FScanBmap (); extern void FScanCoastWatch (); extern int FScanDump (); extern void FScanLookout (); extern void FScanMap (); extern void FScanNation (); extern void FScanRadar (); extern void FScanRelations (); extern void FScanReport (); extern void FScanSpy (); extern void FeedSatellite (); extern bool ScanDigit (); extern int ScanDump (); extern bool ScanFmt (); extern void ScanLookout (); extern void ScanMap (); extern void ScanRadar (); extern void ScanRelations (); extern void ScanReport (); extern void ScanSatellite (); extern void ScanSpy (); extern bool ScanSpyLine (); extern bool ScanWord (); extern bool ScanWordQuot (); extern bool SetOffset (); extern void SkipBlank (); extern void SkipPtr (); /* misc/sector.c */ extern bool Adjacent (); extern void ChangeOrigin (); extern void ChangeOwner (); extern void Check (); extern void FreeSector (); extern int GetCutoff (); extern char GetDelDir (); extern int GetThreshold (); extern char GiveDirChar (); extern int GiveQuant (); extern void Goto (); extern void GotoStr (); extern void InitNeighbours (); extern bool IsCoast (); extern bool IsNeighbour (); extern Sector ** MallocWorld (); extern Sector MoveInDirection (); extern void MultiChangeOwner (); extern bool NearSeaOrHarbor (); extern bool NextNeighbour (); extern void RealmSetThreshold (); extern void RedoChangeOwner (); extern void RedumpSector (); extern char * SelectRealm (); extern void SetCutoff (); extern void SetDelDir (); extern void SetDistPath (); extern void SetQuant (); extern void SetSectorTime (); extern void SetThreshold (); extern bool UpdateSectorDes (); extern void WipeThreshold (); extern Sector World (); /* misc/strings.c */ extern void AddSortStringID (); extern void AddString (); extern void AddStringID (); extern void AddStrings (); extern void AddStringsID (); extern void ChangeString (); extern void DeleteFirstString (); extern void DeleteString (); extern void DumpStrings (); extern Strings EditStrings (); extern void FreeStringIndex (); extern void FreeStrings (); extern char * GetFirstString (); extern int GetNextSelectedId (); extern char * GetNextSelectedString (); extern char * GetNextString (); extern char * GetNextStringFlag (); extern char * GetNextStringID (); extern bool GiveIdFlag (); extern char * GiveIdString (); extern bool GiveIthFlag (); extern int GiveIthID (); extern char * GiveIthString (); extern bool GiveStringFlag (); extern void InitStringList (); extern Strings InitStrings (); extern void JoinStrings (); extern bool LoadEditStrings (); extern bool LoadStrings (); extern void MakeStringIndex (); extern void MarkAllStrings (); extern int MaxStringLen (); extern Strings PopenStrings (); extern Strings ReadStrings (); extern void SetIthFlag (); extern void SetStringFlag (); extern int StringsSize (); extern Strings StripStrings (); extern void TmpAddStringID (); extern void ToggleStringFlag (); extern bool WriteStrings (); /* misc/where.c */ extern void TestWhere (); extern Sector Where (); /* plane/arm.c */ extern void RedoArm (); /* plane/bomb.c */ extern void BindBomb (); extern void Bomb (); extern void DoBomb (); extern void RedoBomb (); /* plane/build.c */ extern void BuildPlane (); extern void DoBuildPlane (); extern void RedoBuildPlane (); /* plane/drop.c */ extern void BindDropOff (); extern void DoDropOff (); extern void DropOff (); extern void RedoDropOff (); /* plane/dump.c */ extern void BinDumpPlanes (); extern bool BinRestPlanes (); extern void RestoreShowPlane (); extern void SaveShowPlane (); /* plane/fly.c */ extern void BindFly (); extern void DoFly (); extern bool FeedFly (); extern void Fly (); extern void RedoFly (); /* plane/harden.c */ extern void Harden (); extern void RedoHarden (); /* plane/launch.c */ extern void DoLaunch (); extern void DoLaunchWing (); extern void LaunchMissile (); extern void LaunchSatellite (); extern void LaunchWing (); /* plane/list.c */ extern void ListPlanes (); /* plane/mark.c */ extern bool AllMarkedPlanesHave (); extern void ChargeMobility (); extern bool ChargePetrol (); extern void DeleteMarkedPlanes (); extern void DropMarkedPlanes (); extern void FilterPlanesHaving (); extern void FilterPlanesMob (); extern void FilterPlanesNotHaving (); extern int LoadMarked (); extern bool LoadMarkedPlanes (); extern void MarkAs20Mob (); extern void MarkPlanes (); extern char * MarkedPlanesId (); extern int MaxRangeMarked (); extern void MoveMarkedPlanes (); extern void MoveMarkedPlanesTo (); extern int NrMarkedPlanes (); extern int PlaneMobCost (); extern void UnchargePetrol (); extern void UnloadMarkedPlanes (); extern void UnmarkAllPlanes (); /* plane/paradrop.c */ extern void DoParadrop (); extern void Paradrop (); extern void RedoParadrop (); /* plane/path.c */ extern char * AskFlyItem (); extern char * AskFlyRoute (); extern char * BestFlyPath (); extern char * ConvEff (); extern Sector FollowOwnedPath (); extern Sector FollowPath (); extern void ParseFlyOutput (); /* plane/plane.c */ extern void AddPlaneToList (); extern void AddPlaneToSector (); extern void DeletePlane (); extern void DeletePlaneFromSector (); extern void DeletePlanes (); extern int MaxPlaneLoad (); extern void MovePlaneTo (); extern Plane NrToPlane (); extern void PageShowPlaneCBs (); extern char * PlaneCapNames (); extern bool PlaneHas (); extern char * PlaneName (); extern Sector PlaneSector (); extern bool PortablePlane (); /* plane/recon.c */ extern void BindRecon (); extern void DoRecon (); extern void Recon (); /* plane/scan.c */ extern void DumpPlanes (); extern int FScanPlanes (); extern void FScanShowPlaneBuild (); extern void FScanShowPlaneCap (); extern int FindPlaneTypeByName (); extern int ScanPlanes (); /* plane/scrap.c */ extern void RedoScrapPlane (); extern void ScrapPlane (); /* plane/select.c */ extern char * SelectPlanes (); /* plane/set.c */ extern bool SetPlane (); extern void SetWing (); /* plane/transport.c */ extern void DoTransport (); extern void Transport (); /* plane/wing.c */ extern char FirstFreeWing (); extern char FirstWingInSct (); extern char GiveEscortWing (); extern char GiveNextWingInSct (); extern char NextWingInSct (); extern void ShowFreeWings (); extern bool WingColocated (); extern bool WingEmpty (); extern char * WingId (); extern void WingJoin (); extern Sector WingSector (); /* plane/wingadd.c */ extern void WingAdd (); /* ship/assault.c */ extern void Assault (); extern void BindAssault (); extern void DoAssault (); extern void RedoAssault (); /* ship/board.c */ extern void BindBoard (); extern void Board (); extern void DoBoard (); extern void RedoBoard (); /* ship/build.c */ extern void BuildShip (); extern void DoBuildShip (); extern void RedoBuildShip (); /* ship/fleet.c */ extern char FirstFleetInSct (); extern char FirstFreeFleet (); extern long FleetAbils (); extern bool FleetColocated (); extern bool FleetEmpty (); extern char * FleetId (); extern int FleetMinMob (); extern Sector FleetSector (); extern char GiveNextFleetInSct (); extern void MoveFleet (); extern long ShipNrAbils (); extern void ShowFreeFleets (); /* ship/list.c */ extern void ListShips (); /* ship/mark.c */ extern int BestMarkedRadar (); extern void CheckShips (); extern bool CrewOnMarkedShips (); extern void DeleteMarkedEnemyShips (); extern void FScanResoMarked (); extern int FirstMarkedShipnr (); extern bool LandLockedMarked (); extern void MarkShips (); extern bool MarkedColocated (); extern int MaxRadarMarked (); extern int MaxSonarMarked (); extern int MinMobMarkedShips (); extern void MoveMarkedTo (); extern Sector SctMarkedShips (); extern void UnmarkAllShips (); /* ship/mine.c */ extern void BindMine (); extern void DoMine (); extern void Mine (); extern void RedoMine (); /* ship/navigate.c */ extern void BindNavigate (); extern void DoNavigate (); extern void Navig (); extern void Navigate (); extern void RedoNavigate (); /* ship/path.c */ extern void AddToSList (); extern char * BestSeaPath (); extern SList FirstNotMarked (); extern void FreeSList (); extern char * GivePath (); extern bool InSList (); /* ship/scrap.c */ extern void RedoScrap (); extern void ScrapShip (); /* ship/select.c */ extern char * SelectShips (); /* ship/set.c */ extern void SetShip (); /* ship/ship.c */ extern bool AddEnemyShip (); extern void AddShipToList (); extern void AddShipToSector (); extern int AskCarrier (); extern Ship AskShip (); extern void DeleteEnemyShips (); extern void DeleteShip (); extern void DeleteShipFromSector (); extern void DoLookout (); extern int FindShipTypeByName (); extern void FleetAdd (); extern int GiveShipQuant (); extern char * GiveShipQuantStr (); extern bool KnowsResoShip (); extern int MaxShipCargo (); extern void MoveShip (); extern Ship NrToShip (); extern void PageShowShipCBs (); extern bool SectorHasOwnedShips (); extern void SetSectorShipsNr (); extern void SetShipQuant (); extern void SetShipValues (); extern bool ShipAtSect (); extern bool ShipAtWith (); extern char * ShipCapNames (); extern char * ShipCargoNames (); extern char ShipCharInSector (); extern double ShipFireRange (); extern bool ShipHas (); extern bool ShipHasRadar (); extern bool ShipHasSonar (); extern int ShipMaxGuns (); extern char * ShipName (); extern bool ShipOnList (); extern Sector ShipSector (); extern void ShowShipCBStrings (); /* ship/shipscan.c */ extern void CheckMarkedShips (); extern void DumpRealmShips (); extern void DumpSctShips (); extern int DumpShips (); extern void FScanCargo (); extern void FScanReso (); extern int FScanShips (); extern void FScanShowShipBuild (); extern void FScanShowShipCap (); extern void FeedRadarShips (); extern void MarkAllShips (); extern void MarkShip (); extern void MarkShipsInSct (); extern void RedumpFleet (); extern void RedumpShip (); extern void RestoreShowShip (); extern void SaveShowShip (); extern void ScanCargo (); extern int ScanShips (); extern void SearchMarkedShips (); /* ship/tend.c */ extern void BindTend (); extern void DoTend (); extern void RedoTend (); extern void Tend (); /* ship/upgrade.c */ extern void RedoUpgrade (); extern void UpgradeShip (); /* parse/LLgen.c */ extern void LLmessage (); extern char * TokenName (); /* parse/expr.c */ extern void CheckType (); extern void DestroyExpression (); extern Expression ParseExpression (); /* parse/get_token.c */ extern Nuke FirstNuke (); extern Plane FirstPlane (); extern Ship FirstShip (); extern void GetTokenValue (); extern Nuke NextNuke (); extern Plane NextPlane (); extern Ship NextShip (); extern int SectorXCoord (); extern int SectorYCoord (); extern Sector WorldSector (); /* parse/lex.c */ extern void LexInitStrings (); extern int NextToken (); /* parse/run_all.c */ extern double EvaluateExpression (); extern int RunProgram (); /* commands/again.c */ extern void DoAgain (); extern void SetAgain (); /* commands/attack.c */ extern void Attack (); /* commands/build.c */ extern void BuildBridge (); extern void FScanBuildBridge (); extern void RestoreBridgeData (); extern void SaveBridgeData (); /* commands/commands.c */ extern void BufferMenu (); extern void ChangeCommandMode (); extern void Connections (); extern int GetSaveMode (); extern void GlobalCommands (); extern void HelpOnUtils (); extern void InfoBufferMenu (); extern void InfoOnCensusMode (); extern void SectorCommands (); /* commands/convert.c */ extern void BindConvert (); extern void DoConvert (); extern void MultiConvert (); extern void RedoConvert (); extern void SingleConvert (); /* commands/deity.c */ extern void DeityChange (); extern bool DeityChangeLand (); extern void DeityEditCountry (); extern void DeityEditShips (); extern void EditLand (); extern void EditShip (); extern bool OpenEditCountry (); /* commands/deli.c */ extern void Deliver (); extern void DoDeliver (); extern void RedoDeliver (); extern void SetDelAgainCutoff (); /* commands/demob.c */ extern void BindDemob (); extern void DoDemob (); extern void MultiDemob (); extern void RedoDemob (); extern void SingleDemob (); /* commands/design.c */ extern bool AllowNavigate (); extern void BindDesignate (); extern char CharOfDesigName (); extern void Design (); extern char * DesignName (); extern void DoDesignate (); extern double EffPathCost (); extern void HelpDesignate (); extern double MoveCost (); extern void MultiDesignate (); extern double RealPathCost (); extern void RedoDesignate (); extern int SectorPacking (); /* commands/distri.c */ extern void Distribute (); extern void DistributeRealm (); extern bool ExecSetDistr (); extern void MarkPath (); extern void UnmarkPath (); extern void UtilDist (); /* commands/enlist.c */ extern void BindEnlist (); extern void DoEnlist (); extern void MultiEnlist (); extern void RedoEnlist (); extern void SingleEnlist (); /* commands/fire.c */ extern void DoFireFromShip (); extern void DoFireFromSub (); extern void FireFromSector (); extern void FireFromShip (); extern void RedoFireFromSector (); extern void RedoFireFromShip (); extern void RedoFireFromSub (); extern void Torpedo (); /* commands/market.c */ extern void BindSell (); extern void DoSell (); extern void RedoSell (); /* commands/move.c */ extern void BindExplore (); extern void BindMove (); extern void DoExplore (); extern void DoExploreUtil (); extern void DoMove (); extern bool ExecMove (); extern void Explore (); extern void ExploreUtil (); extern void FlushExplore (); extern int GiveMaxMove (); extern void Move (); extern bool ParseExploreInfo (); extern void RedoExplore (); extern void RedoMove (); /* commands/multi.c */ extern void DoMakeMap (); extern void Multi (); extern void MultiCommand (); extern void MultiProg (); extern void MultiSpy (); extern void SetRealm (); /* commands/pemp.c */ extern void WMPageCommand (); /* commands/shoot.c */ extern void BindShoot (); extern void DoShoot (); extern void MultiShoot (); extern void RedoShoot (); extern void SingleShoot (); /* commands/territory.c */ extern void ExecSetTer (); extern void MultiTerri (); /* commands/threshold.c */ extern void ExecSetThreshold (); extern void MultiThreshold (); extern void MultiWipe (); /* data/data.c */ extern void CheckDump (); extern char * MakeDataFile (); extern bool RetrieveData (); extern void StoreData (); /* data/dump.c */ extern void BinDumpAll (); extern void BinRestAll (); /* data/help.c */ extern void Help (); /* data/xemprc.c */ extern void ReadRc (); /* util/f_cargo.c */ extern int EditCargo (); extern void RunCargoFerry (); /* util/f_goto.c */ extern int EditGoto (); extern void RunGotoFerry (); /* util/ferry.c */ extern void ChangeFerry (); extern char * CheckFlSh (); extern char * CheckSector (); extern void DeleteFerry (); extern void DoFerry (); extern void DoFerryUtil (); extern bool FerButPressed (); extern void FerButton (); extern int FerryMinMob (); extern char * FerryPos (); extern Sector FerrySector (); extern void FerryStat (); extern void FerryUtil (); extern void GotoFerry (); extern char * HasFerry (); extern void ListComplFerries (); extern void ListSectorFerries (); extern bool NavigPath (); extern int NrShipsInFerry (); extern void ReadFerries (); extern void SaveFerries (); extern bool SelSector (); extern bool SelectFlSh (); extern void SetXAtButton (); /* util/mail.c */ extern void AddMail (); extern void Announce (); extern void AppendSignature (); extern void BindReRead (); extern void BindRead (); extern void BindSend (); extern void Commun (); extern bool FScanReadTels (); extern bool FScanReadWirs (); extern void InfoMailMenu (); extern void MailMenu (); extern void News (); extern int ParseReadArg (); extern void RestoreMail (); extern void SaveMail (); extern bool SendTelegram (); extern void ShowHeadLines (); extern void ShowMail (); /* util/natinfo.c */ extern void UtilNatInfo (); /* util/plan.c */ extern void CensusLayPlan (); extern Strings DoRunPlan (); extern bool HasPlan (); extern void InitPlanOptions (); extern bool IsActive (); extern void LoadPlanInfo (); extern void LoadPlanOptions (); extern PlanEntry NewPlanEntry (); extern void PlanCensus (); extern void PlanCensusButton (); extern char PlanDesign (); extern void PlanUtil (); extern void RunPlan (); extern void RunPlanRec (); extern void SavePlanInfo (); extern void SavePlanOptions (); extern void UtilPlan (); /* util/power.c */ extern void FreePowerList (); extern void PrintPowerEntry (); extern void ScanNewPower (); extern void ScanPower (); /* util/production.c */ extern void ReadProduction (); extern void UpdateProduction (); extern char * alloc_production (); /* util/prog.c */ extern bool FileExists (); extern int ProgChoice (); extern char * ProgFile (); extern Program SelectProgram (); extern char * SelectProgramFromDir (); extern void UtilRunProg (); /* util/relat.c */ extern void FreeRelInfo (); extern void PrintRelations (); extern int RelLines (); extern RelInfo ScanRelationsAs (); /* util/report.c */ extern void FreeReportInfo (); extern void PrintRepInfo (); extern RepInfo ScanReportAs (); /* util/strstr.c */ extern char * StrStr (); /* util/ve.c */ extern void VeUtil (); /* termc/bind.c */ extern char * AddBindingKey (); extern void BindKeys (); extern void GlobalKey (); /* termc/dummy.c */ extern void ReverseCursor (); extern void SetDefaultCursor (); /* termc/event.c */ extern int CharToButton (); extern WinInfo EventWindow (); extern void MainLoop (); extern void NextEvent (); extern bool SelButtonAtWin (); extern void SelectButtonChar (); extern bool SelectSctCrd (); extern Sector SelectSector (); extern bool StandardChar (); extern bool StandardEvent (); extern void WaitButtonPress (); /* termc/misc.c */ extern void BusyCursor (); extern void DrawArrow (); extern void DrawHorizontal (); extern char * GetString (); extern void ResetCursor (); /* termc/pager.c */ extern void AddPagerFunc (); extern void AddPagerToWMList (); extern void ChangePagerString (); extern void DumpPager (); extern void DumpPagerScreen (); extern bool EditPager (); extern void FpDumpPager (); extern void FreePager (); extern Pager InitPager (); extern char * InputPagerLine (); extern void MapPager (); extern void MapPagerFromBot (); extern void MapPagerFromTop (); extern int PagerMenu (); extern int PagerMenuFunc (); extern char * PagerMulti (); extern Strings PagerStrings (); extern void RemapPager (); extern void SetEditPager (); extern void SetInfoOnPager (); extern void SetPagerButtonIDs (); extern void SetPagerButtons (); extern void SetPagerSelect (); extern int ShowPager (); extern void ShowPagerLine (); extern void ShowStringsInPager (); /* termc/realm.c */ extern char * MySelRealm (); /* termc/tinit.c */ extern void InitTermcap (); extern int put (); /* termc/window.c */ extern char ** AllocScreen (); extern bool AtBottum (); extern void Bell (); extern void ClearLine (); extern void ClearWindow (); extern void CursorUp (); extern void DestroyWindow (); extern void DrawScrollBar (); extern void DumpLine (); extern void DumpWindow (); extern WinInfo FindWindow (); extern void FlashWindow (); extern void FlushWindow (); extern void HideCursor (); extern void InitTermc (); extern void LowerAll (); extern void LowerEmpWin (); extern void LowerWindow (); extern WinInfo OpenRelToRoot (); extern WinInfo OpenWindow (); extern void Pause (); extern void Print (); extern void PrintB (); extern void PrintMarked (); extern void PrintMarkedB (); extern void PrintMarkedN (); extern void PrintN (); extern void QuitTermc (); extern void RaiseAll (); extern void RaiseEmpWin (); extern void RaiseWindow (); extern void Redraw (); extern void Refresh (); extern void RefreshWindow (); extern void RefreshWindowPart (); extern void Scroll (); extern void ScrollDown (); extern void ScrollUp (); extern void SetMode (); extern void SetToBot (); extern void SetToTop (); extern void ShowCursor (); extern void SiPut (); extern void WdPut (); /* update/census.c */ extern void CensusPlanProduce (); extern void CensusProduce (); /* update/deliver.c */ extern void UpdDeliver (); /* update/distribute.c */ extern void UpdDistribute (); /* update/human.c */ extern int FeedSctPeople (); extern int FeedShipPeople (); extern int GrowPeople (); extern int chance (); extern int roundavg (); /* update/main.c */ extern void SimulateUpdate (); /* update/mobility.c */ extern void UpdMobPlane (); extern void UpdMobSect (); extern void UpdMobShip (); /* update/plane.c */ extern int UpdProdPlane (); /* update/populace.c */ extern double PopulaceSct (); extern double PopulaceSct2 (); extern void Starvation (); /* update/produce.c */ extern int UpdProduce (); extern int materials_charge (); extern int materials_cost (); /* update/sect.c */ extern int BuildEff (); extern int GrowFood (); extern int UpdEnlist (); extern void UpdProdSect (); /* update/ship.c */ extern void UpdProdShip (); extern bool UpdShipRepair (); /* sects/goto.c */ extern void GotoCond (); /* census/census.c */ extern void Census (); extern void CensusButton (); extern void CensusFleet (); extern void CensusInfo (); extern void CensusLayTop (); extern void CensusNuke (); extern void CensusPlane (); extern void CensusSct (); extern void CensusSctShip (); extern void CensusShip (); extern void CensusWing (); extern void DoCensus (); extern void InitCensus (); /* census/deity.c */ extern void CensusDeityButton (); extern bool DeityChangeShip (); /* census/fleet.c */ extern void CensusLayFleet (); extern void FleetCensus (); extern void FleetCensusBut (); /* census/misc.c */ extern void BindCensusMode (); extern bool ButtonPressed (); extern void CenButton (); extern void CenClr (); extern void CenLine (); extern void CenLineText (); extern void CenPutInt (); extern void CenPutPos (); extern void CenPutPosit (); extern void CenPutShort (); extern void CenPutUnknown (); extern void CenPutVal (); extern void CenPuts (); extern void ClearCols (); extern void DrawCensusButtons (); extern int WhichCensusButton (); /* census/nuke.c */ extern void CensusLayNuke (); extern void NukeCensus (); extern void NukeCensusButton (); /* census/plane.c */ extern void CensusLayPlane (); extern void PlaneCensus (); extern void PlaneCensusBut (); /* census/sector.c */ extern void AdditCensusBut (); extern void CensusAddit (); extern void CensusCommodities (); extern void CensusCrafts (); extern void CensusLayNormal (); extern void CensusResources (); extern void CensusTop (); extern void SectorCensus (); extern void SectorCensusBut (); /* census/ship.c */ extern void CensusLayShip (); extern void ShipCensus (); extern void ShipCensusBut (); /* census/wing.c */ extern void CensusLayWing (); extern void WingCensus (); extern void WingCensusBut (); /* nuke/alloc.c */ extern void FreeStockPile (); extern Stockp NewStockPile (); /* nuke/build.c */ extern void BuildNuke (); extern void DoBuildNuke (); extern void RedoBuildNuke (); /* nuke/data.c */ extern void LoadNukeShow (); extern void SaveNukeShow (); /* nuke/dump.c */ extern void AddStockToSct (); extern void BinDumpNukes (); extern bool BinRestoreNukes (); /* nuke/scan.c */ extern void FScanNukes (); /* nuke/scanshow.c */ extern void FScanNukeShowBuild (); extern void FScanNukeShowCap (); /* nuke/show.c */ extern int SelectNuke (); extern int SelectNukeType (); /* nuke/transport.c */ extern void TransportNuke (); /* nuke/type.c */ extern int FindNukeType (); /* misc/version.c */ extern void EndVersion (); extern void FScanVersion (); extern void KSUNotDefined (); extern bool KSUOption (); extern void RestoreVersion (); extern void SaveVersion (); extern void ShowVersion (); xemp5.1-beta/include/type.h100444 12266 2116 6375 6032444712 14223 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/include/RCS/type.h,v 5.2 1995/09/08 06:52:52 jpo Exp $ $Date: 1995/09/08 06:52:52 $ $Author: jpo $ $Id: type.h,v 5.2 1995/09/08 06:52:52 jpo Exp $ $Locker: $ $Log: type.h,v $ Revision 5.2 1995/09/08 06:52:52 jpo some more structures * Revision 5.1 93/03/14 16:40:00 etienne * * * Revision 5.0 93/02/06 09:25:20 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:17:12 greyhelm * Added RCS headers - Karl Hagen * */ /* * Empiretool * * Written by HJ Visscher. */ #ifndef _TYPE #define _TYPE #ifndef _CONFIG_H_ #include "config.h" #endif #ifdef HAVE_STRING_H #include #else #ifdef HAVE_STRINGS_H #include #endif #endif #include #include #include #include "prototype.h" #define ENTRYPTR char * #define DLISTPTR char * struct s_funcbutton; /* forward ref */ typedef struct _Stack *Stack; struct _EvalStack; typedef struct s_strings * Strings; typedef struct s_sector1 * Sector; typedef struct s_ship * Ship; typedef struct l_land * Land; typedef struct s_plane * Plane; typedef struct s_nuke * Nuke; typedef struct s_nuke * Stockp; typedef struct s_nation * Nation; typedef struct s_wininfo * WinInfo; typedef struct s_menu * Menu; typedef struct s_shtype ShType; typedef struct l_landtype LdType; typedef struct s_pltype PlType; typedef struct s_pager * Pager; typedef struct s_neighb * Neighb; typedef FILE * File; typedef struct s_slist * SList; typedef char * DSList; typedef struct s_realm * Realm; typedef int bool; typedef struct s_ferry * Ferry; typedef struct _Instruction * Program; typedef struct s_relinfo * RelInfo; typedef struct s_repinfo * RepInfo; typedef struct s_planentry * PlanEntry; typedef enum s_task { ST_NAVIGATE, ST_SCRAP, ST_UPGRADE, ST_FLEETADD, ST_TEND, ST_LOADPLANE, ST_LOADXPLANE, ST_LOADHELI, ST_LOADLAND } ShTask; typedef enum { MIS_FLY, MIS_BOMB, MIS_DROP, MIS_DROPMINES, MIS_ESCORT, MIS_PARADROP, MIS_RECON, MIS_WINGADD, MIS_TRANSPORT, MIS_LOADPLANE, MIS_LOADXPLANE, MIS_LOADHELI } Mission; typedef enum { LD_MARCH, LD_SCRAP, LD_LLOADXPLANE, LD_LANDTOSHIP, LD_ARMYADD } LdTask; typedef void (*MultiProc) _PROTO((char *realm, int quant, char ch)); typedef void (*AgainProc) _PROTO((void)); typedef void (*InfoProc) _PROTO((int x, int y, int i)); typedef const char ** ConstVP; typedef const char *ConstPtr; #define STARTUP_STATE 0 #define NORMAL_STATE 1 #define BUFFER_STATE 2 /* Buffer all commands */ #define FORCE_BUF_STATE 3 /* Force buffering most of the commands */ #define TEST_STATE 4 #define FASTQUIT_STATE 5 #define RETREAT_NONE 0x00 #define RETREAT_DAMAGED 0x01 #define RETREAT_TORPEDOED 0x02 #define RETREAT_BOMBED 0x04 #define RETREAT_SONAAR 0x08 #define RETREAT_DEPTH 0x10 #define RETREAT_HELPLESS 0x20 #define RETREAT_MAX 8 #define RETREAT_MAXSTR 6 /* extern */ char *malloc (); int sscanf (); int printf (); int fprintf (); char *ctime (); char *getpass (); char *getenv (); int atoi (); #ifndef True #define True 1 #define False 0 #endif True #ifdef mips extern int errno; /* needed on MIPS (bsd43 universe) */ #endif #endif _TYPE xemp5.1-beta/include/var.h100444 12266 2116 10450 6032444712 14037 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/include/RCS/var.h,v 5.3 1995/09/20 07:39:21 jpo Exp $ $Date: 1995/09/20 07:39:21 $ $Author: jpo $ $Id: var.h,v 5.3 1995/09/20 07:39:21 jpo Exp $ $Locker: $ $Log: var.h,v $ Revision 5.3 1995/09/20 07:39:21 jpo Add bld/lcm/hcm to dchrstr Revision 5.2 1995/09/08 06:53:16 jpo unknown. * Revision 5.1 93/03/14 16:40:00 etienne * * * Revision 5.0 93/02/06 09:25:20 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:17:12 greyhelm * Added RCS headers - Karl Hagen * */ #ifndef _VAR #define _VAR #define NUMPKG 4 /* number of different kinds of packaging */ #define NPKG 0 /* no special packaging */ #define WPKG 1 /* "warehouse" packaging */ #define UPKG 2 /* "urban" packaging */ #define BPKG 3 /* "bank" packaging */ #define DBOTH 0 /* do exp/imp at the same time (distribute) */ #define DEXPORT 1 /* only exporting (chain 3.0) */ #define DIMPORT 2 /* only importing (chain 3.0) */ #define V_CIVIL 1 #define V_MILIT 2 #define V_SHELL 3 #define V_GUN 4 #define V_PETROL 5 #define V_IRON 6 #define V_DUST 7 #define V_BAR 8 #define V_FOOD 9 #define V_OIL 10 #define V_LCM 11 #define V_HCM 12 #define V_UW 13 #define V_RAD 14 #define V_MAX 15 #define I_MAX 14 #define SCT_WATER 0 /* basics */ #define SCT_MOUNT 1 #define SCT_SANCT 2 #define SCT_WASTE 3 #define SCT_RURAL 4 #define SCT_CAPIT 5 #define SCT_URAN 6 #define SCT_PARK 7 #define SCT_ARMSF 8 /* industries */ #define SCT_AMMOF 9 #define SCT_MINE 10 #define SCT_GMINE 11 #define SCT_HARBR 12 #define SCT_WAREH 13 #define SCT_AIRPT 14 #define SCT_AGRI 15 #define SCT_OIL 16 #define SCT_LIGHT 17 #define SCT_HEAVY 18 #define SCT_FORTR 19 /* military/scientific */ #define SCT_TECH 20 #define SCT_RSRCH 21 #define SCT_NUKE 22 #define SCT_LIBR 23 #define SCT_HIWAY 24 /* communications */ #define SCT_RADAR 25 #define SCT_HEADQ 26 #define SCT_BHEAD 27 #define SCT_BSPAN 28 #define SCT_BANK 29 /* financial */ #define SCT_REFINE 30 /* refinery */ #define SCT_ENLIST 31 /* enlistment center */ #define SCT_UNKNOW 32 /* unknown land ? */ #define SCT_MAXDEF 32 /* highest sector type in header files */ #define P_SHELL 1 #define P_GUN 2 #define P_PETROL 3 #define P_IRON 4 #define P_DUST 5 #define P_BAR 6 #define P_FOOD 7 #define P_OIL 8 #define P_LCM 9 #define P_HCM 10 #define P_TLEV 11 #define P_RLEV 12 #define P_ELEV 13 #define P_HLEV 14 #define P_URAN 15 #define NAVOK 1 /* ships can always navigate */ #define NAV_02 2 /* requires 2% effic to navigate */ #define NAV_60 3 /* requires 60% effic to navigate */ #define NAT_TLEV 0 #define NAT_RLEV 1 #define NAT_ELEV 2 #define NAT_HLEV 3 #define MAXPRDV 6 struct pchrstr { int p_type; /* vtype if product is a variable */ int p_level; /* index (NAT_?LEV) if product is not a var */ int p_cost; /* dollars / product unit */ int p_nrndx; /* index into sect of natural resource */ int p_nrdep; /* depletion as a % of resource used */ int p_nlndx; /* index (NAT_?LEV) affecting production */ int p_nlmin; /* minimum lvl required */ int p_nllag; /* lag, mul by (lvl-nlmin)/(lvl-nlmin+nllag) */ int p_effic; /* process efficiency, mult by p_effic/100 */ char *p_name; /* name of product */ u_char p_nv; /* number of constituents */ u_char p_vtype[MAXPRDV];/* constituent types */ u_int p_vamt[MAXPRDV]; /* constituent amounts */ char *p_sname; /* int (7char or less) name of product */ }; struct dchrstr { int d_mnem; /* map symbol */ int d_prd; /* product vtype */ int d_mcst; /* movement cost */ int d_flg; /* movement cost */ int d_pkg; /* type of packaging in these sects */ int d_ostr; /* offensive strength */ int d_dstr; /* defensive strength */ int d_value; /* resale ("collect") value */ int d_bld; /* cost to build per point */ int d_lcm; /* requires lcm per eff point */ int d_hcm; /* requires hcm per eff point */ char *d_name; /* full name of sector type */ }; struct ichrstr { int i_mnem; /* usually the initial letter */ int i_vtype; /* var type */ int i_value; /* mortgage value */ int i_sell; /* can this be sold? */ int i_lbs; /* how hard to move */ int i_pkg[NUMPKG]; /* units for reg, ware, bank */ char *i_name; /* full name of item */ }; #endif _VAR xemp5.1-beta/include/version.h100444 12266 2116 4431 6032444712 14716 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/include/RCS/version.h,v 5.2 1995/09/20 07:39:01 jpo Exp $ $Date: 1995/09/20 07:39:01 $ $Author: jpo $ $Id: version.h,v 5.2 1995/09/20 07:39:01 jpo Exp $ $Locker: $ $Log: version.h,v $ Revision 5.2 1995/09/20 07:39:01 jpo Add BIG_CITY option Revision 5.1 1993/03/14 16:40:00 etienne * Revision 5.0 93/02/06 09:25:20 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:17:12 greyhelm * Added RCS headers - Karl Hagen * */ #ifndef _VERSION #define _VERSION #define ABM 1 #define ALLYHARBOR 2 #define ALLYHARBORWORK 3 #define ALLYUPGRADE 4 #define ALL_BLEED 5 #define ASW_PLANES 6 #define AUTONAV 7 #define BABY_NUKES 8 #define BAN 9 #define BETTERABM 10 #define BETTERARMOR 11 #define BIND 12 #define BLITZ 13 #define BMAP 14 #define BUDGET 15 #define CHOPPER_STEALTH 16 #define CONVASAT 17 #define DAVYJONES 18 #define DEMANDUPDATE 19 #define DRNUKE 20 #define DROPANY 21 #define EASY_BRIDGES 22 #define FALLOUT 23 #define FUEL 24 #define GRIND 25 #define HARBOR_POLICE 26 #define MERC 27 #define MINE_PLANES 28 #define MISSDEF 29 #define MISSINGMISSILES 30 #define MOVEMAP 31 #define MULTIFIRE 32 #define NEUTRON 33 #define NEWFISH 34 #define NEWPOWER 35 #define NEWREPORT 36 #define NEWSUBS 37 #define NOFOOD 38 #define NOGODS 39 #define NOMOBCOST 40 #define NONUKESUB 41 #define NUKEFAILDETONATE 42 #define ORBIT 43 #define OWNASSAULT 44 #define PARAFLAG 45 #define PINPOINTMISSILE 46 #define RANGEEDIT 47 #define REALM_IN_NAT 48 #define REJECTS 49 #define RETREAT 50 #define SAIL 51 #define SCUTTLE 52 #define SEMILAND 53 #define SHIPCHOPPERS 54 #define SHIPNAMES 55 #define SHIPSAM 56 #define SHIPTORP 57 #define SHOWPLANE 58 #define SLOW_WAR 59 #define STEALTHV 60 #define SUPER_BARS 61 #define SWEEP_PLANES 62 #define TACARGO 63 #define TRADESHIPS 64 #define UPDATESCHED 65 #define WING_LOAD 66 #define WIRE 67 #define XLIGHT 68 #define STOP 69 #define RES_POP 70 #define NO_PLAGUE 71 #define GRAB_THINGS 72 #define CARRIER_WORK 73 #define NEW_WORK 74 #define NEW_STARVE 75 #define SNEAK_ATTACK 76 #define BIG_CITY 77 #endif _VERSION xemp5.1-beta/include/xemp.h100444 12266 2116 302040 6043205616 14237 0ustar jponexor/* $Header: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/RCS/xemp.h,v 5.6 1995/10/24 15:51:37 jpo Exp $ $Date: 1995/10/24 15:51:37 $ $Author: jpo $ $Id: xemp.h,v 5.6 1995/10/24 15:51:37 jpo Exp $ $Locker: $ $Log: xemp.h,v $ Revision 5.6 1995/10/24 15:51:37 jpo New prototypes Revision 5.5 1995/10/09 07:16:56 jpo TOuch up Revision 5.4 1995/10/09 06:42:38 jpo FIxed up X fatal error handler prototype Revision 5.3 1995/09/28 07:05:17 jpo sync Revision 5.2 1995/09/08 06:53:35 jpo prototypes everywhere * Revision 5.1 1993/03/14 16:40:02 etienne * */ #include "prototype.h" #ifdef X_VERSION #include #endif /* ./lib/census/census.c */ extern void Census _PROTO((void)); extern void CensusArmy _PROTO((char army)); extern void CensusButton _PROTO((int x, int y)); extern void CensusFleet _PROTO((char fleet)); extern void CensusInfo _PROTO((void)); extern void CensusLand _PROTO((Land land)); extern void CensusLayTop _PROTO((void)); extern void CensusNuke _PROTO((Nuke nuke)); extern void CensusPlane _PROTO((Plane plane)); extern void CensusSct _PROTO((Sector sct)); extern void CensusSctShip _PROTO((Sector sct, Ship ship)); extern void CensusShip _PROTO((Ship ship)); extern void CensusWing _PROTO((char wing)); extern void DoCensus _PROTO((Sector sct, Ship ship, char fleet, Plane plane, char wing, Nuke nuke, Land land, char army, int layout)); extern void InitCensus _PROTO((void)); /* ./lib/census/deity.c */ extern void CensusDeityButton _PROTO((int x, int y)); extern bool DeityChangeShip _PROTO((Ship ship, int x, int y)); /* ./lib/census/fleet.c */ extern void CensusLayFleet _PROTO((void)); extern void FleetCensus _PROTO((char fleet)); extern void FleetCensusBut _PROTO((int x, int y)); /* ./lib/census/land.c */ extern void CensusLayLand _PROTO((void)); extern void LRangeEdit _PROTO((Land land)); extern void LandCensus _PROTO((Land land)); extern void LandCensusBut _PROTO((int x, int y)); extern void MoraleEdit _PROTO((Land land)); extern void LoadUnload _PROTO((Land land, int x, int y, char com)); /* ./lib/census/misc.c */ extern void BindCensusMode _PROTO((int x, int y, char *str)); extern bool ButtonPressed _PROTO((int x, int y, int sx, int sy, int len)); extern void CenButton _PROTO((int x, int y, const char *str, int len, bool enabled)); extern void CenClr _PROTO((int y)); extern void CenLine _PROTO((int y)); extern void CenLineText _PROTO((int y, const char *str)); extern void CenPutInt _PROTO((int x, int y, int i)); extern void CenPutPos _PROTO((int x, int y, int s)); extern void CenPutPosit _PROTO((int x, int y, int s)); extern void CenPutShort _PROTO((int x, int y, int s)); extern void CenPutUnknown _PROTO((int x, int y)); extern void CenPutVal _PROTO((int x, int y, const char *str)); extern void CenPuts _PROTO((int x, int y, const char *str)); extern void ClearCols _PROTO((int startx, int starty)); extern void DrawCensusButtons _PROTO((struct s_funcbutton buttons[], int max, bool enabled[])); extern int WhichCensusButton _PROTO((struct s_funcbutton funcbuttons[], int max, int x, int y)); /* ./lib/census/nuke.c */ extern void CensusLayNuke _PROTO((void)); extern void NukeCensus _PROTO((Stockp stockp)); extern void NukeCensusButton _PROTO((int x, int y)); /* ./lib/census/plane.c */ extern void CensusLayPlane _PROTO((void)); extern void PlaneCensus _PROTO((Plane plane)); extern void PlaneCensusBut _PROTO((int x, int y)); /* ./lib/census/sector.c */ extern void AdditCensusBut _PROTO((int x, int y)); extern void CensusAddit _PROTO((Sector sct)); extern void CensusCommodities _PROTO((Sector sct)); extern void CensusCrafts _PROTO((Sector sct)); extern void CensusLayNormal _PROTO((void)); extern void CensusResources _PROTO((Sector sct)); extern void CensusTop _PROTO((Sector sct)); extern void SectorCensus _PROTO((Sector sct)); extern void SectorCensusBut _PROTO((int x, int y)); /* ./lib/census/ship.c */ extern void CensusLayShip _PROTO((void)); extern void ShipCensus _PROTO((Ship ship)); extern void ShipCensusBut _PROTO((int x, int y)); /* ./lib/census/wing.c */ extern void CensusLayWing _PROTO((void)); extern void WingCensus _PROTO((char wing)); extern void WingCensusBut _PROTO((int x, int y)); /* ./lib/census/army.c */ extern void ArmyCensus _PROTO((char army)); extern void ArmyCensusBut _PROTO((int x, int y)); extern void CensusLayArmy _PROTO((void)); /* ./lib/clients/client.c */ extern void AwaitSomething _PROTO((int n)); extern bool BufferdCommands _PROTO((void)); extern void CloseConnection _PROTO((void)); extern void DeleteBufCommands _PROTO((void)); extern int EmpireStatus _PROTO((void)); extern void FeedBufCommands _PROTO((void)); extern void FeedCommand _PROTO((const char *com, int flag)); extern void FeedEmpire _PROTO((const char *str, int flag)); extern bool HostConnect _PROTO((void)); extern bool InitClient _PROTO((char *host, char *port, char *logfile)); extern bool IsEmpireMessage _PROTO((char *ptr)); extern int Login _PROTO((void)); extern void ReadBufCommands _PROTO((FILE *fp)); extern char * ReadEmpire _PROTO((int flag)); extern void Reconnect _PROTO((void)); extern void SaveBufCommands _PROTO((FILE *fp)); extern void ShowBufCommands _PROTO((int x, int y)); extern bool SkipNLines _PROTO((int n, int flag)); extern char * WaitForPrompt _PROTO((int flag)); /* ./lib/clients/empire.c */ extern bool EmpireMore _PROTO((void)); extern void InitEmpire _PROTO((int inc_y, int inc_width, int inc_height, int savelines)); extern void InputToEmpire _PROTO((void)); extern void MessageAtEmpire _PROTO((const char *str)); extern void PrintAtEmpire _PROTO((const char *str)); extern void PrintAtEmpireMode _PROTO((const char *str, int mode)); extern void ReprintAtEmpire _PROTO((const char *str)); /* ./lib/clients/io.c */ extern void Disconnect _PROTO((int i)); extern void DoQuit _PROTO((void)); extern void FastQuit _PROTO((void)); extern void Forceleave _PROTO((int sno)); extern void GetSpecialChars _PROTO((void)); extern void NoConTimeout _PROTO((void)); extern void Panic _PROTO((const char *funcname, const char *filename, const char *mes)); extern void ResetConTimeout _PROTO((void)); extern void SetSignalsOff _PROTO((void)); extern void SetSignalsOn _PROTO((void)); extern int getfdtablesize _PROTO((void)); extern void _noecho _PROTO((int fd)); /* ./lib/commands/load.c */ extern void LLoadXPlane _PROTO((Land land)); extern void LandToShip _PROTO((char *landnr)); extern void PlaneToShip _PROTO((char *planenr)); extern void SLoadHeli _PROTO((Ship ship)); extern void SLoadLand _PROTO((Ship ship)); extern void SLoadPlane _PROTO((Ship ship, Mission mission)); extern void SLoadXPlane _PROTO((Ship ship)); /* ./lib/commands/again.c */ extern void DoAgain _PROTO((void)); extern void SetAgain _PROTO((AgainProc proc)); /* ./lib/commands/attack.c */ extern void Attack _PROTO((void)); /* ./lib/commands/build.c */ extern void BuildBridge _PROTO((void)); extern void FScanBuildBridge _PROTO((void)); extern void RestoreBridgeData _PROTO((FILE *fp)); extern void SaveBridgeData _PROTO((FILE *fp)); /* ./lib/commands/commands.c */ extern void BufferMenu _PROTO((int x, int y)); extern void ChangeCommandMode _PROTO((int x, int y)); extern void Connections _PROTO((int x, int y)); extern int GetSaveMode _PROTO((int x, int y)); extern void GlobalCommands _PROTO((int x, int y)); extern void HelpOnUtils _PROTO((int x, int y, int i)); extern void InfoBufferMenu _PROTO((int x, int y, int i)); extern void InfoOnCensusMode _PROTO((int x, int y, int i)); extern void SectorCommands _PROTO((int x, int y)); /* ./lib/commands/convert.c */ extern void BindConvert _PROTO((int x, int y, char *str)); extern void DoConvert _PROTO((char *realm, int quant, char ch)); extern void MultiConvert _PROTO((int x, int y)); extern void RedoConvert _PROTO((void)); extern void SingleConvert _PROTO((void)); /* ./lib/commands/deity.c */ extern void DeityChange _PROTO((Sector sct)); extern bool DeityChangeLand _PROTO((int x, int y, char ch, int *new)); extern void DeityEditCountry _PROTO((int x, int y)); extern void DeityEditShips _PROTO((int x, int y)); extern void EditLand _PROTO((Sector sct, char what, int newv)); extern void EditShip _PROTO((Ship ship, char what, int newv)); /* ./lib/commands/deli.c */ extern void Deliver _PROTO((int x, int y)); extern void DoDeliver _PROTO((int x, int y, int item, int cutoff)); extern void RedoDeliver _PROTO((void)); extern void SetDelAgainCutoff _PROTO((int item, int cutoff)); /* ./lib/commands/demob.c */ extern void BindDemob _PROTO((int x, int y, char *str)); extern void DoDemob _PROTO((char *realm, int number, char reser)); extern void MultiDemob _PROTO((int x, int y)); extern void RedoDemob _PROTO((void)); extern void SingleDemob _PROTO((void)); /* ./lib/commands/design.c */ extern bool AllowNavigate _PROTO((Sector sct)); extern void BindDesignate _PROTO((int x, int y, char *str)); extern char CharOfDesigName _PROTO((char *desig)); extern void Design _PROTO((Sector sct, int x, int y)); extern const char * DesignName _PROTO((char mnem)); extern void DoDesignate _PROTO((char *realm, char des)); extern double EffPathCost _PROTO((Sector sct, char *path)); extern void HelpDesignate _PROTO((int x, int y, int i)); extern double MoveCost _PROTO((char des, int eff)); extern void MultiDesignate _PROTO((int x, int y)); extern double RealPathCost _PROTO((Sector sct, char *path)); extern void RedoDesignate _PROTO((void)); extern int SectorPacking _PROTO((char des)); extern void UpdateDstr _PROTO((void)); /* ./lib/commands/distri.c */ extern void Distribute _PROTO((Sector sct, int x, int y)); extern void DistributeRealm _PROTO((Sector sct)); extern bool ExecSetDistr _PROTO((Sector sct, Sector to, int mode, bool show, bool isrealm)); extern void MarkPath _PROTO((Sector sct, char *path)); extern void UnmarkPath _PROTO((Sector start, char *path)); extern void UtilDist _PROTO((int x, int y)); /* ./lib/commands/enlist.c */ extern void BindEnlist _PROTO((int x, int y, char *str)); extern void DoEnlist _PROTO((char *realm, int quant, char ch)); extern void MultiEnlist _PROTO((int x, int y)); extern void RedoEnlist _PROTO((void)); extern void SingleEnlist _PROTO((void)); /* ./lib/commands/fire.c */ extern void DoFireFromShip _PROTO((char *target, int guns)); extern void DoFireFromSub _PROTO((char *target)); extern void FireFromSector _PROTO((void)); extern void FireFromShip _PROTO((void)); extern void MultiFire _PROTO((void)); extern void RedoFireFromSector _PROTO((void)); extern void RedoFireFromShip _PROTO((void)); extern void RedoFireFromSub _PROTO((void)); extern void Torpedo _PROTO((void)); /* ./lib/commands/grind.c */ extern void BindGrind _PROTO((int x, int y, char *str)); extern void DoGrind _PROTO((char *realm, int quant, char ch)); extern void MultiGrind _PROTO((int x, int y)); extern void RedoGrind _PROTO((void)); extern void SingleGrind _PROTO((void)); /* ./lib/commands/market.c */ extern void BindSell _PROTO((int x, int y, char *str)); extern void DoSell _PROTO((char *realm, char comm, int quant, double price)); extern void MultiSell _PROTO((int x, int y)); extern void RedoSell _PROTO((void)); extern void SingleSell _PROTO((int x, int y)); /* ./lib/commands/mfire.c */ extern void DoMFireFromFleet _PROTO((char *target)); extern void MFireFromFleet _PROTO((char *fleet)); extern void RedoMFireFromFleet _PROTO((void)); /* ./lib/commands/move.c */ extern void BindExplore _PROTO((int x, int y, char *str)); extern void BindMove _PROTO((int x, int y, char *str)); extern void DoExplore _PROTO((int x, int y, char itemchar, int quant)); extern void DoExploreUtil _PROTO((WinInfo win, Sector from, int max_mob, int max_cm, char explore_with, int explore_item)); extern void DoMove _PROTO((int x, int y, char comm, int quant, char *planeid)); extern bool ExecMove _PROTO((Sector from, Sector to, int quant, int item_char)); extern void Explore _PROTO((int x, int y)); extern void ExploreUtil _PROTO((void)); extern void FlushExplore _PROTO((WinInfo win)); extern int GiveMaxMove _PROTO((Sector from, Sector to, char item_char, int thr_mob)); extern void Move _PROTO((int x, int y)); extern bool ParseExploreInfo _PROTO((Sector sct)); extern void RedoExplore _PROTO((void)); extern void RedoMove _PROTO((void)); /* ./lib/commands/multi.c */ extern void DoMakeMap _PROTO((int x, int y)); extern void Multi _PROTO((int x, int y)); extern void MultiCommand _PROTO((int x, int y, const char *quest, const char *comname, int def, MultiProc proc, char ch)); extern void MultiProg _PROTO((int px, int py)); extern void MultiSpy _PROTO((void)); extern void SetRealm _PROTO((int x, int y)); /* ./lib/commands/pemp.c */ extern void WMPageCommand _PROTO((int x, int y)); /* ./lib/commands/shoot.c */ extern void BindShoot _PROTO((int x, int y, char *str)); extern void DoShoot _PROTO((char *realm, int number, char comm)); extern void MultiShoot _PROTO((int x, int y)); extern void RedoShoot _PROTO((void)); extern void SingleShoot _PROTO((void)); /* ./lib/commands/territory.c */ extern void ExecSetTer _PROTO((char *relam, int number)); extern void MultiTerri _PROTO((void)); /* ./lib/commands/threshold.c */ extern void ExecSetThreshold _PROTO((char *realm, char itemchar, int i)); extern void MultiThreshold _PROTO((int px, int py)); extern void MultiWipe _PROTO((void)); /* ./lib/data/data.c */ extern void CheckDump _PROTO((void)); extern char * MakeDataFile _PROTO((const char *suffix)); extern bool RetrieveData _PROTO((bool bin_dump)); extern void StoreData _PROTO((void)); /* ./lib/data/dump.c */ extern void BinDumpAll _PROTO((void)); extern void BinRestAll _PROTO((void)); /* ./lib/data/help.c */ extern void Help _PROTO((int x, int y, char *str)); /* ./lib/data/xemprc.c */ extern void ReadRc _PROTO((void)); /* ./lib/deity/add.c */ extern void AddNation _PROTO((int x, int y)); extern void DoNewCap _PROTO((int x, int y)); extern void NewCap _PROTO((int country)); /* ./lib/deity/nation.c */ extern void AddCountry _PROTO((int nr, char *name)); extern char * AskCountry _PROTO((int x, int y, const char *quest, bool allow_own)); extern int CountryId _PROTO((const char *name)); extern char * CountryName _PROTO((int nr)); extern bool ExistCountry _PROTO((int nr)); extern void FindMyCnum _PROTO((void)); extern double GiveNatLevel _PROTO((int id)); extern void InitNation _PROTO((void)); extern int NatCmp _PROTO((char **nat1, char **nat2)); extern void NationSetRealm _PROTO((int realmnr, char *realm)); extern void RestoreCountries _PROTO((FILE *fp)); extern void SaveCountries _PROTO((FILE *fp)); extern void ShowNation _PROTO((void)); /* ./lib/land/mine.c */ extern void BindLMine _PROTO((int x, int y, char *str)); extern void DoLMine _PROTO((char *what, int quant)); extern void LMine _PROTO((char *what)); extern void RedoLMine _PROTO((void)); /* ./lib/land/dump.c */ extern void BinDumpLand _PROTO((FILE *fp)); extern bool BinRestLand _PROTO((FILE *fp)); /* ./lib/land/army.c */ extern long ArmyAbils _PROTO((char army)); extern bool ArmyColocated _PROTO((char army)); extern bool ArmyEmpty _PROTO((char army)); extern char * ArmyId _PROTO((void)); extern int ArmyMinMob _PROTO((char army)); extern Sector ArmySector _PROTO((char army)); extern char FirstArmyInSct _PROTO((Sector sct)); extern char FirstFreeArmy _PROTO((void)); extern char GiveNextArmyInSct _PROTO((Sector sct, char army)); extern long LandNrAbils _PROTO((int landnr)); extern void MoveArmy _PROTO((char army, Sector sct)); extern void ShowFreeArmys _PROTO((void)); /* ./lib/land/land.c */ extern bool AddEnemyLand _PROTO((int x, int y, int nr, int owner, char *ptr, int eff, int tech)); extern void AddLandToList _PROTO((Land land)); extern void AddLandToSector _PROTO((Land land, Sector to)); extern void ArmyAdd _PROTO((int x, int y)); extern Land AskLand _PROTO((int x, int y, const char *quest, bool allow_others)); extern void DeleteEnemyLands _PROTO((void)); extern void DeleteLand _PROTO((Land land)); extern void DeleteLandFromSector _PROTO((Land land)); extern int FindLandTypeByName _PROTO((const char *name, bool must_exist)); extern int GiveLandQuant _PROTO((Land land, char item)); extern char * GiveLandQuantStr _PROTO((Land land, char id)); extern bool LandAtSect _PROTO((Sector sct, char let)); extern bool LandAtWith _PROTO((Sector sct, long flag)); extern const char * LandCapNames _PROTO((long flags)); extern const char * LandCargoNames _PROTO((int cargo[])); extern char LandCharInSector _PROTO((Sector sct)); extern double LandFireRange _PROTO((Land land)); extern bool LandHas _PROTO((Land land, long flags)); extern bool LandHasRadar _PROTO((Land land)); extern int LandMaxGuns _PROTO((Land land)); extern const char * LandName _PROTO((Land land)); extern bool LandOnList _PROTO((Land land)); extern Sector LandSector _PROTO((Land land)); extern int MaxLandCargo _PROTO((Land land, char itemc)); extern void MoveLand _PROTO((Land land, Sector to)); extern void MoveLandTo _PROTO((Land land, Sector sct)); extern Land NrToLand _PROTO((int nr)); extern void PageShowLandCSBs _PROTO((void)); extern bool PortableLand _PROTO((Land land)); extern bool SectorHasOwnedLands _PROTO((Sector sct, int n)); extern void SetLandQuant _PROTO((Land land, char item, int value)); extern void SetLandValues _PROTO((Land land, char *name)); extern void SetSectorLandsNr _PROTO((Sector sct)); extern void ShowLandCBStrings _PROTO((Strings strings)); /* ./lib/land/landbuild.c */ extern void BuildLand _PROTO((int x, int y)); extern void DoBuildLand _PROTO((int x, int y, int landid, int techn)); extern void RedoBuildLand _PROTO((void)); /* ./lib/land/landlist.c */ extern void ListLand _PROTO((int x, int y, int enemy)); /* ./lib/land/landscan.c */ extern void CheckMarkedLands _PROTO((void)); extern int DumpLand _PROTO((const char *list, int flag)); extern void DumpRealmLands _PROTO((char *realm, int flag)); extern void DumpSctLands _PROTO((Sector sct, int flag)); extern int FScanLand _PROTO((const char *list, int flag)); extern void FScanLandCargo _PROTO((const char *list, int flag)); extern void FScanLandReso _PROTO((void)); extern void FScanShowLandBuild _PROTO((void)); extern void FScanShowLandCap _PROTO((void)); extern void FScanShowLandStats _PROTO((void)); extern void FeedRadarLands _PROTO((void)); extern void MarkAllLands _PROTO((void)); extern void MarkLand _PROTO((Land land)); extern void MarkLandsInSct _PROTO((Sector sct)); extern void RedumpArmy _PROTO((char army, int flag)); extern void RedumpLand _PROTO((Land land, int flag)); extern void RestoreShowLand _PROTO((FILE *fp)); extern void SaveShowLand _PROTO((FILE *fp)); extern void ScanLandCargo _PROTO((int flag)); extern int ScanLands _PROTO((int flag)); extern void SearchMarkedLands _PROTO((int flag)); /* ./lib/land/llook.c */ extern void DoLLookout _PROTO((Sector sct, int landnr, bool march_in, int print, bool force)); /* ./lib/land/march.c */ extern void BindMarch _PROTO((int x, int y, char *str)); extern void DoMarch _PROTO((int x, int y, int how)); extern void Mar _PROTO((int x, int y)); extern void March _PROTO((char *march_what)); extern void RedoMarch _PROTO((void)); /* ./lib/land/mark.c */ extern bool ArmyHasEngineer _PROTO((void)); extern int BestMarkedLRadar _PROTO((void)); extern void CheckLands _PROTO((char *what)); extern void DeleteMarkedEnemyLands _PROTO((void)); extern int FirstMarkedLandnr _PROTO((void)); extern bool LMarkedColocated _PROTO((void)); extern void LMoveMarkedTo _PROTO((Sector sct)); extern void MarkLands _PROTO((char *form)); extern int MaxLRadarMarked _PROTO((int *lndr)); extern int MinMobMarkedLands _PROTO((Land *land)); extern Sector SctMarkedLands _PROTO((void)); extern void UnmarkAllLands _PROTO((void)); /* ./lib/land/missing.c */ extern void FireFromLand _PROTO((void)); extern void MFireFromArmy _PROTO((char *army)); extern void MissionLand _PROTO((void)); extern void ScuttleLand _PROTO((char *army)); /* ./lib/land/scrap.c */ extern void RedoLScrap _PROTO((void)); extern void ScrapLand _PROTO((char *what)); /* ./lib/land/select.c */ extern char * SelectLands _PROTO((int x, int y, LdTask ldtask, const char *quest)); /* ./lib/land/set.c */ extern void SetLand _PROTO((Land land)); /* ./lib/land/work.c */ extern void BindWork _PROTO((int x, int y, char *str)); extern void DoWork _PROTO((char *what, int work)); extern void RedoWork _PROTO((void)); extern void Work _PROTO((char *what)); /* ./lib/land/supply.c */ extern void SupplyLand _PROTO((char *what)); /* ./lib/land/fort.c */ extern void BindFortify _PROTO((int x, int y, char *str)); extern void DoFortify _PROTO((char *what, int fort)); extern void Fortify _PROTO((char *what)); extern void RedoFortify _PROTO((void)); /* ./lib/land/mission.c */ extern const char *ArmyHasMission _PROTO((char army)); extern void ChangeArmyMission _PROTO((char army)); extern void FScanLandMission _PROTO((const char *list, int flag)); extern void LMission _PROTO((Land land)); extern void ScanLandMission _PROTO((int flag)); /* ./lib/land/retreat.c */ extern const char *ArmyHasRetreat _PROTO((char army)); extern void ChangeArmyRetreat _PROTO((char army)); extern Sector ChooseLandDest _PROTO((Sector sct, char **pathp)); extern void FScanLandRetreat _PROTO((const char *list, int flag)); extern void LRetreat _PROTO((Land land)); extern void ScanLandRetreat _PROTO((int flag)); /* ./lib/misc/budget.c */ extern void DoBudget _PROTO((void)); extern void ScanBudget _PROTO((void)); extern void ScanNewBudget _PROTO((void)); /* ./lib/misc/build.c */ extern bool BuildCheckAvailable _PROTO((int needed, char *craft)); extern bool BuildCheckCommodity _PROTO((char itemchar, int needed, char *craft)); /* ./lib/misc/check.c */ extern bool CheckOwnedCurSct _PROTO((void)); /* ./lib/misc/dlist.c */ extern void DLCall _PROTO((DLISTPTR dlist, void (*func)(ENTRYPTR *ep))); extern void DLDelete _PROTO((DLISTPTR dlist, int pos, void (*freefun)(ENTRYPTR *ep))); extern int DLElems _PROTO((DLISTPTR dlist)); extern void DLRead _PROTO((DLISTPTR dlst, void (*readfnx)(ENTRYPTR *ep))); extern void DLSetCurrent _PROTO((DLISTPTR dlist, int pos)); extern void DLWrite _PROTO((DLISTPTR dlist, FILE *fp, void (*writefunc)(ENTRYPTR *ep))); extern void DumpList _PROTO((DLISTPTR dlist)); /* ./lib/misc/goto.c */ extern void GotoCond _PROTO((void)); /* ./lib/misc/highl.c */ extern void ExprHighlist _PROTO((Stack expr)); extern bool HighlightSector _PROTO((Sector sct)); extern void InitHighlight _PROTO((void)); extern void ReadHighlight _PROTO((FILE *fp)); extern void SaveHighlight _PROTO((FILE *fp)); extern void SetHighlight _PROTO((void)); /* ./lib/misc/info.c */ extern void EmpInfo _PROTO((int x, int y)); extern Strings FileToStrings _PROTO((int x, int y, const char *filename)); extern void InfoCommands _PROTO((int x, int y)); extern bool InfoDir _PROTO((int x, int y, char *dir, char *header)); extern void InfoFile _PROTO((int x, int y, const char *file, bool iscom)); extern Strings ListDir _PROTO((char *dir)); extern void XempInfo _PROTO((int x, int y)); /* ./lib/misc/item.c */ extern int CharToItem _PROTO((char ch)); extern char ItemChar _PROTO((int i)); extern const char * ItemName _PROTO((int i)); extern double ItemWeight _PROTO((int i, int pck)); extern int SelectAvaItem _PROTO((int x, int y, Sector sct, const char *quest)); extern int SelectItem _PROTO((int x, int y, const char *quest)); extern int SelectSellItem _PROTO((int x, int y, const char *quest)); /* ./lib/misc/main.c */ extern void AbortClient _PROTO((int flag)); extern void PrintSaved _PROTO((void)); extern void SaveTillPrompt _PROTO((void)); extern void leave _PROTO((void)); extern void leave0 _PROTO((void)); extern void main _PROTO((int argc, char **argv)); /* ./lib/misc/map.c */ extern bool AtScreen _PROTO((int x, int y)); extern void BindExpression _PROTO((void)); extern void BindHighlightExpression _PROTO((void)); extern void BindNormalDisplay _PROTO((void)); extern void CenterMap _PROTO((int x, int y)); extern void ChangeDisplay _PROTO((int x, int y)); extern void ChangeOverlay _PROTO((int x, int y, char *str)); extern void ConvMapPosToPixelPos _PROTO((int *px, int *py)); extern bool ConvertToSctCrd _PROTO((int *px, int *py)); extern int Dist _PROTO((int x1, int x2, int y1, int y2)); extern int Distance _PROTO((Sector a, Sector b)); extern void DoCenterMap _PROTO((int x, int y)); extern void DrawMap _PROTO((void)); extern void DrawMapPart _PROTO((int start_x, int start_y, int end_x, int end_y)); extern void DrawNeighbours _PROTO((Sector sct)); extern void DrawRealm _PROTO((char *realm)); extern void DrawSector _PROTO((Sector sct)); extern const char * FileStr _PROTO((const char *file)); extern Sector FindSector _PROTO((int x, int y)); extern void GotoSct _PROTO((void)); extern void InitMap _PROTO((int incw, int inch)); extern int MapSctHeight _PROTO((void)); extern int MapSctWidth _PROTO((void)); extern void MarkSector _PROTO((Sector sct)); extern void ReCenter _PROTO((void)); extern bool SaveMap _PROTO((const char *file, int flag, int x1, int x2, int y1, int y2)); extern void SetCurrent _PROTO((Sector sct)); extern void SetCurrentSctShip _PROTO((Sector sct, Ship ship)); extern void ShiftField _PROTO((int dx, int dy)); extern void UnmarkSector _PROTO((Sector sct)); /* ./lib/misc/message.c */ extern void ClearMes _PROTO((void)); extern void ClearMes2 _PROTO((void)); extern void InitMessage _PROTO((int inc_width)); extern char * InputAtMessage _PROTO((const char *str, int maxlen, const char *form)); extern void MesBut _PROTO((char *b1, char *b2, char *b3)); extern void MesClearBut _PROTO((void)); extern void Message _PROTO((const char *str)); extern void Message2 _PROTO((const char *str)); extern void MessageMore _PROTO((void)); extern void SameBut _PROTO((void)); extern void Warning _PROTO((const char *str)); /* ./lib/misc/misc.c */ extern char * Centered _PROTO((const char *str, int n)); extern bool CharInFormat _PROTO((char ch, const char *format)); extern void ClearText _PROTO((void)); extern void CloseTextWindow _PROTO((void)); extern char * CrdStr _PROTO((Sector sct)); extern char * DateFmt _PROTO((time_t tim)); extern char * Fmt _PROTO(()); extern void FreeFmts _PROTO((void)); extern char * MakeFreeString _PROTO((bool upper[], bool lower[])); extern void NoNl _PROTO((char *str)); extern void OpenTextWindow _PROTO((int x, int y, const char *name)); extern double PlagueChance _PROTO((Sector sct)); extern char * ReadEmpireStrings _PROTO((Strings strings)); extern void ShowDone _PROTO((void)); extern void ShowStrings _PROTO((Strings strings)); extern void ShowText _PROTO((const char *s)); extern char * Str _PROTO((const char *s)); extern bool StrEQ _PROTO((const char *s1, const char *s2)); extern char * StrNl _PROTO((const char *s)); extern double TechFact _PROTO((int level, double mult)); extern double dmax _PROTO((double n1, double n2)); extern double dmin _PROTO((double n1, double n2)); extern char * doalloc _PROTO((unsigned size)); /* ./lib/misc/misc2.c */ extern bool Confirm _PROTO((const char *str, bool def)); extern void Disabled _PROTO((void)); extern void Error _PROTO((const char *str)); extern char * GetQuest _PROTO((WinInfo win, int y, const char *quest, int maxlen, const char *fmt)); extern bool HandleQuestion _PROTO((const char *quest)); extern void SwapInt _PROTO((int *a, int *b)); /* ./lib/misc/myopt.c */ extern char * check_arg _PROTO((void)); extern void init_opt _PROTO((int ac, char **av)); extern char * next_arg _PROTO((void)); extern char next_opt _PROTO((void)); /* ./lib/misc/path.c */ extern char * BestDistPath _PROTO((Sector from, Sector to)); extern char * BestLandPath _PROTO((Sector from, Sector to)); extern char * BestTmpDistPath _PROTO((Sector from, Sector to)); extern char * ReversePath _PROTO((char *path)); /* ./lib/misc/product.c */ extern int GiveProdResource _PROTO((Sector sct, int i)); extern struct pchrstr * ProdChr _PROTO((char des)); extern int ProdCost _PROTO((int item)); extern void SetProdResource _PROTO((Sector sct, int i, int q)); /* ./lib/misc/realm.c */ extern bool ConvRealmToCoord _PROTO((const char *realm, int *sx, int *sy, int *ex, int *ey)); extern void FreeRealm _PROTO((Realm realm)); extern bool InRealm _PROTO((Realm realm, Sector sct)); extern Realm InitRealm _PROTO((char *realm, int flag)); extern bool NextSctInRealm _PROTO((Realm realm, Sector *ret)); /* ./lib/misc/scan.c */ extern char * DelControl _PROTO((char *s)); extern char * DelNewline _PROTO((char *s)); extern char * DelTabs _PROTO((char *s)); extern void FScanBmap _PROTO((const char *part, int flag)); extern void FScanCoastWatch _PROTO((const char *where)); extern int FScanDump _PROTO((const char *part, int flag)); extern void FScanLLookout _PROTO((const char *where)); extern void FScanLRadar _PROTO((const char *rad)); extern void FScanLookout _PROTO((const char *where)); extern void FScanMap _PROTO((const char *part, int flag)); extern void FScanNation _PROTO((void)); extern void FScanRadar _PROTO((const char *rad)); extern void FScanRelations _PROTO((int cnum)); extern void FScanReport _PROTO((const char *who)); extern void FScanSpy _PROTO((const char *where)); extern void FeedSatellite _PROTO((void)); extern bool ScanDigit _PROTO((ConstVP pptr, int *num)); extern int ScanDump _PROTO((int flag)); extern bool ScanFmt _PROTO((const char **ptr, char *word, const char *fmt)); extern void ScanLookout _PROTO((void)); extern void ScanMap _PROTO((int flag)); extern void ScanRadar _PROTO((void)); extern void ScanRelations _PROTO((void)); extern void ScanReport _PROTO((void)); extern void ScanSpy _PROTO((void)); extern bool ScanSpyLine _PROTO((char *line, char *oldline)); extern bool ScanWord _PROTO((ConstVP pptr, char *word)); extern bool ScanWordQuot _PROTO((ConstVP pptr, char *word)); extern bool SetOffset _PROTO((char *country)); extern void SkipBlank _PROTO((ConstVP pptr)); extern void SkipPtr _PROTO((ConstVP pptr, const char *toskip)); /* ./lib/misc/sector.c */ extern bool Adjacent _PROTO((Sector sct1, Sector sct2)); extern void Cede _PROTO((Sector sct)); extern void ChangeOrigin _PROTO((Sector sct)); extern void ChangeOwner _PROTO((Sector sct)); extern void Check _PROTO((void)); extern void FreeSector _PROTO((Sector sct)); extern int GetCutoff _PROTO((Sector sct, char kind)); extern char GetDelDir _PROTO((Sector sct, char kind)); extern int GetThreshold _PROTO((Sector sct, char kind)); extern char GiveDirChar _PROTO((Sector sct1, Sector sct2)); extern int GiveQuant _PROTO((Sector sct, char item)); extern void Goto _PROTO((Sector sct)); extern void GotoStr _PROTO((const char *str)); extern void InitNeighbours _PROTO((Sector sct, Neighb *neighb)); extern bool IsCoast _PROTO((Sector sct)); extern bool IsNeighbour _PROTO((Sector sct1, Sector sct2)); extern Sector ** MallocWorld _PROTO((void)); extern Sector MoveInDirection _PROTO((Sector sct, char dir, int flag)); extern void MultiChangeOwner _PROTO((void)); extern bool NearSeaOrHarbor _PROTO((Sector sct)); extern bool NextNeighbour _PROTO((Sector *sct, int known, Neighb neighb)); extern void RealmSetThreshold _PROTO((int mx, int my)); extern void RedoChangeOwner _PROTO((void)); extern void RedumpSector _PROTO((Sector sct, int flag)); extern char * SelectRealm _PROTO((const char *mes1, const char *mes2)); extern void SetCutoff _PROTO((Sector sct, char item, int value)); extern void SetDelDir _PROTO((Sector sct, char kind, char dir)); extern void SetDistPath _PROTO((Sector sct, char *path)); extern void SetQuant _PROTO((Sector sct, char item, int value)); extern void SetSectorTime _PROTO((Sector sct)); extern void SetThreshold _PROTO((Sector sct, char item, int value)); extern void SingleStart _PROTO((Sector sct)); extern void SingleStop _PROTO((Sector sct)); extern bool UpdateSectorDes _PROTO((Sector sct, char des, bool force)); extern void WipeThreshold _PROTO((void)); extern Sector World _PROTO((int x, int y, int known)); /* ./lib/misc/strings.c */ extern void AddSortStringID _PROTO((Strings strings, const char *str, int id)); extern void AddString _PROTO((Strings strings, const char *str)); extern void AddStringID _PROTO((Strings strings, const char *str, int id)); extern void AddStrings _PROTO((Strings strings, const char *str[], int n)); extern void AddStringsID _PROTO((Strings strings, ConstVP strs, int n, int i)); extern void ChangeString _PROTO((Strings strings, int id, const char *newstr)); extern void DeleteFirstString _PROTO((Strings strings)); extern void DeleteString _PROTO((Strings strings, int id)); extern void DumpStrings _PROTO((Strings strings)); extern Strings EditStrings _PROTO((int width, int height)); extern void FreeStringIndex _PROTO((Strings strings)); extern void FreeStrings _PROTO((Strings strings)); extern const char * GetFirstString _PROTO((Strings strings)); extern int GetNextSelectedId _PROTO((Strings strings)); extern const char * GetNextSelectedString _PROTO((Strings strings)); extern const char * GetNextString _PROTO((Strings strings)); extern const char * GetNextStringFlag _PROTO((Strings, bool *flag)); extern const char * GetNextStringID _PROTO((Strings strings, int *id)); extern bool GiveIdFlag _PROTO((Strings strings, int id)); extern const char * GiveIdString _PROTO((Strings strings, int id)); extern bool GiveIthFlag _PROTO((Strings strings, int i)); extern int GiveIthID _PROTO((Strings strings, int i)); extern const char * GiveIthString _PROTO((Strings strings, int i)); extern bool GiveStringFlag _PROTO((Strings strings, int id)); extern void InitStringList _PROTO((Strings strings)); extern Strings InitStrings _PROTO((void)); extern void JoinStrings _PROTO((Strings str1, Strings str2)); extern bool LoadEditStrings _PROTO((Strings strings, const char *file)); extern bool LoadStrings _PROTO((Strings strings, const char *file)); extern void MakeStringIndex _PROTO((Strings strings)); extern void MarkAllStrings _PROTO((Strings strings)); extern int MaxStringLen _PROTO((Strings strings)); extern Strings PopenStrings _PROTO((const char *command)); extern Strings ReadStrings _PROTO((FILE *fp)); extern void SetIthFlag _PROTO((Strings strings, int i, int flag)); extern void SetStringFlag _PROTO((Strings strings, int id, bool flag)); extern int StringsSize _PROTO((Strings strings)); extern Strings StripStrings _PROTO((Strings strings)); extern void TmpAddStringID _PROTO((Strings strings, const char *str, int id, bool sortit)); extern void ToggleStringFlag _PROTO((Strings strings, int id)); extern bool WriteStrings _PROTO((Strings strings, const char *file)); /* ./lib/misc/version.c */ extern void EMPNotDefined _PROTO((long option)); extern bool EMPOption _PROTO((long option)); extern void EndVersion _PROTO((void)); extern void FScanCommandlist _PROTO((void)); extern void FScanVersion _PROTO((void)); extern void KSUNotDefined _PROTO((long option)); extern bool KSUOption _PROTO((long option)); extern void RestoreVersion _PROTO((FILE *fp)); extern void SaveVersion _PROTO((FILE *fp)); extern void ShowVersion _PROTO((void)); /* ./lib/misc/where.c */ extern void TestWhere _PROTO((void)); extern Sector Where _PROTO((Sector from, Stack express)); /* ./lib/nuke/alloc.c */ extern void FreeStockPile _PROTO((Stockp stock)); extern Stockp NewStockPile _PROTO((void)); /* ./lib/nuke/build.c */ extern void BuildNuke _PROTO((int x, int y)); extern void DoBuildNuke _PROTO((int x, int y, int type)); extern void RedoBuildNuke _PROTO(()); /* ./lib/nuke/data.c */ extern void LoadNukeShow _PROTO((FILE *fp)); extern void SaveNukeShow _PROTO((FILE *fp)); /* ./lib/nuke/dump.c */ extern void AddStockToSct _PROTO((Sector sct, Stockp stock)); extern void BinDumpNukes _PROTO((File fp)); extern bool BinRestoreNukes _PROTO((File fp)); /* ./lib/nuke/scan.c */ extern void FScanNukes _PROTO((const char *fmt, int flag)); /* ./lib/nuke/scanshow.c */ extern void FScanNukeShowBuild _PROTO((void)); extern void FScanNukeShowCap _PROTO((void)); /* ./lib/nuke/show.c */ extern int SelectNuke _PROTO((int x, int y, Stockp stock)); extern int SelectNukeType _PROTO((int x, int y, int task)); /* ./lib/nuke/transport.c */ extern void TransportNuke _PROTO((int x, int y, char *what)); /* ./lib/nuke/type.c */ extern int FindNukeType _PROTO((const char *name)); /* ./lib/parse/LLgen.c */ extern void LLmessage _PROTO((int msg)); extern char * TokenName _PROTO((int value)); /* ./lib/parse/expr.c */ extern void CheckType _PROTO((int *type, int desired, int errcode, int argument)); extern void DestroyExpression _PROTO((Stack *expr)); extern Stack ParseExpression _PROTO((const char *str)); /* ./lib/parse/get_token.c */ extern Nuke FirstNuke _PROTO((Sector sct, int src_mod, Plane plane)); extern Plane FirstPlane _PROTO((Sector sct, int src_mod, Ship ship)); extern Ship FirstShip _PROTO((Sector sct, int src_mod, Plane plane)); extern void GetTokenValue _PROTO((Sector sct, int modifier, int token, Ship ship, Plane plane, Nuke nuke, struct _EvalStack *result)); extern Nuke NextNuke _PROTO((Nuke nuke, Plane plane)); extern Plane NextPlane _PROTO((Plane plane, Ship ship)); extern Ship NextShip _PROTO((Ship ship, Plane plane)); extern int SectorXCoord _PROTO((Sector sct)); extern int SectorYCoord _PROTO((Sector sct)); extern Sector WorldSector _PROTO((int x, int y)); /* ./lib/parse/lex.c */ extern void LexInitStrings _PROTO((Strings strings)); extern int NextToken _PROTO((void)); /* ./lib/parse/run_all.c */ extern double EvaluateExpression _PROTO((Sector sct, struct _Stack *expr)); extern int RunProgram _PROTO((Sector sct, Program prog, Strings outp, Strings sendstr)); /* ./lib/plane/arm.c */ extern void RedoArm _PROTO((void)); extern void Arm _PROTO((int x, int y, char *what)); /* ./lib/plane/bomb.c */ extern void BindBomb _PROTO((int x, int y, char *str)); extern void Bomb _PROTO((int x, int y)); extern void DoBomb _PROTO((int x, int y, Sector from, char *planes, char *escort, char *path, char *strat, bool confirm)); extern void RedoBomb _PROTO((void)); /* ./lib/plane/build.c */ extern void BuildPlane _PROTO((int x, int y)); extern void DoBuildPlane _PROTO((int x, int y, int planeid, int techn)); extern void RedoBuildPlane _PROTO((void)); /* ./lib/plane/drop.c */ extern void BindDropOff _PROTO((int x, int y, char *str)); extern void DoDropOff _PROTO((int x, int y, char *planes, char *escort, char *trans, char *path)); extern void DropOff _PROTO((int x, int y)); extern void RedoDropOff _PROTO((void)); /* ./lib/plane/dropmines.c */ extern void BindDropOffMines _PROTO((int x, int y, char *str)); extern void DoDropOffMines _PROTO((int x, int y, char *planes, char *escort, char *trans, char *path)); extern void DropOffMines _PROTO((int x, int y)); extern void RedoDropOffMines _PROTO((void)); /* ./lib/plane/dump.c */ extern void BinDumpPlanes _PROTO((FILE *fp)); extern bool BinRestPlanes _PROTO((FILE *fp)); extern void RestoreShowPlane _PROTO((FILE *fp)); extern void SaveShowPlane _PROTO((FILE *fp)); /* ./lib/plane/fly.c */ extern void BindFly _PROTO((int x, int y, char *str)); extern void DoFly _PROTO((int x, int y, char *planes, char *escrot, char *trans, char *path)); extern bool FeedFly _PROTO((const char *command, const char *planes, const char *escorts, const char *strat, const char *assem, const char *path, const char *trans)); extern void Fly _PROTO((int x, int y)); extern void RedoFly _PROTO((void)); /* ./lib/plane/harden.c */ extern void Harden _PROTO((const char *what)); extern void RedoHarden _PROTO((void)); /* ./lib/plane/launch.c */ extern void DoLaunch _PROTO((Plane plane)); extern void DoLaunchWing _PROTO((char *wing)); extern void LaunchMissile _PROTO((Plane missile)); extern void LaunchSatellite _PROTO((Plane plane)); extern void LaunchWing _PROTO((char *wing)); /* ./lib/plane/list.c */ extern void ListPlanes _PROTO((int x, int y)); /* ./lib/plane/mark.c */ extern bool AllMarkedPlanesHave _PROTO((int flag)); extern void ChargeMobility _PROTO((void)); extern bool ChargePetrol _PROTO((void)); extern void DeleteMarkedPlanes _PROTO((void)); extern void DropMarkedPlanes _PROTO((char item, int mult, Sector sct)); extern void FilterPlanesCantBomb _PROTO((void)); extern void FilterPlanesHaving _PROTO((int flag)); extern void FilterPlanesMob _PROTO((void)); extern void FilterPlanesNotHaving _PROTO((int flag)); extern int LoadMarked _PROTO((bool bomb_mission)); extern bool LoadMarkedPlanes _PROTO((char itemchar, int mult)); extern void MarkAs20Mob _PROTO((void)); extern void MarkPlanes _PROTO((const char *form)); extern char * MarkedPlanesId _PROTO((bool mobcost)); extern int MaxRangeMarked _PROTO((Sector sct)); extern void MoveMarkedPlanes _PROTO((Sector design, int carrier)); extern void MoveMarkedPlanesTo _PROTO((Sector sct)); extern int NrMarkedPlanes _PROTO((void)); extern int PlaneMobCost _PROTO((Plane plane)); extern void UnchargePetrol _PROTO((void)); extern void UnloadMarkedPlanes _PROTO((char itemchar, int mult)); extern void UnmarkAllPlanes _PROTO((void)); /* ./lib/plane/paradrop.c */ extern void DoParadrop _PROTO((int x, int y)); extern void Paradrop _PROTO((int x, int y, char *what)); extern void RedoParadrop _PROTO((void)); /* ./lib/plane/path.c */ extern const char * AskFlyItem _PROTO((int x, int y, int max_load, Mission mission)); extern char * AskFlyRoute _PROTO((Sector start, int max_dist, char *comm)); extern char * BestFlyPath _PROTO((int sx, int sy, int ex, int ey)); extern char * ConvEff _PROTO((char *eff)); extern Sector FollowOwnedPath _PROTO((Sector from, char *path, bool *owned)); extern Sector FollowPath _PROTO((Sector sct, char *path)); extern void ParseFlyOutput _PROTO((int carrier)); extern bool ScanReconLine _PROTO((char *line)); /* ./lib/plane/plane.c */ extern bool AddEnemyPlane _PROTO((int x, int y, int nr, int owner, char *ptr)); extern void AddPlaneToList _PROTO((Plane plane)); extern void AddPlaneToSector _PROTO((Plane plane, Sector sct)); extern void DeletePlane _PROTO((Plane plane)); extern void DeletePlaneFromSector _PROTO((Plane plane)); extern void DeletePlanes _PROTO((void)); extern int MaxPlaneLoad _PROTO((Plane plane)); extern void MovePlaneTo _PROTO((Plane plane, Sector sct)); extern Plane NrToPlane _PROTO((int nr)); extern void PageShowPlaneCBs _PROTO((void)); extern const char * PlaneCapNames _PROTO((long flags)); extern bool PlaneHas _PROTO((Plane plane, long flags)); extern const char * PlaneName _PROTO((Plane plane)); extern Sector PlaneSector _PROTO((Plane plane)); extern bool PortablePlane _PROTO((Plane plane)); /* ./lib/plane/recon.c */ extern void BindRecon _PROTO((int x, int y)); extern void DoRecon _PROTO((int x, int y)); extern void Recon _PROTO((int x, int y, char *what)); /* ./lib/plane/scan.c */ extern void DumpPlanes _PROTO((const char *form, int flag)); extern void DumpSctPlanes _PROTO((Sector sct, int flag)); extern int FScanPlanes _PROTO((const char *list, int flag)); extern void FScanShowPlaneBuild _PROTO((void)); extern void FScanShowPlaneCap _PROTO((void)); extern void FScanShowPlaneStat _PROTO((void)); extern int FindPlaneTypeByName _PROTO((const char *name, bool must_exist)); extern int ScanPlanes _PROTO((int flag)); /* ./lib/plane/scrap.c */ extern void RedoScrapPlane _PROTO((void)); extern void ScrapPlane _PROTO((const char *what)); /* ./lib/plane/select.c */ extern char * SelectPlanes _PROTO((int x, int y, Sector sct, Mission mission, const char *quest)); /* ./lib/plane/set.c */ extern bool SetPlane _PROTO((Plane plane, int *soldat)); extern void SetWing _PROTO((char wing)); /* ./lib/plane/transport.c */ extern void DoTransport _PROTO((int x, int y)); extern void Transport _PROTO((int x, int y, char *what)); /* ./lib/plane/wing.c */ extern char FirstFreeWing _PROTO((void)); extern char FirstWingInSct _PROTO((Sector sct)); extern char GiveEscortWing _PROTO((void)); extern char GiveNextWingInSct _PROTO((Sector sct, char wing)); extern char NextWingInSct _PROTO((Sector sct, char wing)); extern void ShowFreeWings _PROTO((void)); extern bool WingColocated _PROTO((char wing)); extern bool WingEmpty _PROTO((char wing)); extern char * WingId _PROTO((void)); extern void WingJoin _PROTO((char from, char to)); extern Sector WingSector _PROTO((char wing)); /* ./lib/plane/wingadd.c */ extern void WingAdd _PROTO((int x, int y)); /* ./lib/plane/mission.c */ extern void FScanPlaneMission _PROTO((const char *list, int flag)); extern void PMission _PROTO((Plane plane)); extern void ScanPlaneMission _PROTO((int flag)); /* ./lib/ship/assault.c */ extern void Assault _PROTO((int x, int y)); extern void BindAssault _PROTO((int x, int y, char *str)); extern void DoAssault _PROTO((int x, int y, Ship ship, int amils)); extern void RedoAssault _PROTO((void)); /* ./lib/ship/board.c */ extern void BindBoard _PROTO((int x, int y, char *str)); extern void Board _PROTO((int x, int y)); extern void DoBoard _PROTO((int x, int y, Ship fromship)); extern void RedoBoard _PROTO((void)); /* ./lib/ship/build.c */ extern void BuildShip _PROTO((int x, int y)); extern void DoBuildShip _PROTO((int x, int y, int shipid, int techn)); extern void RedoBuildShip _PROTO((void)); /* ./lib/ship/fleet.c */ extern char FirstFleetInSct _PROTO((Sector sct)); extern char FirstFreeFleet _PROTO((void)); extern long FleetAbils _PROTO((char fleet)); extern bool FleetColocated _PROTO((char fleet)); extern bool FleetEmpty _PROTO((char fleet)); extern char * FleetId _PROTO((void)); extern int FleetMinMob _PROTO((char fleet)); extern Sector FleetSector _PROTO((char fleet)); extern char GiveNextFleetInSct _PROTO((Sector sct, char fleet)); extern void MoveFleet _PROTO((char fleet, Sector sct)); extern long ShipNrAbils _PROTO((int shipnr)); extern void ShowFreeFleets _PROTO((void)); /* ./lib/ship/list.c */ extern void ListShips _PROTO((int x, int y, int enemy)); /* ./lib/ship/mark.c */ extern int BestMarkedRadar _PROTO((void)); extern void CheckShips _PROTO((const char *what)); extern bool CrewOnMarkedShips _PROTO((Ship *ship)); extern void DeleteMarkedEnemyShips _PROTO((void)); extern void FScanResoMarked _PROTO((Sector sct)); extern int FirstMarkedShipnr _PROTO((void)); extern bool LandLockedMarked _PROTO((Ship *ship)); extern void MarkShips _PROTO((const char *form)); extern bool MarkedColocated _PROTO((void)); extern int MaxRadarMarked _PROTO((int *shnr)); extern int MaxSonarMarked _PROTO((int *shnr)); extern int MinMobMarkedShips _PROTO((Ship *ship)); extern void MoveMarkedTo _PROTO((Sector sct)); extern Sector SctMarkedShips _PROTO((void)); extern void UnmarkAllShips _PROTO((void)); /* ./lib/ship/mine.c */ extern void BindMine _PROTO((int x, int y, char *str)); extern void DoMine _PROTO((const char *what, int quant)); extern void Mine _PROTO((const char *what)); extern void RedoMine _PROTO((void)); /* ./lib/ship/navigate.c */ extern void BindNavigate _PROTO((int x, int y, char *str)); extern void DoNavigate _PROTO((int x, int y, int how)); extern void Navig _PROTO((int x, int y)); extern void Navigate _PROTO((char *nav_what)); extern void RedoNavigate _PROTO((void)); /* ./lib/ship/path.c */ extern void AddToSList _PROTO((SList *list, Sector sct, SList from, bool forw)); extern char * BestSeaPath _PROTO((Sector from, Sector to)); extern SList FirstNotMarked _PROTO((SList list)); extern void FreeSList _PROTO((SList *list)); extern char * GivePath _PROTO((SList list, Sector sct)); extern bool InSList _PROTO((SList list, Sector sct)); extern bool NavigOK _PROTO((Sector sct)); /* ./lib/ship/scrap.c */ extern void RedoScrap _PROTO((void)); extern void ScrapShip _PROTO((const char *what)); /* ./lib/ship/select.c */ extern char * SelectShips _PROTO((int x, int y, ShTask shtask, const char *quest)); /* ./lib/ship/set.c */ extern void SetShip _PROTO((Ship ship)); /* ./lib/ship/ship.c */ extern bool AddEnemyShip _PROTO((int x, int y, int nr, int owner, char *ptr)); extern void AddShipToList _PROTO((Ship ship)); extern void AddShipToSector _PROTO((Ship ship, Sector sct)); extern int AskCarrier _PROTO((int x, int y, Sector sct, bool heli)); extern Ship AskShip _PROTO((int x, int y, const char *quest, bool allow_others)); extern void DeleteEnemyShips _PROTO((void)); extern void DeleteShip _PROTO((Ship ship)); extern void DeleteShipFromSector _PROTO((Ship ship)); extern void DoLookout _PROTO((Sector sct, int nr, bool in_nav, int print, bool force)); extern int FindShipTypeByName _PROTO((const char *name, bool must_exist)); extern void FleetAdd _PROTO((int x, int y)); extern int GiveShipQuant _PROTO((Ship ship, char item)); extern const char * GiveShipQuantStr _PROTO((Ship ship, char id)); extern bool KnowsResoShip _PROTO((Ship ship)); extern int MaxShipCargo _PROTO((Ship ship, char itemch)); extern void MoveShip _PROTO((Ship ship, Sector to)); extern Ship NrToShip _PROTO((int nr)); extern void PageShowShipCBs _PROTO((void)); extern bool SectorHasOwnedShips _PROTO((Sector sct, int n)); extern void SetSectorShipsNr _PROTO((Sector sct)); extern void SetShipQuant _PROTO((Ship ship, char item, int value)); extern void SetShipValues _PROTO((Ship ship, char *ship_name)); extern bool ShipAtSect _PROTO((Sector sct, char let)); extern bool ShipAtWith _PROTO((Sector sct, long flag)); extern const char * ShipCapNames _PROTO((long flags)); extern const char * ShipCargoNames _PROTO((int cargo[])); extern char ShipCharInSector _PROTO((Sector sct)); extern double ShipFireRange _PROTO((Ship ship)); extern bool ShipHas _PROTO((Ship ship, long flags)); extern bool ShipHasRadar _PROTO((Ship ship)); extern bool ShipHasSonar _PROTO((Ship ship)); extern int ShipMaxGuns _PROTO((Ship ship)); extern const char * ShipName _PROTO((Ship ship)); extern bool ShipOnList _PROTO((Ship ship)); extern Sector ShipSector _PROTO((Ship ship)); extern void ShowShipCBStrings _PROTO((Strings strings)); /* ./lib/ship/shipscan.c */ extern void CheckMarkedShips _PROTO((void)); extern void DumpRealmShips _PROTO((const char *realm, int flag)); extern void DumpSctShips _PROTO((Sector sct, int flag)); extern int DumpShips _PROTO((const char *list, int flag)); extern void FScanCargo _PROTO((const char*list, int flag)); extern void FScanReso _PROTO((void)); extern int FScanShips _PROTO((const char *list, int flag)); extern void FScanShowShipBuild _PROTO((void)); extern void FScanShowShipCap _PROTO((void)); extern void FScanShowShipStats _PROTO((void)); extern void FeedRadarShips _PROTO((void)); extern void MarkAllShips _PROTO((void)); extern void MarkShip _PROTO((Ship ship)); extern void MarkShipsInSct _PROTO((Sector sct)); extern void RedumpFleet _PROTO((char fleet, int flag)); extern void RedumpShip _PROTO((Ship ship, int flag)); extern void RestoreShowShip _PROTO((FILE *fp)); extern void SaveShowShip _PROTO((FILE *fp)); extern void ScanCargo _PROTO((int flag)); extern int ScanShips _PROTO((int flag)); extern void SearchMarkedShips _PROTO((int flag)); /* ./lib/ship/tend.c */ extern void BindTend _PROTO((int x, int y, char *args)); extern void DoTend _PROTO((int x, int y, Ship ship, int item, int amount)); extern void RedoTend _PROTO((void)); extern void Tend _PROTO((int x, int y, Ship ship)); /* ./lib/ship/upgrade.c */ extern void RedoUpgrade _PROTO((void)); extern void UpgradeShip _PROTO((const char *what)); /* ./lib/ship/scuttle.c */ extern void RedoScuttle _PROTO((void)); extern void ScuttleShip _PROTO((const char *what)); /* ./lib/ship/mission.c */ extern void ChangeFleetMission _PROTO((char fleet)); extern void SMission _PROTO((Ship ship)); extern const char *FleetHasMission _PROTO((char fleet)); extern void FScanShipMission _PROTO((const char *list, int flag)); extern void ScanShipMission _PROTO((int flag)); /* ./lib/ship/order.c */ extern void ChangeCargo _PROTO((Ship ship)); extern void ChangeFleetOrder _PROTO((char fleet)); extern void ChangeOrder _PROTO((Ship ship)); extern Sector ChooseSeaDest _PROTO((Sector sct, char **path)); extern const char *FleetHasOrders _PROTO((char fleet)); extern void FScanShipOrders _PROTO((const char *list, int flag)); extern void FScanShipQOrders _PROTO((const char *list, int flag)); extern const char *ShipHasCargo _PROTO((Ship ship)); extern const char *ShipHasOrders _PROTO((Ship ship)); extern void ScanShipOrders _PROTO((int flag)); extern void ScanShipQOrders _PROTO((int flag)); /* ./lib/ship/retreat.c */ extern void ChangeFleetRetreat _PROTO((char fleet)); extern const char *FleetHasRetreat _PROTO((char fleet)); extern void FScanShipRetreat _PROTO((const char *list, int flag)); extern const char *RtrtList _PROTO((uchar cond)); extern void ScanShipRetreat _PROTO((int flag)); extern void SRetreat _PROTO((Ship ship)); /* ./lib/ship/selectone.c */ extern Ship SelectOneShip _PROTO((int x, int y, ShTask shtask, const char *quest)); /* ./lib/update/census.c */ extern void CensusPlanProduce _PROTO((WinInfo win, int y, char des, int civeff, int civwork, Sector sct)); extern void CensusProduce _PROTO((Sector sct, int line)); /* ./lib/update/deliver.c */ extern void UpdDeliver _PROTO((Sector from, int item, Strings strings)); /* ./lib/update/distribute.c */ extern void UpdDistribute _PROTO((Sector from, Strings strings, int what)); /* ./lib/update/human.c */ extern int CalcMaxPop _PROTO((void)); extern int FeedLandPeople _PROTO((Land land, int etus, bool upd)); extern int FeedSctPeople _PROTO((Sector sct, int etus, bool upd)); extern int FeedShipPeople _PROTO((Ship ship, int etus, bool upd)); extern int GrowPeople _PROTO((Sector sct, int etus, bool upd, Strings strings)); extern int chance _PROTO((double d)); extern int roundavg _PROTO((double val)); /* ./lib/update/main.c */ extern void SimulateUpdate _PROTO((char *realm)); /* ./lib/update/mobility.c */ extern void UpdMobLand _PROTO((char *realm, int etus)); extern void UpdMobPlane _PROTO((char *realm, int etus)); extern void UpdMobSect _PROTO((char *realm, int etus)); extern void UpdMobShip _PROTO((char *realm, int etus)); /* ./lib/update/plane.c */ extern int UpdProdPlane _PROTO((char *realm, int etus, Strings strings)); /* ./lib/update/populace.c */ extern double PopulaceSct _PROTO((Sector sct)); extern double PopulaceSct2 _PROTO((Sector sct, int etus, int *line)); extern void Starvation _PROTO((Sector sct)); /* ./lib/update/produce.c */ extern int UpdProduce _PROTO((Sector sct, int work, Strings strings)); extern int materials_charge _PROTO((struct pchrstr *prod, Sector sct, int count)); extern int materials_cost _PROTO((struct pchrstr *prod, Sector sct, int *costp)); /* ./lib/update/sect.c */ extern int BuildEff _PROTO((Sector sct, int work)); extern int GrowFood _PROTO((Sector sct, int work, int etus)); extern int UpdEnlist _PROTO((Sector sct, int etus, bool upd)); extern void UpdProdSect _PROTO((char *realm, int etus, Strings strings)); /* ./lib/update/ship.c */ extern void UpdProdShip _PROTO((char *realm, int etus, Strings strings)); extern bool UpdShipRepair _PROTO((Ship ship, int etus)); /* ./lib/util/f_cargo.c */ extern int EditCargo _PROTO((WinInfo win, Ferry ferry, bool init)); extern void RunCargoFerry _PROTO((Ferry ferry)); /* ./lib/util/f_goto.c */ extern int EditGoto _PROTO((WinInfo win, Ferry ferry, bool init)); extern void RunGotoFerry _PROTO((Ferry ferry)); /* ./lib/util/ferry.c */ extern void ChangeFerry _PROTO((char fleet, Ship ship)); extern char * CheckFlSh _PROTO((Ferry ferry)); extern char * CheckSector _PROTO((int x, int y, int task)); extern void DeleteFerry _PROTO((int id)); extern void DoFerry _PROTO((int id)); extern void DoFerryUtil _PROTO((char *args)); extern bool FerButPressed _PROTO((int x, int sx, int len)); extern void FerButton _PROTO((WinInfo win, int x, int y, char *str)); extern int FerryMinMob _PROTO((Ferry ferry)); extern char * FerryPos _PROTO((Ferry ferry)); extern Sector FerrySector _PROTO((Ferry ferry)); extern void FerryStat _PROTO((int x, int y, bool towm)); extern void FerryUtil _PROTO((int x, int y)); extern void GotoFerry _PROTO((void)); extern char * HasFerry _PROTO((char fleet, Ship ship)); extern void ListComplFerries _PROTO((void)); extern void ListSectorFerries _PROTO((void)); extern bool NavigPath _PROTO((char fleet, int shipnr, int *x, int *y, Sector to)); extern int NrShipsInFerry _PROTO((Ferry ferry)); extern void ReadFerries _PROTO((FILE *fp)); extern void SaveFerries _PROTO((FILE *fp)); extern bool SelSector _PROTO((WinInfo win, int line, char *str, bool def, int *x, int *y)); extern bool SelectFlSh _PROTO((WinInfo win, int y, Ferry ferry)); extern void SetXAtButton _PROTO((int *x, char ch)); /* ./lib/util/mail.c */ extern void AddMail _PROTO((Strings strings, const char *header)); extern void Announce _PROTO((int x, int y)); extern void AppendSignature _PROTO((Strings strings)); extern void BindReRead _PROTO((int x, int y, char *str)); extern void BindRead _PROTO((int x, int y, char *str)); extern void BindSend _PROTO((int x, int y, char *str)); extern void Commun _PROTO((int x, int y)); extern bool FScanReadTels _PROTO((void)); extern bool FScanReadWirs _PROTO((void)); extern void InfoMailMenu _PROTO((int x, int y, int i)); extern char *LastProduction _PROTO((void)); extern void MailMenu _PROTO((int x, int y)); extern void News _PROTO((int x, int y)); extern int ParseReadArg _PROTO((char *str)); extern void RestoreMail _PROTO((FILE *fp)); extern void SaveMail _PROTO((FILE *fp)); extern bool SendTelegram _PROTO((int x, int y, char *country)); extern void ShowHeadLines _PROTO((int x, int y)); extern void ShowMail _PROTO((int x, int y, int types)); /* ./lib/util/natinfo.c */ extern void UtilNatInfo _PROTO((int x, int y)); /* ./lib/util/plan.c */ extern void CensusLayPlan _PROTO((void)); extern Strings DoRunPlan _PROTO((Sector sct)); extern bool HasPlan _PROTO((Sector sct)); extern void InitPlanOptions _PROTO((void)); extern bool IsActive _PROTO((Sector sct)); extern void LoadPlanInfo _PROTO((Sector sct, FILE *fp)); extern void LoadPlanOptions _PROTO((FILE *fp)); extern PlanEntry NewPlanEntry _PROTO((int x, int y, char des)); extern void PlanCensus _PROTO((Sector sct)); extern void PlanCensusButton _PROTO((int x, int y)); extern char PlanDesign _PROTO((PlanEntry plan)); extern void PlanUtil _PROTO((int wx, int wy)); extern void RunPlan _PROTO((void)); extern void RunPlanRec _PROTO((Sector sct, DSList from, DSList to, int *civ_from, int *civ_to, Strings strings)); extern void SavePlanInfo _PROTO((Sector sct, FILE *fp)); extern void SavePlanOptions _PROTO((FILE *fp)); extern void UtilPlan _PROTO((char *arg)); /* ./lib/util/power.c */ extern void DisplayPower _PROTO((void)); extern void FreePowerList _PROTO((void)); extern void PrintPowerEntry _PROTO((WinInfo win, int natid, int start_y)); extern void ScanNewPower _PROTO((void)); extern void ScanPower _PROTO((void)); /* ./lib/util/production.c */ extern void DumpPlague _PROTO((void)); extern void DumpHappines _PROTO((void)); extern int HappinesState _PROTO((Sector sct)); extern bool IsBadDistr _PROTO((Sector sct)); extern bool IsHappy _PROTO((Sector sct)); extern bool IsPlague _PROTO((Sector sct)); extern int PlagueStage _PROTO((Sector sct)); extern void ReadProduction _PROTO((const char *file)); extern void UpdateProduction _PROTO((char *string)); extern char * alloc_production _PROTO((void)); /* ./lib/util/prog.c */ extern bool FileExists _PROTO((const char *file)); extern int ProgChoice _PROTO((int x, int y)); extern const char * ProgFile _PROTO((const char *file)); extern Program SelectProgram _PROTO((int x, int y)); extern char * SelectProgramFromDir _PROTO((int x, int y)); extern void UtilRunProg _PROTO((char *arg)); /* ./lib/util/relat.c */ extern void FreeRelInfo _PROTO((RelInfo rel)); extern void PrintRelations _PROTO((Strings strings, RelInfo rel)); extern int RelLines _PROTO((RelInfo rel)); extern RelInfo ScanRelationsAs _PROTO((int country)); /* ./lib/util/report.c */ extern void FreeReportInfo _PROTO((RepInfo info)); extern void PrintRepInfo _PROTO((Strings strings, RepInfo info)); extern RepInfo ScanReportAs _PROTO((int country)); /* ./lib/util/strstr.c */ extern char * StrStr _PROTO((char *string, const char *sub)); /* ./lib/util/ve.c */ extern void VeUtil _PROTO((char *args)); #ifdef TERMC_VERSION /* ./termc/bind.c */ extern char * AddBindingKey _PROTO((char *key, char *bind)); extern void BindKeys _PROTO((int x, int y)); extern void GlobalKey _PROTO((char ch)); /* ./termc/dummy.c */ extern void ReverseCursor _PROTO((void)); extern void SetDefaultCursor _PROTO((WinInfo win, int curs)); /* ./termc/event.c */ extern int CharToButton _PROTO(()); extern WinInfo EventWindow _PROTO(()); extern void MainLoop _PROTO(()); extern void NextEvent _PROTO(()); extern bool SelButtonAtWin _PROTO(()); extern void SelectButtonChar _PROTO(()); extern bool SelectSctCrd _PROTO(()); extern Sector SelectSector _PROTO(()); extern bool StandardChar _PROTO(()); extern bool StandardEvent _PROTO(()); extern void WaitButtonPress _PROTO(()); /* ./termc/misc.c */ extern void BusyCursor _PROTO(()); extern void DrawArrow _PROTO(()); extern void DrawHorizontal _PROTO(()); extern char * GetString _PROTO(()); extern void ResetCursor _PROTO(()); /* ./termc/pager.c */ extern void AddPagerFunc _PROTO(()); extern void AddPagerToWMList _PROTO(()); extern void ChangePagerString _PROTO(()); extern void DumpPager _PROTO(()); extern void DumpPagerScreen _PROTO(()); extern bool EditPager _PROTO(()); extern void FpDumpPager _PROTO(()); extern void FreePager _PROTO(()); extern Pager InitPager _PROTO(()); extern char * InputPagerLine _PROTO(()); extern void MapPager _PROTO(()); extern void MapPagerFromBot _PROTO(()); extern void MapPagerFromTop _PROTO(()); extern int PagerMenu _PROTO(()); extern int PagerMenuFunc _PROTO(()); extern char * PagerMulti _PROTO(()); extern Strings PagerStrings _PROTO(()); extern void RemapPager _PROTO(()); extern void SetEditPager _PROTO(()); extern void SetInfoOnPager _PROTO(()); extern void SetPagerButtonIDs _PROTO(()); extern void SetPagerButtons _PROTO(()); extern void SetPagerSelect _PROTO(()); extern int ShowPager _PROTO(()); extern void ShowPagerLine _PROTO(()); extern void ShowStringsInPager _PROTO(()); /* ./termc/realm.c */ extern char * MySelRealm _PROTO(()); /* ./termc/tinit.c */ extern void InitTermcap _PROTO(()); extern int put _PROTO(()); /* ./termc/window.c */ extern char ** AllocScreen _PROTO(()); extern bool AtBottum _PROTO(()); extern void Bell _PROTO(()); extern void ClearLine _PROTO(()); extern void ClearWindow _PROTO(()); extern void CursorUp _PROTO(()); extern void DestroyWindow _PROTO(()); extern void DrawScrollBar _PROTO(()); extern void DumpLine _PROTO(()); extern void DumpWindow _PROTO(()); extern WinInfo FindWindow _PROTO(()); extern void FlashWindow _PROTO(()); extern void FlushWindow _PROTO(()); extern void HideCursor _PROTO(()); extern void InitTermc _PROTO(()); extern void LowerAll _PROTO(()); extern void LowerEmpWin _PROTO(()); extern void LowerWindow _PROTO(()); extern WinInfo OpenRelToRoot _PROTO(()); extern WinInfo OpenWindow _PROTO(()); extern void Pause _PROTO(()); extern void Print _PROTO(()); extern void PrintB _PROTO(()); extern void PrintMarked _PROTO(()); extern void PrintMarkedB _PROTO(()); extern void PrintMarkedN _PROTO(()); extern void PrintN _PROTO(()); extern void QuitTermc _PROTO(()); extern void RaiseAll _PROTO(()); extern void RaiseEmpWin _PROTO(()); extern void RaiseWindow _PROTO(()); extern void Redraw _PROTO(()); extern void Refresh _PROTO(()); extern void RefreshWindow _PROTO(()); extern void RefreshWindowPart _PROTO(()); extern void Scroll _PROTO(()); extern void ScrollDown _PROTO(()); extern void ScrollUp _PROTO(()); extern void SetMode _PROTO(()); extern void SetToBot _PROTO(()); extern void SetToTop _PROTO(()); extern void ShowCursor _PROTO(()); extern void SiPut _PROTO(()); extern void WdPut _PROTO(()); #endif #ifdef X_VERSION /* ./x/pager.c */ extern void AddPagerFunc _PROTO((Pager pager, const char *name, int id)); extern void AddPagerToWMList _PROTO((Pager pager)); extern void ChangePagerString _PROTO((Pager pager, int id, char *newstr)); extern bool EditPager _PROTO((Pager pager)); extern void FreePager _PROTO((Pager pager)); extern Pager InitPager _PROTO((Strings strings, const char *header)); extern void InitWMPager _PROTO((Strings string, const char *name)); extern char * InputPager _PROTO((Pager pager, int y, int xs, int xe, const char *form)); extern char * InputPagerLine _PROTO((Pager pager, int y)); extern void LoadPagerText _PROTO((Pager pager)); extern void MapPager _PROTO((Pager pager, WinInfo win, int x, int y, bool fromtop, bool towm)); extern void MapPagerFromBot _PROTO((Pager pager, WinInfo win, int x, int y)); extern void MapPagerFromTop _PROTO((Pager pager, WinInfo win, int x, int y)); extern bool PagerEvent _PROTO((XEvent *pevent)); extern int PagerMenu _PROTO((Pager pager)); extern int PagerMenuFunc _PROTO((Pager pager, int *ret, int *pcols)); extern char * PagerMulti _PROTO((Pager pager, int *pfunc)); extern void RemapPager _PROTO((Pager pager)); extern void RemapPagerToWM _PROTO((Pager pager)); extern void SetEditPager _PROTO((Pager pager)); extern void SetInfoOnPager _PROTO((Pager pager, InfoProc proc)); extern void SetPagerButtonIDs _PROTO((Pager pager, int left, int middle, int right)); extern void SetPagerButtons _PROTO((Pager pager, const char *left, const char *middle, const char *right)); extern void SetPagerSelect _PROTO((Pager pager)); extern int ShowPager _PROTO((Pager pager)); extern void ShowPagerLine _PROTO((Pager pager, int y)); extern Strings StringsFromPager _PROTO((Pager pager)); /* ./x/realm.c */ extern char * MySelRealm _PROTO((void)); extern void ShowBox _PROTO((int sx, int sy, int ex, int ey)); /* ./x/xbind.c */ extern char * AddBindingKey _PROTO((char *key, char *bind)); extern void BindKeys _PROTO((int x, int y)); extern void GlobalKey _PROTO((XEvent *pevent)); /* ./x/xevents.c */ extern void CheckRefreshEvents _PROTO((void)); extern void HandelWaitingEvents _PROTO((void)); extern void MainLoop _PROTO((void)); extern bool StandardEvent _PROTO((XEvent *pevent)); /* ./x/xicons.c */ extern void InitIcons _PROTO((void)); extern void ReverseCursor _PROTO((int type, bool rev)); extern void SetDefaultCursor _PROTO((WinInfo win, int type)); extern void SetScrollbarCursor _PROTO((Drawable win)); /* ./x/xinit.c */ extern int CharToPixelX _PROTO((int x)); extern int CharToPixelY _PROTO((int y)); extern int CharToPixelYB _PROTO((int y)); extern void InitX _PROTO((const char *font, const char *bfont)); extern int OurErrorHandler _PROTO((Display *disp, XErrorEvent *event)); extern int OurFatalErrorHandler _PROTO((Display *display)); extern int PixelToCharX _PROTO((int x)); extern int PixelToCharY _PROTO((int y)); extern int PixelToCharYB _PROTO((int y)); extern void QuitX _PROTO((void)); extern void Refresh _PROTO((void)); extern void WaitRefresh _PROTO((bool discard)); /* ./x/xmisc.c */ extern void Pause _PROTO((void)); extern bool SelButtonAtWin _PROTO((WinInfo win, int *x, int *y, int *button)); extern bool SelectSctCrd _PROTO((int *x, int *y, int *button)); extern Sector SelectSector _PROTO((int *button)); extern bool SetInterrupt _PROTO((XEvent *pevent)); extern void WaitButtonPress _PROTO((int *button)); /* ./x/xwindow.c */ extern void Bell _PROTO((void)); extern void BusyCursor _PROTO((void)); extern void ChangeWindowBase _PROTO((WinInfo win, int base)); extern void ClearLine _PROTO((WinInfo win, int y)); extern void ClearWindow _PROTO((WinInfo win)); extern void DestroyWindow _PROTO((WinInfo win)); extern void DrawArrow _PROTO((WinInfo win, int x, int y, char dir)); extern void DrawHorizontal _PROTO((WinInfo win, int pos)); extern void DrawRect _PROTO((WinInfo win, int x, int y, int width, int height)); extern WinInfo EventWindow _PROTO((XEvent *event)); extern void FlashWindow _PROTO((WinInfo win)); extern void FlushWindow _PROTO((WinInfo win)); extern int GetPixmapPosX _PROTO((WinInfo win, int x)); extern int GetPixmapPosY _PROTO((WinInfo win, int y)); extern char * GetString _PROTO((WinInfo win, int x, int y, int maxlen, const char *form)); extern void InitXIcon _PROTO((WinInfo win)); extern void Line _PROTO((WinInfo win, int sx, int sy, int ex, int ey)); extern void LowerAll _PROTO((void)); extern void LowerWindow _PROTO((WinInfo win)); extern void MapWindow _PROTO((WinInfo win)); extern WinInfo OpenBaseWindow _PROTO((int x, int y, int width, int height)); extern WinInfo OpenEmpireWindow _PROTO((WinInfo win, int inc_y, int inc_width, int inc_height, int savelines, int *widthp, int *heightp)); extern WinInfo OpenRelToRoot _PROTO((WinInfo from, int x, int y, int width, int height, int base, int savelines)); extern WinInfo OpenWinForWM _PROTO((const char *name, int x, int y, int width, int height, int base, int savelines)); extern WinInfo OpenWindow _PROTO((WinInfo win, int x, int y, int width, int height, int base, int box, int savelines)); extern void Print _PROTO((WinInfo win, int x, int y, const char *text, int mode)); extern void PrintAtPixmapB _PROTO((WinInfo win, int x, int y, const char *text)); extern void PrintAtPixmapN _PROTO((WinInfo win, int x, int y, const char *text)); extern void PrintB _PROTO((WinInfo win, int x, int y, const char *text)); extern void PrintMarked _PROTO((WinInfo win, int x, int y, const char *text, int mode)); extern void PrintMarkedAtPixmap _PROTO((WinInfo win, int x, int y, const char *text, int mode)); extern void PrintN _PROTO((WinInfo win, int x, int y, const char *text)); extern void PrintPixmap _PROTO((WinInfo win, int x, int y, Pixmap pixmap)); extern void PrintR _PROTO((WinInfo win, int x, int y, const char *text)); extern void RaiseAll _PROTO((void)); extern void RaiseWindow _PROTO((WinInfo win)); extern void RefreshEvent _PROTO((XEvent *event)); extern void ResetCursor _PROTO((void)); extern void ReverseWindow _PROTO((WinInfo win)); extern void Scroll _PROTO((WinInfo win, int lines)); extern bool ScrollEvent _PROTO((XEvent *pevent)); extern void ScrollHorz _PROTO((WinInfo win, int cols)); extern void SelectEvents _PROTO((WinInfo win, unsigned long events)); extern void SetCursor _PROTO((WinInfo win, Cursor cursor)); extern void SetScrollRegion _PROTO((WinInfo win, int sx, int sy, int ex, int ey)); extern void SetToBot _PROTO((WinInfo win)); extern void SetToTop _PROTO((WinInfo win)); extern void UnmapWindow _PROTO((WinInfo win)); extern void WarpPointer _PROTO((WinInfo win, int x, int y)); extern bool WinHasScrollBar _PROTO((WinInfo win)); extern int WinHeight _PROTO((WinInfo win)); extern int WinWidth _PROTO((WinInfo win)); extern void XorBox _PROTO((WinInfo win, int psx, int psy, int pex, int pey)); extern void XorLine _PROTO((WinInfo win, int psx, int psy, int pex, int pey)); #endif xemp5.1-beta/include/xrc.h100444 12266 2116 2440 6032444712 14023 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/include/RCS/xrc.h,v 5.2 1995/09/28 07:05:17 jpo Exp $ $Date: 1995/09/28 07:05:17 $ $Author: jpo $ $Id: xrc.h,v 5.2 1995/09/28 07:05:17 jpo Exp $ $Locker: $ $Log: xrc.h,v $ Revision 5.2 1995/09/28 07:05:17 jpo sync Revision 5.1 1993/03/14 16:40:03 etienne * Revision 5.0 93/02/06 09:25:20 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:17:12 greyhelm * Added RCS headers - Karl Hagen * */ typedef struct s_xrc XRC; #define DO_NO 0 #define DO_YES 1 #define DO_CONFIRM 2 struct s_xrc { char * progdir; int keep_send; int keep_announce; int delete_mail; bool rescan_show; bool rescan_land_radar; bool rescan_ship_radar; bool rescan_sonar; bool rescan_coastwatch; bool rescan_lookout; bool rescan_satellite; bool dist_planes; bool space_is_next; char * country; char * player; int timeout; bool silent_timeout; int startup_x, startup_y; int buffering; char * normal_font; char * bold_font; char * map_win_size; char * emp_win_size; char * worldsize; char * port; char * host; char * savelines; char * signature; char * savedir; char * savefile; char * capab; bool compress; }; extern XRC xrc; xemp5.1-beta/include/regex.h100444 12266 2116 4047 6037141310 14337 0ustar jponexor/* * This file based on Henry Spencers regex posix library. * some changes have been made to prevent clashes with real * posix implementations and some extensions added. */ #ifndef _REGEX_H_ #define _REGEX_H_ /* never again */ #include "prototype.h" #include "type.h" /* ========= begin header generated by ./mkh ========= */ #ifdef __cplusplus extern "C" { #endif /* === regex2.h === */ typedef off_t regoff_t; typedef struct { int re_magic; size_t re_nsub; /* number of parenthesized subexpressions */ const char *re_endp; /* end pointer for REG_PEND */ struct re_guts *re_g; /* none of your business :-) */ } regex_t; typedef struct { regoff_t rm_so; /* start of match */ regoff_t rm_eo; /* end of match */ } regmatch_t; /* === regcomp.c === */ extern int regcomp _PROTO((regex_t *, const char *, int)); #define REG_BASIC 0000 #define REG_EXTENDED 0001 #define REG_ICASE 0002 #define REG_NOSUB 0004 #define REG_NEWLINE 0010 #define REG_NOSPEC 0020 #define REG_PEND 0040 #define REG_DUMP 0200 /* === regerror.c === */ #define REG_NOMATCH 1 #define REG_BADPAT 2 #define REG_ECOLLATE 3 #define REG_ECTYPE 4 #define REG_EESCAPE 5 #define REG_ESUBREG 6 #define REG_EBRACK 7 #define REG_EPAREN 8 #define REG_EBRACE 9 #define REG_BADBR 10 #define REG_ERANGE 11 #define REG_ESPACE 12 #define REG_BADRPT 13 #define REG_EMPTY 14 #define REG_ASSERT 15 #define REG_INVARG 16 #define REG_ATOI 255 /* convert name to number (!) */ #define REG_ITOA 0400 /* convert number to name (!) */ extern size_t regerror _PROTO((int, const regex_t *, char *, size_t)); /* === regexec.c === */ extern int regexec _PROTO((const regex_t *, const char *, size_t, regmatch_t [], int)); #define REG_NOTBOL 00001 #define REG_NOTEOL 00002 #define REG_STARTEND 00004 #define REG_TRACE 00400 /* tracing of execution */ #define REG_LARGE 01000 /* force large representation */ #define REG_BACKR 02000 /* force use of backref code */ /* === regfree.c === */ extern void regfree _PROTO((regex_t *)); #ifdef __cplusplus } #endif /* ========= end header generated by ./mkh ========= */ #endif xemp5.1-beta/lib/ 40755 12266 2116 0 6043206315 12103 5ustar jponexorxemp5.1-beta/lib/GNUmakefile100644 12266 2116 1661 6034226256 14264 0ustar jponexor# These variables are configurable. #---------------------------------------# DIRS := census clients commands data deity land misc nuke parse plane \ regex ship update util #---------------------------------------# .PHONY: all depend clean dependall cleanall include ../make/UtilMakefile # Productions: # all: Make everything # depend: Modify the makefiles to reflect the local setup. # dependall: Make depend in all the directories. # cleanall: Make clean in all the directories. # archall: (If the ARCH env var is set). mkdir $ARCH in all subdirs. all: dirs dependall: $(MAKE) COMMAND=depend recursive cleanall: $(MAKE) COMMAND=clean recursive checkinall: $(MAKE) COMMAND=checkin recursive editinall: $(MAKE) COMMAND=editin recursive checkoutall: $(MAKE) COMMAND=checkout recursive editoutall: $(MAKE) COMMAND=editout recursive install: ifdef ARCH depend: @-mkdir $(ARCH) archall: $(MAKE) COMMAND=arch recursive endif xemp5.1-beta/lib/census/ 40755 12266 2116 0 6043206335 13405 5ustar jponexorxemp5.1-beta/lib/census/GNUdepend100644 12266 2116 17272 6015617322 15270 0ustar jponexorSRCS= army.c \ census.c \ deity.c \ fleet.c \ land.c \ misc.c \ nuke.c \ plane.c \ sector.c \ ship.c \ wing.c OBJS= army.o \ census.o \ deity.o \ fleet.o \ land.o \ misc.o \ nuke.o \ plane.o \ sector.o \ ship.o \ wing.o ### army.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/census.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h census.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/census.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h deity.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/census.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h fleet.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/census.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h land.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/census.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h misc.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/census.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h nuke.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/census.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nuke.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h plane.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/census.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nuke.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h sector.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/census.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/production.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h ship.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/census.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h wing.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/census.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h xemp5.1-beta/lib/census/GNUmakefile100644 12266 2116 1004 6034225234 15546 0ustar jponexor# The following variables are configurable. #-----------------------------------# LOCALCFLAGS := LOCALIFLAGS := LOCALLFLAGS := LOCALSFLAGS := TOPDIR = ../.. LIB := ../libcensus.a LINTNAME := census #-----------------------------------# # Productions: # depend: create the dependencies # all: make the library # saber: load things for saber # tags: make tags include $(TOPDIR)/make/GenMakefile include $(DEPENDENCIES) include $(TOPDIR)/make/LibMakefile tags: ../tags ln -s ../tags TAGS: ../TAGS ln -s ../TAGS xemp5.1-beta/lib/census/army.c100444 12266 2116 15266 6024621462 14647 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/census/RCS/army.c,v 5.3 1995/09/10 17:41:06 jpo Exp $ $Date: 1995/09/10 17:41:06 $ $Author: jpo $ $Id: army.c,v 5.3 1995/09/10 17:41:06 jpo Exp $ $Locker: $ $Log: army.c,v $ Revision 5.3 1995/09/10 17:41:06 jpo Add support for display and change of army retreat & missions Revision 5.2 1995/09/08 06:57:11 jpo some touch ups * Revision 5.1 93/03/14 16:40:52 etienne * initial rev. * * Revision 5.0 93/02/06 09:16:27 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.5 1993/02/06 07:48:54 greyhelm * Added gnumake mods to allow checkin and Checkout * * Revision 4.4 1993/02/06 04:21:26 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "census.h" #include "land.h" #include "sector.h" static int nr_atscreen = 0; static bool cens_more = False; static Land cens_lands [AL_MAX_LANDS + 1]; static bool army_censenable [LND_MAX]; extern struct s_funcbutton land_functions []; static void HandleCensusButtonForArmy (button) int button; { Neighb neighb; Sector nxt; char * army; int range; int i; if (! army_censenable [button]) return; army = ArmyId (); UnmarkAllLands (); MarkLands (army); switch (button) { case LND_RADAR: Message ("Scanning radar"); range = MaxRadarMarked (& i); if (range <= 0) break; FScanLRadar (Fmt (" %i", i)); DrawMap (); break; case LND_LOOK: Message ("Scanning lookout"); range = MaxRadarMarked (& i); if (range <= 0) break; DoLLookout (cursct, i, False, PRINT, True); DrawMap (); break; case LND_MARCH: March (army); break; case LND_MINE: Mine (Fmt ("%c", army)); break; case LND_FIRE: MFireFromArmy (army); break; case LND_SCRAP: ScrapLand (army); break; case LND_SCUTTLE: ScuttleLand (army); break; case LND_SET: Message ("Unable to set a army (yet)"); Bell (); break; /* SetArmy (army); */ case LND_FORT: Fortify (army); break; default: break; } } static void CensusMergeArmys () { char * army, * ans; Land ptr; CenClr (AL_SY_ARMY); ShowFreeArmys (); PrintN (census_win, 0, AL_SY_ARMY, "Add to army: "); ans = GetString (census_win, 15, AL_SY_ARMY, 1, "a-zA-Z~"); if (ans == (char *) 0 || interrupt || * ans == '\0') interrupt = False; else { army = ArmyId (); if (* ans == curarmy) { Message ("No need to change that"); Bell (); return; } FeedCommand (Fmt ("army %c %s", * ans, army), PRINT); UnmarkAllLands (); MarkLands (army); for ALL_LANDS (ptr) if (ld_marked (ptr)) set_ld_army (ptr, * ans); Message (Fmt ("Army %c added to %c", curarmy, * ans)); curarmy = * ans; } CensusArmy (curarmy); } void CensusLayArmy () { CenLine (AL_SY_ARMY - 1); CenPuts (0, AL_SY_ARMY, "Army:"); CenPuts (0, AL_SY_POS, "Pos:"); CenPuts (0, AL_SY_MISSION, "Mis:"); CenPuts (0, AL_SY_RETREAT, "Ret:"); CenLine (AL_SY_RETREAT + 1); CenPuts (0, AL_SY_HEADER, "Ld# Land Mob Eff"); CenLine (AL_SY_BUT - 1); CenButton (AL_SX_SECTOR, AL_SY_BUT, "Sector", 6, False); CenButton (AL_SX_NEXT, AL_SY_BUT, "Next", 4, False); CenLine (AL_SY_BUT + 1); } static void ShowCensusArmy (start, army) Land start; char army; { int i; register Land land; /* clear more */ CenPuts (AL_SX_MORE, AL_SY_BUT, " "); /* clear lands */ for (i = 0; i < AL_MAX_LANDS; i++) CenClr (AL_SY_LANDS + i); nr_atscreen = 0; for (land = start; land != (Land) 0; land = ld_next (land)) { /* same sector ? */ if ((ld_xcd (land) != s_xcd (cursct) || ld_ycd (land) != s_ycd (cursct))) continue; /* same army ? */ if (ld_army (land) != army) continue; /* need a more? */ if (nr_atscreen == AL_MAX_LANDS) { cens_lands [nr_atscreen] = land; cens_more = True; CenButton (AL_SX_MORE, AL_SY_BUT, "More", 4, False); return; } /* print land */ CenPutVal (0, AL_SY_LANDS + nr_atscreen, Fmt ("%-4d %-13.13s %-3d %-3d", ld_nr (land), LandName (land), ld_mob (land), ld_eff (land))); cens_lands [nr_atscreen ++] = land; } cens_more = False; } void ArmyCensus (army) char army; { Sector sct; int i; curarmy = army; CenClr (AL_SY_ARMY); CenPuts (0, AL_SY_ARMY, "Army: "); CenPutVal (7, AL_SY_ARMY, Fmt ("%c%s", army, ArmyColocated (army) ? "" : "(not colocated)")); CenClr (AL_SY_POS); if (ArmyEmpty (army)) { CenPutVal (0, AL_SY_POS, "Army empty!"); FlushWindow (census_win); Refresh (); return; } CenPuts (0, AL_SY_POS, "Pos: "); if (ArmyColocated (army)) CenPutVal (5, AL_SY_POS, CrdStr (ArmySector (army))); CenClr (AL_SY_MISSION); CenPuts (0, AL_SY_MISSION, "Mis: "); CenPutVal (5, AL_SY_MISSION, ArmyHasMission(army)); CenClr (AL_SY_RETREAT); CenPuts (0, AL_SY_RETREAT, "Ret: "); CenPutVal (5, AL_SY_RETREAT, ArmyHasRetreat (army)); CenPuts (0, AL_SY_HEADER, "Ld# Land Mob Eff"); ShowCensusArmy (landlist, army); FlushWindow (census_win); /* army census, should always be owned */ for (i = 0; i < LND_MAX; i ++) army_censenable [i] = False; UnmarkAllLands (); MarkLands (Fmt ("%c", curarmy)); army_censenable [LND_SET] = trade; army_censenable [LND_RADAR] = MaxRadarMarked ((int *) 0) > 0; army_censenable [LND_LOOK] = True; army_censenable [LND_MARCH] = MinMobMarkedLands ((Land *) 0) > 0; army_censenable [LND_FORT] = MinMobMarkedLands ((Land *) 0) > 0; army_censenable [LND_MINE] = ArmyHasEngineer () > 0; army_censenable [LND_WORK] = ArmyHasEngineer () > 0; army_censenable [LND_FIRE] = True; army_censenable [LND_SCRAP] = True; army_censenable [LND_SCUTTLE] = True; DrawCensusButtons (land_functions, LND_MAX, army_censenable); FlushWindow (census_win); Refresh (); } void ArmyCensusBut (x, y) int x, y; { int i; if (y == AL_SY_BUT) { if (ButtonPressed (x, y, AL_SX_SECTOR, AL_SY_BUT, 6)) { curarmy = '\0'; curland = (Land) 0; Census (); } else if (ButtonPressed (x, y, AL_SX_MORE, AL_SY_BUT, 4)) { if (! cens_more) return; ShowCensusArmy (cens_lands [nr_atscreen], curarmy); FlushWindow (census_win); Refresh (); } else if (ButtonPressed (x, y, AL_SX_NEXT, AL_SY_BUT, 4)) { curarmy = GiveNextArmyInSct (cursct, curarmy); CensusArmy (curarmy); } return; } if (y == AL_SY_ARMY) { CensusMergeArmys (); return; } else if (y == AL_SY_MISSION) { ChangeArmyMission (curarmy); return; } else if (y == AL_SY_RETREAT) { ChangeArmyRetreat (curarmy); return; } if (y >= AL_SY_LANDS && y < AL_SY_LANDS + nr_atscreen) { curland = cens_lands [y - AL_SY_LANDS]; CensusLand (curland); return; } i = WhichCensusButton (land_functions, LND_MAX, x, y); if (i != -1) { HandleCensusButtonForArmy (i); return; } } xemp5.1-beta/lib/census/census.c100444 12266 2116 16277 6023765002 15200 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/census/RCS/census.c,v 5.2 1995/09/08 06:57:40 jpo Exp $ $Date: 1995/09/08 06:57:40 $ $Author: jpo $ $Id: census.c,v 5.2 1995/09/08 06:57:40 jpo Exp $ $Locker: $ $Log: census.c,v $ Revision 5.2 1995/09/08 06:57:40 jpo some clean ups * Revision 5.1 93/03/14 16:41:13 etienne * added/changed some things for chain 3.0 * * Revision 5.0 93/02/06 09:16:27 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.5 1993/02/06 07:48:54 greyhelm * Added gnumake mods to allow checkin and Checkout * * Revision 4.4 1993/02/06 04:21:26 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "nation.h" #include "census.h" #include "var.h" #include "ship.h" static void CensusNewCommandMode _PROTO((int mode)); WinInfo census_win; int command_mode = NORMAL_MODE; int last_layout = SHIP_MODE; int census_height = CENSUS_HEIGHT; #define NR_COMM 12 void CensusLayTop () { CenLineText (NL_SY_SCT - 1, "Census"); CenPuts (0, NL_SY_SCT, "Sct"); CenPuts (0, NL_SY_SCT + 1, "Des"); CenPuts (0, NL_SY_CENSUS, "Eff Mob Ava"); CenPuts (0, NL_SY_CENSUS + 1, "Civ Mil Wor"); #ifdef X_VERSION CenLineText (NL_SY_RESOUR - 1, "Resources"); CenPuts (0, NL_SY_RESOUR, "Min Oil Fer"); CenPuts (0, NL_SY_RESOUR + 1, "Gol Ura"); CenLineText (NL_SY_CRAFTS - 1, "Crafts"); if (land_units) CenPuts (0, NL_SY_CRAFTS, "S P L N "); else CenPuts (0, NL_SY_CRAFTS, "Shi Pla Nuk"); CenLine (NL_SY_CRAFTS + 1); CenLine (NL_SY_DISTR + 1); #endif /* X_VERSION */ } static void CensusNewCommandMode (mode) int mode; { ClearWindow (census_win); CensusLayTop (); switch (mode) { case NORMAL_MODE: CensusLayNormal (); break; case SHIP_MODE: CensusLayShip (); break; case FLEET_MODE: CensusLayFleet (); break; case PLANE_MODE: CensusLayPlane (); break; case WING_MODE: CensusLayWing (); break; case LAND_MODE: CensusLayLand (); break; case ARMY_MODE: CensusLayArmy (); break; case INFO_MODE: break; case PLAN_MODE: CensusLayPlan (); break; case NUKE_MODE: CensusLayNuke (); break; } } void DoCensus (sct, ship, fleet, plane, wing, nuke, land, army, layout) Sector sct; Ship ship; char fleet; Plane plane; char wing; Land land; char army; Nuke nuke; int layout; { int next_mode; if (sct == (Sector) 0 || NO_INFO (sct)) return; switch (layout) { case NORMAL_MODE: next_mode = NORMAL_MODE; break; case SHIP_MODE: next_mode = (ship == (Ship) 0) ? NORMAL_MODE : SHIP_MODE; break; case PLANE_MODE: next_mode = (plane == (Plane) 0) ? NORMAL_MODE : PLANE_MODE; break; case FLEET_MODE: next_mode = (fleet == '\0') ? NORMAL_MODE : FLEET_MODE; break; case LAND_MODE: next_mode = (land == '\0') ? NORMAL_MODE : LAND_MODE; break; case ARMY_MODE: next_mode = (army == '\0') ? NORMAL_MODE : ARMY_MODE; break; case NUKE_MODE: next_mode = (nuke == (Nuke) 0) ? NORMAL_MODE : NUKE_MODE; break; case WING_MODE: next_mode = (wing == '\0') ? NORMAL_MODE : WING_MODE; break; case INFO_MODE: next_mode = INFO_MODE; break; case PLAN_MODE: next_mode = PLAN_MODE; break; } if (last_layout != next_mode) { CensusNewCommandMode (next_mode); last_layout = next_mode; } CensusTop (sct); #ifdef X_VERSION CensusResources (sct); CensusCrafts (sct); #endif /* X_VERSION */ switch (next_mode) { case NORMAL_MODE: SectorCensus (sct); break; case SHIP_MODE: ShipCensus (ship); break; case FLEET_MODE: FleetCensus (fleet); break; case LAND_MODE: LandCensus (land); break; case ARMY_MODE: ArmyCensus (army); break; case PLANE_MODE: PlaneCensus (plane); break; case WING_MODE: WingCensus (wing); break; case INFO_MODE: CensusAddit (sct); break; case NUKE_MODE: NukeCensus (nuke); break; case PLAN_MODE: PlanCensus (sct); break; } FlushWindow (census_win); Refresh (); } void Census () { curnuketype = -1; DoCensus (cursct, curship, curfleet, curplane, curwing, curnuke, curland, curarmy, command_mode); } void CensusSct (sct) Sector sct; { DoCensus (sct, curship, curfleet, curplane, curwing, curnuke, curland, curarmy, NORMAL_MODE); } void CensusShip (ship) Ship ship; { DoCensus (cursct, ship, curfleet, curplane, curwing, curnuke, curland, curarmy, SHIP_MODE); } void CensusFleet (fleet) char fleet; { DoCensus (cursct, curship, fleet, curplane, curwing, curnuke, curland, curarmy, FLEET_MODE); } void CensusSctShip (sct, ship) Sector sct; Ship ship; { DoCensus (sct, ship, curfleet, curplane, curwing, curnuke, curland, curarmy, SHIP_MODE); } void CensusLand (land) Land land; { DoCensus (cursct, curship, curfleet, curplane, curwing, curnuke, land, curarmy, LAND_MODE); } void CensusArmy (army) char army; { DoCensus (cursct, curship, curfleet, curplane, curwing, curnuke, curland, army, ARMY_MODE); } void CensusPlane (plane) Plane plane; { DoCensus (cursct, curship, curfleet, plane, curwing, curnuke, curland, curarmy, PLANE_MODE); } void CensusWing (wing) char wing; { DoCensus (cursct, curship, curfleet, curplane, wing, curnuke, curland, curarmy, WING_MODE); } void CensusNuke (nuke) Nuke nuke; { curnuketype = -1; DoCensus (cursct, curship, curfleet, curplane, curwing, nuke, curland, curarmy, NUKE_MODE); } void CensusInfo () { DoCensus (cursct, curship, curfleet, curplane, curwing, curnuke, curland, curarmy, INFO_MODE); } void InitCensus () { #ifdef TERMC_VERSION census_win = OpenWindow (root_win, 0, 0, CENSUS_WIDTH, screen_rows, 0, RIGHT_BOX, 0); #else census_win = OpenWindow (root_win, 0, 0, CENSUS_WIDTH, CENSUS_HEIGHT, CHARS, FIXED, 0); #endif SetDefaultCursor (census_win, CR_ARROWS); command_mode = NORMAL_MODE; CensusNewCommandMode (command_mode); FlushWindow (census_win); } void CensusButton (x, y) int x, y; { char * ans; int new, num; char ch, *ptr; /* check mines */ if (y == NL_SY_RESOUR + 1 && (s_des (cursct) == '.' || s_des (cursct) == '=')) { CenClr (NL_SY_RESOUR + 1); PrintN (census_win, 0, NL_SY_RESOUR + 1, "# mines [?]: "); ans = GetString (census_win, 13, NL_SY_RESOUR + 1, 4, "0-9?"); if (ans == (char *) 0 || interrupt) { Message ("Set mines cancelled"); interrupt = False; Census (); return; } if (* ans == '\0') set_mines (cursct, 128); else set_mines (cursct, atoi (ans)); Census (); return; } switch (last_layout) { case NORMAL_MODE: if (deity) CensusDeityButton (x, y); SectorCensusBut (x, y); return; case SHIP_MODE: ShipCensusBut (x, y); return; case FLEET_MODE: FleetCensusBut (x, y); return; case LAND_MODE: LandCensusBut (x, y); break; case ARMY_MODE: ArmyCensusBut (x, y); break; case PLANE_MODE: PlaneCensusBut (x, y); return; case WING_MODE: WingCensusBut (x, y); return; #ifdef TERMC_VERSION case INFO_MODE: AdditCensusBut (x, y); return; #endif TERMC_VERSION case PLAN_MODE: PlanCensusButton (x, y); FlushWindow (census_win); return; case NUKE_MODE: NukeCensusButton (x, y); return; } FlushWindow (census_win); Refresh (); } xemp5.1-beta/lib/census/deity.c100444 12266 2116 12004 6023765002 14776 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/census/RCS/deity.c,v 5.1 1993/03/14 16:41:33 etienne Exp $ $Date: 1993/03/14 16:41:33 $ $Author: etienne $ $Id: deity.c,v 5.1 1993/03/14 16:41:33 etienne Exp $ $Locker: $ $Log: deity.c,v $ Revision 5.1 1993/03/14 16:41:33 etienne * Revision 5.0 93/02/06 09:16:27 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.5 1993/02/06 07:48:54 greyhelm * Added gnumake mods to allow checkin and Checkout * * Revision 4.4 1993/02/06 04:21:26 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "nation.h" #include "census.h" #include "var.h" #include "ship.h" #include "sector.h" static void DeityChangeCom (x, y, ch) int x, y; char ch; { char * ans; int new, old; CenPuts (x, y, " "); ans = GetString (census_win, x, y, 4, GS_PNUMBER); if (ans == (char *) 0 || interrupt || * ans == '\0') { Message ("Deity 'give' command cancelled.\n"); interrupt = False; } else { old = GiveQuant (cursct, ch); new = atoi (ans); FeedEmpire (Fmt ("give %c %s %d", ch, CrdStr (cursct), new - old), PRINT); (void) WaitForPrompt (PRINT); SetQuant (cursct, ch, new); } Census (); } static char * comm_chars = "ufsgpibdolhr"; void CensusDeityButton (x, y) int x, y; { char * ptr; int new; int i; if (y == NL_SY_SCT) /* change owner */ { DeityChange (cursct); ptr = AskCountry (10, 10, "New owner ?", True); if (interrupt || ptr == (char *) 0) { interrupt = False; Message ("Changing owner cancelled"); Census (); return; } new = CountryId (ptr); EditLand (cursct, 'o', new); EditLand (cursct, 'O', new); set_owner (cursct, new); DrawSector (cursct); Census (); return; } if (y == NL_SY_CENSUS) { if (ButtonPressed (x, y, 0, y, 8)) { if (DeityChangeLand (4, y, 'e', & i)) set_eff (cursct, i); Census (); return; } else if (ButtonPressed (x, y, 9, y, 8)) /* Mob */ { if (DeityChangeLand (13, y, 'm', & i)) set_min (cursct, i); Census (); return; } else if (ButtonPressed (x, y, 18, y, 8)) /* Ava */ { if (DeityChangeLand (22, y, 'a', & i)) set_ava (cursct, i); Census (); return; } } if (y == NL_SY_CENSUS + 1) { if (ButtonPressed (x, y, 0, y, 8)) DeityChangeCom (4, y, 'c'); else if (ButtonPressed (x, y, 9, y, 8)) DeityChangeCom (13, y, 'm'); else if (ButtonPressed (x, y, 18, y, 8)) { if (DeityChangeLand (22, y, 'w', & i)) set_wor (cursct, i); Census (); } return; } #ifdef TERMC_VERSION if (last_layout != NORMAL_MODE) return; #endif /* TERMC_VERSION */ if (y == NL_SY_RESOUR) { if (ButtonPressed (x, y, 0, y, 8)) { if (DeityChangeLand (4, y, 'i', & i)) set_min (cursct, i); Census (); } else if (ButtonPressed (x, y, 9, y, 8)) { if (DeityChangeLand (13, y, 'c', & i)) set_oil (cursct, i); Census (); } else if (ButtonPressed (x, y, 18, y, 8)) { if (DeityChangeLand (22, y, 'f', & i)) set_fer (cursct, i); Census (); } return; } if (s_des (cursct) == '.' || s_des (cursct) == '=') return; if (y == NL_SY_RESOUR + 1) { if (ButtonPressed (x, y, 0, y, 8)) { if (DeityChangeLand (4, y, 'g', & i)) set_gol (cursct, i); Census (); } else if (ButtonPressed (x, y, 9, y, 8)) { if (DeityChangeLand (13, y, 'u', & i)) set_ura (cursct, i); Census (); } return; } #ifdef X_VERSION if (last_layout != NORMAL_MODE) return; #endif /* X_VERSION */ if (x <= 8 && y > NL_SY_COMM && y <= NL_SY_COMM + 13) DeityChangeCom (6, y, * (comm_chars + y - NL_SY_COMM - 1)); } bool DeityChangeShip (ship, x, y) Ship ship; int x, y; { int i; char * ptr, ch; int max, new; static char * ship_chars = "EM cmT"; if (y == SL_SY_OWNER) { ptr = AskCountry (10, 10, "New owner ?", True); if (ptr != (char *) 0) { new = CountryId (ptr); ch = 'O'; } } else { if (x >= 0 && x <= 7) i = 0; else if (x >= 9 && x <= 16) i = 1; else if (x >= 18 && x <= 25) i = 2; else return False; x = 4 * i * 9; if (y >= SL_SY_COM && y <= SL_SY_COM + 3) { ch = comm_chars [(y - SL_SY_COM) * 3 + i]; max = MaxShipCargo (curship, ch); } else if (y >= SL_SY_STATS && y <= SL_SY_STATS + 1) { ch = ship_chars [(y - SL_SY_STATS) * 3 + i]; if (ch == 'E') max = 100; else if (ch == 'M') max = MAX_SHIPMOB; else if (ch == 'T') max = 9999; else max = MaxShipCargo (curship, ch); } if (max == 0) { Message (Fmt ("The captain refuses to take %s on board", ItemName (CharToItem (ch)))); Bell (); return; } PrintN (census_win, x, y, " "); ptr = GetString (census_win, x, y, 4, GS_PNUMBER); if (ptr != (char *) 0) { new = atoi (ptr); if (new > max) new = max; } } if (interrupt || ptr == (char *) 0 || *ptr == '\0') { interrupt = False; Message ("Edit ship cancelled"); return; } EditShip (ship, ch, new); SetShipQuant (ship, ch, new); CensusShip (ship); return; } xemp5.1-beta/lib/census/fleet.c100444 12266 2116 17311 6024610410 14756 0ustar jponexor/* $Header: /a/victor/nexor/user4/jpo/xemp/xemp5.0/lib/census/RCS/fleet.c,v 5.3 1995/09/10 16:23:36 jpo Exp $ $Date: 1995/09/10 16:23:36 $ $Author: jpo $ $Id: fleet.c,v 5.3 1995/09/10 16:23:36 jpo Exp $ $Locker: $ $Log: fleet.c,v $ Revision 5.3 1995/09/10 16:23:36 jpo Supprot for fleet setting of mission, retreat and orders Revision 5.2 1995/09/08 06:58:00 jpo touch ups * Revision 5.1 93/03/14 16:41:36 etienne * added/changed some things * * Revision 5.0 93/02/06 09:16:27 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.5 1993/02/06 07:48:54 greyhelm * Added gnumake mods to allow checkin and Checkout * * Revision 4.4 1993/02/06 04:21:26 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "census.h" #include "ship.h" #include "sector.h" static int nr_atscreen = 0; static bool cens_more = False; static Ship cens_ships [FL_MAX_SHIPS + 1]; static bool fleet_censenable [SCM_MAX]; extern struct s_funcbutton ship_functions []; static void HandleCensusButtonForFleet (button) int button; { Neighb neighb; Sector nxt; char * fleet; int range; int i; if (! fleet_censenable [button]) return; fleet = FleetId (); UnmarkAllShips (); MarkShips (fleet); switch (button) { case SCM_RADAR: Message ("Scanning radar"); range = MaxRadarMarked (& i); if (range <= 0) break; FScanRadar (Fmt (" %i", i)); DrawMap (); break; case SCM_SONAR: Message ("Scanning sonar"); range = MaxSonarMarked (& i); if (range <= 0) return; FeedEmpire (Fmt ("sonar %d", i), PRINT); ScanLookout (); InitNeighbours (cursct, & neighb); while (NextNeighbour (& nxt, S_DESIG, neighb)) (void) UpdateSectorDes (nxt, '.', False); DrawMap (); break; case SCM_LOOKOUT: Message ("Scanning lookout"); range = MaxRadarMarked (& i); if (range <= 0) break; DoLookout (cursct, i, False, PRINT, True); DrawMap (); break; case SCM_NAVIGATE: Navigate (fleet); break; case SCM_MINE: Mine (Fmt ("%c", fleet)); break; case SCM_TEND: case SCM_BOARD: Panic ("FleetCensusBut", "ship/census.c", "Can't have this button in the fleet-census"); break; case SCM_FIRE: MFireFromFleet (fleet); break; case SCM_UPGRADE: UpgradeShip (fleet); break; case SCM_SCRAP: ScrapShip (fleet); break; case SCM_SCUTTLE: ScuttleShip (fleet); break; case SCM_SET: Message ("Unable to set a fleet (yet)"); Bell (); break; /* SetFleet (fleet); */ default: break; } } static void CensusMergeFleets () { char * fleet, * ans; Ship ptr; CenClr (FL_SY_FLEET); ShowFreeFleets (); PrintN (census_win, 0, FL_SY_FLEET, "Add to fleet: "); ans = GetString (census_win, 15, FL_SY_FLEET, 1, "a-zA-Z~"); if (ans == (char *) 0 || interrupt || * ans == '\0') interrupt = False; else { fleet = FleetId (); if (* ans == curfleet) { Message ("No need to change that"); Bell (); return; } FeedCommand (Fmt ("fleetadd %c %s", * ans, fleet), PRINT); UnmarkAllShips (); MarkShips (fleet); for ALL_SHIPS (ptr) if (sh_marked (ptr)) set_sh_fleet (ptr, * ans); Message (Fmt ("Fleet %c added to %c", curfleet, * ans)); curfleet = * ans; } CensusFleet (curfleet); } void CensusLayFleet () { /*CenLine (FL_SY_FLEET - 1); ET */ CenPuts (0, FL_SY_FLEET, "Fleet:"); CenPuts (0, FL_SY_POS, "Pos:"); if (emp3server) CenPuts (0, FL_SY_FERRY, "Ord:"); CenPuts (0, FL_SY_MISSION, "Mis:"); CenPuts (0, FL_SY_RETREAT, "Ret:"); CenLine (FL_SY_RETREAT + 1); CenPuts (0, FL_SY_HEADER, "Sh# Ship Mob Eff"); CenLine (FL_SY_BUT - 1); CenButton (FL_SX_SECTOR, FL_SY_BUT, "Sector", 6, False); CenButton (FL_SX_NEXT, FL_SY_BUT, "Next", 4, False); CenLine (FL_SY_BUT + 1); } static void ShowCensusFleet (start, fleet) Ship start; char fleet; { int i; register Ship ship; /* clear more */ CenPuts (FL_SX_MORE, FL_SY_BUT, " "); /* clear ships */ for (i = 0; i < FL_MAX_SHIPS; i++) CenClr (FL_SY_SHIPS + i); nr_atscreen = 0; for (ship = start; ship != (Ship) 0; ship = sh_next (ship)) { /* same sector ? */ if ((sh_xcd (ship) != s_xcd (cursct) || sh_ycd (ship) != s_ycd (cursct))) continue; /* same fleet ? */ if (sh_fleet (ship) != fleet) continue; /* need a more? */ if (nr_atscreen == FL_MAX_SHIPS) { cens_ships [nr_atscreen] = ship; cens_more = True; CenButton (FL_SX_MORE, FL_SY_BUT, "More", 4, False); return; } /* print ship */ CenPutVal (0, FL_SY_SHIPS + nr_atscreen, Fmt ("%-4d %-13.13s %-3d %-3d", sh_nr (ship), ShipName (ship), sh_mob (ship), sh_eff (ship))); cens_ships [nr_atscreen ++] = ship; } cens_more = False; } void FleetCensus (fleet) char fleet; { Sector sct; int i; curfleet = fleet; CenClr (FL_SY_FLEET); CenPuts (0, FL_SY_FLEET, "Fleet: "); CenPutVal (7, FL_SY_FLEET, Fmt ("%c%s", fleet, FleetColocated (fleet) ? "" : "(not colocated)")); CenClr (FL_SY_POS); CenClr (FL_SY_FERRY); CenClr (FL_SY_MISSION); CenClr (FL_SY_RETREAT); if (FleetEmpty (fleet)) { CenPutVal (0, FL_SY_POS, "Fleet empty!"); FlushWindow (census_win); Refresh (); return; } CenPuts (0, FL_SY_POS, "Pos: "); if (FleetColocated (fleet)) CenPutVal (5, FL_SY_POS, CrdStr (FleetSector (fleet))); if (emp3server) { CenPuts (0, FL_SY_FERRY, "Ord:"); CenPutVal (5, FL_SY_FERRY, FleetHasOrders (fleet)); } else CenPutVal (0, FL_SY_FERRY, HasFerry (fleet, (Ship) 0)); CenPuts (0, FL_SY_MISSION, "Mis: "); CenPutVal (5, FL_SY_MISSION, FleetHasMission (fleet)); CenPuts (0, FL_SY_RETREAT, "Ret: "); CenPutVal (5, FL_SY_RETREAT, FleetHasRetreat (fleet)); CenPuts (0, FL_SY_HEADER, "Sh# Ship Mob Eff"); ShowCensusFleet (shiplist, fleet); FlushWindow (census_win); /* fleet census, should always be owned */ for (i = 0; i < SCM_MAX; i ++) fleet_censenable [i] = False; UnmarkAllShips (); MarkShips (Fmt ("%c", curfleet)); fleet_censenable [SCM_SCUTTLE] = True; fleet_censenable [SCM_RADAR] = MaxRadarMarked ((int *) 0) > 0; fleet_censenable [SCM_SONAR] = MaxSonarMarked ((int *) 0) > 0; fleet_censenable [SCM_LOOKOUT] = True; fleet_censenable [SCM_NAVIGATE] = MinMobMarkedShips ((Ship *) 0) > 0; fleet_censenable [SCM_MINE] = True; fleet_censenable [SCM_FIRE] = True; sct = FleetSector (curfleet); if (sct != (Sector) 0 && s_owned (sct) && s_des (sct) == 'h' && s_eff (sct) > 60) { fleet_censenable [SCM_UPGRADE] = True; fleet_censenable [SCM_SCRAP] = True; } DrawCensusButtons (ship_functions, SCM_MAX, fleet_censenable); FlushWindow (census_win); Refresh (); } void FleetCensusBut (x, y) int x, y; { int i; if (y == FL_SY_BUT) { if (ButtonPressed (x, y, FL_SX_SECTOR, FL_SY_BUT, 6)) { curfleet = '\0'; curship = (Ship) 0; Census (); } else if (ButtonPressed (x, y, FL_SX_MORE, FL_SY_BUT, 4)) { if (! cens_more) return; ShowCensusFleet (cens_ships [nr_atscreen], curfleet); FlushWindow (census_win); Refresh (); } else if (ButtonPressed (x, y, FL_SX_NEXT, FL_SY_BUT, 4)) { curfleet = GiveNextFleetInSct (cursct, curfleet); CensusFleet (curfleet); } return; } if (y == FL_SY_FLEET) { CensusMergeFleets (); return; } else if (y == FL_SY_FERRY) { if (emp3server) ChangeFleetOrder(curfleet); else ChangeFerry (curfleet, (Ship) 0); CensusFleet (curfleet); } else if (y == FL_SY_MISSION) ChangeFleetMission (curfleet); else if (y == FL_SY_RETREAT) ChangeFleetRetreat (curfleet); if (y >= FL_SY_SHIPS && y < FL_SY_SHIPS + nr_atscreen) { curship = cens_ships [y - FL_SY_SHIPS]; CensusShip (curship); return; } i = WhichCensusButton (ship_functions, SCM_MAX, x, y); if (i != -1) { HandleCensusButtonForFleet (i); return; } } xemp5.1-beta/lib/census/land.c100444 12266 2116 42727 6032723132 14613 0ustar jponexor/* $Header: /a/victor/nexor/user4/jpo/xemp/xemp5.0/lib/census/RCS/land.c,v 5.6 1995/09/29 07:55:05 jpo Exp $ $Date: 1995/09/29 07:55:05 $ $Author: jpo $ $Id: land.c,v 5.6 1995/09/29 07:55:05 jpo Exp $ $Locker: $ $Log: land.c,v $ Revision 5.6 1995/09/29 07:55:05 jpo Oops - emp3server problem Revision 5.5 1995/09/28 12:13:35 jpo Fix up load a little more Revision 5.4 1995/09/28 08:27:03 jpo new load format Revision 5.3 1995/09/21 06:21:28 jpo Patrick Kenny's fix for lunload Revision 5.2 1995/09/08 06:58:12 jpo added missions, tidied up functions as a result of prototypes * Revision 5.1 93/03/14 16:41:49 etienne * added/changed some things * * Revision 5.0 93/02/06 09:16:27 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.6 1993/02/06 07:48:54 greyhelm * Added gnumake mods to allow checkin and Checkout * * Revision 4.5 1993/02/06 07:45:26 greyhelm * Corrected extern functions - Karl Hagen * * Revision 4.4 1993/02/06 04:21:26 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "census.h" #include "land.h" #include "sector.h" #include "version.h" extern char comm_chars []; static bool land_censenable [LND_MAX]; #ifdef TERMC_VERSION struct s_funcbutton land_functions [] = { { LND_RADAR, "Radar", 1, LL_SY_FUNCBUT, 5 }, { LND_SONAR, "Sonar", 8, LL_SY_FUNCBUT, 5 }, { LND_LOOKOUT, "Look", 15, LL_SY_FUNCBUT, 4 }, { LND_FIRE, "Fire", 21, LL_SY_FUNCBUT, 4 }, { LND_MARCH, "March", 1, LL_SY_FUNCBUT + 1, 5 }, { LND_BOARD, "Board", 8, LL_SY_FUNCBUT + 1, 5 }, { LND_TEND, "Tend", 15, LL_SY_FUNCBUT + 1, 4 }, { LND_SET, "Set", 21, LL_SY_FUNCBUT + 1, 4 }, { LND_SCRAP, "Scrap", 1, LL_SY_FUNCBUT + 2, 5 }, { LND_UPGRADE, "Upgra", 8, LL_SY_FUNCBUT + 2, 5 }, { LND_MINE, "Mine", 15, LL_SY_FUNCBUT + 2, 4 }, { LND_TORPEDO, "Torp", 21, LL_SY_FUNCBUT + 2, 4 } }; #else /* X version */ struct s_funcbutton land_functions [] = { { LND_RADAR, "Radar", 2, LL_SY_FUNCBUT, 5 }, { LND_LOOK, "Look ", 9, LL_SY_FUNCBUT, 6 }, { LND_MARCH, "March", 17, LL_SY_FUNCBUT, 7 }, { LND_FIRE, "Fire", 2, LL_SY_FUNCBUT + 1, 5 }, { LND_MINE, "Mine", 9, LL_SY_FUNCBUT + 1, 6 }, { LND_FORT, "Fortify", 17, LL_SY_FUNCBUT + 1, 7 }, { LND_WORK, "Work", 2, LL_SY_FUNCBUT + 2, 5 }, { LND_SUPPLY, "Supply", 9, LL_SY_FUNCBUT + 2, 6 }, { LND_BUILD, "Build", 17, LL_SY_FUNCBUT + 2, 7 }, { LND_SET, "Set", 2, LL_SY_FUNCBUT + 3, 5 }, { LND_SCRAP, "Scrap", 9, LL_SY_FUNCBUT + 3, 6 }, { LND_SCUTTLE, "Scuttle", 17, LL_SY_FUNCBUT + 3, 7 } }; #endif static void CenPutLandHas (x, y, s, land, c) int x, y; int s; Land land; char c; { if (MaxLandCargo (land, c) > 0) CenPutVal (x, y, Fmt ("%d", s)); else CenPutVal (x, y, "---"); } static void HandleCensusButtonForLand (button, land) int button; Land land; { Sector nxt; Neighb neighb; if (! land_censenable [button]) return; switch (button) { case LND_RADAR: Message ("Scanning radar"); FScanLRadar (Fmt ("%d", ld_nr (land))); DrawMap (); break; case LND_LOOK: Message ("Scanning lookout"); DoLLookout (cursct, ld_nr (land), False, PRINT, True); DrawMap (); break; case LND_MARCH: March (Fmt ("%d", ld_nr (land))); CensusLand (land); break; case LND_FIRE: FireFromLand (); CensusLand (land); break; case LND_MINE: LMine (Fmt ("%d", ld_nr (land))); CensusLand (land); break; /* * XXX: should curland not being set * to zero? (after scrap) */ case LND_SCRAP: ScrapLand (Fmt ("%d", ld_nr (land))); break; case LND_SCUTTLE: ScuttleLand (Fmt ("%d", ld_nr (land))); break; case LND_WORK: Work (Fmt ("%d", ld_nr (land))); CensusLand (land); break; case LND_FORT: Fortify (Fmt ("%d", ld_nr (land))); CensusLand (land); break; case LND_SUPPLY: SupplyLand (Fmt ("%d", ld_nr (land))); CensusLand (land); break; case LND_BUILD: BuildLand (10,10); break; case LND_SET: SetLand (land); break; default: break; } } /* * This will so set x,y to the start of the commodity */ static char WhichLandCommodity (x, y) int * x, * y; { if (* y >= LL_SY_STATS && * y <= LL_SY_STATS + 5) { if (ButtonPressed (* x, * y, 4, * y, 6) && * y == LL_SY_STATS + 1) { LRangeEdit (curland); CensusLand (curland); return '\0'; } if (ButtonPressed (* x, * y, 13, * y, 6) && * y == LL_SY_STATS + 1) { MoraleEdit (curland); CensusLand (curland); return '\0'; } if (ButtonPressed (* x, * y, 18, * y, 6) && * y == LL_SY_STATS) { if (LandHas (curland, L_LIGHT)) { LandToShip (Fmt ("%d", ld_nr (curland))); CensusLand (curland); } return '\0'; } if (ButtonPressed (* x, * y, 13, * y, 6) && * y == LL_SY_STATS + 3 && landtypes [ld_type (curland)]. xpl > 0) { LLoadXPlane (curland); CensusLand (curland); return '\0'; } if(ButtonPressed (* x, * y, 18, * y, 6) && * y == LL_SY_STATS + 3) { * x = 22; if(landtypes [ld_type (curland)]. fcar) return 'e'; else return '\0'; } if (ButtonPressed (* x, * y, 4, * y, 6) && * y == LL_SY_STATS + 4) { LMission (curland); CensusLand (curland); return '\0'; } if (ButtonPressed (* x, * y, 0, * y, 10) && * y == LL_SY_STATS + 5) { LRetreat (curland); CensusLand (curland); return '\0'; } return '\0'; } else if (* y >= LL_SY_COM && * y < LL_SY_COM + 4) { if (ButtonPressed (* x, * y, 0, * y, 7)) { * x = 4; return comm_chars [3 * (* y - LL_SY_COM)]; } if (ButtonPressed (* x, * y, 9, * y, 7)) { * x = 13; return comm_chars [3 * (* y - LL_SY_COM) + 1]; } if (ButtonPressed (* x, * y, 18, * y, 7)) { * x = 22; return comm_chars [3 * (* y - LL_SY_COM) + 2]; } } return '\0'; } void LoadUnload (land, x, y, com) Land land; int x, y; char com; { char * ans; int item, petrol_oil; /* petrol_oil determines which to fuel with */ int in_sct, at_land, delta, max, new, usedelta; bool tomuch; if (! ld_owned (land)) { Message ("Not your Unit !!"); return; } if ( ! s_owned (cursct)) { Message ("You can't (un)load here !!"); Bell (); return; } item = CharToItem (com); max = MaxLandCargo (land, com); if (max == 0) { Message (Fmt ("The captain refuses to take %s with him", ItemName (item))); Bell (); return; } PrintN (census_win, x, y, " "); ans = GetString (census_win, x, y, 4, GS_PNUMBER); if (interrupt || ans == (char *) 0 || * ans == '\0') { interrupt = False; Message ("(Un)load cancelled"); CensusLand (land); return; } new = atoi (ans); if (new > max) { tomuch = True; new = max; } else tomuch = False; if(com == 'e') { petrol_oil = 0; in_sct = GiveQuant(cursct,'p'); if(in_sct == 0) { in_sct = GiveQuant(cursct,'o'); petrol_oil = 1; } if(in_sct == 0) { Message ("There is NO Petrol or Oil Here"); Bell(); return; } at_land = GiveLandQuant(land,com); if(at_land == MaxLandCargo(land,com)) { Message ("Unit is already fueled up"); Bell(); return; } delta = new - at_land; if(delta <= 0) { CensusLand (land); return; } if(petrol_oil) { usedelta = (int) (delta / 50 + 0.5); } else { usedelta = (int) (delta / 5 + 0.5); } FeedCommand (Fmt ("fuel land %d %d", ld_nr (land), delta), PRINT); Message (Fmt ("%d fuel taken on using %d %s", delta, usedelta, petrol_oil ? "oil" : "petrol")); if(petrol_oil) { /* Use oil */ /* 1 oil = 50 fuel */ SetQuant (cursct, 'o', in_sct - usedelta); } else { /* 1 petrol = 5 fuel */ SetQuant (cursct, 'p', in_sct - usedelta); } SetLandQuant (land, com, at_land + delta); DrawSector (cursct); CensusLand (land); return; } in_sct = GiveQuant (cursct, com); at_land = GiveLandQuant (land, com); delta = new - at_land; /* (un)load nothing */ if (delta == 0) { if (tomuch) { Message (Fmt ("Maximum # of %s already in unit", ItemName (item))); Bell (); } else Message ("It's already there, sir!"); CensusLand (land); return; } /* load */ else if (delta > 0) { if (in_sct < delta) { if (in_sct == 0) { Message ("It ain't there sir!"); Bell (); CensusLand (land); return; } else { delta = in_sct; tomuch = True; Message (Fmt ("Only %d left in this sector, sir", in_sct)); } } } else { if (in_sct - delta > MAX_TO_LOAD) { delta = in_sct - MAX_TO_LOAD; tomuch = True; Error (Fmt ( "Max Sector capacity reached, unloading %d %s", delta, ItemName (item))); } } if (emp3server == 2) FeedCommand (Fmt ("%sload \"%s\" %d %d", (delta > 0) ? "l" : "lun", ItemName (item), ld_nr (land), (delta > 0) ? delta : -delta), PRINT); else FeedCommand (Fmt ("%sload %d %d %s", (delta > 0) ? "l" : "lun", ld_nr (land), (delta > 0) ? delta : -delta, ItemName (item)), PRINT); Message (Fmt ("%soaded %s %d %s", (delta > 0) ? "L" : "Unl", tomuch ? "(only) " : "", (delta > 0) ? delta : -delta, ItemName (item))); SetQuant (cursct, com, in_sct - delta); SetLandQuant (land, com, at_land + delta); DrawSector (cursct); CensusLand (land); } static void CensusChangeArmy (land) Land land; { char * ans; PrintN (census_win, 0, AL_SY_ARMY, Fmt ("%26s", "")); ShowFreeArmys (); PrintN (census_win, 0, AL_SY_ARMY, "Add to army: "); ans = GetString (census_win, 14, AL_SY_ARMY, 1, "a-zA-Z~"); if (ans == (char *) 0 || interrupt || * ans == '\0') interrupt = False; else { FeedCommand (Fmt ("army %c %d", * ans, ld_nr (land)), PRINT); set_ld_army (land, * ans); Message (Fmt ("%s #%d added to army '%c'", LandName (land), ld_nr (land), * ans)); } CensusLand (land); } void CensusLayLand () { CenLine (LL_SY_TYPE - 1); CenPuts (0, LL_SY_OWNER, "Owner"); CenPuts (0, LL_SY_STATS, "Eff Mob Sh#"); CenPuts (0, LL_SY_STATS + 1, "Ran Ret Frt"); CenPuts (0, LL_SY_STATS + 2, "Att Def Tec"); CenPuts (0, LL_SY_STATS + 3, "Spy Xpl Fue"); CenPuts (0, LL_SY_STATS + 4, "Mis "); CenPuts (0, LL_SY_STATS + 5, "Ret "); CenLineText (LL_SY_COM - 1, "Land Commodities"); CenPuts (0, LL_SY_COM, "uw foo she"); CenPuts (0, LL_SY_COM + 1, "gun pet iro"); CenPuts (0, LL_SY_COM + 2, "bar dus oil"); CenPuts (0, LL_SY_COM + 3, "lcm hcm rad"); CenLine (LL_SY_BUT - 1); CenButton (LL_SX_SECTOR, LL_SY_BUT, "Sector", 6, False); CenLine (LL_SY_BUT + 1); CenButton (LL_SX_ARMY, LL_SY_BUT, "Army", 5, False); CenButton (LL_SX_NEXT, LL_SY_BUT, "Next", 4, False); } void LandCensus (land) Land land; { int i; Sector sct; curland = land; CenClr (LL_SY_TYPE); CenClr (LL_SY_OWNER); ClearCols (LL_SY_STATS, 5); ClearCols (LL_SY_COM, 4); if (land == (Land) 0) return; curarmy = ld_army (land); CenPutVal (0, LL_SY_TYPE, Fmt ("%s (#%d, %c)", LandName (land), ld_nr (land), ld_army (land))); if (! deity && ! ld_owned (land)) { CenPuts (0, LL_SY_OWNER, "Owner: "); CenPutVal (7, LL_SY_OWNER, CountryName (ld_owner (land))); } for (i = 0; i < LND_MAX; i ++) land_censenable [i] = False; if (! ld_owned (land) && ! deity) { /* * Enemy land */ DrawCensusButtons (land_functions, LND_MAX, land_censenable); for (i = 0; i < 5 ; i ++) CenClr (LL_SY_STATS + i); if (ld_time (land) != (time_t) 0) { CenPutVal (0, LL_SY_STATS, Fmt ("Old position: %d,%d", ld_oldx (land), ld_oldy (land))); CenPutVal (0, LL_SY_STATS + 1, Fmt ("Dated: %s", DateFmt (ld_time (land)))); CenPutVal (0, LL_SY_STATS + 2, Fmt ("Now: %s", DateFmt (time ((time_t *) 0)))); } else CenPutVal (0, LL_SY_STATS, "No previous position"); return; } CenPuts (0, LL_SY_STATS, "Eff Mob Sh#"); CenPuts (0, LL_SY_STATS + 1, "Ran Ret Frt"); CenPuts (0, LL_SY_STATS + 2, "Att Def Tec"); CenPuts (0, LL_SY_STATS + 3, "Spy Xpl Fue"); CenPuts (0, LL_SY_STATS + 4, "Mis "); CenPuts (0, LL_SY_STATS + 5, "Ret "); CenPutVal (4, LL_SY_STATS, Fmt ("%-3d%%", ld_eff (land))); CenPutShort (13, LL_SY_STATS, ld_mob (land)); if (PortableLand (land)) { if (ld_shipnr (land) >= 0) CenPutShort (22, LL_SY_STATS, ld_shipnr (land)); else CenPuts (22, LL_SY_STATS, " "); } else CenPutVal (22, LL_SY_STATS, "---"); CenPutShort (4, LL_SY_STATS + 1, ld_arad (land)); CenPutVal (13, LL_SY_STATS + 1, Fmt ("%-3d%%", ld_retr (land))); CenPutShort (22, LL_SY_STATS + 1, ld_fort (land)); CenPutVal (4, LL_SY_STATS + 2, Fmt ("%.1f", landtypes [ld_type (land)]. att)); CenPutVal (13, LL_SY_STATS + 2, Fmt ("%.1f", landtypes [ld_type (land)]. def)); CenPutShort (22, LL_SY_STATS + 2, ld_tech (land)); CenPutShort (4, LL_SY_STATS + 3, landtypes [ld_type (land)]. spy); if (landtypes [ld_type (land)]. xpl) CenPutLandHas (13, LL_SY_STATS + 3, ld_xpln (land), land, 'w'); else CenPutVal (13, LL_SY_STATS + 3, Fmt ("---")); CenPutLandHas (22, LL_SY_STATS + 3, ld_fuel (land), land, 'e'); CenPutVal (4, LL_SY_STATS + 4, ld_mission(land) == '\0' ? "None" : Fmt ("%c", ld_mission(land))); CenPutVal (4, LL_SY_STATS + 5, ld_retreat(land) == RETREAT_NONE ? "No " : Fmt ("to %d,%d on %s", land -> rtrtx, land -> rtrty, RtrtList (land -> rtrcond))); CenPutVal (4 , LL_SY_COM, "---"); /* can't carry uws */ CenPutLandHas (13, LL_SY_COM, ld_foo (land), land, 'f'); CenPutLandHas (22, LL_SY_COM, ld_she (land), land, 's'); CenPutLandHas (4, LL_SY_COM + 1, ld_gun (land), land, 'g'); CenPutLandHas (13, LL_SY_COM + 1, ld_pet (land), land, 'p'); CenPutLandHas (22, LL_SY_COM + 1, ld_iron (land), land, 'i'); CenPutLandHas (4, LL_SY_COM + 2, ld_bar (land), land, 'b'); CenPutLandHas (13, LL_SY_COM + 2, ld_dust (land), land, 'd'); CenPutLandHas (22, LL_SY_COM + 2, ld_oil (land), land, 'o'); CenPutLandHas (4, LL_SY_COM + 3, ld_lcm (land), land, 'l'); CenPutLandHas (13, LL_SY_COM + 3, ld_hcm (land), land, 'h'); CenPutLandHas (22, LL_SY_COM + 3, ld_rad (land), land, 'r'); land_censenable [LND_RADAR] = (landtypes [ld_type (land)]. rad > 0 && LandHas (land, L_RADAR)); land_censenable [LND_LOOK] = True; land_censenable [LND_MARCH] = ld_mob (land) > 0; land_censenable [LND_FIRE] = (LandMaxGuns (land) > 0) && (ld_eff (land) >= 60) && (ld_gun (land) > 0) && (ld_she (land) > 0); land_censenable [LND_MINE] = LandHas (land, L_ENGINEER) && (ld_eff (land) >= 60) && (ld_she (land) > 0); land_censenable [LND_SET] = trade; sct = LandSector (land); if (s_owned (sct)) { land_censenable [LND_SCRAP] = True; land_censenable [LND_SCUTTLE] = True; } land_censenable [LND_FORT] = ld_mob (land) > 0; land_censenable [LND_WORK] = (ld_mob (land) > 0 && LandHas (land, L_ENGINEER)); if (s_owned (sct) && s_des (sct) == '!' && s_eff (sct) > 59) land_censenable [LND_BUILD] = True; if (ld_shipnr (land) >=0) { for (i = 0; i < LND_MAX; i ++) land_censenable [i] = False; } land_censenable [LND_SUPPLY] = True; DrawCensusButtons (land_functions, LND_MAX, land_censenable); FlushWindow (census_win); Refresh (); } /* * Handle census button */ void LandCensusBut (x, y) int x, y; { char * ans; char comm; int i, num; if (y == LL_SY_BUT) { if (ButtonPressed (x, y, LL_SX_SECTOR, y, 6)) { curland = (Land) 0; Census (); } else if (ButtonPressed (x, y, LL_SX_ARMY, y, 5)) { CensusArmy (ld_army (curland)); } else if (ButtonPressed (x, y, LL_SX_NEXT, y, 4)) { curland = ld_nxtsct (curland); if (curland == (Land) 0) curland = s_fland (cursct); CensusLand (curland); } return; } /* * Armyadd */ if (y == LL_SY_TYPE) { CensusChangeArmy (curland); return; } i = WhichCensusButton (land_functions, LND_MAX, x, y); if (i != -1) { HandleCensusButtonForLand (i, curland); return; } /* * Load and unload */ if (! deity || ! DeityChangeLand (x, y, curland, &i)) { comm = WhichLandCommodity (& x, & y); if (comm != '\0') LoadUnload (curland, x, y, comm); } } void LRangeEdit (land) Land land; { int new_range; char * ans, * ptr, * ptri; CenPuts (4, LL_SY_STATS + 1, " "); ans = GetString (census_win, 4, LL_SY_STATS + 1, 3, GS_PNUMBER); if (ans == (char *) 0 || interrupt || * ans == 0) { Message ("Range edit cancelled"); return; } FeedEmpire (Fmt ("lrange %d %s", ld_nr (land), ans), PRINT); ptr = ReadEmpire (PRINT); ptri = index (ptr, '#'); if (sscanf (ptri, "#%*d reaction radius changed to %d", & new_range) != 1) { (void) WaitForPrompt (PRINT); Message ("Range edit failed"); return; } (void) WaitForPrompt (PRINT); Message (Fmt ("Range of unit #%d set to %d", ld_nr (land), new_range)); set_ld_arad (land, new_range); } void MoraleEdit (land) Land land; { int new_morale; char * ans, * ptr; CenPuts (13, LL_SY_STATS + 1, " "); ans = GetString (census_win, 13, LL_SY_STATS + 1, 3, GS_PNUMBER); if (ans == (char *) 0 || interrupt || * ans == 0) { Message ("Retreat edit cancelled"); return; } FeedEmpire (Fmt ("morale %d %s", ld_nr (land), ans), PRINT); ptr = ReadEmpire (PRINT); if (sscanf (ptr, "Unit %*d retreat percentage changed to %d", & new_morale) != 1) { (void) WaitForPrompt (PRINT); Message ("Retreat edit failed"); return; } (void) WaitForPrompt (PRINT); Message (Fmt ("Retreat percentage of unit #%d set to %d", ld_nr (land), new_morale)); set_ld_retr (land, new_morale); } xemp5.1-beta/lib/census/misc.c100444 12266 2116 11011 6023765002 14610 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/census/RCS/misc.c,v 5.2 1995/09/08 06:58:52 jpo Exp $ $Date: 1995/09/08 06:58:52 $ $Author: jpo $ $Id: misc.c,v 5.2 1995/09/08 06:58:52 jpo Exp $ $Locker: $ $Log: misc.c,v $ Revision 5.2 1995/09/08 06:58:52 jpo some const's * Revision 5.1 93/03/14 16:41:52 etienne * added/changed some things * * Revision 5.0 93/02/06 09:16:27 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.5 1993/02/06 07:48:54 greyhelm * Added gnumake mods to allow checkin and Checkout * * Revision 4.4 1993/02/06 04:21:26 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "sector.h" #include "nation.h" #include "census.h" #include "ship.h" /* * Output routines use by both versions */ void CenPutInt (x, y, i) int x, y, i; { CenPuts (x, y, " "); CenPutVal (x, y, Fmt ("%d", i)); } void CenPutUnknown (x, y) int x, y; { CenPutVal (x, y, "-?-"); } void CenPuts (x, y, str) int x, y; const char * str; { PrintN (census_win, x, y, str); } void CenClr (y) int y; { ClearLine (census_win, y); } void CenPutShort (x, y, s) int x, y; int s; { CenPuts (x, y, " "); CenPutVal (x, y, Fmt ("%d", s)); } void CenPutPosit (x, y, s) int x, y; int s; { if (s > 0) CenPutVal (x, y, Fmt ("%-4d", s)); else CenPutVal (x, y, " "); } void CenPutPos (x, y, s) int x, y; int s; { if (s > 0) CenPutVal (x, y, Fmt ("%d", s)); else CenPutVal (x, y, "---"); } #ifdef TERMC_VERSION /* * Output routines used by termcap */ void CenButton (x, y, str, len, enabled) int x, y; const char * str; int len; bool enabled; { PrintMarked (census_win, x, y, Fmt ("%-*s", len, str), enabled ? BOLD : NORMAL); } /* ARGSUSED */ void CenLine (y) int y; { /* Dummy function */ } /* ARGSUSED */ void CenLineText (y, str) int y; const char * str; { /* Dummy function */ } void CenPutVal (x, y, str) int x, y; const char * str; { PrintN (census_win, x, y, str); } bool ButtonPressed (x, y, sx, sy, len) int x, y, sx, sy, len; { return (y == sy && x >= sx && x <= (sx + len - 1)); } #else /* * Output routines used by X */ void CenButton (x, y, str, len, enabled) int x, y; const char * str; int len; bool enabled; { PrintMarked (census_win, x - 1, y, Fmt (" %-*s ", len, str), enabled ? BOLD : NORMAL); } void CenLine (y) int y; { DrawHorizontal (census_win, y); } void CenLineText (y, str) int y; const char * str; { DrawHorizontal (census_win, y); PrintN (census_win, (26 - strlen (str)) / 2, y, str); } void CenPutVal (x, y, str) int x, y; const char * str; { PrintB (census_win, x, y, str); } bool ButtonPressed (x, y, sx, sy, len) int x, y, sx, sy, len; { return (y == sy && x >= (sx - 1) && x <= (sx + len)); } #endif void ClearCols (starty, lines) int starty, lines; { int x; while ((-- lines) >= 0) for (x = 4; x <= 4 + 2 * 9; x += 9) CenPuts (x, starty + lines, " "); } void DrawCensusButtons (funcbuttons, max, enabled) struct s_funcbutton funcbuttons []; int max; bool enabled []; { int i; for (i = 0; i < max; i ++) CenButton (funcbuttons [i]. x, funcbuttons [i]. y, funcbuttons [i]. name, funcbuttons [i]. len, enabled [funcbuttons [i]. id]); } int WhichCensusButton (funcbuttons, max, x, y) struct s_funcbutton funcbuttons []; int max; int x, y; { int i; for (i = 0; i < max; i ++) if (ButtonPressed (x, y, funcbuttons [i]. x, funcbuttons [i]. y, funcbuttons [i]. len)) return funcbuttons [i].id; return -1; } void BindCensusMode (x, y, str) int x, y; char * str; { int new_mode; bool drawmap; if (str == (char *) 0) { ChangeCommandMode (x, y); } else { new_mode = -1; drawmap = (command_mode == PLAN_MODE); if (strcmp (str, "(normal)") == 0) new_mode = NORMAL_MODE; else if (strcmp (str, "(ship)") == 0) new_mode = SHIP_MODE; else if (strcmp (str, "(fleet)") == 0) new_mode = FLEET_MODE; else if (strcmp (str, "(plane)") == 0) new_mode = PLANE_MODE; else if (strcmp (str, "(wing)") == 0) new_mode = WING_MODE; else if (strcmp (str, "(ferry)") == 0) new_mode = FERRY_LIST; else if (strcmp (str, "(nuke)") == 0) new_mode = NUKE_MODE; else if (strcmp (str, "(info)") == 0) new_mode = INFO_MODE; else if (strcmp (str, "(plan)") == 0) new_mode = PLAN_MODE; if (new_mode == -1) { Message ("Illegal argument to 'census mode' binding"); Bell (); return; } command_mode = new_mode; Census (); if (new_mode == PLAN_MODE || drawmap) DrawMap (); } } xemp5.1-beta/lib/census/nuke.c100444 12266 2116 7333 6023765002 14613 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/census/RCS/nuke.c,v 5.1 1993/03/14 16:41:54 etienne Exp $ $Date: 1993/03/14 16:41:54 $ $Author: etienne $ $Id: nuke.c,v 5.1 1993/03/14 16:41:54 etienne Exp $ $Locker: $ $Log: nuke.c,v $ Revision 5.1 1993/03/14 16:41:54 etienne * Revision 5.0 93/02/06 09:16:27 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.5 1993/02/06 07:48:54 greyhelm * Added gnumake mods to allow checkin and Checkout * * Revision 4.4 1993/02/06 04:21:26 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "census.h" #include "nuke.h" #include "sector.h" #define NCM_BUILD 0 #define NCM_TRANSPORT 1 #define NCM_MAX 2 #ifdef X_VERSION static struct s_funcbutton funcbuttons [] = { { NCM_BUILD, "Build", 2, NKL_SY_FUNCBUT, 5 }, { NCM_TRANSPORT, "Transport", 10, NKL_SY_FUNCBUT, 9 } }; #else /* TERMC_VERSION */ static struct s_funcbutton funcbuttons [] = { { NCM_BUILD, "Build", 3, NKL_SY_FUNCBUT, 5 }, { NCM_TRANSPORT, "Transport", 10, NKL_SY_FUNCBUT, 9 } }; #endif /* VERSION */ static bool cens_enable [NCM_MAX]; static int cennuketype[NKL_MAX_NUKES], cennukequant[NKL_MAX_NUKES]; static void HandleNukeCensusButton (i) int i; { if (! cens_enable [i]) return; switch (i) { case NCM_BUILD: BuildNuke (10, 10); break; case NCM_TRANSPORT: TransportNuke(10, 10, Fmt ("%d", sp_nr (curnuke))); break; } } void CensusLayNuke () { CenLine (NKL_SY_NR - 1); CenPuts (0, NKL_SY_NR, "Nuke #"); CenLine (NKL_SY_NR + 1); CenLine (NKL_SY_BUT - 1); if (s_shi (cursct) > 0) CenButton (NKL_SX_SHIP, NKL_SY_BUT, "Ship", 4,False); else CenButton (NKL_SX_SHIP, NKL_SY_BUT, "----", 4,False); if (s_pla (cursct) > 0) CenButton (NKL_SX_PLANE, NKL_SY_BUT, "Plane", 5, False); else CenButton (NKL_SX_PLANE, NKL_SY_BUT, "-----", 5, False); CenButton (NKL_SX_SECTOR, NKL_SY_BUT, "Sector", 6, False); CenLine (NKL_SY_BUT + 1); } void NukeCensus (stockp) Stockp stockp; { register int i, j, k; curnuke = stockp; CenClr (NKL_SY_NR); CenPuts (0, NKL_SY_NR, "Nuke #"); CenPutShort (6, NKL_SY_NR, sp_nr (stockp)); if (deity) CenPutVal (10, NKL_SY_NR, Fmt ("(%-.13s)", CountryName (sp_owner (stockp)))); for (i = 0; i < NKL_MAX_NUKES; i ++) CenClr (NKL_SY_NUKES + i); cennuketype[i] = cennukequant[i] = 0; k = 0; for (i = 0; i < nr_nuke_types; i ++) { j = sp_nukamt (stockp, i); if (j > 0) { if (curnuketype < 0) curnuketype = i; cennuketype[k] = i; cennukequant[k] = j; CenPutShort (0, NKL_SY_NUKES + k, j); if (i == curnuketype) CenPutVal (4, NKL_SY_NUKES + k, nt_name (i)); else CenPuts (4, NKL_SY_NUKES + k, nt_name (i)); k ++; } } if (s_des (cursct) == 'n' && (deity || s_eff (cursct) >= 60)) cens_enable [NCM_BUILD] = True; else cens_enable [NCM_BUILD] = False; cens_enable [NCM_TRANSPORT] = True; DrawCensusButtons (funcbuttons, NCM_MAX, cens_enable); FlushWindow (census_win); Refresh (); } void NukeCensusButton (x, y) int x, y; { int i; if (y == NKL_SY_BUT) { if (ButtonPressed (x, y, NKL_SX_SHIP, y, 4)) { if (s_fship (cursct) != (Ship) 0) CensusShip (s_fship (cursct)); } else if (ButtonPressed (x, y, NKL_SX_PLANE, y, 5)) { if (s_fplane (cursct) != (Plane) 0) CensusPlane (s_fplane (cursct)); } else if (ButtonPressed (x, y, NKL_SX_SECTOR, y, 6)) { CensusSct (cursct); } return; } if (y >= NKL_SY_NUKES && y < NKL_SY_NUKES + NKL_MAX_NUKES) { i = y - NKL_SY_NUKES; if (cennukequant[i] != 0) { curnuketype = cennuketype[i]; NukeCensus (curnuke); } return; } i = WhichCensusButton (funcbuttons, NCM_MAX, x, y); if (i != -1) HandleNukeCensusButton (i); } xemp5.1-beta/lib/census/plane.c100444 12266 2116 22464 6023765003 14773 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/census/RCS/plane.c,v 5.2 1995/09/08 06:59:03 jpo Exp $ $Date: 1995/09/08 06:59:03 $ $Author: jpo $ $Id: plane.c,v 5.2 1995/09/08 06:59:03 jpo Exp $ $Locker: $ $Log: plane.c,v $ Revision 5.2 1995/09/08 06:59:03 jpo Added missions. * Revision 5.1 93/03/14 16:41:57 etienne * * * Revision 5.0 93/02/06 09:16:27 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.5 1993/02/06 07:48:54 greyhelm * Added gnumake mods to allow checkin and Checkout * * Revision 4.4 1993/02/06 04:21:26 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "census.h" #include "sector.h" #include "plane.h" #include "nuke.h" #include "version.h" static bool plane_censenable [PCM_MAX]; #ifdef X_VERSION struct s_funcbutton plane_functions [] = { { PCM_BOMB, "Bomb", 2, PL_SY_FUNCBUT, 6 }, { PCM_TRANSPORT,"Transp", 10, PL_SY_FUNCBUT, 7 }, { PCM_RECON, "Recon", 19, PL_SY_FUNCBUT, 5 }, { PCM_FLY, "Fly", 2, PL_SY_FUNCBUT + 1, 6 }, { PCM_LAUNCH, "Launch", 10, PL_SY_FUNCBUT + 1, 7 }, { PCM_SCRAP, "Scrap", 19, PL_SY_FUNCBUT + 1, 5 }, { PCM_DROP, "Drop", 2, PL_SY_FUNCBUT + 2, 6 }, { PCM_HARDEN, "Harden", 10, PL_SY_FUNCBUT + 2, 7 }, { PCM_PARADROP, "Parad", 19, PL_SY_FUNCBUT + 2, 5 }, { PCM_ARM, "Arm", 2, PL_SY_FUNCBUT + 3, 6 }, { PCM_SET, "Set", 10, PL_SY_FUNCBUT + 3, 7 }, { PCM_BUILD, "Build", 19, PL_SY_FUNCBUT + 3, 5 } }; #else struct s_funcbutton plane_functions [] = { { PCM_BOMB, "Bomb", 3, PL_SY_FUNCBUT, 4 }, { PCM_TRANSPORT,"Transp", 10, PL_SY_FUNCBUT, 6 }, { PCM_RECON, "Recon", 18, PL_SY_FUNCBUT, 5 }, { PCM_FLY, "Fly", 3, PL_SY_FUNCBUT + 1, 4 }, { PCM_LAUNCH, "Launch", 10, PL_SY_FUNCBUT + 1, 6 }, { PCM_SCRAP, "Scrap", 18, PL_SY_FUNCBUT + 1, 5 }, { PCM_DROP, "Drop", 3, PL_SY_FUNCBUT + 2, 4 }, { PCM_HARDEN, "Harden", 10, PL_SY_FUNCBUT + 2, 6 }, { PCM_PARADROP, "Parad", 18, PL_SY_FUNCBUT + 2, 5 }, { PCM_ARM, "Arm", 3, PL_SY_FUNCBUT + 3, 4 }, { PCM_SET, "Set", 10, PL_SY_FUNCBUT + 3, 6 }, { PCM_BUILD, "Build", 18, PL_SY_FUNCBUT + 3, 5 } }; #endif static void HandleCensusButtonForPlane (button, plane) int button; Plane plane; { if (! plane_censenable [button]) return; UnmarkAllPlanes (); switch (button) { case PCM_BOMB: DoBomb (10, 10, cursct, Fmt ("%d", pl_nr (plane)), (char *) 0, (char *) 0, (char *) 0, False); break; case PCM_TRANSPORT: Transport (10, 10, Fmt ("%d", pl_nr (plane))); break; case PCM_PARADROP: Paradrop (10, 10, Fmt ("%d", pl_nr (plane))); break; case PCM_DROP: DoDropOff (10, 10, Fmt ("%d", pl_nr (plane)), (char *) 0, (char *) 0, (char *) 0); break; case PCM_FLY: DoFly (10, 10, Fmt ("%d", pl_nr (plane)), (char *) 0, (char *) 0, (char *) 0); break; case PCM_SET: SetPlane (plane, (int *) 0); break; case PCM_SCRAP: ScrapPlane (Fmt ("%d", pl_nr (plane))); break; case PCM_HARDEN: Harden (Fmt ("%d", pl_nr (plane))); break; case PCM_RECON: Recon (10, 10, Fmt ("%d", pl_nr (plane))); break; case PCM_LAUNCH: DoLaunch (plane); break; case PCM_ARM: Arm (10, 10, Fmt ("%d", pl_nr (plane))); break; case PCM_BUILD: BuildPlane (10, 10); break; } } static void CensusChangeWing (plane) Plane plane; { char * ans; CenClr (PL_SY_WING); CenPuts (0, PL_SY_WING, "Add to wing: "); ShowFreeWings (); ans = GetString (census_win, 13, PL_SY_WING, 1, "a-zA-Z~"); if (ans == (char *) 0 || interrupt || * ans == '\0') interrupt = False; else { FeedCommand (Fmt ("wingadd %c %d", * ans, pl_nr (plane)), PRINT); set_pl_wing (plane, * ans); } PlaneCensus (plane); } void CensusLayPlane () { CenLine (PL_SY_NAME - 1); CenPuts (0, PL_SY_POS, "Pos:"); CenPuts (0, PL_SY_WING, "Wing:"); if (deity) CenPuts (0, PL_SY_NUMBER, "Nr/Country: "); else CenPuts (0, PL_SY_NUMBER, "Number: "); CenLine (PL_SY_STATS - 1); CenPuts (0, PL_SY_STATS, "Eff Mob Sh#"); CenPuts (0, PL_SY_STATS + 1, "Tec Ran Loa"); CenPuts (0, PL_SY_STATS + 2, "Att Def Har"); CenPuts (0, PL_SY_STATS + 3, "Nuk"); if (land_units) CenPuts (9, PL_SY_STATS + 3, "Mis Ret"); CenLine (PL_SY_STATS + 4); CenButton (PL_SX_SECTOR, PL_SY_BUT, "Sector", 6, False); CenButton (PL_SX_WING, PL_SY_BUT, "Wing", 4, False); CenButton (PL_SX_NEXT, PL_SY_BUT, "Next", 4, False); CenLine (PL_SY_BUT + 1); } void PlaneCensus (plane) Plane plane; { int maxl; int i; curplane = plane; CenClr (PL_SY_NAME); CenPutVal (0, PL_SY_NAME, PlaneName (plane)); CenPutVal (5, PL_SY_POS, Fmt ("%d,%d ", pl_xcd (plane), pl_ycd (plane))); if (deity) CenPutVal (12, PL_SY_NUMBER, Fmt ("%d/%s", pl_nr (plane), CountryName (pl_owner (plane)))); else CenPutShort (8, PL_SY_NUMBER, pl_nr (plane)); CenClr (PL_SY_WING); CenPuts (0, PL_SY_WING, "Wing: "); CenPutVal (6, PL_SY_WING, Fmt ("%c", pl_wing (plane))); if (pl_wing (plane) != '~' && ! WingColocated (pl_wing (plane))) CenPutVal (8, PL_SY_WING, "(Not colocated)"); CenPutVal (4, PL_SY_STATS, Fmt ("%-3d%%", pl_eff (plane))); CenPutShort (13, PL_SY_STATS, pl_mob (plane)); if (PortablePlane (plane)) { if (pl_shipnr (plane) >= 0) CenPutShort (22, PL_SY_STATS, pl_shipnr (plane)); else CenPuts (22, PL_SY_STATS, " "); } else CenPutVal (22, PL_SY_STATS, "---"); CenPutShort (4, PL_SY_STATS + 1, pl_tech (plane)); CenPutShort (13, PL_SY_STATS + 1, pl_range (plane)); CenPutPos (22, PL_SY_STATS + 1, planetypes [pl_type (plane)]. load); CenPutShort (4, PL_SY_STATS + 2, pl_att (plane)); CenPutShort (13, PL_SY_STATS + 2, pl_def (plane)); CenPutShort (22, PL_SY_STATS + 2, pl_hard (plane)); if (pl_launc (plane)) CenPutVal (9, PL_SY_STATS + 3, "Launched"); else if(land_units) CenPutVal (13, PL_SY_STATS + 3, Fmt (pl_mission(plane) == '\0' ? "None" : "%c", pl_mission(plane))); else CenPuts (9, PL_SY_STATS + 3, " "); if (pl_sell (plane)) CenPutVal (18, PL_SY_STATS + 3, "Set"); else CenPuts (18, PL_SY_STATS + 3, " "); if (pl_nukeamt (plane)) { CenPutShort (4, PL_SY_STATS + 3, pl_nukeamt(plane)); CenPutVal (9, PL_SY_STATS + 3, nt_name(pl_nuketype(plane))); } else { CenPuts (4, PL_SY_STATS + 3, " "); } for (i = 0; i < PCM_MAX; i ++) plane_censenable [i] = False; plane_censenable [PCM_SET] = market; plane_censenable [PCM_TRANSPORT] = True; if (s_des (cursct) == '*' && (deity || s_eff (cursct) >= 60)) plane_censenable [PCM_BUILD] = True; /* can launch missile from any sector */ if ((PlaneHas (plane, P_M) && !PlaneHas (plane, P_F)) || PlaneHas (plane, P_O)) plane_censenable [PCM_LAUNCH] = True; if (! PlaneHas (plane, P_V) && s_des (cursct) != '.' && (s_des (cursct) != '*' || s_eff (cursct) < 60)) { DrawCensusButtons (plane_functions, PCM_MAX, plane_censenable); return; } if (pl_mob (plane) > 0) { if (! PlaneHas (plane, P_M) && ! PlaneHas (plane, P_O)) plane_censenable [PCM_FLY] = True; if (PlaneHas (plane, P_B) || PlaneHas (plane, P_T)) plane_censenable [PCM_BOMB] = True; /* You can Recon with any plane, spy planes just give more info if (PlaneHas (plane, P_S)) */ if (! PlaneHas (plane, P_M) && ! PlaneHas (plane, P_O)) plane_censenable [PCM_RECON] = True; if (PlaneHas (plane, P_C)) plane_censenable [PCM_DROP] = plane_censenable [PCM_PARADROP] = True; } if (s_des (cursct) == '*' && s_eff (cursct) >= 60) { plane_censenable [PCM_SCRAP] = True; plane_censenable [PCM_HARDEN] = PlaneHas (plane, P_M) & !PlaneHas (plane, P_F); } if (s_nuk (cursct) != 0) plane_censenable [PCM_ARM] = True; DrawCensusButtons (plane_functions, PCM_MAX, plane_censenable); } static void RangeEdit (plane) Plane plane; { int new_range; char * ans, * ptr; CenPuts (13, PL_SY_STATS + 1, " "); ans = GetString (census_win, 13, PL_SY_STATS + 1, 3, GS_PNUMBER); if (ans == (char *) 0 || interrupt || * ans == 0) { Message ("Range edit cancelled"); return; } FeedEmpire (Fmt ("range %d %s", pl_nr (plane), ans), PRINT); ptr = ReadEmpire (PRINT); if (sscanf (ptr, "Plane %*d range changed to %d", & new_range) != 1) { (void) WaitForPrompt (PRINT); Message ("Range edit failed"); return; } (void) WaitForPrompt (PRINT); Message (Fmt ("Range of plane #%d set to %d", pl_nr (plane), new_range)); set_pl_range (plane, new_range); } void PlaneCensusBut (x, y) int x, y; { Plane next; int i; if (y == PL_SY_WING) { CensusChangeWing (curplane); FlushWindow (census_win); Refresh (); return; } if (y == PL_SY_STATS + 1 && x >= 10 && x <= 16) { if (! KSUOption (RANGEEDIT)) { KSUNotDefined (RANGEEDIT); return; } RangeEdit (curplane); CensusPlane (curplane); return; } if (land_units && y == PL_SY_STATS + 3 && x >= 10 && x <= 16) { PMission (curplane); CensusPlane (curplane); return; } if (y == PL_SY_BUT) { if (ButtonPressed (x, y, PL_SX_SECTOR, y, 6)) CensusSct (PlaneSector (curplane)); else if (ButtonPressed (x, y, PL_SX_WING, y, 4)) CensusWing (pl_wing (curplane)); else if (ButtonPressed (x, y, PL_SX_NEXT, y, 4)) { next = pl_nxtsct (curplane); if (next == (Plane) 0) next = s_fplane (PlaneSector (curplane)); curplane = next; CensusPlane (curplane); } return; } i = WhichCensusButton (plane_functions, PCM_MAX, x, y); if (i >= 0) { HandleCensusButtonForPlane (i, curplane); return; } } xemp5.1-beta/lib/census/sector.c100444 12266 2116 31407 6023765003 15170 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/census/RCS/sector.c,v 5.1 1993/03/14 16:42:00 etienne Exp $ $Date: 1993/03/14 16:42:00 $ $Author: etienne $ $Id: sector.c,v 5.1 1993/03/14 16:42:00 etienne Exp $ $Locker: $ $Log: sector.c,v $ Revision 5.1 1993/03/14 16:42:00 etienne * Revision 5.0 93/02/06 09:16:27 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.5 1993/02/06 07:48:54 greyhelm * Added gnumake mods to allow checkin and Checkout * * Revision 4.4 1993/02/06 04:21:26 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "nation.h" #include "census.h" #include "var.h" #include "ship.h" #include "sector.h" #include "production.h" #include "version.h" static char * comm_sname [12] = { "uw ", "foo", "she", "gun", "pet", "iro", "bar", "dus", "oil", "lcm", "hcm", "rad" }; extern char comm_chars []; /* * Display functions */ static void CenDelivery (y, cut, dir) int y; int cut; char dir; { CenPuts (16, y, " "); if (dir != '\0' && dir != '.') { CenPutShort (16, y, cut); DrawArrow (census_win, 22, y, dir); } } static void CenCom (y, com, thr, cut, dir) int y; int com, thr, cut; char dir; { CenPutPosit (6, y, com); CenPutPosit (11, y, thr); CenDelivery (y, cut, dir); } void CensusTop (sct) Sector sct; { CenPutVal (4, NL_SY_SCT, Fmt ("%-22s", CrdStr (sct))); CenPutVal (4, NL_SY_SCT + 1, Fmt ("%-22s", DesignName (s_des (sct)))); if (KNOW_ALL (sct) && ! deity && s_occ (sct) == '*') CenPutVal (23, NL_SY_SCT + 1, "[*]"); ClearCols (NL_SY_CENSUS, 2); if (KNOW_ALL (sct) || KNOW_LOO_ONLY (sct) || KNOW_SPY_ONLY (sct)) { CenPutVal (4, NL_SY_CENSUS, Fmt ("%-3d%%", s_eff (sct))); CenPutShort (4, NL_SY_CENSUS + 1, s_civ (sct)); CenPutShort (13, NL_SY_CENSUS + 1, s_mil (sct)); if (deity || ! s_owned (sct)) if (KNOW_OWN (sct)) CenPutVal (16, NL_SY_SCT, Fmt ("%.9s", CountryName (s_owner (sct)))); else if (KNOW_ALL (sct) && s_des (sct) != s_nds (sct)) CenPutVal (16, NL_SY_SCT + 1, Fmt ("(%c)", s_nds (sct))); } else if (s_des (sct) != '.') CenPutVal (16, NL_SY_SCT, "Own Unkn "); if (KNOW_ALL (sct)) { CenPutShort (13, NL_SY_CENSUS, s_mob (sct)); CenPutShort (22, NL_SY_CENSUS, s_ava (sct)); CenPutVal (22, NL_SY_CENSUS + 1, Fmt ("%-3d%%", s_wor (sct))); } } void CensusResources (sct) Sector sct; { CenClr (NL_SY_RESOUR + 1); if (s_des (sct) == '.' || s_des (sct) == '=') { CenClr (NL_SY_RESOUR + 1); CenPuts (0, NL_SY_RESOUR + 1, "# mines:"); if (s_mines (sct) == 0) CenPutVal (9, NL_SY_RESOUR + 1, "None"); else if (s_mines (sct) > 127) CenPutVal (9, NL_SY_RESOUR + 1, Fmt ("? (%d found)", s_mines (sct) - 127)); else CenPutShort (9, NL_SY_RESOUR + 1, s_mines (sct)); } else { CenPuts (0, NL_SY_RESOUR + 1, "Gol Ura"); if (KNOW_RES (sct)) { CenPutShort (4, NL_SY_RESOUR + 1, s_gol (sct)); CenPutShort (13, NL_SY_RESOUR + 1, s_ura (sct)); } else { CenPuts (4, NL_SY_RESOUR, " "); CenPuts (13, NL_SY_RESOUR, " "); } } if (KNOW_FER (sct)) CenPutShort (22, NL_SY_RESOUR, s_fer (sct)); else CenPuts (22, NL_SY_RESOUR, " "); if (KNOW_OIL (sct)) CenPutShort (13, NL_SY_RESOUR, s_oil (sct)); else CenPuts (13, NL_SY_RESOUR, " "); if (KNOW_RES (sct)) CenPutShort (4, NL_SY_RESOUR, s_min (sct)); else CenPuts (4, NL_SY_RESOUR, " "); } void CensusCrafts (sct) Sector sct; { if (land_units) { CenPutShort (2, NL_SY_CRAFTS, s_shi (sct)); CenPutShort (9, NL_SY_CRAFTS, s_pla (sct)); CenPutShort (16, NL_SY_CRAFTS, s_land (sct)); CenPutShort (23, NL_SY_CRAFTS, s_nuk (sct)); } else { CenPutShort (4, NL_SY_CRAFTS, s_shi (sct)); CenPutShort (13, NL_SY_CRAFTS, s_pla (sct)); CenPutShort (22, NL_SY_CRAFTS, s_nuk (sct)); } } void CensusCommodities (sct) Sector sct; { int i; Sector wareh; if (KNOW_ALL (sct)) { CenCom (NL_SY_COMM + 1, q_uw (sct), t_uw (sct), c_uw (sct), d_uw (sct)); CenCom (NL_SY_COMM + 2, q_foo (sct), t_foo (sct), c_foo(sct), d_foo(sct)); CenCom (NL_SY_COMM + 3, q_she (sct), t_she (sct), c_she(sct), d_she(sct)); CenCom (NL_SY_COMM + 4, q_gun (sct), t_gun (sct), c_gun(sct), d_gun(sct)); CenCom (NL_SY_COMM + 5, q_pet (sct), t_pet (sct), c_pet(sct), d_pet(sct)); CenCom (NL_SY_COMM + 6, q_iro (sct), t_iro (sct), c_iro(sct), d_iro(sct)); CenCom (NL_SY_COMM + 7, q_bar (sct), t_bar (sct), c_bar(sct), d_bar(sct)); CenCom (NL_SY_COMM + 8, q_dus (sct), t_dus (sct), c_dus(sct), d_dus(sct)); CenCom (NL_SY_COMM + 9, q_oil (sct), t_oil (sct), c_oil(sct), d_oil(sct)); CenCom (NL_SY_COMM + 10, q_lcm (sct), t_lcm (sct), c_lcm(sct), d_lcm(sct)); CenCom (NL_SY_COMM + 11, q_hcm (sct), t_hcm (sct), c_hcm(sct), d_hcm(sct)); CenCom (NL_SY_COMM + 12, q_rad (sct), t_rad (sct), c_rad(sct), d_rad(sct)); CenClr (NL_SY_DISTR); if ((land_units && !(s_dxc (sct) == s_xcd (sct) && s_dyc (sct) == s_ycd (sct))) || (!land_units && s_pat (sct) != (char *) 0)) { wareh = World (s_dxc (sct), s_dyc (sct), S_DESIG); CenPuts (0, NL_SY_DISTR, "Distribute to: "); CenPutVal (14, NL_SY_DISTR, Fmt ("%d,%d (%c)", s_dxc (sct), s_dyc (sct), s_owned (wareh) ? s_nds (wareh) : s_des (wareh))); } else CenPuts (0, NL_SY_DISTR, "No distribution path"); } else { for (i = 0; i < 12; i ++) CenPuts (4, i + 1 + NL_SY_COMM, " "); CenClr (NL_SY_DISTR); if (KNOW_SPY (sct)) { CenCom (NL_SY_COMM + 2, q_foo (sct), 0, 0, '.'); CenCom (NL_SY_COMM + 3, q_she (sct), 0, 0, '.'); CenCom (NL_SY_COMM + 4, q_gun (sct), 0, 0, '.'); CenCom (NL_SY_COMM + 5, q_pet (sct), 0, 0, '.'); CenCom (NL_SY_COMM + 6, q_iro (sct), 0, 0, '.'); } } } static void CensusButtons (sct) Sector sct; { if(!land_units) { if (s_shi (sct) > 0) CenButton (NL_SX_SHIP, NL_SY_BUT, "Ship", 4,False); else CenButton (NL_SX_SHIP, NL_SY_BUT, "----", 4,False); if (s_pla (sct) > 0) CenButton (NL_SX_PLANE, NL_SY_BUT, "Plane", 5, False); else CenButton (NL_SX_PLANE, NL_SY_BUT, "-----", 5, False); if (s_nuk (sct) > 0) CenButton (NL_SX_NUKE, NL_SY_BUT, "Nuke", 4, False); else CenButton (NL_SX_NUKE, NL_SY_BUT, "----", 4, False); } else { if (s_shi (sct) > 0) CenButton (NL_SX_SHIP3, NL_SY_BUT, "Shp", 3,False); else CenButton (NL_SX_SHIP3, NL_SY_BUT, "---", 3,False); if (s_pla (sct) > 0) CenButton (NL_SX_PLANE3, NL_SY_BUT, "Pln", 3, False); else CenButton (NL_SX_PLANE3, NL_SY_BUT, "---", 3, False); if (s_land (sct) > 0) CenButton (NL_SX_LAND3, NL_SY_BUT, "Lnd", 3, False); else CenButton (NL_SX_LAND3, NL_SY_BUT, "---", 3, False); if (s_nuk (sct) > 0) CenButton (NL_SX_NUKE3, NL_SY_BUT, "Nuk", 3, False); else CenButton (NL_SX_NUKE3, NL_SY_BUT, "---", 3, False); } #ifdef TERMC_VERSION CenButton (NL_SX_INFO, NL_SY_BUT, "Info", 4, False); #endif /* TERMC_VERSION */ } void CensusAddit (sct) Sector sct; { int i; time_t time (); double plague; double happy; int x, y; extern int capitol_x, capitol_y; int line; for (i = 0; i < NL_ADDIT_LINES; i ++) CenClr (NL_SY_ADDIT + i); #ifdef TERMC_VERSION PrintN (census_win, NL_SY_ADDIT, "-------Information.-------"); y = NL_SY_ADDIT + 1; #else y = NL_SY_ADDIT; #endif if (! KNOW_ALL (sct)) { CenPuts (0, y, "Info:"); x = 6; if (KNOW_SPY_ONLY (sct)) { CenPutVal (x, y, "Spy "); x += 4; } else if (KNOW_LOO_ONLY (sct)) { CenPutVal (x, y, "Lookout "); x += 8; } if (KNOW_RES (sct)) CenPutVal (x, y, "Resources"); else if (KNOW_OIL (sct)) CenPutVal (x, y, "Oil Resources"); else if (KNOW_FER (sct)) CenPutVal (x, y, "Fertility"); if ((KNOW_LOO_ONLY (sct)) || (KNOW_SPY_ONLY (sct))) { CenPutVal (0, y + 1, Fmt ("Dated : %s", DateFmt (s_time (sct)))); CenPutVal (0, y + 2, Fmt ("Now : %s", DateFmt (time ((time_t *) 0)))); } } else { if (! no_food) CenPutVal (0, y ++, Fmt ( "Food needed: %.1f", (double) (s_civ (sct) + s_mil (sct) + q_uw (sct)) * etu_per_update * eatrate)); line = y; if (EMPOption(NO_PLAGUE)) plague = 0; else plague = PlagueChance (sct); if (PlagueStage(sct) == PLG_INFECT || PlagueStage(sct) == PLG_INCUBATE) CenPutVal (0, line ++, "Plague infecting sector"); else if (PlagueStage(sct) == PLG_DYING) CenPutVal (0, line ++, "Plague killing people"); else if (plague > 0.0) CenPutVal (0, line ++, Fmt ( "Plague chance: %.4f", plague)); if (HappinesState(sct) == HP_GUERRILLAS) CenPutVal (0, line ++, "Guerrila warfare"); else if (HappinesState(sct) == HP_TERRORISTS) CenPutVal (0, line ++, "Terrorists"); else if (HappinesState(sct) == HP_REVOLUTIONARIES) CenPutVal (0, line ++, "Revolutionaries"); else if (HappinesState(sct) == HP_UNREST) CenPutVal (0, line ++, "Civil unrest"); CensusProduce (sct, line); } #ifdef TERMC_VERSION CenButton (AL_SX_SECTOR, AL_SY_BUT, "Sector", 6, False); #endif TERMC_VERSION } #ifdef TERMC_VERSION void AdditCensusBut (x, y) int x, y; { if (ButtonPressed (x, y, AL_SX_SECTOR, AL_SY_BUT, 6)) { CensusSct (cursct); return; } } #endif TERMC_VERSION void CensusLayNormal () { int i; #ifdef TERMC_VERSION CenPuts (0, NL_SY_RESOUR, "Min Oil Fer"); CenPuts (0, NL_SY_RESOUR + 1, "Gol Ura"); CenPuts (0, NL_SY_CRAFTS, "Shi Pla Nuk"); #endif /* TERMC_VERSION */ CenPuts (0, NL_SY_COMM, " Com Thr Cut Dir"); for (i = 0; i < 12; i ++) CenPuts (0, NL_SY_COMM + 1 + i, comm_sname [i]); CenLine (NL_SY_BUT - 1); #ifdef TERMC_VERSION CenButton (NL_SX_INFO, NL_SY_BUT, "Info", 4, False); #endif /* TERMC_VERSION */ CenLine (NL_SY_BUT + 1); } void SectorCensus (sct) Sector sct; { #ifdef TERMC_VERSION CensusResources (sct); CensusCrafts (sct); #endif /* TERMC_VERSION */ CensusCommodities (sct); CensusButtons (sct); #ifdef X_VERSION CensusAddit (sct); #endif X_VERSION } void SectorCensusBut (x, y) int x, y; { bool s_cut, s_thresh; char * ans; int new; char ch; if (y == NL_SY_DISTR) { if (! s_owned (cursct) && ! deity) { Message ("You don't own that sector!"); Bell (); } else { Distribute (cursct, 10, 10); CensusSct (cursct); } return; } if (y == NL_SY_BUT && !land_units) { if (ButtonPressed (x, y, NL_SX_SHIP, y, 4)) { if (s_fship (cursct) != (Ship) 0) CensusShip (s_fship (cursct)); } else if (ButtonPressed (x, y, NL_SX_PLANE, y, 5)) { if (s_fplane (cursct) != (Plane) 0) CensusPlane (s_fplane (cursct)); } else if (ButtonPressed (x, y, NL_SX_NUKE, y, 4)) { if (s_stock (cursct) != (Stockp) 0) CensusNuke (s_stock (cursct)); } #ifdef TERMC_VERSION else if (ButtonPressed (x, y, NL_SX_INFO, y, 4)) CensusInfo (); #endif /* TERMC_VERSION */ return; } if (y == NL_SY_BUT && land_units) { if (ButtonPressed (x, y, NL_SX_SHIP3, y, 3)) { if (s_fship (cursct) != (Ship) 0) CensusShip (s_fship (cursct)); } else if (ButtonPressed (x, y, NL_SX_PLANE3, y, 3)) { if (s_fplane (cursct) != (Plane) 0) CensusPlane (s_fplane (cursct)); } else if (ButtonPressed (x, y, NL_SX_NUKE3, y, 3)) { if (s_stock (cursct) != (Stockp) 0) CensusNuke (s_stock (cursct)); } else if (ButtonPressed (x, y, NL_SX_LAND3, y, 3)) { if (s_fland (cursct) != (Land) 0) CensusLand (s_fland (cursct)); } #ifdef TERMC_VERSION else if (ButtonPressed (x, y, NL_SX_INFO, y, 4)) CensusInfo (); #endif /* TERMC_VERSION */ return ; } if (! s_owned (cursct) && ! deity) return; if (y > NL_SY_COMM && y <= NL_SY_COMM + 12) { s_thresh = False; s_cut = False; if (x >= 11 && x <= 14) { s_thresh = True; x = 11; } else if (x >= 16 && x <= 19) { s_cut = True; x = 16; } if (! s_thresh && ! s_cut) return; PrintN (census_win, x, y, " "); ans = GetString (census_win, x, y, 4, GS_PNUMBER); if (ans == (char *) 0 || interrupt || * ans == '\0') { Message (Fmt ("Set %s cancelled", s_cut ? "cutoff" : "threshold")); Census (); return; } new = atoi (ans); ch = comm_chars [y - NL_SY_COMM - 1]; if (s_cut) { SetDelAgainCutoff (ch, new); SetCutoff (cursct, ch, new); FeedCommand (Fmt ("deliver %c %s +%d", ch, CrdStr (cursct), new), PRINT); } else { SetThreshold (cursct, ch, new); FeedCommand (Fmt ("threshold %c %s %d", ch, CrdStr (cursct), new), PRINT); } (void) WaitForPrompt (PRINT); DrawSector (cursct); Census (); return; } } xemp5.1-beta/lib/census/ship.c100444 12266 2116 46222 6036423312 14633 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/census/RCS/ship.c,v 5.5 1995/09/28 08:25:49 jpo Exp $ $Date: 1995/09/28 08:25:49 $ $Author: jpo $ $Id: ship.c,v 5.5 1995/09/28 08:25:49 jpo Exp $ $Locker: $ $Log: ship.c,v $ Revision 5.5 1995/09/28 08:25:49 jpo Change load syntax slightly. Revision 5.4 1995/09/27 13:21:33 jpo Added empire 3 beta stuff for loading/unloading syntax change Revision 5.3 1995/09/10 16:24:15 jpo Tweak some of the names Revision 5.2 1995/09/08 06:59:27 jpo added orders, missions, retreats cargoes etc * Revision 5.1 93/03/14 16:42:03 etienne * added/changed some things * * Revision 5.0 93/02/06 09:16:27 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.5 1993/02/06 07:48:54 greyhelm * Added gnumake mods to allow checkin and Checkout * * Revision 4.4 1993/02/06 04:21:26 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "census.h" #include "ship.h" #include "sector.h" #include "plane.h" #include "version.h" #include char comm_chars [] = "ufsgpibdolhr"; static bool ship_censenable [SCM_MAX]; #ifdef TERMC_VERSION struct s_funcbutton ship_functions [] = { { SCM_RADAR, "Radar", 1, SL_SY_FUNCBUT, 5 }, { SCM_SONAR, "Sonar", 8, SL_SY_FUNCBUT, 5 }, { SCM_LOOKOUT, "Look", 15, SL_SY_FUNCBUT, 4 }, { SCM_FIRE, "Fire", 21, SL_SY_FUNCBUT, 4 }, { SCM_NAVIGATE, "Navig", 1, SL_SY_FUNCBUT + 1, 5 }, { SCM_BOARD, "Board", 8, SL_SY_FUNCBUT + 1, 5 }, { SCM_TEND, "Tend", 15, SL_SY_FUNCBUT + 1, 4 }, { SCM_SET, "Set", 21, SL_SY_FUNCBUT + 1, 4 }, { SCM_SCRAP, "Scrap", 1, SL_SY_FUNCBUT + 2, 5 }, { SCM_UPGRADE, "Upgra", 8, SL_SY_FUNCBUT + 2, 5 }, { SCM_MINE, "Mine", 15, SL_SY_FUNCBUT + 2, 4 }, { SCM_TORPEDO, "Torp", 21, SL_SY_FUNCBUT + 2, 4 } }; #else /* X version */ struct s_funcbutton ship_functions [] = { { SCM_RADAR, "Radar", 3, SL_SY_FUNCBUT, 5 }, { SCM_SONAR, "Sonar", 10, SL_SY_FUNCBUT, 6 }, { SCM_LOOKOUT, "Look", 18, SL_SY_FUNCBUT, 5 }, { SCM_NAVIGATE, "Navig", 3, SL_SY_FUNCBUT + 1, 5 }, { SCM_BOARD, "Board", 10, SL_SY_FUNCBUT + 1, 6 }, { SCM_TEND, "Tend", 18, SL_SY_FUNCBUT + 1, 5 }, { SCM_FIRE, "Fire", 3, SL_SY_FUNCBUT + 2, 5 }, { SCM_MINE, "Mine", 10, SL_SY_FUNCBUT + 2, 6 }, { SCM_TORPEDO, "Torp", 18, SL_SY_FUNCBUT + 2, 5 }, { SCM_UPGRADE, "Upgra", 3, SL_SY_FUNCBUT + 3, 5 }, { SCM_SCRAP, "Scrap", 10, SL_SY_FUNCBUT + 3, 6 }, { SCM_SCUTTLE, "Scut", 18, SL_SY_FUNCBUT + 3, 5 } }; #endif static void CenPutShipHas (x, y, s, ship, c) int x, y; int s; Ship ship; char c; { if (MaxShipCargo (ship, c) > 0) CenPutVal (x, y, Fmt ("%d", s)); else CenPutVal (x, y, "---"); } static void HandleCensusButtonForShip (button, ship) int button; Ship ship; { Sector nxt; Neighb neighb; if (! ship_censenable [button]) return; switch (button) { case SCM_RADAR: Message ("Scanning radar"); FScanRadar (Fmt ("%d", sh_nr (ship))); DrawMap (); break; case SCM_SONAR: Message ("Scanning sonar"); FeedEmpire (Fmt ("sonar %d", sh_nr (ship)), PRINT); ScanLookout (); InitNeighbours (cursct, & neighb); while (NextNeighbour (& nxt, S_DESIG, neighb)) (void) UpdateSectorDes (nxt, '.', False); DrawMap (); break; case SCM_LOOKOUT: Message ("Scanning lookout"); DoLookout (cursct, sh_nr (ship), False, PRINT, True); DrawMap (); break; case SCM_NAVIGATE: Navigate (Fmt ("%d", sh_nr (ship))); CensusShip (ship); break; case SCM_BOARD: Board (10, 10); CensusShip (ship); break; case SCM_TEND: Tend (10, 10, ship); CensusShip (ship); break; case SCM_FIRE: FireFromShip (); break; case SCM_MINE: Mine (Fmt ("%d", sh_nr (ship))); break; case SCM_TORPEDO: Torpedo(); break; case SCM_UPGRADE: UpgradeShip (Fmt ("%d", sh_nr (ship))); break; /* * XXX: should curship not being set * to zero? (after scrap) */ case SCM_SCRAP: ScrapShip (Fmt ("%d", sh_nr (ship))); break; case SCM_SCUTTLE: ScuttleShip (Fmt ("%d", sh_nr (ship))); break; case SCM_SET: SetShip (ship); break; default: break; } } /* * This will so set x,y to the start of the commodity */ static char WhichShipCommodity (x, y) int * x, * y; { if (* y == SL_SY_STATS + 1 || (* y == SL_SY_STATS + 3 && chainsaw_version) || (* y == SL_SY_STATS + 4 && land_units) || (* y == SL_SY_STATS + 5 && land_units)) { if (ButtonPressed (* x, * y, 4, * y, 6) && * y == SL_SY_STATS + 1) { * x = 4; return 'c'; } if (ButtonPressed (* x, * y, 12, * y, 6) && * y == SL_SY_STATS + 1) { * x = 13; return 'm'; } if (ButtonPressed (* x, * y, 18, * y, 6) && * y == SL_SY_STATS + 1 && ShipHas (curship, M_PLANE)) { if (sh_pln (curship) >= shiptypes [sh_type (curship)]. pla) { Message ("Max amount already on ship"); Bell (); } else { SLoadPlane (curship, MIS_LOADPLANE); CensusShip (curship); } } if(chainsaw_version && ButtonPressed (* x, * y, 18, * y, 7) && * y == SL_SY_STATS + 3) { * x = 22; return 'e'; } if(chainsaw_version && ButtonPressed (* x, * y, 4, * y, 6) && * y == SL_SY_STATS + 3) { if (shiptypes [sh_type (curship)]. hel) if (sh_heli (curship) >= shiptypes [sh_type (curship)]. hel) { Message ("Max amount already on ship"); Bell (); } else { SLoadPlane (curship, MIS_LOADHELI); CensusShip (curship); } return '\0'; } if(chainsaw_version && ButtonPressed (* x, * y, 12, * y, 6) && * y == SL_SY_STATS + 3) { if (shiptypes [sh_type (curship)]. xpl) if (sh_xpln (curship) >= shiptypes [sh_type (curship)]. xpl) { Message ("Max amount already on ship"); Bell (); } else { SLoadPlane (curship, MIS_LOADXPLANE); CensusShip (curship); } return '\0'; } if(land_units && ButtonPressed (* x, * y, 4, * y, 6) && * y == SL_SY_STATS + 4) { if (shiptypes [sh_type (curship)]. land) if (sh_land (curship) >= shiptypes [sh_type (curship)]. land) { Message ("Max amount already on ship"); Bell (); } else { SLoadLand (curship); CensusShip (curship); } return '\0'; } if(land_units && ButtonPressed (* x, * y, 12, * y, 6) && * y == SL_SY_STATS + 4) { SMission (curship); CensusShip (curship); return '\0'; } if(chainsaw_version && ButtonPressed (* x, * y, 0, * y, 18) && * y == SL_SY_STATS + 5) { SRetreat (curship); CensusShip (curship); return '\0'; } } else if (* y >= SL_SY_COM && * y < SL_SY_COM + 4) { if (ButtonPressed (* x, * y, 0, * y, 7)) { * x = 4; return comm_chars [3 * (* y - SL_SY_COM)]; } if (ButtonPressed (* x, * y, 9, * y, 7)) { * x = 13; return comm_chars [3 * (* y - SL_SY_COM) + 1]; } if (ButtonPressed (* x, * y, 18, * y, 7)) { * x = 22; return comm_chars [3 * (* y - SL_SY_COM) + 2]; } } return '\0'; } static void ShipLoadUnload (ship, x, y, com) Ship ship; int x, y; char com; { char * ans; int item, petrol_oil; /* petrol_oil determines which to fuel with */ int in_sct, at_ship, delta, max, new, usedelta; bool tomuch; if (! sh_owned (ship)) { Message ("Not your ship !!"); return; } if (s_des (cursct) != 'h' || s_eff (cursct) < 2 || ! s_owned (cursct)) { Message ("You can't (un)load here !!"); Bell (); return; } if (com == 'c' && s_occ (cursct) == '*') { Message ("Cannot (un)load civilians in occ. harbor"); return; } item = CharToItem (com); max = MaxShipCargo (ship, com); if (max == 0) { Message (Fmt ("The captain refuses to take %s on board", ItemName (item))); Bell (); return; } PrintN (census_win, x, y, " "); ans = GetString (census_win, x, y, 4, GS_PNUMBER); if (interrupt || ans == (char *) 0 || * ans == '\0') { interrupt = False; Message ("(Un)load cancelled"); CensusShip (ship); return; } new = atoi (ans); if (new > max) { tomuch = True; new = max; } else tomuch = False; if(com == 'e') { petrol_oil = 0; in_sct = GiveQuant(cursct,'p'); if(in_sct == 0) { in_sct = GiveQuant(cursct,'o'); petrol_oil = 1; } if(in_sct == 0) { Message ("There is NO Petrol or Oil Here"); Bell(); return; } at_ship = GiveShipQuant(ship,com); if(at_ship == MaxShipCargo(ship,com)) { Message ("Ship is already fueled up"); Bell(); return; } delta = new - at_ship; if(delta <= 0) { CensusShip (ship); return; } if(petrol_oil) { usedelta = (int) (delta / 50 + 0.5); } else { usedelta = (int) (delta / 5 + 0.5); } if (land_units) FeedCommand (Fmt ("fuel ship %d %d", sh_nr (ship), delta), PRINT); else FeedCommand (Fmt ("fuel %d %d", sh_nr (ship), delta), PRINT); Message (Fmt ("%d fuel taken on using %d %s", delta, usedelta, petrol_oil ? "oil" : "petrol")); if(petrol_oil) { /* Use oil */ /* 1 oil = 50 fuel */ SetQuant (cursct, 'o', in_sct - usedelta); } else { /* 1 petrol = 5 fuel */ SetQuant (cursct, 'p', in_sct - usedelta); } SetShipQuant (ship, com, at_ship + delta); DrawSector (cursct); CensusShip (ship); return; } in_sct = GiveQuant (cursct, com); at_ship = GiveShipQuant (ship, com); delta = new - at_ship; /* (un)load nothing */ if (delta == 0) { if (tomuch) { Message (Fmt ("Maximum # of %s already in ship", ItemName (item))); Bell (); } else Message ("It's already there, sir!"); CensusShip (ship); return; } /* load */ else if (delta > 0) { if (in_sct < delta) { if (in_sct == 0) { Message ("It ain't there captain"); Bell (); CensusShip (ship); return; } else { delta = in_sct; tomuch = True; Message (Fmt ("Only %d left in harbor captain", in_sct)); } } if ((com == 'c' && delta == s_civ (cursct) && s_mil (cursct) == 0) || (com == 'm' && delta == s_mil (cursct) && s_civ (cursct) == 0)) if (! Confirm ( "This would leave the sector unpopulated, continue", False)) { CensusShip (ship); return; } } else { if (in_sct - delta > MAX_TO_LOAD) { delta = in_sct - MAX_TO_LOAD; tomuch = True; Error (Fmt ( "Max harbor capacity reached, unloading %d %s", delta, ItemName (item))); } } if (emp3server == 2) FeedCommand (Fmt ("%sload \"%s\" %d %d", (delta > 0) ? "" : "un", ItemName (item), sh_nr(ship), (delta > 0) ? delta : -delta), PRINT); else FeedCommand (Fmt ("%sload %d %d \"%s\"", (delta > 0) ? "" : "un", sh_nr (ship), (delta > 0) ? delta : -delta, ItemName (item)), PRINT); Message (Fmt ("%soaded %s %d %s", (delta > 0) ? "L" : "Unl", tomuch ? "(only) " : "", (delta > 0) ? delta : -delta, ItemName (item))); SetQuant (cursct, com, in_sct - delta); SetShipQuant (ship, com, at_ship + delta); DrawSector (cursct); CensusShip (ship); } static void CensusChangeFleet (ship) Ship ship; { char * ans; PrintN (census_win, 0, FL_SY_FLEET, Fmt ("%26s", "")); ShowFreeFleets (); PrintN (census_win, 0, FL_SY_FLEET, "Add to fleet: "); ans = GetString (census_win, 14, FL_SY_FLEET, 1, "a-zA-Z~"); if (ans == (char *) 0 || interrupt || * ans == '\0') interrupt = False; else { FeedCommand (Fmt ("fleetadd %c %d", * ans, sh_nr (ship)), PRINT); set_sh_fleet (ship, * ans); Message (Fmt ("%s #%d added to fleet '%c'", ShipName (ship), sh_nr (ship), * ans)); } CensusShip (ship); } void CensusLayShip () { CenLine (SL_SY_TYPE - 1); CenPuts (0, SL_SY_OWNER, "Owner"); CenPuts (0, SL_SY_STATS, "Eff Mob Tec"); CenPuts (0, SL_SY_STATS + 1, "Civ Mil Pla"); CenPuts (0, SL_SY_STATS + 2, "Rad Son Mov"); if(chainsaw_version) CenPuts (0, SL_SY_STATS + 3, "Hel Xpl Fue"); if (land_units) { CenPuts (0, SL_SY_STATS + 4, "Lnd Mis "); CenPuts (0, SL_SY_STATS + 5, "Ret "); } CenLineText (SL_SY_COM - 1, "Ship Commodities"); CenPuts (0, SL_SY_COM, "uw foo she"); CenPuts (0, SL_SY_COM + 1, "gun pet iro"); CenPuts (0, SL_SY_COM + 2, "bar dus oil"); CenPuts (0, SL_SY_COM + 3, "lcm hcm rad"); CenLine (SL_SY_BUT - 1); CenButton (SL_SX_SECTOR, SL_SY_BUT, "Sector", 6, False); CenLine (SL_SY_BUT + 1); CenButton (SL_SX_FLEET, SL_SY_BUT, "Fleet", 5, False); CenButton (SL_SX_NEXT, SL_SY_BUT, "Next", 4, False); } void ShipCensus (ship) Ship ship; { int i; Sector sct; curship = ship; CenClr (SL_SY_TYPE); CenClr (SL_SY_FERRY); CenClr (SL_SY_CARGO); CenClr (SL_SY_NAME); CenClr (SL_SY_OWNER); ClearCols (SL_SY_STATS, 3 + (int) (2*land_units) + (int) chainsaw_version); ClearCols (SL_SY_COM, 4); if (ship == (Ship) 0) return; curfleet = sh_fleet (ship); CenPutVal (0, SL_SY_TYPE, Fmt ("%s (#%d, %c)", ShipName (ship), sh_nr (ship), sh_fleet (ship))); if (* sh_name (ship) != '\0') { CenPuts (0, SL_SY_NAME, "Name: "); CenPutVal (6, SL_SY_NAME, Fmt ("%-20.20s", sh_name (ship))); } else if (KSUOption (SHIPNAMES)) CenPuts (0, SL_SY_NAME, "Not named."); if (! deity && ! sh_owned (ship)) { CenPuts (0, SL_SY_OWNER, "Owner: "); CenPutVal (7, SL_SY_OWNER, CountryName (sh_owner (ship))); } for (i = 0; i < SCM_MAX; i ++) ship_censenable [i] = False; if (! sh_owned (ship) && ! deity) { /* * Enemy ship */ ship_censenable [SCM_BOARD] = True; DrawCensusButtons (ship_functions, SCM_MAX, ship_censenable); for (i = 0; i < 4 + (int) land_units; i ++) CenClr (SL_SY_STATS + i); if (sh_time (ship) != (time_t) 0) { CenPutVal (0, SL_SY_STATS, Fmt ("Old position: %d,%d", sh_oldx (ship), sh_oldy (ship))); CenPutVal (0, SL_SY_STATS + 1, Fmt ("Dated: %s", DateFmt (sh_time (ship)))); CenPutVal (0, SL_SY_STATS + 2, Fmt ("Now: %s", DateFmt (time ((time_t *) 0)))); } else CenPutVal (0, SL_SY_STATS, "No previous position"); return; } CenPuts (0, SL_SY_STATS, "Eff Mob Tec"); CenPuts (0, SL_SY_STATS + 1, "Civ Mil Pla"); CenPuts (0, SL_SY_STATS + 2, "Rad Son Mov"); if(chainsaw_version) CenPuts (0, SL_SY_STATS + 3, "Hel Xpl Fue"); if (land_units) { CenPuts (0, SL_SY_STATS + 4, "Lnd Mis "); CenPuts (0, SL_SY_STATS + 5, "Ret "); } CenPutVal (4, SL_SY_STATS, Fmt ("%-3d%%", sh_eff (ship))); CenPutShort (13, SL_SY_STATS, sh_mob (ship)); CenPutShort (22, SL_SY_STATS, sh_tech (ship)); CenPutShipHas (4, SL_SY_STATS + 1, sh_civ (ship), ship, 'c'); CenPutShipHas (13, SL_SY_STATS + 1, sh_mil (ship), ship, 'm'); CenPutShipHas (22, SL_SY_STATS + 1, sh_pln (ship), ship, 'P'); CenPutPos (4, SL_SY_STATS + 2, sh_radar (ship)); CenPutPos (13, SL_SY_STATS + 2, sh_sonar (ship)); CenPutShort (22, SL_SY_STATS + 2, sh_moves (ship)); if(chainsaw_version) { CenPutShipHas (4, SL_SY_STATS + 3, sh_heli (ship), ship, 'z'); CenPutShipHas (13, SL_SY_STATS + 3, sh_xpln (ship), ship, 'w'); CenPutShipHas (22, SL_SY_STATS + 3, sh_fuel (ship), ship, 'e'); } if (land_units) { CenPutShipHas (4, SL_SY_STATS + 4, sh_land (ship), ship, 'L'); CenPutVal (13, SL_SY_STATS + 4, Fmt (sh_mission(ship) == '\0' ? "None" : "%c", sh_mission(ship))); CenPutVal (4, SL_SY_STATS + 5, sh_retreat(ship) == RETREAT_NONE ? "No " : Fmt ("to %d,%d on %s", ship -> rtrtx, ship -> rtrty, RtrtList (ship -> rtrcond))); } CenPutShipHas (4, SL_SY_COM, sh_uw (ship), ship, 'u'); CenPutShipHas (13, SL_SY_COM, sh_foo (ship), ship, 'f'); CenPutShipHas (22, SL_SY_COM, sh_she (ship), ship, 's'); CenPutShipHas (4, SL_SY_COM + 1, sh_gun (ship), ship, 'g'); CenPutShipHas (13, SL_SY_COM + 1, sh_pet (ship), ship, 'p'); CenPutShipHas (22, SL_SY_COM + 1, sh_iron (ship), ship, 'i'); CenPutShipHas (4, SL_SY_COM + 2, sh_bar (ship), ship, 'b'); CenPutShipHas (13, SL_SY_COM + 2, sh_dust (ship), ship, 'd'); CenPutShipHas (22, SL_SY_COM + 2, sh_oil (ship), ship, 'o'); CenPutShipHas (4, SL_SY_COM + 3, sh_lcm (ship), ship, 'l'); CenPutShipHas (13, SL_SY_COM + 3, sh_hcm (ship), ship, 'h'); CenPutShipHas (22, SL_SY_COM + 3, sh_rad (ship), ship, 'r'); CenClr (SL_SY_FERRY); CenClr (SL_SY_CARGO); if (emp3server) { CenPutVal (0, SL_SY_FERRY, ShipHasOrders (ship)); CenPuts (0, SL_SY_CARGO, "Carg: "); CenPutVal (6, SL_SY_CARGO, ShipHasCargo (ship)); } else { CenPutVal (0, SL_SY_FERRY, HasFerry ('\0', ship)); } ship_censenable [SCM_RADAR] = sh_radar (ship) > 0; ship_censenable [SCM_SONAR] = sh_sonar (ship) > 0; ship_censenable [SCM_LOOKOUT] = True; ship_censenable [SCM_NAVIGATE] = sh_mob (ship) > 0; ship_censenable [SCM_TEND] = SectorHasOwnedShips (cursct, 2); ship_censenable [SCM_FIRE] = (ShipMaxGuns (ship) > 0) && (sh_eff (ship) >= 60) && (sh_gun (ship) > 0) && (sh_she (ship) > 0); ship_censenable [SCM_MINE] = ShipHas (ship, M_MINE) && (sh_eff (ship) >= 60) && (sh_she (ship) > 0); ship_censenable [SCM_TORPEDO] = (ShipHas (ship, M_TORP)) && (sh_eff (ship) >= 60) && (sh_gun (ship) > 0) && (sh_she (ship) >= 3); ship_censenable [SCM_SCUTTLE] = True; sct = ShipSector (ship); if (s_des (sct) == 'h' && s_owned (sct) && s_eff (sct) >= 60) ship_censenable [SCM_UPGRADE] = ship_censenable [SCM_SCRAP] = True; DrawCensusButtons (ship_functions, SCM_MAX, ship_censenable); FlushWindow (census_win); Refresh (); } /* * Handle census button */ void ShipCensusBut (x, y) int x, y; { char * ans; char comm; int i, num; if (y == SL_SY_BUT) { if (ButtonPressed (x, y, SL_SX_SECTOR, y, 6)) { curship = (Ship) 0; Census (); } else if (ButtonPressed (x, y, SL_SX_FLEET, y, 5)) { CensusFleet (sh_fleet (curship)); } else if (ButtonPressed (x, y, SL_SX_NEXT, y, 4)) { curship = sh_nxtsct (curship); if (curship == (Ship) 0) curship = s_fship (cursct); CensusShip (curship); } return; } /* * Change ferry */ if (y == SL_SY_FERRY) { if (emp3server) { ChangeOrder (curship); } else ChangeFerry ('\0', curship); CensusShip (curship); return; } if (y == SL_SY_CARGO && emp3server) { ChangeCargo (curship); CensusShip (curship); return; } /* * Fleetadd */ if (y == SL_SY_TYPE) { CensusChangeFleet (curship); return; } if (y == SL_SY_NAME) { if (! KSUOption (SHIPNAMES)) { KSUNotDefined (SHIPNAMES); return; } CenClr (SL_SY_NAME); CenPuts (0, SL_SY_NAME, "Name:"); ans = GetString (census_win, 6, SL_SY_NAME, 20, GS_TEXT); if (ans == (char *) 0 || interrupt || * ans == '\0') { Message ("Set name cancelled"); CensusShip (curship); return; } if (index (ans, '#') != (char *) 0) { Message ("Too dangerous to include a '#' in the name"); Bell (); CensusShip (curship); return; } FeedCommand (Fmt ("name %d", sh_nr (curship)), PRINT); FeedCommand (Fmt ("%s", ans), PRINT); set_sh_name (curship, ans); CensusShip (curship); } i = WhichCensusButton (ship_functions, SCM_MAX, x, y); if (i != -1) { HandleCensusButtonForShip (i, curship); return; } /* * Load and unload */ if (! deity || ! DeityChangeShip (curship, x, y)) { comm = WhichShipCommodity (& x, & y); if (comm != '\0') ShipLoadUnload (curship, x, y, comm); } } xemp5.1-beta/lib/census/wing.c100444 12266 2116 16172 6023765003 14637 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/census/RCS/wing.c,v 5.1 1993/03/14 16:42:14 etienne Exp $ $Date: 1993/03/14 16:42:14 $ $Author: etienne $ $Id: wing.c,v 5.1 1993/03/14 16:42:14 etienne Exp $ $Locker: $ $Log: wing.c,v $ Revision 5.1 1993/03/14 16:42:14 etienne * Revision 5.0 93/02/06 09:16:27 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.5 1993/02/06 07:48:54 greyhelm * Added gnumake mods to allow checkin and Checkout * * Revision 4.4 1993/02/06 04:21:26 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "plane.h" #include "census.h" #include "sector.h" extern struct s_funcbutton plane_functions []; static bool wing_censenable [PCM_MAX]; static int nr_atscreen; static bool cens_more; static Plane cens_planes [WL_MAX_PLANES + 1]; static void HandleCensusButtonForWing (button) int button; { if (! wing_censenable [button]) return; UnmarkAllPlanes (); switch (button) { case PCM_FLY: DoFly (10, 10, WingId (), (char *) 0, (char *) 0, (char *) 0); break; case PCM_BOMB: DoBomb (10, 10, cursct, WingId (), (char *) 0, (char *) 0, (char *) 0, False); break; case PCM_TRANSPORT: Transport (10, 10, WingId ()); break; case PCM_PARADROP: Paradrop (10, 10, WingId ()); break; case PCM_DROP: DoDropOff (10, 10, WingId (), (char *) 0, (char *) 0, (char *) 0); break; case PCM_SET: SetWing (curwing); break; case PCM_SCRAP: ScrapPlane (WingId ()); break; case PCM_HARDEN: Harden (Fmt ("%c", curwing)); break; case PCM_RECON: Recon (10, 10, WingId ()); break; case PCM_LAUNCH: DoLaunchWing (WingId ()); break; } CensusWing (curwing); } static void CensusMergeWings () { char * ans; char buffer [BUFSIZ]; bool first; Plane ptr; CenClr (WL_SY_WING); ShowFreeWings (); CenPuts (0, WL_SY_WING, "Add to wing: "); ans = GetString (census_win, 13, WL_SY_WING, 1, "a-zA-Z~"); if (ans == (char *) 0 || interrupt || * ans == '\0') { interrupt = False; CensusWing (curwing); return; } else if (! WingColocated (curwing)) { buffer [0] = '\0'; first = True; for (ptr = s_fplane (cursct); ptr != (Plane) 0; ptr = pl_nxtsct (ptr)) { if (pl_wing (ptr) == curwing) { if (first) first = False; else strcat (buffer, "/"); strcat (buffer, Fmt ("%d", pl_nr (ptr))); set_pl_wing (ptr, * ans); } } FeedCommand (Fmt ("wingadd %c %s", * ans, buffer), PRINT); } else { FeedCommand (Fmt ("wingadd %c %c", * ans, curwing), PRINT); WingJoin (curwing, * ans); } curwing = * ans; CensusWing (curwing); } void CensusLayWing () { CenLine (WL_SY_WING - 1); CenPuts (0, WL_SY_WING, "Wing: "); CenPuts (0, WL_SY_POS, "Pos: "); CenLine (WL_SY_POS + 1); CenPuts (0, WL_SY_HEADER, "Plane Mob Eff Ran"); CenLine (WL_SY_BUT - 1); CenButton (WL_SX_SECTOR, WL_SY_BUT, "Sector", 6, False); CenButton (WL_SX_NEXT, WL_SY_BUT, "Next", 4, False); CenLine (WL_SY_BUT + 1); } static void ShowCensusWing (start, wing) Plane start; char wing; { int i; register Plane plane; CenPuts (WL_SX_MORE, WL_SY_BUT, " "); for (i = 0; i < WL_MAX_PLANES; i ++) CenClr (WL_SY_PLANES + i); nr_atscreen = 0; for (plane = start; plane != (Plane) 0; plane = pl_next (plane)) { /* same sector? */ if ((pl_xcd (plane) != s_xcd (cursct) || pl_ycd (plane) != s_ycd (cursct))) continue; /* same wing? */ if (pl_wing (plane) != wing) continue; /* need a more? */ if (nr_atscreen == WL_MAX_PLANES) { cens_planes [nr_atscreen] = plane; cens_more = True; CenButton (WL_SX_MORE, WL_SY_BUT, "More", 4, False); return; } CenPutVal (0, WL_SY_PLANES + nr_atscreen, Fmt ("%-14.14s %-3d %-3d %-3d", PlaneName (plane), pl_mob (plane), pl_eff (plane), pl_range (plane))); cens_planes [nr_atscreen ++] = plane; } cens_more = False; } void WingCensus (wing) char wing; { int i; register Plane ptr; bool fly, bomb, drop, recon, harden, launch; CenClr (WL_SY_WING); CenPuts (0, WL_SY_WING, "Wing: "); if (! WingColocated (wing) && wing != '~') CenPutVal (6, WL_SY_WING, Fmt ("%c (Not colocated)", wing)); else CenPutVal (6, WL_SY_WING, Fmt ("%c", wing)); for (i = 0; i < PCM_MAX; i ++) wing_censenable [i] = False; CenClr (WL_SY_POS); CenPuts (0, WL_SY_POS, "Pos:"); if (WingEmpty (wing)) { CenPutVal (0, WL_SY_POS, "Empty!"); FlushWindow (census_win); DrawCensusButtons (plane_functions, PCM_MAX, wing_censenable); return; } CenPuts (0, WL_SY_POS, "Pos: "); if (! WingColocated (wing) && wing != '~') CenPutVal (6, WL_SY_POS, "??,??"); else CenPutVal (6, WL_SY_POS, CrdStr (WingSector (wing))); ShowCensusWing (first_plane, wing); curwing = wing; wing_censenable [PCM_TRANSPORT] = wing_censenable [PCM_SET] = True; wing_censenable [PCM_SCRAP] = s_des (cursct) == '*' && s_eff (cursct) > 59; harden = launch = fly = bomb = recon = drop = False; for (ptr = s_fplane (cursct); ptr != (Plane) 0; ptr = pl_nxtsct (ptr)) if (pl_wing (ptr) == wing) { if (pl_mob (ptr) <= 0) continue; if (! PlaneHas (ptr, P_V) && s_des (cursct) != '.' && (s_des (cursct) != '*' || s_eff (cursct) < 60)) continue; fly = fly || !(PlaneHas (ptr, P_M) || PlaneHas (ptr, P_O)); bomb = bomb || PlaneHas (ptr, P_B) || PlaneHas (ptr, P_T); if (PlaneHas (ptr, P_C)) drop = True; /* * You can recon with any plane. Spy planes just give more info * * recon = recon || PlaneHas (ptr, P_S); */ recon = recon || !(PlaneHas (ptr, P_M) || PlaneHas (ptr, P_O)); harden = harden || (PlaneHas (ptr, P_M) && !PlaneHas (ptr, P_F)); launch = launch || ((PlaneHas (ptr, P_M) && !PlaneHas (ptr, P_F)) || PlaneHas (ptr, P_O)); } wing_censenable [PCM_FLY] = fly; wing_censenable [PCM_BOMB] = bomb; wing_censenable [PCM_DROP] = wing_censenable [PCM_PARADROP] = drop; wing_censenable [PCM_RECON] = recon; wing_censenable [PCM_HARDEN] = harden; wing_censenable [PCM_LAUNCH] = launch; DrawCensusButtons (plane_functions, PCM_MAX, wing_censenable); FlushWindow (census_win); Refresh (); } void WingCensusBut (x, y) int x, y; { char next; char * ans; int i; if (y == WL_SY_BUT) { if (ButtonPressed (x, y, WL_SX_SECTOR, y, 6)) CensusSct (cursct); else if (ButtonPressed (x, y, WL_SX_MORE, y, 4)) { if (! cens_more) return; ShowCensusWing (cens_planes [nr_atscreen], curwing); FlushWindow (census_win); } else if (ButtonPressed (x, y, WL_SX_NEXT, y, 4)) { next = NextWingInSct (cursct, curwing); if (next == '\0') next = FirstWingInSct (cursct); curwing = next; CensusWing (next); } return; } /* * Census of plane */ if (y >= WL_SY_PLANES && y < WL_SY_PLANES + nr_atscreen) { curplane = cens_planes [y - WL_SY_PLANES]; CensusPlane (curplane); return; } /* * Wing add */ if (y == WL_SY_WING) { CensusMergeWings (); CensusWing (curwing); return; } i = WhichCensusButton (plane_functions, PCM_MAX, x, y); if (i >= 0) { HandleCensusButtonForWing (i); return; } } xemp5.1-beta/lib/clients/ 40755 12266 2116 0 6043206335 13546 5ustar jponexorxemp5.1-beta/lib/clients/GNUdepend100644 12266 2116 2740 6015617323 15404 0ustar jponexorSRCS= client.c \ empire.c \ io.c OBJS= client.o \ empire.o \ io.o ### client.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/emp_proto.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/func.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h empire.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h io.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h xemp5.1-beta/lib/clients/GNUmakefile100644 12266 2116 1006 6034224467 15720 0ustar jponexor# The following variables are configurable. #-----------------------------------# LOCALCFLAGS := LOCALIFLAGS := LOCALLFLAGS := LOCALSFLAGS := TOPDIR = ../.. LIB := ../libclients.a LINTNAME := clients #-----------------------------------# # Productions: # depend: create the dependencies # all: make the library # saber: load things for saber # tags: make tags include $(TOPDIR)/make/GenMakefile include $(DEPENDENCIES) include $(TOPDIR)/make/LibMakefile tags: ../tags ln -s ../tags TAGS: ../TAGS ln -s ../TAGS xemp5.1-beta/lib/clients/client.c100444 12266 2116 51202 6026104736 15306 0ustar jponexor/* $Header: /a/victor/nexor/user4/jpo/xemp/xemp5.0/lib/clients/RCS/client.c,v 5.6 1995/09/14 20:00:29 jpo Exp $ $Date: 1995/09/14 20:00:29 $ $Author: jpo $ $Id: client.c,v 5.6 1995/09/14 20:00:29 jpo Exp $ $Locker: $ $Log: client.c,v $ Revision 5.6 1995/09/14 20:00:29 jpo Fix up INFORM and FLASH Revision 5.5 1995/09/13 07:03:43 jpo Added AwaitSomething Revision 5.4 1995/09/12 18:15:19 jpo Removed the ifdef X_VERSION for CheckRefreshEvents Revision 5.3 1995/09/10 16:26:06 jpo Some tweaks for test mode Revision 5.2 1995/09/08 07:00:40 jpo added some consts make connections failures less traumatic added support for flash and inform (broken still) some touch ups for test mode some renaming and reworking for configuration * Revision 5.1 93/03/14 16:42:28 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:17:27 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.5 1993/02/06 07:55:46 greyhelm * Test of GNUmake checkin * * Revision 4.4 1993/02/06 04:34:59 greyhelm * Added RCS header - Karl Hagen * */ /* * Emptool * * Written by HJ. Visscher. Part of the code copied from * the original client-program written by Dave Pare. * * int InitClient (cname, pname, host, port, logfile) * Initializes empire with "cname" as countryname and * "pname" as representive. The server must be at "port" * at "host". All commands are written onto "logfile". * When everyting succeeds, True is returned. * * char *ReadEmpire () * Reads and returns a line from empire * * void FeedEmpire (command) * * char *WaitForPrompt () * Wait until a prompt is shown, return the line * * int EmpireStatus () * returns the status of empire. * * void SkipNLines (i) * skipps n lines from empire. */ #include "type.h" #include "emp_proto.h" #include "main.h" #include "func.h" #include "nation.h" #include #include #include #include #include #include #include #include #include #ifdef HAVE_UNISTD_H #include #endif #ifdef HAVE_SYS_SELECT_H #include #endif #ifndef EMPIREPORT #define EMPIREHOST "chainsaw.ecn.purdue.edu" #define EMPIREPORT "1617" #endif struct fn { int (*func)(); char *name; int value; }; static void WatchEmpire _PROTO((void)); static FILE *log_fp = (FILE *) 0; static FILE *red_fp = (FILE *) 0; static int sock; int emp_status = E_DEAD; static struct sockaddr_in sin; bool buffer_commands = False; bool buffer_move = False; static Strings buffer_str; /* From original: host.c */ static int HostAddr (name, addr) char *name; struct sockaddr_in *addr; { extern u_long inet_addr(); struct hostent *hp; if (name == (char *) 0 || *name == '\0') return False; if (isdigit (*name)) addr->sin_addr.s_addr = inet_addr (name); else { hp = gethostbyname (name); if (hp == (struct hostent *) 0) { (void) fprintf(stderr, "%s: No such host\n", name); return False; } bcopy ((char *) hp-> h_addr, (char *) & addr-> sin_addr, (unsigned) sizeof (addr-> sin_addr)); } return True; } static int HostPort (name, addr) char *name; struct sockaddr_in *addr; { struct servent *sp; if (name == (char *) 0) return False; if (*name == '\0') return False; if (isdigit (*name)) addr-> sin_port = htons (atoi (name)); else { sp = getservbyname (name, "tcp"); if (sp == (struct servent *) 0) return False; addr-> sin_port = sp-> s_port; } return True; } bool HostConnect () { #ifdef CHECK_CON int len; struct sockaddr_in peer; #endif sock = socket (AF_INET, SOCK_STREAM, 0); if (sock < 0) { perror ("socket"); return False; } sin. sin_family = AF_INET; if (connect (sock, (struct sockaddr *)& sin, sizeof (sin)) < 0) { #ifndef TERMC_VERSION perror ("connect"); #endif (void) close(sock); return False; } #ifdef CHECK_CON len = sizeof(struct sockaddr); if (getpeername(sock, &peer, &len) == -1) perror("getpeername"); printf("Connected to: %s, port %d\n", inet_ntoa(peer.sin_addr), peer.sin_port); #endif CHECK_CON return True; } /* wait for something to happen on descriptor n, but if anything happens on the empire connection process that meanwhile */ void AwaitSomething (fd) int fd; /* another fd (X for e.g.) */ { int nfd; fd_set mask; int n; for (;;) { FD_ZERO (&mask); FD_SET (fd, &mask); nfd = fd + 1; if (emp_status != E_DEAD) { FD_SET (sock, &mask); if (sock > fd) nfd = sock + 1; } n = select (nfd, &mask, (fd_set *) 0, (fd_set *) 0, NULL); if (n == -1) { if (errno != EINTR) { perror ("select "); leave0 (); } continue; } if (FD_ISSET (sock, &mask)) { WatchEmpire (); } if (FD_ISSET (fd, &mask)) return; } } static void WaitForInput () { fd_set mask; static struct timeval tt = { 5L, 0L }; int n; for (;;) { FD_ZERO (&mask); FD_SET (sock, &mask); n = select (sock + 1, &mask, (fd_set *) 0, (fd_set *) 0, &tt); if (n == -1) { if (errno != EINTR) { perror ("select "); leave0 (); } continue; } if (n == 0) { CheckRefreshEvents (); continue; } if (FD_ISSET (sock, &mask)) return; } } static char * GetLineFromHost () { static char buf[BUFSIZ]; static int nr_left = 0, nr_last_time = 0; char *p, *ptr; int n, size; bool gotline; if (nr_left > 0 && nr_last_time > 0) bcopy (buf + nr_last_time, buf, nr_left); ptr = buf; n = nr_left; size = BUFSIZ - 1; gotline = False; CheckRefreshEvents (); while (size > 0 && ! gotline) { if (n == 0) { WaitForInput (); if ((n = read (sock, ptr, size)) <= 0) { if (n != 0) perror("read failed "); else fprintf (stderr, "Bad connection to empire host : timed out\n"); PrintAtEmpire ("Bad connection to empire host"); (void) sprintf (buf, "%x Connection died", C_EXIT); return buf; } } ptr [n] = '\0'; if ((p = index(ptr , '\n')) != (char *) 0) { nr_last_time = p - buf + 1; nr_left = ptr + n - buf - nr_last_time; *p = '\0'; gotline = True; break; } else { ptr += n; size -= n; n = 0; } } if (! gotline) { PrintAtEmpire ("Line from Empire To long\n"); fprintf (stderr, "Line from Empire To long (> %d)\n", BUFSIZ); leave (); } return (buf); } static bool Expect (match, buf) int match; char *buf; { int code; strcpy (buf, GetLineFromHost ()); if (!isxdigit (*buf)) { (void) fprintf (stderr, "Expecting %d, got %s\n", match, buf); return False; } if (isdigit (*buf)) code = *buf - '0'; else if (isupper (*buf)) code = 10 + *buf - 'A'; else code = 10 + *buf - 'a'; if (code == match) return True; while (*buf != '\0' && ! isspace (*buf)) buf++; fprintf (stderr, "empire : %s\n", *buf == '\0' ? Fmt ("Expected code %d got %d\n", match, code) : buf); return False; } static bool SendCmd (cmd, arg) char *cmd; char *arg; { char buf [120]; int cc, len; (void) sprintf (buf, "%s %s\n", cmd, arg != (char *) 0 ? arg : ""); len = strlen (buf); cc = write (sock, buf, len); if (cc < 0) { perror ("sendcmd: write"); return False; } if (cc != len) { (void) fprintf (stderr, "sendcmd: int write (%d not %d)\n", cc, len); return False; } return True; } /* based on original login from login.c */ int Login () { char buf[BUFSIZ]; if (! Expect (C_INIT, buf)) return False; if (! SendCmd ("user", user_name) || ! Expect (C_CMDOK, buf)) return False; if (! SendCmd ("coun", cname) || ! Expect (C_CMDOK, buf)) return False; if (! SendCmd ("pass", pname) || ! Expect (C_CMDOK, buf)) return False; if (! SendCmd ("play", (char *) 0) || ! Expect (C_INIT, buf)) return False; if (atoi (buf) != CLIENTPROTO) { (void) fprintf (stderr, "Emptool out of date; get new version!\n"); (void) fprintf (stderr, " this version: %d, current version: %d\n", CLIENTPROTO, atoi (buf)); return False; } emp_status = E_PRINTING; return True; } void Reconnect () { extern bool silent_con; extern bool connecting; char * ans; if (emp_status != E_DEAD) return; if (command_state == TEST_STATE) { Error ("Trying to connect to empire while in test mode"); leave0 (); } if (! silent_con) Message ("Reconnecting to Empire Host"); BusyCursor (); connecting = True; for (;;) { if (! HostConnect () || ! Login ()) { if (sock < 0) PrintAtEmpire ("Login failed"); else PrintAtEmpire ("Cannot reconnect to Empire Host"); do { ResetCursor (); interrupt = False; ans = InputAtMessage ( "Cannot reconnect, quit [n]:", 1, "yn"); } while (interrupt || ans == (char *) 0); if (* ans == 'y') { Bell (); leave0 (); } Message ("Trying to reconnect..."); BusyCursor (); } else break; } ResetCursor (); if (! silent_con) Message ("Reconnected"); emp_status = E_PRINTING; SaveTillPrompt (); if (! silent_con) { FeedEmpire ("", DONT_PRINT); (void) WaitForPrompt (silent_con ? DONT_PRINT : PRINT); } connecting = False; FeedBufCommands (); } bool InitClient (host, port, logfile) char *host, *port, *logfile; { struct passwd *pwd; char country[64]; /* Get uid of player */ pwd = getpwuid (getuid ()); if (pwd == (struct passwd *) 0) { (void) fprintf (stderr, "Go away! (you don't exist)!\n"); return False; } /* Get port, host & connect */ if (! HostPort (port, & sin) && ! HostPort (getenv ("EMPIREPORT"), & sin) && ! HostPort (EMPIREPORT, &sin) && ! HostPort ("empire", & sin)) { (void) fprintf (stderr, "No empire port\n"); return False; } if (! HostAddr (host, & sin) && ! HostAddr (getenv ("EMPIREHOST"), & sin) && ! HostAddr (EMPIREHOST, &sin)) { (void) fprintf (stderr, "No empire host\n"); return False; } user_name = Str (pwd-> pw_name); if (cname == (char *) 0) cname = getenv ("COUNTRY"); if (cname == (char *) 0) { cname = country; (void) printf ("Country name? "); *cname = '\0'; if (gets (cname) == (char *) 0 || *cname == '\0') return False; } cname = Str (cname); if (pname == (char *) 0) pname = getenv ("PLAYER"); if (pname == (char *) 0) { pname = getpass ("Your name? "); if (pname == (char *) 0 || *pname == '\0') return False; } buffer_str = InitStrings (); pname = Str (pname); /* Open logfile */ if (logfile != (char *) 0) { if ((log_fp = fopen (logfile, "a")) == (FILE *) 0) { perror ("fopen"); return False; } } else log_fp = (FILE *) 0; return True; } void CloseConnection () { (void) close (sock); } #define FM_APPEND 0 #define FM_NEW 1 #define FM_FORCE 2 extern bool connecting; static char *Read_Empire (flag) int flag; { extern bool disconnecting; static char buffer [BUFSIZ]; char *buf; char *ptr; int nbtu, nmin; int mode; char code; static int err = 0; NoConTimeout (); if (emp_status == E_DEAD) Reconnect (); buf = GetLineFromHost (); ResetConTimeout (); code = buf [0]; if (code >= '0' && code <= '9') code -= '0'; else code = code - 'a' + 10; ptr = buf + 2; switch (code) { case C_REDIR: /* which mode ?? */ err = 0; emp_status = E_PRINTING; mode = FM_NEW; ptr ++; if (*ptr == '>') { mode = FM_APPEND; ptr ++; } else if (*ptr == '!') { mode = FM_FORCE; ptr ++; } while (*ptr == ' ') ptr ++; if (*ptr == '\0') { if (flag == PRINT) PrintAtEmpire ("Null redirection"); return (char *) 0; } if (mode == FM_NEW && !access (ptr, F_OK)) { if (flag == PRINT) PrintAtEmpire (Fmt ("%s already exists", ptr)); return (char *) 0; } if ((red_fp = fopen (ptr, (mode == FM_APPEND) ? "a" : "w")) == (FILE *) 0 && flag == PRINT) PrintAtEmpire (Fmt ("can't open %s", ptr)); return (char *) 0; case C_PIPE: case C_EXECUTE: case C_NOECHO: err = 0; Bell (); sprintf (buffer, "Command code '%d' not implemented", code); if (log_fp != (FILE *) 0) { (void) fprintf (log_fp, "%s\n", buffer); (void) fflush (log_fp); } emp_status = E_PRINTING; return buffer; case C_FLUSH: /* A prompt, but not the command-prompt */ err = 0; if (log_fp != (FILE *) 0) { (void) fprintf (log_fp, ptr); (void) fflush (log_fp); } emp_status = E_QUESTION; return ptr; case C_BADCMD: err = 0; (void) sprintf (buffer, "Error: %s\n", ptr); if (log_fp != (FILE *) 0) { (void) fprintf (log_fp, buffer); (void) fflush (log_fp); } emp_status = E_PRINTING; return buffer; case C_ABORT: err = 0; if (log_fp != (FILE *) 0) { (void) fprintf (log_fp, "Aborted\n"); (void) fflush (log_fp); } emp_status = E_PRINTING; return "Aborted\n"; case C_EXIT: err = 0; (void) sprintf (buffer, "Disconnected, exit code : %s\n", ptr); if (log_fp != (FILE *) 0) { (void) fprintf (log_fp, buffer); (void) fflush (log_fp); } emp_status = E_DEAD; (void) close (sock); if (disconnecting) return "Disconnected"; else { if (connecting) { PrintSaved (); fprintf (stderr, buffer); } leave0 (); } /* NOTREACHED */ case C_DATA: err = 0; emp_status = E_PRINTING; if (log_fp != (FILE *) 0) { (void) fprintf (log_fp, "%s\n", ptr); (void) fflush (log_fp); } if (red_fp != (FILE *) 0) { (void) fprintf (red_fp, "%s\n", ptr); (void) fflush (red_fp); return (char *) 0; } return ptr; case C_PROMPT: err = 0; if (red_fp != (FILE *) 0) { (void) fclose (red_fp); red_fp = (FILE *) 0; } if (sscanf (ptr, " %d %d", &nbtu, &nmin) != 2) { (void) fprintf (stderr, "Bad prompt\n"); (void) strcpy (buffer, "[??:??] Command : "); } else (void) sprintf (buffer, "[%d:%d] Command : ", nbtu, nmin); if (log_fp != (FILE *) 0) { (void) fprintf (log_fp, buffer); (void) fflush (log_fp); } emp_status = E_COMMAND; if (flag == PRINT) PrintAtEmpire (""); return buffer; case C_INFORM: case C_FLASH: PrintAtEmpire (ptr); PrintAtEmpire (""); if (emp_status == E_PRINTING) return Read_Empire (flag); return ptr; default: if (log_fp != (FILE *) 0) { (void) fprintf (log_fp, "\"%s\" : EHEH??\n", buffer); (void) fflush (log_fp); } /* emp_status = E_PRINTING; */ /* should test connection here */ if (++err == 5) { (void) fprintf (stderr, "To many repeating errors, exiting\n"); leave0 (); } sprintf (buffer, "ERROR (server)", buf); return buffer; } } bool IsEmpireMessage (ptr) char *ptr; { double cost; if (ptr == (char *) 0 || connecting) return False; if (! strncmp (ptr, "Waiting on lock", 15)) return True; if (sscanf (ptr, "That just cost you $%lf", &cost) == 1) { n_treas (nation) -= cost; return True; } if (sscanf (ptr, "You just made $%lf", &cost) == 1) { n_treas (nation) += cost; return True; } if (! strncmp (ptr, "Max minutes per day limit exceeded", 34)) return True; if (! strncmp (ptr, "See \"info syntax\"?", 18)) return True; if (! strncmp (ptr, "Try \"list of commands\",", 23)) return True; if (! strncmp (ptr, "You ", 4)) { if (! strncmp (ptr + 4, "are ", 4)) { if (! strncmp (ptr + 8, "now broke", 9)) return True; if (! strncmp (ptr + 8, "no longer broke", 15)) return True; } else if (! strncmp (ptr + 4, "have ", 5)) { if (! strncmp (ptr + 9, "a new telegram waiting", 22)) return True; if (! strncmp (ptr + 9, "a new announcement waiting", 26)) return True; ptr += 9; if (ScanWord ((ConstVP)&ptr, (char *) 0)) { SkipBlank ((ConstVP)&ptr); if (! strncmp (ptr,"new telegrams waiting", 21)) return True; } if (ScanWord ((ConstVP)&ptr, (char *) 0)) { SkipBlank ((ConstVP)&ptr); if (! strncmp (ptr, "new announcements waiting", 25)) return True; } } else if (! strncmp (ptr + 4, "lost your capital... better designate one", 41)) return True; } return False; } char *ReadEmpire (flag) int flag; { char *ptr; BusyCursor (); for (;;) { if (emp_status == E_COMMAND || emp_status == E_QUESTION || emp_status == E_DEAD) { PrintAtEmpire ("Emptool sync error, Reading while waiting for input"); PrintAtEmpire (""); Bell (); FlushWindow (empire_win); interrupt = True; ResetCursor (); return ""; } ptr = DelTabs (Read_Empire (flag)); if (IsEmpireMessage (ptr)) { PrintAtEmpire (""); PrintAtEmpire (ptr); continue; } if (ptr != (char *) 0 || emp_status != E_PRINTING) break; } ResetCursor (); if (flag == PRINT) if (emp_status == E_PRINTING) PrintAtEmpire (ptr); return ptr; } void FeedEmpire (str, flag) const char *str; int flag; { int n, i; char *tmp, *ptr; if (command_state == TEST_STATE) { PrintAtEmpire (str); return; } ptr = StrNl (str); tmp = ptr; n = strlen (ptr); NoConTimeout (); if (emp_status == E_DEAD) Reconnect (); if (emp_status == E_PRINTING) (void) WaitForPrompt (flag); if (log_fp != (FILE *) 0) (void) fprintf (log_fp, ptr); if (flag == PRINT) ReprintAtEmpire (str); CheckRefreshEvents (); BusyCursor (); while (n > 0) { i = write (sock, ptr, n); if (i <= 0) { perror ("Write server socket"); leave0 (); } n -= i; ptr += i; } ResetCursor (); free (tmp); emp_status = E_PRINTING; ResetConTimeout (); } void FeedCommand (com, flag) const char * com; int flag; { if (command_state == TEST_STATE) { PrintAtEmpire (com); return; } if (emp_status != E_DEAD || command_state == NORMAL_STATE) { FeedEmpire (com, flag); (void) WaitForPrompt (flag); } else AddString (buffer_str, com); } void ShowBufCommands (x, y) int x, y; { Pager pager; if (StringsSize (buffer_str) == 0) { Bell (); Message ("No buffered commands"); return; } pager = InitPager (buffer_str, "Buffered commands"); AddPagerFunc (pager, "Write", WRITEFUNC); AddPagerFunc (pager, "Done", DONEFUNC); MapPagerFromTop (pager, map_win, x, y); ShowPager (pager); FreePager (pager); } void DeleteBufCommands () { while (StringsSize (buffer_str) > 0) DeleteFirstString (buffer_str); } void SaveBufCommands (fp) FILE * fp; { const char * ptr; InitStringList (buffer_str); while ((ptr = GetNextString (buffer_str)) != (char *) 0) fprintf (fp, "%s\n", ptr); fprintf (fp, "END OF BUFFERED COMMANDS\n"); } void ReadBufCommands (fp) FILE * fp; { char buffer [80]; char * ptr; for (;;) { ptr = fgets (buffer, 80, fp); if (ptr == (char *) 0 || StrEQ (ptr, "END OF BUFFERED COMMANDS")) return; buffer [strlen (buffer) - 1] = '\0'; AddString (buffer_str, buffer); } } bool BufferdCommands () { return (StringsSize (buffer_str) > 0); } void FeedBufCommands () { const char * ptr; char *cp; static int nr = 0; bool rescan_planes; rescan_planes = False; if (nr++ != 0) { fprintf (stderr, "Recursive FeedBufCommands !!\n"); return; } if (StringsSize (buffer_str) > 0) { Message ("Feeding buffered commands"); ptr = GetFirstString (buffer_str); while (ptr != (char *) 0) { if (! rescan_planes && StrEQ (ptr, "build plane")) rescan_planes = True; FeedEmpire (ptr, PRINT); do cp = ReadEmpire (PRINT); while (EmpireStatus () == E_PRINTING); PrintAtEmpire (cp); DeleteFirstString (buffer_str); if (StringsSize (buffer_str) > 0) ptr = GetFirstString (buffer_str); else ptr = (char *) 0; while (EmpireStatus () != E_COMMAND) { if (ptr != (char *) 0 && * ptr == '*') { FeedEmpire (ptr + 1, PRINT); DeleteFirstString (buffer_str); if (StringsSize (buffer_str) > 0) ptr = GetFirstString (buffer_str); else ptr = (char *) 0; } else FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); } } } nr--; if (rescan_planes) { Message ("Redumping (all) planes"); DumpPlanes ("*", PRINT); Census (); DrawSector (cursct); } } char * WaitForPrompt (flag) int flag; { char *ptr = (char *) 0; int lines; extern int empire_height; int prflag = flag; extern bool enable_empire_more; lines = 0; while (emp_status == E_PRINTING) { /* * Using termcap, we have a very small window, * So one line extra really counts. */ #ifdef X_VERSION if (prflag == PRINT && ++ lines % (empire_height - 2) == 0) #else if (prflag == PRINT && ++ lines % (empire_height - 1) == 0) #endif { if (enable_empire_more && !EmpireMore ()) prflag = DONT_PRINT; } ptr = ReadEmpire (prflag); } if (ptr != (char *) 0 && emp_status != E_PRINTING && flag == PRINT) PrintAtEmpire (ptr); return ptr; } int EmpireStatus () { return emp_status; } bool SkipNLines (n, flag) int n; int flag; { while (n--) if (emp_status == E_PRINTING) (void) ReadEmpire (flag); else return False; return True; } static void WatchEmpire () { char *cp; (void) Read_Empire (PRINT); } xemp5.1-beta/lib/clients/io.c100444 12266 2116 16542 6026102426 14441 0ustar jponexor/* $Header: /a/victor/nexor/user4/jpo/xemp/xemp5.0/lib/clients/RCS/io.c,v 5.3 1995/09/14 19:40:06 jpo Exp $ $Date: 1995/09/14 19:40:06 $ $Author: jpo $ $Id: io.c,v 5.3 1995/09/14 19:40:06 jpo Exp $ $Locker: $ $Log: io.c,v $ Revision 5.3 1995/09/14 19:40:06 jpo Default characters Revision 5.2 1995/09/08 07:02:49 jpo lots of fun with configuration * Revision 5.1 93/03/14 16:42:32 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:17:27 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.5 1993/02/06 07:55:46 greyhelm * Test of GNUmake checkin * * Revision 4.4 1993/02/06 04:34:59 greyhelm * Added RCS header - Karl Hagen * */ #include "type.h" #include "main.h" #include #ifdef HAVE_UNISTD_H #include #endif #ifdef HAVE_SYS_IOCTL_H #include #endif #ifdef HAVE_TERMIOS_H #include #endif #ifdef HAVE_TERMIO_H #include #endif char intrchar, erasechar, eraseword, eraseline; unsigned con_timeout = 0; bool silent_con = False; static void SignalHandler (); int getfdtablesize() { return getdtablesize(); } #ifdef HAVE_SIGSETMASK void sigrelease () { sigsetmask (0); } #else void sigrelease () { int i; for (i = 0; i < NSIG; i++) sigrelse (i); } #endif #ifdef HAVE_TERMIOS_H static int echomode = 1; void _noecho(fd) int fd; { struct termios io; echomode = 0; tcgetattr(fd, &io); io.c_lflag |= ECHO; tcsetattr(fd, TCSANOW, &io); } _echo(fd) int fd; { struct termios io; if (echomode) return; tcgetattr(fd, &io); io.c_lflag &= ~ECHO; tcsetattr (fd, TCSANOW, &io); echomode++; } #else #ifdef HAVE_TERMIO_H static int echomode = 1; void _noecho(fd) int fd; { struct termio io; echomode = 0; (void) ioctl(fd, TCGETA, &io); io.c_lflag |= ECHO; (void) ioctl(fd, TCSETA, &io); } _echo(fd) int fd; { struct termio io; if (echomode) return; (void) ioctl(fd, TCGETA, &io); io.c_lflag &= ~ECHO; (void) ioctl(fd, TCSETA, &io); echomode++; } #endif #endif #if defined(HAVE_TERMIOS_H) || defined(HAVE_TERMIO_H) void GetSpecialChars () { #ifdef HAVE_TERMIOS_H struct termios tt; #else struct termio tt; #endif #ifdef HAVE_TERMIOS_H if (tcgetattr (0, &tt) < 0) #else if (ioctl (0, TCGETA, &tt) < 0) #endif { intrchar = '\003'; /* ^C */ erasechar = '\010'; /* ^H */ eraseword = '\027'; /* ^W */ eraseline = '\025'; /* ^U */ } else { intrchar = tt.c_cc[VINTR]; erasechar = tt.c_cc[VERASE]; #ifdef VWERASE eraseword = tt.c_cc[VWERASE]; #else eraseword = '\027'; #endif eraseline = tt.c_cc[VKILL]; } if (intrchar == 0) intrchar = '\003'; /* ^C */ if (erasechar == 0) erasechar = '\010'; /* ^H */ if (eraseword == 0) eraseword = '\027'; /* ^W */ if (eraseline == 0) eraseline = '\025'; /* ^U */ } #else #ifdef HAVE_SGTTY_H void GetSpecialChars () { struct tchars tc; struct ltchars ltc; struct sgttyb mode; if ((ioctl(1, TIOCGETP, &mode) < 0) || (ioctl(0, TIOCGLTC, <c) < 0) || (ioctl(0, TIOCGETC, &tc) < 0 )) { intrchar = CINTR; erasechar = CERASE; eraseword = CWERASE; eraseline = CKILL; } else { intrchar = tc.t_intrc; erasechar = mode.sg_erase; eraseword = ltc.t_werasc; eraseline = mode.sg_kill; } } #endif #endif void Forceleave (sno) int sno; { static int sig = 0; if (sig++ != 0) { if (EmpireStatus () != E_DEAD) { fprintf (stderr, "Aborting connection\n"); sigrelease(); leave0 (); } else { fprintf (stderr, "Closing Down be patient\n"); return; } } fprintf (stderr, "Closing connection\n"); sigrelease(); leave (); } void SetSignalsOn () { void Disconnect (); signal (SIGHUP, SignalHandler); signal (SIGILL, SignalHandler); signal (SIGFPE, SignalHandler); signal (SIGBUS, SignalHandler); signal (SIGSEGV, SignalHandler); signal (SIGQUIT, SignalHandler); signal (SIGTERM, SignalHandler); signal (SIGINT, Forceleave); if (con_timeout > MIN_CONTIMEOUT) signal (SIGALRM, Disconnect); else signal (SIGALRM, SIG_IGN); } void SetSignalsOff () { signal (SIGINT, SIG_IGN); signal (SIGQUIT, SIG_IGN); if (con_timeout > MIN_CONTIMEOUT) signal (SIGALRM, SIG_IGN); } static char * SignalName (i) int i; { switch (i) { case SIGHUP: return "Hang Up Signal (SIGHUP)"; case SIGILL: return "Illegal instruction (SIGILL)"; case SIGFPE: return "Floating point exception (SIGFPE)"; case SIGBUS: return "Bus error (SIGBUS)"; case SIGSEGV: return "Segmentation violation (SIGSEGV)"; case SIGQUIT: return "Quit Signal"; case SIGTERM: return "Software signal"; default: return Fmt ("Unexpected signal (%d)", i); } } bool dump_core = False; static void SaveDataDumpCore (win, starty) WinInfo win; int starty; { char * ans; do { interrupt = False; ans = GetQuest (win, starty, "Save Data [y]: ", 1, "yn"); } while (ans == (char *) 0 || interrupt); if (* ans == 'n') command_state = FASTQUIT_STATE; do { interrupt = False; ans = GetQuest (win, starty + 1, "Dump Core [n]: ", 1, "yn"); } while (ans == (char *) 0 || interrupt); dump_core = * ans == 'y' ? True : False; sigrelease (); leave (); } void Panic (funcname, filename, mes) const char * funcname, * filename, * mes; { WinInfo win; char * ans; win = OpenRelToRoot (map_win, 2, 2, 80, 13, CHARS, 0); PrintN (win, 1, 1, "Panic: Internal Error !"); PrintN (win, 1, 3, Fmt ("Function: %s", funcname)); PrintN (win, 1, 4, Fmt ("File: %s", filename)); PrintB (win, 1, 6, mes); do { interrupt = False; ans = GetQuest (win, 8, "Continue [y]: ", 1, GS_YN); } while (ans == (char *) 0 || interrupt); if (* ans == '\0' || * ans == 'y' || * ans == 'Y') { DestroyWindow (win); return; } SaveDataDumpCore (win, 10); } static void SignalHandler (i) int i; { WinInfo win; static int sig = 0; if (sig++ != 0) { if (i == SIGQUIT) { if (EmpireStatus () != E_DEAD) { fprintf (stderr, "Aborting connection\n"); sigrelease (); leave0 (); } fprintf (stderr, "Closing Down be patient\n"); return; } CloseConnection (); exit (-1); } #ifdef TERMC_VERSION win = OpenRelToRoot (map_win, 2, 2, 60, 7, FULL_BOX, 0); #else win = OpenRelToRoot (map_win, 2, 2, 80, 7, CHARS, 0); #endif /* TERMC_VERSION */ PrintN (win, 1, 1, "-=[ SIGNAL CAUGHT ]=-"); PrintN (win, 1, 3, Fmt ("---> %s", SignalName (i))); if (i == SIGHUP) leave (); SaveDataDumpCore (win, 4); } void ResetConTimeout () { if (con_timeout > MIN_CONTIMEOUT) alarm (con_timeout); } void NoConTimeout () { if (con_timeout > MIN_CONTIMEOUT) alarm (0); } bool disconnecting = False; void Disconnect (i) int i; { signal(SIGALRM, Disconnect); NoConTimeout (); if (EmpireStatus () != E_COMMAND) { alarm (con_timeout); return; } if (! silent_con && i == SIGALRM) Message ("Timesaver timeout, disconnecting...."); disconnecting = True; AbortClient (silent_con ? DONT_PRINT : PRINT); disconnecting = False; } void FastQuit () { command_state = FASTQUIT_STATE; leave (); } void DoQuit () { if (BufferdCommands ()) if (! Confirm ( "You still have buffered commands, really quit ?", False)) return; leave (); } xemp5.1-beta/lib/clients/empire.c100444 12266 2116 7200 6043205665 15272 0ustar jponexor/* $Header: /a/victor/nexor/user4/jpo/xemp/xemp5.0/lib/clients/RCS/empire.c,v 5.3 1995/10/24 15:52:20 jpo Exp $ $Date: 1995/10/24 15:52:20 $ $Author: jpo $ $Id: empire.c,v 5.3 1995/10/24 15:52:20 jpo Exp $ $Locker: $ $Log: empire.c,v $ Revision 5.3 1995/10/24 15:52:20 jpo Removed some termcap dependencies Revision 5.2 1995/09/08 07:02:37 jpo few consts * Revision 5.1 93/03/14 16:42:30 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:17:27 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.5 1993/02/06 07:55:46 greyhelm * Test of GNUmake checkin * * Revision 4.4 1993/02/06 04:34:59 greyhelm * Added RCS header - Karl Hagen * */ #include "type.h" #include "main.h" WinInfo empire_win; int empire_height, empire_width; static char last [1024]; bool enable_empire_more = False; #ifdef TERMC_VERSION # define AT_Y empire_height - 1 #else # define AT_Y empire_height - 2 #endif void InitEmpire (inc_y, inc_width, inc_height, savelines) int inc_y, inc_width, inc_height, savelines; { empire_win = OpenEmpireWindow (root_win, inc_y, inc_width, inc_height, savelines, &empire_width, &empire_height); } void PrintAtEmpireMode (str, mode) const char *str; int mode; { if (! xstarted) return; #ifdef X_VERSION Scroll (empire_win, CharToPixelY (1)); #else Scroll (empire_win, 1); Refresh (); #endif /* X_VERSION */ if (str == (char *) 0) { fprintf (stderr, "PrintAtEmpire char * 0 ??\n"); return; } Print (empire_win, 0, AT_Y, Fmt ("%-.*s", empire_width - 1, str), mode); (void) strcpy (last, str); if (strlen (str) > empire_width) PrintAtEmpireMode (str + empire_width - 1, mode); else { FlushWindow (empire_win); Refresh (); } } void PrintAtEmpire (str) const char * str; { PrintAtEmpireMode (str, NORMAL); } void MessageAtEmpire (str) const char * str; { #ifdef TERMC_VERSION if (no_empwin) Message (Fmt ("tcemp: %s", str)); else PrintAtEmpire (Fmt ("tcemp: %s", str)); #else PrintAtEmpire (Fmt ("xemp: %s", str)); #endif /* TERMC_VERSION */ } void ReprintAtEmpire (str) const char * str; { int len; if (! xstarted) return; len = strlen (last); Print (empire_win, len, AT_Y, Fmt ("%-.*s", empire_width - 1 - len, str), BOLD); if (len + strlen (str) > empire_width - 1) PrintAtEmpireMode (str + empire_width - 1 - len, BOLD); else FlushWindow (empire_win); Refresh (); } void InputToEmpire () { char *ptr; int len; extern char *GetString (); enable_empire_more = True; for (;;) { FreeFmts (); do { len = strlen (last); ptr = GetString (empire_win, len, AT_Y, empire_width - 1 - len, GS_TEXT); if (ptr == (char *) 0 && (EmpireStatus () == E_COMMAND || EmpireStatus () == E_DEAD)) { interrupt = False; enable_empire_more = False; return; } } while (!interrupt && ptr == (char *) 0); if (interrupt) { interrupt = False; FeedEmpire ("aborted", PRINT); } else FeedEmpire (ptr, DONT_PRINT); (void) WaitForPrompt (PRINT); FlushWindow (empire_win); } } bool EmpireMore () { extern WinInfo empire_win; extern int empire_height; if (! xstarted) return True; #ifdef X_VERSION # define EMPIRE_MOREX 30 #else # define EMPIRE_MOREX 20 #endif PrintB (empire_win, EMPIRE_MOREX, empire_height - 1, "[ M O R E ]"); FlushWindow (empire_win); Refresh (); Pause (); PrintN (empire_win, EMPIRE_MOREX, empire_height - 1, " "); FlushWindow (empire_win) ; Refresh (); if (interrupt) { interrupt = False; return False; } return True; } xemp5.1-beta/lib/commands/ 40755 12266 2116 0 6043206335 13706 5ustar jponexorxemp5.1-beta/lib/commands/GNUdepend100644 12266 2116 31072 6015617324 15565 0ustar jponexorSRCS= again.c \ attack.c \ build.c \ commands.c \ convert.c \ deity.c \ deli.c \ demob.c \ design.c \ distri.c \ enlist.c \ fire.c \ grind.c \ load.c \ market.c \ mfire.c \ move.c \ multi.c \ pemp.c \ shoot.c \ territory.c \ threshold.c \ trade.c OBJS= again.o \ attack.o \ build.o \ commands.o \ convert.o \ deity.o \ deli.o \ demob.o \ design.o \ distri.o \ enlist.o \ fire.o \ grind.o \ load.o \ market.o \ mfire.o \ move.o \ multi.o \ pemp.o \ shoot.o \ territory.o \ threshold.o \ trade.o ### again.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h attack.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h build.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h commands.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h convert.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h deity.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/census.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h deli.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h demob.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h design.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h distri.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/slist.h enlist.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h fire.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h grind.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h market.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h mfire.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h move.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nuke.h multi.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/func.h \ ../parse/parser.h pemp.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/func.h shoot.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h territory.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h threshold.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h trade.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h xemp5.1-beta/lib/commands/GNUmakefile100644 12266 2116 1022 6034224507 16051 0ustar jponexor# The following variables are configurable. #-----------------------------------# LOCALCFLAGS := LOCALIFLAGS := -I../parse LOCALLFLAGS := LOCALSFLAGS := TOPDIR = ../.. LIB := ../libcommands.a LINTNAME := commands #-----------------------------------# # Productions: # depend: create the dependencies # all: make the library # saber: load things for saber # tags: make tags include $(TOPDIR)/make/GenMakefile include $(DEPENDENCIES) include $(TOPDIR)/make/LibMakefile tags: ../tags ln -s ../tags TAGS: ../TAGS ln -s ../TAGS xemp5.1-beta/lib/commands/again.c100444 12266 2116 1733 6023766607 15243 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/commands/RCS/again.c,v 5.2 1995/09/08 07:05:19 jpo Exp $ $Date: 1995/09/08 07:05:19 $ $Author: jpo $ $Id: again.c,v 5.2 1995/09/08 07:05:19 jpo Exp $ $Locker: $ $Log: again.c,v $ Revision 5.2 1995/09/08 07:05:19 jpo prototypes * Revision 5.1 93/03/14 16:42:42 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:18:04 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:32:23 greyhelm * Client for ASCII /X Empire client * Added RCS header - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" static AgainProc last_func = (AgainProc) 0; void SetAgain (proc) AgainProc proc; { last_func = proc; } void DoAgain () { if (last_func == (AgainProc) 0) { Message ("No previous command"); Bell (); return; } (* last_func) (); DrawSector (cursct); Census (); } xemp5.1-beta/lib/commands/attack.c100444 12266 2116 7372 6023766610 15432 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/commands/RCS/attack.c,v 5.1 1993/03/14 16:42:45 etienne Exp $ $Date: 1993/03/14 16:42:45 $ $Author: etienne $ $Id: attack.c,v 5.1 1993/03/14 16:42:45 etienne Exp $ $Locker: $ $Log: attack.c,v $ Revision 5.1 1993/03/14 16:42:45 etienne added stuff for landunits (not fully done) * Revision 5.0 93/02/06 09:18:04 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:32:23 greyhelm * Client for ASCII /X Empire client * Added RCS header - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "var.h" #include "ship.h" #include "land.h" #define MAX_ASS_SHIPS 127 void Attack () { char *movein, *answer; char *line, *ptri; Sector lastsct; Land land; int x, y, nr; FeedEmpire (Fmt ("attack %s", CrdStr (cursct)), PRINT); SetAgain (Attack); line = ReadEmpire (PRINT); if (line == (char *) 0) return; if (EmpireStatus () != E_QUESTION) { Message ("Attack failed"); Bell (); (void) WaitForPrompt (PRINT); return; } PrintAtEmpire (line); movein = InputAtMessage (line, 1, GS_NAME); if (interrupt || movein == (char *) 0) { interrupt = False; Message ("Chicken !!!"); FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); return; } *movein = (*movein == 'n' || *movein == 'N') ? 'n' : 'y'; FeedEmpire (Fmt ("%c", *movein), PRINT); lastsct = (Sector) 0; while (line = ReadEmpire (PRINT)) { if (line == (char *) 0) return; if (EmpireStatus () == E_QUESTION) { PrintAtEmpire (line); if (strncmp (line, "Number of troops from", 21) == 0) { ptri = line + 21; while (strncmp (ptri, " at ", 4) != 0 && *ptri != '\0') ptri++; if (*ptri != '\0' && sscanf (ptri, " at %d, %d ", &x, &y) == 2) { if (lastsct != (Sector) 0) UnmarkSector (lastsct); lastsct = World (x, y, S_EXIST); MarkSector (lastsct); } answer = InputAtMessage (line+10, 3, GS_PNUMBER); } else { ptri = index(line, '#'); sscanf (ptri, "#%d ", & nr); land = NrToLand (nr); if (lastsct != (Sector) 0) UnmarkSector (lastsct); lastsct = World (ld_xcd (land), ld_ycd (land), S_EXIST); MarkSector (lastsct); answer = InputAtMessage (line, 5, GS_NAME); } if (interrupt) { interrupt = False; Message ("Attack cancelled"); while (EmpireStatus () != E_COMMAND) { FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); } UnmarkSector (lastsct); return; } else if (answer == (char *) 0) answer = "0"; FeedEmpire (answer, PRINT); continue; } if (EmpireStatus () == E_COMMAND) { Bell (); Message ("Unexpected answer from empire. Failed ?"); UnmarkSector (lastsct); PrintAtEmpire (line); return; } if (StrEQ (line, "You have been defeated")) { Bell (); Message ("Sorry Boss, seems we've been defeated"); break; } if (StrEQ (line, "We have captured")) { Bell (); Message ("Veni Vedi Vici !!!"); break; } if (StrEQ (line, "No troops for attack")) { Bell (); Message ("Attack has failed, Enemy has been notified"); break; } } UnmarkSector (lastsct); (void) WaitForPrompt (PRINT); FScanDump (Fmt ("%d:%d,%d:%d", s_xcd (cursct) - 2, s_xcd (cursct) + 2, s_ycd (cursct) - 1, s_ycd (cursct) + 1), PRINT); FScanMap (Fmt ("%d:%d,%d:%d", s_xcd (cursct) - 2, s_xcd (cursct) + 2, s_ycd (cursct) - 1, s_ycd (cursct) + 1), DONT_PRINT); if (land_units) { DumpLand (Fmt ("%d:%d,%d:%d", s_xcd (cursct) - 2, s_xcd (cursct) + 2, s_ycd (cursct) - 1, s_ycd (cursct) + 1), DONT_PRINT); } DrawNeighbours (cursct); } xemp5.1-beta/lib/commands/build.c100444 12266 2116 7173 6023766610 15261 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/commands/RCS/build.c,v 5.1 1993/03/14 16:43:06 etienne Exp $ $Date: 1993/03/14 16:43:06 $ $Author: etienne $ $Id: build.c,v 5.1 1993/03/14 16:43:06 etienne Exp $ $Locker: $ $Log: build.c,v $ Revision 5.1 1993/03/14 16:43:06 etienne added landunits stuff * Revision 5.0 93/02/06 09:18:04 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:32:23 greyhelm * Client for ASCII /X Empire client * Added RCS header - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "nation.h" #include "version.h" static int build_ba = 41, build_bh = 100, build_bw = 200, build_bc = 2000; static double build_bt = 100.0; void FScanBuildBridge () { int n; char * line; n = 0; FeedEmpire ("show build bridge", PRINT); PrintAtEmpire ("Xemp: scanning output"); for (;;) { line = ReadEmpire (DONT_PRINT); if (EmpireStatus () != E_PRINTING) break; n += sscanf (line, "Bridges require %lf tech, %d hcm, %d wor", & build_bt, & build_bh, & build_bw); n += sscanf (line, "%d available workforce, and cost $%d", & build_ba, & build_bc); } PrintAtEmpire (line); (void) WaitForPrompt (PRINT); if (n != 5) { PrintAtEmpire ("Warning: can't find the build bridge values"); (void) EmpireMore (); } } void SaveBridgeData (fp) FILE * fp; { fprintf (fp, "%d %lf %d %d %d\n", build_ba, build_bt, build_bc, build_bh, build_bw); } void RestoreBridgeData (fp) FILE * fp; { if (fscanf (fp, "%d %lf %d %d %d\n", & build_ba, & build_bt, & build_bc, & build_bh, & build_bw) != 5) { PrintAtEmpire ("Incorrect savefile, bad show bridge\n"); EmpireMore (); } } void BuildBridge () { int x, y, button; Sector sct; if (cursct == (Sector) 0) return; if (! s_owned (cursct) || (s_des (cursct) != '#' && !EMPOption(EASY_BRIDGES))) { Message ("You can only build bridges at (owned) bridge-heads"); Bell (); return; } if (s_eff (cursct) < 60) { Message ("Should be at least 60%"); Bell (); return; } if (s_ava (cursct) < build_ba) { Message (Fmt ("Not enough available workers (need %d)", build_ba)); Bell (); return; } if (q_hcm (cursct) < build_bh) { Message (Fmt ("Not enough hcm's to build a bridge (need %d)", build_bh)); Bell (); return; } if ((double) n_tech (nation) < build_bt) { Message (Fmt ("Technology of %.2f required to build bridges", build_bt)); Bell (); return; } Message ("Select sector to build the bridge-head"); MesBut ("View", "Cancel", "Build"); for (;;) { if (! SelectSctCrd (& x, & y, & button) || button == MIDDLE_BUTTON) { Message ("Build bridge cancelled"); MesClearBut (); return; } sct = World (x, y, S_EXIST); if (sct == (Sector) 0 || NO_INFO (sct)) continue; if (button == LEFT_BUTTON) { CensusSct (sct); continue; } if (! Adjacent (cursct, sct)) { Message ("Should be adjacent to the bridge-head"); Bell (); continue; } if (s_des (sct) != '.') { Message ("Only across water"); Bell (); continue; } break; } MesClearBut (); FeedEmpire (Fmt ("build bridge %s", CrdStr (cursct)), PRINT); (void) WaitForPrompt (PRINT); if (EmpireStatus () == E_COMMAND) { Message ("Build failed !"); Bell (); return; } FeedEmpire (Fmt ("%c", GiveDirChar (cursct, sct)), PRINT); (void) WaitForPrompt (PRINT); set_des (sct, '='); DrawSector (sct); Message ("redumping bridge head"); RedumpSector (cursct, PRINT); Message ("Now you should explore the bridge span"); } xemp5.1-beta/lib/commands/commands.c100444 12266 2116 75431 6027322763 16006 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/commands/RCS/commands.c,v 5.4 1995/09/18 17:01:39 jpo Exp $ $Date: 1995/09/18 17:01:39 $ $Author: jpo $ $Id: commands.c,v 5.4 1995/09/18 17:01:39 jpo Exp $ $Locker: $ $Log: commands.c,v $ Revision 5.4 1995/09/18 17:01:39 jpo Added rescan of budget Revision 5.3 1995/09/13 07:27:21 jpo Added rescan of power Revision 5.2 1995/09/08 07:05:38 jpo scattered consts army and land modes some cleanups trapped some bugs * Revision 5.1 93/03/14 16:43:20 etienne * added landunits stuff * * Revision 5.0 93/02/06 09:18:04 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:32:23 greyhelm * Client for ASCII /X Empire client * Added RCS header - Karl Hagen * */ /* * commands.c */ #include "type.h" #include "main.h" #include "sector.h" #include "nation.h" #include "var.h" #include "ship.h" #include "land.h" #include "version.h" /***************************************************************************** * Buffer command * *****************************************************************************/ #define BF_TOGGLE 0 #define BF_SHOW 1 #define BF_FEED 2 #define BF_TEST 3 #define BF_MAX 4 static const char *buf_str [] = { "-------------------------", "show buffered commands ", /* Don't delete the extra ' ' */ "feed buffered commands", "enter test mode", (char *) 0 }; void InfoBufferMenu (x, y, i) int x, y, i; { switch (i) { case BF_TOGGLE: Help (x, y, "Buffer Toggle"); break; case BF_SHOW: Help (x, y, "Buffer Show"); break; case BF_FEED: Help (x, y, "Buffer Feed"); break; case BF_TEST: Help (x, y, "Buffer Test"); break; default: Help (x, y, "No Help"); break; } } void BufferMenu (x, y) int x, y; { Strings strings; Pager pager; bool cont; int i; strings = InitStrings (); AddStringsID (strings, buf_str, BF_MAX, 0); if (command_state == NORMAL_STATE) ChangeString (strings, BF_TOGGLE, "toggle buffering (now off)"); else if (command_state == BUFFER_STATE) ChangeString (strings, BF_TOGGLE, "toggle buffering (now on)"); else if (command_state == FORCE_BUF_STATE) ChangeString (strings, BF_TOGGLE, "toggle buffering (now force)"); else if (command_state == TEST_STATE) ChangeString (strings, TEST_STATE, "reset save-files"); pager = InitPager (strings, "Buffering"); SetInfoOnPager (pager, InfoBufferMenu); MapPagerFromTop (pager, map_win, x, y); cont = True; while (cont) { i = PagerMenu (pager); if (i < 0) { cont = False; break; } if (i == BF_TOGGLE) { if (command_state == NORMAL_STATE) { command_state = BUFFER_STATE; ChangePagerString (pager, BF_TOGGLE, "toggle buffering (now on)"); } else if (command_state == BUFFER_STATE) { command_state = FORCE_BUF_STATE; ChangePagerString (pager, BF_TOGGLE, "toggle buffering (now force)"); } else if (command_state == FORCE_BUF_STATE) { command_state = NORMAL_STATE; ChangePagerString (pager, BF_TOGGLE, "toggle buffering (now off)"); } else /* if (command_state == TEST_STATE) */ { Message ("Not yet implemented"); cont = False; } ShowPagerLine (pager, i); continue; } if (i == BF_TEST) { command_state = TEST_STATE; Message ("Now in test mode"); Disconnect (-1); cont = False; continue; } if (i == BF_SHOW) { ShowBufCommands (x + 5, y + 5); continue; } if (i == BF_FEED) { if (! BufferdCommands ()) { Message ("No commands buffered"); Bell (); } else Reconnect (); cont = False; } } FreePager (pager); FreeStrings (strings); } /******************************************************************************* * Rescan Menu * *******************************************************************************/ #define RS_ALL 0 #define RS_MAPDUMP 1 #define RS_DUMP 2 #define RS_SHIPS 3 #define RS_PLANES 4 #define RS_UNITS 5 #define RS_NUKES 6 #define RS_LRADAR 7 #define RS_SRADAR 8 #define RS_LOOK 9 #define RS_CNAMES 10 #define RS_MAP 11 #define RS_SHOWSHPL 12 #define RS_LANDSHOW 13 #define RS_NATION 14 #define RS_SATELLITE 15 #define RS_PRODUCTION 16 #define RS_BMAP 17 #define RS_VERSION 18 #define RS_POWER 19 #define RS_BUDGET 20 #define RS_MAX 21 static const char *resc_menu [] = { "all", "map & dump", "dump", "ships & cargo", "planes", "units & cargo", "nukes", "land radars", "ship radars", "lookout & coastwatch", "other country names", "map", "show ship/plane/nuke c&b", "show land c&b&s", "nation", "satellite", "production", "bmap", "version", "power", "budget", (char *) 0 }; static void Rescan (x, y) int x, y; { int i; Strings strings; Pager pager; char * realm; strings = InitStrings (); AddStringsID (strings, resc_menu, RS_MAX, 0); pager = InitPager (strings, "Rescan ?"); MapPagerFromTop (pager, map_win, x, y); for (;;) { i = PagerMenu (pager); if (i < 0) { FreePager (pager); FreeStrings (strings); return; } switch (i) { case RS_SHOWSHPL: FScanShowShipBuild (); FScanShowShipCap (); FScanShowPlaneBuild (); FScanShowPlaneCap (); FScanNukeShowBuild (); FScanNukeShowCap (); continue; case RS_LANDSHOW: if (!land_units) { Message ("Land Units not in this Version"); continue; } FScanShowLandBuild(); FScanShowLandStats(); FScanShowLandCap(); continue; case RS_PLANES: DumpPlanes ("*", PRINT); continue; case RS_UNITS: if (land_units) DumpLand ("*", PRINT); continue; case RS_SHIPS: if (Confirm ("Delete enemy ships ?", True)) DeleteEnemyShips (); MarkAllShips (); DumpShips ("*", PRINT); SearchMarkedShips (PRINT); continue; case RS_POWER: ScanNewPower (); continue; case RS_BUDGET: ScanNewBudget (); continue; case RS_NUKES: FScanNukes ("*", PRINT); continue; case RS_CNAMES: FindMyCnum (); continue; case RS_SRADAR: FeedRadarShips (); DrawMap (); continue; case RS_SATELLITE: FeedSatellite (); DrawMap (); continue; case RS_VERSION: FScanVersion(); continue; case RS_PRODUCTION: { char *file; file = InputAtMessage ("Productionfile [- for mailbox]: ", 80, GS_TEXT); if (file == (char *) 0) Message ("Rescan production cancelled"); else ReadProduction(file); continue; } case RS_BMAP: FScanBmap("*", PRINT); DrawMap(); continue; case RS_NATION: FScanNation (); continue; case RS_ALL: FScanNation (); FScanShowShipBuild (); FScanShowShipCap (); FScanShowPlaneBuild (); FScanShowPlaneCap (); if (land_units) { FScanShowLandBuild (); FScanShowLandStats (); FScanShowLandCap (); } FScanNukeShowBuild (); FScanNukeShowCap (); DumpPlanes ("*", PRINT); DeleteEnemyShips (); MarkAllShips (); DumpShips ("*", PRINT); SearchMarkedShips (PRINT); if (land_units) DumpLand ("*", PRINT); FScanNukes ("*", PRINT); FeedRadarShips (); DrawMap (); FScanMap ("*",PRINT); (void) FScanDump("*",PRINT); MarkShips ("*"); FScanCoastWatch("*"); UnmarkAllShips(); FScanRadar ("#"); DrawMap (); continue; } RaiseAll (); Message ("Select realm to rescan"); while ((realm = MySelRealm ()) != (char *) 0) { if (i == RS_MAP || i == RS_MAPDUMP) FScanMap (realm, PRINT); if (i == RS_DUMP || i == RS_MAPDUMP) (void) FScanDump (realm, PRINT); if (i == RS_LOOK) { MarkShips (realm); FScanCoastWatch (realm); FScanLookout (realm); /* DeleteMarkedEnemyShips (); */ UnmarkAllShips(); MarkLands (realm); if (land_units) { FScanLLookout (realm); UnmarkAllLands (); } } if (i == RS_LRADAR) { FScanRadar (realm); if (land_units) FScanLRadar (realm); } DrawMap (); } LowerAll (); } } /******************************************************************************* * Utility Menu * *******************************************************************************/ #define UTIL_DISTR 0 #define UTIL_DISISL 1 #define UTIL_EXPLORE 2 #define UTIL_FERRY 3 #define UTIL_CHECK 4 #define UTIL_UPDATE 5 #define UTIL_COUNTRY 6 #define UTIL_PLAN 7 #define UTIL_MAX 8 static const char *util_strs [] = { "Distribute global", "Distribute realm", "Explore", "Ferry", "Check", "Simulate update", "Country information", "Plan utility", (char *) 0 }; void HelpOnUtils (x, y, i) int x, y, i; { switch (i) { case UTIL_DISTR: Help (x, y, "Distribute Utility"); break; case UTIL_EXPLORE: Help (x, y, "Explore Utility"); break; case UTIL_FERRY: Help (x, y, "Ferry Utility"); break; case UTIL_CHECK: Help (x, y, "Check Utility"); break; case UTIL_UPDATE: Help (x, y, "Update Utility"); break; case UTIL_COUNTRY: Help (x, y, "Country Utility"); break; default: Help (x, y, "No Help"); break; } } static void Utils (x, y) int x, y; { Pager pager; char *path, *realm, *answer; Strings strings; int x1, x2, y1, y2; Sector to, from; int i; strings = InitStrings (); AddStringsID (strings, util_strs, UTIL_MAX, 0); pager = InitPager (strings, "Which Utility"); SetInfoOnPager (pager, HelpOnUtils); MapPagerFromTop (pager, map_win, x, y); i = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (interrupt || i < 0) { interrupt = False; Message ("Utility cancelled"); return; } switch (i) { case UTIL_DISTR: UtilDist (x + 2, y + 2); return; case UTIL_DISISL: DistributeRealm (cursct); return; case UTIL_EXPLORE: ExploreUtil (); return; case UTIL_FERRY: FerryUtil (x + 2, y + 2); break; case UTIL_CHECK: Check (); break; case UTIL_UPDATE: SimulateUpdate ("*"); break; case UTIL_COUNTRY: UtilNatInfo (x + 2, y + 2); break; case UTIL_PLAN: PlanUtil (x, y); break; } } /******************************************************************************* * Make Map Menu * *******************************************************************************/ #define MAP_COORD 0 #define MAP_NORM 1 #define MAP_NUM 2 #define MAP_DES 3 #define MAP_MAX 4 static const char *str_savemapmodes [] = { "toggle coordinates (now off)", "sea/land only", "sea/countrynum", "designation", (char *) 0 }; int GetSaveMode (x, y) int x, y; { Pager pager; Strings strings; bool cont; int i; static int flag = W_COORD; strings = InitStrings (); AddStringsID (strings, str_savemapmodes, MAP_MAX, 0); if ((flag & W_COORD) == 0) ChangeString (strings, MAP_COORD, "toggle coordinates (now off)"); pager = InitPager (strings, "Make a map"); MapPagerFromTop (pager, map_win, x, y); cont = True; while (cont) { i = PagerMenu (pager); if (i < 0) { FreePager (pager); FreeStrings (strings); return -1; } if (i == MAP_COORD) { if (flag & W_COORD) { flag &= ~W_COORD; ChangeString (strings, MAP_COORD, "toggle coordinates (now off)"); } else { flag |= W_COORD; ChangeString (strings, MAP_COORD, "toggle coordinates (now on) "); } ShowPagerLine (pager, i); } else cont = False; } FreePager (pager); FreeStrings (strings); switch (i) { case MAP_NORM: return (flag | W_NORM); case MAP_NUM: return (flag | W_COUN); case MAP_DES: return (flag | W_DES); } /* NOTREACHED */ } /******************************************************************************* * Change Mode Menu * *******************************************************************************/ /* in main.h you find the defines (NORMAL_MODE, SHIPMODE, etc) */ #define MAX_MODES 11 static const char *mode_menu [] = { "Normal mode", /* 0 */ "Ship mode", /* 1 */ "Plane mode", /* 2 */ "Nuke mode", /* 3 */ "Fleet mode", /* 4 */ "Wing mode", /* 5 */ "Ferry mode", /* 6 */ "Plan mode", /* 7 */ "Info mode", /* 8 */ "Army Mode", /* 9 */ "Land Mode", /* 10 */ (char *) 0 }; void InfoOnCensusMode (x, y, i) int x, y, i; { switch (i) { case NORMAL_MODE: Help (x, y, "Normal Mode"); break; case SHIP_MODE : Help (x, y, "Ship Mode"); break; case PLANE_MODE : Help (x, y, "Plane Mode"); break; case NUKE_MODE : Help (x, y, "Nuke Mode"); break; case FLEET_MODE : Help (x, y, "Fleet Mode"); break; case WING_MODE : Help (x, y, "Wing Mode"); break; case ARMY_MODE: Help (x, y, "Army Mode"); break; case LAND_MODE: Help (x, y, "Land Mode"); break; default : Help (x, y, "No Help"); break; } } void ChangeCommandMode (x, y) int x, y; { Pager pager; Strings strings; bool drawmap; int i; strings = InitStrings (); AddStringsID (strings, mode_menu, MAX_MODES, 0); #ifdef X_VERSION DeleteString (strings, INFO_MODE); #endif pager = InitPager (strings, "Which mode ?"); SetInfoOnPager (pager, InfoOnCensusMode); MapPagerFromTop (pager, map_win, x, y); i = PagerMenu (pager); if (i < 0 || interrupt) { FreeStrings (strings); FreePager (pager); interrupt = False; return; } drawmap = (command_mode == PLAN_MODE); Message (Fmt ("Mode is now '%s'", mode_menu[i])); command_mode = i; Census (); FreeStrings (strings); FreePager (pager); if (command_mode == PLAN_MODE || drawmap) DrawMap (); } #define CC_CONNECT 0 #define CC_CONTIMEOUT 1 #define CC_DISCONNECT 2 #define CC_SILENTCON 3 #define CC_QUIT 4 #define CC_QUITNOSAVE 5 #define CC_NR 6 static const char *ccom [] = { "connect", "set connect timeout (now XXXX)", "disconnect", "turn silent (dis)connect on (now off)", "quit", "quit, no save data", (char *) 0 }; void Connections (x, y) int x, y; { Pager pager; Strings strings; char *new; bool cont; bool save_con; extern unsigned con_timeout; extern bool silent_con; int i; strings = InitStrings (); AddStringsID (strings, ccom, CC_NR, 0); if (! silent_con) ChangeString (strings, CC_SILENTCON, "turn silent (dis)connect on (now off)"); ChangeString (strings, CC_CONTIMEOUT, con_timeout > MIN_CONTIMEOUT ? Fmt ("set connect timeout (now %4d)", con_timeout) : "set connect timeout (now off)"); pager = InitPager (strings, "Connection"); MapPagerFromTop (pager, map_win, x, y); cont = True; while (cont) { i = PagerMenu (pager); if (i < 0) { FreePager (pager); FreeStrings (strings); return; } if (i == CC_SILENTCON) { if (silent_con) { silent_con = False; ChangeString (strings, CC_SILENTCON, "turn silent (dis)connect on (now off)"); } else { silent_con = True; ChangeString (strings, CC_SILENTCON, "turn silent (dis)connect off (now on)"); } ShowPagerLine (pager, i); } else if (i == CC_CONTIMEOUT) { new = InputAtMessage ( Fmt ("new connect timeout (off is <= %d) ?", MIN_CONTIMEOUT), 4, GS_PNUMBER); if (new == (char *) 0 || *new == '\0' || interrupt) { interrupt = False; Message ("Change connection timeout cancelled"); continue; } con_timeout = atoi (new); ChangeString (strings, CC_CONTIMEOUT, con_timeout > MIN_CONTIMEOUT ? Fmt ("set connect timeout (now %4d)", con_timeout) : "set connect timeout (now off)"); SetSignalsOn (); ResetConTimeout (); ShowPagerLine (pager, i); } else cont = False; } FreePager (pager); FreeStrings (strings); switch (i) { case CC_QUITNOSAVE: save_data = False; /* FALL THROUGH */ case CC_QUIT: DoQuit (); break; case CC_DISCONNECT: if (EmpireStatus () == E_DEAD) { Message ("Already disconnected"); Bell (); break; } save_con = silent_con; silent_con = False; Disconnect (-1); silent_con = save_con; break; case CC_CONNECT: if (EmpireStatus () != E_DEAD) { Message ("Already connected"); Bell (); break; } save_con = silent_con; silent_con = False; Reconnect (); silent_con = save_con; break; } return; } #define DE_EDITSHIP 0 #define DE_EDITCOUNTRY 1 #define DE_ADDCOUNTRY 2 #define DE_NEWCAP 3 #define DE_MAX 4 static const char *deity_menu [] = { "edit ship", "edit country", "add nation", "newcap", (char *) 0 }; static void DeityCommands (x, y) int x, y; { Strings strings; Pager pager; strings = InitStrings (); AddStringsID (strings, deity_menu, DE_MAX, 0); pager = InitPager (strings, "Deity commands"); MapPagerFromTop (pager, map_win, x, y); switch (PagerMenu (pager)) { case DE_EDITSHIP: DeityEditShips (x, y); FreePager (pager); FreeStrings (strings); break; case DE_EDITCOUNTRY: DeityEditCountry (x, y); FreePager (pager); FreeStrings (strings); break; case DE_ADDCOUNTRY: FreePager (pager); FreeStrings (strings); AddNation (x, y); break; case DE_NEWCAP: FreePager (pager); FreeStrings (strings); DoNewCap (x, y); break; } } /******************************************************************************* * Global Command Menu * *******************************************************************************/ #define GC_CENSUSMODE 0 #define GC_COMMUN 1 #define GC_CONNECTIONS 2 #define GC_DISPLAY 3 #define GC_MULTI 4 #define GC_PAGECOM 5 #define GC_INFO 6 #define GC_RESCAN 7 #define GC_UTILITIES 8 #define GC_BUFFER 9 #define GC_DEITY 10 #define GC_NR 11 static const char *gcom [] = { "census mode", "communications", "connection", "display", "multi (realm) commands", "page empire commands", "info", "re-scan", "utilities", "buffered commands", "deity", (char *) 0 }; void GlobalCommands (x, y) int x, y; { Strings strings; Pager pager; int r; strings = InitStrings (); AddStringsID (strings, gcom, GC_NR - 1, 0); if (deity) AddStringID (strings, gcom [GC_DEITY], GC_DEITY); pager = InitPager (strings, "Command ?"); MapPagerFromTop (pager, map_win, x, y); r = PagerMenu (pager); switch (r) { case GC_DISPLAY: ChangeDisplay (x + 5, y + 5); break; case GC_CENSUSMODE: ChangeCommandMode (x + 5, y + 5); break; case GC_COMMUN: Commun (x + 2, y + 2); break; case GC_PAGECOM: WMPageCommand (x + 2, y + 2); break; case GC_MULTI: FreePager (pager); FreeStrings (strings); Multi (x + 2, y + 2); return; case GC_RESCAN: FreePager (pager); FreeStrings (strings); Rescan (x + 2, y + 2); return; case GC_INFO: InfoCommands (x + 2, y + 2); break; case GC_UTILITIES: FreePager (pager); FreeStrings (strings); Utils (x + 2, y + 2); Census (); return; case GC_CONNECTIONS: Connections (x + 2, y + 2); break; case GC_DEITY: DeityCommands (x + 5, y + 5); break; case GC_BUFFER: BufferMenu (x + 5, y + 5); break; } FreePager (pager); FreeStrings (strings); Census (); } #define MAX_COMMANDS 41 #define CM_ASSAULT 0 #define CM_ATTACK 1 #define CM_BOARD 2 #define CM_BUILDSHIP 3 #define CM_BUILDPLANE 4 #define CM_BUILDBRIDGE 5 #define CM_BUILDNUKE 6 #define CM_CAPITOL 7 #define CM_COASTWATCH 8 #define CM_CONVERT 9 #define CM_DEMOBILIZE 10 #define CM_DESIGNATE 11 #define CM_DELIVER 12 #define CM_DISTR_LOC 13 #define CM_ENLIST 14 #define CM_EXPLORE 15 #define CM_SHOOT 16 #define CM_LANDFIRE 17 #define CM_LOOKOUT 18 #define CM_MOVE 19 #define CM_NAVIGATE 20 #define CM_LANDRADAR 21 #define CM_ORIGIN 22 #define CM_REDUMP 23 #define CM_SCRAP 24 #define CM_UPGRADE 25 #define CM_SHIPRADAR 26 #define CM_SHIPFIRE 27 #define CM_SPY 28 #define CM_FLY 29 #define CM_LAUNCH 30 #define CM_TRANSPORT 31 #define CM_BOMB 32 #define CM_PARADROP 33 #define CM_DROP 34 #define CM_RECON 35 #define CM_FLEETADD 36 #define CM_WINGADD 37 #define CM_CHANGEOWNER 38 #define CM_SELL 39 #define CM_MULTI 40 #define CM_GRIND 41 #define CM_CEDE 42 #define CM_START 43 #define CM_STOP 44 #define CM_BUILDUNIT 45 #define CM_MARCH 46 #define CM_ARMYADD 47 #define CM_FORTIFY 48 #define CM_WORK 49 #define CM_LMINE 50 #define CM_LSCUTTLE 51 #define CM_LSCRAP 52 #define CM_SCUTTLE 53 #define CM_PMINE 54 static char * const sct_command [] = { "assault", "attack", "board ship", "build ship", "build plane", "build bridge", "build nuke", "capitol", "coastwatch", "convert", "demobilize", "designate", "deliver", "distribute", "enlist", "explore", "shoot", "fire", "lookout", "move", "navigate", "landradar", "origin", "redump sector", "scrap ship", "upgrade", "radar", "fire", "spy", "fly", "launch", "transport", "bomb", "paradrop", "drop", "recon", "fleet add", "wing add", "change owner", "sell", "multi-fire", "grind", "cede", "start", "stop", "build landunit", "march", "army add", "fortify", "work", "landmine", "scuttle land", "scrap land", "scuttle ship", "airmine", (char *) 0 }; void SectorCommands (x, y) int x, y; { char *ptr; int r; Sector nxt; Neighb neighb; char * what; Strings strings; Pager pager; extern int capitol_x, capitol_y; extern int last_layout; extern void MultiFire(); strings = InitStrings (); #define ADD(X) AddSortStringID (strings, sct_command [X], X) /* #define ADD(X) AddStringID (strings, sct_command [X], X) */ /* * First add all ship/fleet commands */ if (last_layout == SHIP_MODE || last_layout == FLEET_MODE) { if (SectorHasOwnedShips (cursct, 1)) /* could be enemy */ { ADD (CM_NAVIGATE); if (s_des (cursct) == 'h' && (deity || (s_owned (cursct) && s_eff (cursct) >= 60))) { ADD (CM_SCRAP); ADD (CM_UPGRADE); ADD (CM_FLEETADD); } } } if (last_layout == PLANE_MODE || last_layout == WING_MODE) { ADD (CM_WINGADD); ADD (CM_FLY); ADD (CM_TRANSPORT); ADD (CM_BOMB); ADD (CM_PARADROP); ADD (CM_DROP); ADD (CM_RECON); ADD (CM_PMINE); } if (last_layout == PLANE_MODE) ADD (CM_LAUNCH); ADD (CM_DESIGNATE); if (! s_owned (cursct) || deity) ADD (CM_CHANGEOWNER); if (!s_owned (cursct) && s_des (cursct) != '.' && s_des (cursct) != '\\') { InitNeighbours (cursct, & neighb); while (NextNeighbour (& nxt, S_OWNED, neighb)) { if ((s_mob (nxt) > 0 && s_mil (nxt) > 0) || (s_land (nxt) > 0 )) { ADD (CM_ATTACK); break; } } } if (s_owned (cursct) || deity) { if (s_des (cursct) == 'h' && (deity || s_eff (cursct) >= 60)) ADD (CM_BUILDSHIP); if (s_des (cursct) == '!' && (deity || s_eff (cursct) >= 60)) ADD (CM_BUILDUNIT); if (s_des (cursct) == '*' && (deity || s_eff (cursct) >= 60)) ADD (CM_BUILDPLANE); if (s_des (cursct) == '#' && s_eff (cursct) > 59 && !EMPOption(EASY_BRIDGES)) ADD (CM_BUILDBRIDGE); if (IsCoast (cursct) && s_eff (cursct) > 59 && EMPOption(EASY_BRIDGES)) ADD (CM_BUILDBRIDGE); if (s_des (cursct) == 'n' && (deity || s_eff (cursct) >= 60)) ADD (CM_BUILDNUKE); if (s_des (cursct) == 'c' || (s_des(cursct) == '^' && emp3server)) ADD (CM_CAPITOL); if (s_occ (cursct) == '*' && s_mob (cursct) > 0) ADD(CM_CONVERT); ADD (CM_DELIVER); if (s_eff (cursct) > 59 && s_mil (cursct) > 0) ADD (CM_DEMOBILIZE); ADD (CM_DISTR_LOC); if (n_mil_res (nation) > 0 && s_civ (cursct) > 0) ADD (CM_ENLIST); ADD (CM_MOVE); if (s_mob (cursct) > 0) ADD (CM_EXPLORE); if (s_mil (cursct) > 0 && s_mob (cursct) > 0) ADD (CM_SHOOT); if (s_des (cursct) == 'f' && q_gun (cursct) > 0 && q_she (cursct) > 0) { ADD (CM_LANDFIRE); if (EMPOption(MULTIFIRE)) ADD (CM_MULTI); } ADD (CM_COASTWATCH); if (s_des (cursct) == ')') ADD (CM_LANDRADAR); InitNeighbours (cursct, & neighb); while (NextNeighbour (& nxt, S_DESIG, neighb)) { if ((deity || ! s_owned (nxt)) && s_des (nxt) != '.' && s_des (nxt) != '\\') { if (s_mil (cursct) > 0) ADD (CM_SPY); if (s_mob (cursct) > 0) ADD (CM_CEDE); break; } } ADD (CM_ORIGIN); if (market) ADD (CM_SELL); if (q_bar (cursct) > 0 && s_eff (cursct) > 59 && s_ava (cursct) > 0 && EMPOption(GRIND)) ADD (CM_GRIND); } if ((deity || ! s_owned (cursct)) && s_des (cursct) != '.' && s_des (cursct) != '\\') { if (IsCoast (cursct) && !EMPOption(OWNASSAULT)) ADD (CM_ASSAULT); } if (IsCoast (cursct) && EMPOption(OWNASSAULT)) ADD (CM_ASSAULT); if (last_layout != SHIP_MODE && last_layout != FLEET_MODE) { if (SectorHasOwnedShips (cursct, 1)) /* could be enemy */ { ADD (CM_NAVIGATE); ADD (CM_FLEETADD); if (s_des (cursct) == 'h' && (deity || (s_owned (cursct) && s_eff (cursct) >= 60))) { ADD (CM_SCRAP); ADD (CM_UPGRADE); } } } if (last_layout != LAND_MODE && last_layout != ARMY_MODE) { if (SectorHasOwnedLands (cursct, 1)) { ADD (CM_MARCH); ADD (CM_ARMYADD); if (s_owned (cursct)) ADD (CM_LSCRAP); } } if (last_layout != PLANE_MODE && last_layout != WING_MODE && s_pla (cursct) > 0) { ADD (CM_WINGADD); ADD (CM_FLY); ADD (CM_TRANSPORT); ADD (CM_BOMB); ADD (CM_PARADROP); ADD (CM_DROP); ADD (CM_RECON); ADD (CM_PMINE); } ADD (CM_REDUMP); if (EMPOption(STOP) && s_owned (cursct) && !s_off (cursct)) ADD (CM_STOP); if (EMPOption (STOP) && s_owned (cursct) && s_off (cursct)) ADD (CM_START); pager = InitPager (strings, "Your command sir ?"); MapPagerFromTop (pager, map_win, x + 2, y + 2); r = PagerMenu (pager); switch (r) { case CM_MULTI: FreePager (pager); FreeStrings (strings); MultiFire (); break; case CM_ASSAULT: FreePager (pager); FreeStrings (strings); Assault (x + 2, y + 2); break; case CM_ATTACK: FreePager (pager); FreeStrings (strings); Attack (); break; case CM_BUILDSHIP: BuildShip (x + 5, y + 5); FreePager (pager); FreeStrings (strings); break; case CM_BUILDUNIT: BuildLand (x + 5, y + 5); FreePager (pager); FreeStrings (strings); break; case CM_BUILDPLANE: BuildPlane (x + 5, y + 5); FreePager (pager); FreeStrings (strings); return; case CM_BUILDBRIDGE: FreePager (pager); FreeStrings (strings); BuildBridge (); return; case CM_BUILDNUKE: FreePager (pager); FreeStrings (strings); BuildNuke (x + 5, x + 5); return; case CM_BOARD: Board (x + 2, y + 2); FreePager (pager); FreeStrings (strings); break; case CM_CAPITOL: FeedEmpire (Fmt ("capitol %s", CrdStr (cursct)), PRINT); ptr = ReadEmpire (PRINT); if (ptr == (char *) 0) return; Bell (); if (EmpireStatus () != E_PRINTING || strncmp (ptr, "Capital now at", 14) != 0) { Message ("Capitol command failed"); if (EmpireStatus () != E_PRINTING) PrintAtEmpire (ptr); } else { capitol_x = s_xcd (cursct); capitol_y = s_ycd (cursct); Message (ptr); } (void) WaitForPrompt (PRINT); FreePager (pager); FreeStrings (strings); break; case CM_COASTWATCH: FScanCoastWatch (CrdStr (cursct)); FreePager (pager); FreeStrings (strings); DrawMap (); break; case CM_CONVERT: DeityChange (cursct); SingleConvert (); FreePager (pager); FreeStrings (strings); break; case CM_DEMOBILIZE: DeityChange (cursct); SingleDemob (); FreePager (pager); FreeStrings (strings); break; case CM_DESIGNATE: DeityChange (cursct); Design (cursct, x + 1, y + 1); FreePager (pager); FreeStrings (strings); break; case CM_DELIVER: DeityChange (cursct); FreePager (pager); FreeStrings (strings); Deliver (x, y); break; case CM_DISTR_LOC: DeityChange (cursct); FreePager (pager); FreeStrings (strings); Distribute (cursct, x, y); break; case CM_ENLIST: DeityChange (cursct); SingleEnlist (); FreePager (pager); FreeStrings (strings); break; case CM_EXPLORE: DeityChange (cursct); FreePager (pager); FreeStrings (strings); Explore (x, y); break; case CM_SHOOT: DeityChange (cursct); FreePager (pager); FreeStrings (strings); SingleShoot (); break; case CM_LANDFIRE: FreePager (pager); FreeStrings (strings); FireFromSector (); break; case CM_LANDRADAR: FScanRadar (CrdStr (cursct)); DrawMap (); FreePager (pager); FreeStrings (strings); break; case CM_MOVE: FreePager (pager); FreeStrings (strings); Move (x, y); break; case CM_NAVIGATE: FreePager (pager); FreeStrings (strings); Navig (x, y); break; case CM_FLEETADD: FleetAdd (x, y); FreePager (pager); FreeStrings (strings); Census (); break; case CM_ORIGIN: FreePager (pager); FreeStrings (strings); ChangeOrigin (cursct); break; case CM_SCRAP: what = SelectShips (x, y, ST_SCRAP, "Scrap which ships ?"); if (what != (char *) 0) ScrapShip (what); FreePager (pager); FreeStrings (strings); break; case CM_LSCRAP: what = SelectLands (x, y, LD_SCRAP, "Scrap which lands ?"); if (what != (char *) 0) ScrapLand (what); FreePager (pager); FreeStrings (strings); break; case CM_UPGRADE: what = SelectShips (x, y, ST_UPGRADE, "Upgrade which ships ?"); if (what != (char *) 0) UpgradeShip (what); FreePager (pager); FreeStrings (strings); break; case CM_SPY: FScanSpy (CrdStr (cursct)); FreePager (pager); FreeStrings (strings); break; case CM_REDUMP: if (FScanDump (CrdStr (cursct), PRINT) == 0 && KNOW_ALL (cursct)) { PrintAtEmpire (Fmt ("Sector %s has been lost !!", CrdStr (cursct))); set_owner (cursct, UNKNOWN_CNUM); DEL_INFO (cursct); SET_INFO_RES (cursct); } if (s_shi (cursct) > 0) (void) DumpSctShips (cursct, PRINT); if (s_pla (cursct) > 0) (void) DumpSctPlanes (cursct, PRINT); if (s_land (cursct) > 0) (void) DumpSctLands (cursct, PRINT); FreePager (pager); FreeStrings (strings); break; case CM_FLY: FreePager (pager); FreeStrings (strings); Fly (x, y); break; case CM_DROP: FreePager (pager); FreeStrings (strings); DropOff (x, y); break; case CM_PMINE: FreePager (pager); FreeStrings (strings); DropOffMines (x,y); break; case CM_PARADROP: FreePager (pager); FreeStrings (strings); DoParadrop (x, y); break; case CM_BOMB: FreePager (pager); FreeStrings (strings); Bomb (x, y); break; case CM_LAUNCH: FreePager (pager); FreeStrings (strings); DoLaunch (curplane); break; case CM_TRANSPORT: FreePager (pager); FreeStrings (strings); DoTransport (x, y); break; case CM_WINGADD: FreePager (pager); FreeStrings (strings); WingAdd (x, y); break; case CM_RECON: /* mta */ FreePager (pager); FreeStrings (strings); DoRecon (x, y); break; case CM_CHANGEOWNER: /* - heinola 9/11/91. */ ChangeOwner (cursct); FreePager (pager); FreeStrings (strings); break; case CM_SELL: /* jpo */ FreePager (pager); FreeStrings (strings); SingleSell (x, y); break; case CM_CEDE: Cede (cursct); FreePager (pager); FreeStrings (strings); break; case CM_GRIND: SingleGrind (); FreePager (pager); FreeStrings (strings); break; case CM_START: SingleStart (cursct); FreePager (pager); FreeStrings (strings); break; case CM_STOP: SingleStop (cursct); FreePager (pager); FreeStrings (strings); break; case CM_MARCH: FreePager (pager); FreeStrings (strings); Mar (10,10); break; case CM_ARMYADD: FreePager (pager); FreeStrings (strings); ArmyAdd (x,y); break; default: FreePager (pager); FreeStrings (strings); } Census (); DrawSector (cursct); } xemp5.1-beta/lib/commands/convert.c100444 12266 2116 7407 6023766610 15642 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/commands/RCS/convert.c,v 5.2 1995/09/08 07:06:56 jpo Exp $ $Date: 1995/09/08 07:06:56 $ $Author: jpo $ $Id: convert.c,v 5.2 1995/09/08 07:06:56 jpo Exp $ $Locker: $ $Log: convert.c,v $ Revision 5.2 1995/09/08 07:06:56 jpo fixed for prototypes * Revision 5.1 93/03/14 16:43:23 etienne * corrected small bug, shows not right numbers * * Revision 5.0 93/02/06 09:18:04 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:32:23 greyhelm * Client for ASCII /X Empire client * Added RCS header - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" static int last_number; void RedoConvert () { DoConvert (CrdStr (cursct), last_number, '\0'); } /* ARGSUSED */ void BindConvert (x, y, str) /* convert (10) */ int x, y; char * str; { int number; if (str == (char *) 0 || sscanf (str, "( %d )", & number) == 0) SingleConvert (); else DoConvert (CrdStr (cursct), number, '\0'); } /* ARGSUSED */ void DoConvert (realm, quant, ch) char * realm; int quant; char ch; { char * ptr; int conv; Sector sct; int x, y; int sx, sy, ex, ey; int newuw; int total_conv; (void) ConvRealmToCoord (realm, & sx, & sy, & ex, & ey); SetAgain (RedoConvert); last_number = quant; if (command_state == TEST_STATE || command_state == FORCE_BUF_STATE) { total_conv = 0; if (command_state == FORCE_BUF_STATE) FeedCommand (Fmt ("convert %s %d", realm, quant), PRINT); for (y = sy; y <= ey; y ++) for (x = sx; x <= ex; x ++) { sct = World (x, y, S_EXIST); if (sct == (Sector) 0 || ! s_owned (sct) || s_occ (sct) != '*' || s_civ (sct) <= 0 || s_civ (sct) > s_mil (sct) * 10) continue; newuw = s_civ (sct); if (newuw > quant) newuw = quant; if (q_uw (sct) + newuw > max_civ_uw) newuw = max_civ_uw - q_uw (sct); if (newuw <= 0) continue; if (newuw > 5 * s_mob (sct)) newuw = s_mob (sct) * 5; total_conv += newuw; set_civ (sct, s_civ (sct) - newuw); set_q_uw (sct, q_uw (sct) + newuw); set_mob (sct, s_mob (sct) - roundavg (newuw / 5.0)); if (s_civ (sct) == 0) { set_occ (sct, '.'); Warning (Fmt ( "%s is now completly yours.", CrdStr (sct))); } } Message (Fmt ("%d converted", total_conv)); DrawMapPart (sx, sy, ex, ey); return; } FeedEmpire (Fmt ("convert %s %d", realm, quant), PRINT); for (;;) { ptr = ReadEmpire (PRINT); if (EmpireStatus () == E_COMMAND) { PrintAtEmpire (ptr); DrawMapPart (sx, sy, ex, ey); return; } if (StrEQ (ptr, "No room for new uw in")) { Message (ptr); Bell (); continue; } if (sscanf (ptr, "%d,%d is now completely y", & x, & y) == 2) { sct = World (x, y, S_EXIST); if (sct == (Sector) 0) continue; Message (ptr); set_occ (sct, '.'); continue; } if (sscanf (ptr, "%d conquered civilians converted in %d,%d", & conv, & x, & y) == 3) { Message (ptr); sct = World (x, y, S_EXIST); if (sct == (Sector) 0) continue; set_civ (sct, s_civ (sct) - conv); set_q_uw (sct, q_uw (sct) + conv); continue; } } } void SingleConvert () { char * ans; int quant; ans = InputAtMessage (Fmt("# to convert [%d]: ",max_civ_uw), 4, GS_PNUMBER); if (ans == (char *) 0 || interrupt) { interrupt = False; ClearMes (); return; } if (*ans == '\0') quant = max_civ_uw; else { quant = atoi (ans); if (quant <= 0) { ClearMes (); return; } } DoConvert (CrdStr (cursct), quant, '\0'); } void MultiConvert (x, y) int x, y; { MultiCommand (x, y, "Convert how many civs", "convert", max_civ_uw, DoConvert, '\0'); } xemp5.1-beta/lib/commands/deity.c100444 12266 2116 34116 6023766610 15315 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/commands/RCS/deity.c,v 5.2 1995/09/08 07:07:06 jpo Exp $ $Date: 1995/09/08 07:07:06 $ $Author: jpo $ $Id: deity.c,v 5.2 1995/09/08 07:07:06 jpo Exp $ $Locker: $ $Log: deity.c,v $ Revision 5.2 1995/09/08 07:07:06 jpo fixup * Revision 5.1 93/03/14 16:43:55 etienne * * * Revision 5.0 93/02/06 09:18:04 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:32:23 greyhelm * Client for ASCII /X Empire client * Added RCS header - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "nation.h" #include "census.h" #include "var.h" #include "ship.h" void DeityChange (sct) Sector sct; { /* deity changing a unknown sector */ if (deity && ! KNOW_ALL (sct)) { Message ("No info yet. Dumping sector..."); RedumpSector (sct, PRINT); } } void EditLand (sct, what, newv) Sector sct; char what; int newv; { FeedEmpire (Fmt ("edit land %s", CrdStr (sct)), PRINT); (void) WaitForPrompt (PRINT); FeedEmpire ("", PRINT); (void) WaitForPrompt (PRINT); FeedEmpire (Fmt ("%c %-5d", what, newv), PRINT); (void) WaitForPrompt (PRINT); FeedEmpire ("", PRINT); (void) WaitForPrompt (PRINT); } static bool OpenEditShip (nr) int nr; { FeedEmpire (Fmt ("edit ship %d", nr), PRINT); (void) WaitForPrompt (PRINT); FeedEmpire ("", PRINT); (void) WaitForPrompt (PRINT); if (EmpireStatus () == E_COMMAND) { Message ("Edit ship failed"); Bell (); return False;; } return True; } void EditShip (ship, what, newv) Ship ship; char what; int newv; { if (! OpenEditShip (sh_nr (ship))) return; FeedEmpire (Fmt ("%c %-5d", what, newv), PRINT); (void) WaitForPrompt (PRINT); FeedEmpire ("", PRINT); (void) WaitForPrompt (PRINT); } bool DeityChangeLand (x, y, ch, new) int x, y; char ch; int *new; { char *ptr; Print (census_win, x, y, " ", NORMAL); ptr = GetString (census_win, x, y, 4, GS_PNUMBER); if (interrupt || ptr == (char *) 0 || * ptr == '\0') { interrupt = False; Message ("Cancelled"); return False; } * new = atoi (ptr); EditLand (cursct, ch, * new); return True; } extern char all_chars[], *comm_chars; extern int last_layout; static char ship_chars [] = "EM cmT"; static char e_shipchars[] ="O FL PTEMcmufsgpidolhr"; void DeityEditShips (x, y) int x, y; { Ship ship; Sector to; WinInfo win; int max, num, new, newx, newy; int nx, ny; char ch, *ptr; ship = AskShip (x, y, "Edit which ship ? ", True); if (ship == (Ship) 0) return; if (! OpenEditShip (sh_nr (ship))) return; win = OpenRelToRoot (map_win, x, y, 50, 10, CHARS, 0); ReverseCursor (CR_ARROWS, True); SetDefaultCursor (win, CR_ARROWS); PrintN (win, 1, 1, Fmt ("Owner %-20s", CountryName (sh_owner (ship)))); PrintN (win, 31, 1, Fmt ("Flt %s", GiveShipQuantStr (ship, 'F'))); PrintN (win, 1, 2, Fmt ("Loc %-4d, %-4d", sh_xcd (ship), sh_ycd (ship))); PrintN (win, 31, 2, Fmt ("Pla %s", GiveShipQuantStr (ship, 'P'))); PrintN (win, 1, 3, Fmt ("Tec %s Eff %s Mob %s", GiveShipQuantStr (ship, 'T'), GiveShipQuantStr (ship, 'E'), GiveShipQuantStr (ship, 'M'))); PrintN (win, 1, 4, Fmt ("civ %s mil %s uw %s", GiveShipQuantStr (ship, 'c'), GiveShipQuantStr (ship, 'm'), GiveShipQuantStr (ship, 'u'))); PrintN (win, 1, 5, Fmt ("foo %s she %s gun %s", GiveShipQuantStr (ship, 'f'), GiveShipQuantStr (ship, 's'), GiveShipQuantStr (ship, 'g'))); PrintN (win, 1, 6, Fmt ("pet %s iro %s dus %s", GiveShipQuantStr (ship, 'p'), GiveShipQuantStr (ship, 'i'), GiveShipQuantStr (ship, 'd'))); PrintN (win, 1, 7, Fmt ("oil %s lcm %s hcm %s", GiveShipQuantStr (ship, 'o'), GiveShipQuantStr (ship, 'l'), GiveShipQuantStr (ship, 'h'))); PrintN (win, 1, 8, Fmt ("rad %s", GiveShipQuantStr (ship, 'r'))); FlushWindow (win); while (SelButtonAtWin (win, & nx, & ny, (int *) 0)) { if (ny < 1 || ny > 8) continue; nx = ((int) (nx / 15)) * 15 + 5; num = nx / 15; if (num > 2 || (ny == 8 && num != 0)) continue; if (ny <= 2 && num == 1) { nx -= 15; num = 0; } ch = e_shipchars[(ny - 1) * 3 + num]; if (ch == 'E') max = 100; else if (ch == 'M') max = MAX_SHIPMOB; else if (ch == 'T') max = 9999; else max = MaxShipCargo (ship, ch); if (strchr ("OFL ", ch) == (char *) 0 && max == 0) { Message (Fmt ("The captain refuses to take %s on board", ch == 'P' ? "planes" : ItemName (CharToItem (ch)))); Bell (); continue; } if (ny == 1 && num <= 1) { ptr = AskCountry (x + 10, y + 10, "New owner ?", True); if (ptr != (char *) 0) new = CountryId (ptr); } else if (ny == 1) { PrintN (win, nx, ny, " "); ptr = GetString (win, nx, ny, 1, "a-zA-Z~"); if (ptr != (char *) 0) new = (int) *ptr; } else if (ny == 2 && num <= 1) { PrintN (win, nx, ny, " "); ptr = GetString (win, nx, ny, 10, GS_SECTOR); if (ptr != (char *) 0 && (sscanf (ptr, "%d%*[ ,]%d", &newx, &newy) != 2 || ((newx + newy) % 2) != 0)) { ptr = (char *) 0; Message ("Bad coordinates"); Bell (); } if (ptr != (char *) 0) { to = World (newx, newy, S_DESIG); if (to == (Sector) 0) { Message ("Bad coordinates"); Bell (); ptr = (char *) 0; } else if (! KNOW_ALL (to)) { Message ( "No info yet. Dumping sector..."); FeedEmpire ("", PRINT); (void) FScanDump (ptr, PRINT); if (! OpenEditShip (sh_nr (ship))) break; } } } else { PrintN (win, nx, ny, " "); ptr = GetString (win, nx, ny, 4, GS_PNUMBER); if (ptr != (char *) 0) { new = atoi (ptr); if (new > max) new = max; } } if (interrupt || ptr == (char *) 0 || *ptr == '\0') { interrupt = False; } else { if (ny == 1 && num == 2) FeedEmpire (Fmt ("%c %c", ch, (char) new), PRINT); else if (ny == 2 && num <= 1) FeedEmpire (Fmt ("%c %d,%d", ch, newx, newy), PRINT); else FeedEmpire (Fmt ("%c %-5d", ch, new), PRINT); (void) WaitForPrompt (PRINT); if (ny == 2 && num <= 1) { MoveShip (ship, to); DrawSector (World (sh_xcd (ship), sh_ycd (ship), S_DESIG)); DrawSector (to); } else SetShipQuant (ship, ch, new); if (ship == curship) Census (); } if (ny == 1 && num <= 1) PrintN (win, 7, 1, Fmt ("%s", CountryName (sh_owner (ship)))); else if (ny == 2 && num <= 1) PrintN (win, 1, 2, Fmt ("Loc %d, %d", sh_xcd (ship), sh_ycd (ship))); else PrintN (win, nx, ny, Fmt ("%s", GiveShipQuantStr (ship, ch))); FlushWindow (win); } FeedEmpire ("", PRINT); (void) WaitForPrompt (PRINT); ReverseCursor (CR_ARROWS, False); DestroyWindow (win); } struct country { char name[MAX_CNAMELEN], rep[MAX_CNAMELEN]; int btu; long mres; int cap_x, cap_y, org_x, org_y; int status, m_used; double tech, res, edu, hap; long money; }; static bool OpenEditCountry (nr, cc) int nr; struct country *cc; { char *ptr, *tmp; FeedEmpire (Fmt ("edit country %d", nr), PRINT); ptr = ReadEmpire (PRINT); if (ptr == (char *) 0 || EmpireStatus () != E_PRINTING) return False; ptr = ReadEmpire (PRINT); if (ptr == (char *) 0 || EmpireStatus () != E_PRINTING) return False; if (strncmp (ptr, "Name", 4) != 0 || strlen (ptr) < 52) return False; tmp = ptr + 31; while (*tmp == ' ') tmp--; *++tmp = '\0'; strncpy (cc->name, tmp > ptr + 10 ? ptr + 10 : "", MAX_CNAMELEN); strncpy (cc->rep, * (ptr + 52) != '\0' ? ptr + 52 : "", MAX_CNAMELEN); cc-> name[MAX_CNAMELEN - 1] = '\0'; cc-> rep[MAX_CNAMELEN - 1] = '\0'; ptr = ReadEmpire (PRINT); if (ptr == (char *) 0 || EmpireStatus () != E_PRINTING) return False; if (sscanf (ptr, "BTUs : %d Reserves : %ld", &cc-> btu, &cc-> mres) != 2) return False; ptr = ReadEmpire (PRINT); if (ptr == (char *) 0 || EmpireStatus () != E_PRINTING) return False; if (sscanf (ptr, "Capital : %d%*[ , ]%d Origin : %d%*[ , ]%d", &cc-> cap_x, &cc-> cap_y, &cc-> org_x, &cc-> org_y) != 4) return False; ptr = ReadEmpire (PRINT); if (ptr == (char *) 0 || EmpireStatus () != E_PRINTING) return False; if (sscanf (ptr, "Status : %i Min Used : %d", &cc-> status, &cc-> m_used) != 2) return False; ptr = ReadEmpire (PRINT); if (ptr == (char *) 0 || EmpireStatus () != E_PRINTING) return False; if (sscanf (ptr, "Technology : %lf Research : %lf", &cc-> tech, &cc-> tech) != 2) return False; ptr = ReadEmpire (PRINT); if (ptr == (char *) 0 || EmpireStatus () != E_PRINTING) return False; if (sscanf (ptr, "Education : %lf Happiness : %lf", &cc-> edu, &cc-> hap) != 2) return False; ptr = ReadEmpire (PRINT); if (ptr == (char *) 0 || EmpireStatus () != E_PRINTING) return False; if (sscanf (ptr, "Money : $%ld", &cc-> money) != 1) return False; (void) WaitForPrompt (PRINT); if (EmpireStatus () == E_COMMAND) return False; FeedEmpire ("", PRINT); (void) WaitForPrompt (PRINT); if (EmpireStatus () == E_COMMAND) return False; return True; } /* * Country #: 0 * Name POGO Repres. peter * BTUs 252 Reserves 0 * Capital 118,10 Origin 0,0 * Status 0xd Min Used 15 * Tech 1980.07 Research 1980.07 * Educ 1248.59 Happiness 395.06 * Money $123456289 */ static char country_chars[] = "nrbmcosuTREHM"; void DeityEditCountry (x, y) int x, y; { WinInfo win; char *name, *ptr, ch; int cnum; struct country cc, new; int newx, newy, num; int nx, ny; double newf; name = AskCountry (x, y, "Edit which country ? ", True); if (name == (char *) 0) { Message ("Edit Country Failed"); Bell (); return; } cnum = CountryId (name); if (! OpenEditCountry (cnum, &cc)) { WaitForPrompt (PRINT); return; } win = OpenRelToRoot (map_win, x, y, 70, 12, CHARS, 0); /* ReverseCursor (CR_ARROWS, True); */ SetDefaultCursor (win, CR_ARROWS); for (;;) { PrintMarked (win, 2, 10, " Done ", BOLD); PrintMarked (win, 32, 10, " Prev ", BOLD); PrintMarked (win, 62, 10, " Next ", BOLD); PrintN (win, 1, 1, Centered (Fmt ("Country #: %d", cnum), 68)); PrintN (win, 1, 2, Fmt ("Name %s", cc.name)); PrintN (win, 33, 2, Fmt ("Repres. %s", cc.rep)); PrintN (win, 1, 3, Fmt ("BTUs %d", cc.btu)); PrintN (win, 33, 3, Fmt ("Reserves %ld", cc.mres)); PrintN (win, 1, 4, Fmt ("Capital %d,%d", cc.cap_x, cc.cap_y)); PrintN (win, 33, 4, Fmt ("Origin %d,%d", cc.org_x, cc.org_y)); PrintN (win, 1, 5, Fmt ("Status 0x%x", cc.status)); PrintN (win, 33, 5, Fmt ("Min Used %d", cc.m_used)); PrintN (win, 1, 6, Fmt ("Tech %.2lf", cc.tech)); PrintN (win, 33, 6, Fmt ("Research %.2lf", cc.res)); PrintN (win, 1, 7, Fmt ("Educ %.2lf", cc.edu)); PrintN (win, 33, 7, Fmt ("Happiness %.2lf", cc.hap)); PrintN (win, 1, 8, Fmt ("Money $ %ld", cc.money)); FlushWindow (win); if (! SelButtonAtWin (win, & nx, & ny, (int *) 0)) break; if (ny == 10) { num = nx / 30; if (num == 0) break; else if (num == 2) { if (! ExistCountry (cnum + 1)) { Message ("No next country"); Bell (); continue; } cnum++; } else { if (! ExistCountry (cnum - 1)) { Message ("No previous country"); Bell (); continue; } cnum--; } FeedEmpire ("", PRINT); (void) WaitForPrompt (PRINT); if (! OpenEditCountry (cnum, &new)) { Message (Fmt ("Edit %d Country Failed", cnum)); if (num == 2) cnum--; else cnum++; Bell (); (void) WaitForPrompt (PRINT); if (! OpenEditCountry (cnum, &cc)) { WaitForPrompt (PRINT); break; } continue; } cc = new; ClearWindow (win); continue; } if (nx < 33) num = 0; else num = 1; if (num == 0) nx = 11; else nx = 44; if (ny == 8) nx += 2; if (ny < 2 || ny > 8 || (ny == 8 && num == 1)) continue; ch = country_chars[(ny - 2) * 2 + num]; PrintN (win, nx, ny, " "); if (ny == 2) ptr = GetString (win, nx, ny, 20, GS_NAME); else if (ny == 3 || (ny == 5 && num == 1) || ny == 8) ptr = GetString (win, nx, ny, 10, GS_PNUMBER); else if (ny == 4) ptr = GetString (win, nx, ny, 10, GS_SECTOR); else if (ny == 5) ptr = GetString (win, nx, ny, 10, "0-9A-Fa-fx"); else ptr = GetString (win, nx, ny, 6, "0-9."); if (interrupt || ptr == (char *) 0 || *ptr == '\0') { interrupt = False; continue; } if (ny == 2) { FeedEmpire (Fmt ("%c %s", ch, ptr), PRINT); if (num == 0) { strncpy (cc. name, ptr, MAX_CNAMELEN); cc. name[MAX_CNAMELEN - 1] = '\0'; } else { strncpy (cc. rep, ptr, MAX_CNAMELEN); cc. rep[MAX_CNAMELEN - 1] = '\0'; } } else if (ny == 5 && num == 0) { sscanf (ptr, "%i", &cc.status); FeedEmpire (Fmt ("%c %d", ch, cc.status), PRINT); } else if (ny == 3 || ny == 5 || ny == 8) { FeedEmpire (Fmt ("%c %s", ch, ptr), PRINT); if (ny == 3) if (num == 0) cc.btu = atoi (ptr); else sscanf (ptr, "%ld", &cc.mres); else if (ny == 5) cc.m_used = atoi (ptr); else sscanf (ptr, "%ld", &cc.money); } else if (ny == 4) { if (sscanf (ptr, "%d%*[ ,]%d", &newx, &newy) != 2) { Message ("Bad coordinates"); Bell (); continue; } FeedEmpire (Fmt ("%c %d%,%d", ch, newx, newy), PRINT); if (num == 0) { cc.cap_x = newx; cc.cap_y = newy; } else { cc.org_x = newx; cc.org_y = newy; } } else { if (sscanf (ptr, "%lf", &newf) != 1) { Message ("Bad value"); Bell (); continue; } FeedEmpire (Fmt ("%c %lf", ch, newf), PRINT); if (ny == 6) { if (num == 0) cc.tech = newf; else cc.res = newf; } else { if (num == 0) cc.edu = newf; else cc.hap = newf; } } (void) WaitForPrompt (PRINT); PrintN (win, nx, ny, " "); } FeedEmpire ("", PRINT); (void) WaitForPrompt (PRINT); /* ReverseCursor (CR_ARROWS, False); */ SetDefaultCursor (win, CR_ARROWS); DestroyWindow (win); } xemp5.1-beta/lib/commands/deli.c100444 12266 2116 5570 6023766610 15076 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/commands/RCS/deli.c,v 5.1 1993/03/14 16:43:59 etienne Exp $ $Date: 1993/03/14 16:43:59 $ $Author: etienne $ $Id: deli.c,v 5.1 1993/03/14 16:43:59 etienne Exp $ $Locker: $ $Log: deli.c,v $ Revision 5.1 1993/03/14 16:43:59 etienne * Revision 5.0 93/02/06 09:18:04 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:32:23 greyhelm * Client for ASCII /X Empire client * Added RCS header - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" static int last_item; static int last_cutoff; extern Sector cursct; void RedoDeliver () { DoDeliver (s_xcd(cursct), s_ycd(cursct), last_item, last_cutoff); } void SetDelAgainCutoff (item, cutoff) int cutoff; int item; { last_cutoff = cutoff; last_item = item; } void Deliver (x, y) int x, y; { int item; int cutoff; char * ans; item = SelectItem (x, y, "What commodity ?"); if (item == -1) return; ans = InputAtMessage ( Fmt("%s cutoff to [%d]: ", ItemName (item), GetCutoff (cursct, ItemChar (item))), 4, GS_NUMBER); if (ans == (char *) 0 || interrupt) { interrupt = False; ClearMes (); return; } if (*ans == '\0') cutoff = GetCutoff (cursct, ItemChar (item)); else { cutoff = atoi (ans); if (cutoff <= 0) { ClearMes (); return; } } DoDeliver (x, y, item, cutoff); SetAgain (RedoDeliver); SetDelAgainCutoff (item, cutoff); } void DoDeliver (x, y, item, cutoff) int x, y, cutoff; int item; { Sector nxt; int button; if (item == -1) return; Message ("Select sector to deliver to"); MesBut ("View", "Cancel", "Set"); for (;;) { nxt = SelectSector (&button); if (interrupt || button == MIDDLE_BUTTON) { interrupt = False; Message ("Deliver cancelled"); break; } if (nxt == (Sector) 0 || NO_INFO (nxt)) continue; if (button == LEFT_BUTTON) { CensusSct (nxt); continue; } if (cursct == nxt) { FeedCommand (Fmt ("deliver %c %s h (0)", ItemChar (item), CrdStr (cursct)), PRINT); Message (Fmt ("Deliver at %s for %s deleted", CrdStr (cursct), ItemName (item))); SetDelDir (cursct, ItemChar (item), '.'); break; } if (! s_owned (nxt)) { Message ("Not yours !"); Bell (); continue; } if (! Adjacent (cursct, nxt)) { Message ("Not adjacent !"); Bell (); continue; } MarkSector (nxt); FeedCommand (Fmt ("deliver %c %s %c (%d)", ItemChar (item), CrdStr (cursct), GiveDirChar (cursct, nxt), cutoff), PRINT); DrawSector (cursct); SetCutoff (cursct, ItemChar (item), cutoff); SetDelDir (cursct, ItemChar (item), GiveDirChar (cursct, nxt)); Census (); UnmarkSector (nxt); Message (Fmt ("Deliver at %s for %s set to %s", CrdStr (cursct), ItemName (item), CrdStr (nxt))); break; } MesClearBut (); } xemp5.1-beta/lib/commands/demob.c100444 12266 2116 12035 6023766610 15261 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/commands/RCS/demob.c,v 5.2 1995/09/08 07:07:14 jpo Exp $ $Date: 1995/09/08 07:07:14 $ $Author: jpo $ $Id: demob.c,v 5.2 1995/09/08 07:07:14 jpo Exp $ $Locker: $ $Log: demob.c,v $ Revision 5.2 1995/09/08 07:07:14 jpo fix for prototypes * Revision 5.1 93/03/14 16:44:02 etienne * fixed small bug, shows now correct numbers. * * Revision 5.0 93/02/06 09:18:04 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:32:23 greyhelm * Client for ASCII /X Empire client * Added RCS header - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "nation.h" static char last_reser; static int last_quant; void RedoDemob () { DoDemob (CrdStr (cursct), last_quant, last_reser); } /* ARGSUSED */ void BindDemob (x, y, str) /* demob (#, yn) */ int x, y; char * str; { int nr; int number; char reser [5]; char * ans; if (str == (char *) 0) SingleDemob (); else { nr = sscanf (str, " ( %d , %s ) ", & number, reser); switch (nr) { case 0: SingleDemob (); return; case 1: ans = InputAtMessage ( "New civilians on active reserve [y]: ", 1, GS_YN); if (ans == (char *) 0 || interrupt) { Message ("Demobilize cancelled"); interrupt = False; return; } DoDemob (CrdStr (cursct), number, * ans == '\0' ? 'y' : * ans); return; case 2: if (* reser != 'y' && * reser != 'n') { Message ("Incorrect binding 'demob (#, [yn])'"); Bell (); return; } DoDemob (CrdStr (cursct), number, * reser); return; } } } void DoDemob (realm, number, reser) char * realm; int number; char reser; { int x, y; int sx, ex, sy, ey; int nr, newv; char * ptr; Sector sct; int tot_demob, deltamil; char * ans; tot_demob = 0; SetAgain (RedoDemob); last_quant = number; last_reser = reser; if (command_state == TEST_STATE || command_state == FORCE_BUF_STATE) { if (command_state == FORCE_BUF_STATE) FeedCommand (Fmt ("demobilize %s %d %s", realm, number, reser == 'y' ? "yes" : "no"), PRINT); (void) ConvRealmToCoord (realm, & sx, & sy, & ex, & ey); for (y = sy; y <= ey; y ++) for (x = sx; x <= ex; x ++) { sct = World (x, y, S_EXIST); if (sct == (Sector) 0 || ! s_owned (sct) || s_eff (sct) < 60 || s_occ (sct) == '*') continue; if (number < 0) deltamil = s_mil (sct) + number; else { deltamil = s_mil (sct); if (deltamil > number) deltamil = number; } if (deltamil <= 0) continue; tot_demob += deltamil; set_civ (sct, s_civ (sct) + deltamil); set_mil (sct, s_mil (sct) - deltamil); if (reser == 'y') n_mil_res (nation) += (long) deltamil; } DrawMapPart (sx, sy, ex, ey); if (tot_demob == 0) Message ("No eligible sectors/military for demobilization\n"); else Message (Fmt ("Total new civilians: %d", tot_demob)); return; } FeedEmpire (Fmt ("demobilize %s %d %c", realm, number, reser), PRINT); for (;;) { ptr = ReadEmpire (PRINT); if (EmpireStatus () == E_COMMAND) { PrintAtEmpire (ptr); break; } else if (EmpireStatus () == E_QUESTION) /* treaty violation */ { PrintAtEmpire (ptr); ans = InputAtMessage (ptr, 10, GS_TEXT); if (ans == (char *) 0 || interrupt) { interrupt = False; FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); return; } FeedEmpire (ans, PRINT); continue; } if (StrEQ (ptr, "No eligible sectors")) { Bell (); Message (ptr); continue; } if (sscanf (ptr, "%d demobilized in %d,%d (%d mil left)", & nr, & x, & y, & newv) == 4) { Message (ptr); tot_demob += nr; sct = World (x, y, S_EXIST); if (sct == (Sector) 0) continue; set_mil (sct, newv); set_civ (sct, s_civ (sct) + nr); if (sct == cursct) Census (); continue; } } n_mil_res (nation) += tot_demob; if (s_des (cursct) == 'c') Census (); } void SingleDemob () { char * ans; int quant; ans = InputAtMessage (Fmt("# to demoblize [%d]: ",max_mil), 4, GS_NUMBER); if (ans == (char *) 0 || interrupt) { interrupt = False; ClearMes (); return; } if (*ans == '\0') quant = max_mil; else { quant = atoi (ans); if (quant <= 0) { ClearMes (); return; } } ans = InputAtMessage ("New civilians on active reserve [y]: ", 1, GS_YN); if (ans == (char *) 0 || interrupt) { interrupt = False; ClearMes (); return; } DoDemob (CrdStr (cursct), quant, (* ans == 'n' || * ans == 'N') ? 'n' : 'y'); Census (); DrawSector (cursct); } void MultiDemob (x, y) int x, y; { char * ans; char ch; ans = InputAtMessage ("New civilians on active reserve [y]: ", 1, GS_YN); if (interrupt || ans == (char *) 0) { interrupt = False; Message ("Multi demobilize cancelled"); return; } ch = * ans == '\0' ? 'y' : * ans; MultiCommand (x, y, "# to demobilize", "demobilize", max_mil, DoDemob, ch); } xemp5.1-beta/lib/commands/design.c100444 12266 2116 44403 6027742324 15450 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/commands/RCS/design.c,v 5.3 1995/09/20 07:37:56 jpo Exp $ $Date: 1995/09/20 07:37:56 $ $Author: jpo $ $Id: design.c,v 5.3 1995/09/20 07:37:56 jpo Exp $ $Locker: $ $Log: design.c,v $ Revision 5.3 1995/09/20 07:37:56 jpo Change to alter dchr based on new knowledge Revision 5.2 1995/09/08 07:07:25 jpo fix ups * Revision 5.1 93/03/14 16:44:16 etienne * added hq's * * Revision 5.0 93/02/06 09:18:04 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:32:23 greyhelm * Client for ASCII /X Empire client * Added RCS header - Karl Hagen * */ #include "type.h" #include "var.h" #include "main.h" #include "sector.h" #include "nation.h" #include "version.h" struct dchrstr dchr[SCT_MAXDEF+2] = { /*mnem pr. mcst fl. pkg ostr dstr val bld lcm hcm nam. */ { '.', 0, 0, NAVOK, NPKG, 0, 0, 0, 0, 0, 0, "sea"}, { '^', 0, 127, 0, NPKG, 2, 16, 5, 1, 0, 0, "mountain"}, { 's', 0, 0, 0, NPKG, 0, 99, 127, 0, 0, 0, "sanctuary"}, { '\\',0, 0, 0, NPKG, 0, 99, 0, 0, 0, 0, "wasteland"}, { '-', 0, 4, 0, NPKG, 2, 2, 1, 0, 0, 0, "wilderness"}, { 'c', 0, 2, 0, NPKG, 2, 4, 30, 1, 0, 0, "capital"}, { 'u', P_URAN, 2, 0, NPKG, 2, 3, 15, 1, 0, 0, "uranium mine"}, { 'p', P_HLEV, 2, 0, NPKG, 2, 2, 5, 1, 0, 0, "park"}, { 'd', P_GUN, 2, 0, NPKG, 2, 2, 7, 1, 0, 0, "defense plant"}, { 'i', P_SHELL, 2, 0, NPKG, 2, 2, 6, 1, 0, 0, "shell industry"}, { 'm', P_IRON, 2, 0, NPKG, 2, 3, 5, 1, 0, 0, "mine"}, { 'g', P_DUST, 2, 0, NPKG, 2, 3, 8, 1, 0, 0, "gold mine"}, { 'h', 0, 2, NAV_02, NPKG, 2, 2, 12, 1, 0, 0, "harbor"}, { 'w', 0, 2, 0, WPKG, 2, 2, 7, 1, 0, 0, "warehouse"}, { '*', 0, 2, 0, NPKG, 2, 1, 12, 1, 0, 0, "airfield"}, { 'a', P_FOOD, 2, 0, NPKG, 2, 2, 2, 1, 0, 0, "agribusiness"}, { 'o', P_OIL, 2, 0, NPKG, 2, 2, 5, 1, 0, 0, "oil field"}, { 'j', P_LCM, 2, 0, NPKG, 2, 2, 3, 1, 0, 0, "light manufacturing"}, { 'k', P_HCM, 2, 0, NPKG, 2, 2, 4, 1, 0, 0, "heavy manufacturing"}, { 'f', 0, 2, 0, NPKG, 4, 8, 10, 1, 0, 0, "fortress"}, { 't', P_TLEV, 2, 0, NPKG, 2, 2, 10, 1, 0, 0, "technical center"}, { 'r', P_RLEV, 2, 0, NPKG, 2, 2, 9, 1, 0, 0, "research lab"}, { 'n', 0, 2, 0, NPKG, 2, 3, 10, 1, 0, 0, "nuclear plant"}, { 'l', P_ELEV, 2, 0, NPKG, 2, 2, 4, 1, 0, 0, "library/school"}, { '+', 0, 1, 0, NPKG, 1, 1, 3, 1, 0, 0, "highway"}, { ')', 0, 2, 0, NPKG, 2, 2, 4, 1, 0, 0, "radar installation"}, { '!', 0, 2, 0, NPKG, 2, 2, 1, 1, 0, 0, "headquarters"}, { '#', 0, 2, 0, NPKG, 2, 2, 4, 1, 0, 0, "bridge head"}, { '=', P_FOOD, 1, NAV_60, NPKG, 1, 1, 5, 1, 0, 0, "bridge span"}, { 'b', P_BAR, 2, 0, BPKG, 2, 3, 10, 1, 0, 0, "bank"}, { '%', P_PETROL, 2, 0, NPKG, 2, 2, 2, 1, 0, 0, "refinery"}, { 'e', 0, 2, 0, NPKG, 2, 3, 7, 1, 0, 0, "enlistment center"}, { '?', 0, 500, 0, 0, 0, 0, 0, 1, 0, 0, "unknown"}, { 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0}, }; /* fix up the above structure based on new knowledge */ void UpdateDstr () { if (EMPOption(BIG_CITY)) { /* change capitols to cities */ dchr[5].d_flg = NAV_02; dchr[5].d_pkg = UPKG; dchr[5].d_name = "city"; dchr[5].d_bld = 10; dchr[5].d_lcm = 1; dchr[5].d_hcm = 2; } else { dchr[5].d_flg = 0; dchr[5].d_pkg = NPKG; dchr[5].d_name = "capitol"; dchr[5].d_bld = 1; dchr[5].d_lcm = 0; dchr[5].d_hcm = 0; } if (emp3server) /* fix mountain mobility cost */ dchr[1].d_mcst = 25; else dchr[1].d_mcst = 127; } const char *DesignName (mnem) char mnem; { register struct dchrstr *ptr; for (ptr = dchr; ptr-> d_mnem != '\0'; ptr ++) if (ptr-> d_mnem == mnem) return ptr-> d_name; return (char *) 0; } #define MIN(x,y) ((x) > (y) ? (y) : (x)) char CharOfDesigName (desig) char *desig; { register struct dchrstr *ptr; int len; len = strlen (desig); for (ptr = dchr; ptr-> d_mnem != '\0'; ptr ++) if (strncmp (ptr-> d_name, desig, MIN (len, strlen (ptr-> d_name))) == 0) return ptr-> d_mnem; return '\0'; } bool AllowNavigate (sct) Sector sct; { register struct dchrstr *ptr; register char mnem; mnem = s_des (sct); for (ptr = dchr; ptr-> d_mnem != '\0'; ptr ++) if (ptr-> d_mnem == mnem) switch (ptr-> d_flg) { case NAVOK: return True; case NAV_60: return s_eff (sct) >= 60; case NAV_02: return s_eff (sct) >= 2; default: return False; } return False; } double MoveCost (des, eff) char des; int eff; { register struct dchrstr *ptr; for (ptr = dchr; ptr-> d_mnem != '\0'; ptr ++) if (ptr-> d_mnem == des) return (double) (ptr-> d_mcst * 100 - eff) / 500.0; return (double) 1000.0; } double EffPathCost (sct, path) Sector sct; char *path; { double res; res = 0.0; if (path == (char *) 0) return -1.0; while (*path != 'h' && *path != '_' && *path != '\0') { sct = MoveInDirection (sct, *path, S_EXIST); if (sct == (Sector)0 || ! s_owned (sct)) return -1.0; res += MoveCost (s_nds (sct), 100); path ++; } return res; } double RealPathCost (sct, path) Sector sct; char *path; { double res; res = 0.0; if (path == (char *) 0) return -1.0; while (*path != 'h' && *path != '_' && *path != '\0') { sct = MoveInDirection (sct, *path, S_EXIST); if (sct == (Sector) 0 || ! s_owned (sct)) return -1.0; res += MoveCost (s_des (sct), s_eff (sct)); path ++; } return res; } static char last_design; /* ARGSUSED */ /* void MultiDesignate (x, y) int x, y; { } */ void RedoDesignate () { if (last_design == 'h' || last_design == '#') { if (! IsCoast (cursct)) { Message (Fmt ("%ss must be build near water !", DesignName (last_design))); Bell (); return; } } DoDesignate (CrdStr (cursct), last_design); DrawSector (cursct); Message (Fmt ("%s is now a %c", CrdStr (cursct), last_design)); } void DoDesignate (realm, des) char * realm; char des; { int sx, sy, ex, ey; register int x, y; register Sector sct; int nr; if (! ConvRealmToCoord (realm, & sx, & sy, & ex, & ey)) { Panic ("DoDesignate", "commands/design.c", "Illegal realm"); return; } last_design = des; SetAgain (RedoDesignate); nr = 0; for (y = sy; y <= ey; y ++) for (x = sx; x <= ex; x++) { sct = World (x, y, S_EXIST); if (sct == (Sector) 0) { /* we are editing map */ if ((x + y) % 2 == 0) { sct = World (x, y, S_DESIG); set_owner (sct, UNKNOWN_CNUM); set_des (sct, des); sct->inf=DES; /* should make macro */ continue; } else { continue; } } if (NO_INFO(sct)) { sct->inf=DES; /* should make macro */ set_des (sct, SCT_UNKNOW); } if (! s_owned (sct) && ! deity) { set_des (sct, des); continue; } if (s_nds (sct) == des) continue; nr ++; set_nds (sct, des); if (s_eff (sct) < 5 || deity) { set_des (sct, des); set_eff (sct, 0); } if (AtScreen (x, y)) DrawSector (sct); } if (nr == 0) Message ("No affected sectors"); else { if (nr > 1) Message (Fmt ("%d sectors redesignated", nr)); if (land_units && !s_owned (sct)) FeedCommand (Fmt ("bdesignate %s %c", realm, des), PRINT); else FeedCommand (Fmt ("designate %s %c", realm, des), PRINT); } } void BindDesignate (x, y, str) int x, y; char * str; { char design [40]; char des; if (str == (char *) 0 || sscanf (str, " ( %[^)]", design) == 0) { Design (cursct, x, y); return; } while (str [strlen (design) - 1] == ' ') str [strlen (design) - 1] = '\0'; if (strlen (design) == 1) { if (DesignName (design [0]) == (char *) 0) { Message ( "Illegal designation in binding: 'designate (mnem)'"); Bell (); return; } des = * design; } else { if ((des = CharOfDesigName (design)) == '\0') { Message ( "Illegal designation in binding: 'designate (name)'"); Bell (); return; } } if (! IsCoast (cursct) && (des == 'h' || des == '#')) { Message (Fmt ("%ss must be build near water", DesignName (des))); Bell (); return; } if ((cursct-> des == '#') && ! Confirm( "Redesignate bridge head?", False)) { Message (Fmt ("Bridge head not redesignated.")); return; } DoDesignate (CrdStr (cursct), des); Message (Fmt ("%s is now a %s", CrdStr (cursct), DesignName (des))); DrawSector (cursct); } void HelpDesignate (x, y, i) int x, y, i; { Help (x, y, Fmt ("des %c", dchr [i]. d_mnem)); } void Design (sct, x, y) Sector sct; int x, y; { Strings strings; Pager pager; int r; extern bool deity; extern WinInfo map_win; extern bool IsCoast (), NearSeaOrHarbor (); /* sector.c */ strings = InitStrings (); /* we are expressing external info here */ /* if (!deity && (s_des (sct) == '.' || s_des (sct) == '^' || s_des (sct) == 's' || s_des (sct) == '\\')) { Error (Fmt ("Cannot redesignate %s", DesignName (s_des (sct)))); return; } */ AddStringID (strings, Fmt ("%c %s", dchr [SCT_AIRPT]. d_mnem, dchr [SCT_AIRPT]. d_name), SCT_AIRPT); AddStringID (strings, Fmt ("%c %s", dchr [SCT_AGRI]. d_mnem, dchr [SCT_AGRI]. d_name), SCT_AGRI); AddStringID (strings, Fmt ("%c %s", dchr [SCT_BANK]. d_mnem, dchr [SCT_BANK]. d_name), SCT_BANK); if (IsCoast (sct) || !s_owned (sct)) AddStringID (strings, Fmt ("%c %s", dchr [SCT_BHEAD]. d_mnem, dchr [SCT_BHEAD]. d_name), SCT_BHEAD); if (deity || !s_owned (sct)) AddStringID (strings, Fmt ("%c %s", dchr [SCT_BSPAN]. d_mnem, dchr [SCT_BSPAN]. d_name), SCT_BSPAN); AddStringID (strings, Fmt ("%c %s", dchr [SCT_CAPIT]. d_mnem, dchr [SCT_CAPIT]. d_name), SCT_CAPIT); AddStringID (strings, Fmt ("%c %s", dchr [SCT_ARMSF]. d_mnem, dchr [SCT_ARMSF]. d_name), SCT_ARMSF); AddStringID (strings, Fmt ("%c %s", dchr [SCT_ENLIST]. d_mnem, dchr [SCT_ENLIST]. d_name), SCT_ENLIST); AddStringID (strings, Fmt ("%c %s", dchr [SCT_HEADQ]. d_mnem, dchr [SCT_HEADQ]. d_name), SCT_HEADQ); AddStringID (strings, Fmt ("%c %s", dchr [SCT_FORTR]. d_mnem, dchr [SCT_FORTR]. d_name), SCT_FORTR); AddStringID (strings, Fmt ("%c %s", dchr [SCT_GMINE]. d_mnem, dchr [SCT_GMINE]. d_name), SCT_GMINE); if (IsCoast (sct) || !s_owned (sct)) AddStringID (strings, Fmt ("%c %s", dchr [SCT_HARBR]. d_mnem, dchr [SCT_HARBR]. d_name), SCT_HARBR); AddStringID (strings, Fmt ("%c %s", dchr [SCT_HEAVY]. d_mnem, dchr [SCT_HEAVY]. d_name), SCT_HEAVY); AddStringID (strings, Fmt ("%c %s", dchr [SCT_HIWAY]. d_mnem, dchr [SCT_HIWAY]. d_name), SCT_HIWAY); AddStringID (strings, Fmt ("%c %s", dchr [SCT_LIBR]. d_mnem, dchr [SCT_LIBR]. d_name), SCT_LIBR); AddStringID (strings, Fmt ("%c %s", dchr [SCT_LIGHT]. d_mnem, dchr [SCT_LIGHT]. d_name), SCT_LIGHT); AddStringID (strings, Fmt ("%c %s", dchr [SCT_MINE]. d_mnem, dchr [SCT_MINE]. d_name), SCT_MINE); if (deity || !s_owned (sct)) AddStringID (strings, Fmt ("%c %s", dchr [SCT_MOUNT]. d_mnem, dchr [SCT_MOUNT]. d_name), SCT_MOUNT); AddStringID (strings, Fmt ("%c %s", dchr [SCT_NUKE]. d_mnem, dchr [SCT_NUKE]. d_name), SCT_NUKE); AddStringID (strings, Fmt ("%c %s", dchr [SCT_OIL]. d_mnem, dchr [SCT_OIL]. d_name), SCT_OIL); AddStringID (strings, Fmt ("%c %s", dchr [SCT_PARK]. d_mnem, dchr [SCT_PARK]. d_name), SCT_PARK); AddStringID (strings, Fmt ("%c %s", dchr [SCT_RADAR]. d_mnem, dchr [SCT_RADAR]. d_name), SCT_RADAR); AddStringID (strings, Fmt ("%c %s", dchr [SCT_REFINE]. d_mnem, dchr [SCT_REFINE]. d_name), SCT_REFINE); AddStringID (strings, Fmt ("%c %s", dchr [SCT_RSRCH]. d_mnem, dchr [SCT_RSRCH]. d_name), SCT_RSRCH); if (deity || !s_owned (sct)) AddStringID (strings, Fmt ("%c %s", dchr [SCT_SANCT]. d_mnem, dchr [SCT_SANCT]. d_name), SCT_SANCT); AddStringID (strings, Fmt ("%c %s", dchr [SCT_AMMOF]. d_mnem, dchr [SCT_AMMOF]. d_name), SCT_AMMOF); AddStringID (strings, Fmt ("%c %s", dchr [SCT_TECH]. d_mnem, dchr [SCT_TECH]. d_name), SCT_TECH); AddStringID (strings, Fmt ("%c %s", dchr [SCT_URAN]. d_mnem, dchr [SCT_URAN]. d_name), SCT_URAN); AddStringID (strings, Fmt ("%c %s", dchr [SCT_WAREH]. d_mnem, dchr [SCT_WAREH]. d_name), SCT_WAREH); if (deity || !s_owned (sct)) { AddStringID (strings, Fmt ("%c %s", dchr [SCT_WASTE]. d_mnem, dchr [SCT_WASTE]. d_name), SCT_WASTE); AddStringID (strings, Fmt ("%c %s", dchr [SCT_WATER]. d_mnem, dchr [SCT_WATER]. d_name), SCT_WATER); AddStringID (strings, Fmt ("%c %s", dchr [SCT_UNKNOW]. d_mnem, dchr [SCT_UNKNOW]. d_name), SCT_UNKNOW); } AddStringID (strings, Fmt ("%c %s", dchr [SCT_RURAL]. d_mnem, dchr [SCT_RURAL]. d_name), SCT_RURAL); #if 0 /* why?? */ AddStringID (strings, Fmt ("%c %s", dchr [SCT_MAXDEF+1]. d_mnem, dchr [SCT_MAXDEF+1]. d_name), SCT_MAXDEF+1); #endif pager = InitPager (strings, "New designation ?"); SetInfoOnPager (pager, HelpDesignate); MapPagerFromTop (pager, map_win, x, y); r = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (r < 0) { Message ("Designate cancelled"); return; } if ((sct-> des == '#') && ! Confirm( "Redesignate bridge head?", False)) { Message (Fmt ("Bridge head not redesignated.")); return; } if (dchr [r]. d_mnem == 0) { if (!Confirm ("Remove all sector info", False)) { Message ("Sector info not removed."); return; } else { FreeSector (sct); sct = World (0, 0, S_EXIST); cursct = sct; } } else { DoDesignate (CrdStr (sct), dchr [r]. d_mnem); Message (Fmt ("%d,%d is now a %s", s_xcd (sct), s_ycd (sct), dchr [r]. d_name)); } DrawSector (sct); Census (); } /* returns the packing of the sector */ int SectorPacking (des) char des; { struct dchrstr *ptr; for (ptr = dchr; ptr-> d_mnem != '\0'; ptr ++) if (ptr-> d_mnem == des) return ptr-> d_pkg; return NPKG; } /* Fast hack. - heinola 9/11/91. */ void MultiDesignate (x, y) int x, y; { char *realm; Strings strings; Pager pager; int r; extern bool deity; extern WinInfo map_win; extern bool IsCoast (), NearSeaOrHarbor (); /* sector.c */ Message ("Select realm to designate"); if ((realm = MySelRealm ()) == (char *) 0) { return; } strings = InitStrings (); AddStringID (strings, Fmt ("%c %s", dchr [SCT_AIRPT]. d_mnem, dchr [SCT_AIRPT]. d_name), SCT_AIRPT); AddStringID (strings, Fmt ("%c %s", dchr [SCT_AGRI]. d_mnem, dchr [SCT_AGRI]. d_name), SCT_AGRI); AddStringID (strings, Fmt ("%c %s", dchr [SCT_BANK]. d_mnem, dchr [SCT_BANK]. d_name), SCT_BANK); AddStringID (strings, Fmt ("%c %s", dchr [SCT_BHEAD]. d_mnem, dchr [SCT_BHEAD]. d_name), SCT_BHEAD); AddStringID (strings, Fmt ("%c %s", dchr [SCT_BSPAN]. d_mnem, dchr [SCT_BSPAN]. d_name), SCT_BSPAN); AddStringID (strings, Fmt ("%c %s", dchr [SCT_CAPIT]. d_mnem, dchr [SCT_CAPIT]. d_name), SCT_CAPIT); AddStringID (strings, Fmt ("%c %s", dchr [SCT_ARMSF]. d_mnem, dchr [SCT_ARMSF]. d_name), SCT_ARMSF); AddStringID (strings, Fmt ("%c %s", dchr [SCT_ENLIST]. d_mnem, dchr [SCT_ENLIST]. d_name), SCT_ENLIST); AddStringID (strings, Fmt ("%c %s", dchr [SCT_HEADQ]. d_mnem, dchr [SCT_HEADQ]. d_name), SCT_HEADQ); AddStringID (strings, Fmt ("%c %s", dchr [SCT_FORTR]. d_mnem, dchr [SCT_FORTR]. d_name), SCT_FORTR); AddStringID (strings, Fmt ("%c %s", dchr [SCT_GMINE]. d_mnem, dchr [SCT_GMINE]. d_name), SCT_GMINE); AddStringID (strings, Fmt ("%c %s", dchr [SCT_HARBR]. d_mnem, dchr [SCT_HARBR]. d_name), SCT_HARBR); AddStringID (strings, Fmt ("%c %s", dchr [SCT_HEAVY]. d_mnem, dchr [SCT_HEAVY]. d_name), SCT_HEAVY); AddStringID (strings, Fmt ("%c %s", dchr [SCT_HIWAY]. d_mnem, dchr [SCT_HIWAY]. d_name), SCT_HIWAY); AddStringID (strings, Fmt ("%c %s", dchr [SCT_LIBR]. d_mnem, dchr [SCT_LIBR]. d_name), SCT_LIBR); AddStringID (strings, Fmt ("%c %s", dchr [SCT_LIGHT]. d_mnem, dchr [SCT_LIGHT]. d_name), SCT_LIGHT); AddStringID (strings, Fmt ("%c %s", dchr [SCT_MINE]. d_mnem, dchr [SCT_MINE]. d_name), SCT_MINE); AddStringID (strings, Fmt ("%c %s", dchr [SCT_MOUNT]. d_mnem, dchr [SCT_MOUNT]. d_name), SCT_MOUNT); AddStringID (strings, Fmt ("%c %s", dchr [SCT_NUKE]. d_mnem, dchr [SCT_NUKE]. d_name), SCT_NUKE); AddStringID (strings, Fmt ("%c %s", dchr [SCT_OIL]. d_mnem, dchr [SCT_OIL]. d_name), SCT_OIL); AddStringID (strings, Fmt ("%c %s", dchr [SCT_PARK]. d_mnem, dchr [SCT_PARK]. d_name), SCT_PARK); AddStringID (strings, Fmt ("%c %s", dchr [SCT_RADAR]. d_mnem, dchr [SCT_RADAR]. d_name), SCT_RADAR); AddStringID (strings, Fmt ("%c %s", dchr [SCT_REFINE]. d_mnem, dchr [SCT_REFINE]. d_name), SCT_REFINE); AddStringID (strings, Fmt ("%c %s", dchr [SCT_RSRCH]. d_mnem, dchr [SCT_RSRCH]. d_name), SCT_RSRCH); AddStringID (strings, Fmt ("%c %s", dchr [SCT_SANCT]. d_mnem, dchr [SCT_SANCT]. d_name), SCT_SANCT); AddStringID (strings, Fmt ("%c %s", dchr [SCT_AMMOF]. d_mnem, dchr [SCT_AMMOF]. d_name), SCT_AMMOF); AddStringID (strings, Fmt ("%c %s", dchr [SCT_TECH]. d_mnem, dchr [SCT_TECH]. d_name), SCT_TECH); AddStringID (strings, Fmt ("%c %s", dchr [SCT_URAN]. d_mnem, dchr [SCT_URAN]. d_name), SCT_URAN); AddStringID (strings, Fmt ("%c %s", dchr [SCT_WAREH]. d_mnem, dchr [SCT_WAREH]. d_name), SCT_WAREH); AddStringID (strings, Fmt ("%c %s", dchr [SCT_WASTE]. d_mnem, dchr [SCT_WASTE]. d_name), SCT_WASTE); AddStringID (strings, Fmt ("%c %s", dchr [SCT_WATER]. d_mnem, dchr [SCT_WATER]. d_name), SCT_WATER); AddStringID (strings, Fmt ("%c %s", dchr [SCT_UNKNOW]. d_mnem, dchr [SCT_UNKNOW]. d_name), SCT_UNKNOW); AddStringID (strings, Fmt ("%c %s", dchr [SCT_RURAL]. d_mnem, dchr [SCT_RURAL]. d_name), SCT_RURAL); pager = InitPager (strings, "New designation ?"); SetInfoOnPager (pager, HelpDesignate); MapPagerFromTop (pager, map_win, x, y); r = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (r < 0) { Message ("Designate cancelled"); return; } DoDesignate (realm, dchr [r]. d_mnem); Message (Fmt ("%s is designed to %s", realm, dchr [r]. d_name)); DrawMap (); ClearMes (); Census (); } xemp5.1-beta/lib/commands/distri.c100444 12266 2116 22137 6023766611 15476 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/commands/RCS/distri.c,v 5.2 1995/09/08 07:07:47 jpo Exp $ $Date: 1995/09/08 07:07:47 $ $Author: jpo $ $Id: distri.c,v 5.2 1995/09/08 07:07:47 jpo Exp $ $Locker: $ $Log: distri.c,v $ Revision 5.2 1995/09/08 07:07:47 jpo const * Revision 5.1 93/03/14 16:44:24 etienne * * * Revision 5.0 93/02/06 09:18:04 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:32:23 greyhelm * Client for ASCII /X Empire client * Added RCS header - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "slist.h" void MarkPath (start, path) Sector start; char *path; { Sector sct; sct = start; MarkSector (sct); while (*path != 'h' && *path != '_' && *path != '\0') { sct = MoveInDirection (sct, * path, S_DESIG); MarkSector (sct); path ++; } } void UnmarkPath (start, path) Sector start; char *path; { Sector sct, nextsct; sct = start; UnmarkSector (sct); while (*path != 'h' && *path != '_' && *path != '\0') { nextsct = MoveInDirection (sct, *path, S_DESIG); if (NO_INFO (sct) && s_mar (sct) == 0) FreeSector (sct); sct = nextsct; UnmarkSector (sct); path ++; } if (NO_INFO (sct) && s_mar (sct) == 0) FreeSector (sct); } #define DB_MAXEFF 0 #define DB_CUREFF 1 #define DB_DELETE 2 static const char * distrib_modes [] = { "100 % efficient & new designation", "current efficiency & designation", "delete", (char *) 0 }; static int GetDistributeMode (x, y, n) int x, y, n; { Strings strings; Pager pager; int i; strings = InitStrings (); AddStringsID (strings, distrib_modes, n, 0); pager = InitPager (strings, "Assume ?"); MapPagerFromTop (pager, map_win, x, y); i = PagerMenu (pager); FreeStrings (strings); FreePager (pager); return i; } bool ExecSetDistr (sct, to, mode, show, isrealm) Sector sct ,to; int mode; bool show; bool isrealm; { char * path; path = (mode == DB_CUREFF) ? BestTmpDistPath (sct, to) : BestDistPath (sct, to); if (path == (char *) 0) { Message ("To far away/Not connected"); return False; } if (s_pat (sct) != (char *) 0 && strcmp (path, s_pat (sct)) == 0) { Message ("No need to change that !"); return False; } Message (Fmt ( "New distribution path, pathcost = now %.2f (100%% eff %.2f)", RealPathCost (sct, path), EffPathCost (sct, path))); if (show) MarkPath (sct, path); if (!isrealm) { if (land_units) { FeedCommand (Fmt ("distribute %s %s", CrdStr (sct), CrdStr (to)), PRINT); } else { FeedCommand (Fmt ("distribute %s %sh", CrdStr (sct), path), PRINT); } } set_dxc (sct, s_xcd (to)); set_dyc (sct, s_ycd (to)); SetDistPath (sct, path); return True; } void UtilDist (x, y) int x, y; { Sector ware; bool done; int button, mode; Sector sct, psct; char *ppath; DeityChange (cursct); ware = cursct; if (!s_owned (ware)) { Message ("You must own the current sector, stumperd !"); return; } mode = GetDistributeMode (x, y, 2); if (mode < 0) { Message ("Distribute cancelled"); return; } SetDefaultCursor (map_win, CR_DISTR); Message ("Distribute all: Select sectors"); MesBut ("Show", "Done", "Set"); done = False; ppath = (char *) 0; /* previous path */ psct = (Sector) 0; /* previous sector */ RaiseAll (); do { sct = SelectSector (&button); if (ppath != (char *) 0) { UnmarkPath (psct, ppath); ppath = (char *) 0; } if (psct != (Sector) 0) { UnmarkSector (psct); psct = (Sector) 0; } if (interrupt || button == MIDDLE_BUTTON) { interrupt = False; done = True; } else if (sct == (Sector) 0 || NO_INFO (sct)) continue; if (button == LEFT_BUTTON) { CensusSct (sct); if (! s_owned (sct)) { MarkSector (sct); Message (Fmt ("Sector %s ain't yours", CrdStr (sct))); UnmarkSector (sct); } else if (s_pat (sct) == (char *) 0) { MarkSector (sct); psct = sct; Message (Fmt ("%s @ %s has no distribution path", DesignName (s_nds (sct)), CrdStr (sct))); } else { psct = sct; MarkSector (sct); ppath = s_pat (sct); Message (Fmt ("Pathcost: now %.2f (100%% eff : %.2f)", RealPathCost (sct, ppath), EffPathCost (sct, ppath))); MarkPath (sct, s_pat (sct)); } } else if (button == RIGHT_BUTTON) { CensusSct (sct); if (! s_owned (sct)) { Message (Fmt ("Sector %s ain't yours", CrdStr (sct))); } else if (sct == ware) { Message ("Use distribute local to delete a distribution path"); } else { Message ("Searching"); if (ExecSetDistr (sct, ware, mode, True, False)) { ppath = s_pat (sct); psct = sct; MarkSector (sct); } } } } while (! done); Census (); SetDefaultCursor (map_win, CR_MAP); Message ("End of distribute"); MesClearBut (); LowerAll (); } void Distribute (sct, x, y) Sector sct; int x, y; { Sector to; int button, mode; extern char *BestTmpDistPath (); mode = GetDistributeMode (x, y, 3); if (mode < 0) return; if (mode == DB_DELETE) { Message ("Distribution path from deleted"); if (land_units) { FeedCommand (Fmt ("distribute %s %s", CrdStr (sct), CrdStr (sct)), PRINT); } else { FeedCommand (Fmt ("distribute %s h", CrdStr (sct)), PRINT); } if (land_units) { set_dxc (sct, s_xcd (sct)); set_dyc (sct, s_ycd (sct)); } else { set_dxc (sct, 0); set_dyc (sct, 0); } SetDistPath (sct, (char *) 0); DrawSector (sct); CensusSct (sct); return; } Message (Fmt ("Current command: distribute %s", CrdStr (sct))); MesBut ("View", "Cancel", "Set"); for (;;) { to = SelectSector (&button); if (interrupt || button == MIDDLE_BUTTON) { interrupt = False; Message ("Cancelled"); MesClearBut (); return; } if (to == (Sector) 0 || NO_INFO (to)) continue; if (button == LEFT_BUTTON) { CensusSct (to); continue; } if (! s_owned (to) && ! deity) { Message ("Heh, you don't own that sector !"); continue; } if (to == sct) { Message ("Distribution path from deleted"); if (land_units) { FeedCommand (Fmt ("distribute %s %s", CrdStr (sct), CrdStr (to)), PRINT); } else { FeedCommand (Fmt ("distribute %s h", CrdStr (sct)), PRINT); } set_dxc (sct, s_xcd (sct)); set_dyc (sct, s_ycd (sct)); SetDistPath (sct, (char *) 0); MesClearBut (); DrawSector (sct); return; } else { if (ExecSetDistr (sct, to, mode, True, False)) UnmarkPath (sct, s_pat (sct)); MesClearBut (); return; } } } /* * The real(m) utility */ void DistributeRealm (to) Sector to; { SList slist, tmp; char * ppath; Neighb neighb; Sector sct, psct = (Sector) 0; bool cross_bridges; bool incl_bridges; char * ans; char * srealm; Realm realm; char *line, *ptr; if (! s_owned (to)) { Message ("That sector doesn't belong to you"); Bell (); return; } if (s_des (to) != 'w' && ! Confirm ( "This sector is not an warehouse, continue?", True)) return; ans = InputAtMessage ("Distribute bridge spans [n]: ", 1, "yn"); if (ans == (char *) 0 || interrupt) { Message ("Distribute realm cancelled"); interrupt = False; return; } incl_bridges = * ans == 'y'; ans = InputAtMessage ("Cross bridge spans [y]: ", 1, "yn"); if (ans == (char *) 0 || interrupt) { Message ("Distribute realm cancelled"); interrupt = False; return; } cross_bridges = ! (* ans == 'n'); Message ("Select realm"); srealm = MySelRealm (); if (srealm == (char *) 0 || interrupt) { Message ("Distribute realm cancelled"); interrupt = False; return; } realm = InitRealm (srealm, S_OWNED); if (realm == (Realm) 0) { Message ("Something went wrong!"); Bell (); return; } if (land_units) FeedCommand (Fmt ("distribute %s %s", srealm, CrdStr (to)), PRINT); slist = (SList) 0; AddToSList (& slist, to, (SList) 0, False); ppath = (char *) 0; while ((tmp = FirstNotMarked (slist)) != (SList) 0) { InitNeighbours (tmp-> sct, & neighb); while (NextNeighbour (& sct, S_DESIG, neighb)) { if (sct == (Sector) 0 || ! s_owned (sct)) continue; if (! InRealm (realm, sct)) continue; if (InSList (slist, sct)) continue; if (s_des (sct) != '=' || incl_bridges) { if (Dist (s_xcd (sct), s_xcd (to), s_ycd (sct), s_ycd (to)) > 10) continue; (void) ExecSetDistr (sct, to, DB_CUREFF, False,True); if (s_pat (sct) != (char *) 0) { if (ppath != (char *) 0) UnmarkPath (psct, ppath); MarkPath (sct, s_pat (sct)); ppath = s_pat (sct); psct = sct; } } if (s_des (sct) != '=' || cross_bridges) AddToSList (& slist, sct, tmp, True); } } if (ppath != (char *) 0) UnmarkPath (psct, ppath); FreeSList (& slist); Message ("All sectors now distribute to the warehouse"); FreeRealm (realm); return; } /* void Redistribute (x, y, n) { int mode; char * realm; Realm rlm; mode = GetDistributeMode (x, y, 2); if (mode < 0) { Message ("Redistribute utility cancelled."); return; } Message ("Select realm to redistribute"); realm = MySelRealm (); for (sct = First */ xemp5.1-beta/lib/commands/enlist.c100444 12266 2116 11746 6023766611 15502 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/commands/RCS/enlist.c,v 5.2 1995/09/08 07:07:50 jpo Exp $ $Date: 1995/09/08 07:07:50 $ $Author: jpo $ $Id: enlist.c,v 5.2 1995/09/08 07:07:50 jpo Exp $ $Locker: $ $Log: enlist.c,v $ Revision 5.2 1995/09/08 07:07:50 jpo prototype work * Revision 5.1 93/03/14 16:44:27 etienne * * * Revision 5.0 93/02/06 09:18:04 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:32:23 greyhelm * Client for ASCII /X Empire client * Added RCS header - Karl Hagen * */ /* * enlist.c */ #include "type.h" #include "main.h" #include "sector.h" #include "nation.h" static int last_quant; void RedoEnlist () { DoEnlist (CrdStr (cursct), last_quant, '\0'); } /* ARGSUSED */ void BindEnlist (x, y, str) /* enlist (10) */ int x, y; char * str; { int number; if (str == (char *) 0 || sscanf (str, "( %d )", & number) == 0) SingleEnlist (); else DoEnlist (CrdStr (cursct), number, '\0'); } /* ARGSUSED */ void DoEnlist (realm, quant, ch) char * realm; int quant; char ch; { char * ptr; int newv, nr; int x, y; Sector sct; int tot_enl; int n; int sx, sy, ex, ey; int newmil; bool quota; char * ans; SetAgain (RedoEnlist); last_quant = quant; if (quant > 500) quant = 500; (void) ConvRealmToCoord (realm, & sx, & sy, & ex, & ey); tot_enl = 0; n = 0; if ((command_state == TEST_STATE || command_state == FORCE_BUF_STATE) && EmpireStatus () != E_COMMAND) { if (command_state == FORCE_BUF_STATE) FeedCommand (Fmt ("enlist %s %d", realm, quant), PRINT); if (quant < 0) { quota = True; quant = -quant; } else quota = False; for (y = sy; y <= ey; y ++) for (x = sx; x <= ex; x ++) { sct = World (x, y, S_EXIST); /* * No way to test loyality */ if (sct == (Sector) 0 || ! s_owned (sct) || s_occ (sct) == '*') continue; if (n_mil_res (nation) <= 0) { Message ("Mil. reserves exhausted"); Bell (); return; } newmil = s_civ (sct) * 0.5; if (quota) newmil = quant - s_mil (sct); else newmil = quant; if (newmil <= 0) continue; if (newmil > s_civ (sct) * 0.5) newmil = s_civ (sct) * 0.5; if (s_mil (sct) + newmil > max_mil) newmil = max_mil - s_mil (sct); if (newmil > n_mil_res (nation)) newmil = n_mil_res (nation); set_mil (sct, s_mil (sct) + newmil); /* * Perhaps I should learn * how to cast efficiently */ set_mob (sct, (int) (((double) s_mob (sct)) * (1.0 - ((double) newmil) / ((double) s_civ (sct))))); set_civ (sct, s_civ (sct) - newmil); tot_enl += newmil; n_mil_res (nation) -= (long) newmil; n ++; if (tot_enl >= 10000) { Bell (); Message ("Rioting in induction center interrupts enlistment"); return; } } if (n == 0) Message ("No appropiate sectors"); else if (n == 1) Message (Fmt ("%d enlisted", tot_enl)); else Message (Fmt ("Total enlistment: %d", tot_enl)); DrawMapPart (sx, sy, ex, ey); return; } FeedEmpire (Fmt ("enlist %s %d", realm, quant), PRINT); for (;;) { ptr = ReadEmpire (PRINT); if (EmpireStatus () == E_COMMAND) { PrintAtEmpire (ptr); break; } else if (EmpireStatus () == E_QUESTION) /* treaty violation */ { ans = InputAtMessage (ptr, 10, GS_TEXT); if (ans == (char *) 0 || interrupt) { interrupt = False; FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); return; } FeedEmpire (ans, PRINT); continue; } if (StrEQ (ptr, "No military reserves") || StrEQ (ptr, "Rioting in induction center inter") || StrEQ (ptr, "Military reserve exhausted") || StrEQ (ptr, "No room for military in") || StrEQ (ptr, "civilians refuse to report")) { Message (ptr); Bell (); continue; } if (sscanf (ptr, "%d enlisted in %d,%d (%d)", & nr, & x, & y, & newv) == 4) { Message (ptr); sct = World (x, y, S_EXIST); tot_enl += nr; if (sct == (Sector) 0) continue; set_mil (sct, newv); /* * Perhaps I should learn * how to cast efficiently */ set_mob (sct, (int) ((double) s_mob (sct) * (1.0 - (double) nr / (double) s_civ (sct)))); set_civ (sct, s_civ (sct) - nr); if (sct == cursct) Census (); continue; } } (void) WaitForPrompt (PRINT); n_mil_res (nation) -= (long) tot_enl; DrawMapPart (sx, sy, ex, ey); } void SingleEnlist () { char * ans; int quant; ans = InputAtMessage ("# to enlist: ", 4, GS_NUMBER); if (ans == (char *) 0 || interrupt || * ans == '\0') { interrupt = False; ClearMes (); return; } quant = atoi (ans); if (quant == 0) { ClearMes (); return; } DoEnlist (CrdStr (cursct), quant, '\0'); DrawSector (cursct); Census (); } void MultiEnlist (x, y) int x, y; { MultiCommand (x, y, "Enlist how many mils", "enlist", -1, DoEnlist, '\0'); } xemp5.1-beta/lib/commands/fire.c100444 12266 2116 30537 6023766611 15130 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/commands/RCS/fire.c,v 5.2 1995/09/08 07:07:57 jpo Exp $ $Date: 1995/09/08 07:07:57 $ $Author: jpo $ $Id: fire.c,v 5.2 1995/09/08 07:07:57 jpo Exp $ $Locker: $ $Log: fire.c,v $ Revision 5.2 1995/09/08 07:07:57 jpo prototypes revealing bugs! * Revision 5.1 93/03/14 16:44:30 etienne * * * Revision 5.0 93/02/06 09:18:04 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:32:23 greyhelm * Client for ASCII /X Empire client * Added RCS header - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "var.h" #include "ship.h" #include "nation.h" static char * last_target = (char *) 0; static int last_guns = -1; static void ParseFireOutput (sct, ship) Sector sct; Ship ship; { Ship vship; char * ptr, * ans; char * ptri; char word [40]; int dam; int shipnr; bool rescan; int x_coord, y_coord; rescan = False; for (;;) { ptr = ReadEmpire (DONT_PRINT); if (EmpireStatus () == E_COMMAND) { PrintAtEmpire (""); PrintAtEmpire (ptr); if (rescan) { if (sct != (Sector) 0) RedumpSector (sct, DONT_PRINT); else { x_coord = sh_xcd (ship); y_coord = sh_ycd (ship); if (DumpShips (Fmt ("%d", sh_nr (ship)), DONT_PRINT) == 0) { Warning ( "You lost you're ship!"); DrawMap (); } } } return; } PrintAtEmpire (ptr); if (EmpireStatus () == E_QUESTION) /* treaty ? */ { ans = InputAtMessage (ptr, 20, GS_TEXT); if (ans == (char *) 0 || interrupt) { interrupt = False; while (EmpireStatus () != E_COMMAND) { FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); } Message ("Fire aborted"); Bell (); } FeedEmpire (ans, PRINT); } if (StrEQ (ptr, "CAPTAIN! !!Depth charges")) { Bell (); Message ("Depthcharges !"); rescan = True; } if (sscanf (ptr, "Incoming shell! %d%%", & dam) == 1 || sscanf (ptr, "\007Incoming shell does %d%%", & dam) == 1 || sscanf (ptr, "\007Incoming shells do %d%%", & dam) == 1) { Bell (); Message ("Incoming shells !"); rescan = True; continue; } ptri = index (ptr, '#'); if (ptri != (char *) 0) { ptri ++; if (! ScanDigit ((ConstVP)& ptri, & shipnr)) continue; /* Haz: KSU has an alternate sunk message */ if (ksu_version && * ptri == ')') ptri++; if (! ScanWord ((ConstVP)& ptri, word) || strcmp (word, "sunk!") != 0) continue; Message (Fmt ("PLEP: %s", ptr)); vship = NrToShip (shipnr); x_coord = sh_xcd (vship); y_coord = sh_ycd (vship); DeleteShip (vship); DrawSector (World (x_coord, y_coord, S_DESIG)); if (last_target != (char *) 0) free (last_target); last_target = (char *) 0; } } } static char * SelectTarget (fromx, fromy, maxdist, dept, is_sub) int fromx, fromy; int maxdist; bool * dept; /* allow shooting at subs ? */ bool is_sub; { int x, y; int button; int dist; Sector sct; Sector csct; Ship ship; Ship cship; csct = cursct; cship = curship; Message (Fmt ("Select Target to shoot at %s", is_sub ? "(ships only)" : "(ship/sector)")); MesBut ("View", "Cancel", "FIRE"); for (;;) { if (! SelectSctCrd (& x, & y, & button) || button == MIDDLE_BUTTON) { Message ("Fire cancelled"); ClearMes (); MesClearBut (); return (char *) 0; } sct = World (x, y, S_EXIST); if (sct == (Sector) 0) continue; if (button == RIGHT_BUTTON) { dist = Dist (fromx, x, fromy, y); if (dist > maxdist) { Message (Fmt ( "Target too far away (range %d)", maxdist)); Bell (); continue; } if (curship != (Ship) 0) { if (ShipHas (curship, M_SUB)) { if (! * dept && ! is_sub) { Message ( "You can't fire @ subs"); Bell (); continue; } else { if ((! is_sub) && (sh_xcd (curship) != fromx || sh_ycd (curship) != fromy)) { Message ("Must be in the same sector for a deptcharge !"); Bell (); continue; } * dept = True; } } else * dept = False; if (sh_owned (curship) && ! Confirm ("That's your own ship, still fire?", False)) continue; ClearMes (); MesClearBut (); ship = curship; cursct = csct; curship = cship; CensusShip (cship); return Fmt ("%d", sh_nr (ship)); } else { if (is_sub) { Message ("You can't torpedo land"); Bell (); continue; } if (sct != cursct) cursct = sct; if (s_des (sct) == 's') { Message ("They're protected"); Bell (); continue; } if (s_des (sct) == '.' || s_des (sct) == '\\') { Message ("Useless target"); Bell (); continue; } * dept = False; } if (s_owned (sct) && ! Confirm ("That's your own sector, still fire?", False)) continue; ClearMes (); MesClearBut (); cursct = csct; curship = cship; CensusSct (csct); return CrdStr (sct); } if (button != LEFT_BUTTON) continue; if (cursct == sct) { if (curship == (Ship) 0) curship = s_fship (sct); else curship = sh_nxtsct (curship); } else { cursct = sct; curship = (Ship) 0; } CensusShip (curship); } /* NOTREACHED */ } static void DoFireFromSector (); void FireFromSector () { DoFireFromSector ((char *) 0); } void RedoFireFromSector () { DoFireFromSector (last_target); } static void DoFireFromSector (target) char * target; { Sector from_sector; int guns; int range; char * mes; bool dept; from_sector = cursct; if (! s_owned (from_sector)) { Message ("You don't own that sector !"); Bell (); return; } mes = (char *) 0; if (s_des (from_sector) != 'f') mes = "You can only fire from a fortress"; guns = q_gun (from_sector); if (guns == 0) mes = "No guns here"; if (q_she (from_sector) == 0) mes = "Klick, no more shells"; if (s_mil (from_sector) < 5) mes = "Need 5 militairs"; if (mes != (char *) 0) { Message (mes); Bell (); return; } if (guns > 7) guns = 7; range = TechFact ((int) n_tech (nation), (double) guns); if (range > 7) range = 7; dept = False; if (target == (char *) 0) target = SelectTarget (s_xcd (from_sector), s_ycd (from_sector), range, & dept, False); if (target == (char *) 0) return; if (last_target != (char *) 0) free (last_target); last_target = Str (target); SetAgain (RedoFireFromSector); if(chainsaw_version) { FeedEmpire (Fmt ("fire sect %s %s", CrdStr (from_sector), target), PRINT); } else { FeedEmpire (Fmt ("fire %s %s", target, CrdStr (from_sector)), PRINT); } set_q_she (from_sector, q_she (from_sector) - 1); ParseFireOutput (from_sector, (Ship) 0); cursct = from_sector; CensusSct (cursct); } void MultiFire () { Sector from_sector; char *target; int guns; int range; char * mes; bool dept; from_sector = cursct; target = ((char *) 0); mes = "WARNING - Multi-Fire uses REALM 0 set it properly!!!!"; Message (mes); Bell(); (void) EmpireMore(); if (guns > 7) guns = 7; range = TechFact ((int) n_tech (nation), (double) guns); if (range > 7) range = 7; dept = False; if (target == (char *) 0) target = SelectTarget (s_xcd (from_sector), s_ycd (from_sector), range, & dept, False); if (target == (char *) 0) return; if (last_target != (char *) 0) free (last_target); last_target = Str (target); SetAgain (MultiFire); if(chainsaw_version) { FeedEmpire (Fmt ("fire sect # %s", CrdStr (from_sector), target), PRINT); } else { FeedEmpire (Fmt ("fire %s %s", target, CrdStr (from_sector)), PRINT); } set_q_she (from_sector, q_she (from_sector) - 1); ParseFireOutput (from_sector, (Ship) 0); cursct = from_sector; CensusSct (cursct); } void FireFromShip () { DoFireFromShip ((char *) 0, -1); } void RedoFireFromShip () { DoFireFromShip (last_target, last_guns); } void DoFireFromShip (target, guns) char * target; int guns; { Ship from_ship; Sector from_sct; char * ans; int nr_guns, shells; double range; char * mes; bool dept; from_ship = curship; from_sct = cursct; if (from_ship == (Ship) 0) { /* set current, again, no ship ? */ Message ("Ship-fire without a ship ?"); Bell (); return; } if (! sh_owned (from_ship)) { Message ("You don't own that ship !"); Bell (); return; } if (! ksu_version && ShipHas (from_ship, M_SUB)) { DoFireFromSub ( (char *) 0 ); return; } mes = (char *) 0; if (sh_eff (from_ship) < 60) mes = "Ship is crippled"; shells = sh_she (from_ship); if (shells == 0) mes = "Klick, no more shells"; if (sh_gun (from_ship) == 0) mes = "No guns"; if (sh_mil (from_ship) == 0) mes = "No mils to fire !"; nr_guns = ShipMaxGuns (from_ship); range = ShipFireRange (from_ship); if (nr_guns == 0 || range == 0.0) mes = Fmt ("You can't fire from a %s", ShipName (from_ship)); if (mes != (char *) 0) { Message (mes); Bell (); return; } dept = ShipHas (from_ship, M_DCHRG); if (target == (char *) 0) target = SelectTarget (sh_xcd (from_ship), sh_ycd (from_ship), (int) range, & dept, False); if (target == (char *) 0) { Message ("fire cancelled"); return; } if (dept) { if (shells < 2) { Message ("You need two shells for a deptcharge"); Bell (); return; } guns = 2; } else { if (shells < nr_guns) { Message (Fmt ("Only %d shell%s left", shells, shells > 1 ? "s" : "")); Bell (); nr_guns = shells; } if (nr_guns == 1) guns = 1; else { if (guns <= 0) { ans = InputAtMessage (Fmt ( "Fire how many guns [%d]:", nr_guns), 2, GS_PNUMBER); if (ans == (char *) 0 || interrupt) { Message ("Fire cancelled"); return; } if (* ans == '\0') guns = nr_guns; else { guns = atoi (ans); if (guns > nr_guns) { Bell (); guns = nr_guns; } } } } } if (guns == 0) { Message ("Fire cancelled"); return; } if (target == (char *) 0) return; if (last_target != (char *) 0) free (last_target); last_target = Str (target); last_guns = guns; SetAgain (RedoFireFromShip); if(chainsaw_version) { FeedEmpire (Fmt ("fire ship %d %s", sh_nr (from_ship), target), PRINT); } else { FeedEmpire (Fmt ("fire %s %d %d", target, sh_nr (from_ship), guns), PRINT); } set_sh_she (from_ship, sh_she (from_ship) - guns); ParseFireOutput ((Sector) 0, curship); cursct = from_sct; curship = from_ship; CensusShip (curship); } void Torpedo() { DoFireFromSub ( (char *) 0 ); } void RedoFireFromSub () { DoFireFromSub (last_target); } void DoFireFromSub (target) char * target; { bool dept; double range; Ship from_ship; Sector from_sector; from_ship = curship; from_sector = cursct; if (ksu_version) { if (from_ship == (Ship) 0) { /* set current, again, no ship ? */ Message ("Ship-torpedo without a ship ?"); Bell (); return; } if (! sh_owned (from_ship)) { Message ("You don't own that ship !"); Bell (); return; } if (! ShipHas (from_ship, M_TORP)) { Message ("Ship does not have torpedo ability."); Bell(); return; } } if (sh_eff (from_ship) < 60) { Message ("Ship is crippled"); Bell (); return; } if (sh_she (from_ship) < 3) { Message ("Not enough shells (need three)"); Bell (); } if (sh_gun (from_ship) == 0) { Message ("You need a gun to fire torpedo's"); Bell (); return; } if (sh_mob (from_ship) <= 0) { Message ("Not enough mobility"); Bell (); return; } range = sh_eff (from_ship) * TechFact (sh_tech (from_ship), 2.0) / 100.0; dept = False; if (target == (char *) 0) target = SelectTarget (s_xcd (cursct), s_ycd (cursct), (int) range, & dept, True); if (target == (char *) 0) { Message ("Torpedo cancelled"); Bell (); return; } if (last_target != (char *) 0) free (last_target); last_target = Str (target); last_guns = 0; if (ksu_version) SetAgain (RedoFireFromSub); else SetAgain (RedoFireFromShip); FeedEmpire (Fmt ("torpedo %s %d", target, sh_nr (from_ship)), PRINT); set_sh_mob (from_ship, sh_mob (from_ship) - 20); set_sh_she (from_ship, sh_she (from_ship) - 3); ParseFireOutput ((Sector) 0, curship); cursct = from_sector; curship = from_ship; CensusShip (curship); } xemp5.1-beta/lib/commands/grind.c100444 12266 2116 4733 6023766611 15265 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/commands/RCS/grind.c,v 5.2 1995/09/08 07:08:23 jpo Exp $ $Date: 1995/09/08 07:08:23 $ $Author: jpo $ $Id: grind.c,v 5.2 1995/09/08 07:08:23 jpo Exp $ $Locker: $ $Log: grind.c,v $ Revision 5.2 1995/09/08 07:08:23 jpo prototypes * Revision 5.1 93/03/14 16:44:35 etienne * * * Revision 5.0 93/02/06 09:18:04 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:32:23 greyhelm * Client for ASCII /X Empire client * Added RCS header - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" static int last_number; void RedoGrind () { (void) DoGrind (CrdStr (cursct), last_number, '\0'); } void BindGrind (x, y, str) int x, y; char * str; { int number; if (str == (char *) 0 || sscanf (str, "( %d )", & number) == 0) SingleGrind (); else DoGrind (CrdStr (cursct), number, '\0'); } void DoGrind (realm, quant, ch) char *realm; int quant; char ch; { char * ptr; int conv; Sector sct; int x, y; int sx, sy, ex, ey; int newuw; int total_grind; (void) ConvRealmToCoord (realm, & sx, & sy, & ex, & ey); SetAgain (RedoGrind); last_number = quant; if (command_state == TEST_STATE || command_state == FORCE_BUF_STATE) { total_grind = 0; if (command_state == FORCE_BUF_STATE) FeedCommand (Fmt ("grind %s %d", realm, quant), PRINT); for (y = sy; y <= ey; y ++) for (x = sx; x <= ex; x ++) { sct = World (x, y, S_EXIST); if (sct == (Sector) 0 || ! s_owned (sct) || s_des (sct) != 'b' || s_eff (sct) < 60) continue; } Message (Fmt ("%d bars grinded", total_grind)); DrawMapPart (sx, sy, ex, ey); return; } FeedEmpire (Fmt ("grind %s %d", realm, quant), PRINT); for (;;) { ptr = ReadEmpire (PRINT); if (EmpireStatus () == E_COMMAND) { PrintAtEmpire (ptr); DrawMapPart (sx, sy, ex, ey); return; } } } void SingleGrind () { char * ans; int quant; ans = InputAtMessage (Fmt("# to grind [%d]: ",max_comm), 4, GS_PNUMBER); if (ans == (char *) 0 || interrupt) { interrupt = False; ClearMes (); return; } if (*ans == '\0') quant = max_comm; else { quant = atoi (ans); if (quant <= 0) { ClearMes (); return; } } DoGrind (CrdStr (cursct), quant, '\0'); } void MultiGrind (x, y) int x, y; { MultiCommand (x, y, "Grind how many bars", "grind", max_comm, DoGrind, '\0'); } xemp5.1-beta/lib/commands/load.c100444 12266 2116 6547 6032510626 15077 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/commands/RCS/load.c,v 1.4 1995/09/28 12:14:14 jpo Exp $ $Date: 1995/09/28 12:14:14 $ $Author: jpo $ $Id: load.c,v 1.4 1995/09/28 12:14:14 jpo Exp $ $Locker: $ $Log: load.c,v $ Revision 1.4 1995/09/28 12:14:14 jpo change load syntax again Revision 1.3 1995/09/28 08:27:54 jpo new load format - I think. Revision 1.2 1995/09/08 07:08:29 jpo touch ups * Revision 1.1 93/03/14 16:45:01 etienne * Initial revision * */ #include #include #include #include #include #include void LLoadXPlane (land) Land land; { fprintf(stderr,"LLoadXPlane\n"); return; /* TODO */ } void LandToShip (landnr) char *landnr; { char * ptr, * ptri, * line, * shipnr; int lnd, shp; Land land; Ship ship; UnmarkAllLands (); MarkLands (landnr); for ALL_LANDS (land) if (ld_marked (land) && !PortableLand (land)) { Message ("Army has heavy units ! No units loaded"); Bell (); UnmarkAllLands (); return; } for ALL_LANDS (land) if (ld_marked (land) && ld_shipnr (land) > 0) { FeedEmpire (Fmt (emp3server == 2 ? "unload land %d %s" : "unload %d %s land", ld_shipnr (land), landnr), PRINT); WaitForPrompt (PRINT); ship = NrToShip (ld_shipnr (land)); set_ld_shipnr (land, -1); set_sh_land (ship, (sh_land (ship) - 1)); return; } ship = SelectOneShip (10,10, ST_LOADLAND, "Load onto which ship ?"); if (ship == NULL) return; FeedEmpire (Fmt (emp3server == 2 ? "load land %d %s" : "load %d %s land", sh_nr (ship), landnr), PRINT); (void) SkipNLines (1, DONT_PRINT); for (;;) { line = ReadEmpire (DONT_PRINT); if (EmpireStatus () != E_PRINTING) { PrintAtEmpire (""); PrintAtEmpire (line); Bell (); return; } ptri = index (line, '#'); if (ptri == (char *) 0) return; if (sscanf (ptri,"#%d loaded onto ship #%d", & lnd , & shp) != 2) { Message ("Loading failed !"); Bell (); return; } land = NrToLand (lnd); ship = NrToShip (shp); set_ld_shipnr (land, shp); set_sh_land (ship, sh_land (ship) + 1); } } void PlaneToShip (planenr) char *planenr; { fprintf(stderr, "PlaneToShip: plane %s\n", planenr); return; } void SLoadPlane (ship, mission) Ship ship; Mission mission; { char * planes; if (s_pla (cursct) <= 0) { Message ("No planes in this sector"); Bell (); return; } UnmarkAllPlanes (); planes = SelectPlanes (10,10, cursct, mission, "Load which planes ?"); if (planes == (char *) 0) { Message ("Load aborted"); return; } if (*planes == '.') return; FeedEmpire ( Fmt (emp3server == 2 ? "load plane %d %s" : "load %d %s plane", sh_nr (ship), planes), PRINT); return; } void SLoadXPlane (ship) Ship ship; { fprintf(stderr, "SLoadXPlane %d\n", sh_nr (ship)); return; } void SLoadHeli (ship) Ship ship; { fprintf(stderr, "SLoadHeli %d\n", sh_nr (ship)); return; } void SLoadLand (ship) Ship ship; { char * lands; int maxlnd; maxlnd = (shiptypes [ sh_type(ship)]. land - sh_land (ship)); MarkLands (CrdStr(cursct)); lands = SelectLands (10,10, LD_LANDTOSHIP, Fmt ("Load which units ? (max : %d)", maxlnd)); if (lands == (char *) 0) return; FeedCommand (Fmt (emp3server == 2 ? "load land %d %s" : "load %d %s land", sh_nr (ship), lands), PRINT); /* TODO, scanning of loading lands */ return; } xemp5.1-beta/lib/commands/market.c100444 12266 2116 13611 6023766611 15460 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/commands/RCS/market.c,v 5.2 1995/09/08 07:09:10 jpo Exp $ $Date: 1995/09/08 07:09:10 $ $Author: jpo $ $Id: market.c,v 5.2 1995/09/08 07:09:10 jpo Exp $ $Locker: $ $Log: market.c,v $ Revision 5.2 1995/09/08 07:09:10 jpo consts * Revision 5.1 93/03/14 16:45:43 etienne * * * Revision 5.0 93/02/06 09:18:04 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:32:23 greyhelm * Client for ASCII /X Empire client * Added RCS header - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "var.h" static int last_quant; static double last_price; static char last_comm; double atof (); #define GS_PFNUMBER "+0-9." /* ARGSUSED */ void BindSell (x, y, str) /* sell (com, quant, price) */ int x, y; char * str; { char *ans; int quant; double price; char com[20]; if (str == (char *) 0) SingleSell (x, y); else switch (sscanf (str, " ( %[^,], %d, %g )", com, & quant, &price)) { case 0: SingleSell (x, y); return; case 1: if (CharToItem (* com) < 0) { Message ("Illegal bind: 'sell (comm, #, $)'"); Bell (); return; } ans = InputAtMessage ("Quantity to Sell? ", 4, GS_NUMBER); if (ans == (char *)0 || interrupt || * ans == '\0') { interrupt = False; Message ("Sale cancelled"); return; } quant = atoi (ans); ans = InputAtMessage ("Price to sell at? ", 4, GS_PFNUMBER); if (ans == (char *)0 || interrupt || * ans == '\0') { interrupt = False; Message ("Sale Cancelled"); return; } price = atof(ans); DoSell (CrdStr (cursct), * com, quant, price); return; case 2: if (CharToItem (* com) < 0 || quant <= 0) { Message ("Illegal bind: 'sell (comm, #, $)'"); Bell (); return; } ans = InputAtMessage ("Price to sell at? ", 4, GS_PFNUMBER); if (ans == (char *)0 || interrupt || * ans == '\0') { interrupt = False; Message ("Sale Cancelled"); return; } price = atof(ans); DoSell (CrdStr (cursct), * com, -quant, price); return; case 3: if (CharToItem (* com) < 0 || quant <= 0 || price <= 0) { Message ("Illegal bind: 'sell (comm, #, $)'"); Bell (); return; } DoSell (CrdStr (cursct), * com, -quant, price); return; } } /* * RedoSell, repeat a sale */ /* ARGSUSED */ void RedoSell () { DoSell (CrdStr(cursct), last_comm, last_quant, last_price); } void DoSell (realm, comm, quant, price) char *realm; char comm; int quant; double price; { char *ptr; Sector sct; const char *itemname; int item; int tot_sold = 0; int sx, sy, ex, ey; int x, y; int available; (void) ConvRealmToCoord (realm, &sx, & sy, & ex, &ey); item = CharToItem (comm); itemname = ItemName (item); SetAgain (RedoSell); last_price = last_quant = 0; last_comm = comm; Message ("Current command: sell"); FeedCommand (Fmt ("sell %c %s %d %f", comm, realm, quant, price), PRINT); for (y = sy; y <= ey; y ++) for (x = sx; x <= ex; x++) { sct = World (x, y, S_EXIST); if (sct == (Sector)0 || ! s_owned (sct)) continue; available = GiveQuant (sct, comm); if (available <= 0) continue; if (quant > 0) { available -= quant; if (available <= 0) continue; } else available = available < -quant ? available : -quant; tot_sold += available; SetQuant (sct, comm, GiveQuant (sct, comm) - available); DrawSector (sct); } if (tot_sold > 0) price = (double)ItemWeight (item, NPKG) * (double)tot_sold / 10.0; Message (Fmt ("Put %d %s on the market, tax of $%d", tot_sold, itemname, (int)price)); } void MultiSell (x,y) int x,y; { char *ptr; int quant; double price; int item; char *realm; char itemchar; const char *itemname; item = SelectSellItem (x + 4, y + 4, "Sell what ?"); if (item <= 0) { Message ("Nothing sold"); return; } itemchar = ItemChar (item); itemname = ItemName (item); ptr = InputAtMessage (Fmt ( "Sell how many %s:", itemname), 4, GS_PNUMBER); if (interrupt || ptr == (char *) 0 || *ptr == '\0') { interrupt = False; Message ("Changed your mind ??"); return; } quant = atoi (ptr); ptr = InputAtMessage (Fmt ("Sell %d %s at what price? ", quant, itemname), 4, GS_PFNUMBER); if (interrupt || ptr == (char *)0 || *ptr == '\0') { interrupt = False; Message ("Changed your mind ??"); return; } price = atof (ptr); while ((realm = MySelRealm ()) != (char *)0) DoSell (realm, itemchar, quant, price); Message ("Multi sale completed"); } void SingleSell (x, y) int x,y; { char *ptr; int quant; double price; int item; int available; char itemchar; const char *itemname; item = SelectSellItem (x + 4, y + 4, "Sell what ?"); if (item <= 0) { Message ("Nothing sold"); return; } itemchar = ItemChar (item); itemname = ItemName (item); available = GiveQuant (cursct, itemchar); if (available == 0) { Message (Fmt ("There is no (more) %s in this sector", itemname)); Bell (); return; } if (available > 1) { ptr = InputAtMessage (Fmt ( "Sell how many %s [%d]:", itemname, available), 4, GS_PNUMBER); if (interrupt || ptr == (char *) 0) { interrupt = False; Message ("Changed your mind ??"); return; } else if (*ptr == '\0') quant = available; else quant = atoi (ptr); } else quant = 1; if (quant > available) { quant = available; Error (Fmt ( "Warning: only selling %d %s", quant, itemname)); if (interrupt) return; } ptr = InputAtMessage (Fmt ("Sell %d %s at what price? ", quant, itemname), 4, GS_PFNUMBER); if (interrupt || ptr == (char *)0 || *ptr == '\0') { interrupt = False; Message ("Changed your mind ??"); return; } price = atof (ptr); DoSell (CrdStr (cursct), itemchar, -quant, price); } xemp5.1-beta/lib/commands/mfire.c100444 12266 2116 10300 6023766611 15267 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/commands/RCS/mfire.c,v 5.1 1993/03/14 16:45:47 etienne Exp $ $Date: 1993/03/14 16:45:47 $ $Author: etienne $ $Id: mfire.c,v 5.1 1993/03/14 16:45:47 etienne Exp $ $Locker: $ $Log: mfire.c,v $ Revision 5.1 1993/03/14 16:45:47 etienne initial release. should be completly rewritten. * Revision 5.0 93/02/06 09:18:04 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:32:23 greyhelm * Client for ASCII /X Empire client * Added RCS header - Karl Hagen * */ /* support for multifire (chainsaw > 2.1) * etienne 18 Nov 1992 */ #include "type.h" #include "main.h" #include "sector.h" #include "var.h" #include "ship.h" #include "nation.h" static char * last_target = (char *) 0; void MFireFromFleet (fleet) char * fleet; { int nr; int range; Ship ptr; char buffer [1024]; bool first; UnmarkAllShips (); MarkShips (fleet); nr = 0; for ALL_SHIPS (ptr) if (sh_marked(ptr)) { if ( ! sh_owned (ptr) || sh_eff (ptr) < 60 || sh_she (ptr) == 0 || sh_gun (ptr) == 0 || sh_mil (ptr) == 0 ) set_sh_marked (ptr, False); else nr++; } if (nr == 0) { Message ("No selected ships with enough mil/gun/shell/eff"); Bell (); return; } range = -1; buffer [0] = '\0'; first = True; for ALL_SHIPS (ptr) if (sh_marked(ptr)) { if (first) { first = False; strcat (buffer, Fmt ("%d", sh_nr (ptr))); } else strcat (buffer, Fmt ("/%d", sh_nr (ptr))); if (ShipFireRange (ptr) > range) range = ShipFireRange (ptr); } if (first) return; Message(Fmt ("Would fire with ships: %s max range : %d",buffer,range)); Bell (); return; /* DoMFireFromFleet ((char *) 0, -1); */ } #ifdef BLABBER void RedoMFireFromFleet () { DoMFireFromFleet (last_target); } void DoMFireFromFleet (target) char * target; { Ship from_ship; Sector from_sct; char * ans; int shells; double range; char * mes; bool dept; from_ship = curship; from_sct = cursct; if (from_ship == (Ship) 0) { /* set current, again, no ship ? */ Message ("Ship-fire without a ship ?"); Bell (); return; } if (! sh_owned (from_ship)) { Message ("You don't own that ship !"); Bell (); return; } mes = (char *) 0; if (sh_eff (from_ship) < 60) mes = "Ship is crippled"; shells = sh_she (from_ship); if (shells == 0) mes = "Klick, no more shells"; if (sh_gun (from_ship) == 0) mes = "No guns"; if (sh_mil (from_ship) == 0) mes = "No mils to fire !"; nr_guns = ShipMaxGuns (from_ship); range = ShipFireRange (from_ship); if (nr_guns == 0 || range == 0.0) mes = Fmt ("You can't fire from a %s", ShipName (from_ship)); if (mes != (char *) 0) { Message (mes); Bell (); return; } dept = ShipHas (from_ship, M_DCHRG); if (target == (char *) 0) target = SelectTarget (sh_xcd (from_ship), sh_ycd (from_ship), (int) range, & dept, False); if (target == (char *) 0) { Message ("fire cancelled"); return; } if (dept) { if (shells < 2) { Message ("You need two shells for a deptcharge"); Bell (); return; } guns = 2; } else { if (shells < nr_guns) { Message (Fmt ("Only %d shell%s left"), shells, shells > 1 ? "s" : ""); Bell (); nr_guns = shells; } if (nr_guns == 1) guns = 1; else { if (guns <= 0) { ans = InputAtMessage (Fmt ( "Fire how many guns [%d]:", nr_guns), 2, GS_PNUMBER); if (ans == (char *) 0 || interrupt) { Message ("Fire cancelled"); return; } if (* ans == '\0') guns = nr_guns; else { guns = atoi (ans); if (guns > nr_guns) { Bell (); guns = nr_guns; } } } } } if (guns == 0) { Message ("Fire cancelled"); return; } if (target == (char *) 0) return; if (last_target != (char *) 0) free (last_target); last_target = Str (target); last_guns = guns; SetAgain (RedoFireFromShip); FeedEmpire (Fmt ("fire ship %s %d ", sh_nr (from_ship), target), PRINT); set_sh_she (from_ship, sh_she (from_ship) - guns); ParseFireOutput ((Sector) 0, curship); cursct = from_sct; curship = from_ship; CensusShip (curship); } #endif xemp5.1-beta/lib/commands/move.c100444 12266 2116 77455 6023766612 15164 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/commands/RCS/move.c,v 5.2 1995/09/08 07:09:19 jpo Exp $ $Date: 1995/09/08 07:09:19 $ $Author: jpo $ $Id: move.c,v 5.2 1995/09/08 07:09:19 jpo Exp $ $Locker: $ $Log: move.c,v $ Revision 5.2 1995/09/08 07:09:19 jpo prototypes allow exploring when it empties the sector * Revision 5.1 93/03/14 16:46:11 etienne * * * Revision 5.0 93/02/06 09:18:04 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:32:23 greyhelm * Client for ASCII /X Empire client * Added RCS header - Karl Hagen * */ #include #include "type.h" #include "main.h" #include "sector.h" #include "var.h" #include "nation.h" #include "nuke.h" #define MAXSTOPS 20 extern WinInfo map_win; static int last_quant; static char last_comm; static int last_x, last_y; static int last_explore_quant = 0; static char last_explore_item = '\0'; void BindMove (x, y, str) /* move (com, quant) */ int x, y; char * str; { char com [20]; int quant; if (str == (char *) 0) DoMove (x, y, '\0', 0, (char *) 0); else switch (sscanf (str, " ( %[^,], %d )", com, & quant)) { case 0: DoMove (x, y, '\0', 0, (char *) 0); return; case 1: if (CharToItem (* com) < 0) { Message ("Illegal bind: 'move (comm, #)'"); Bell (); return; } DoMove (x, y, * com, 0, (char *) 0); return; case 2: if (CharToItem (* com) < 0 || quant <= 0) { Message ("Illegal bind: 'move (comm, #)'"); Bell (); return; } DoMove (x, y, * com, quant, (char *) 0); return; } } /* * RedoMove only redoes real moves, not transport */ void RedoMove () { DoMove (s_xcd(cursct), s_ycd(cursct), last_comm, last_quant, (char *) 0); } /* * In case of moving planes, comm = 'P', quant = weight & * planeid is a strings like "a" or "152/67". * * Sanity checks must be done before calling DoMove */ void Move (x, y) { DoMove (x, y, '\0', 0, (char *) 0); } void DoMove (x, y, comm, quant, planeid) int x, y; char comm; int quant; char * planeid; { double mmult; double newmob; Sector stop [MAXSTOPS], nextsct; Sector sct; Stockp stockp; int mcost [MAXSTOPS]; char *mpath [MAXSTOPS]; char *path, *ptr; int nrstops; /* number of stops */ int i; int button; bool cont, nofuther; char itemchar; const char *itemname; int item; int available; int packing; int fail, ny, nx; if (! s_owned (cursct)) { Message ("This sector ain't yours !"); Bell (); return; } Message ("Current command: move"); sct = cursct; if (comm != 'P' && comm != 'N') /* no planes and nukes */ { if (comm == '\0') item = SelectAvaItem (x + 4, y + 4, sct, "Move what ?"); else item = CharToItem (comm); if (item <= 0) { Message ("Nothing moved"); return; } itemchar = ItemChar (item); itemname = ItemName (item); SetAgain (RedoMove); last_quant = 0; last_comm = itemchar; last_x = x; last_y = y; if ((itemchar == 'c') && (s_occ (sct) == '*')) { Message ("You can't move conquered populace"); Bell (); return; } if ((itemchar != 'm') && (s_occ (sct) == '*') && (s_mil (sct) * 10) < s_civ (sct)) { Message ("Military control required to move goods (#mil > #civ * 10)"); Bell (); return; } available = GiveQuant (sct, itemchar); if (available == 0) { Message (Fmt ("There is no (more) %s in this sector", itemname)); Bell (); return; } if (itemchar == 'c' || itemchar == 'm') if ((itemchar == 'm' ? s_civ (sct) : s_mil (sct)) == 0) available--; if (available == 0) { Message ("Would leave sector unpopulated !!"); Bell (); return; } if (quant <= 0) { if (available > 1) { ptr = InputAtMessage (Fmt ( "Move how many %s [%d]:", itemname, available), 4, GS_PNUMBER); if (interrupt || ptr == (char *) 0) { interrupt = False; Message ("Changed your mind ??"); return; } else if (* ptr == '\0') quant = available; else quant = atoi (ptr); if (quant == 0) { Message ("Changed your mind ??"); return; } } else quant = 1; } if (quant > available) { quant = available; Error (Fmt ( "Warning: only moving %d %s", quant, itemname)); if (interrupt) return; } last_quant = quant; SetAgain (RedoMove); Message (Fmt ("Moving %d %s out of %s; mobility %d", quant, itemname, CrdStr (sct), s_mob (sct))); if ((itemchar == 'c') && (s_wor (sct) < 100)) Error ("Warning: Civilians unrest"); /* mta Mon Dec 3 17:17:21 EET 1990 */ if ( IsPlague( sct )) Error ("Warning: Plague in sector"); } else { itemchar = comm; if (quant <= 0) { if (itemchar == 'P') { Message (Fmt ("This must be very light planes !")); Bell (); return; } else { int max; max = sp_nukamt(curnuke,curnuketype); if (max > 1) { ptr = InputAtMessage (Fmt ("Transport how many %s nukes [%d/1]: ", nt_name(curnuketype), max), 4, GS_PNUMBER); if (interrupt || ptr == (char *) 0) { interrupt = False; Message ("Transport cancelled"); return; } if (* ptr == '\0') quant = 1; else quant = atoi (ptr); if (quant == 0) { interrupt = False; Message ("Transport cancelled"); return; } if (quant > max) quant = max; } else { quant = max; } } } Message (Fmt ("Moving %s out of %s; mobility %d", itemchar == 'P' ? "plane(s)" : "nuke(s)", CrdStr (sct), s_mob (sct))); } MesBut ("View", "Cancel last Set", "Set"); stop [0] = sct; nrstops = 0; cont = True; nofuther = False; while (cont) { nextsct = SelectSector (& button); if (interrupt) { interrupt = False; Message ("Move cancelled"); /* remove paths */ for (i = 0; i < nrstops; i++) { UnmarkPath (stop [i], mpath [i]); free (mpath [i]); } MesClearBut (); return; } if (button == MIDDLE_BUTTON) { if (nrstops == 0) { MesClearBut (); Message ("Move cancelled"); return; } -- nrstops; UnmarkPath (stop [nrstops], mpath [nrstops]); free (mpath [nrstops]); nofuther = False; if (nrstops != 0) Message (Fmt ("Used %d mob from %d; mobilty now %d", mcost [nrstops - 1], s_mob (stop [nrstops - 1]), s_mob (stop [nrstops]))); else if (itemchar == 'P') Message (Fmt ("Moving planes from %s, mobility %d", CrdStr (sct), s_mob (sct))); else if (itemchar == 'N') Message (Fmt ("Moving nukes from %s, mobility %d", CrdStr (sct), s_mob (sct))); else Message (Fmt ("Moving %d %s from %s; mobility %d", quant, itemname, CrdStr (sct), s_mob (sct))); continue; } if (nextsct == (Sector) 0 || NO_INFO (nextsct)) continue; if (button == LEFT_BUTTON) { CensusSct (nextsct); continue; } if (! s_owned (nextsct)) { Bell (); Message ("You can't go there, it ain't yours !"); continue; } if ((itemchar == 'c') && (s_occ (nextsct) == '*')) { Message ("Your civilians refuse to go there"); Bell (); continue; } if (itemchar != 'P' && itemchar != 'N' && s_civ (nextsct) + 10 < quant/50) { Message (Fmt ("Too little workers in this sector, try moving less (max %d)", (s_civ (nextsct) + 10) * 50)); Bell (); continue; } CensusSct (nextsct); if (stop [nrstops] != nextsct) { if (nofuther) { Error ("You can't move out of this sector"); continue; } Message ("Searching"); path = BestLandPath (stop [nrstops], nextsct); if (path == (char *) 0) { Bell (); Message ("To far away/Not connected"); continue; } if (itemchar != 'P' && itemchar != 'N') { if (s_eff (stop[nrstops]) < 60) packing = NPKG; else packing = SectorPacking (s_des (stop [nrstops])); mmult = ((double) quant) * ItemWeight (item, packing); } else mmult = (double) quant; mcost [nrstops] = (int) (mmult * RealPathCost (stop [nrstops], path)); if (mcost [nrstops] > (s_mob (stop [nrstops]))) { Bell (); Message (Fmt ("Not enough mobility (has %d, need %d)", s_mob (stop [nrstops]), mcost [nrstops])); continue; } if (command_state == FORCE_BUF_STATE && EmpireStatus () == E_DEAD && mcost [nrstops] > 0.00 && mcost [nrstops] == (s_mob (stop [nrstops]))) { Bell (); Warning (Fmt ("Buffered Move: might not have enough mobility (%d)", mcost [nrstops])); Pause (); } mpath [nrstops] = Str (path); MarkPath (stop [nrstops], mpath [nrstops]); Message ( Fmt ("Used %d mob (out of %d); cur mobilty %d", mcost [nrstops], s_mob (stop [nrstops]), s_mob (nextsct))); stop [++ nrstops] = nextsct; if ((itemchar == 'c') && (s_wor (stop [nrstops]) < 100)) Error ("Warning: Civilians unrest"); if ((itemchar != 'P' && itemchar != 'm') && (s_occ (nextsct) == '*') && (s_mil (nextsct) * 10) < s_civ (nextsct)) { Error ("Warning : Not enough mils to move the goods out of this sector"); nofuther = True; } if (itemchar != 'P' && itemchar != 'N' && s_civ (nextsct) + 10 < quant/50) { Error ("Warning : Too much traffic to move the goods out of this sector"); nofuther = True; } } else cont = False; } if (nrstops == 0) { Message ("Nothing moved"); MesClearBut (); return; } Message (Fmt ("Ended at %d,%d, used %d mob (out of %d)", s_xcd (stop [nrstops]), s_ycd (stop [nrstops]), mcost [nrstops - 1], s_mob (stop [nrstops - 1]))); /* Let's move */ fail = 0; nx = s_xcd (stop [0]); ny = s_ycd (stop [0]); for (i = 0; i < nrstops; i ++) { if (command_state == FORCE_BUF_STATE && EmpireStatus () == E_DEAD) { if (itemchar == 'P') FeedCommand (Fmt ("transport plane %s %sh", planeid, mpath [i]), PRINT); else if (itemchar == 'N') { FScanNukes (CrdStr(stop[i]), DONT_PRINT); stockp = s_stock(stop[i]); FeedCommand (Fmt ("transport nuke %d \"%s\" %d %sh", sp_nr(stockp), nt_name(curnuketype), quant, mpath [i]), PRINT); add_nuk(stop[i],-quant); if (s_nuk(stop[i]) == 0) set_stock(stop[i], 0); sp_nukamt(stockp,curnuketype) -= quant; } else FeedCommand (Fmt ("move %c %d,%d %d %sh", itemchar, s_xcd (stop [i]), s_ycd (stop [i]), quant, mpath [i]), PRINT); set_mob (stop [i], (int) (s_mob (stop [i]) - mcost [i] - 0.99)); nx = s_xcd (stop [i + 1]); ny = s_ycd (stop [i + 1]); UnmarkPath (stop [i], mpath [i]); free (mpath [i]); continue; } if (itemchar == 'P') FeedEmpire (Fmt ("transport plane %s %s", planeid, mpath [i]), PRINT); else if (itemchar == 'N') { FScanNukes (CrdStr(stop[i]), DONT_PRINT); stockp = s_stock(stop[i]); FeedEmpire (Fmt ("transport nuke %d \"%s\" %d %s", sp_nr(stockp), nt_name(curnuketype), quant, mpath [i]), PRINT); add_nuk(stop[i],-quant); if (s_nuk(stop[i]) == 0) set_stock(stop[i], 0); sp_nukamt(stockp,curnuketype) -= quant; } else FeedEmpire (Fmt ("move %c %d,%d %d %s", itemchar, s_xcd (stop [i]), s_ycd (stop [i]), quant, mpath [i]), PRINT); ptr = WaitForPrompt (PRINT); /* fail : * 1 or 2 means total move failed stranded where * started (== stop[i]); * 3 move failed partly stranded somewhere inbetween * stop[i] and stop[i + 1] * * nx and ny are set to the sector where the move * ended */ if (EmpireStatus () == E_COMMAND) fail = 1; else if (sscanf (ptr, "<%lf: %*c %d,%d", &newmob, &nx, &ny) != 3) fail = 2; else { if (nx != s_xcd (stop [i + 1]) && ny != s_ycd (stop [i + 1])) { fail = 3; } set_mob (stop [i], (int) (newmob + 0.5)); } if (fail > 0) { int j; if (EmpireStatus () != E_COMMAND) { FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); } if (fail < 3) { /* total move failed set end coordinates of * move to current sector */ nx = s_xcd (stop [i]); ny = s_ycd (stop [i]); } if (nx == s_xcd (stop [0]) && ny == s_ycd (stop [0])) Error ("Warning Move Failed, nothing moved"); else Error (Fmt ( "Warning Move Failed stranded at %d,%d", nx, ny)); for (j = i; j < nrstops; j ++) { UnmarkPath (stop [j], mpath [j]); free (mpath [j]); } break; } FeedEmpire ("h", PRINT); (void) WaitForPrompt (PRINT); UnmarkPath (stop [i], mpath [i]); free (mpath [i]); } MesClearBut (); if (nx == s_xcd (stop [0]) && ny == s_ycd (stop [0])) /* nothing moved !! */ return; if (itemchar == 'P') { UnmarkAllPlanes (); MarkPlanes (planeid); MoveMarkedPlanesTo (World (nx, ny, S_DESIG)); return; } if (itemchar != 'N') { /* adjust quantities */ SetQuant (stop [0], itemchar, GiveQuant (stop [0], itemchar) - quant); DrawSector (stop [0]); SetQuant (World (nx, ny, S_DESIG), itemchar, GiveQuant (World (nx, ny, S_DESIG), itemchar) + quant); DrawSector (World (nx, ny, S_DESIG)); CensusSct (cursct); } } bool ParseExploreInfo (sct) Sector sct; { char *ptr; int start; int x, y; int min, gol, ura, oil, fer; x = s_xcd (sct); y = s_ycd (sct); do { ptr = ReadEmpire (PRINT); } while (StrEQ (ptr, "Warning") || (StrEQ(ptr, "Usage:"))); start = 0; while (ptr [start] == ' ') start ++; if (StrEQ (ptr, "Usage:")) { Message ("Explore failed"); Bell(); return False; } if (StrEQ (ptr, "You can't go there")) { Message ("You can't go there"); Bell (); return False; } if (StrEQ (ptr, "Not enough mobility")) { Message ("Not enough mobility"); Bell (); return False; } (void) UpdateSectorDes (World (x - 1, y - 1, S_DESIG), ptr [start], True); (void) UpdateSectorDes (World (x + 1, y - 1, S_DESIG), ptr [start + 2], True); ptr = ReadEmpire (PRINT); if (ptr == (char *) 0) return False; start = 0; while (ptr [start] == ' ') start ++; (void) UpdateSectorDes (World (x - 2, y, S_DESIG), ptr [start], True); (void) UpdateSectorDes (World (x + 2, y, S_DESIG), ptr [start + 4], True); if (sscanf (ptr + start + 6, " %d %d %d %d %d", & min, & gol, & fer, & oil, & ura) == 5) { if (! KNOW_RES (sct)) /* allocate next part of sector */ sct = World (s_xcd (sct), s_ycd (sct), S_RESOU); set_min (sct, min); set_gol (sct, gol); set_fer (sct, fer); set_oil (sct, oil); set_ura (sct, ura); if (! KNOW_ALL (sct) && ! KNOW_SPY (sct) && ! KNOW_LOO (sct)) set_owner (sct, 0); SET_INFO_RES (sct); } ptr = ReadEmpire (PRINT); start = 0; while (ptr [start] == ' ') start ++; (void) UpdateSectorDes (World (x - 1, y + 1, S_DESIG), ptr [start], True); (void) UpdateSectorDes (World (x + 1, y + 1, S_DESIG), ptr [start + 2], True); return True; } static const char *expl_str [] = { "civilians", "military", (char *) 0 }; #define MAX_ENTRIES 200 void DoExplore (x, y, itemchar, quant) int x, y; char itemchar; int quant; { Sector scts [MAX_ENTRIES]; Sector from, nxt, lastsct; const char * itemname; int item; int max; int button; int nr, i; bool dontadjust; Strings strings; Pager pager; char * ptr; from = cursct; if (itemchar == '\0') { if (s_civ (cursct) == 0 && s_mil (cursct)== 0) return; else if (s_civ (cursct) == 0) itemchar = 'm'; else if (s_mil (cursct) == 0) itemchar = 'c'; else { int r; strings = InitStrings (); AddStringsID (strings, expl_str, 2, 0); pager = InitPager (strings, "Explore with ?"); MapPagerFromTop (pager, map_win, x, y); r = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (r < 0) { Message ("No one wants to explore"); return; } itemchar = (r == 0) ? 'c' : 'm'; } } else { switch (itemchar) { case 'c': if (s_civ (cursct) == 0) { Message ("No (more) civilians in this sector"); Bell (); return; } break; case 'm': if (s_mil (cursct) == 0) { Message ("No (more) militairs in this sector"); Bell (); return; } break; default: Message ("You can only explore with civs or mils!"); Bell (); return; } } max = (itemchar == 'c') ? s_civ (cursct) : s_mil (cursct); item = CharToItem (itemchar); itemname = ItemName (item); if (itemchar == 'c' && s_occ (cursct) == '*') { Message ("You can't explore with conquered civilians"); Bell (); return; } if ((itemchar == 'c') && (s_wor (cursct) < 100)) { Error ("Warning: Civilian unrest"); if (interrupt) return; } if (quant <= 0 && max == 1) quant = 1; else if (max > 1 && quant <= 0) { ptr = InputAtMessage (Fmt ("Explore with how many %s [%d/1]: ", itemname, max), 4, GS_PNUMBER); if (interrupt || ptr == (char *) 0) { interrupt = False; Message ("Explore cancelled"); return; } if (* ptr == '\0') quant = 1; else quant = atoi (ptr); if (quant == 0) { interrupt = False; Message ("Explore cancelled"); return; } if (quant > max) quant = max; } else { if ((itemchar == 'm' && s_mil (cursct) < quant) || (itemchar == 'c' && s_civ (cursct) < quant)) { Message ("Not enough (left) to explore"); Bell (); return; } } if (((itemchar == 'm' ? s_civ (cursct) : s_mil (cursct)) == 0) && (quant == max)) { Warning ( "Will depopulate sector !!" ); } Message (Fmt ("Exploring with %d %s", quant, itemname)); SetAgain (RedoExplore); last_explore_item = itemchar; last_explore_quant = quant; FeedEmpire (Fmt ("explore %c %s %d", itemchar, CrdStr (cursct), quant), PRINT); MesBut ("View", "End", "Explore"); nr = 0; (void) ParseExploreInfo (cursct); (void) WaitForPrompt (PRINT); dontadjust = False; lastsct = cursct; for (;;) { nxt = SelectSector (& button); if (button == MIDDLE_BUTTON) nxt = lastsct; if (nxt == (Sector) 0 || NO_INFO (nxt)) continue; if (button == LEFT_BUTTON) { CensusSct (nxt); continue; } if (nxt == lastsct) { /* end of explore */ if ((itemchar == 'c') && KNOW_ALL (nxt) && (s_occ (nxt) == '*')) { Message ("Your civilians refuse to stay here"); Bell (); if (button != MIDDLE_BUTTON) continue; else dontadjust = True; } FeedEmpire ("h", PRINT); (void) WaitForPrompt (PRINT); for (i = 0; i < nr; i++) UnmarkSector (scts [i]); /* adjust quant */ if (! dontadjust) { SetQuant (from, itemchar, GiveQuant (from, itemchar) - quant); RedumpSector (lastsct, PRINT); if (FScanDump (CrdStr (from), PRINT) == 0) { set_owner (from, UNKNOWN_CNUM); DEL_INFO (from); SET_INFO_RES (from); } } Message ("End of explore"); MesClearBut (); return; } if (! Adjacent (nxt, lastsct)) { Bell (); continue; } if (nr >= MAX_ENTRIES) { Error ("Path becomes too long"); continue; } if (s_des (nxt) == '.' || s_des (nxt) == 's' || s_des (nxt) == '\\') { Message ("Impossible to explore that, Sir !"); Bell (); continue; } FeedEmpire (Fmt ("%c", GiveDirChar (lastsct, nxt)), PRINT); nxt = World (s_xcd (nxt), s_ycd (nxt), S_RESOU); if (ParseExploreInfo (nxt)) { scts [nr ++] = nxt; CensusSct (nxt); MarkSector (nxt); DrawNeighbours (nxt); lastsct = nxt; } ptr = WaitForPrompt (PRINT); set_mob (from, (int) (atof (ptr + 1) +.5)); } } void Explore (x, y) { DoExplore (x, y, '\0', -1); } typedef struct n_nlist *NList; static Sector ngoal; struct n_nlist { Sector sct; int dist; NList next; }; static NList open_list; /* all the open sectors */ static NList closed_list; /* all the closed sectors */ static void FreeNlists () { NList ptr, tofree; for (ptr = open_list; ptr != (NList) 0; ) { tofree = ptr; ptr = ptr-> next; free ((char *) tofree); } for (ptr = closed_list; ptr != (NList) 0; ) { tofree = ptr; ptr = ptr-> next; free ((char *) tofree); } open_list = (NList) 0; closed_list = (NList) 0; } static NList NextFromOList () { NList onext; onext = open_list; if (open_list != (NList) 0) { open_list = open_list-> next; onext-> next = closed_list; closed_list = onext; } return onext; } static void AddToOList (sct) Sector sct; { NList ptr, prv; NList new; for (ptr = closed_list; ptr != (NList) 0; ptr = ptr-> next) if (ptr-> sct == sct) return; /* Make new structure */ new = (NList) doalloc ((unsigned) sizeof (struct n_nlist)); new-> sct = sct; new-> dist = Distance (sct, ngoal); prv = (NList) 0; for (ptr = open_list; ptr != (NList) 0; ptr = ptr-> next) { if (ptr-> sct == sct) { free ((char *) new); return; } if (ptr-> dist > new-> dist) { if (prv == (NList) 0) { new-> next = ptr; open_list = new; return; } else { prv-> next = new; new-> next = ptr; return; } } prv = ptr; } if (prv == (NList) 0) open_list = new; else prv-> next = new; new-> next = (NList) 0; } static void AddNeighboursToOlist (sct) Sector sct; { Sector next; Neighb neighb; InitNeighbours (sct, & neighb); while (NextNeighbour (&next, S_DESIG, neighb)) { if (next == (Sector) 0 || NO_INFO (next)) continue; if (s_des (next) == '.' || s_des (next) == 's' || s_des (next) == '\\') continue; AddToOList (next); } } static void InitOList (from) Sector from; { ngoal = from; open_list = (NList) 0; closed_list = (NList) 0; AddToOList (from); (void) NextFromOList (); AddNeighboursToOlist (from); } static void RedumpExploreCircle (from, dist) Sector from; int dist; { int sx, sy, ex, ey; int x, y; char *ptr; Sector sct; sx = s_xcd (from) - 2 * dist; sy = s_ycd (from) - dist; ex = s_xcd (from) + 2 * dist; ey = s_ycd (from) + dist; ptr = Fmt ("%d:%d,%d:%d", sx, ex, sy, ey); (void) FScanDump (Fmt ("%s ?des=-", ptr), PRINT); (void) FScanDump (CrdStr (from), PRINT); FeedEmpire (Fmt ("des %s ?des=- +", ptr), PRINT); (void) WaitForPrompt (PRINT); for (x = sx; x <= ex; x++) for (y = sy; y <= ey; y++) { sct = World (x, y, S_EXIST); if (sct == (Sector) 0) continue; if (s_des (sct) == '-' && KNOW_ALL (sct)) { set_des (sct, '+'); if (s_eff (sct) == 0) set_nds (sct, '+'); } } DrawMapPart (sx, sy, ex, ey); } #ifdef TERMC_VERSION #define UTIL_WIND_WIDTH ((screen_cols - 10 > 80) ? 80 \ : (screen_cols - 10)) #else /* X_VERSION */ #define UTIL_WIND_WIDTH 80 #endif /* VERSION */ void ExploreUtil () { WinInfo win; char * ptr, * ans; int x, y; int line; int lastdist; int max_mob, max_cm; bool changed; Sector from, sct; char explore_with; int explore_item; RaiseWindow (map_win); win = OpenRelToRoot (empire_win, 3, 0, UTIL_WIND_WIDTH, 10, CHARS, 0); line = 1; PrintB (win, 1, line, "-=[ Explore Utility ]=-"); line += 2; if (s_owned (cursct)) ptr = Fmt ("Explore from sector [%d,%d]: ", s_xcd (cursct), s_ycd (cursct)); else ptr = "Explore from sector: "; ans = GetQuest (win, line ++, ptr, 10, GS_SECTOR); if (ans == (char *) 0 || interrupt) { interrupt = False; DestroyWindow (win); LowerWindow (map_win); return; } if (* ans == '\0') from = cursct; else { if (sscanf (ans, "%d, %d", & x, & y) != 2) { Message ("Incorrect sector fmt"); DestroyWindow (win); LowerWindow (map_win); return; } from = World (x, y, S_EXIST); } if (from == (Sector) 0 || ! s_owned (from)) { Message ("You don't own that sector !"); Bell (); DestroyWindow (win); LowerWindow (map_win); return; } if (s_mob (from) <= 0) { Message ("Sector has no mobility left !"); Bell (); DestroyWindow (win); LowerWindow (map_win); return; } if (s_civ (from) > 0 && s_mil (from) > 0) { ans = GetQuest (win, line ++, "Explore with civilians or militairs [c]: ", 1, "cm"); if (ans == (char *) 0 || interrupt) { interrupt = False; DestroyWindow (win); LowerWindow (map_win); return; } if (* ans == '\0') explore_with = 'c'; else explore_with = * ans; } else if (s_civ (from) == 0) explore_with = 'm'; else explore_with = 'c'; if (explore_with == 'c' && s_occ (from) == '*') { Message ("You can't explore with conquered populace"); Bell (); DestroyWindow (win); LowerWindow (map_win); return; } if (s_wor (from) < 100) { if (! Confirm ("Warning: Civilians unrest, Continue", False)) { Bell (); DestroyWindow (win); LowerWindow (map_win); return; } } explore_item = CharToItem (explore_with); if (s_mob (from) > 1) { ans = GetQuest (win, line ++, Fmt ("Use max mobility [%d]: ", s_mob (from)), 33, GS_PNUMBER); if (ans == (char *) 0 || interrupt) { interrupt = False; DestroyWindow (win); LowerWindow (map_win); return; } if (* ans == '\0') { max_mob = s_mob (from); } else { max_mob = atoi (ans); if (max_mob > s_mob (from)) { Message (Fmt ("Only %d mobility to use", s_mob (from))); Bell (); max_mob = s_mob (from); } } } else max_mob = 1; max_cm = (explore_with == 'c') ? s_civ (from) : s_mil (from); if ((explore_with == 'm' ? s_civ (from) : s_mil (from)) == 0) max_cm--; if (max_cm <= 0) { Message ("Would leave sector unpopulated !!"); Bell (); return; } if (max_cm > 1) { ans = GetQuest (win, line ++, Fmt ("Max number of %s to explore with [%d]: ", ItemName (explore_item), max_cm), 3, GS_PNUMBER); if (ans == (char *) 0 || interrupt) { interrupt = False; DestroyWindow (win); LowerWindow (map_win); return; } if (* ans != '\0') if (atoi (ans) <= max_cm) max_cm = atoi (ans); } ClearWindow (win); line = 0; PrintB (win, 1, line, "-=[ Explore Utility ]=-"); line += 2; PrintN (win, 1, line ++, Fmt ("Exploring from sector %d,%d with max %d %s,", s_xcd (from), s_ycd (from), max_cm, ItemName (explore_item))); PrintN (win, 1, line ++, Fmt ("using at most %d mobility.", max_mob)); ans = GetQuest (win, ++ line, "Continue [y]: ", 1, "yn"); if (ans == (char *) 0 || interrupt || * ans == 'n') { interrupt = False; DestroyWindow (win); LowerWindow (map_win); return; } DoExploreUtil (win, from, max_mob, max_cm, explore_with, explore_item); } static void ExploreMessage (win, x, y, str) WinInfo win; int x, y; char * str; { static int lasty = -1; static int lastx = -1; if (win != (WinInfo) 0) PrintN (win, x, y, str); else { if (lasty == y && x > last_x) printf ("\n%s", str); else printf ("%s", str); lasty = y; lastx = x; } } void FlushExplore (win) WinInfo win; { if (win != (WinInfo) 0) FlushWindow (win); } void DoExploreUtil (win, from, max_mob, max_cm, explore_with, explore_item) WinInfo win; Sector from; int max_mob, max_cm; char explore_with; int explore_item; { int lastdist, old_mod; int old_mob; bool changed; NList next; int cost, total_cost, total_cm; char * path, * ptr; Sector sct; total_cm = 0; total_cost = 0; lastdist = 1; old_mob = s_mob (from); changed = False; if (win != (WinInfo) 0) ClearWindow (win); InitOList (from); for (;;) { next = NextFromOList (); if (next == (NList) 0) { ExploreMessage (win, 1, 6, "No more sectors to explore"); FlushExplore (win); Bell (); Pause (); break; } if (next-> dist > lastdist) { if (changed) { RedumpExploreCircle (from, lastdist); total_cost = old_mob - s_mob (from); changed = False; } lastdist = next-> dist; } sct = next-> sct; ExploreMessage (win, 1, 1, Fmt ("Sector: %s (dist %d) ", CrdStr (sct), next-> dist)); ExploreMessage (win, 1, 2, Fmt ("mob's used: %4d", total_cost)); ExploreMessage (win, 1, 3, Fmt ("%s used: %d ", ItemName (explore_item), total_cm)); ExploreMessage (win, 1, 5, "Exploring "); FlushExplore (win); if (s_owned (sct)) { ExploreMessage (win, 1, 5, "Already owned "); FlushExplore (win); AddNeighboursToOlist (sct); continue; } if (s_des (sct) != '-') { ExploreMessage (win, 1, 5, "Not wilderness"); FlushExplore (win); continue; } path = BestLandPath (from, sct); if (path == (char *) 0) { ExploreMessage (win, 1, 5, "Can't reach it (Hehh?)"); FlushExplore (win); continue; } cost = (int) (RealPathCost (from, path) * ItemWeight (explore_item, NPKG) + .99); total_cost += cost; if (total_cost > max_mob) { ExploreMessage (win, 1, 7, "Mobility used up !!"); FlushExplore (win); Bell (); Pause (); break; } FeedEmpire (Fmt ("explore %c %s 1 %s", explore_with, CrdStr (from), path), PRINT); if (! ParseExploreInfo (sct)) { (void) WaitForPrompt (PRINT); ExploreMessage (win, 1, 6, "Something went wrong, aborting"); FlushExplore (win); if (EmpireStatus () == E_QUESTION) { FeedEmpire ("h", PRINT); (void) WaitForPrompt (PRINT); } if (win != (WinInfo) 0) { Bell (); Pause (); } break; } changed = True; ptr = WaitForPrompt (PRINT); set_mob (from, (int) (atof (ptr + 1))); total_cost = old_mob - s_mob (from); FeedEmpire ("h", PRINT); (void) WaitForPrompt (PRINT); if (++ total_cm >= max_cm) { ExploreMessage (win, 1, 6, Fmt ("%s used up", ItemName (explore_item))); FlushExplore (win); if (win != (WinInfo) 0) { Bell (); Pause (); } break; } /* for path search algorithm */ set_owner (sct, my_cnum); AddNeighboursToOlist (sct); } if (changed) RedumpExploreCircle (from, lastdist); else RedumpSector (from, PRINT); FreeNlists (); if (win != (WinInfo) 0) { DestroyWindow (win); LowerWindow (map_win); } } int GiveMaxMove (from, to, item_char, thr_mob) Sector from, to; char item_char; int thr_mob; { int item; int mob; char * path; mob = s_mob (from) - thr_mob; if (mob <= 0) return 0; path = BestLandPath (from, to); if (path == (char *) 0) return -1; item = CharToItem (item_char); if (item < 0) return -1; return (int) (mob / (RealPathCost (from, path) * ItemWeight (item, SectorPacking (s_des (from))))); } bool ExecMove (from, to, quant, item_char) Sector from, to; int quant; char item_char; { double newmob; int item; char * path, * ptr; int nx, ny; bool ret_value; double mcost; if (quant < 0) return False; path = BestLandPath (from, to); if (path == (char *) 0) return False; item = CharToItem (item_char); if (item < 0) return False; if (command_state == TEST_STATE || command_state == FORCE_BUF_STATE) { mcost = quant * RealPathCost (from, path) * ItemWeight (item, SectorPacking (s_des (from))); if (mcost < 0.0 || (int) (mcost + 0.99) > s_mob (from)) return False; if (command_state == FORCE_BUF_STATE) FeedCommand (Fmt ("move %c %s %d %sh", item_char, CrdStr (from), quant, path), PRINT); SetQuant (from, item_char, GiveQuant (from, item_char) - quant); SetQuant (to, item_char, GiveQuant (to, item_char) + quant); set_mob (from, s_mob (from) - (int) (mcost + 0.99)); return True; } FeedEmpire (Fmt ("move %c %s %d %s", item_char, CrdStr (from), quant, path), PRINT); ptr = WaitForPrompt (PRINT); if (EmpireStatus () == E_COMMAND) return False; else if (sscanf (ptr, "<%lf: %*c %d,%d", & newmob, & nx, & ny) != 3) { FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); return False; } if (nx != s_xcd (to) || ny != s_ycd (to)) { ret_value = False; to = World (nx, ny, S_DESIG); } else ret_value = True; set_mob (from, (int) newmob); SetQuant (from, item_char, GiveQuant (from, item_char) - quant); SetQuant (to, item_char, GiveQuant (to, item_char) + quant); FeedEmpire ("h", PRINT); (void) WaitForPrompt (PRINT); return ret_value; } /* * Format: explore [(civ|mil)[, quant]] */ void BindExplore (x, y, str) int x, y; char * str; { int i; char buf [20]; if (sscanf (str, "(%[^,], %d)", buf, & i) == 2) { DoExplore (x, y, buf [0], i); } else if (sscanf (str, "(%s)", buf) == 1) { DoExplore (x, y, buf [0], 0); } else DoExplore (x, y, '\0', 0); } void RedoExplore () { DoExplore (s_xcd(cursct), s_ycd(cursct), last_explore_item, last_explore_quant); } xemp5.1-beta/lib/commands/multi.c100444 12266 2116 16163 6023766612 15335 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/commands/RCS/multi.c,v 5.2 1995/09/08 07:12:41 jpo Exp $ $Date: 1995/09/08 07:12:41 $ $Author: jpo $ $Id: multi.c,v 5.2 1995/09/08 07:12:41 jpo Exp $ $Locker: $ $Log: multi.c,v $ Revision 5.2 1995/09/08 07:12:41 jpo prototypes * Revision 5.1 93/03/14 16:46:14 etienne * * * Revision 5.0 93/02/06 09:18:04 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:32:23 greyhelm * Client for ASCII /X Empire client * Added RCS header - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "nation.h" #include "func.h" #include "parser.h" #define MC_CONVERT 0 #define MC_DELIVER 1 #define MC_DEMOBILIZE 2 #define MC_DESIGNATE 3 #define MC_ENLIST 4 #define MC_MAKEMAP 5 #define MC_RUNPROG 6 #define MC_SCRAP 7 #define MC_SETCUT 8 #define MC_SETTHR 9 #define MC_SETREALM 10 #define MC_SHOOT 11 #define MC_SPY 12 #define MC_TERRIT 13 #define MC_WIPE 14 #define MC_CHANGEOWNER 15 #define MC_MAX 16 static const char * mul_comm [] = { "convert", "deliver", "demobilize", "designate", "enlist", "make map", "run program", "scrap", "set cutoff", "set threshold", "set realm", "shoot", "spy", "territory", "wipe threshold", "change owner", (char *) 0 }; /* ARGSUSED */ void MultiCommand (x, y, quest, comname, def, proc, ch) int x, y; const char * quest, * comname; int def; MultiProc proc; char ch; { char * ans, * realm; int quant; ans = InputAtMessage (Fmt ("%s%s:", quest, (def < 0) ? "" : Fmt (" [%d]", def)), 4, GS_NUMBER); if (ans == (char *) 0 || interrupt || (* ans == '\0' && def < 0)) { interrupt = False; Message (Fmt ("Multi %s cancelled", comname)); return; } if (* ans == '\0') quant = def; else quant = atoi (ans); MesBut ("View", "Do", "Cancel"); do { Message (Fmt ("Command: %s %d", comname, quant)); realm = MySelRealm (); if (realm != (char *) 0) (* proc) (realm, quant, ch); } while (realm != (char *) 0); Message (Fmt ("Multi %s ended", comname)); } void MultiSpy () { char * realm; Message ("Select realm to spy at"); while ((realm = MySelRealm ()) != (char *) 0) FScanSpy (realm); ClearMes (); } void SetRealm (x, y) int x, y; { Pager pager; Strings strings; char *realm; int i; strings = InitStrings (); for (i = 0; i < nr_realms; i++) AddStringID (strings, Fmt ("%-2d) %s", i, nation-> realm [i]), i); pager = InitPager (strings, "Change which realm ?"); MapPagerFromTop (pager, map_win, x, y); i = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (i < 0) { Message ("Set realm cancelled"); return; } realm = MySelRealm (); if (realm == (char *) 0) { Message ("Change realm cancelled"); return; } FeedCommand (Fmt ("realm %d %s", i, realm), PRINT); (void) strcpy (nation-> realm [i], realm); Message (Fmt ("realm %d set", i)); } void MultiProg (px, py) int px, py; { char * ans; Program program; Strings strings; Pager pager; int i; int sx, sy, ex, ey, x, y; char * realm; Sector sct; Strings outp_str, send_str; bool aborted; program = SelectProgram (px + 1, py + 1); if (program == (Program) 0) return; /* ans = InputAtMessage ("Load program from: ", 20, GS_TEXT); if (ans == (char *) 0 || interrupt) { interrupt = False; Message ("Nothing run"); return; } if (* ans == '\0') { strings = EditStrings (80, 25); pager = InitPager (strings, "Enter your program"); AddPagerFunc (pager, "Write", WRITEFUNC); AddPagerFunc (pager, "Read", READFUNC); AddPagerFunc (pager, "Run", DONEFUNC); AddPagerFunc (pager, "Compile", COMPILEFUNC); AddPagerFunc (pager, "Cancel", CANCEL); MapPagerFromTop (pager, map_win, px, py); for (;;) { i = EditPager (pager); if (i == COMPILEFUNC || i == DONEFUNC) { program = ParseProgram (strings); if (program != (Program) 0) { Message ("Program OK"); if (i == DONEFUNC) break; DestroyProgram (& program); } continue; } if (i == CANCELFUNC || i == CANCEL || i == CANCELALL) { FreePager (pager); FreeStrings (strings); Message ("Program Cancelled"); return; } break; } FreePager (pager); } else { strings = InitStrings (); if (! LoadStrings (strings, ans)) return; program = ParseProgram (strings); if (program == (Program) 0) { Message ("Couldn't compile program."); return; } } */ Message ("Select realm to run the program at"); for (;;) { realm = MySelRealm (); if (realm == (char *) 0) { ClearMes (); MesClearBut (); DestroyProgram (& program); return; } if (! ConvRealmToCoord (realm, & sx, & sy, & ex, & ey)) { Message ("Illegal realm specified"); /* HE */ Bell (); continue; } send_str = InitStrings (); outp_str = InitStrings (); aborted = False; for (y = sy; y <= ey && ! aborted; y ++) for (x = sx; x <= ex && ! aborted; x ++) { sct = World (x, y, S_EXIST); if (sct == (Sector) 0) continue; if (RunProgram (sct, program, outp_str, send_str) != P_OK) aborted = True; } if (aborted) { Bell (); Message ("Program aborted"); } if (StringsSize (outp_str) > 0) #ifdef TERMC_VERSION ShowStringsInPager (outp_str, "Output of program"); #else /* TERMC_VERSION */ InitWMPager (outp_str, "Output of program"); #endif /* TERMC_VERSION */ if (StringsSize (send_str) > 0) AddMail (send_str, Fmt ("=== Output of prog '%s' (%s)", * ans == '\0' ? "stdin" : ans, DateFmt (time ((time_t *) 0)))); FreeStrings (send_str); } } void DoMakeMap (x, y) int x, y; { char * name; char * realm; int sx, sy, ex, ey, flag; flag = GetSaveMode (x, y); if (flag < 0) return; realm = MySelRealm (); if (realm == (char *) 0) return; (void) ConvRealmToCoord (realm, & sx, & sy, & ex, & ey); do { name = InputAtMessage ("Filename :", 50, GS_TEXT); if (interrupt || name == (char *) 0 || *name == '\0') { interrupt = False; return; } } while (! SaveMap (name, flag, sx, ex, sy, ey)); return; } void Multi (x, y) int x, y; { Strings strings; Pager pager; int i; strings = InitStrings (); AddStringsID (strings, mul_comm, MC_MAX, 0); pager = InitPager (strings, "Which command ?"); MapPagerFromTop (pager, map_win, x, y); i = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (i < 0 || interrupt) { interrupt = False; return; } RaiseAll (); switch (i) { case MC_CONVERT: MultiConvert (x + 2, y + 2); break; case MC_RUNPROG: MultiProg (x + 2, y + 2); break; case MC_ENLIST: MultiEnlist (x + 2, y + 2); break; case MC_DEMOBILIZE: MultiDemob (x + 2, y + 2); break; case MC_SETTHR: MultiThreshold (x + 2, y + 2); break; case MC_SPY: MultiSpy (); break; case MC_SETREALM: SetRealm (x + 2, y + 2); break; case MC_MAKEMAP: DoMakeMap (x + 2, y + 2); break; case MC_WIPE: MultiWipe (); break; case MC_TERRIT: MultiTerri (); break; case MC_DESIGNATE: MultiDesignate (x + 2, y + 2); break; case MC_CHANGEOWNER: MultiChangeOwner (); break; } LowerAll (); } xemp5.1-beta/lib/commands/pemp.c100444 12266 2116 4245 6023766612 15122 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/commands/RCS/pemp.c,v 5.2 1995/09/08 07:14:48 jpo Exp $ $Date: 1995/09/08 07:14:48 $ $Author: jpo $ $Id: pemp.c,v 5.2 1995/09/08 07:14:48 jpo Exp $ $Locker: $ $Log: pemp.c,v $ Revision 5.2 1995/09/08 07:14:48 jpo prototypes * Revision 5.1 93/03/14 16:46:19 etienne * * * Revision 5.0 93/02/06 09:18:04 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:32:23 greyhelm * Client for ASCII /X Empire client * Added RCS header - Karl Hagen * */ #include "type.h" #include "main.h" #include "func.h" /* ARGSUSED */ void WMPageCommand (x, y) int x, y; { char * ans; Strings strings; char * realm, * ptr; char comm [100]; ans = InputAtMessage ("Command: ", 80, GS_TEXT); strings = InitStrings (); if (ans == (char *) 0 || interrupt || * ans == '\0') { ClearMes (); Bell (); interrupt = False; return; } strcpy (comm, ans); FeedEmpire (ans, PRINT); while ((ptr = ReadEmpireStrings (strings)) != (char *) 0) { if (StrEQ (ptr, "(sects)?")) { RaiseWindow (map_win); Message ("Select Realm"); Bell (); realm = MySelRealm (); RaiseAll (); if (realm == (char *) 0) { FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); FreeStrings (strings); Message ("Cancelled: No realm specified"); return; } strcat (comm, " "); strcat (comm, realm); FeedEmpire (realm, PRINT); continue; } ans = InputAtMessage (ptr, 80, GS_TEXT); if (ans == (char *) 0 || interrupt) { interrupt = False; while (EmpireStatus () != E_COMMAND) { FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); } Message ("Command cancelled"); FreeStrings (strings); return; } FeedEmpire (ans, PRINT); strcat (comm, " "); strcat (comm, ans); } (void) WaitForPrompt (PRINT); if (StringsSize (strings) == 0) { Message ("No output"); Bell (); FreeStrings (strings); return; } #ifdef TERMC_VERSION ShowStringsInPager (strings, comm); #else /* TERMC_VERSION */ InitWMPager (strings, comm); #endif /* TERMC_VERSION */ } xemp5.1-beta/lib/commands/shoot.c100444 12266 2116 10451 6023766612 15331 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/commands/RCS/shoot.c,v 5.1 1993/03/14 16:46:21 etienne Exp $ $Date: 1993/03/14 16:46:21 $ $Author: etienne $ $Id: shoot.c,v 5.1 1993/03/14 16:46:21 etienne Exp $ $Locker: $ $Log: shoot.c,v $ Revision 5.1 1993/03/14 16:46:21 etienne * Revision 5.0 93/02/06 09:18:04 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:32:23 greyhelm * Client for ASCII /X Empire client * Added RCS header - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" static int last_num; static char last_comm; #define DEF_SHOOT 'c' void RedoShoot () { DoShoot (CrdStr (cursct), last_num, last_comm); } /* ARGSUSED */ void BindShoot (x, y, str) int x, y; char *str; { int nr; int number; char comm; char * ans; if (str == (char *) 0) SingleShoot (); else { nr = sscanf (str, " ( %d , %c ) ", & number, & comm); switch (nr) { case 0: SingleShoot (); return; case 1: ans = InputAtMessage ( Fmt ("Shoot (c)ivs or (u)ws [%c]", DEF_SHOOT), 1, "cu"); if (ans == (char *) 0 || interrupt) { Message ("Shoot cancelled"); interrupt = False; return; } DoShoot (CrdStr (cursct), number, * ans == '\0' ? DEF_SHOOT : * ans); return; case 2: if (comm != 'u' && comm != 'c') { Message ("Incorrect binding 'shoot (#, [uc])'"); Bell (); return; } DoShoot (CrdStr (cursct), number, comm); return; } } } void DoShoot (realm, number, comm) char * realm; int number; char comm; { int x, y; char * ptr; Sector sct; int sx, sy, ex, ey; int i; int mcost; (void) ConvRealmToCoord (realm, & sx, & sy, & ex, & ey); if (number > max_civ_uw) number = max_civ_uw; SetAgain (RedoShoot); last_num = number; last_comm = comm; if (command_state == TEST_STATE || command_state == FORCE_BUF_STATE) { if (command_state == FORCE_BUF_STATE) FeedCommand (Fmt ("shoot %s %s %d", realm, comm == 'c' ? "civilians" : "uws", number), PRINT); for (y = sy; y <= ey; y ++) for (x = sx; x <= ex; x ++) { sct = World (x, y, S_EXIST); if (sct == (Sector) 0 || ! s_owned (sct)) continue; if (s_civ (sct) > 10 * s_mil (sct)) { Warning (Fmt ( "Not enough military control in %s", CrdStr (sct))); continue; } i = (comm == 'c') ? s_civ (sct) : q_uw (sct); if (i <= 0) continue; if (i > number) i = number; mcost = (int) ((i + 4) / 5); if (mcost > s_mob (sct)) { i = 5 * s_mob (sct); mcost = s_mob (sct); } if (i <= 0) continue; set_mob (sct, s_mob (sct) - mcost); if (comm == 'c') { set_civ (sct, s_civ (sct) - i); if (s_civ (sct) == 0 && s_occ (sct) == '*') { Message (Fmt ( "%s is now completely yours", CrdStr (sct))); set_occ (sct, '.'); } } else set_q_uw (sct, q_uw (sct) - i); } DrawMapPart (sx, sy, ex, ey); return; } FeedEmpire (Fmt ("shoot %s %s %d", realm, comm == 'c' ? "civilians" : "uws", number), PRINT); do { ptr = ReadEmpire (DONT_PRINT); PrintAtEmpire (ptr); } while (EmpireStatus () != E_COMMAND); (void) WaitForPrompt (PRINT); Message ("Rescanning dump"); FScanDump (realm, DONT_PRINT); ClearMes (); DrawMapPart (sx, sy, ex, ey); } void MultiShoot (x, y) int x, y; { char * ans; ans = InputAtMessage ("Shoot civilians or unc. workers: ", 1, "cu"); if (ans == (char *) 0 || interrupt || * ans == '\0') { interrupt = False; Message ("Shoot cancelled"); return; } MultiCommand (x, y, Fmt ("Shoot how many %s", ItemName (CharToItem (* ans))), "shoot", max_civ_uw, DoShoot, * ans); } void SingleShoot () { char * ans; int number; ans = InputAtMessage ("Quant to shoot? ", 3, GS_PNUMBER); if (ans == (char *) 0 || interrupt || * ans == '\0') { interrupt = False; Message ("Shoot cancelled"); return; } number = atoi (ans); ans = InputAtMessage (Fmt ("Shoot (c)ivs or (u)ws [%c]: ", DEF_SHOOT), 1, "uc"); if (ans == (char *) 0 || interrupt) { interrupt = False; Message ("Shoot cancelled"); return; } DoShoot (CrdStr (cursct), number, * ans == '\0' ? DEF_SHOOT : * ans); DrawSector (cursct); Census (); } xemp5.1-beta/lib/commands/territory.c100444 12266 2116 2707 6023766612 16225 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/commands/RCS/territory.c,v 5.1 1993/03/14 16:46:24 etienne Exp $ $Date: 1993/03/14 16:46:24 $ $Author: etienne $ $Id: territory.c,v 5.1 1993/03/14 16:46:24 etienne Exp $ $Locker: $ $Log: territory.c,v $ Revision 5.1 1993/03/14 16:46:24 etienne * Revision 5.0 93/02/06 09:18:04 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:32:23 greyhelm * Client for ASCII /X Empire client * Added RCS header - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" void ExecSetTer (realm, number) char * realm; int number; { int sx, ex, sy, ey, x, y; int n; Sector sct; (void) ConvRealmToCoord (realm, & sx, & sy, & ex, & ey); n = 0; for (y = sy; y <= ey; y ++) for (x = sx; x <= ex; x ++) { sct = World (x, y, S_EXIST); if (sct == (Sector) 0 || ! s_owned (sct)) continue; set_ter (sct, number); n ++; } FeedCommand (Fmt ("territory %s %d", realm, number), PRINT); Message (Fmt ("%d sectors affected", n)); } void MultiTerri () { int i; char * ans; char * realm; ans = InputAtMessage ("Territory? ", 2, GS_PNUMBER); if (ans == (char *) 0 || interrupt || * ans == 0) { Message ("Setting territory cancelled"); return; } i = atoi (ans); while ((realm = MySelRealm ()) != (char *) 0) ExecSetTer (realm, i); Message ("Setting territory done"); } xemp5.1-beta/lib/commands/trade.c100444 12266 2116 1356 6023766612 15260 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/commands/RCS/trade.c,v 5.1 1993/03/14 16:46:27 etienne Exp $ $Date: 1993/03/14 16:46:27 $ $Author: etienne $ $Id: trade.c,v 5.1 1993/03/14 16:46:27 etienne Exp $ $Locker: $ $Log: trade.c,v $ Revision 5.1 1993/03/14 16:46:27 etienne * Revision 5.0 93/02/06 09:18:04 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:32:23 greyhelm * Client for ASCII /X Empire client * Added RCS header - Karl Hagen * */ #include "type.h" #include "main.h" #include "nation.h" char * multi_menu [] = { "set all multipliers", "set multipliers", "trade", "financial report", (char *) 0 }; xemp5.1-beta/lib/commands/threshold.c100444 12266 2116 4760 6023766612 16157 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/commands/RCS/threshold.c,v 5.2 1995/09/08 07:14:59 jpo Exp $ $Date: 1995/09/08 07:14:59 $ $Author: jpo $ $Id: threshold.c,v 5.2 1995/09/08 07:14:59 jpo Exp $ $Locker: $ $Log: threshold.c,v $ Revision 5.2 1995/09/08 07:14:59 jpo allow any threshold to be set * Revision 5.1 93/03/14 16:46:26 etienne * * * Revision 5.0 93/02/06 09:18:04 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:32:23 greyhelm * Client for ASCII /X Empire client * Added RCS header - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" void ExecSetThreshold (realm, itemchar, i) char * realm; char itemchar; int i; { int sx, sy, ex, ey, x, y, nr1, nr2, length, width; int changed; Sector sct; if (! ConvRealmToCoord (realm, & sx, & sy, & ex, & ey)) return; /* impossible ! */ width = XDIST (sx, ex) + 1; length = YDIST (sy, ey) + 1; changed = 0; for (x = sx, nr1 = 0; nr1 < width; nr1++, x ++) for (y = sy, nr2 = 0; nr2 < length; nr2++, y++) if ((x + y) % 2 == 0) { sct = World (x, y, S_EXIST); if (sct != (Sector) 0 && s_owned (sct)) { SetThreshold (sct, itemchar, i); DrawSector (sct); changed ++; } } if (changed == 0) { Message ("No thresholds changed"); Bell (); return; } if (itemchar == 'a') FeedCommand (Fmt ("wipe %s", realm), PRINT); else FeedCommand (Fmt ("threshold %c %s %d", itemchar, realm, i), PRINT); if (itemchar == 'a') Message (Fmt ("%d sectors wiped", changed)); else Message (Fmt ("%d %s thresholds %s", changed, ItemName (CharToItem (itemchar)), (i == 0) ? "deleted" : "changed")); } void MultiThreshold (px, py) int px, py; { char * realm, * ptr; int newvalue; int item; item = SelectItem (px, py, "Threshold for ?"); if (item < 0) { Message ("Setting threshold cancelled"); return; } ptr = InputAtMessage (Fmt ("New threshold for %s ?", ItemName (item)), 4, GS_PNUMBER); if (ptr == (char *) 0 || *ptr == '\0') { Message ("Setting threshold cancelled"); return; } newvalue = atoi (ptr); while ((realm = MySelRealm ()) != (char *) 0) ExecSetThreshold (realm, ItemChar (item), newvalue); Message ("Multi set threshold done"); DrawMap (); } void MultiWipe () { char *realm; while ((realm = MySelRealm ()) != (char *) 0) ExecSetThreshold (realm, 'a', 0); Message ("Multi wipe done"); DrawMap (); } xemp5.1-beta/lib/data/ 40755 12266 2116 0 6043206335 13016 5ustar jponexorxemp5.1-beta/lib/data/GNUdepend100644 12266 2116 4350 6015617325 14655 0ustar jponexorSRCS= data.c \ dump.c \ help.c \ xemprc.c OBJS= data.o \ dump.o \ help.o \ xemprc.o ### data.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xrc.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h dump.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xrc.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h help.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h xemprc.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xrc.h xemp5.1-beta/lib/data/GNUmakefile100644 12266 2116 1167 6034224543 15173 0ustar jponexor# The following variables are configurable. #-----------------------------------# ifdef TCEMP LOCALCFLAGS := LOCALIFLAGS := -I../../termc/include_tc LOCALLFLAGS := LOCALSFLAGS := endif ifdef XEMP LOCALCFLAGS := LOCALIFLAGS := LOCALLFLAGS := LOCALSFLAGS := endif TOPDIR = ../.. LIB := ../libdata.a LINTNAME := data #-----------------------------------# # Productions: # depend: create the dependencies # all: make the library # saber: load things for saber # tags: make tags include $(TOPDIR)/make/GenMakefile include $(DEPENDENCIES) include $(TOPDIR)/make/LibMakefile tags: ../tags ln -s ../tags TAGS: ../TAGS ln -s ../TAGS xemp5.1-beta/lib/data/data.c100444 12266 2116 16727 6025234563 14227 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/data/RCS/data.c,v 5.3 1995/09/12 07:40:35 jpo Exp $ $Date: 1995/09/12 07:40:35 $ $Author: jpo $ $Id: data.c,v 5.3 1995/09/12 07:40:35 jpo Exp $ $Locker: $ $Log: data.c,v $ Revision 5.3 1995/09/12 07:40:35 jpo removed TC version Revision 5.2 1995/09/08 07:15:37 jpo const * Revision 5.1 93/03/14 16:46:44 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:22:34 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:35:48 greyhelm * Added RCS headers - Karl Hagen * */ /* * Empire Tool, file: data.c <900212> * * RetrieveData () */ #include "type.h" #include "main.h" #include "xrc.h" #include "sector.h" #include "nation.h" #include #include #ifdef HAVE_UNISTD_H #include #endif bool save_data = False; extern int capitol_x, capitol_y; static void RestoreScts (fp, bin_dump) FILE *fp; bool bin_dump; { char buffer [BUFSIZ]; Sector sct; int x, y, info; int nr; int mines; uchar des; int owner, fer, min, gol, ura, oil, eff, civ, mil; time_t infotime; /* info | x | y */ if (fgets (buffer, BUFSIZ, fp) != (char *) 0) { if (sscanf (buffer, "capitol at %hd,%hd", &capitol_x, &capitol_y) != 2) { Bell (); PrintAtEmpire ("Bad capitol info"); PrintAtEmpire (""); } } else return; while (fgets (buffer, BUFSIZ, fp) != (char *) 0) { if (strncmp (buffer, "END OF DUMP LIST", 16) == 0) break; nr = sscanf (buffer, "%d %d %d %c %d %d %d %d %ld %d %d %d %d %d %d\n", & info, & x, & y, & des, & owner, & fer, & oil, & mines, & infotime, & min, & gol, & ura, & civ, & mil, & eff); if (! (nr == 15 || (nr == 8 && (info & (SPY | LOO | RES)) == 0))) { PrintAtEmpire ("Bad sector info in datafile"); PrintAtEmpire (Fmt ("Skipping Line \"%s\"", buffer)); PrintAtEmpire (""); fprintf (stderr, "Skipping Line \"%s\"", buffer); Bell (); continue; } if ((info & (ALL | KNEWALL)) != 0) sct = World (x, y, S_OWNED); else if ((info & (SPY | RES | LOO)) != 0) sct = World (x, y, S_RESOU); else sct = World (x, y, S_DESIG); s_inf (sct) = info; /* des | owner | fer | oil | time */ set_des (sct, des); set_owner (sct, owner); set_fer (sct, fer); set_oil (sct, oil); set_mines (sct, mines); if ((info & (SPY | LOO | RES)) != 0) { /* min | gol | ura | civ | mil | eff */ set_time (sct, infotime); set_min (sct, min); set_gol (sct, gol); set_ura (sct, ura); set_civ (sct, civ); set_mil (sct, mil); set_eff (sct, eff); } if (KNOW_ALL (sct) && ! deity && ! bin_dump) { /* Don't assume sector is still ours, if it is it * will be updated by dump */ DEL_INFO (sct); SET_INFO_KNEWALL (sct); } else if (KNOW_ALL (sct) && ! bin_dump) set_nds (sct, des); } } char *MakeDataFile (suffix) const char *suffix; { char *home; char *fname; char *lead; if ((home = getenv ("HOME")) == (char *) 0) { (void) fprintf (stderr, "HOME not set, leaving...\n"); leave (); } if (xrc.savefile) { fname = xrc. savefile; lead = ""; } else { fname = cname; lead = "."; } if (xrc. savedir) { if(xrc. savedir[0] == '/' || strncmp(xrc. savedir, "./", 2) == 0 || strncmp (xrc.savedir, "../", 3) == 0 || strcmp(xrc.savedir, ".") == 0) return Fmt ("%s/%s%s%s", xrc.savedir, lead, fname, suffix); else return Fmt ("%s/%s/%s%s%s", home, xrc.savedir, lead, fname, suffix); } else return Fmt ("%s/%s%s%s", home, lead, fname, suffix); } bool RetrieveData (bin_dump) bool bin_dump; { FILE *fp; char *fname; fname = MakeDataFile (""); if (xrc. compress) { Message ("Uncompressing datafile"); system (Fmt ("%s %s > /dev/null 2>& 1", UNCOMP_BIN, fname)); } if ((fp = fopen (fname, "r")) == (FILE *) 0) { PrintAtEmpire (Fmt ("No Datafile %s", fname)); PrintAtEmpire (""); Bell (); (void) EmpireMore (); return False; } else if (access (fname, W_OK) != 0) { PrintAtEmpire (Fmt ( "Warning can read but not write Datafile %s", fname)); PrintAtEmpire (""); Bell (); (void) EmpireMore (); return False; } /* Read sectors */ Message ("Restoring...."); RestoreVersion (fp); CheckRefreshEvents (); RestoreBridgeData (fp); CheckRefreshEvents (); RestoreCountries (fp); CheckRefreshEvents (); ReadBufCommands (fp); CheckRefreshEvents (); ReadFerries (fp); CheckRefreshEvents (); RestoreMail (fp); CheckRefreshEvents (); RestoreShowShip (fp); CheckRefreshEvents (); RestoreShowLand (fp); CheckRefreshEvents (); RestoreShowPlane (fp); CheckRefreshEvents (); ReadHighlight (fp); CheckRefreshEvents (); LoadNukeShow (fp); CheckRefreshEvents (); LoadPlanOptions (fp); CheckRefreshEvents (); RestoreScts (fp, bin_dump); CheckRefreshEvents (); if (ferror (fp)) { perror ("Error reading datafile "); fclose (fp); leave (); } fclose (fp); Message ("Restore done"); return True; } void StoreData () { FILE *fp, *fopen (); Sector sct; char *fname; char *home; int x, y; extern int origin_x, origin_y; extern char *sys_errlist[]; if (command_state == FASTQUIT_STATE) return; if (command_state == STARTUP_STATE) { if (! xstarted) return; if (! Confirm ("Aborted while collecting data, save data ?", False)) return; } else if (command_state == TEST_STATE) { Error ("You can't save data when you're in a test state"); return; } BinDumpAll (); fname = MakeDataFile (""); fp = fopen (fname, "w"); if (fp == (FILE *) 0) { (void) fprintf (stderr, "Can't open %s !!!\n", fname); return; } /* Write sectors to remember */ Message ("Saving data"); SaveVersion (fp); SaveBridgeData (fp); SaveCountries (fp); SaveBufCommands (fp); SaveFerries (fp); SaveMail (fp); SaveShowShip (fp); SaveShowLand (fp); SaveShowPlane (fp); SaveHighlight (fp); SaveNukeShow (fp); SavePlanOptions (fp); fprintf (fp, "capitol at %d,%d\n", capitol_x, capitol_y); for (x = 0; x < MAX_X; x ++) for (y = 0; y < MAX_Y; y++) { sct = World (x, y, S_EXIST); if (sct != (Sector) 0) { /* info | xcd | ycd | des | owner | fer | oil | mines | Time */ fprintf (fp, "%hd %hd %hd %c %hd %hd %hd %hd", s_inf (sct), s_xcd (sct), s_ycd (sct), s_des (sct), s_owner (sct), s_fer (sct), s_oil (sct), s_mines (sct)); if ((s_inf (sct) & (SPY | LOO | RES)) != 0) { /* min | gol | ura | civ | mil | eff */ fprintf (fp, " %ld %hd %hd %hd %hd %hd %hd", s_time (sct), s_min (sct), s_gol (sct), s_ura (sct), s_civ (sct), s_mil (sct), s_eff (sct)); } fprintf (fp, "\n"); } } fprintf (fp, "END OF DUMP LIST\n"); if (ferror (fp)) { Message (Fmt ("Save data failed : %s", sys_errlist [errno])); fprintf (stderr, Fmt ("Save data failed : %s", sys_errlist [errno])); } fclose (fp); if (xrc. compress) { Message ("Compressing data"); system (Fmt ("%s %s> /dev/null 2>& 1", COMP_BIN, fname)); } Message ("Save data done"); } void CheckDump () { int x, y; Sector sct; int nr = 0; for (x = 0; x < MAX_X; x++) for (y = 0; y < MAX_Y; y++) { sct = World (x, y, S_EXIST); if (sct == (Sector) 0) continue; if (KNEW_ALL (sct)) { nr++; PrintAtEmpire (Fmt ("Sector %s has been lost !!", CrdStr (sct))); set_owner (sct, UNKNOWN_CNUM); DEL_INFO (sct); SET_INFO_RES (sct); } } if (nr) { Bell (); (void) EmpireMore (); PrintAtEmpire (""); } } xemp5.1-beta/lib/data/dump.c100444 12266 2116 15141 6027464031 14245 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/data/RCS/dump.c,v 5.2 1995/09/08 07:15:42 jpo Exp $ $Date: 1995/09/08 07:15:42 $ $Author: jpo $ $Id: dump.c,v 5.2 1995/09/08 07:15:42 jpo Exp $ $Locker: $ $Log: dump.c,v $ Revision 5.2 1995/09/08 07:15:42 jpo dump lands * Revision 5.1 93/03/14 16:46:45 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:22:34 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:35:48 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "xrc.h" #include "sector.h" #include "var.h" #include "ship.h" #include "nation.h" static void BinDumpSects (fp) FILE * fp; { int x, y; Sector sct; struct s_sector1 nil_sect; int size; size = sizeof (struct s_sector1); fwrite ((char *) & size, sizeof (size), 1, fp); size = sizeof (struct s_sector2); fwrite ((char *) & size, sizeof (size), 1, fp); size = sizeof (struct s_sector3); fwrite ((char *) & size, sizeof (size), 1, fp); for (x = 0; x < MAX_X; x ++) for (y = 0; y < MAX_Y; y++) { sct = World (x, y, S_EXIST); if (sct == (Sector) 0 || NO_INFO (sct)) continue; fwrite ((char *) sct, sizeof (struct s_sector1), 1, fp); if (! KNOW_ALL (sct) && ! KNOW_SPY (sct) && ! KNOW_LOO (sct) && ! KNOW_RES (sct)) continue; fwrite ((char *) sct-> sct2, sizeof (struct s_sector2), 1, fp); if (! KNOW_ALL (sct)) continue; fwrite ((char *) sct-> sct2-> sct3, sizeof (struct s_sector3), 1, fp); if (s_pat (sct) != (char *) 0) fwrite (s_pat (sct), 1, strlen (s_pat (sct)) + 1, fp); if (s_plan (sct) != (PlanEntry) 0) SavePlanInfo (sct, fp); } nil_sect. inf = 0; fwrite ((char *) & nil_sect, sizeof (struct s_sector1), 1, fp); } static bool BinRestSects (fp) FILE *fp; { struct s_sector1 dummy; int x, y; Sector sct; char buffer [BUFSIZ]; char * ptri; struct s_sector2 * ptr2; struct s_sector3 * ptr3; int size; fread ((char *) & size, sizeof (size), 1, fp); if (size != sizeof (struct s_sector1)) return False; fread ((char *) & size, sizeof (size), 1, fp); if (size != sizeof (struct s_sector2)) return False; fread ((char *) & size, sizeof (size), 1, fp); if (size != sizeof (struct s_sector3)) return False; while (fread (& dummy, sizeof (struct s_sector1), 1, fp) > 0) { if (dummy. inf == 0) { /* end of sector list */ return True; } x = dummy. xcd; y = dummy. ycd; if (KNOW_ALL (& dummy)) sct = World (x, y, S_OWNED); if (KNOW_RES (& dummy) || KNOW_LOO (& dummy) || KNOW_SPY (& dummy)) sct = World (x, y, S_RESOU); else sct = World (x, y, S_DESIG); ptr2 = sct-> sct2; bcopy ((char *) & dummy, (char *) sct, sizeof (struct s_sector1)); sct-> sct2 = ptr2; sct-> fship = (Ship) 0; if (land_units) sct-> fland = (Land) 0; sct-> fplane = (Plane) 0; sct-> stock = (Stockp) 0; set_shi (sct, 0); if (land_units) set_land (sct, 0); set_pla (sct, 0); set_nuk (sct, 0); set_mar (sct, 0); if (ptr2 != (struct s_sector2 *) 0) { ptr3 = sct-> sct2-> sct3; (void) fread ((char *) sct-> sct2, sizeof (struct s_sector2), 1, fp); sct-> sct2-> sct3 = ptr3; if (ptr3 != (struct s_sector3 *) 0) { (void) fread ((char *) sct-> sct2-> sct3, sizeof (struct s_sector3), 1, fp); sct-> sct2-> sct3-> fnuke = (Nuke) 0; if (s_pat (sct) != (char *) 0) { ptri = buffer; for (;;) { fread (ptri, 1, 1, fp); if (* ptri == '\0') break; ptri ++; } s_pat (sct) = Str (buffer); } if (s_plan (sct) != (PlanEntry) 0) LoadPlanInfo (sct, fp); } } } return False; } static void BinDumpShips (fp) FILE * fp; { struct s_ship dummy; Ship ship; int size; size = sizeof (struct s_ship); fwrite ((char *) & size, sizeof (size), 1, fp); for (ship = shiplist; ship != (Ship) 0; ship = sh_next (ship)) (void) fwrite ((char *) ship, size, 1, fp); dummy. nr = -1; (void) fwrite ((char *) & dummy, sizeof (struct s_ship), 1, fp); } static bool BinRestShips (fp) FILE * fp; { Ship dummy; Sector sct; int size; fread ((char *) & size, sizeof (size), 1, fp); if (size != sizeof (struct s_ship)) return False; for (;;) { dummy = (Ship) doalloc ((unsigned) sizeof (struct s_ship)); fread ((char *) dummy, size, 1, fp); if (sh_nr (dummy) == -1) { free ((char *) dummy); return True; } /* add ship to sector */ sct = World (sh_xcd (dummy), sh_ycd (dummy), S_DESIG); inc_shi (sct); sh_nxtsct (dummy) = s_fship (sct); s_fship (sct) = dummy; sh_next (dummy) = shiplist; shiplist = dummy; } } static void BinDumpNation (fp) FILE * fp; { int size; size = sizeof (struct s_nation); fwrite ((char *) & size, sizeof (size), 1, fp); (void) fwrite ((char *) nation, sizeof (struct s_nation), 1, fp); } static bool BinRestNation (fp) FILE * fp; { int size; fread ((char *) & size, sizeof (size), 1, fp); if (size != sizeof (struct s_nation)) return False; (void) fread ((char *) nation, sizeof (struct s_nation), 1, fp); return True; } extern char *MakeDataFile (); void BinDumpAll () { FILE * fp; char * file; if (command_state == FASTQUIT_STATE) return; Message ("Saving binary data"); file = MakeDataFile(".dump"); fp = fopen (file, "w"); if (fp == (FILE *) 0) { fprintf (stderr, "can't open %s for binary dump\n", file); perror ("fopen"); return; } BinDumpSects (fp); BinDumpShips (fp); BinDumpLands (fp); BinDumpPlanes (fp); BinDumpNation (fp); BinDumpNukes (fp); fclose (fp); if (xrc. compress) system (Fmt ("%s %s > /dev/null 2>& 1", COMP_BIN, file)); } void BinRestAll () { FILE * fp; char * file; Message ("Restoring binary data"); file = MakeDataFile (".dump"); if (xrc. compress) system (Fmt ("%s %s.Z > /dev/null 2>& 1", UNCOMP_BIN, file)); fp = fopen (file, "r"); if (fp == (FILE *) 0) { if (util_mode) { fprintf (stderr, "can't open %s for reading binary dump\n", file); perror ("fopen"); } else { PrintAtEmpire (Fmt ("No binary datafile %s", file)); PrintAtEmpire (""); Bell (); (void) EmpireMore (); } return; } if (! BinRestSects (fp) || ! BinRestShips (fp) || !BinRestLands(fp) || ! BinRestPlanes (fp) || ! BinRestNation (fp) || ! BinRestoreNukes (fp)) { if (xstarted) { Message ( "bin dump file corrupted, please remove & start again"); Bell (); Pause (); } else fprintf (stderr, "bin dump file corrupted, please remove & start again"); save_data = False; leave (); } fclose (fp); Message ("ready"); } xemp5.1-beta/lib/data/help.c100444 12266 2116 3607 6023766675 14233 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/data/RCS/help.c,v 5.1 1993/03/14 16:46:46 etienne Exp $ $Date: 1993/03/14 16:46:46 $ $Author: etienne $ $Id: help.c,v 5.1 1993/03/14 16:46:46 etienne Exp $ $Locker: $ $Log: help.c,v $ Revision 5.1 1993/03/14 16:46:46 etienne *** empty log message *** * Revision 5.0 93/02/06 09:22:34 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:35:48 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" static FILE * help_fp = (FILE *) 0; void Help (x, y, str) int x, y; char * str; { char buffer [BUFSIZ]; Strings strings; Pager pager; char * help_file; if (help_fp == (FILE *) 0) { help_file = Fmt ("%s/.help", XEMPINFO); help_fp = fopen (help_file, "r"); if (help_fp == (FILE *) 0) { Message (Fmt ("Can't open %s", help_file)); Bell (); return; } } rewind (help_fp); for (;;) { if (fgets (buffer, BUFSIZ, help_fp) == (char *) 0) { Message (Fmt ("Help on '%s' not found", str)); Bell (); return; } NoNl (buffer); if (strcmp (buffer, str) == 0) { strings = InitStrings (); for (;;) { if (fgets (buffer, BUFSIZ, help_fp) == (char *) 0) { Message (Fmt ("No '.' found by %s", str)); FreeStrings (strings); Bell (); return; } if (strcmp (buffer, ".\n") == 0) { pager = InitPager (strings, "Help"); MapPagerFromTop (pager, map_win, x, y); ShowPager (pager); FreePager (pager); FreeStrings (strings); return; } NoNl (buffer); AddString (strings, buffer); } } /* skip to '.' */ do { if (fgets (buffer, BUFSIZ, help_fp) == (char *) 0) { Message ("corrupted help-file"); Bell (); return; } } while (strcmp (buffer, ".\n") != 0); } } xemp5.1-beta/lib/data/xemprc.c100444 12266 2116 16216 6023766676 14622 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/data/RCS/xemprc.c,v 5.2 1995/09/08 07:15:54 jpo Exp $ $Date: 1995/09/08 07:15:54 $ $Author: jpo $ $Id: xemprc.c,v 5.2 1995/09/08 07:15:54 jpo Exp $ $Locker: $ $Log: xemprc.c,v $ Revision 5.2 1995/09/08 07:15:54 jpo cost stuff * Revision 5.1 93/03/14 16:46:47 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:22:34 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:35:48 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "xrc.h" #ifdef TERMC_VERSION #include "tc_type.h" #endif /* VERSION */ static bool AssignDo (line) char * line; { char word [50]; char * ptr; int stat; ptr = index (line, '='); if (ptr == (char *) 0) return False; ptr ++; if (! ScanFmt ((ConstVP)& ptr, word, "a-zA-Z")) return False; if (StrEQ (word, "Confirm") || StrEQ (word, "confirm")) stat = DO_CONFIRM; else if (StrEQ (word, "Yes") || StrEQ (word, "yes")) stat = DO_YES; else if (StrEQ (word, "No") || StrEQ (word, "no")) stat = DO_NO; else return False; if (StrEQ (line, "Keep announce")) xrc. keep_announce = stat; else if (StrEQ (line, "Keep send")) xrc. keep_send = stat; else if (StrEQ (line, "Delete mailbox")) xrc. delete_mail = stat; else if (StrEQ (line, "Rescan show")) xrc. rescan_show = stat == DO_YES; else if (StrEQ (line, "Rescan sonar")) xrc. rescan_sonar = stat == DO_YES; else if (StrEQ (line, "Rescan land radar")) xrc. rescan_land_radar = stat == DO_YES; else if (StrEQ (line, "Rescan ship radar")) xrc. rescan_ship_radar = stat == DO_YES; else if (StrEQ (line, "Rescan lookout")) xrc. rescan_lookout = stat == DO_YES; else if (StrEQ (line, "Rescan coastwatch")) xrc. rescan_coastwatch = stat == DO_YES; else if (StrEQ (line, "Rescan satellite")) xrc. rescan_satellite = stat == DO_YES; else if (StrEQ (line, "Include planes not at airfield")) xrc. dist_planes = stat == DO_YES; else if (StrEQ (line, "Compress")) xrc. compress = stat == DO_YES; else if (StrEQ (line, "Silent timeout")) xrc. silent_timeout = stat == DO_YES; else if (StrEQ (line, "Space is next")) xrc. space_is_next = stat == DO_YES; else return False; return True; } static bool AssignString (line) char * line; { char * ptr; char word [50]; int sx, sy; ptr = index (line, '='); if (ptr == (char *) 0) return False; ptr ++; SkipBlank ((ConstVP)& ptr); if (! ScanFmt ((ConstVP)& line, word, "-A-Za-z_")) return False; if (strcmp (word, "Progdir") == 0) xrc. progdir = Str (ptr); else if (strcmp (word, "Font") == 0) xrc. normal_font = Str (ptr); else if (strcmp (word, "Bold") == 0) xrc. bold_font = Str (ptr); else if (strcmp (word, "Player") == 0) xrc. player = Str (ptr); else if (strcmp (word, "Country") == 0) xrc. country = Str (ptr); else if (strcmp (word, "Mapwindow") == 0) xrc. map_win_size = Str (ptr); else if (strcmp (word, "Empirewindow") == 0) xrc. emp_win_size = Str (ptr); else if (strcmp (word, "Port") == 0) xrc. port = Str (ptr); else if (strcmp (word, "Host") == 0) xrc. host = Str (ptr); else if (strcmp (word, "Savelines") == 0) xrc. savelines = Str (ptr); else if (strcmp (word, "Worldsize") == 0) xrc. worldsize = Str (ptr); else if (strcmp (word, "Timeout") == 0) xrc. timeout = atoi (ptr); else if (strcmp (word, "Signature") == 0) xrc. signature = Str (ptr); else if (strcmp (word, "Capab") == 0) xrc. capab = Str (ptr); else if (strcmp (word, "Savefile") == 0) xrc. savefile = Str(ptr); else if (strcmp (word, "Savedir") ==0) xrc. savedir = Str(ptr); else if (strcmp (word, "Move-prefix") == 0) { #ifdef TERMC_VERSION move_prefix = * ptr; #endif /* TERMC_VERSION */ ; } else if (strcmp (word, "Buffer") == 0) { if (strcmp (ptr, "Off") == 0) xrc. buffering = NORMAL_STATE; else if (strcmp (ptr, "On") == 0) xrc. buffering = BUFFER_STATE; else if (strcmp (ptr, "Force") == 0) xrc. buffering = FORCE_BUF_STATE; else (void) fprintf (stderr, "Buffer=[On | Off | Force]\n"); } else if (strcmp (word, "Position") == 0) { if (sscanf (ptr, " %d, %d", & sx, & sy) != 2) (void) fprintf (stderr, "Position=x,y\n"); else { xrc. startup_x = sx; xrc. startup_y = sy; } } else return False; return True; } void ReadRc () { FILE * fp; char * home; char * ptr; char * term; char buffer [BUFSIZ], word [BUFSIZ], key [BUFSIZ]; xrc. keep_announce = DO_CONFIRM; xrc. keep_send = DO_CONFIRM; xrc. delete_mail = DO_CONFIRM; xrc. dist_planes = DO_YES; xrc. compress = DO_YES; xrc. silent_timeout = DO_YES; xrc. rescan_coastwatch = xrc. rescan_lookout = True; xrc. rescan_show = xrc. rescan_land_radar = xrc. rescan_ship_radar = xrc. space_is_next = xrc. rescan_sonar = False; xrc. timeout = 60; xrc. startup_x = 2; xrc. startup_y = 2; xrc. buffering = NORMAL_STATE; xrc. country = xrc. player = xrc. normal_font = xrc. bold_font = xrc. map_win_size = xrc. emp_win_size = xrc. port = xrc. host = xrc. savelines = xrc. worldsize = xrc. savefile = xrc. savedir = xrc. signature = (char *) 0; xrc. progdir = "./"; home = getenv ("HOME"); if (home == (char *) 0) return; fp = fopen (".xemprc", "r"); if (fp == (FILE *) 0) { fp = fopen (Fmt ("%s/.xemprc", home), "r"); if (fp == (FILE *) 0) return; } while (fgets (buffer, BUFSIZ, fp) != (char *) 0) { if (* buffer == '#') continue; if (strlen (buffer) == 1) /* newline */ continue; NoNl (buffer); ptr = buffer; if (strncmp (buffer, "TC ", 3) == 0) #ifdef X_VERSION continue; #else /* TERMC_VERSION */ ptr += 3; #endif /* VERSION */ else if (strncmp (buffer, "X ", 2) == 0) #ifdef X_VERSION ptr += 2; #else /* TERMC_VERSION */ continue; #endif /* VERSION */ if (strncmp (ptr, "Coun (", 6) == 0) { if (cname == (char *) 0) continue; if (strncmp (ptr + 6, cname, strlen (cname)) != 0) continue; if (buffer [strlen (cname) + 6] != ')') continue; ptr = index (buffer, ')') + 2; } if (strncmp (ptr, "Term (", 6) == 0) { term = getenv ("TERM"); if (term == (char *) 0) continue; if (strncmp (ptr + 6, term, strlen (term)) != 0) continue; if (* (ptr + strlen (term) + 6) != ')') continue; ptr = index (buffer, ')') + 2; } if (AssignString (ptr)) continue; if (AssignDo (ptr)) continue; if (! ScanWord ((ConstVP)& ptr, word)) continue; if (strcmp (word, "Bind") == 0) { /* * usage: Bind ^A to center map */ if (! ScanWordQuot ((ConstVP)& ptr, key) || ! ScanWord ((ConstVP)& ptr, word) || strcmp (word, "to") != 0) { fprintf (stderr, "Bad line in .xemprc: %s\n", buffer); fprintf (stderr, "Example: Bind Z to quit\n"); continue; } SkipBlank ((ConstVP)& ptr); ptr = AddBindingKey (key, ptr); if (ptr != (char *) 0) { fprintf (stderr, "Incorrect Bind line in .xemprc: %s\n", ptr); fprintf (stderr, "Line: %s\n", buffer); } } else { fprintf (stderr, "Bad line in .xemprc: %s\n", buffer); continue; } } fclose (fp); } xemp5.1-beta/lib/deity/ 40755 12266 2116 0 6043206335 13223 5ustar jponexorxemp5.1-beta/lib/deity/GNUdepend100644 12266 2116 2577 6015617326 15074 0ustar jponexorSRCS= add.c \ nation.c OBJS= add.o \ nation.o ### add.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/census.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h nation.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/func.h xemp5.1-beta/lib/deity/GNUmakefile100644 12266 2116 1001 6034224565 15367 0ustar jponexor# The following variables are configurable. #-----------------------------------# LOCALCFLAGS := LOCALIFLAGS := LOCALLFLAGS := LOCALSFLAGS := TOPDIR= ../.. LIB := ../libdeity.a LINTNAME := deity #-----------------------------------# # Productions: # depend: create the dependencies # all: make the library # saber: load things for saber # tags: make tags include $(TOPDIR)/make/GenMakefile include $(DEPENDENCIES) include $(TOPDIR)/make/LibMakefile tags: ../tags ln -s ../tags TAGS: ../TAGS ln -s ../TAGS xemp5.1-beta/lib/deity/add.c100444 12266 2116 10756 6023767003 14245 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/deity/RCS/add.c,v 5.1 1993/03/14 16:46:58 etienne Exp $ $Date: 1993/03/14 16:46:58 $ $Author: etienne $ $Id: add.c,v 5.1 1993/03/14 16:46:58 etienne Exp $ $Locker: $ $Log: add.c,v $ Revision 5.1 1993/03/14 16:46:58 etienne *** empty log message *** * Revision 5.0 93/02/06 09:22:41 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:36:22 greyhelm * Added RCS header - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "nation.h" #include "census.h" #include "var.h" #include "ship.h" void NewCap (country) int country; { int button; Sector sct; bool cont, found; int capx, capy; char * ptr, * part; (void) FeedEmpire (Fmt ("newcap %d", country), PRINT); Message ("Select starting sector"); MesBut ("Accept", "Abort", "Next Choice"); cont = True; while (cont) { ptr = ReadEmpire (PRINT); if (EmpireStatus () == E_COMMAND) { Message ("Something went wrong!"); MesClearBut (); Bell (); return; } found = (sscanf (ptr, "Cap at %d,%d", & capx, & capy) == 2); if (found) { sct = World (capx, capy, S_DESIG); MarkSector (sct); Goto (sct); WaitButtonPress (& button); UnmarkSector (sct); switch (button) { case LEFT_BUTTON: (void) FeedEmpire ("yes", PRINT); (void) WaitForPrompt (PRINT); cont = False; break; case MIDDLE_BUTTON: (void) FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); MesClearBut (); Message (Fmt ("WARNING: No capital for %d", country)); Bell (); return; case RIGHT_BUTTON: (void) FeedEmpire ("no", PRINT); break; } } } Message ("Redumping sectors"); part = Fmt ("%d:%d,%d:%d", capx - 2, capx + 2, capy - 2, capy + 2); FScanDump (part, DONT_PRINT); DrawMap (); MesClearBut (); } void DoNewCap (x, y) int x, y; { char * country; country = AskCountry (x, y, "For which country?", False); if (country == (char *) 0) { Message ("Newcap command cancelled"); return; } NewCap (CountryId (country)); } void AddNation (x, y) int x, y; { WinInfo win; int country_nr; char * ans, * ptr; char * feed; RaiseAll (); win = OpenWindow (map_win, x, y - 5, 80, 10, CHARS, MENU, 0); ClearWindow (win); SetDefaultCursor (win, CR_MENU); PrintN (win, 1, 1, "Add Nation"); FeedEmpire ("add", PRINT); ptr = WaitForPrompt (PRINT); if (sscanf (ptr, "New country number? (%d", & country_nr) == 0) { FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); PrintN (win, 1, 3, "No more free countries!"); Bell (); Pause (); DestroyWindow (win); return; } FeedEmpire (Fmt ("%d", country_nr), PRINT); (void) WaitForPrompt (PRINT); PrintN (win, 3, 1, Fmt ("Country number is %d", country_nr)); ans = GetQuest (win, 4, "Country name? ", 16, GS_TEXT); if (ans == (char *) 0 || * ans == '\0') { FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); DestroyWindow (win); return; } FeedEmpire (ans, PRINT); (void) WaitForPrompt (PRINT); AddCountry (country_nr, ans); ans = GetQuest (win, 5, "Password? ", 16, GS_TEXT); if (ans == (char *) 0 || * ans == '\0') { FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); DestroyWindow (win); return; } (void) FeedEmpire (ans, PRINT); (void) WaitForPrompt (PRINT); ans = GetQuest (win, 6, "(V)isitor, (N)ew, (A)ctive, (G)od, (D)elete [N]: ", 1, "vVnNaAgGdD"); if (ans == (char *) 0) { FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); DestroyWindow (win); return; } switch (* ans) { case 'v': case 'V': feed = "visitor"; break; case '\0': case 'n': case 'N': feed = "new"; break; case 'a': case 'A': feed = "active"; break; case 'g': case 'G': feed = "god"; break; case 'd': case 'D': feed = "delete"; break; } (void) FeedEmpire (feed, PRINT); (void) WaitForPrompt (PRINT); ans = GetQuest (win, 7, "(C)heck, (W)ipe or (I)gnore existing sects [I]: ", 1, "cCwWiI"); if (ans == (char *) 0) { FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); DestroyWindow (win); return; } switch (* ans) { case 'c': case 'C': feed = "check"; break; case 'w': case 'W': feed = "wipe"; break; case '\0': case 'i': case 'I': feed = "ignore"; break; } (void) FeedEmpire (feed, PRINT); (void) WaitForPrompt (PRINT); DestroyWindow (win); NewCap (country_nr); Message ("Country added"); } xemp5.1-beta/lib/deity/nation.c100444 12266 2116 14355 6025345041 15000 0ustar jponexor/* $Header: /a/victor/nexor/user4/jpo/xemp/xemp5.0/lib/deity/RCS/nation.c,v 5.4 1995/09/12 17:57:53 jpo Exp $ $Date: 1995/09/12 17:57:53 $ $Author: jpo $ $Id: nation.c,v 5.4 1995/09/12 17:57:53 jpo Exp $ $Locker: $ $Log: nation.c,v $ Revision 5.4 1995/09/12 17:57:53 jpo Handle bad country number Revision 5.3 1995/09/12 07:46:38 jpo Only print happy stuff if set! Revision 5.2 1995/09/08 07:17:02 jpo add some more stuff to nation * Revision 5.1 93/03/14 16:47:00 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:22:41 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:36:22 greyhelm * Added RCS header - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "nation.h" #include "var.h" #include "func.h" static char * fname = "misc/nation.c"; WinInfo nation_win; extern WinInfo root_win; Nation nation; char *natnames [MAX_NATIONS]; char *cname; char *pname; char *user_name; int my_cnum = UNKNOWN_CNUM; int capitol_x = 0, capitol_y = 0; void InitNation () { nation = (Nation) doalloc (sizeof (struct s_nation)); } void AddCountry (nr, name) int nr; char *name; { extern char *Str (); if (nr >= MAX_NATIONS) { fprintf (stderr, "Nation Number to big (> %d)\n", MAX_NATIONS); fprintf (stderr, "Using nation number 99 instead."); /* leave (); */ return; } if (natnames[nr] != (char *) 0) if (strcmp (natnames[nr], name) != 0) /* Somebody changed it's name */ free (natnames[nr]); else return; natnames[nr] = Str (name); } int NatCmp (nat1, nat2) char ** nat1, ** nat2; { printf ("Comparing '%s' met '%s'\n", * nat1, * nat2); if (* nat1 == (char *) 0 && * nat2 == (char *) 0) return 0; if (* nat1 == (char *) 0) return 1; if (* nat2 == (char *) 0) return -1; return strcmp (* nat1, * nat2); } void FindMyCnum () { int i, found; for (i = 0; i < MAX_NATIONS; i ++) natnames [i] = (char *) 0; my_cnum = -1; FScanReport ("*"); for (i = 1; i < MAX_NATIONS; i++) if (natnames[i] != (char *) 0) { FScanRelations (i); found = 0; for (i = 0; i < MAX_NATIONS; i++) if (natnames[i] != (char *) 0) if (strcmp (natnames[i], cname) == 0) { found = 1; my_cnum = i; } if (!found) { /* must be country 0 , assume it anyway */ PrintAtEmpire ("Cannot locate your country number assuming you are country 0"); my_cnum = 0; } /* qsort (natnames, MAX_NATIONS, sizeof (char *), NatCmp); */ return; } FScanNation (); if (my_cnum == -1) { fprintf (stderr, "Can't find other active country\n"); leave (); } } char *CountryName (nr) int nr; { if (nr < 0 || nr > MAX_NATIONS) return ("Unknown"); if (natnames[nr] == (char *) 0) return (Fmt ("Own #%d", nr)); return (natnames[nr]); } bool ExistCountry (nr) int nr; { if (nr < 0) return False; else return (natnames[nr] != (char *) 0); } int CountryId (name) const char *name; { int i, alen, blen; alen = strlen (name); for (i = 0; i < MAX_NATIONS; i++) if (natnames[i] != (char *) 0) { blen = strlen (natnames[i]); if (! strncmp (name, natnames[i], alen < blen ? alen : blen)) return (i); } return (UNKNOWN_CNUM); } void SaveCountries (fp) FILE *fp; { int i; for (i = 0; i < MAX_NATIONS; i++) if (natnames[i] != (char *) 0) fprintf (fp, "%d %s\n", i, natnames[i]); fprintf (fp, "END OF COUNTRY LIST\n"); } void RestoreCountries (fp) FILE *fp; { char buffer [BUFSIZ]; int nr; char *ptr; extern char *cname; int i; for (i = 0; i < MAX_NATIONS; i ++) natnames [i] = (char *) 0; while (fgets (buffer, BUFSIZ, fp) != (char *) 0) { if (strncmp (buffer, "END OF COUNTRY LIST", 19) == 0) return; buffer [strlen (buffer) - 1] = '\0'; /* no newline */ ptr = buffer; if (!ScanDigit ((ConstVP)&ptr, &nr)) { fprintf (stderr, "Bad line in country section of savefile\"%s\"\n", buffer); continue; } AddCountry (nr, ++ptr); if (strcmp (ptr, cname) == 0) my_cnum = nr; } } char *AskCountry (x, y, quest, allow_own) int x, y; const char *quest; bool allow_own; { Strings strings; Pager pager; int nr, i; strings = InitStrings (); for (nr = 0; nr < MAX_NATIONS; nr ++) if ((nr != my_cnum || allow_own) && natnames [nr] != (char *) 0) AddSortStringID (strings, natnames [nr], nr); if (StringsSize (strings) == 0) return (char *) 0; pager = InitPager (strings, quest); MapPagerFromTop (pager, map_win, x, y); i = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (i < 0) return (char *) 0; else return natnames [i]; } void ShowNation () { Strings strings; strings = InitStrings (); AddString (strings, Fmt ("Treasury: %8s Militairy Res: %5d", Fmt ("$%.0f", n_treas (nation)), n_mil_res (nation))); AddString (strings, Fmt ("Education: %7s Happiness: %7s", Fmt ("%.2f", n_educ (nation)), Fmt ("%.2f", n_hap (nation)))); AddString (strings, Fmt ("Technology: %7s Research: %7s", Fmt ("%.2f", n_tech (nation)), Fmt ("%.2f", n_research (nation)))); AddString (strings, Fmt ("Tech. factor: %6s%% Plague factor: %6s%%", Fmt ("%.2f", n_tech_fact (nation)), Fmt ("%.2f", n_plag_fact (nation)))); if (land_units) { extern int safe_civ, safe_uw; extern double happy_req; if (max_civ_uw > 0) AddString (strings, Fmt ("Max population: %d", max_civ_uw)); if (safe_civ > 0 && safe_uw > 0) AddString (strings, Fmt ("Max safe population for civs/uws: %d/%d", safe_civ, safe_uw)); if (happy_req > 0) AddString (strings, Fmt ("Happiness needed is %.2f", happy_req)); } #ifdef X_VERSION InitWMPager (strings, "nation"); #else ShowStringsInPager (strings, "nation"); #endif /* X_VERSION */ } double GiveNatLevel (id) int id; { switch (id) { case NAT_RLEV: return n_research (nation); case NAT_TLEV: return n_tech (nation); case NAT_HLEV: return n_hap (nation); case NAT_ELEV: return n_educ (nation); default: Panic ("GiveNatLevel", fname, Fmt ("Illegal level-id: %d", id)); return 0.0; } } void NationSetRealm (realmnr, realm) int realmnr; char * realm; { (void) strcpy (nation-> realm [realmnr], realm); } xemp5.1-beta/lib/land/ 40755 12266 2116 0 6043206335 13023 5ustar jponexorxemp5.1-beta/lib/land/GNUdepend100644 12266 2116 27360 6015634123 14703 0ustar jponexorSRCS= army.c \ dump.c \ fort.c \ land.c \ landbuild.c \ landlist.c \ landscan.c \ llook.c \ march.c \ mark.c \ mine.c \ missing.c \ mission.c \ retreat.c \ scrap.c \ select.c \ set.c \ supply.c \ work.c OBJS= army.o \ dump.o \ fort.o \ land.o \ landbuild.o \ landlist.o \ landscan.o \ llook.o \ march.o \ mark.o \ mine.o \ missing.o \ mission.o \ retreat.o \ scrap.o \ select.o \ set.o \ supply.o \ work.o ### army.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/census.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h dump.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h fort.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h land.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h landbuild.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h landlist.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/census.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h landscan.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h llook.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h march.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h mark.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h mine.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h mission.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h retreat.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/func.h scrap.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h select.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/func.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h set.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h supply.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h work.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h xemp5.1-beta/lib/land/GNUmakefile100644 12266 2116 1000 6034224606 15162 0ustar jponexor# The following variables are configurable. #-----------------------------------# LOCALCFLAGS := LOCALIFLAGS := LOCALLFLAGS := LOCALSFLAGS := TOPDIR = ../.. LIB := ../libland.a LINTNAME := land #-----------------------------------# # Productions: # depend: create the dependencies # all: make the library # saber: load things for saber # tags: make tags include $(TOPDIR)/make/GenMakefile include $(DEPENDENCIES) include $(TOPDIR)/make/LibMakefile tags: ../tags ln -s ../tags TAGS: ../TAGS ln -s ../TAGS xemp5.1-beta/lib/land/army.c100444 12266 2116 7672 6023767422 14255 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/land/RCS/army.c,v 5.2 1995/09/08 07:18:06 jpo Exp $ $Date: 1995/09/08 07:18:06 $ $Author: jpo $ $Id: army.c,v 5.2 1995/09/08 07:18:06 jpo Exp $ $Locker: $ $Log: army.c,v $ Revision 5.2 1995/09/08 07:18:06 jpo better land cycle * Revision 5.1 93/03/14 16:47:08 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:18:30 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:47:37 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "census.h" #include "var.h" #include "land.h" #include "sector.h" /* * # maximum # of lands thta fits at the census screen */ #define MAX_CEN_LANDS 50 char curarmy = '\0'; char GiveNextArmyInSct (sct, army) Sector sct; char army; { char next; Land land; next = 0177; for (land = s_fland (sct); land != (Land) 0; land = ld_nxtsct (land)) if (ld_army (land) < next && ld_army (land) > army) next = ld_army (land); if (next < 0177) return next; return '\0'; } int ArmyMinMob (army) char army; { Land ptr; int min_mob; min_mob = MAX_LANDMOB; for (ptr = landlist; ptr != (Land) 0; ptr = ptr-> next) if (ptr-> army == army && ptr-> mob < min_mob) min_mob = ptr-> mob; return min_mob; } bool ArmyEmpty (army) char army; { Land ptr; for (ptr = landlist; ptr != (Land) 0; ptr = ptr-> next) if (ptr-> army == army) return False; return True; } bool ArmyColocated (army) char army; { bool found; int x, y; Land ptr; found = False; for (ptr = landlist; ptr != (Land) 0; ptr = ptr-> next) if (ptr-> army == army) if (! found) { x = ptr-> x; y = ptr-> y; found = True; } else { if (x != ptr-> x || y != ptr-> y) return False; } return True; } long LandNrAbils (landnr) int landnr; { Land land; land = NrToLand (landnr); if (land == (Land) 0) return 0L; else return landtypes [land-> type]. flags; } long ArmyAbils (army) char army; { long abils; Land ptr; abils = 0L; for (ptr = landlist; ptr != (Land) 0; ptr = ptr-> next) if (ptr-> army == army) abils |= landtypes [ptr-> type]. flags; return abils; } Sector ArmySector (army) char army; { Land ptr; for (ptr = landlist; ptr != (Land) 0; ptr = ptr-> next) if (ptr-> army == army) return World (ptr-> x, ptr-> y, S_DESIG); return (Sector) 0; } void MoveArmy (army, sct) char army; Sector sct; { Land ptr; for (ptr = landlist; ptr != (Land) 0; ptr = ptr-> next) if (ptr-> army == army) MoveLand (ptr, sct); } char FirstArmyInSct (sct) Sector sct; { if (s_fland (sct) == (Land) 0) return '\0'; else return ld_army (s_fland (sct)); } char * ArmyId () { bool first; static char buffer [1024]; Land ptr; if (! ArmyColocated (curarmy)) { buffer [0] = '\0'; first = True; for (ptr = s_fland (cursct); ptr != (Land) 0; ptr = ld_nxtsct (ptr)) if (ld_army (ptr) == curarmy) { if (first) first = False; else strcat (buffer, "/"); strcat (buffer, Fmt ("%d", ld_nr (ptr))); } return buffer; } else return Fmt ("%c", curarmy); } static void CalcFreeArmys (upper, lower) bool upper [], lower []; { Land ptr; register i; for (i = 0; i < 26; i ++) upper [i] = lower [i] = True; for ALL_LANDS (ptr) if (isupper (ld_army (ptr))) upper [ld_army (ptr) - 'A'] = False; else if (islower (ld_army (ptr))) lower [ld_army (ptr) - 'a'] = False; } void ShowFreeArmys () { char * ptr; bool upper [26], lower [26]; CalcFreeArmys (upper, lower); ptr = MakeFreeString (upper, lower); if (strlen (ptr) == 0) Message ("No free armys"); else Message (Fmt ("Free armys: %s", ptr)); } char FirstFreeArmy () { int i; bool upper [26], lower [26]; for (i = 0; i < 26; i ++) if (lower [i]) return 'a' + i; for (i = 0; i < 26; i ++) if (upper [i]) return 'A' + i; return '\0'; } xemp5.1-beta/lib/land/dump.c100444 12266 2116 2427 6023767422 14243 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/land/RCS/dump.c,v 5.1 1995/09/08 07:21:28 jpo Exp $ $Date: 1995/09/08 07:21:28 $ $Author: jpo $ $Id: dump.c,v 5.1 1995/09/08 07:21:28 jpo Exp $ $Locker: $ $Log: dump.c,v $ Revision 5.1 1995/09/08 07:21:28 jpo base version * Revision 1.1 93/03/14 16:47:59 etienne * Initial revision * */ #include "main.h" #include "version.h" #include "sector.h" #include "land.h" bool BinRestLands (fp) FILE *fp; { Land dummy; Sector sct; int size; fread ((char *)&size, sizeof size, 1, fp); if (size != sizeof(struct l_land)) return False; for (;;) { dummy = (Land) doalloc ((unsigned) sizeof(struct l_land)); fread ((char *)dummy, sizeof (struct l_land), 1, fp); if (ld_nr (dummy) == -1) { free ((char *)dummy); return True; } sct = World (ld_xcd(dummy), ld_ycd (dummy), S_DESIG); AddLandToList (dummy); AddLandToSector (dummy, sct); } } void BinDumpLands (fp) FILE *fp; { struct l_land dummy; Land land; int size; size = sizeof (struct l_land); fwrite ((char *) & size, sizeof (size), 1, fp); for (land = landlist; land != (Land) 0; land = ld_next (land)) (void) fwrite ((char *) land, sizeof (struct l_land), 1, fp); dummy. nr = -1; (void) fwrite ((char *) & dummy, sizeof (struct l_land), 1, fp); } xemp5.1-beta/lib/land/fort.c100444 12266 2116 5305 6023767422 14246 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/land/RCS/fort.c,v 5.2 1995/09/08 07:18:16 jpo Exp $ $Date: 1995/09/08 07:18:16 $ $Author: jpo $ $Id: fort.c,v 5.2 1995/09/08 07:18:16 jpo Exp $ $Locker: $ $Log: fort.c,v $ Revision 5.2 1995/09/08 07:18:16 jpo nothing new * Revision 5.1 93/03/14 16:47:13 etienne * *** empty log message *** * * Revision 5.0 93/02/09 21:33:56 etienne * initial revision * */ #include "type.h" #include "main.h" #include "sector.h" #include "var.h" #include "land.h" static int last_fort = 0; #define DEF_FORT 64 void Fortify (what) char * what; { DoFortify (what, 0); } void RedoFortify () { if (last_layout == LAND_MODE) DoFortify (Fmt ("%d", ld_nr (curland)), last_fort); else if (last_layout == ARMY_MODE) DoFortify (Fmt ("%c", curarmy), last_fort); else { Message ("No current land/army selected"); Bell (); return; } } /* ARGSUSED */ void BindFortify (x, y, str) int x, y; char * str; { int fort; if (str != (char *) 0 && sscanf (str, " ( %d )", & fort) == 1) last_fort = fort; RedoFortify (); } void DoFortify (what, fort) char * what; int fort; { char * ans; register Land ptr; int nr, n; int total; if (s_des (cursct) == '.') { Message ("You can't fortify here!"); Bell (); return; } UnmarkAllLands (); MarkLands (what); nr = 0; for ALL_LANDS (ptr) if (ld_marked (ptr)) { if (! ld_owned (ptr) || ld_mob (ptr) == 0) set_ld_marked (ptr, False); else nr ++; } if (nr == 0) { Message ("No selected units with mobility"); Bell (); return; } if (fort <= 0) { ans = InputAtMessage (Fmt ("How much fortification%s %s:", nr == 1 ? "" : " from each unit", #ifndef lint DEF_FORT < 0 ? "" : #endif Fmt ("[%d]", DEF_FORT)), 3, GS_PNUMBER); if (ans == (char *) 0 || interrupt || (* ans == '\0' && DEF_FORT < 0)) { Message ("fortify cancelled"); Bell (); return; } if (* ans == '\0') fort = DEF_FORT; else fort = atoi (ans); } SetAgain (RedoFortify); last_fort = fort; if (fort == 0) { Message ("fortify cancelled"); Bell (); return; } total = 0; for ALL_LANDS (ptr) if (ld_marked (ptr)) { n = ld_mob (ptr); if (n == 0) continue; if (n > fort) n = fort; total += n; } if (total == 0) { Message ("No fortifycation done"); Bell (); return; } /* inc_mines (cursct, total); */ /* to be replaced with fortification */ if (command_state < FORCE_BUF_STATE) { FeedEmpire (Fmt ("fortify %s %d", what, fort), PRINT); (void) WaitForPrompt (PRINT); } else if (command_state == FORCE_BUF_STATE) FeedCommand (Fmt ("fortify %s %d", what, fort), PRINT); Message (Fmt ("%d fortification done", total)); Census (); } xemp5.1-beta/lib/land/land.c100444 12266 2116 40114 6032247775 14233 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/land/RCS/land.c,v 5.3 1995/09/27 13:22:05 jpo Exp $ $Date: 1995/09/27 13:22:05 $ $Author: jpo $ $Id: land.c,v 5.3 1995/09/27 13:22:05 jpo Exp $ $Locker: $ $Log: land.c,v $ Revision 5.3 1995/09/27 13:22:05 jpo Added xlight and flak to options Revision 5.2 1995/09/08 07:18:31 jpo const * Revision 5.1 93/03/14 16:47:20 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:18:30 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:47:37 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "nation.h" #include "land.h" #include "var.h" #include "version.h" extern void DeleteLand(); LdType landtypes [MAX_LANDTYPES]; LdType nilland = { (char *) 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.0, 0.0, 0, 0, 0, 0, 0, 0, 0, /* 0, 0, 0, 0, 0, 0, (long) ~L_KNOWN, */ 0, 0, 0, 0, 0, 0, (long) 0, { 0, 0, 0 , 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 } }; Land landlist = (Land) 0; int FindLandTypeByName (name, must_exist) const char *name; bool must_exist; { register int i; register char *ptr; register const char *nptr; for (i = 0; landtypes [i]. nam != (char *) 0; i ++) { nptr = name; ptr = landtypes [i]. nam; while (*ptr == *nptr && *ptr != '\0') { ptr ++; nptr ++; } if (*ptr != '\0' && *nptr != '\0') { continue; } /* Longer name */ if (must_exist && *nptr != '\0') { if (ptr - landtypes [i]. nam < 15) continue; free ((char *) landtypes [i]. nam); landtypes [i]. nam = Str (name); } return i; } if (! must_exist) return -1; PrintAtEmpire (Fmt ("Unit \"%s\" not found in 'land-types' list", name)); Bell (); (void) EmpireMore (); landtypes [i] = nilland; landtypes [i]. nam = Str (name); if (isupper (*landtypes [i]. nam)) *landtypes [i]. nam = tolower (*landtypes [i]. nam); return i; } const char *LandName (land) Land land; { return (landtypes [ld_type (land)]. nam); } void SetLandValues (land, land_name) Land land; char *land_name; { int tf; set_ld_type (land, FindLandTypeByName (land_name, True)); if (! ld_owned (land)) { /* No way to tell which values */ set_ld_arad (land, 0); return; } /* tf = (int) TechFact (ld_tech (land), (double) landtypes [ld_type (land)]. spy); set_ld_arad (land, 0.01 * (double) tf * (double) ld_eff (land)); */ } bool LandOnList (land) Land land; { Land ptr; for (ptr = landlist; ptr != (Land) 0; ptr = ld_next (ptr)) if (ptr == land) return True; return False; } Land NrToLand (nr) int nr; { Land ptr; for (ptr = landlist; ptr != (Land) 0; ptr = ld_next (ptr)) if (ld_nr (ptr) == nr) return ptr; return (Land) 0; } void SetSectorLandsNr (sct) Sector sct; { Land ptr; set_land (sct, 0); for (ptr = s_fland (sct); ptr != (Land) 0; ptr = ld_nxtsct (ptr)) inc_land (sct); } void AddLandToSector (land, to) Land land; Sector to; { Land ptr; if (! LandOnList (land)) { fprintf (stderr, "AddLandToSector : unit not on global list ??\n"); leave (); } set_ld_xcd (land, s_xcd (to)); set_ld_ycd (land, s_ycd (to)); for (ptr = s_fland (to); ptr != (Land) 0; ptr = ld_nxtsct (ptr)) { if (ld_nr (ptr) == ld_nr (land)) { if (ptr != land) { /* impossible */ DeleteLand (ptr); /* Restart Chain */ ptr = s_fland (to); } else { SetSectorLandsNr (to); return; } } } set_ld_nxtsct (land, s_fland (to)); s_fland (to) = land; SetSectorLandsNr (to); } void DeleteLandFromSector (land) Land land; { register Land ptr, prv; Sector from; from = World (ld_xcd (land), ld_ycd (land), S_DESIG); prv = (Land) 0; for (ptr = s_fland (from); ptr != (Land) 0; ptr = ld_nxtsct (ptr)) { if (ptr == land) { SetSectorLandsNr (from); s_land (from) --; if (prv == (Land) 0) s_fland (from) = ld_nxtsct (ptr); else set_ld_nxtsct (prv, ld_nxtsct (ptr)); return; } prv = ptr; } fprintf (stderr, "Internal error (DeleteLandFromSector): unit not found at it's pos.\n"); leave (); } void MoveLand (land, to) Land land; Sector to; { Sector old; if (land == (Land) 0) return; DeleteLandFromSector (land); AddLandToSector (land, to); } void DeleteLand (land) Land land; { register Land ptr, prv; if (land == (Land) 0) return; DeleteLandFromSector (land); prv = (Land) 0; for (ptr = landlist; ptr != (Land) 0; ptr = ld_next (ptr)) { if (ptr == land) { if (prv == (Land) 0) landlist = ld_next (landlist); else set_ld_next (prv, ld_next (land)); if (land == curland) curland = ld_nxtsct (curland); free ((char *) land); return; } prv = ptr; } fprintf (stderr, "DeleteLand : unit not on global list ??\n"); leave (); } void AddLandToList (land) Land land; { Land ptr; if (land == (Land) 0) return; if ((ptr = NrToLand (ld_nr (land))) != (Land) 0) { if (ptr == land) /* obviously already there */ return; else { if (ptr == curland) curland = land; DeleteLand (ptr); } } set_ld_next (land, landlist); landlist = land; } char LandCharInSector (sct) Sector sct; { Land land; char let; if ((land = s_fland (sct)) == (Land) 0) return s_des (sct); else { let = * LandName (land); return toupper (let); } } bool LandAtSect (sct, let) Sector sct; char let; { Land land; char slet; for (land = s_fland (sct); land != (Land) 0; land = ld_nxtsct (land)) { slet = * LandName (land); if (toupper (slet) == let) return True; } return False; } bool AddEnemyLand (x, y, nr, owner, ptr, eff, tech) int x, y, nr, owner, eff, tech; char *ptr; { Land new; Sector to; to = World (x, y, S_DESIG); if ((new = NrToLand (nr)) != (Land) 0) { /* It's already on list just move it (Might not have moved) */ if (owner != ld_owner (new)) { PrintAtEmpire (Fmt ( "%s (#%d) changed hands from %s to %s", LandName (new), nr, CountryName (new-> owner), CountryName (owner))); set_ld_owner (new, owner); } if (eff) { set_ld_eff (new, eff); } if (tech) { set_ld_tech (new, tech); } if (ld_xcd (new) == x && ld_ycd (new) == y) return False; set_ld_oldpos (new, ld_xcd (new), ld_ycd (new)); set_ld_time (new, time ((time_t *) 0)); set_ld_marked (new, False); MoveLand (new, to); return True; } new = (Land) doalloc ((unsigned) sizeof (struct l_land)); bzero (new, sizeof (struct l_land)); set_ld_owner (new, owner); set_ld_nr (new, nr); set_ld_army (new, '~'); set_ld_time (new, (time_t) 0); set_ld_marked (new, False); if (eff != -1) { set_ld_eff (new, eff); set_ld_tech (new, tech); set_ld_rad (new, True); /* use rad for spy-mark */ } else set_ld_rad (new, False); SetLandValues (new, ptr); AddLandToList (new); AddLandToSector (new, to); return True; } int GiveLandQuant (land, item) Land land; char item; { if (land == (Land) 0) { fprintf (stderr, "GiveLandQuant : NIL land ??\n"); leave (); } switch (item) { case 'O': return ld_owner (land); case 'F': return (int) ld_army (land); /* Ugly !! */ case 'R': return ld_arad (land); case 'N': return ld_nr (land); case 'x': return ld_xcd(land); case 'y': return ld_ycd (land); case 't': return ld_type (land); } if (! deity && ! ld_owned (land)) return 0; switch (item) { case 'E': return ld_eff (land); case 'T': return ld_tech (land); case 'M': return ld_mob (land); case 'f': return ld_foo (land); case 's': return ld_she (land); case 'g': return ld_gun (land); case 'p': return ld_pet (land); case 'i': return ld_iron (land); case 'd': return ld_dust (land); case 'b': return ld_bar (land); case 'o': return ld_oil (land); case 'l': return ld_lcm (land); case 'h': return ld_hcm (land); case 'r': return ld_rad (land); case 'w': return ld_xpln (land); case 'e': return ld_fuel (land); case 'm': return ld_retr (land); default: return 0; } } int MaxLandCargo (land, itemchar) Land land; char itemchar; { int item; if (land == (Land) 0) { fprintf (stderr, "MaxLandCargo : NIL land ??\n"); leave (); } if(itemchar == 'e') { return (landtypes [ld_type (land)]. fcar); } item = CharToItem (itemchar); return landtypes [ld_type (land)]. car [item]; } char * GiveLandQuantStr (land, id) Land land; char id; { int i; char *ptr; if (land == (Land) 0) { fprintf (stderr, "GiveLandQuantStr : NIL land ??\n"); leave (); } i = GiveLandQuant (land, id); ptr = Fmt ("%-4d", i); switch (id) { case 'E': return Fmt ("%-3d%%", ld_eff (land)); case 'O': case 'N': case 'T': case 'M': return ptr; case 'R': if (ld_arad (land) > 0) return ptr; else return "-- "; case 'F': return Fmt (" %c ", ld_army (land)); case 'P': case 'c': case 'm': case 'u': case 'f': case 's': case 'g': case 'p': case 'i': case 'd': case 'b': case 'o': case 'l': case 'h': case 'r': case 'e': case 'w': case 'z': case 'L': if (i > 0) return ptr; if (MaxLandCargo (land, id) == 0) return "-- "; break; default: return "?? "; } return " "; } void SetLandQuant (land, item, value) Land land; char item; int value; { if (land == (Land) 0) { fprintf (stderr, "SetLandQuant : NIL land ??\n"); leave (); } if (!deity && ! ld_owned (land)) return; switch (item) { case 'R': { set_ld_arad (land, value); break; } case 'm': { set_ld_retr (land, value); break; } case 'f': { set_ld_foo (land, value); break; } case 's': { set_ld_she (land, value); break; } case 'g': { set_ld_gun (land, value); break; } case 'p': { set_ld_pet (land, value); break; } case 'i': { set_ld_iron (land, value); break; } case 'd': { set_ld_dust (land, value); break; } case 'b': { set_ld_bar (land, value); break; } case 'o': { set_ld_oil (land, value); break; } case 'l': { set_ld_lcm (land, value); break; } case 'h': { set_ld_hcm (land, value); break; } case 'r': { set_ld_rad (land, value); break; } case 'F': { set_ld_army (land, value); break; } case 'e': { set_ld_fuel (land, value); break; } case 'w': { set_ld_xpln (land, value); break; } default: if (! deity) return; switch (item) { case 'O': { set_ld_owner (land, value); break; } case 'T': { set_ld_tech (land, value); break; } case 'E': { set_ld_eff (land, value); break; } case 'M': { set_ld_mob (land, value); break; } default: return; } } } bool LandHasRadar (land) Land land; { return (landtypes [ld_type (land)]. rad >= 1); } bool LandHas (land, flags) Land land; long flags; { return BIT_SET (landtypes [ld_type (land)]. flags, flags); } void MoveLandTo (land, sct) Land land; Sector sct; { DeleteLandFromSector (land); AddLandToSector (land,sct); } void DeleteEnemyLands () { Land land, nland; for (land = landlist; land != (Land) 0; land = nland) { nland = ld_next (land); if (ld_owner (land) != my_cnum) DeleteLand (land); } } Land AskLand (x, y, quest, allow_others) int x, y; const char *quest; bool allow_others; { Strings strings; Pager pager; Land land; int select; strings = InitStrings (); for (land = landlist; land != (Land) 0; land = ld_next (land)) { if (! allow_others && ! deity && ld_owner (land) != my_cnum) continue; AddStringID (strings, Fmt ("#%d @%d,%d %-18s%s", ld_nr (land), ld_xcd (land), ld_ycd (land), LandName (land), deity ? Fmt (" owner %s", CountryName (ld_owner (land))) : ""), ld_nr (land)); } if (StringsSize (strings) == 0) { FreeStrings (strings); Message ("No Lands !!"); Bell (); return ((Land) 0); } pager = InitPager (strings, quest); MapPagerFromTop (pager, map_win, x, y); select = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (select < 0) return ((Land) 0); return NrToLand (select); } void ArmyAdd (x, y) int x, y; { char first_free; char * quest; char * ans; char * lands; Land ptr; char fl; first_free = FirstFreeArmy (); if (first_free == '\0') quest = "Add to which army [all used]: "; else quest = Fmt ("Add to which army [%c]: ", first_free); Bell (); ans = InputAtMessage (quest, 1, "a-zA-Z~"); if (ans == (char *) 0 || interrupt) { interrupt = False; Message ("Armyadd cancelled"); return; } if (* ans == '\0' && first_free == '\0') { Message ("You must specify a army !"); Bell (); return; } fl = * ans == '\0' ? first_free : * ans; lands = (char *) SelectLands (x, y, LD_ARMYADD, "Select unit(s) to add"); if (lands == (char *) 0) return; /* * Select lands marks the selected lands */ MarkLands (lands); for ALL_LANDS (ptr) if (ld_marked (ptr)) set_ld_army (ptr, fl); FeedCommand (Fmt ("army %c %s", fl, lands), PRINT); UnmarkAllLands (); } const char * LandCargoNames (cargo) int cargo[]; { int i; static char buffer [100]; buffer [0] = '\0'; for (i = 1; i < V_MAX; i++) if (cargo [i] > 0) strcat (buffer, Fmt (" %d%c", cargo [i], ItemChar (i))); return buffer; } bool PortableLand (land) Land land; { if (LandHas (land, L_LIGHT)) return True; else return False; } const char * LandCapNames (flags) long flags; { static char buffer [100]; buffer [0] = '\0'; if (BIT_SET (flags, L_SUPPLY)) strcat (buffer, " supply"); if (BIT_SET (flags, L_LIGHT)) strcat (buffer, " light"); if (BIT_SET (flags, L_RECON)) strcat (buffer, " recon"); if (BIT_SET (flags, L_RADAR)) strcat (buffer, " radar"); if (BIT_SET (flags, L_ASSAULT)) strcat (buffer, " assault"); if (BIT_SET (flags, L_SECURITY)) strcat (buffer, " security"); if (BIT_SET (flags, L_ENGINEER)) strcat (buffer, " engineer"); if (BIT_SET (flags, L_MARINE)) strcat (buffer, " marine"); if (BIT_SET (flags, L_XLIGHT)) strcat (buffer, " xlight"); if (BIT_SET (flags, L_FLAK)) strcat (buffer, " flak"); if (!BIT_SET (flags, L_KNOWN)) strcat (buffer, " unknown"); return buffer; } void ShowLandCBStrings (strings) Strings strings; { int i; int maint; AddString (strings, Fmt ("%s %s", "Name lcm hcm mil guns shells cost maint tech att", "def vul spd vis spy rad frg acc dam amm aaf fus fca xpl ava flags")); AddString (strings, ""); for (i = 0; landtypes [i]. nam != (char *) 0; i ++) { maint = (int) (etu_per_update * - dmin (0.0, landtypes [i]. cos * money_land)); AddString (strings, Fmt ( "%-16.16s %-3d %-3d %-3d %-3d %-3d %-6s %-4s %-4d %-3s %-3s %-3d %-3d %-3d %-3d %-3d %-3d %-3d %-3d %-3d %-3d %-3d %-3d %-3d %-3d %s %s", landtypes [i]. nam, landtypes [i]. lcm, landtypes [i]. hcm, landtypes [i]. mil, landtypes [i]. guns, landtypes [i]. shells, Fmt ("$%d", landtypes [i]. cos), Fmt ("$%d", maint), landtypes [i]. tec, Fmt ("%.1f", landtypes [i]. att), Fmt ("%.1f", landtypes [i]. def), landtypes [i]. vul, landtypes [i]. spd, landtypes [i]. vis, landtypes [i]. spy, landtypes [i]. rad, landtypes [i]. frg, landtypes [i]. acc, landtypes [i]. dam, landtypes [i]. amm, landtypes [i]. aaf, landtypes [i]. fuse, landtypes [i]. fcar, landtypes [i]. xpl, landtypes [i]. ava, LandCargoNames (landtypes [i]. car), LandCapNames (landtypes [i]. flags))); } } void PageShowLandCSBs () { Strings strings; strings = InitStrings (); ShowLandCBStrings (strings); if (StringsSize (strings) == 2) { Message ("You don't know about units yet"); Bell (); FreeStrings (strings); return; } #ifdef TERMC_VERSION ShowStringsInPager (strings, "show land c&b&s"); #else /* TERMC_VERSION */ InitWMPager (strings, "show land c&b&s"); #endif /* TERMC_VERSION */ } double LandFireRange (land) Land land; { return (landtypes [ld_type (land)].frg); } int LandMaxGuns (land) Land land; { return landtypes [ld_type (land)]. acc; } Sector LandSector (land) Land land; { return World (ld_xcd (land), ld_ycd (land), S_EXIST); } bool SectorHasOwnedLands (sct, n) Sector sct; int n; { int i; Land ptr; i = 0; for (ptr = s_fland (sct); ptr != (Land) 0; ptr = ld_nxtsct (ptr)) if (ld_owned (ptr)) if (++ i == n) return True; return False; } bool LandAtWith (sct, flag) Sector sct; long flag; { register Land ptr; for (ptr = s_fland (sct); ptr != (Land) 0; ptr = ld_nxtsct (ptr)) if (LandHas (ptr, flag)) return True; return False; } xemp5.1-beta/lib/land/landbuild.c100444 12266 2116 13534 6023767423 15256 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/land/RCS/landbuild.c,v 5.2 1995/09/08 07:18:48 jpo Exp $ $Date: 1995/09/08 07:18:48 $ $Author: jpo $ $Id: landbuild.c,v 5.2 1995/09/08 07:18:48 jpo Exp $ $Locker: $ $Log: landbuild.c,v $ Revision 5.2 1995/09/08 07:18:48 jpo prototypes * Revision 5.1 93/03/14 16:47:22 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:42 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:43:25 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "var.h" #include "land.h" #include "nation.h" static int last_landid, last_techn; void DoBuildLand (x, y, landid, techn) int x, y; int landid, techn; { Strings strings; Pager pager; char * ptri, * err; char * line, * answer; int newlandnr; int maint; if (! s_owned (cursct) || s_des (cursct) != '!' || s_eff (cursct) < 60) { Message ("You can only build units in +60% headquarters !"); Bell (); return; } if (s_ava (cursct) < 1) { Message ("No available workers !"); Bell (); return; } if (landid < 0) { strings = InitStrings (); for (landid = 0; landtypes [landid]. nam != (char *) 0; landid ++) if (landtypes [landid]. tec <= (int) n_tech (nation)) { /* Cost to maintain this land */ /* Of course no multiplier */ maint = (int) (etu_per_update * - dmin (-1.0, landtypes [landid]. cos * money_land)); AddStringID (strings, Fmt ( "%-17.17s %3d tech %2d lcm %2d hcm %3d mil %2d gun %2d shell %3d ava $%-4d ($%d)", landtypes [landid]. nam, landtypes [landid]. tec, landtypes [landid]. lcm, landtypes [landid]. hcm, landtypes [landid]. mil, landtypes [landid]. guns, landtypes [landid]. shells, landtypes [landid]. ava, landtypes [landid]. cos, maint), landid); } if (StringsSize (strings) == 0) { Message ("You can't build any units"); Bell (); return; } pager = InitPager (strings, "Build which unit ?"); MapPagerFromTop (pager, map_win, x, y); landid = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (landid < 0 || interrupt) { interrupt = False; ClearMes (); return; } } err = (char *) 0; if (landtypes [landid]. ava > s_ava (cursct)) err = Fmt ("not enough available workers (need %d)", landtypes [landid]. ava); if (landtypes [landid]. lcm > (q_lcm (cursct)*10)) err = Fmt ("not enough light constr. materials (need %d)", landtypes [landid]. lcm);; if (landtypes [landid]. hcm > (q_hcm (cursct)*10)) err = Fmt ("not enough heavy constr. materials (need %d)", landtypes [landid]. hcm); if (landtypes [landid]. mil > (s_mil (cursct)*10)) err = Fmt ("not enough military (need %d)", landtypes [landid]. mil); if (landtypes [landid]. guns > (q_gun (cursct)*10)) err = Fmt ("not enough guns (need %d)", landtypes [landid]. guns); if (landtypes [landid]. shells > (q_she (cursct)*10)) err = Fmt ("not enough shells (need %d)", landtypes [landid]. shells); if (landtypes [landid]. cos / 10 > (n_treas (nation)*5)) err = Fmt ("not enough money (need $%d)", (int) landtypes [landid]. cos / 10); if (err != (char *) 0) { Message (err); Bell (); return; } FeedEmpire (Fmt ("build land %s", CrdStr (cursct)), PRINT); (void) WaitForPrompt (PRINT); if (EmpireStatus () != E_QUESTION) { Message ("Build failed"); Bell (); return; } FeedEmpire (Fmt ("%s", landtypes [landid]. nam), PRINT); for (;;) { line = ReadEmpire (PRINT); if (EmpireStatus () == E_QUESTION) { PrintAtEmpire (line); Bell (); if (strncmp (line, "Build at what tech", 18) == 0) { if (techn < 0) { Bell (); answer = InputAtMessage (line, 5, GS_PNUMBER); if (answer == (char *) 0 || interrupt) { while (EmpireStatus () != E_COMMAND) { FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); } Message ("Build land aborted"); return; } if (* answer == '\0' || atoi (answer) > (int) n_tech (nation)) answer = Fmt ("%d", (int) n_tech (nation)); techn = atoi (answer); } else answer = Fmt ("%d", techn); } else answer = InputAtMessage (line, 10, GS_NAME); if (interrupt || answer == (char *) 0) { interrupt = False; Message ("Build cancelled"); FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); return; } FeedEmpire (answer, PRINT); continue; } if (EmpireStatus () == E_COMMAND) { PrintAtEmpire (line); Message ("Build failed"); Bell (); return; } ptri = index (line, '#'); if (ptri != (char *) 0) { ptri++; if (!ScanDigit ((ConstVP)&ptri, &newlandnr)) /* No digit ignore it */ continue; SkipBlank ((ConstVP)&ptri); if (strncmp (ptri, "built in sector", 15) != 0) /* No build ignore it */ continue; break; } } /* Get new land, just scan it */ (void) WaitForPrompt (PRINT); last_techn = techn; last_landid = landid; SetAgain (RedoBuildLand); if (FScanLand (Fmt ("%d", newlandnr), DONT_PRINT) == 0) { Bell (); PrintAtEmpire ("Can't find your new landunit !!"); (void) WaitForPrompt (DONT_PRINT); return; } (void) WaitForPrompt (DONT_PRINT); curland = NrToLand (newlandnr); Message (Fmt ("A new %s is built (at tech %d)", landtypes [landid]. nam, ld_tech (curland))); /* Adjust materials & available workers */ RedumpSector (cursct, DONT_PRINT); CensusLand (curland); if ((landtypes [landid]. cos / 10) <= 100) n_treas (nation) -= (double) (landtypes [landid]. cos / 10); } void BuildLand (x, y) int x, y; { DoBuildLand (x, y, -1, -1); } void RedoBuildLand () { DoBuildLand (s_ycd(cursct), s_xcd(cursct), last_landid, last_techn); } xemp5.1-beta/lib/land/landlist.c100444 12266 2116 11716 6023767423 15132 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/land/RCS/landlist.c,v 5.2 1995/09/08 07:19:02 jpo Exp $ $Date: 1995/09/08 07:19:02 $ $Author: jpo $ $Id: landlist.c,v 5.2 1995/09/08 07:19:02 jpo Exp $ $Locker: $ $Log: landlist.c,v $ Revision 5.2 1995/09/08 07:19:02 jpo const * Revision 5.1 93/03/14 16:47:27 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:18:30 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:47:37 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "census.h" #include "nation.h" #include "var.h" #include "land.h" #include "sector.h" #define SORT_NR 0 #define SORT_SECTOR 1 #define SORT_TYPE 2 #define SORT_ARMY 3 #define SORT_OWNER 4 #define SORT_MAX_O 4 #define SORT_MAX_E 5 #define OWN 0 #define ENEMY 1 static const char * list_lands_how [] = { "sort by number", "sort by sector", "sort by army-type", "sort by army", "sort by owner", (char *) 0 }; static char *army_chars = "~abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"; static int AddLandToStrings (strings, land, enemy) Strings strings; Land land; { if ((ld_owned(land)) && (enemy == OWN)) { AddString (strings, Fmt ( "%4d %-14.14s %4d,%-4d %c %3d%% %3d %3d %3d %3d %3d%% %3d %3d %3d", ld_nr (land), LandName (land), ld_xcd (land), ld_ycd (land), ld_army (land), ld_eff (land), ld_mob (land), ld_fort (land), ld_foo (land), ld_fuel (land), ld_retr (land), ld_xpln (land), ld_arad (land), ld_tech (land))); return 1; } else if ( !(ld_owned(land)) && (enemy == ENEMY)) { AddString (strings, Fmt ( "%4d %-14.14s %-14.14s %4d,%-4d %s %s", ld_nr (land), LandName (land), (CountryName(ld_owner (land))), ld_xcd (land), ld_ycd (land), ld_eff (land) ? Fmt ("%3d%% ", ld_eff (land) -1 ) : " ?? ", ld_tech (land) ? Fmt ("%3d", ld_tech (land) -1 ) : " ??")); return 1; } else return 0; } void ListLand (x, y, enemy) int x, y, enemy; { Strings strings; Pager pager; int i, j; int total; Sector sct; Land ptr; char * ch; bool empty_line; strings = InitStrings (); AddStringsID (strings, list_lands_how, enemy == OWN ? SORT_MAX_O : SORT_MAX_E, 0); pager = InitPager (strings, "Listing of Units"); MapPagerFromTop (pager, map_win, x, y); i = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (i < 0) { Message ("No listing"); return; } strings = InitStrings (); Message ("generating list"); if (enemy == OWN) AddString (strings, " # type x,y a eff mob fort food fuel retr xpln radr tech"); else AddString (strings, " # type Owner x,y eff tech "); total = 0; switch (i) { case SORT_NR: for ALL_LANDS (ptr) { if (AddLandToStrings (strings, ptr, enemy)) { empty_line = True; total ++; } } break; case SORT_SECTOR: for (x = - MAX_X / 2; x <= MAX_X / 2; x ++) for (y = - MAX_Y / 2; y <= MAX_Y / 2; y++) { sct = World (x, y, S_EXIST); if (sct == (Sector) 0) continue; empty_line = False; for (ptr = s_fland (sct); ptr != (Land) 0; ptr = ld_nxtsct (ptr)) { if (AddLandToStrings (strings, ptr, enemy)) { empty_line = True; total ++; } } if (empty_line) AddString (strings, ""); } break; case SORT_TYPE: for (j = 0; landtypes [j]. nam != (char *) 0; j ++) { empty_line = False; for ALL_LANDS (ptr) { if (ld_type (ptr) == j) { if (AddLandToStrings (strings, ptr, enemy)) { empty_line = True; total ++; } } } if (empty_line) AddString (strings, ""); } break; case SORT_ARMY: for (ch = army_chars; * ch != '\0'; ch ++) { empty_line = False; for ALL_LANDS (ptr) { if (ld_army (ptr) == * ch) { if (AddLandToStrings (strings, ptr, enemy)) { empty_line = True; total ++; } } } if (empty_line) AddString (strings, ""); } break; case SORT_OWNER: for (j = 0; j < MAX_NATIONS ; j ++) { empty_line = False; for ALL_LANDS (ptr) { if (ld_owner (ptr) == j) { if (AddLandToStrings (strings, ptr, enemy)) { empty_line = True; total ++; } } } if (empty_line) AddString (strings, ""); } break; } if (total == 0) { Message ("No info on units !"); FreeStrings (strings); Bell (); return; } AddString (strings, Fmt ("%d units", total)); #ifdef X_VERSION InitWMPager (strings, "List of all units"); #else /* TERMC_VERSION */ ShowStringsInPager (strings, "List of all units"); #endif /* VERSION */ } xemp5.1-beta/lib/land/landscan.c100444 12266 2116 44042 6032250020 15055 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/land/RCS/landscan.c,v 5.4 1995/09/27 13:22:24 jpo Exp $ $Date: 1995/09/27 13:22:24 $ $Author: jpo $ $Id: landscan.c,v 5.4 1995/09/27 13:22:24 jpo Exp $ $Locker: $ $Log: landscan.c,v $ Revision 5.4 1995/09/27 13:22:24 jpo Added flak units Revision 5.3 1995/09/21 06:23:28 jpo Patrick Kenney - change scan position Revision 5.2 1995/09/08 07:19:06 jpo const stuff * Revision 5.1 93/03/14 16:47:29 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:18:30 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:47:37 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "nation.h" #include "var.h" #include "land.h" #include "version.h" void FScanShowLandBuild () { char *line; char *bptr, buffer [BUFSIZ]; int nrt = 0; int i; LdType tmp; FeedEmpire ("show land build", PRINT); (void) SkipNLines (1, DONT_PRINT); MessageAtEmpire ("scanning land build data"); for (;;) { line = ReadEmpire (DONT_PRINT); if (StrStr("lcm hcm mil", line)) continue; /* last line ? */ if (EmpireStatus () != E_PRINTING) { PrintAtEmpire (""); PrintAtEmpire (line); landtypes [nrt]. nam = (char *) 0; return; } strncpy (buffer, line, 24); buffer [24] = '\0'; bptr = buffer + 23; while (*bptr == ' ') bptr --; * ++bptr = '\0'; if (landtypes [nrt]. nam != (char *) 0) free (landtypes [nrt]. nam); landtypes [nrt]. nam = Str (buffer); if (sscanf (line + 25, " %d %d %d %d %d %d %d $%d", & (landtypes [nrt]. lcm), & (landtypes [nrt]. hcm), & (landtypes [nrt]. mil), & (landtypes [nrt]. guns), & (landtypes [nrt]. shells), & (landtypes [nrt]. ava), & (landtypes [nrt]. tec), & (landtypes [nrt]. cos)) != 8) { PrintAtEmpire(Fmt("Scanning land failed \"%s\"", line)); Bell (); (void) EmpireMore (); nrt --; } nrt ++; } } void FScanShowLandStats () { char *line, *ptri; char *bptr, buffer [BUFSIZ]; char word [BUFSIZ]; int nr = 0; int quant; char itemchar; int item; int i; LdType tmp; FeedEmpire ("show land stats", PRINT); (void) SkipNLines (3, DONT_PRINT); MessageAtEmpire ("scanning land stats"); for (;;) { line = ReadEmpire (DONT_PRINT); if (StrStr("def", line)) continue; /* last line ? */ if (EmpireStatus () != E_PRINTING) { PrintAtEmpire (""); PrintAtEmpire (line); return; } if (sscanf (line + 24, " %f %f %d %d %d %d %d %d %d %d %d %d %d %d %d", & (landtypes [nr]. att), & (landtypes [nr]. def), & (landtypes [nr]. vul), & (landtypes [nr]. spd), & (landtypes [nr]. vis), & (landtypes [nr]. spy), & (landtypes [nr]. rad), & (landtypes [nr]. frg), & (landtypes [nr]. acc), & (landtypes [nr]. dam), & (landtypes [nr]. amm), & (landtypes [nr]. aaf), & (landtypes [nr]. fcar), & (landtypes [nr]. fuse), & (landtypes [nr]. xpl)) != 15) { PrintAtEmpire (Fmt ("Scanning land failed \"%s\"", line)); Bell (); (void) EmpireMore (); } /* Clear max cargoes */ for (item = 0; item < V_MAX; item++) landtypes [nr]. car [item] = 0; landtypes [nr]. flags = 0L; /* Scan max cargoes */ nr++; } } void FScanShowLandCap() { char *line, *ptri; char *bptr, buffer [BUFSIZ]; char word [BUFSIZ]; int nr = 0; int quant; char itemchar; int item; int i; LdType tmp; FeedEmpire ("show land cap", PRINT); MessageAtEmpire ("scanning land capabilities"); (void) SkipNLines (1, DONT_PRINT); for (;;) { line = ReadEmpire (DONT_PRINT); /* last line ? */ if (EmpireStatus () != E_PRINTING) { PrintAtEmpire (""); PrintAtEmpire (line); return; } ptri = line + 25; for (;;) { if (! ScanWord ((ConstVP)&ptri, word)) break; if (sscanf (word, "%d%c", &quant, &itemchar) == 2) { item = CharToItem (itemchar); landtypes [nr]. car [item] = quant; } else if (strcmp (word, "supply") == 0) landtypes [nr]. flags |= L_SUPPLY; else if (strcmp (word, "light") == 0) landtypes [nr]. flags |= L_LIGHT; else if (strcmp (word, "assault") == 0) landtypes [nr]. flags |= L_ASSAULT; else if (strcmp (word, "recon") == 0) landtypes [nr]. flags |= L_RECON; else if (strcmp (word, "security") == 0) landtypes [nr]. flags |= L_SECURITY; else if (strcmp (word, "engineer") == 0) landtypes [nr]. flags |= L_ENGINEER; else if (strcmp (word, "radar") == 0) landtypes [nr]. flags |= L_RADAR; else if (strcmp (word, "marine") == 0) landtypes [nr]. flags |= L_MARINE; else if (strcmp (word, "xlight") == 0) landtypes [nr]. flags |= L_XLIGHT; else if (strcmp (word, "flak") == 0) landtypes [nr]. flags |= L_FLAK; else { PrintAtEmpire (Fmt ( "Strange format in cargo \"%s\"", word)); Bell (); } } landtypes [nr]. flags |= L_KNOWN; /* sort the list by tech */ for( i=nr; i > 0; i-- ) { if (landtypes[i].tec < landtypes[i-1].tec) { bcopy(&landtypes[i-1], &tmp, sizeof(LdType)); bcopy(&landtypes[i], &landtypes[i-1], sizeof(LdType)); bcopy(&tmp, &landtypes[i], sizeof(LdType)); } } nr++; } } void RestoreShowLand (fp) FILE *fp; { int nr; register int j; char buffer [BUFSIZ]; char name [BUFSIZ]; register char *ptri; nr = 0; while (fgets (buffer, BUFSIZ, fp) != (char *) 0) { if (strncmp (buffer, "END OF SHOW LAND LIST", 21) == 0) { landtypes [nr]. nam = (char *) 0; break; } buffer [strlen (buffer) - 1] = '\0'; /* no newline */ if (sscanf (buffer,"%s %d %d %d %d %d %d %d %d %f %f %d %d %d %d %d %d %d %d %d %d %d %d %d %ld", name, & (landtypes [nr]. lcm), & (landtypes [nr]. hcm), & (landtypes [nr]. mil), & (landtypes [nr]. guns), & (landtypes [nr]. shells), & (landtypes [nr]. ava), & (landtypes [nr]. tec), & (landtypes [nr]. cos), & (landtypes [nr]. att), & (landtypes [nr]. def), & (landtypes [nr]. vul), & (landtypes [nr]. spd), & (landtypes [nr]. vis), & (landtypes [nr]. spy), & (landtypes [nr]. rad), & (landtypes [nr]. frg), & (landtypes [nr]. acc), & (landtypes [nr]. dam), & (landtypes [nr]. amm), & (landtypes [nr]. aaf), & (landtypes [nr]. fuse), & (landtypes [nr]. fcar), & (landtypes [nr]. xpl), & (landtypes [nr]. flags)) != 25) { PrintAtEmpire ("Bad Land info in datafile"); Bell (); continue; } for (ptri = name; *ptri != '\0'; ptri ++) if (*ptri == '_') *ptri = ' '; landtypes [nr]. nam = Str (name); for (j = 1; j < V_MAX; j++) fscanf (fp, " %d ", & (landtypes [nr]. car [j])); fscanf (fp, "\n"); nr ++; } } void SaveShowLand (fp) FILE *fp; { register int i, j; register char *ptri, *name;; for (i = 0; landtypes [i]. nam != (char *) 0; i ++) { name = Str (landtypes [i]. nam); for (ptri = name; *ptri != '\0'; ptri ++) if (*ptri == ' ') *ptri = '_'; fprintf (fp, "%s %d %d %d %d %d %d %d %d %f %f %d %d %d %d %d %d %d %d %d %d %d %d %d %ld\n", name, landtypes [i]. lcm, landtypes [i]. hcm, landtypes [i]. mil, landtypes [i]. guns, landtypes [i]. shells, landtypes [i]. ava, landtypes [i]. tec, landtypes [i]. cos, landtypes [i]. att, landtypes [i]. def, landtypes [i]. vul, landtypes [i]. spd, landtypes [i]. vis, landtypes [i]. spy, landtypes [i]. rad, landtypes [i]. frg, landtypes [i]. acc, landtypes [i]. dam, landtypes [i]. amm, landtypes [i]. aaf, landtypes [i]. fuse, landtypes [i]. fcar, landtypes [i]. xpl, landtypes [i]. flags); for (j = 1; j < V_MAX; j++) fprintf (fp, "%d ", landtypes [i]. car [j]); fprintf (fp, "\n"); free (name); } fprintf (fp, "END OF SHOW LAND LIST\n"); } int DumpLand (list, flag) const char *list; int flag; { int nr; nr = FScanLand (list, flag); if (nr > 0) { FScanLandCargo (list, flag); FScanLandMission (list, flag); FScanLandRetreat (list, flag); } return (nr); } int FScanLand (list, flag) const char *list; int flag; { bool nr; FeedEmpire (Fmt ("lands %s", list), flag); nr = ScanLands (flag); (void) WaitForPrompt (flag); return nr; } int ScanLands (flag) int flag; { char *line, *ptri; int sx, sy, nr, owner, i, nr_of_lands; int eff, food, mob, tech, xpln, fuel, shipnr, fort, retr, arad; Land new, last_land; Sector to; bool rescan; char landname[100]; double mobcost; int lands; if (EmpireStatus () != E_PRINTING) return 0; if (flag == PRINT) PrintAtEmpire ("Empiretool: scanning lands"); (void) SkipNLines (1, DONT_PRINT); nr_of_lands = 0; last_land = (Land) 0; for (;;) { line = ReadEmpire (DONT_PRINT); if (EmpireStatus () != E_PRINTING) { PrintAtEmpire (line); return (nr_of_lands); } if (strlen (line) < 45) { if (sscanf (line, "%d unit", & lands) == 1) { if (lands != nr_of_lands) { PrintAtEmpire ("Bad Unit Count!!"); return (nr_of_lands); } else { return (nr_of_lands); } } else return 0; } if (deity) { owner = atoi (line); line += 4; } else { owner = my_cnum; } /* read land# */ nr = atoi (line); if ((new = NrToLand (nr)) == (Land) 0) { new = (Land) doalloc ((unsigned) sizeof (struct l_land)); bzero (new, sizeof (struct l_land)); set_ld_nr (new, nr); rescan = False; } else { rescan = True; } set_ld_marked (new, False); set_ld_owner (new, owner); /* read landname */ for (i = 5; i <= 24; i++) landname [i - 5] = *(line + i); i -= 5; while (landname [-- i] == ' '); landname [i + 1] = '\0'; /* read position */ if (sscanf (line + 25, "%d,%d", & sx, &sy) != 2) { if (! rescan) free ((char *) new); PrintAtEmpire (Fmt ("Bad unit %s", line)); continue; } set_ld_army (new, *(line + 33)); if (ld_army (new) == ' ') set_ld_army (new, '~'); ptri = line + 34; (void) ScanDigit ((ConstVP)&ptri, &eff); ptri++; /* Get past % sign */ (void) ScanDigit ((ConstVP)&ptri, &fort); (void) ScanDigit ((ConstVP)&ptri, &mob); (void) ScanDigit ((ConstVP)&ptri, &food); (void) ScanDigit ((ConstVP)&ptri, &fuel); (void) ScanDigit ((ConstVP)&ptri, &tech); (void) ScanDigit ((ConstVP)&ptri, &retr); ptri++; /* Get past % sign */ (void) ScanDigit ((ConstVP)&ptri, &arad); (void) ScanDigit ((ConstVP)&ptri, &xpln); if (!ScanDigit ((ConstVP)&ptri, &shipnr)) { set_ld_shipnr (new, -1); } else { set_ld_shipnr (new, shipnr); } set_ld_eff (new, eff); set_ld_foo (new, food); set_ld_fort (new, fort); set_ld_retr (new, retr); set_ld_arad (new, arad); set_ld_xpln (new, xpln); set_ld_fuel (new, fuel); set_ld_mob (new, mob); set_ld_tech (new, tech); /* mobcost = ld_eff (new) * 0.01 * landtypes [ld_type (new)]. spd; mobcost = 480.0 / (mobcost + TechFact (ld_tech (new), mobcost)); set_ld_moves (new, mob / mobcost + 0.99); */ SetLandValues (new, landname); if (rescan) { MoveLand (new, World (sx, sy, S_DESIG)); } else { to = World (sx, sy, S_DESIG); UpdateSectorDes (to, s_des( to) , False); AddLandToList (new); AddLandToSector (new, World (sx, sy, S_DESIG)); } last_land = new; nr_of_lands++; } } void FScanLandCargo (list, flag) const char *list; int flag; { FeedEmpire (Fmt ("lcargo %s", list), flag); ScanLandCargo (flag); (void) WaitForPrompt (flag); } void ScanLandCargo (flag) int flag; { char *line, *ptri, *tmp, *s, savechar; int nr; Land land; extern WinInfo empire_win; if (EmpireStatus () != E_PRINTING) return; if (flag == PRINT) PrintAtEmpire ("Empiretool: scanning cargo"); (void) SkipNLines (1, DONT_PRINT); for (;;) { line = ptri = ReadEmpire (DONT_PRINT); if (EmpireStatus () != E_PRINTING) { if (flag == PRINT) PrintAtEmpire (line); return; } if (strlen (line) < 70) { if (sscanf (line, "%d unit", & nr) == 1) return; else continue; } if (!ScanDigit ((ConstVP)&ptri, &nr) || (land = NrToLand (nr)) == (Land) 0) { PrintAtEmpire ( Fmt ("#%d Unknown unit ? (rescan unit !)", nr)); PrintAtEmpire (Fmt ("Skipping line \"%s\"", line)); if (! deity) { Bell (); (void) EmpireMore (); } else PrintAtEmpire ("Unit Destroyed :-)"); continue; } SkipBlank ((ConstVP)&ptri); ptri = index (ptri, '%'); if (ptri != (char *) 0) { ptri++; for (s = "sgpidbolhr"; *s; s++) { SkipBlank ((ConstVP)&ptri); tmp = ptri; if (!ScanDigit ((ConstVP)&tmp, &nr)) break; if (tmp - ptri > 4) { savechar = *(tmp - 4); * (tmp - 4) = '\0'; (void) ScanDigit ((ConstVP)&ptri, &nr); * (tmp - 4) = savechar; } else (void) ScanDigit ((ConstVP)&ptri, &nr); SetLandQuant (land, *s, nr); } } if (ptri == (char *) 0 || *s != '\0') { PrintAtEmpire ("Bad cargo format"); PrintAtEmpire (Fmt ("Skipping line \"%s\"", line)); Bell (); (void) EmpireMore (); continue; } } } void FeedRadarLands () { char buffer [BUFSIZ]; register char *bptr; register Land sptr; register int num; bptr = buffer; num = 0; for (sptr = landlist; sptr != (Land) 0; sptr = ld_next (sptr)) { if (!deity && ! ld_owned (sptr)) continue; if (GiveLandQuant (sptr, 'R') <= 1) continue; sprintf (bptr, "%d", sptr-> nr); while (*bptr) bptr++; * bptr++ = '/'; num ++; } if (!num) return; *--bptr = '\0'; FScanRadar (buffer); } void FScanLandReso () { Sector sct; int oil, fert, x, y; char *ptr; oil = fert = -1; FeedEmpire ("v", PRINT); for (;;) { ptr = ReadEmpire (PRINT); if (EmpireStatus () != E_PRINTING) { PrintAtEmpire (ptr); return; } SkipBlank ((ConstVP)&ptr); if (strncmp (ptr, "[fert:", 6) == 0) { fert = atoi (ptr + 6); ptr = strchr (ptr, ']'); ptr ++; SkipBlank ((ConstVP)&ptr); } if (strncmp (ptr, "[oil:", 5) == 0) { oil = atoi (ptr + 5); ptr = strchr (ptr, ']'); ptr ++; SkipBlank ((ConstVP)&ptr); } if ((ptr = strchr (ptr, '@')) != (char *) 0) if (sscanf (++ptr, " %d, %d", &x, &y) == 2) { sct = World (x, y, S_DESIG); if (fert != -1) { set_fer (sct, fert); SET_INFO_FER (sct); } if (oil != -1) { set_oil (sct, oil); SET_INFO_OIL (sct); } } } } void CheckMarkedLands () { Land sptr; for (sptr = landlist; sptr != (Land) 0; sptr = ld_next (sptr)) { if (!deity && ! ld_owned (sptr)) continue; if (ld_marked (sptr)) { Error (Fmt ("Your %s @ %d,%d has sunk/lost !", LandName (sptr), ld_xcd (sptr), ld_ycd (sptr))); DeleteLand (sptr); } } } void SearchMarkedLands (flag) int flag; { char buffer [BUFSIZ]; register char *bptr; register Land sptr; register int num; bptr = buffer; num = 0; for (sptr = landlist; sptr != (Land) 0; sptr = ld_next (sptr)) { if (! ld_owned (sptr) || ! ld_marked (sptr)) continue; sprintf (bptr, "%d", sptr-> nr); while (*bptr) bptr++; * bptr++ = '/'; num ++; } if (!num) return; *--bptr = '\0'; DumpLand (buffer, flag); CheckMarkedLands (); } void MarkLandsInSct (sct) Sector sct; { Land sptr; for (sptr = s_fland (sct); sptr != (Land) 0; sptr = ld_nxtsct (sptr)) set_ld_marked (sptr, True); } void MarkLand (land) Land land; { set_ld_marked (land, True); } void MarkAllLands () { Land sptr; for (sptr = landlist; sptr != (Land) 0; sptr = ld_next (sptr)) set_ld_marked (sptr, True); } void RedumpLand (land, flag) Land land; int flag; { char *aland; MarkLand (land); aland = Fmt ("%d", ld_nr (land)); DumpLand (aland, flag); CheckMarkedLands (); } void RedumpArmy (army, flag) char army; int flag; { char *aarmy; Land sptr; for (sptr = landlist; sptr != (Land) 0; sptr = ld_next (sptr)) if (ld_army (sptr) == army) MarkLand (sptr); aarmy = Fmt ("%c", army); DumpLand (aarmy, flag); SearchMarkedLands (flag); } void DumpSctLands (sct, flag) Sector sct; int flag; { MarkLandsInSct (sct); (void) DumpLand (CrdStr (sct), flag); SearchMarkedLands (flag); } void DumpRealmLands (realm, flag) char *realm; int flag; { int sx, sy, ex, ey; Land sptr; if (realm == (char *) 0) return; if (ConvRealmToCoord (realm, &sx, &ex, &sy, &ey)) for (sptr = landlist; sptr != (Land) 0; sptr = ld_next (sptr)) if (ld_xcd (sptr) >= sx && ld_xcd (sptr) <= ex && ld_ycd (sptr) >= sy && ld_ycd (sptr) <= ey) MarkLand (sptr); (void) DumpLand (realm, flag); SearchMarkedLands (flag); } xemp5.1-beta/lib/land/llook.c100444 12266 2116 2570 6023767423 14416 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/land/RCS/llook.c,v 5.1 1993/03/14 16:47:32 etienne Exp $ $Date: 1993/03/14 16:47:32 $ $Author: etienne $ $Id: llook.c,v 5.1 1993/03/14 16:47:32 etienne Exp $ $Locker: $ $Log: llook.c,v $ Revision 5.1 1993/03/14 16:47:32 etienne *** empty log message *** * Revision 5.0 93/02/06 09:18:30 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:47:37 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "nation.h" #include "var.h" #include "land.h" void DoLLookout (sct, landnr, in_march, print, force) Sector sct; int landnr; bool in_march; int print; bool force; { Sector nxt; Neighb neighb; bool do_llookout; do_llookout = False; if (! force) { InitNeighbours (sct, & neighb); for (nxt = sct; NextNeighbour (& nxt, S_DESIG, neighb); ) if (NO_INFO (nxt)) do_llookout = True; } if (do_llookout || force) { if (in_march) { FeedEmpire (Fmt ("l %d", landnr), print); } else FeedEmpire (Fmt ("llook %d", landnr), print); ScanLookout (); InitNeighbours (sct, & neighb); while (NextNeighbour (& nxt, S_DESIG, neighb)) (void) UpdateSectorDes (nxt, '.', False); DrawNeighbours (sct); (void) WaitForPrompt (print); } } xemp5.1-beta/lib/land/march.c100444 12266 2116 17606 6023767423 14416 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/land/RCS/march.c,v 5.2 1995/09/08 07:19:32 jpo Exp $ $Date: 1995/09/08 07:19:32 $ $Author: jpo $ $Id: march.c,v 5.2 1995/09/08 07:19:32 jpo Exp $ $Locker: $ $Log: march.c,v $ Revision 5.2 1995/09/08 07:19:32 jpo touch up , * Revision 5.1 93/03/14 16:47:34 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:18:30 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:47:37 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "var.h" #include "land.h" #include "sector.h" #include "plane.h" #define HOW_SELECT 0 /* via menu */ #define HOW_CURRENT 1 /* via redo */ #define HOW_BOTH 2 /* via bind */ void DoMarch (x, y, how) int x, y; int how; { char * ptr; if (last_layout == LAND_MODE && how != HOW_SELECT) { if (! ld_owned (curland)) { Message ("Not your unit !"); Bell (); return; } March (Fmt ("%d", ld_nr (curland))); } else if (last_layout == ARMY_MODE && how != HOW_SELECT) March (Fmt ("%c", curarmy)); else { if (how == HOW_CURRENT) { Message ("No current land/army"); Bell (); return; } ptr = SelectLands (x, y, LD_MARCH, "March which units ?"); if (ptr == (char *) 0) return; March (ptr); } } void RedoMarch () { DoMarch (10, 10, HOW_CURRENT); } void BindMarch (x, y, str) int x, y; char * str; { static char buf [100]; if (sscanf (str, " ( %s ) ", buf) == 1) March (buf); else DoMarch (x, y, HOW_BOTH); } void Mar (x, y) int x, y; { DoMarch (x, y, HOW_SELECT); } void March (march_what) char *march_what; { int nx, ny; Land land; Sector sct, next; char * ptr, * ptri; int minmob; double newmob; int rad; int button; char * path; char * answer; int best_rad; UnmarkAllLands (); MarkLands (march_what); SetAgain (RedoMarch); minmob = MinMobMarkedLands (& land); if (minmob < 0) { if (land == (Land) 0) { Message ("No lands selected to march !"); Bell (); return; } else /* if (! deity) */ { Message (Fmt ("%s #%d out of mobility", LandName (land), ld_nr (land))); return; } } if (! LMarkedColocated ()) { Message ("Selected lands are not colocated"); Bell (); return; } sct = SctMarkedLands (); if (sct == (Sector) 0) { Message ("You don't know anything about this sector"); Bell (); return; } UnmarkSector (cursct); MarkSector (sct); FeedEmpire (Fmt ("march %s", march_what), PRINT); ptr = WaitForPrompt (PRINT); if ( EmpireStatus () == E_COMMAND || sscanf (ptr, "<%*f:%lf", & newmob) != 1) { PrintAtEmpire (ptr); Message ("March failed"); Bell (); cursct = sct; return; } rad = MaxLRadarMarked (& best_rad); if (best_rad == -1) best_rad = FirstMarkedLandnr (); Message (Fmt ("march: now at %s (mob %.1f)", CrdStr (sct), newmob)); for (;;) { if (EmpireStatus () == E_COMMAND) { Message ("Marching stopped"); MesClearBut (); CheckLands (march_what); DoLLookout (sct, best_rad, False, PRINT, False); cursct = sct; return; } MesBut ("View", "Extended Commands", "Move"); DoLLookout (sct, best_rad, True, PRINT, False); (void) SelectSctCrd (& nx, & ny, & button); if (interrupt) { interrupt = False; FeedEmpire ("aborted", PRINT); continue; } if (button == RIGHT_BUTTON) next = World (nx, ny, S_DESIG); else next = World (nx, ny, S_EXIST); if (next == (Sector) 0) continue; if (button == LEFT_BUTTON) { CensusSct (next); continue; } if (button == MIDDLE_BUTTON) { MesBut ( (deity || landtypes [ld_type (land)]. spy > 0&& LandHas (land, L_RADAR)) ? Fmt ("Radar (%d)", rad) : "---", "---", "Lookout"); WaitButtonPress (&button); if (interrupt) { interrupt = False; continue; } if (button == LEFT_BUTTON) { if (! deity && rad < 0) continue; FeedEmpire (Fmt ("r %d", best_rad), PRINT); ScanRadar (); } else if (button == MIDDLE_BUTTON) { } else if (button == RIGHT_BUTTON) { FeedEmpire (Fmt ("l %d", best_rad), PRINT); ScanLookout (); /* you should always know your neighbours */ } (void) WaitForPrompt (PRINT); DrawMap (); continue; } if (button == RIGHT_BUTTON && sct == next) { FeedEmpire ("h", PRINT); (void) WaitForPrompt (PRINT); Message (Fmt ("Marching stopped @ %s", CrdStr (sct))); MesClearBut (); CheckLands (march_what); cursct = sct; return; } /* if (button == RIGHT_BUTTON) -> true */ if (s_mines (next) > 0 && s_des (next) != 'h' && s_des (next) != '=' && ! Confirm ( "Captain, mines here, still go there ?", False)) continue; path = BestTmpDistPath (sct, next); if (path == (char *) 0) { Message ("Couldn't find a path !"); Bell (); continue; } MarkPath (sct, path); FeedEmpire (Fmt ("%s", path), PRINT); UnmarkPath (sct, path); for (;;) { ptr = ReadEmpire (DONT_PRINT); if (EmpireStatus () == E_QUESTION) { PrintAtEmpire (ptr); if (sscanf (ptr, "<%*lf:%lf: %d,%d", & newmob, & nx, & ny) != 3) { answer = InputAtMessage (ptr, 20, GS_NAME); if (interrupt || answer == (char *) 0) { FeedEmpire ("aborted", PRINT); Bell (); MesClearBut (); (void) WaitForPrompt (PRINT); CheckLands (march_what); if (NO_INFO (next)) FreeSector (next); cursct = sct; DoLLookout (sct, best_rad, False, PRINT, False); return; } FeedEmpire (answer, PRINT); continue; } else break; } if (EmpireStatus () == E_COMMAND) { PrintAtEmpire (ptr); Message ("Marching failed"); Bell (); MesClearBut (); CheckLands (march_what); if (NO_INFO (next)) FreeSector (next); cursct = sct; DoLLookout (sct, best_rad, False, PRINT, False); return; } if (StrEQ (ptr, "Sweep")) { Message ("Sweeping mines... -- MORE --"); Bell (); Pause (); continue; } if (strncmp (ptr, "\007Kawhomp!", 9) == 0) { /* Mark sector mine was actually hit in, not originating sector */ Sector sct1; int x1, y1; PrintAtEmpire (ptr + 1); sscanf(ptr+1, "Kawhomp! landmines detected by %*[^(](#%*d) in %d,%d!",&x1,&y1); sct1 = World (x1, y1, S_DESIG); if (s_mines (sct1) == 0) set_mines (sct1, 128); else if (s_mines (sct1) < 127) set_mines (sct1, s_mines (sct1) - 1); else set_mines (sct1, s_mines (sct1) + 1); CensusSct (sct1); Message ("You hit a mine !!"); Bell (); Pause (); continue; } PrintAtEmpire (ptr); ptri = index (ptr, '#'); if (ptri == (char *) 0) continue; ScanFmt ((ConstVP)& ptri, (char *) 0, ")#0-9 \t"); if (StrEQ (ptri, "can't go to")) { if (NO_INFO (next)) (void) UpdateSectorDes (next, '?', False); Warning ("You can't go there"); Bell (); DrawSector (next); continue; } if (sscanf (ptri, "stopped at %d , %d", & nx, & ny) == 2) { (void) UpdateSectorDes (next, '.', False); Message ("Out of mobility"); Bell (); MesClearBut (); if (EmpireStatus () != E_COMMAND) { if (EmpireStatus () == E_PRINTING) (void) WaitForPrompt (PRINT); while (EmpireStatus () != E_COMMAND) { FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); } } next = World (nx, ny, S_DESIG); LMoveMarkedTo (next); UnmarkSector (sct); MarkSector (next); CheckLands (march_what); cursct = next; DoLLookout (next, best_rad, False, PRINT, False); return; } } /* Move is oke */ next = World (nx, ny, S_DESIG); (void) UpdateSectorDes (next, '.', False); LMoveMarkedTo (next); UnmarkSector (sct); sct = next; MarkSector (sct); Message (Fmt ("march: now at %s (mob %.1f)", CrdStr (sct), newmob)); } } xemp5.1-beta/lib/land/mark.c100444 12266 2116 10645 6023767423 14252 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/land/RCS/mark.c,v 5.2 1995/09/08 07:19:46 jpo Exp $ $Date: 1995/09/08 07:19:46 $ $Author: jpo $ $Id: mark.c,v 5.2 1995/09/08 07:19:46 jpo Exp $ $Locker: $ $Log: mark.c,v $ Revision 5.2 1995/09/08 07:19:46 jpo const * Revision 5.1 93/03/14 16:47:37 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:18:30 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:47:37 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "var.h" #include "land.h" extern Land NrToLand(); void UnmarkAllLands () { Land ptr; for ALL_LANDS (ptr) set_ld_marked (ptr, False); } void MarkLands (form) char * form; { Land ptr; int sx, sy, ex, ey; int nr; if (strcmp (form, "*") == 0) { for ALL_LANDS (ptr) set_ld_marked (ptr, True); return; } if (strlen (form) == 1 && (isalpha (* form) || * form == '~')) { for ALL_LANDS (ptr) if (ld_army (ptr) == * form) set_ld_marked (ptr, True); return; } if (ConvRealmToCoord (form, & sx, & sy, & ex, & ey)) { for ALL_LANDS (ptr) if (ld_xcd (ptr) >= sx && ld_xcd (ptr) <= ex && ld_ycd (ptr) >= sy && ld_ycd (ptr) <= ey) set_ld_marked (ptr, True); return; } while (ScanDigit ((ConstVP)& form, & nr)) { ptr = NrToLand (nr); if (ptr != (Land) 0) set_ld_marked (ptr, True); if (* form == '/') form ++; } } int MinMobMarkedLands (land) Land * land; { Land ptr; bool found; int min; if (land != (Land *) 0) * land = (Land) 0; found = False; for ALL_LANDS (ptr) if (ld_marked (ptr)) if (! found) { found = True; if (land != (Land *) 0) * land = ptr; min = ld_mob (ptr); } else if (ld_mob (ptr) < min) { min = ld_mob (ptr); if (land != (Land *) 0) * land = ptr; } if (! found) return -1; else return min; } bool LMarkedColocated () { Land ptr; bool found; int x, y; found = False; for ALL_LANDS (ptr) if (ld_marked (ptr)) if (! found) { found = True; x = ld_xcd (ptr); y = ld_ycd (ptr); } else if (x != ld_xcd (ptr) || y != ld_ycd (ptr)) return False; return True; } bool ArmyHasEngineer () { Land ptr; for ALL_LANDS (ptr) if (ld_marked (ptr) && LandHas (ptr, L_ENGINEER)) return True; return False; } Sector SctMarkedLands () { Land ptr; for ALL_LANDS (ptr) if (ld_marked (ptr)) return World (ld_xcd (ptr), ld_ycd (ptr), S_EXIST); return (Sector) 0; } void CheckLands (what) char * what; { Land ptr, next; char buffer [1024]; bool first; if (command_state == TEST_STATE) return; UnmarkAllLands (); MarkLands (what); (void) DumpLand (what, DONT_PRINT); buffer [0] = '\0'; first = True; for ALL_LANDS (ptr) if (ld_marked (ptr)) { if (first) { first = False; strcat (buffer, Fmt ("%d", ld_nr (ptr))); } else strcat (buffer, Fmt ("/%d", ld_nr (ptr))); } if (first) return; DumpLand (buffer, DONT_PRINT); ptr = landlist; while (ptr != (Land) 0) if (ld_marked (ptr)) { Error (Fmt ("You seem to have lost %s #%d", LandName (ptr), ld_nr (ptr))); next = ld_next (ptr); DeleteLand (ptr); ptr = next; } else ptr = ld_next (ptr); } int MaxLRadarMarked (lndnr) int * lndnr; { Land ptr; int max; int landnr; max = -1; landnr = -1; for ALL_LANDS (ptr) if (ld_marked (ptr)) if (landtypes [ld_type (ptr)]. spy > max) { max = landtypes [ld_type (ptr)]. spy; landnr = ld_nr (ptr); } if (lndnr != (int *) 0) * lndnr = landnr; return max; } void LMoveMarkedTo (sct) Sector sct; { Land ptr; for ALL_LANDS (ptr) if (ld_marked (ptr)) MoveLand (ptr, sct); } int BestMarkedLRadar () { int max; Land ptr; int landnr; max = -1; landnr = -1; for ALL_LANDS (ptr) if (ld_marked (ptr)) if (landtypes [ld_type (ptr)]. rad > max) { max = landtypes [ld_type (ptr)]. rad; landnr = ld_nr (ptr); } return landnr; } int FirstMarkedLandnr () { register Land ptr; for ALL_LANDS (ptr) if (ld_marked (ptr)) return ld_nr (ptr); return -1; } void DeleteMarkedEnemyLands () { register Land ptr; Land next; ptr = landlist; while (ptr != (Land) 0) if (ld_marked (ptr) && ! ld_owned (ptr)) { next = ld_next (ptr); DeleteLand (ptr); ptr = next; } else ptr = ld_next (ptr); } xemp5.1-beta/lib/land/mine.c100444 12266 2116 4413 6023767423 14224 0ustar jponexor#include "type.h" #include "main.h" #include "sector.h" #include "var.h" #include "land.h" #define DEF_MINES 10 static int last_quant = 0; void LMine (what) char * what; { DoLMine (what, 0); } void RedoLMine () { if (last_layout == LAND_MODE) DoLMine (Fmt ("%d", ld_nr (curland)), last_quant); else if (last_layout == ARMY_MODE) DoLMine (Fmt ("%c", curarmy), last_quant); else { Message ("No current land/army selected"); Bell (); return; } } /* ARGSUSED */ void BindLMine (x, y, str) int x, y; char * str; { int quant; if (str != (char *) 0 && sscanf (str, " ( %d )", & quant) == 1) last_quant = quant; RedoLMine (); } void DoLMine (what, quant) char * what; int quant; { char * ans; register Land ptr; int nr, n; int total; if (s_des (cursct) == '.') { Message ("You can't lay mines here!"); Bell (); return; } UnmarkAllLands (); MarkLands (what); nr = 0; for ALL_LANDS (ptr) if (ld_marked (ptr)) { if (! ld_owned (ptr) || ! LandHas (ptr, L_ENGINEER) || ld_she (ptr) == 0) set_ld_marked (ptr, False); else nr ++; } if (nr == 0) { Message ("No selected units with mine-capability / shells"); Bell (); return; } if (quant <= 0) { ans = InputAtMessage (Fmt ("How many mines%s %s:", nr == 1 ? "" : " from each unit", #ifndef lint DEF_MINES < 0 ? "" : #endif Fmt ("[%d]", DEF_MINES)), 3, GS_PNUMBER); if (ans == (char *) 0 || interrupt || (* ans == '\0' && DEF_MINES < 0)) { Message ("mine cancelled"); Bell (); return; } if (* ans == '\0') quant = DEF_MINES; else quant = atoi (ans); } SetAgain (RedoLMine); last_quant = quant; if (quant == 0) { Message ("mine cancelled"); Bell (); return; } total = 0; for ALL_LANDS (ptr) if (ld_marked (ptr)) { n = ld_she (ptr); if (n == 0) continue; if (n > quant) n = quant; total += n; } if (total == 0) { Message ("No mines layed"); Bell (); return; } inc_mines (cursct, total); if (command_state < FORCE_BUF_STATE) { FeedEmpire (Fmt ("lmine %s %d", what, quant), PRINT); (void) WaitForPrompt (PRINT); } else if (command_state == FORCE_BUF_STATE) FeedCommand (Fmt ("lmine %s %d", what, quant), PRINT); Message (Fmt ("%d mines layed", total)); Census (); } xemp5.1-beta/lib/land/missing.c100444 12266 2116 1434 6023767423 14745 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/land/RCS/missing.c,v 5.2 1995/09/08 07:19:59 jpo Exp $ $Date: 1995/09/08 07:19:59 $ $Author: jpo $ $Id: missing.c,v 5.2 1995/09/08 07:19:59 jpo Exp $ $Locker: $ $Log: missing.c,v $ Revision 5.2 1995/09/08 07:19:59 jpo prototype * Revision 5.1 93/03/14 16:47:53 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:18:30 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:47:37 greyhelm * Added RCS headers - Karl Hagen * */ void MFireFromArmy (army) char *army; { return; } void FireFromLand () { return; } void MissionLand () { return; } void ScuttleLand (army) char *army; { return; } xemp5.1-beta/lib/land/mission.c100444 12266 2116 11210 6024621375 14762 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/land/RCS/mission.c,v 1.3 1995/09/10 17:40:12 jpo Exp $ $Date: 1995/09/10 17:40:12 $ $Author: jpo $ $Id: mission.c,v 1.3 1995/09/10 17:40:12 jpo Exp $ $Locker: $ $Log: mission.c,v $ Revision 1.3 1995/09/10 17:40:12 jpo Add army support and display Revision 1.2 1995/09/08 07:20:12 jpo added land mission support * Revision 1.1 93/03/14 16:47:59 etienne * Initial revision * */ #include "main.h" #include "version.h" #include "sector.h" #include "land.h" static const char *mission_types[] = { "Delete Mission", "Interdict", "Reserve", (char *)0 }; #define MISSION_MAX 3 static const char type2mission[] = "\0ir"; static bool LandMission _PROTO((const char *lands, int range, Sector sct, char *missp, int *rangep)); static bool LandMission (lands, range, sct, missp, rangep) const char *lands; int range; Sector sct; char *missp; int *rangep; { int i; Strings strings; Pager pager; char *answer; strings = InitStrings (); AddStringsID (strings, mission_types, MISSION_MAX, 0); pager = InitPager (strings, "Mission Type?"); MapPagerFromTop (pager, map_win, 5, 5); i = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (i < 0 || interrupt) { interrupt = False; Message ("Set mission cancelled"); return False; } if (i == 0) { *missp = type2mission[i]; *rangep = 0; FeedCommand (Fmt ("mission land %s c", lands), PRINT); return True; } answer = InputAtMessage (Fmt ("Range [%d]: ",range), 3, GS_PNUMBER); if (interrupt || answer == (char *)0) { interrupt = False; Message ("Mission cancelled"); return False; } if (*answer != '\0') range = atoi (answer); *missp = type2mission[i]; FeedCommand (Fmt ("mission land %s %c %s %d", lands, *missp, CrdStr(sct), range), PRINT); *rangep = range; return True; } void LMission (land) Land land; { int range; char miss; if (!ld_owned (land)) { Message ("Not your unit !!"); return; } range = LandFireRange (land); if (LandMission (Fmt ("%d", ld_nr(land)), range, LandSector (land), &miss, &range) == True) { set_ld_mission (land, miss); land -> radius = range; } return; } void FScanLandMission (list, flag) const char *list; int flag; { FeedEmpire (Fmt ("mission land %s q", list), flag); ScanLandMission (flag); (void) WaitForPrompt (flag); } void ScanLandMission (flag) int flag; { char *ptr, *ind; int mind, lno; Land land; if (EmpireStatus () != E_PRINTING) return; if (flag == PRINT) PrintAtEmpire ("Empiretool: scanning land missions"); ptr = ReadEmpire (DONT_PRINT); if ((ind = StrStr (ptr, "mission")) == NULL) { PrintAtEmpire (Fmt ("Mission scan failed on %s", ptr)); return; } mind = ind - ptr; for (;;) { ptr = ReadEmpire (DONT_PRINT); if (EmpireStatus () != E_PRINTING) { if (flag == PRINT) PrintAtEmpire (ptr); return; } if ((ind = index (ptr, '#')) == NULL) continue; ind ++; if (!ScanDigit ((ConstVP)&ind, &lno) || (land = NrToLand (lno)) == (Land)0) { PrintAtEmpire (Fmt ("#%d Unknown land (rescan lands!)", lno)); Bell (); (void) EmpireMore (); continue; } switch (ptr[mind]) { case 'i': case 'r': set_ld_mission (land, ptr[mind]); break; case 'h': set_ld_mission (land, '\0'); break; default: PrintAtEmpire (Fmt ("Unknown mission type %s", ptr + mind)); Bell (); break; } } } const char *ArmyHasMission (army) char army; { Land ptr; char mistype = '~'; /* bogus */ const char *cp; for (ptr = landlist; ptr != (Land) 0; ptr = ptr-> next) if (ptr-> army == army && ld_mission(ptr) != mistype) { if (mistype == '~') mistype = ld_mission(ptr); else return "Mixed"; } if (mistype == '\0') return "None"; for (cp = type2mission + 1; *cp; cp++) if (*cp == mistype) return mission_types[cp - type2mission]; return "Unknown"; } void ChangeArmyMission (army) char army; { Land ptr; int range = 0; char miss; if (ArmyEmpty (army) == True) { Message ("No ships in army!"); return; } if (ArmyColocated (army) != True) { Message ("Army not colocated"); return; } for (ptr = landlist; ptr != (Land) 0; ptr = ptr-> next) if (ptr-> army == army) { int r = LandFireRange (ptr); if (r > range) range = r; } if (LandMission (Fmt ("%c", army), range, ArmySector (army), &miss, &range) == True) { const char *cp; for (ptr = landlist; ptr != (Land) 0; ptr = ptr-> next) if (ptr-> army == army) { set_ld_mission (ptr, miss); ptr -> radius = range; } Message (Fmt ("Army %c now on %s mission", army, ArmyHasMission (army))); CensusArmy (army); } } xemp5.1-beta/lib/land/retreat.c100444 12266 2116 14466 6024621356 14766 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/land/RCS/retreat.c,v 1.3 1995/09/10 17:39:58 jpo Exp $ $Date: 1995/09/10 17:39:58 $ $Author: jpo $ $Id: retreat.c,v 1.3 1995/09/10 17:39:58 jpo Exp $ $Locker: $ $Log: retreat.c,v $ Revision 1.3 1995/09/10 17:39:58 jpo Add army support and display Revision 1.2 1995/09/08 07:20:27 jpo retreat stuff * Revision 1.1 93/03/14 16:48:27 etienne * Initial revision * */ #include "main.h" #include "version.h" #include "sector.h" #include "land.h" #include "func.h" extern const char *retreatcond[]; extern const char retreat_n2cond[]; static bool LandRetreat _PROTO((const char *lands, uchar cond, Sector sct, short *rtrxp, short *rtryp, uchar *condp)); static bool LandRetreat (lands, cond, sct, rtrxp, rtryp, condp) const char *lands; uchar cond; Sector sct; short *rtrxp, *rtryp; uchar *condp; { Strings strings; Pager pager; char buf[10]; char *cp; int nr; Sector to; int i; char *path; strings = InitStrings (); AddStringsID (strings, retreatcond, RETREAT_MAXSTR, 0); MakeStringIndex (strings); for (i = 0; i < RETREAT_MAX; i++) if (cond & (1 << i)) SetIthFlag (strings, i, 1); pager = InitPager (strings, "Retreat Conditions"); AddPagerFunc (pager, "Cancel", CANCELFUNC); SetPagerButtons (pager, "Toggle", "Delete", "Done"); SetPagerButtonIDs (pager, TOGGLEFUNC, DELETEFUNC, DONEFUNC); SetPagerSelect (pager); MapPagerFromTop (pager, map_win, 5, 5); for (;;) { int func; int i = PagerMenuFunc (pager, &func, (int *)0); if (i < 0 || interrupt || i == CANCELFUNC) { interrupt = False; FreePager (pager); FreeStrings (strings); return False; } switch (func) { case TOGGLEFUNC: ToggleStringFlag (strings, i); RemapPager (pager); continue; case DELETEFUNC: FreePager (pager); FreeStrings (strings); FeedCommand ( Fmt ("lretreat %s h C", lands), PRINT); *condp = RETREAT_NONE; return True; case DONEFUNC: break; } break; } FreePager (pager); InitStringList (strings); cp = buf; cond = RETREAT_NONE; while ((nr = GetNextSelectedId (strings)) != -1) { *cp ++ = retreat_n2cond[nr]; cond |= (1 << nr); } *cp = '\0'; FreeStrings (strings); Message (Fmt ("Retreat land %s to sector?", lands)); to = ChooseLandDest (sct, &path); if (to == NULL) { return False; } *condp = cond; *rtrxp = s_xcd (to); *rtryp = s_ycd (to); FeedCommand ( Fmt ("lretreat %s %s %s", lands, path, buf), PRINT); return True; } void LRetreat (land) Land land; { short rx, ry; uchar cond; if (!ld_owned (land)) { Message ("Not your unit !!"); return; } if (LandRetreat (Fmt ("%d", ld_nr(land)), land -> rtrcond, World (ld_xcd(land), ld_ycd(land), S_DESIG), &rx, &ry, &cond) == True) { land -> rtrcond = cond; land -> rtrtx = rx; land -> rtrty = ry; } } void FScanLandRetreat (list, flag) const char *list; int flag; { FeedEmpire (Fmt ("lretreat %s", list), flag); ScanLandRetreat (flag); (void) WaitForPrompt (flag); } void ScanLandRetreat (flag) int flag; { char *ptr, *ind; Land land; int sno; int flagoff, pathoff; int x, y; if (EmpireStatus () != E_PRINTING) return; if (flag == PRINT) PrintAtEmpire ("Empiretool: scanning land retreats"); ptr = ReadEmpire (DONT_PRINT); if ((ind = StrStr (ptr, "unit type")) == NULL) { PrintAtEmpire (Fmt ("Order scan failed on %s", ptr)); return; } if ((ind = StrStr (ptr, "path")) == NULL) { PrintAtEmpire (Fmt ("No path in %s", ptr)); return; } pathoff = ind - ptr; if ((ind = StrStr (ptr, "flags")) == NULL) { PrintAtEmpire (Fmt ("No flags in %s", ptr)); return; } flagoff = ind - ptr; for (;;) { Sector to; ind = ptr = ReadEmpire (DONT_PRINT); if (EmpireStatus () != E_PRINTING) { if (flag == PRINT) PrintAtEmpire (ptr); return; } if (ScanDigit ((ConstVP)&ind, &sno)) /* land name? */ continue; if (strncmp (ind, "land", 4) == 0) /* %d lands */ break; if (strlen(ptr) < flagoff) continue; if ((land = NrToLand (sno)) == (Land)0) { PrintAtEmpire (Fmt ("#%d Unknown unit (rescan lands!)", sno)); Bell (); (void) EmpireMore (); continue; } land -> rtrcond = RETREAT_NONE; for (ind = &ptr[flagoff]; *ind; ind ++) { char *cp; if ((cp = index (retreat_n2cond, *ind)) == NULL) continue; land -> rtrcond |= (1 << (cp - retreat_n2cond)); } ind = &ptr[pathoff]; to = FollowPath (World(ld_xcd(land), ld_ycd(land), S_DESIG), ind); land -> rtrtx = s_xcd (to); land -> rtrty = s_ycd (to); } } Sector ChooseLandDest (sct, pathp) Sector sct; char **pathp; { int button; Sector to; MesBut ("View", "Cancel", "Set"); for (;;) { to = SelectSector (&button); if (interrupt || button == MIDDLE_BUTTON) { interrupt = False; Message ("Cancelled"); MesClearBut (); return NULL; } if (to == (Sector)0) continue; if (button == LEFT_BUTTON) { CensusSct (to); continue; } if (to == sct) continue; if (s_mines (to) > 0 || s_des(to) == '.') { Message ("Not a good navigable sector!"); continue; } if ((*pathp = BestTmpDistPath (sct, to)) == NULL) { Message ( Fmt("I don't see a path from %s to %s", CrdStr(sct), CrdStr(to))); return NULL; } MesClearBut (); return to; } } const char *ArmyHasRetreat (army) char army; { Land ptr; uchar rcond = 0; int first = 0; for (ptr = landlist; ptr != (Land) 0; ptr = ptr-> next) if (ptr-> army == army) { if (first++ == 0) rcond = ld_retreat(ptr); else if (rcond != ld_retreat(ptr)) return "Mixed"; } if (rcond == RETREAT_NONE) return "No"; return RtrtList (rcond); } void ChangeArmyRetreat (army) char army; { Land ptr; int first = 0; int rcond; Sector sct; short rx, ry; uchar cond; if (ArmyEmpty (army) == True) { Message ("Empty army"); return; } for (ptr = landlist; ptr != (Land) 0; ptr = ptr-> next) if (ptr-> army == army) { if (first++ == 0) rcond = ld_retreat(ptr); else if (rcond != ld_retreat(ptr)) { rcond = 0; break; } } if ((sct = ArmySector (army)) == NULL) return; if (LandRetreat (Fmt ("%c", army), rcond, sct, &rx, &ry, &cond) == True) { for (ptr = landlist; ptr != (Land) 0; ptr = ptr-> next) if (ptr-> army == army) { ptr -> rtrcond = cond; ptr -> rtrtx = rx; ptr -> rtrty = ry; } CensusArmy (army); } } xemp5.1-beta/lib/land/scrap.c100444 12266 2116 4776 6023767423 14420 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/land/RCS/scrap.c,v 5.1 1993/03/14 16:48:35 etienne Exp $ $Date: 1993/03/14 16:48:35 $ $Author: etienne $ $Id: scrap.c,v 5.1 1993/03/14 16:48:35 etienne Exp $ $Locker: $ $Log: scrap.c,v $ Revision 5.1 1993/03/14 16:48:35 etienne *** empty log message *** * Revision 5.0 93/02/06 09:18:30 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:47:37 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "var.h" #include "land.h" extern void ScrapLand (); void RedoLScrap () { Land next; char nextfl; if (last_layout == LAND_MODE) { next = ld_nxtsct (curland); ScrapLand (Fmt ("%d", ld_nr (curland))); curland = next; if (curland != (Land) 0) CensusLand (curland); else Census (); DrawSector (cursct); } else if (last_layout == ARMY_MODE) { nextfl = GiveNextArmyInSct (cursct, curarmy); ScrapLand (ArmyId ()); if (nextfl != ' ' && nextfl != '\0') { curarmy = '\0'; Census (); } else { curarmy = nextfl; CensusArmy (curarmy); } DrawSector (cursct); } else { Message ("No current unit/army selected"); Bell (); } } /* * There is no binding to scrap. * This routine should only be called with owned lands */ void ScrapLand (what) char * what; { Land ptr, next; int i, j; int inc_lcm, inc_hcm; int nr; char itemchar; UnmarkAllLands (); MarkLands (what); Message (Fmt ("Scrapping %s", what)); if (! Confirm (Fmt ("Scrap %s", what), True)) { Message ("Scrap unit cancelled"); return; } FeedCommand (Fmt ("scrap land %s", what), PRINT); SetAgain (RedoLScrap); ptr = landlist; nr = inc_lcm = inc_hcm = 0; while (ptr != (Land) 0) if (ld_marked (ptr)) { next = ld_next (ptr); for (i = 1; i < V_MAX; i ++) { itemchar = ItemChar (i); j = GiveLandQuant (ptr, itemchar); if (j > 0) SetQuant (cursct, itemchar, GiveQuant (cursct, itemchar) + j); } inc_lcm += (landtypes [ld_type (ptr)]. lcm * 2) / 3; inc_hcm += (landtypes [ld_type (ptr)]. hcm * 2) / 3; nr ++; DeleteLand (ptr); ptr = next; } else ptr = ld_next (ptr); if (nr == 0) { Message ("No units scrapped"); Bell (); return; } set_q_lcm (cursct, q_lcm (cursct) + inc_lcm); set_q_hcm (cursct, q_hcm (cursct) + inc_hcm); Message (Fmt ("%d units scrapped", nr)); Census (); DrawSector (cursct); } xemp5.1-beta/lib/land/select.c100444 12266 2116 7332 6023767423 14556 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/land/RCS/select.c,v 5.2 1995/09/08 07:20:43 jpo Exp $ $Date: 1995/09/08 07:20:43 $ $Author: jpo $ $Id: select.c,v 5.2 1995/09/08 07:20:43 jpo Exp $ $Locker: $ $Log: select.c,v $ Revision 5.2 1995/09/08 07:20:43 jpo const * Revision 5.1 93/03/14 16:48:38 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:18:30 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:47:37 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "var.h" #include "land.h" #include "ship.h" #include "sector.h" #include "func.h" #include "nation.h" char * SelectLands (x, y, ldtask, quest) int x, y; LdTask ldtask; const char * quest; { extern int last_layout; static char buffer [200]; Strings strings; Pager pager; Land ptr, land; bool flag, first; int func; int i; int nr, cnt; strings = InitStrings (); AddStringID (strings, "Land Fl Eff Mob Civ Mil Foo Tec", -1); for (ptr = s_fland (cursct); ptr != (Land) 0; ptr = ld_nxtsct (ptr)) { if (! ld_owned (ptr)) continue; if (ldtask == LD_MARCH && ld_mob (ptr) <= 0) continue; if (ldtask == LD_LLOADXPLANE && ld_xpln (ptr) > landtypes [ld_type (ptr)]. xpl) continue; if (ldtask == LD_LANDTOSHIP && !PortableLand (ptr) && !sh_nr (ptr) >= 0 ) { continue; } AddStringID (strings, Fmt ( "%-4d %-16.16s %c %-3d%% %-3d %-3d %-3d %-3d %-4d", ld_nr (ptr), LandName (ptr), ld_army (ptr), ld_eff (ptr), ld_mob (ptr), ld_xpln (ptr), ld_she (ptr), ld_foo (ptr), ld_tech (ptr)), ld_nr (ptr)); nr = ld_nr (ptr); } if (StringsSize (strings) == 1) { FreeStrings (strings); Message ("No available lands."); Bell (); return (char *) 0; } else if (StringsSize (strings) == 2) { FreeStrings (strings); return Fmt ("%d", nr); } if (last_layout == LAND_MODE) SetStringFlag (strings, ld_nr (curland), True); else if (last_layout == ARMY_MODE) for (ptr = s_fland (cursct); ptr != (Land) 0; ptr = ld_nxtsct (ptr)) if (ld_army (ptr) == curarmy) SetStringFlag (strings, ld_nr (ptr), True); pager = InitPager (strings, quest); AddPagerFunc (pager, "Cancel", CANCELFUNC); AddPagerFunc (pager, "Done", DONEFUNC); SetPagerButtons (pager, "Toggle", "Toggle Army", "Done"); SetPagerButtonIDs (pager, TOGGLEFUNC, TOGGLEFLEETFUNC, DONEFUNC); SetPagerSelect (pager); MapPagerFromTop (pager, map_win, x, y); for (;;) { i = PagerMenuFunc (pager, & func, (int *) 0); if (i < 0) { FreePager (pager); FreeStrings (strings); return (char * ) 0; } switch (func) { case TOGGLEFUNC: if (i < 0) continue; ToggleStringFlag (strings, i); RemapPager (pager); continue; case TOGGLEWINGFUNC: if (i < 0) continue; flag = ! GiveStringFlag (strings, i); land = NrToLand (i); for (ptr = s_fland (cursct); ptr != (Land) 0; ptr = ld_nxtsct (ptr)) if (ld_army (ptr) == ld_army (land)) SetStringFlag (strings, ld_nr (ptr), flag); RemapPager (pager); continue; case DONEFUNC: FreePager (pager); InitStringList (strings); buffer [0] = '\0'; first = True; cnt = 0; while ((nr = GetNextSelectedId (strings)) != -1) { if (first) first = False; else strcat (buffer, "/"); cnt++; strcat (buffer, Fmt ("%d", nr)); } FreeStrings (strings); if (first) { Message ("No lands selected"); return (char *) 0; } else { return buffer; } case CANCELFUNC: FreePager (pager); FreeStrings (strings); return (char * ) 0; } } } xemp5.1-beta/lib/land/set.c100444 12266 2116 3167 6023767424 14075 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/land/RCS/set.c,v 5.1 1993/03/14 16:48:39 etienne Exp $ $Date: 1993/03/14 16:48:39 $ $Author: etienne $ $Id: set.c,v 5.1 1993/03/14 16:48:39 etienne Exp $ $Locker: $ $Log: set.c,v $ Revision 5.1 1993/03/14 16:48:39 etienne *** empty log message *** * Revision 5.0 93/02/06 09:18:30 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:47:37 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "var.h" #include "land.h" void SetLand (land) Land land; { char * ans; int price; double mult; int i; if (! s_owned (land)) { Message ( "For some strange reason you can only sell your own units"); Bell (); return; } price = landtypes [ld_type (land)]. cos * ld_eff (land) / 100; for (i = 1; i < V_MAX; i ++) price += ProdCost (i) * GiveLandQuant (land, ItemChar (i)); Bell (); ans = InputAtMessage ( Fmt ("Set at what price [cost you $%d]: ", price), 5, "*.0-9"); if (ans == (char *) 0 || interrupt) { Message ("Set cancelled"); return; } if (* ans == '*') { if (sscanf (ans + 1, "%lf", & mult) != 1) { Message ("Illegal entry, usage: '* mult'"); Bell (); return; } price = (int) (price * mult); } else if (*ans == '\0') ; /* price is set to default already */ else price = atoi (ans); FeedCommand (Fmt ("set land %d %d", ld_nr (land), price), PRINT); Message (Fmt ("%s #%d set at $%d", LandName (land), ld_nr (land), price)); } xemp5.1-beta/lib/land/supply.c100444 12266 2116 1313 6023767424 14625 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/land/RCS/supply.c,v 5.2 1995/09/08 07:20:51 jpo Exp $ $Date: 1995/09/08 07:20:51 $ $Author: jpo $ $Id: supply.c,v 5.2 1995/09/08 07:20:51 jpo Exp $ $Locker: $ $Log: supply.c,v $ Revision 5.2 1995/09/08 07:20:51 jpo *** empty log message *** * Revision 5.1 93/03/14 16:48:42 etienne * *** empty log message *** * * Revision 5.0 93/02/09 21:40:18 etienne * initial rev. * */ #include "type.h" #include "main.h" #include "var.h" #include "land.h" void SupplyLand (what) char * what; { Land ptr; UnmarkAllLands (); MarkLands (what); FeedEmpire (Fmt ("supply %s", what),PRINT); (void) WaitForPrompt (PRINT); DumpLand (what,DONT_PRINT); } xemp5.1-beta/lib/land/work.c100444 12266 2116 5257 6023767424 14266 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/land/RCS/work.c,v 5.2 1995/09/08 07:20:59 jpo Exp $ $Date: 1995/09/08 07:20:59 $ $Author: jpo $ $Id: work.c,v 5.2 1995/09/08 07:20:59 jpo Exp $ $Locker: $ $Log: work.c,v $ Revision 5.2 1995/09/08 07:20:59 jpo prototype * Revision 5.1 93/03/14 16:48:43 etienne * initial rel. * engineers working * * Revision 5.0 93/02/09 21:41:26 etienne * initial rev. * */ #include "type.h" #include "main.h" #include "sector.h" #include "var.h" #include "land.h" static int last_work = 0; #define DEF_WORK 60 void Work (what) char * what; { DoWork (what, 0); } void RedoWork () { if (last_layout == LAND_MODE) DoWork (Fmt ("%d", ld_nr (curland)), last_work); else if (last_layout == ARMY_MODE) DoWork (Fmt ("%c", curarmy), last_work); else { Message ("No current land/army selected"); Bell (); return; } } /* ARGSUSED */ void BindWork (x, y, str) int x, y; char * str; { int work; if (str != (char *) 0 && sscanf (str, " ( %d )", & work) == 1) last_work = work; RedoWork (); } void DoWork (what, work) char * what; int work; { char * ans; register Land ptr; int nr, n; int total; if (s_des (cursct) == '.') { Message ("You can't work here!"); Bell (); return; } UnmarkAllLands (); MarkLands (what); nr = 0; for ALL_LANDS (ptr) if (ld_marked (ptr)) { if (! ld_owned (ptr) || ! LandHas (ptr, L_ENGINEER) || ld_mob (ptr) == 0) set_ld_marked (ptr, False); else nr ++; } if (nr == 0) { Message ("No selected units with work-cap / mobility"); Bell (); return; } if (work <= 0) { ans = InputAtMessage (Fmt ("How many work%s %s:", nr == 1 ? "" : " from each unit", #ifndef lint DEF_WORK < 0 ? "" : #endif Fmt ("[%d]", DEF_WORK)), 3, GS_PNUMBER); if (ans == (char *) 0 || interrupt || (* ans == '\0' && DEF_WORK < 0)) { Message ("work cancelled"); Bell (); return; } if (* ans == '\0') work = DEF_WORK; else work = atoi (ans); } SetAgain (RedoWork); last_work = work; if (work == 0) { Message ("work cancelled"); Bell (); return; } total = 0; for ALL_LANDS (ptr) if (ld_marked (ptr)) { n = ld_mob (ptr); if (n == 0) continue; if (n > work) n = work; total += n; } if (total == 0) { Message ("No work done"); Bell (); return; } /* inc_mines (cursct, total); */ /* to be replaced with work */ if (command_state < FORCE_BUF_STATE) { FeedEmpire (Fmt ("work %s %d", what, work), PRINT); (void) WaitForPrompt (PRINT); } else if (command_state == FORCE_BUF_STATE) FeedCommand (Fmt ("work %s %d", what, work), PRINT); Message (Fmt ("%d work done", total)); Census (); } xemp5.1-beta/lib/misc/ 40755 12266 2116 0 6043206335 13040 5ustar jponexorxemp5.1-beta/lib/misc/GNUdepend100644 12266 2116 26737 6027220622 14725 0ustar jponexorSRCS= budget.c \ build.c \ check.c \ dlist.c \ global.c \ goto.c \ highl.c \ hpux.c \ info.c \ item.c \ main.c \ map.c \ message.c \ misc.c \ misc2.c \ myopt.c \ path.c \ product.c \ realm.c \ scan.c \ sector.c \ strings.c \ var_opt.c \ version.c \ where.c OBJS= budget.o \ build.o \ check.o \ dlist.o \ global.o \ goto.o \ highl.o \ hpux.o \ info.o \ item.o \ main.o \ map.o \ message.o \ misc.o \ misc2.o \ myopt.o \ path.o \ product.o \ realm.o \ scan.o \ sector.o \ strings.o \ var_opt.o \ version.o \ where.o ### budget.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h build.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h check.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h dlist.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/dlist.h goto.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h highl.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/func.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ ../parse/parser.h info.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/func.h item.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h main.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xrc.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h map.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h \ ../parse/parser.h message.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h misc.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h misc2.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h path.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h product.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h realm.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h scan.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h sector.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/func.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h strings.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h version.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h where.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ ../parse/parser.h xemp5.1-beta/lib/misc/GNUmakefile100644 12266 2116 1042 6034224630 15202 0ustar jponexor# The following variables are configurable. #-----------------------------------# LOCALCFLAGS := -DCOM_DATE="\"`date`\"" LOCALIFLAGS := -I../parse LOCALLFLAGS := LOCALSFLAGS := TOPDIR = ../.. LIB := ../libmisc.a LINTNAME := misc #-----------------------------------# # Productions: # depend: create the dependencies # all: make the library # saber: load things for saber # tags: make tags include $(TOPDIR)/make/GenMakefile include $(DEPENDENCIES) include $(TOPDIR)/make/LibMakefile tags: ../tags ln -s ../tags TAGS: ../TAGS ln -s ../TAGS xemp5.1-beta/lib/misc/build.c100444 12266 2116 2260 6023770726 14406 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/misc/RCS/build.c,v 5.1 1993/03/14 16:49:08 etienne Exp $ $Date: 1993/03/14 16:49:08 $ $Author: etienne $ $Id: build.c,v 5.1 1993/03/14 16:49:08 etienne Exp $ $Locker: $ $Log: build.c,v $ Revision 5.1 1993/03/14 16:49:08 etienne *** empty log message *** * Revision 5.0 93/02/06 09:18:49 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:37:47 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "sector.h" bool BuildCheckCommodity (itemchar, needed, craft) char itemchar; int needed; char * craft; { int atsct; atsct = GiveQuant (cursct, itemchar); if (atsct < needed) { PrintAtEmpire (Fmt ("You need at least %d %s to build a %s", needed, ItemName (CharToItem (itemchar)), craft)); Bell (); return False; } return True; } bool BuildCheckAvailable (needed, craft) int needed; char * craft; { if (s_ava (cursct) < needed) { PrintAtEmpire (Fmt ( "You need %d available workers to build a %s", needed, craft)); Bell (); return False; } return True; } xemp5.1-beta/lib/misc/check.c100444 12266 2116 1364 6023770726 14370 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/misc/RCS/check.c,v 5.1 1993/03/14 16:49:11 etienne Exp $ $Date: 1993/03/14 16:49:11 $ $Author: etienne $ $Id: check.c,v 5.1 1993/03/14 16:49:11 etienne Exp $ $Locker: $ $Log: check.c,v $ Revision 5.1 1993/03/14 16:49:11 etienne *** empty log message *** * Revision 5.0 93/02/06 09:18:49 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:37:47 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "sector.h" bool CheckOwnedCurSct () { if (! s_owned (cursct)) { Message ("You don't own this sector!"); Bell (); return False; } return True; } xemp5.1-beta/lib/misc/dlist.c100444 12266 2116 14646 6023770726 14461 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/misc/RCS/dlist.c,v 5.1 1993/03/14 16:49:14 etienne Exp $ $Date: 1993/03/14 16:49:14 $ $Author: etienne $ $Id: dlist.c,v 5.1 1993/03/14 16:49:14 etienne Exp $ $Locker: $ $Log: dlist.c,v $ Revision 5.1 1993/03/14 16:49:14 etienne *** empty log message *** * Revision 5.0 93/02/06 09:18:49 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:37:47 greyhelm * Added RCS headers - Karl Hagen * */ #include #include "dlist.h" typedef struct s_entry_info ENTRYINFO, * EntryInfo; typedef struct s_dlist_info DLISTINFO, * DListInfo; struct s_dlist_info { EntryInfo head, tail, current; int nr_elems; int sizeof_entry; }; extern char * malloc (); struct s_entry_info { EntryInfo next, prev; }; /* static */ DLISTPTR DLNew (dlist_info_size, entry_info_size) int dlist_info_size, entry_info_size; { char * ptr; DListInfo dlinfo; ptr = malloc ((unsigned) dlist_info_size + sizeof (DLISTINFO)); dlinfo = (DListInfo) ptr; dlinfo-> head = dlinfo-> tail = dlinfo-> current = (EntryInfo) 0; dlinfo-> nr_elems = 0; dlinfo-> sizeof_entry = entry_info_size; return (DLISTPTR) (ptr + sizeof (DLISTINFO)); } int DLElems (dlist) DLISTPTR dlist; { DListInfo dlinfo; dlinfo = (DListInfo) ((char *) dlist - sizeof (DLISTINFO)); return dlinfo-> nr_elems; } void DLSetCurrent (dlist, pos) DLISTPTR dlist; int pos; { DListInfo dlinfo; dlinfo = (DListInfo) ((char *) dlist - sizeof (DLISTINFO)); switch (pos) { case HEAD: dlinfo-> current = dlinfo-> head; break; case TAIL: dlinfo-> current = dlinfo-> tail; break; case NEXT: if (dlinfo-> current != (EntryInfo) 0) dlinfo-> current = dlinfo-> current-> next; break; case PREV: if (dlinfo-> current != (EntryInfo) 0) dlinfo-> current = dlinfo-> current-> prev; break; } } /* static */ ENTRYPTR DLAddElem (dlist, pos) DLISTPTR dlist; int pos; { EntryInfo einfo; DListInfo dlinfo; DLSetCurrent (dlist, pos); dlinfo = (DListInfo) ((char *) dlist - sizeof (DLISTINFO)); einfo = (EntryInfo) malloc ((unsigned) sizeof (ENTRYINFO) + dlinfo-> sizeof_entry); if (dlinfo-> current == (EntryInfo) 0) { einfo-> next = einfo-> prev = (EntryInfo) 0; dlinfo-> head = dlinfo-> tail = einfo; } else { einfo-> prev = dlinfo-> current; einfo-> next = dlinfo-> current-> next; if (einfo-> next != (EntryInfo) 0) einfo-> next-> prev = einfo; else dlinfo-> tail = einfo; if (einfo-> prev != (EntryInfo) 0) einfo-> prev-> next = einfo; else dlinfo-> head = einfo; } dlinfo-> current = einfo; dlinfo-> nr_elems ++; return (ENTRYPTR) ((char *) einfo + sizeof (ENTRYINFO)); } /* static */ ENTRYPTR DLInsElem (dlist, pos) DLISTPTR dlist; int pos; { EntryInfo einfo; DListInfo dlinfo; DLSetCurrent (dlist, pos); dlinfo = (DListInfo) ((char *) dlist - sizeof (DLISTINFO)); einfo = (EntryInfo) malloc ((unsigned) sizeof (ENTRYINFO) + dlinfo-> sizeof_entry); if (dlinfo-> current == (EntryInfo) 0) { einfo-> next = einfo-> prev = (EntryInfo) 0; dlinfo-> head = dlinfo-> tail = einfo; } else { einfo-> prev = dlinfo-> current-> prev; einfo-> next = dlinfo-> current; if (einfo-> prev != (EntryInfo) 0) einfo-> prev-> next = einfo; else dlinfo-> head = einfo; if (einfo-> next != (EntryInfo) 0) einfo-> next-> prev = einfo; else dlinfo-> head = einfo; } dlinfo-> current = einfo; dlinfo-> nr_elems ++; return (ENTRYPTR) ((char *) einfo + sizeof (ENTRYINFO)); } void DLDelete (dlist, pos, freefunc) DLISTPTR dlist; int pos; void (* freefunc) (); { EntryInfo einfo; DListInfo dlinfo; if (pos != CURRENT) DLSetCurrent (dlist, pos); dlinfo = (DListInfo) ((char *) dlist - sizeof (DLISTINFO)); einfo = dlinfo-> current; if (einfo != (EntryInfo) 0) { if (einfo == dlinfo-> head) dlinfo-> head = einfo-> next; else einfo-> prev-> next = einfo-> next; if (einfo == dlinfo-> tail) dlinfo-> tail = einfo-> prev; else einfo-> next-> prev = einfo-> prev; if (freefunc != FREE) (* freefunc) ((ENTRYPTR) ((char *) einfo + sizeof (ENTRYINFO))); (void) free ((char *) einfo); dlinfo-> nr_elems --; } } /* static */ ENTRYPTR DLGet (dlist, pos) DLISTPTR dlist; int pos; { DListInfo dlinfo; DLSetCurrent (dlist, pos); dlinfo = (DListInfo) ((char *) dlist - sizeof (DLISTINFO)); if (dlinfo-> current == (EntryInfo) 0) return (ENTRYPTR) 0; else return (ENTRYPTR) ((char *) dlinfo-> current + sizeof (ENTRYINFO)); } void DLCall (dlist, func) DLISTPTR dlist; void (* func) (); { DListInfo dlinfo; EntryInfo entry; dlinfo = (DListInfo) ((char *) dlist - sizeof (DLISTINFO)); for (entry = dlinfo-> head; entry != (EntryInfo) 0; entry = entry-> next) (* func) ((ENTRYPTR) ((char *) entry + sizeof (ENTRYINFO))); } void DLWrite (dlist, fp, writefunc) DLISTPTR dlist; FILE * fp; void (* writefunc) (); { DListInfo dlinfo; EntryInfo entry; dlinfo = (DListInfo) ((char *) dlist - sizeof (DLISTINFO)); fwrite (& (dlinfo-> nr_elems), sizeof (int), 1, fp); for (entry = dlinfo-> head; entry != (EntryInfo) 0; entry = entry-> next) if (writefunc != (void (*) ()) 0) (* writefunc) (fp, (ENTRYPTR) ((char *) entry + sizeof (ENTRYINFO))); else if (fwrite ((char *) entry + sizeof (ENTRYINFO), dlinfo-> sizeof_entry, 1, fp) != 1) perror ("fwrite"); } void DLRead (dlist, fp, readfunc) DLISTPTR dlist; FILE * fp; void (* readfunc) (); { DListInfo dlinfo; ENTRYPTR entry; int nelems, i; dlinfo = (DListInfo) ((char *) dlist - sizeof (DLISTINFO)); fread (& nelems, sizeof (int), 1, fp); for (i = 0; i < nelems; i ++) { entry = DLAddElem (dlist, TAIL); if (readfunc != (void (*) ()) 0) (* readfunc) (fp, entry); else if (fread ((char *) entry, dlinfo-> sizeof_entry, 1, fp) != 1) perror ("fread"); } } void DumpList (list) DLISTPTR list; { DListInfo dlinfo; EntryInfo einfo; dlinfo = (DListInfo) ((char *) list - sizeof (DLISTINFO)); printf ("*** DUMPING FROM LIST [%06d] ***\n", (int) list); printf ("Address: %06d # elems = %d\n", (int) dlinfo, dlinfo-> nr_elems); printf ("[Current = %06x] [Head = %06x] [Tail = %06x]\n\n", (int) dlinfo-> current, (int) dlinfo-> head, (int) dlinfo-> tail); for (einfo = dlinfo-> head; einfo; einfo = einfo-> next); printf ("[Address = %06x] [Next = %06x] [Prev = %06x]\n", (int) einfo, (int) einfo-> next, (int) einfo-> prev); } xemp5.1-beta/lib/misc/global.c100444 12266 2116 4023 6023770726 14546 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/misc/RCS/global.c,v 5.2 1995/09/08 07:27:36 jpo Exp $ $Date: 1995/09/08 07:27:36 $ $Author: jpo $ $Id: global.c,v 5.2 1995/09/08 07:27:36 jpo Exp $ $Locker: $ $Log: global.c,v $ Revision 5.2 1995/09/08 07:27:36 jpo more constants * Revision 5.1 93/03/14 16:49:16 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:18:49 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:37:47 greyhelm * Added RCS headers - Karl Hagen * */ /* defaults */ int etu_per_update = 24; /* # of etu's to perform per update */ int sec_per_etu = 1200; /* seconds per Empire time unit */ double fgrate = 0.0012; /* food growth rate (dt * fert) */ double fcrate = 0.0013; /* food cultivate rate (dt * workforce) */ double eatrate = 0.0010; /* food eating rate (dt * people) */ double babyeat = 0.0120; /* food to mature 1 baby into a civilian */ /* values > 0.25 for either will overflow */ double obrate = 0.005; /* other sectors birth rate */ double uwbrate = 0.0025; /* uncompensated worker birth rate */ double bankint = 0.3; int ver_max_x, ver_max_y; float level_age_rate = 0.01; /* WARNING, these values are not the real ones ! */ int sect_mob_max = 127; /* sector mobility limits */ int sect_mob_gain = 32; int ship_mob_max = 127; /* ship mobility limits */ int ship_mob_gain = 32; int ship_eff_gain = 100; int plane_mob_max = 127; /* plane mobility limits */ int plane_mob_gain = 32; int plane_eff_gain = 100; int land_mob_max = 127; /* landunit mob. limit */ int land_mob_gain = 32; int land_eff_gain = 100; double money_civ = 0.0083333; double money_uw = 0.0037777; double money_mil = -0.0833333; double money_res = -0.0083333; double money_plane = -0.001; double money_ship = -0.001; double money_land = -0.001; xemp5.1-beta/lib/misc/goto.c100444 12266 2116 3200 6023770726 14252 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/misc/RCS/goto.c,v 5.2 1995/09/08 07:27:53 jpo Exp $ $Date: 1995/09/08 07:27:53 $ $Author: jpo $ $Id: goto.c,v 5.2 1995/09/08 07:27:53 jpo Exp $ $Locker: $ $Log: goto.c,v $ Revision 5.2 1995/09/08 07:27:53 jpo const * Revision 5.1 93/03/14 16:49:17 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:18:49 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:37:47 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" typedef enum { GOTO_SCT, GOTO_SHIP, GOTO_FLEET, GOTO_FERRY, GOTO_PLANE, GOTO_WING, GOTO_COND } GotoMode; static GotoMode last_mode = GOTO_SCT; void GotoCond () { int x, y; int nr; char mode; char * ans, * ptr; Sector sct; static char * cur_cond = (char *) 0; if (cur_cond == (char *) 0) { ans = InputAtMessage ("Goto: ", 20, GS_TEXT); if (ans == (char *) 0 || interrupt || * ans == '\0') { interrupt = False; ClearMes (); return; } if (sscanf (ans, " %d , %d ", & x, & y) == 2 || sscanf (ans, " %d %d ", & x, & y) == 2) { sct = World (x, y, S_DESIG); if (cursct == (Sector) 0) { Message ("Illegal sector specification"); Bell (); return; } last_mode = GOTO_SCT; cursct = sct; CensusSct (cursct); return; } SkipBlank ((ConstVP)& ptr); if (sscanf (ans, " %c %d ", & mode, & nr) == 2) { switch (mode) { case 's': case 'f': case 'p': case 'w': case 'F': break; } } } } xemp5.1-beta/lib/misc/highl.c100444 12266 2116 10100 6023770726 14412 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/misc/RCS/highl.c,v 5.2 1995/09/08 07:27:57 jpo Exp $ $Date: 1995/09/08 07:27:57 $ $Author: jpo $ $Id: highl.c,v 5.2 1995/09/08 07:27:57 jpo Exp $ $Locker: $ $Log: highl.c,v $ Revision 5.2 1995/09/08 07:27:57 jpo added new temporary highlight command redone the default ones so they make sense * Revision 5.1 93/03/14 16:49:19 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:18:49 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:37:47 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "func.h" #include "var.h" #include "ship.h" #include "parser.h" #define NR_HIGHLSTR 10 static const char *highl_str [NR_HIGHLSTR]; static Stack cur_highl; void InitHighlight () { highl_str [0] = Str ("threshold(food) == 0 && des=w"); highl_str [1] = Str ("t(food) == 0"); highl_str [2] = Str ("iron > 1"); highl_str [3] = Str ("food < 25"); highl_str [4] = Str ("r(oil) > 20"); highl_str [5] = Str ("lcm > 1"); highl_str [6] = Str ("hcm > 1"); highl_str [7] = Str ("resource(dust) > 20"); highl_str [8] = Str ("r(iron) > 80"); highl_str [9] = Str ("r(ura) > 20 ; Nuke 'em all to death!"); cur_highl = (Stack) 0; } void ReadHighlight (fp) FILE *fp; { char buffer [BUFSIZ]; int i; for (i = 0; ; i++) if (fgets (buffer, BUFSIZ, fp) != (char *) 0) { if (strncmp (buffer, "END OF HIGHLIGHT LIST", 21) == 0) break; buffer [strlen (buffer) - 1] = '\0'; /* no newline */ if (i < NR_HIGHLSTR) { if (highl_str [i] != (char *) 0) free (highl_str [i]); highl_str [i] = Str (buffer); } } else break; while (i < NR_HIGHLSTR) if (highl_str [i] == (char *) 0) highl_str[i++] = Str (""); cur_highl = (Stack) 0; } void SaveHighlight (fp) FILE *fp; { int i; for (i = 0; i < NR_HIGHLSTR; i++) fprintf (fp, "%s\n", highl_str [i]); fprintf (fp, "END OF HIGHLIGHT LIST\n"); } bool HighlightSector (sct) Sector sct; { if (cur_highl == (Stack) 0) return False; return EvaluateExpression (sct, cur_highl) != 0.0; } #ifdef TERMC_VERSION #define HL_MAX_X 70 #else /* X_VERSION */ #define HL_MAX_X 80 #endif /* VERSION */ void SetHighlight () { Strings strings; Pager pager; int i; Stack tmp; int func; char *new; extern WinInfo empire_win; strings = InitStrings (); AddStringsID (strings, (ConstVP)highl_str, NR_HIGHLSTR, 0); pager = InitPager (strings, Fmt ("%-*.*s", HL_MAX_X - 4, HL_MAX_X - 4, "New highlight ?")); AddPagerFunc (pager, "No highlight", NONEFUNC); AddPagerFunc (pager, "Write", WRITEFUNC); SetPagerButtons (pager, "Select", "Cancel", "Change"); SetPagerButtonIDs (pager, DEFAULTFUNC, DONEFUNC, NEWFUNC); #ifdef TERMC_VERSION MapPagerFromTop (pager, census_win, 3, screen_rows - 4); #else /* X_VERSION */ MapPagerFromTop (pager, empire_win, 0, 0); #endif /* VERSION */ for (;;) { i = PagerMenuFunc (pager, & func, (int *) 0); if (i < 0 || func == NONEFUNC || func == DONEFUNC || func == CANCEL) break; if (func == NEWFUNC) /* change highlight */ { do { new = InputPagerLine (pager, i); if (interrupt) { interrupt = False; FreePager (pager); FreeStrings (strings); return; } if (new == (char *) 0 || *new == '\0') break; tmp = ParseExpression (new); } while (tmp == (Stack) 0); if (new == (char *) 0 || *new == '\0') { ShowPagerLine (pager, i); continue; } else { free (highl_str [i]); highl_str [i] = Str (new); } } break; } FreePager (pager); FreeStrings (strings); if (func == NONEFUNC) DestroyExpression (& cur_highl); else if (i >= 0 && func != DONEFUNC && func != CANCEL) { tmp = ParseExpression (highl_str [i]); if (tmp != (Stack) 0) { DestroyExpression (& cur_highl); cur_highl = tmp; } } DrawMap (); } void ExprHighlight (expr) Stack expr; { if (expr != (Stack) 0) { DestroyExpression (& cur_highl); cur_highl = expr; } } xemp5.1-beta/lib/misc/hpux.c100444 12266 2116 2651 6023770727 14300 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/misc/RCS/hpux.c,v 5.1 1993/03/14 16:49:20 etienne Exp $ $Date: 1993/03/14 16:49:20 $ $Author: etienne $ $Id: hpux.c,v 5.1 1993/03/14 16:49:20 etienne Exp $ $Locker: $ $Log: hpux.c,v $ Revision 5.1 1993/03/14 16:49:20 etienne *** empty log message *** * Revision 5.0 93/02/06 09:18:49 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:37:47 greyhelm * Added RCS headers - Karl Hagen * */ #ifndef lint static char *RCSid = "$Header: /nexor/users/jpo/xemp/xemp5.0/lib/misc/RCS/hpux.c,v 5.1 1993/03/14 16:49:20 etienne Exp $"; #endif /* * hpux.c * * hpux dependencies * */ #ifdef HPUX #include #define NULL 0 char * rindex(sp, c) register char *sp; register int c; { register char *r; r = NULL; do { if (*sp == c) r = sp; } while (*sp++); return r; } char * index(sp, c) register char *sp; register int c; { do { if (*sp == c) return (sp); } while (*sp++); return NULL; } int ffs(mask) register unsigned mask; { register unsigned bit; register int i; if (mask == 0) return 0; for (bit=1, i=1; i <= 32; i++, bit <<= 1) if (mask & bit) return i; return 0; } bzero(ptr, len) char *ptr; int len; { memset(ptr, 0, len); } bcopy(src, dst, len) char *src; char *dst; int len; { memcpy(dst, src, len); } #endif xemp5.1-beta/lib/misc/info.c100444 12266 2116 20461 6027322746 14264 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/misc/RCS/info.c,v 5.5 1995/09/18 17:01:26 jpo Exp $ $Date: 1995/09/18 17:01:26 $ $Author: jpo $ $Id: info.c,v 5.5 1995/09/18 17:01:26 jpo Exp $ $Locker: $ $Log: info.c,v $ Revision 5.5 1995/09/18 17:01:26 jpo Added budget Revision 5.4 1995/09/13 07:09:11 jpo Add power command Revision 5.3 1995/09/08 07:28:34 jpo const Revision 5.2 1995/08/04 06:55:42 jpo fixed up strings for remote case * Revision 5.1 93/03/14 16:49:22 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:18:49 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:37:47 greyhelm * Added RCS headers - Karl Hagen * */ #include #ifdef DIRENT_INSYS #include #else #include #endif /* * or (mta) * #include */ #include #include #include "type.h" #include "main.h" #include "func.h" static char * xemp_info_dir = XEMPINFO; #ifdef EMPINFO static char *emp_info_dir = EMPINFO; #endif EMPINFO #define OWN 0 #define ENEMY 1 bool local_info = True; Strings ListDir (dir) char *dir; { Strings strings; FILE *fp; char buffer[BUFSIZ]; strings = InitStrings (); fp = popen (Fmt ("/bin/ls -C %s", dir), "r"); if (fp == (FILE *) 0) AddString (strings, "couln't not execute /bin/ls"); else if (fgets (buffer, BUFSIZ, fp) == (char *) 0 #ifdef EMPINFO || strncmp (buffer, emp_info_dir, strlen (dir)) == 0 #endif EMPINFO ) { AddString (strings, Fmt ("couldn't not list %s", dir)); pclose (fp); } else { do AddString (strings, DelNewline (DelTabs (buffer))); while (fgets (buffer, BUFSIZ, fp) != (char *) 0); pclose (fp); } return strings; } /* ARGSUSED */ Strings FileToStrings (x, y, filename) int x, y; const char *filename; { Strings strings; FILE *fp; const char *p; char *ptr, buffer[BUFSIZ]; int len; bool first_pass; strings = InitStrings (); p = strrchr (filename, '/'); if (p == (char *) 0) p = filename; else p++; if ((fp = fopen (filename, "r")) == (FILE *) 0) AddString (strings, Fmt ("No info on %s", p)); else { if (fgets (buffer, BUFSIZ, fp) == (char *) 0) AddString (strings, Fmt ("No info on %s", p)); else do { ptr = DelControl ( DelNewline (DelTabs (buffer))); len = strlen (ptr); first_pass = True; while (len > 0 || first_pass) { first_pass = False; if (len > 80) AddString (strings, Fmt ("%.80s", ptr)); else AddString (strings, ptr); ptr += 80; len -= 80; } } while (fgets (buffer, BUFSIZ, fp) != (char *) 0); fclose (fp); } return strings; } void InfoFile (x, y, file, iscom) int x, y; const char *file; bool iscom; { Pager pager; Strings strings; const char *com; if (iscom) { if ((com = strrchr (file, '/')) == (char *) 0) com = file; else com++; } else com = file; strings = FileToStrings (x + 2, y + 2, file); #ifdef X_VERSION pager = InitPager (strings, Fmt ("info %s", com)); AddPagerFunc (pager, "Write", WRITEFUNC); if (iscom) AddPagerFunc (pager, "New", NEWFUNC); AddPagerFunc (pager, "Done", DONEFUNC); MapPager (pager, map_win, x, y, True, True); AddPagerToWMList (pager); #else ShowStringsInPager (strings, Fmt ("info %s", com)); #endif /* VERSION */ } bool InfoDir (x, y, dir, header) int x, y; char * dir, * header; { Strings strings; Pager pager; bool cont = True; int func; char *entry, *buf; struct stat stat_ent; strings = ListDir (dir); pager = InitPager (strings, header); AddPagerFunc (pager, "Done", DONEFUNC); MapPagerFromTop (pager, map_win, x, y); for (;;) { if ((buf = PagerMulti (pager, & func)) == (char *) 0) { if (func == CANCEL) cont = True; else /* (func == CANCELALL || func == DONEFUNC) */ cont = False; break; } buf = Str (buf); entry = Str (Fmt ("%s/%s", dir, buf)); if (stat (entry, & stat_ent) < 0) { Message (Fmt ("Can't stat %s !!", entry)); Bell (); free (buf); free (entry); continue; } if ((stat_ent. st_mode & S_IFDIR) == S_IFDIR) { /* directory */ if (! InfoDir (x + 2, y + 2, entry, header)) { cont = False; free (entry); free (buf); break; } } else InfoFile (x + 2, y + 2, entry, False); free (entry); free (buf); } FreePager (pager); FreeStrings (strings); return cont; } void XempInfo (x, y) int x, y; { char *ptr; if ((ptr = getenv ("XEMPINFO")) != (char *) 0) xemp_info_dir = ptr; (void) InfoDir (x, y, xemp_info_dir, "xemp/tcemp info"); } void EmpInfo (x, y) int x, y; { Strings strings; Pager pager; char *buf, *ptr; int func; #ifdef EMPINFO if (! local_info) { #endif /* EMPINFO */ FeedEmpire ("info", PRINT); SkipNLines (1, DONT_PRINT); PrintAtEmpire ("Empiretool: scanning info"); strings = InitStrings (); ReadEmpireStrings (strings); #ifdef EMPINFO } else { if ((ptr = getenv ("EMPINFO")) != (char *) 0) emp_info_dir = ptr; strings = ListDir (emp_info_dir); } #endif /* EMPINFO */ pager = InitPager (strings, "Info Empire"); AddPagerFunc (pager, "Write", WRITEFUNC); AddPagerFunc (pager, "Done", DONEFUNC); MapPagerFromTop (pager, map_win, x, y); for (;;) { if ((buf = PagerMulti (pager, &func)) == (char *) 0) break; #ifdef EMPINFO if (! local_info) { #endif /* EMPINFO */ Strings str; ptr = Fmt ("info %s", buf); FeedEmpire (ptr, PRINT); str = InitStrings (); ReadEmpireStrings (str); #ifdef X_VERSION InitWMPager (str, ptr); #else ShowStringsInPager (str, ptr); #endif /* X_VERSION */ FreeStrings (str); #ifdef EMPINFO } else InfoFile (x + 2, y + 2, Fmt ("%s/%s", emp_info_dir, buf), True); #endif /* EMPINFO */ } FreePager (pager); FreeStrings (strings); } #define XINFO_INFOCOMS 0 #define EINFO_INFOCOMS 1 #define SHOWNATION 2 #define SHOWPOWER 3 #define SHOWBUDGET 4 #define SHIPSCB 5 #define PLANESCB 6 #define LANDCSB 7 #define PLANELIST 8 #define SHIPLIST 9 #define LANDLIST 10 #define ENEMYSHIPS 11 #define ENEMYUNIT 12 #define ENEMYPLANE 13 #define CHINF_INFOCOMS 14 #ifdef EMPINFO #define MAX_INFOCOMS 15 #else #define MAX_INFOCOMS 14 #endif /* EMPINFO */ static const char *info_menu [] = { "Xemp info", "Empire info", "nation", "power", "budget", "ships cap & build", "planes cap & build", "land cap, stat, & build", "list of planes", "list of ships", "list of land units", "list of enemy ships", "list of enemy units", "list of enemy planes", #ifdef EMPINFO "get info from host (now local)", #endif /* EMPINFO */ (char *) 0 }; void InfoCommands (x, y) int x, y; { Strings strings; Pager pager; int r, func; strings = InitStrings (); AddStringsID (strings, info_menu, MAX_INFOCOMS, 0); pager = InitPager (strings, "Empire Info commands"); #ifdef EMPINFO if (! local_info) ChangeString (strings, CHINF_INFOCOMS, "get info local (now from host)"); #endif EMPINFO MapPagerFromTop (pager, map_win, x, y); for (;;) { r = PagerMenuFunc (pager, & func, (int *) 0); if (func == CANCEL || func == CANCELALL || r < 0) break; switch (r) { #ifdef EMPINFO case CHINF_INFOCOMS: if (local_info) ChangeString (strings, CHINF_INFOCOMS, "get info local (now from host)"); else ChangeString (strings, CHINF_INFOCOMS, "get info from host (now local)"); local_info = ! local_info; ShowPagerLine (pager, r); continue; #endif /* EMPINFO */ case XINFO_INFOCOMS: XempInfo (x + 2, y + 2); break; case EINFO_INFOCOMS: EmpInfo (x + 2, y + 2); break; case SHOWNATION: ShowNation (); break; case SHOWPOWER: DisplayPower (); break; case SHOWBUDGET: DoBudget (); break; case SHIPSCB: PageShowShipCBs (); break; case PLANESCB: PageShowPlaneCBs (); break; case PLANELIST: ListPlanes (x + 2, y + 2); break; case ENEMYPLANE: /* ListPlanes (x + 2, y + 2); */ break; case SHIPLIST: ListShips (x + 2, y + 2, OWN); break; case ENEMYSHIPS: ListShips (x + 2, y + 2, ENEMY); break; case LANDLIST: ListLand (x + 2, y + 2, OWN); break; case ENEMYUNIT: ListLand (x + 2, y + 2, ENEMY); break; case LANDCSB: PageShowLandCSBs (); break; } } FreePager (pager); FreeStrings (strings); return; } xemp5.1-beta/lib/misc/item.c100444 12266 2116 7061 6023770727 14252 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/misc/RCS/item.c,v 5.2 1995/09/08 07:28:46 jpo Exp $ $Date: 1995/09/08 07:28:46 $ $Author: jpo $ $Id: item.c,v 5.2 1995/09/08 07:28:46 jpo Exp $ $Locker: $ $Log: item.c,v $ Revision 5.2 1995/09/08 07:28:46 jpo const * Revision 5.1 93/03/14 16:49:23 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:18:49 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:37:47 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "var.h" #include "sector.h" /* * just copy from lib/global/item.c and shorten the names * so did I (I only added an unnessecary static) */ static struct ichrstr ichr[I_MAX+2] = { /* mnem vtype val sell lbs rg,wh,ur,bnk name */ '?', 0, 0, 0, 0, 0, 0, 0, 0, "unused", 'c', V_CIVIL, 1, 0, 1, 1, 1,10, 1, "civilians", 'm', V_MILIT, 0, 0, 1, 1, 1, 1, 1, "military", 's', V_SHELL, 5, 1, 1, 1,10, 1, 1, "shells", 'g', V_GUN, 60, 1, 10,1,10, 1, 1, "guns", 'p', V_PETROL, 4, 1, 1, 1,10, 1, 1, "petrol", 'i', V_IRON, 2, 1, 1, 1,10, 1, 1, "iron ore", 'd', V_DUST, 20, 1, 5, 1,10, 1, 1, "dust (gold)", 'b', V_BAR, 280, 1, 50,1, 5, 1, 1, "bars of gold", 'f', V_FOOD, 0, 1, 1, 1,10, 1, 1, "food", 'o', V_OIL, 8, 1, 1, 1,10, 1, 1, "oil", 'l', V_LCM, 2, 1, 1, 1,10, 1, 1, "light products", 'h', V_HCM, 4, 1, 1, 1,10, 1, 1, "heavy products", 'u', V_UW, 1, 1, 2, 1, 1, 1, 1, "uncomp. workers", 'r', V_RAD, 150, 1, 8, 1,10, 1, 1, "rad. materials", '\0', 0, 0, 0, 0, 0, 0, 0, 0, 0, }; const char *ItemName (i) int i; { return ichr [i]. i_name; } char ItemChar (i) int i; { return ichr [i]. i_mnem; } int CharToItem (ch) char ch; { register int i; for (i = 1; ichr [i]. i_mnem != '\0'; i++) if (ch == ichr [i]. i_mnem) return i; return -1; } double ItemWeight (i, pck) int i; int pck; { return (((double) ichr [i]. i_lbs) / ((double) ichr [i]. i_pkg [pck])); } int SelectItem (x, y, quest) int x, y; const char *quest; { int i; Pager pager; Strings strings; strings = InitStrings (); for (i = 1; ichr [i]. i_mnem != '\0'; i ++) AddStringID (strings, ichr [i]. i_name, i); pager = InitPager (strings, quest); MapPagerFromTop (pager, map_win, x, y); i = PagerMenu (pager); FreePager (pager); FreeStrings (strings); return i; } int SelectSellItem (x, y, quest) int x, y; const char *quest; { int i; Pager pager; Strings strings; strings = InitStrings (); for (i = 1; ichr [i]. i_mnem != '\0'; i ++) if ((ichr [i]. i_sell == 1) && (GiveQuant (cursct, ichr [i]. i_mnem) > 0)) AddStringID (strings, ichr [i]. i_name, i); if (StringsSize (strings) == 0) { FreeStrings (strings); return 0; } pager = InitPager (strings, quest); MapPagerFromTop (pager, map_win, x, y); i = PagerMenu (pager); FreePager (pager); FreeStrings (strings); return i; } int SelectAvaItem (x, y, sct, quest) int x, y; Sector sct; const char *quest; { int i; Pager pager; Strings strings; strings = InitStrings (); for (i = 1; ichr [i]. i_mnem != '\0'; i ++) if (GiveQuant (sct, ichr [i]. i_mnem) > 0) AddStringID (strings, ichr [i]. i_name, i); if (StringsSize (strings) == 0) { FreeStrings (strings); return 0; } pager = InitPager (strings, quest); MapPagerFromTop (pager, map_win, x, y); i = PagerMenu (pager); FreePager (pager); FreeStrings (strings); return i; } xemp5.1-beta/lib/misc/main.c100644 12266 2116 47267 6036146271 14271 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/misc/RCS/main.c,v 5.5 1995/09/21 07:41:33 jpo Exp jpo $ $Date: 1995/09/21 07:41:33 $ $Author: jpo $ $Id: main.c,v 5.5 1995/09/21 07:41:33 jpo Exp jpo $ $Locker: jpo $ $Log: main.c,v $ Revision 5.5 1995/09/21 07:41:33 jpo Reorder break sanctuary stuff Revision 5.4 1995/09/20 07:51:12 jpo Change so you can leave passwd/country blank in .xemprc for one country. Revision 5.3 1995/09/19 06:50:21 jpo Added some bits for later Revision 5.2 1995/09/08 07:29:02 jpo const * Revision 5.1 93/03/14 16:49:24 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:18:49 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:37:47 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "xrc.h" #include "sector.h" #include "nation.h" #include "version.h" #ifdef X_VERSION #define OPTIONS "DZz:BFRS:NTsu:t:E:M:C:l:h:p:f:b:rm:nW:12345" #else /* TERMC_VERSION */ #define OPTIONS "c:DZz:BFRS:NTsu:t:M:C:l:h:p:rm:nW:E:12345" #endif /* VERSION */ bool reversed = False; bool deity = False; bool util_mode = False; bool silent_mode; bool bbn_version = False; bool chainsaw_version = False; bool land_units = False; bool other_version = False; bool market = False; bool budget = True; bool trade = False; bool connecting = False; bool bold_is_reversed = False; bool deity_mode = False; #ifdef KSU bool ksu_version = True; #else bool ksu_version = False; #endif bool emp3server = False; int savedbits; XRC xrc; /* mta Sun Jan 6 19:24:29 EET 1991 * no food on blitz games, see how it works */ bool no_food = False; int nr_realms = NR_REALMS; bool tersemode = False; bool no_empwin; Sector **world; Sector cursct; Ship curship; Land curland; Plane curplane; Nuke curnuke; int curnuketype; char curwing; char *host; int command_state; int scanning_satellites = 0; /* kludge to make satellite's work */ int max_mil = MAX_MIL; int max_comm = MAX_COMM; int max_civ_uw = MAX_CIV_UW; int MAX_X = DEF_MAX_X, MAX_Y = DEF_MAX_Y; char *mappart = "#", *allships = "*", * allplanes = "*", * dumppart, * alllands = "*"; char *offset_country; WinInfo root_win; void SaveTillPrompt (); void PrintSaved (); static void Usage () { fprintf (stderr, "Usage : %s options country name\n", progname); fprintf (stderr, "Options :\n"); fprintf (stderr, "-Z (no starve checking, mainly used in BlitZ)\n"); fprintf (stderr, "-z realms (number of realms if not default)\n"); fprintf (stderr, "-M NxM (mapwindow size)\n"); fprintf (stderr, "-E NxM (empirewindow size)\n"); fprintf (stderr, "-l logfile\n"); fprintf (stderr, "-h host\n"); fprintf (stderr, "-p port\n"); fprintf (stderr, "-R reverse highlighted sectors\n"); fprintf (stderr, "-m mappart (used in initial scan)\n"); fprintf (stderr, "-n (nodump lookout, coastwatch)\n"); fprintf (stderr, "-N (Make No connection)\n"); fprintf (stderr, "-B (buffer commands)\n"); fprintf (stderr, "-F (force buffering of commands)\n"); fprintf (stderr, "-t connect timeout\n"); fprintf (stderr, "-S savelines\n"); fprintf (stderr, "-u util\n"); fprintf (stderr, "-T (silent connect after timeout)\n"); fprintf (stderr, "-W NxM (worldsize)\n"); fprintf (stderr, "-C country (deity only)\n"); #ifdef X_VERSION fprintf (stderr, "\nX options:\n\n"); fprintf (stderr, "-f normal font\n"); fprintf (stderr, "-b bold font\n"); #else /* TERMC_VERSION */ fprintf (stderr, "\nTermcap options:\n\n"); fprintf (stderr, "-c capabilities\n"); fprintf (stderr, "-E (no empire window)\n"); #endif /* VERSION */ exit (1); } void main (argc, argv) int argc; char **argv; { char * ptr; int ch; char *empsize; char *mapsize; char *font, *bfont; char *port; char *logfile; char *util; bool nodump = False; int map_inc_height = 0; int map_inc_width = 0; int emp_inc_height = 0; bool retrieved, bin_dump_only; int i; int N, M; int tobe_state; bool cont; char * ans; int savelines; #ifdef TERMC_VERSION char * hs1 = (char *) 0, * he1 = (char *) 0, * hs2 = (char *) 0, * he2 = (char *) 0; static char hl_buf [4][10]; #endif TERMC_VERSION int skip; extern int optind, getopt (); extern char *optarg; extern unsigned con_timeout; extern bool silent_con; extern bool buffer_commands; extern bool buffer_move; srand (getpid ()); /* for the updates */ /* Search country name */ /* Incorrect, but it will work (I hope) */ skip = False; for (i = 1; i < argc; i ++) { if (argv [i][0] != '-') { if (! skip) { cname = argv [i]; break; } skip = False; } else { skip = False; ptr = index (OPTIONS, argv [i][1]); if (ptr == (char *) 0) continue; if (* (ptr + 1) == ':') skip = True; } } ReadRc (); progname = argv[0]; connecting = False; pname = xrc. player; if (xrc. country != (char *) 0) cname = xrc. country; bin_dump_only = False; empsize = xrc. emp_win_size; mapsize = xrc. map_win_size; offset_country = (char *) 0; font = xrc. normal_font; bfont = xrc. bold_font; logfile = (char *) 0; host = xrc. host; port = xrc. port; util = (char *) 0; silent_mode = xrc. silent_timeout; reversed = 0; command_state = STARTUP_STATE; tobe_state = xrc. buffering; con_timeout = xrc. timeout; savelines = xrc. savelines == (char *) 0 ? EMPIRE_SAVEL : atoi (xrc. savelines); no_empwin = False; #ifdef TERMC_VERSION if (xrc. capab != (char *) 0) { if (sscanf (xrc. capab, "%[^:]:%[^:]:%[^:]:%[^:]", hl_buf [0], hl_buf [1], hl_buf [2], hl_buf [3]) != 4) { fprintf (stderr, "Error in .xemprc\n"); fprintf (stderr, "Wrong format for capabilities.\n"); fprintf (stderr, "Usage: Capab=cc:cc:cc:cc\n"); exit (-1); } hs1 = hl_buf [0]; he1 = hl_buf [1]; hs2 = hl_buf [2]; he2 = hl_buf [3]; } #endif /* TERMC_VERSION */ if (xrc. worldsize != (char *) 0) { if (sscanf (xrc. worldsize, "%d x %d", & N, & M) != 2) { fprintf (stderr, "Usage: WORLDSIZE= # x #\n"); exit (); } MAX_X = N, MAX_Y = M; } init_opt (argc, argv); while ((ch = next_opt ()) != '\0') switch (ch) { case 'Z': no_food = True; break; case 'z': nr_realms = atoi(next_arg ()); break; case 'M': mapsize = next_arg (); break; case 'l': /* logfile */ logfile = next_arg (); break; case 'h': host = next_arg (); break; case '1': ksu_version = True; other_version = False; bbn_version = True; chainsaw_version = False; fprintf(stderr,"KSU/BBN Enabled!\n"); break; case '2': bbn_version = True; other_version = False; ksu_version = True; chainsaw_version = False; fprintf(stderr,"KSU/BBN Enabled!\n"); break; case '3': chainsaw_version = True; other_version = False; bbn_version = True; ksu_version = True; fprintf(stderr,"KSU/BBN/Chainsaw Enabled!\n"); break; case '4': other_version = True; chainsaw_version = False; bbn_version = True; ksu_version = True; fprintf(stderr,"KSU/BBN/ALBERTA Enabled!\n"); break; case '5': chainsaw_version = True; land_units = True; other_version = False; bbn_version = True; ksu_version = True; fprintf(stderr,"Chainsaw Land Units Enabled!\n"); break; case 'p': port = next_arg (); break; #ifdef X_VERSION case 'b': /* bold font */ bfont = next_arg (); break; case 'f': /* normal font */ font = next_arg (); break; case 'E': empsize = next_arg (); break; #endif /* X_VERSION */ case 'm': mappart = next_arg (); break; case 'r': reversed = True; break; #ifdef TERMC_VERSION case 'E': no_empwin = True; break; case 'c': if (sscanf (next_arg (), "%[^:]:%[^:]:%[^:]:%[^:]", hl_buf [0], hl_buf [1], hl_buf [2], hl_buf [3]) != 4) { fprintf (stderr, "Wrong format for capabilities.\n"); fprintf (stderr, "Usage: -c \"s:s:s:s\"\n"); exit (-1); } hs1 = hl_buf [0]; he1 = hl_buf [1]; hs2 = hl_buf [2]; he2 = hl_buf [3]; break; #endif /* TERMC_VERSION */ case 'R': bold_is_reversed = True; break; case 'n': nodump = True; break; case 'N': bin_dump_only = True; break; case 'T': silent_con = True; break; case 'S': savelines = atoi (next_arg ()); if (savelines < 0) { fprintf (stderr, "-S savelines must be >= 0\n"); Usage (); } break; case 't': con_timeout = atoi (next_arg ()); break; case 'u': util_mode = True; util = next_arg (); break; case 'C': offset_country = next_arg (); break; case 'B': tobe_state = BUFFER_STATE; break; case 'F': tobe_state = FORCE_BUF_STATE; break; case 'D': deity_mode = True; break; case 'W': ptr = next_arg (); if (! ScanDigit ((ConstVP)& ptr, &N) || * ptr ++ != 'x' || ! ScanDigit ((ConstVP)& ptr, &M)) Usage (); MAX_X = N, MAX_Y = M; break; default: Usage (); /* NOTREACHED */ break; } if (MAX_X % 2 == 1 || MAX_Y % 2 == 1) { fprintf (stderr, "Bad Worldsize specified : %dx%d\n", MAX_X, MAX_Y); fprintf (stderr, "Must be multiple of 2\n"); Usage (); } /* XXX: Need to check this !!! */ if (cname == (char *) 0 || *cname == '\0') cname = check_arg (); if (pname == (char *) 0 || *pname == '\0') pname = check_arg (); /* Greyhelm - re-write of Scan for Version to make it get WorldSize from game ... so players do not have to worry about the size. */ /* Etienne - yep, but only if we want to connect, else dont. should add something, to get worldsize from savefile then (or always, will give you some problems, if this does not correspnd */ if (! InitClient (host, port, logfile)) exit (1); if (! bin_dump_only) { connecting = True; if (! HostConnect () || ! Login ()) FastQuit (); SaveTillPrompt (); connecting = False; FScanVersion (); FScanCommandlist (); } /* * Parse the argument of -M */ if (mapsize != (char *) 0) { printf ("Parsing the argument of '-M'\n"); ptr = mapsize; if (*ptr == '-' || *ptr == '+') { ptr ++; if (! ScanDigit ((ConstVP)& ptr, & map_inc_height)) { fprintf (stderr, "%s%s\n", "Illegal map format, ", "usage -M [+-]width x [+-]height"); Usage (); } } else { (void) ScanDigit ((ConstVP)& ptr, & map_inc_height); map_inc_height -= MAP_HEIGHT; } if (MAP_HEIGHT + map_inc_height < MAP_HEIGHT) { fprintf (stderr, "%s%d high.\n", "MapWindow too small, should be at least ", CENSUS_HEIGHT); exit (1); } if (*(ptr ++) != 'x') { fprintf (stderr, "Illegal map format, %s\n", "usage -M [+-]width x [+-]height"); Usage (); } if (*ptr == '-' || *ptr == '+') { ptr ++; (void) ScanDigit ((ConstVP)& ptr, & map_inc_width); } else { (void) ScanDigit ((ConstVP)& ptr, & map_inc_width); map_inc_width -= MAP_WIDTH; } /* don't allow map window to exceed world size!! */ if ( map_inc_width + MAP_WIDTH > MAX_X ) map_inc_width = MAX_X + 4 - MAP_WIDTH; if ( map_inc_height + MAP_HEIGHT > MAX_Y ) map_inc_height = MAX_Y +4 - MAP_HEIGHT; } /* * Parse the argument of -E */ if (empsize != (char *) 0) { /* printf ("Parsing the argument of '-E'\n"); */ ptr = empsize; if (*ptr == '-' || *ptr == '+') { ptr ++; (void) ScanDigit ((ConstVP)& ptr, & emp_inc_height); } else { (void) ScanDigit ((ConstVP)& ptr, & emp_inc_height); emp_inc_height -= EMPIRE_HEIGHT; } } world = MallocWorld (); cursct = World (0, 0, S_DESIG); #ifdef X_VERSION if ((host == NULL) && (getenv("EMPIREHOST"))) { host = getenv("EMPIREHOST"); } else { if (host == NULL) host = EMPIREHOST; } sprintf(windowname,"xemp %s@%s",cname,host); #endif if (! bin_dump_only) { /* dump 0,0 to see if you are deity or not */ /* besides, cursct is set to 0,0 you want info on it * any way (except it might be dump twice now */ (void) FScanDump ("0,0", DONT_PRINT); } SetSignalsOn (); /* erase, kill & interrupt char */ GetSpecialChars (); if (! util_mode) { #ifdef X_VERSION /* * initialize the X-server with the fonts (normal & bold) */ InitX (font, bfont); #else InitTermc (hs1, he1, hs2, he2); #endif root_win = OpenBaseWindow (xrc. startup_x, xrc. startup_y, ROOT_WIDTH + map_inc_width, ROOT_HEIGHT + map_inc_height + emp_inc_height); InitEmpire (map_inc_height, map_inc_width, emp_inc_height, savelines); InitMap (map_inc_width, map_inc_height); SetDefaultCursor (root_win, CR_HJV); InitMessage (map_inc_width); InitCensus (); ShowVersion (); WaitRefresh (False); CheckRefreshEvents (); } if (! bin_dump_only) { FeedEmpire ("", DONT_PRINT); (void) WaitForPrompt (PRINT); } InitNation (); /* * As god, you can use the offset (-C) option * to start with your coordinates as a certain country. */ if (offset_country != (char *) 0) { if (! SetOffset (offset_country)) offset_country = (char *) 0; } if (offset_country == (char *) 0) { /* * Try to retrieve the data. When there's no data-file, * the country could be still in sanctury. Check that * first, after that, initialize. */ retrieved = RetrieveData (bin_dump_only); } else retrieved = False; if (! retrieved && bin_dump_only) { fprintf (stderr, "No/Bad savefile, for -N\n"); leave (); } BinRestAll (); if (BufferdCommands ()) { cont = True; do { interrupt = False; ans = InputAtMessage ( "You still have buffered commands, keep them [yns]: ", 1, "yns"); if (ans == (char *) 0 || interrupt || * ans == '\0') Bell (); else if (* ans == 's') ShowBufCommands (10, 10); else cont = False; } while (cont); if (* ans == 'n') DeleteBufCommands (); } if (! bin_dump_only) { FeedBufCommands (); if (! retrieved || ver_max_x == 0) { FeedEmpire ("", DONT_PRINT); (void) WaitForPrompt (PRINT); FScanBuildBridge (); } if (ver_max_x != MAX_X || ver_max_y != MAX_Y) { fprintf (stderr, "%s %dx%d instead of %dx%d\n", "Version reports worldsize of", ver_max_x, ver_max_y, MAX_X, MAX_Y); fprintf (stderr, "Restart : %s -W %dx%d\n", progname, ver_max_x, ver_max_y); leave (); } if (my_cnum == UNKNOWN_CNUM) { if (deity_mode) my_cnum = 0; else FindMyCnum (); } if (offset_country != (char *) 0) { dumppart = Fmt ("%s ?own=%d", mappart, CountryId (offset_country)); dumppart = Str (dumppart); allships = Fmt ("* ?own=%d", CountryId (offset_country)); allships = Str (allships); allplanes = Str (Fmt ("* ?own=%d", CountryId (offset_country))); if(land_units) { alllands = Fmt ("* ?own=%d", CountryId (offset_country)); alllands = Str (alllands); } } else if (deity) { dumppart = Fmt ("%s ?des#.", mappart); dumppart = Str (dumppart); } else dumppart = Str (mappart); FScanMap (mappart, PRINT); (void) FScanDump (dumppart, PRINT); } if (! util_mode) EndVersion (); if (s_des (cursct) == 's' && ! deity) { if (util_mode || bin_dump_only) { fprintf (stderr, "Break sanctury first !\n"); leave (); } DrawMap (); ptr = InputAtMessage ("Break sanctury ? ", 3, "yn"); if (*ptr != 'y') { Message ("Break sanctury first"); leave (); } FeedEmpire ("break sanctury", PRINT); (void) WaitForPrompt (PRINT); FeedEmpire ("realm 0 -20:20,-8:8", PRINT); (void) WaitForPrompt (PRINT); NationSetRealm (0, "-20:20,-8:8"); (void) FScanDump (dumppart, PRINT); } if (! bin_dump_only) { if (! retrieved || xrc. rescan_show) { if (! nodump) { FScanShowShipBuild (); FScanShowShipCap (); if (land_units) { FScanShowLandBuild(); FScanShowLandStats(); FScanShowLandCap(); } FScanShowPlaneBuild (); FScanShowPlaneCap (); FScanNukeShowBuild (); FScanNukeShowCap (); } if (! retrieved) { InitHighlight (); InitPlanOptions (); } } CheckDump (); (void) DumpShips (allships, PRINT); FeedEmpire ("", DONT_PRINT); (void) WaitForPrompt (PRINT); (void) DumpPlanes (allplanes, PRINT); if (land_units) { (void) DumpLand (alllands, PRINT); FeedEmpire ("", DONT_PRINT); (void) WaitForPrompt (PRINT); } (void) FScanNukes ("*", DONT_PRINT); if (! nodump) { MarkShips (dumppart); if (xrc. rescan_lookout) FScanLookout (allships); if (land_units) FScanLLookout ("*"); if (xrc. rescan_coastwatch) FScanCoastWatch (dumppart); if (xrc. rescan_satellite) FeedSatellite (); if (xrc. rescan_land_radar) FScanRadar (dumppart); if (xrc. rescan_ship_radar) FeedRadarShips (); if (xrc. rescan_sonar) { FeedEmpire (Fmt ("sonar %s", dumppart), PRINT); ScanLookout (); } DeleteMarkedEnemyShips (); UnmarkAllShips(); if (util == (char *) 0) { FeedEmpire ("", DONT_PRINT); (void) WaitForPrompt (PRINT); FScanReadTels (); if(EMPOption(WIRE)) { FeedEmpire ("", DONT_PRINT); (void) WaitForPrompt (PRINT); FScanReadWirs (); } } } /* read stats from latest production mta Sat Mar 16 16:25:00 EET 1991 */ ReadProduction("-"); FeedEmpire ("", DONT_PRINT); (void) WaitForPrompt (PRINT); FScanNation (); PrintSaved (); FeedEmpire ("", DONT_PRINT); (void) WaitForPrompt (PRINT); } if (offset_country == (char *) 0) save_data = True; inc_mar (cursct); /* can't use SetCurrent */ command_state = tobe_state; if (! util_mode) { Census (); DrawMap (); ResetConTimeout (); MainLoop (); } else { /* * Don't buffer commands when running a * utility */ command_state = NORMAL_STATE; if (strncmp (util, "ferry", 5) == 0) { DoFerryUtil (util + 5); } else if (strncmp (util, "check", 5) == 0) { Check (); } else if (strncmp (util, "ve", 2) == 0) { VeUtil ((char *) 0); } else if (strncmp (util, "prog:", 5) == 0) { UtilRunProg (util + 5); } else if (strncmp (util, "plan", 4) == 0) { UtilPlan (util + 4); } else { fprintf (stderr, "Illegal utility\n"); fprintf (stderr, "\tferry [all|#]\n"); fprintf (stderr, "\tcheckn"); fprintf (stderr, "\tprog:file[:realm]\n"); fprintf (stderr, "\tplan[:sector]\n"); } } leave (); } void AbortClient (flag) int flag; { extern bool disconnecting; if (EmpireStatus () == E_DEAD) { if (disconnecting) return; else leave0 (); } while (EmpireStatus () != E_COMMAND) { FeedEmpire ("aborted", flag); (void) WaitForPrompt (flag); } FeedEmpire ("quit", flag); (void) WaitForPrompt (flag); } void leave () { NoConTimeout (); AbortClient (PRINT); leave0 (); /* NOT REACHED */ } void leave0 () { extern bool dump_core; NoConTimeout (); SetSignalsOff (); CloseConnection (); if (save_data) StoreData (); #ifdef TERMC_VERSION QuitTermc (); #else /* TERMC_VERSION */ QuitX (); #endif /* TERMC_VERSION */ if (dump_core) abort (); else exit (0); } static char *newsbuf[50]; void SaveTillPrompt () { extern WinInfo empire_win; char *ptr; int nlines = 0; static bool first_time = True; nlines = 0; for (;;) { ptr = ReadEmpire (DONT_PRINT); if (ptr == (char *) 0 || EmpireStatus () != E_PRINTING) { newsbuf [nlines] = (char *) 0; first_time = False; return; } if (ptr == (char *) 0) continue; if (! first_time && IsEmpireMessage (ptr)) PrintAtEmpire (ptr); newsbuf [nlines] = Str (ptr); nlines++; } } void PrintSaved () { int nr = 0; bool noprint = False; for (nr = 0; newsbuf [nr] != (char *) 0; nr++) { if (connecting) fprintf (stderr, "%s\n", newsbuf [nr]); else { if (! noprint) PrintAtEmpire (newsbuf [nr]); if (! noprint && nr % (EMPIRE_HEIGHT - 2) == (EMPIRE_HEIGHT - 1)) { if (!EmpireMore ()) noprint = True; } } free (newsbuf[nr]); } } xemp5.1-beta/lib/misc/map.c100444 12266 2116 44714 6023770727 14117 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/misc/RCS/map.c,v 5.2 1995/09/08 07:29:22 jpo Exp $ $Date: 1995/09/08 07:29:22 $ $Author: jpo $ $Id: map.c,v 5.2 1995/09/08 07:29:22 jpo Exp $ $Locker: $ $Log: map.c,v $ Revision 5.2 1995/09/08 07:29:22 jpo highlight expression * Revision 5.1 93/03/14 16:49:27 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:18:49 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:37:47 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "plane.h" #include "sector.h" #include "nation.h" #include "ship.h" #include "land.h" #include "parser.h" #include #include #ifdef HAVE_UNISTD_H #include #endif WinInfo map_win; Stack expr1; /* (Stack) 0 means des (newdes) */ Stack expr2; bool shownewdes1, shownewdes2; bool double_displ; #define OVERLAY_NOTHING 0 #define OVERLAY_SHIPS 1 #define OVERLAY_PLANES 2 #define OVERLAY_UNITS 3 int overlay; /* The map is centered around : */ static int center_x; static int center_y; static int nr_width; /* # of sectors you can display */ static int nr_height; static int firstx; /* first sector to display */ static int firsty; static char GiveOverlay (sct) Sector sct; { Ship ship; Land land; Plane plane; const char *cp; char ch; if (overlay == OVERLAY_SHIPS) { ship = s_fship (sct); if (ship != (Ship) 0 && (cp = ShipName (ship)) != NULL) { ch = *cp; if (ch >= 'a' && ch <= 'z') ch += 'A' - 'a'; return ch; } } if (overlay == OVERLAY_PLANES) { plane = s_fplane (sct); if (plane != (Plane) 0 && (cp = PlaneName (plane)) != NULL) { ch = *cp; if (ch >= 'a' && ch <= 'z') ch += 'A' - 'a'; return ch; } } if (overlay == OVERLAY_UNITS) { land = s_fland (sct); if (land != (Land) 0 && (cp = LandName (land)) != NULL) { ch = *cp; if (ch >= 'a' && ch <= 'z') ch += 'A' - 'a'; return ch; } } return '\0'; } static char GiveDisplayChar (sct, expr, newdes, overlay) Sector sct; Stack expr; bool newdes; bool overlay; { double d; char ch; PlanEntry plan; if (overlay) { ch = GiveOverlay (sct); if (ch != '\0') return ch; } if (expr == (Stack) 0) { if (command_mode == PLAN_MODE && newdes) { if (! s_owned (sct)) { if (index ("^-.s", s_des (sct)) != (char *) 0) return s_des (sct); else return '?'; } plan = s_plan (sct); if (plan == (PlanEntry) 0) return '~'; return PlanDesign (plan); } if (newdes && s_owned (sct) && sct -> sct2 && sct -> sct2 -> sct3) return s_nds (sct); else return s_des (sct); } d = EvaluateExpression (sct, expr); if (d < 0.0) return '-'; else if (d > 9.99) return '+'; else if (d == 0.0) return ' '; else return '0' + (char) d; } void DrawSector (sct) Sector sct; { int px, py; char buf [3]; int x, y; if (sct == (Sector) 0) return; buf [0] = GiveDisplayChar (sct, expr1, shownewdes1, True); y = WY (s_ycd (sct) - firsty); if (y < 0) return; if (double_displ) { x = 2 * WX (s_xcd (sct) - firstx); buf [1] = GiveDisplayChar (sct, expr2, shownewdes2, False); buf [2] = '\0'; if (s_mar (sct)) PrintMarked (map_win, x, y, buf, HighlightSector (sct) ? BOLD : NORMAL); else Print (map_win, x, y, buf, HighlightSector (sct) ? BOLD : NORMAL); } else { x = WX (s_xcd (sct) - firstx); buf [1] = '\0'; if (s_mar (sct)) PrintMarked (map_win, x, y, buf, HighlightSector (sct) ? BOLD : NORMAL); else Print (map_win, x, y, buf, HighlightSector (sct) ? BOLD : NORMAL); } FlushWindow (map_win); } void DrawNeighbours (sct) Sector sct; { DrawMapPart (s_xcd (sct) - 2, s_ycd (sct) - 1, s_xcd (sct) + 2, s_ycd (sct) + 1); } #ifdef X_VERSION bool ConvertToSctCrd (px, py) int * px, * py; { * py = PixelToCharY (* py); if (double_displ) * px = PixelToCharX (* px) / 2; else * px = PixelToCharX (* px); if (*px < 0 || *px > nr_width || * py < 0 || *py > nr_height) return False; * px += firstx; * py += firsty; return True; } #else /* not X_VERSION -> TERMC_VERSION */ bool ConvertToSctCrd (x, y) int * x, * y; { if (double_displ) * x = (* x + 1) / 2; else (* x); (* y); if (* x < 0 || * x >= nr_width | * y < 0 || * y >= nr_height) return False; * x += firstx; * y += firsty; return True; } #endif /* X_VERSION */ bool AtScreen (x, y) int x, y; { x -= firstx; y -= firsty; return ! (x < 0 || x >= nr_width || y < 0 || y >= nr_height); } Sector FindSector (x, y) int x, y; { if (! ConvertToSctCrd (& x, & y)) return (Sector) 0; return World (x, y, S_EXIST); } void MarkSector (sct) Sector sct; { if (sct == (Sector) 0) return; inc_mar (sct); if (s_mar (sct) == 1) DrawSector (sct); } void UnmarkSector (sct) Sector sct; { if (sct == (Sector) 0) return; dec_mar (sct); if (s_mar (sct) == 0) DrawSector (sct); } void SetCurrentSctShip (sct, ship) Sector sct; Ship ship; { if (sct == (Sector) 0 || NO_INFO (sct)) return; UnmarkSector (cursct); cursct = sct; curship = ship; MarkSector (cursct); Census (); } /* * Set current (ship, nuke, plane) */ void SetCurrent (sct) Sector sct; { if (sct == (Sector) 0 || NO_INFO (sct)) return; if (sct != cursct) { /* reset everything */ curship = (Ship)0; curplane = (Plane)0; curnuke = (Nuke)0; curland = (Land)0; curfleet = curwing = curarmy = '\0'; } switch (command_mode) { case NORMAL_MODE: break; case SHIP_MODE: if (curship == (Ship) 0) curship = s_fship (sct); else curship = sh_nxtsct (curship); Census (); break; case FLEET_MODE: curfleet = GiveNextFleetInSct (sct, curfleet); break; case PLANE_MODE: if (curplane == (Plane) 0) curplane = s_fplane (sct); else curplane = pl_nxtsct (curplane); Census (); break; case WING_MODE: curwing = GiveNextWingInSct (sct, curwing); break; case NUKE_MODE: curnuke = s_stock (sct); break; case LAND_MODE: if (curland == (Land) 0) curland = s_fland (sct); else curland = ld_nxtsct (curland); Census (); break; case ARMY_MODE: curarmy = GiveNextArmyInSct (sct, curarmy); break; } UnmarkSector (cursct); cursct = sct; MarkSector (cursct); Census (); } void DrawRealm (realm) char * realm; { int sx, sy, ex, ey; if (ConvRealmToCoord (realm, & sx, & sy, & ex, & ey)) DrawMapPart (sx, sy, ex, ey); } void DrawMap () { ClearWindow (map_win); DrawMapPart (firstx, firsty, (double_displ) ? firstx + nr_width / 2 - 1 : firstx + nr_width - 1, EY (firsty + nr_height - 1)); } /* * drawmappart (sector coordinates) */ void DrawMapPart (start_x, start_y, end_x, end_y) int start_x, start_y, end_x, end_y; { Sector sct; char buf[3]; bool highl; int x, y; int xx, yy; if (end_x < start_x) end_x += MAX_X; if (end_y < start_y) end_y += MAX_Y; for (y = start_y; y <= end_y; y ++) { yy = WY (y - firsty); if (yy < 0 || yy >= nr_height) continue; for (x = start_x; x <= end_x; x ++) { if (double_displ) xx = 2 * WX (x - firstx); else xx = WX (x - firstx); if (xx < 0 || xx >= nr_width) continue; sct = World (x, y, S_EXIST); if (sct == (Sector) 0) { buf [0] = buf [1] = ' '; highl = False; } else { highl = HighlightSector (sct); buf [0] = GiveDisplayChar (sct, expr1, shownewdes1, True); if (double_displ) buf [1] = GiveDisplayChar (sct, expr2, shownewdes2, False); } if (double_displ) buf [2] = '\0'; else buf [1] = '\0'; if (sct != (Sector) 0 && s_mar (sct)) PrintMarked (map_win, xx, yy, buf, highl ? BOLD : NORMAL); else Print (map_win, xx, yy, buf, highl ? BOLD : NORMAL); } } FlushWindow (map_win); } void InitMap (inc_width, inc_height) int inc_width, inc_height; { #ifdef TERMC_VERSION int lines; lines = screen_rows - MAP_STARTY - 1 - EMPIRE_HEIGHT; if (no_empwin) lines += EMPIRE_HEIGHT + 1; map_win = OpenWindow (root_win, MAP_STARTX, MAP_STARTY, screen_cols - MAP_STARTX, lines, 0, NO_BOX, 0); if (! no_empwin) LowerWindow (map_win); nr_width = screen_cols - MAP_STARTX + 2; nr_height = lines; #else /* X_VERSION */ map_win = OpenWindow (root_win, MAP_STARTX, MAP_STARTY, MAP_WIDTH + inc_width, MAP_HEIGHT + inc_height, CHARS, FIXED, 0); nr_width = MAP_WIDTH + inc_width; nr_height = MAP_HEIGHT + inc_height + 1; #endif /* TERMC_VERSION */ SetDefaultCursor (map_win, CR_MAP); expr1 = expr2 = (Stack) 0; shownewdes1 = True; shownewdes2 = False; double_displ = False; overlay = OVERLAY_SHIPS; center_x = s_xcd (cursct); center_y = s_ycd (cursct); firstx = EX (center_x - (int) (nr_width / 2)); firsty = EY (center_y - (int) (nr_height / 2)); FlushWindow (map_win); } static const char *overl_str [] = { "overlay nothing", "overlay ships", "overlay planes", "overlay units", (char *) 0 }; void ChangeOverlay (x, y, str) int x, y; char * str; { char buf [40]; Strings strings; Pager pager; int i; int r; if (str != (char *) 0 && sscanf (str, " ( %s )", buf) == 1) { switch (* str) { case '-': case 'n': case 'N': r = OVERLAY_NOTHING; break; case 's': case 'S': r = OVERLAY_SHIPS; break; case 'L': case 'l': if (land_units) { r = OVERLAY_UNITS; } else { Message ("Illegal bind: Overlay No Land Units"); } break; case 'P': case 'p': r = OVERLAY_PLANES; break; default: Message ( "Illegal bind: Overlay (noth | planes | ships)"); return; } } else { strings = InitStrings (); AddStringsID (strings, overl_str, 4, 0); pager = InitPager (strings, "Overlay what ?"); MapPagerFromTop (pager, map_win, x, y); r = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (r < 0) { Message ("Overlay cancelled"); return; } } overlay = r; } #define DM_OVERLAY 0 #define DM_EXPR 1 #define DM_DES 2 #define DM_NEWDES 3 #define DM_HIGHLIGHT 4 #define DM_HIGHEXPR 5 #define DM_NORMAL 6 #define DM_MAX 6 static const char *dis_menu [] = { "Overlay (planes & ships & units)", "expression", "designation", "new designation", "change highlight", "highlight expression", "switch to normal display", (char *) 0 }; static Stack AskOneExpression () { char * ans; Stack expr; do { ans = InputAtMessage ("Expr: ", 60, GS_TEXT); if (ans == (char *) 0 || interrupt || * ans == '\0') { Message ("cancelled"); return (Stack) 0; } expr = ParseExpression (ans); } while (expr == (Stack) 0); return expr; } void ChangeDisplay (x, y) int x, y; { Strings strings; Pager pager; Stack expr; int i; strings = InitStrings (); AddStringsID (strings, dis_menu, DM_MAX, 0); if (double_displ) AddStringID (strings, dis_menu [DM_NORMAL], DM_NORMAL); pager = InitPager (strings, "Display ?"); MapPagerFromTop (pager, map_win, x, y); i = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (i < 0) { Message ("change display cancelled"); return; } switch (i) { case DM_OVERLAY: ChangeOverlay (x + 2, y + 2, (char *) 0); break; case DM_EXPR: expr = AskOneExpression (); if (expr != (Stack) 0) { DestroyExpression (& expr2); expr2 = expr; } double_displ = True; break; case DM_DES: if (expr1 != (Stack) 0) { DestroyExpression (& expr1); expr1 = (Stack) 0; } shownewdes1 = False; break; case DM_NEWDES: if (expr1 != (Stack) 0) { DestroyExpression (& expr1); expr1 = (Stack) 0; } shownewdes1 = True; break; case DM_HIGHLIGHT: SetHighlight (); break; case DM_HIGHEXPR: ExprHighlight (AskOneExpression()); break; case DM_NORMAL: double_displ = False; break; } ReCenter (); DrawMap (); } void BindHighlightExpression () { Stack expr; ExprHighlight (AskOneExpression()); ReCenter (); DrawMap (); } void BindExpression () { Stack expr; expr = AskOneExpression (); if (expr2 != (Stack) 0) DestroyExpression (& expr2); expr2 = expr; double_displ = expr2 != (Stack) 0; ReCenter (); DrawMap (); } void BindNormalDisplay () { double_displ = False; ReCenter (); DrawMap (); } void ShiftField (dx, dy) int dx, dy; { if (dx == -1) dx = -nr_width / 3; else if (dx == 1) dx = nr_width / 3; if (dy == -1) dy = -nr_height / 2; else if (dy == 1) dy = nr_height / 2; center_x = EX (center_x + dx); center_y = EY (center_y + dy); firstx = EX (center_x - (int) (nr_width / 2)); firsty = EY (center_y - (int) (nr_height / 2)); DrawMap (); } void DoCenterMap (x, y) int x, y; { CenterMap (s_xcd (cursct), s_ycd (cursct)); } void CenterMap (x, y) int x, y; { center_x = EX (x); center_y = EY (y); firstx = EX (center_x - (int) (nr_width / (double_displ ? 4 : 2))); firsty = EY (center_y - (int) (nr_height / 2)); DrawMap (); } void ReCenter () { firstx = EX (center_x - (int) (nr_width / (double_displ ? 4 : 2))); firsty = EY (center_y - (int) (nr_height / 2)); } int Distance (a, b) Sector a, b; { register int distx, disty; distx = XDIST (s_xcd (a), s_xcd (b)); if (distx > MAX_X/2) distx = MAX_X - distx; disty = YDIST (s_ycd (a), s_ycd (b)); if (disty > MAX_Y/2) disty = MAX_Y - disty; return (disty < distx ? (distx + disty)/2 : disty); } int Dist (x1, x2, y1, y2) int x1, x2, y1, y2; { int distx, disty; if (x1 > x2) SwapInt (& x1, & x2); if (y1 > y2) SwapInt (& y1, & y2); distx = XDIST (x1, x2); if (distx > MAX_X/2) distx = MAX_X - distx; disty = YDIST (y1, y2); if (disty > MAX_Y/2) disty = MAX_Y - disty; return (disty < distx ? (distx + disty)/2 : disty); } static void Xy (fp, x1, x2, width) FILE *fp; int x1, x2, width; { int j, num, nr; if (x1 + width > 99 || x2 - width < -99) { fprintf (fp, " "); for (j = x1, nr = 0; nr < width; nr ++, j ++) { j = EX (j); if (j < 0 && j > -100) fprintf (fp, "-"); else { num = ABS (j) / 100; fprintf (fp, "%d", num % 10); } } fprintf (fp, "\n"); } fprintf (fp, " "); for (j = x1, nr = 0; nr < width; nr ++, j ++) { j = EX (j); if (j < 0 && j > -10) fprintf (fp, "-"); else { num = ABS (j) / 10; fprintf (fp, "%d", num % 10); } } fprintf (fp, "\n"); fprintf (fp, " "); for (j = x1, nr = 0; nr < width; nr ++, j ++) { j = EX (j); num = ABS (j); fprintf (fp, "%d", num % 10); } fprintf (fp, "\n"); } static char let_assigned; static void InitCountryLet (clets) char *clets; { int i; for (i = 0; i < MAX_NATIONS; i++) clets[i] = '\0'; let_assigned = 'A'; } static char GiveCountryLet (nr, clets) int nr; char *clets; { static char others[] = "#$%&*!+=_-<>/\\~()^;:,\"'[]{}|`@"; /* 30 */ if (nr < 0) return '?'; if (clets[nr] != '\0') return clets[nr]; clets[nr] = let_assigned < 30 ? others[let_assigned] : let_assigned; if (let_assigned == 'Z') let_assigned = 'a'; else if (let_assigned == 'z') let_assigned = '0'; else if (let_assigned == '9') let_assigned = 0; else let_assigned ++; return clets[nr]; } bool SaveMap (file, flag, x1, x2, y1, y2) const char *file; int flag; int x1, x2, y1, y2; { int i, j; FILE *fp, *fopen (); Sector sct; char **buffer; int width, length; char clets[MAX_NATIONS]; bool append, force; extern char *sys_errlist[]; append = force = False; SkipBlank (&file); if (*file == '>') { append = True; file++; } else if (*file == '!') { force = True; file++; } file = FileStr (file); if (access (file, W_OK) < 0) { if (errno != ENOENT || append) { Error (Fmt ("Can't open file %s for writing : %s", file, sys_errlist [errno])); return False; } } else if (! force && ! append) { Error (Fmt ("file %s exists", file)); return False; } fp = fopen (file, append ? "a" : "w"); if (fp == (FILE *) 0) { Error (Fmt ("Can't open file %s for writing : %s", file, sys_errlist [errno])); return False; } width = XDIST (x1, x2) + 1; length = YDIST (y1, y2) + 1; fprintf (fp, "Dimensions : %dx%d\n\n", width, length); buffer = (char **) doalloc ((unsigned) length * sizeof (char *)); InitCountryLet (clets); for (i = 0; i < length; i++) { buffer [i] = (char *) doalloc ((unsigned) width + 1); for (j = 0; j < width; j++) { sct = World (j + x1, i + y1, S_EXIST); if (sct == (Sector) 0 || NO_INFO (sct)) buffer [i][j] = ' ' ; else if (flag & W_DES || index ("-.^s\\", s_des (sct))) buffer [i][j] = s_des (sct); else if (flag & W_COUN) buffer [i][j] = GiveCountryLet (s_owner (sct), clets); else buffer [i][j] = '?'; } buffer[i][j] = '\0'; } if (flag & W_COORD) Xy (fp, x1, x2, width); for (i = 0; i < length; i++) { if (flag & W_COORD) fprintf (fp, "%4d %s %-4d\n", EX (i + y1), buffer [i], EX (i + y1)); else fprintf (fp, "%s\n", buffer [i]); free (buffer[i]); } free (buffer); if (flag & W_COORD) Xy (fp, x1, x2, width); if (flag & W_COUN) { fprintf (fp, "\n\n"); for (i = 0; i < MAX_NATIONS; i++) if (clets[i] != '\0') fprintf (fp, "%c = %s\n", clets[i], CountryName (i)); } fclose (fp); Message ("Map saved"); return True; } void GotoSct () { char *answer; Sector sct; int x, y, xdist, ydist; answer = InputAtMessage ("Goto sector :", 8, GS_SECTOR); if (interrupt || answer == (char *) 0 || *answer == '\0') { interrupt = False; Message ("Goto cancelled"); return; } if (sscanf (answer, "%d%*[ ,]%d", &x, &y) != 2) { Message ("Bad coordinates"); Bell (); return; } sct = World (x, y, S_EXIST); if (sct == (Sector) 0 || NO_INFO (sct)) { if (! deity) { Message (Fmt ("No info on sector %d, %d", x, y)); Bell (); return; } else { sct = World (x, y, S_DESIG); DeityChange (sct); } } Goto (sct); } const char * FileStr (file) const char * file; { static char filename[128]; if (file == (char *) 0) return file; SkipBlank (& file); if (file [0] == '~' && file [1] == '/') { sprintf (filename, "%s%s", getenv ("HOME"), file + 1); return filename; } return file; } #ifdef X_VERSION void ConvMapPosToPixelPos (px, py) int * px, * py; { if (* px < firstx) * px = -1; else if (* px > nr_width + firstx) * px = WinWidth (map_win) + 2; else if (! double_displ) * px = CharToPixelX (XDIST (firstx, * px)); else * px = CharToPixelX (2 * XDIST (firstx, * px)); if (* py < firsty) * py = -1; else if (* py > nr_height + firsty) * py = WinHeight (map_win) + 2; else * py = CharToPixelY (YDIST (firsty, * py)); } int MapSctWidth () { if (double_displ) return CharToPixelX (2); else return CharToPixelX (1); } int MapSctHeight () { return CharToPixelY (1); } #endif /* X_VERSION */ xemp5.1-beta/lib/misc/message.c100444 12266 2116 7476 6026102460 14734 0ustar jponexor/* $Header: /a/victor/nexor/user4/jpo/xemp/xemp5.0/lib/misc/RCS/message.c,v 5.3 1995/09/14 19:40:32 jpo Exp $ $Date: 1995/09/14 19:40:32 $ $Author: jpo $ $Id: message.c,v 5.3 1995/09/14 19:40:32 jpo Exp $ $Locker: $ $Log: message.c,v $ Revision 5.3 1995/09/14 19:40:32 jpo Allow more room for input strings Revision 5.2 1995/09/08 07:29:59 jpo string stuff * Revision 5.1 93/03/14 16:49:28 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:18:49 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:37:47 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #ifdef X_VERSION #define MES_MODE BOLD #else #define MES_MODE NORMAL #endif WinInfo mes_win; static int mes_width; void InitMessage (inc_width) int inc_width; { #ifdef TERMC_VERSION mes_width = screen_cols - CENSUS_WIDTH - 1; mes_win = OpenWindow (root_win, CENSUS_WIDTH + 1, 0, mes_width, MES_HEIGHT, 0, LOWER_BOX, 0); #else /* TERMC_VERSION */ mes_width = ROOT_WIDTH - CENSUS_WIDTH - 2 + inc_width; mes_win = OpenWindow (root_win, CENSUS_WIDTH + 1, 0, mes_width, MES_HEIGHT, CHARS, FIXED, 0); #endif /* TERMC_VERSION */ FlushWindow (mes_win); } void ClearMes () { Print (mes_win, 0, 0, Fmt ("%*s", mes_width, ""), MES_MODE); } void ClearMes2 () { Print (mes_win, 0, 1, Fmt ("%*s", mes_width, ""), MES_MODE); } void Warning (str) const char * str; { Message (Fmt ("%s -- More", str)); FlashWindow (mes_win); Bell (); Pause (); } void Message (str) const char * str; { int at; at = (mes_width - strlen (str)) / 2; if (at < 0) at = 0; ClearMes (); Print (mes_win, at, 0, str, MES_MODE); FlashWindow (mes_win); Refresh (); } void Message2 (str) const char *str; { int at; at = (mes_width - strlen (str)) / 2; if (at < 0) at = 0; ClearMes2 (); Print (mes_win, at, 1, str, MES_MODE); FlashWindow (mes_win); Refresh (); } static char *lastb1, *lastb2, *lastb3; void MesClearBut () { Print (mes_win, 0, 1, Fmt ("%*s", mes_width, ""), NORMAL); FlushWindow (mes_win); lastb1 = lastb2 = lastb3 = (char *) 0; } void MesBut (b1, b2, b3) char *b1, *b2, *b3; { lastb1 = b1; lastb2 = b2; lastb3 = b3; Print (mes_win, 0, 1, Fmt ("%*s", mes_width, ""), BOLD); Print (mes_win, 0, 1, Fmt ("[%s]", b1), BOLD); Print (mes_win, (mes_width - strlen (b2)) / 2 - 2, 1, Fmt ("[%s]", b2), BOLD); Print (mes_win, mes_width - strlen (b3) - 2, 1, Fmt ("[%s]", b3), BOLD); FlushWindow (mes_win); } void SameBut () { if (lastb1 != (char *) 0) MesBut (lastb1, lastb2, lastb3); else MesClearBut (); } void MessageMore () { PrintN (mes_win, (mes_width - 12) / 2, 1, "-=[ MORE ]=-"); Pause (); SameBut (); } char *InputAtMessage (str, maxlen, form) const char *str; int maxlen; const char * form; { char *ptr; int len, len1, len2; Print (mes_win, 0, 0, Fmt ("%*s", mes_width, ""), MES_MODE); len = strlen (str); while (len > 0 && str[len - 1] == ' ') len--; if (str[len] == ' ') len --; /* str[len] = '\0'; */ if (len > mes_width - 6) { Print (mes_win, 0, 1, Fmt ("%*s", mes_width, ""), MES_MODE); len1 = len/2 + 4; /* put more on first line then on second */ while (len1 <= len && str[len1 - 1] != ' ') len1++; if (len1 > mes_width - 4) /* That must be a long word !! */ len1 = len/2 + 4; len2 = len - len1; Print (mes_win, 2, 0, Fmt ("%.*s", len1, str), MES_MODE); Print (mes_win, 2, 1, Fmt ("%s", str + len1), MES_MODE); ptr = GetString (mes_win, 2 + len2 + 1, 1, maxlen, form); Print (mes_win, 0, 1, Fmt ("%*s", mes_width, ""), MES_MODE); SameBut (); } else { Print (mes_win, 2, 0, Fmt ("%s", str), MES_MODE); ptr = GetString (mes_win, 2 + len + 1, 0, maxlen, form); } return ptr; } xemp5.1-beta/lib/misc/misc.c100444 12266 2116 15152 6023770727 14267 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/misc/RCS/misc.c,v 5.2 1995/09/08 07:30:12 jpo Exp $ $Date: 1995/09/08 07:30:12 $ $Author: jpo $ $Id: misc.c,v 5.2 1995/09/08 07:30:12 jpo Exp $ $Locker: $ $Log: misc.c,v $ Revision 5.2 1995/09/08 07:30:12 jpo const * Revision 5.1 93/03/14 16:49:30 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:18:49 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:37:47 greyhelm * Added RCS headers - Karl Hagen * */ #include #include "type.h" #include "main.h" #include "sector.h" #include "nation.h" #include "version.h" struct fmtst { char *str; struct fmtst *next; } *firstbuf, *lastbuf; /*VARARGS0*/ char *Fmt (va_alist) va_dcl { va_list args; char *ptr; struct fmtst *new; char fmtbuf [BUFSIZ]; new = (struct fmtst *) doalloc (sizeof (struct fmtst)); new->next = (struct fmtst *) 0; if (lastbuf == (struct fmtst *) 0) lastbuf = firstbuf = new; else { lastbuf-> next = new; lastbuf = new; } va_start (args); ptr = va_arg (args, char *); (void) vsprintf (fmtbuf, ptr, args); va_end (args); new->str = Str (fmtbuf); return new-> str; } void FreeFmts () { struct fmtst *next; for (next = firstbuf; next != (struct fmtst *) 0; next = firstbuf) { firstbuf = firstbuf-> next; free (next-> str); free (next); } firstbuf = lastbuf = (struct fmtst *) 0; return; } char *DateFmt (tim) time_t tim; { char dayname [5], monthname [5]; int daynr, hour, min; char *ctime (); (void) sscanf (ctime (& tim), "%4s %4s %d %d:%d", monthname, dayname, &daynr, &hour, &min); return Fmt ("%s %2d %s %2d:%02d", dayname, daynr, monthname, hour, min); } char *Centered (str, n) const char *str; int n; { return Fmt ("%*s%s", (n - strlen (str)) / 2, "", str); } bool CharInFormat (ch, format) char ch; const char *format; { const char *ptr; for (ptr = format; *ptr != '\0'; ptr++) if (*(ptr + 1) == '-') if (ch >= *ptr && ch <= *(ptr + 2)) return True; else ptr += 2; else if (*ptr == ch) return True; return False; } char *Str (s) const char *s; { char *ptr; ptr = doalloc ((unsigned) strlen (s) + 1); (void) strcpy (ptr, s); return ptr; } char *StrNl (s) const char *s; { char *ptr; int len; len = strlen (s); ptr = doalloc ((unsigned) len + 2); strcpy (ptr, s); strcpy (ptr + len, "\n"); return ptr; } void NoNl (str) char * str; { if (str [strlen (str) - 1] == '\n') str [strlen (str) - 1] = '\0'; } char *CrdStr (sct) Sector sct; { return Fmt ("%d,%d", s_xcd (sct), s_ycd (sct)); } double TechFact (level, mult) int level; double mult; { return mult * ((50.0 + level) / (200.0 + level)); } char *doalloc (size) unsigned size; { char *ptr; if ((ptr = malloc (size)) == (char *) 0) { perror ("Malloc Failed"); leave (); } return ptr; } double PlagueChance (sct) Sector sct; { double plg_num, plg_denom; if (EMPOption (NO_PLAGUE)) return 0.0; plg_num = ((s_civ (sct) + s_mil (sct) + q_uw (sct)) / 999.0) * ((q_iro (sct) + q_oil (sct)) / 10.0 + n_tech (nation) + 100.0); plg_denom = s_eff (sct) + s_mob (sct) + 100.0 + n_research (nation); if (plg_num <= plg_denom) return 0.0; else return (((plg_num / plg_denom) - 1.0) * 0.01); } char * ReadEmpireStrings (strings) Strings strings; { char * ptr; for (;;) { ptr = ReadEmpire (DONT_PRINT); switch (EmpireStatus ()) { case E_COMMAND: PrintAtEmpire (ptr); return (char *) 0; case E_PRINTING: AddString (strings, ptr); continue; case E_QUESTION: PrintAtEmpire (ptr); return ptr; } } } bool StrEQ (s1, s2) const char * s1, * s2; { return (strncmp (s1, s2, strlen (s2)) == 0); } #define RUNWINY 20 static text_line = 0; static WinInfo text_win = (WinInfo) 0; void OpenTextWindow (x, y, name) int x, y; const char *name; { #ifdef X_VERSION text_win = OpenWinForWM (name, x, y, 80, RUNWINY, CHARS, 0); text_line = 0; SetDefaultCursor (text_win, CR_SMILEY); #else /* TERMC_VERSION */ text_win = OpenRelToRoot (map_win, x, y, 70, RUNWINY, FULL_BOX, 0); text_line = 0; #endif /* VERSION */ } void CloseTextWindow () { DestroyWindow (text_win); text_win = (WinInfo) 0; } void ClearText () { text_line = 1; if (text_win == (WinInfo) 0) printf ("- - - -\n"); else ClearWindow (text_win); } void ShowText (s) const char * s; { if (text_win == (WinInfo) 0) { puts (s); fflush (stdout); } else { if (text_line == RUNWINY - 3) { PrintB (text_win, 1, RUNWINY - 1, "[ MORE ]"); FlushWindow (text_win); Pause (); ClearWindow (text_win); text_line = 1; } PrintN (text_win, 1, text_line ++, s); FlushWindow (text_win); } } void ShowDone () { if (text_win != (WinInfo) 0) { PrintB (text_win, 1, ++ text_line, "[ DONE ]"); FlushWindow (text_win); Pause (); } } void ShowStrings (strings) Strings strings; { const char * ptr; InitStringList (strings); while ((ptr = GetNextString (strings)) != (char *) 0) ShowText (ptr); } double dmin(n1, n2) double n1; double n2; { if (n1 < n2) return n1; return n2; } double dmax (d1, d2) double d1, d2; { if (d1 > d2) return d1; return d2; } char * MakeFreeString (upper, lower) bool upper [], lower []; { int j; static char buffer [53]; char start, end; buffer [0] = '\0'; end = start = '\0'; for (j = 0; j < 26; j ++) if (lower [j]) if (start != '\0') if (end == 'a' + j - 1) end ++; else { if (end == start) strcat (buffer, Fmt ("%c", start)); else if (end != start + 1) strcat (buffer, Fmt ("%c-%c", start, end)); else strcat (buffer, Fmt ("%c%c", start, end)); start = end = 'a' + j; } else start = end = 'a' + j; if (start != '\0') if (end == start) strcat (buffer, Fmt ("%c", end)); else if (end == start + 1) strcat (buffer, Fmt ("%c%c", start, end)); else strcat (buffer, Fmt ("%c-%c", start, end)); start = '\0'; for (j = 0; j < 26; j ++) if (upper [j]) if (start != '\0') if (end == 'A' + j - 1) end ++; else { if (end == start) strcat (buffer, Fmt ("%c", start)); else if (end != start + 1) strcat (buffer, Fmt ("%c-%c", start, end)); else strcat (buffer, Fmt ("%c%c", start, end)); start = end = 'A' + j; } else start = end = 'A' + j; if (start != '\0') if (end == start) strcat (buffer, Fmt ("%c", end)); else if (end == start + 1) strcat (buffer, Fmt ("%c%c", start, end)); else strcat (buffer, Fmt ("%c-%c", start, end)); return buffer; } xemp5.1-beta/lib/misc/misc2.c100444 12266 2116 7024 6023770727 14330 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/misc/RCS/misc2.c,v 5.2 1995/09/08 07:30:27 jpo Exp $ $Date: 1995/09/08 07:30:27 $ $Author: jpo $ $Id: misc2.c,v 5.2 1995/09/08 07:30:27 jpo Exp $ $Locker: $ $Log: misc2.c,v $ Revision 5.2 1995/09/08 07:30:27 jpo more string stuff * Revision 5.1 93/03/14 16:49:32 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:18:49 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:37:47 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "nation.h" bool Confirm (str, def) const char *str; bool def; { WinInfo tmp; char *lines[10], *answer; char *estr, *ptr, *s, *realstr; int len, cuts, cutlen, maxcutlen, partlen, i, nr; len = strlen (str); cuts = len/30; maxcutlen = 16; nr = 0; cutlen = (len + cuts)/(cuts + 1); realstr = ptr = Str(str); estr = ptr + len - 1;; while (ptr <= estr) { s = ptr + cutlen - 1; if (s > estr + 1) s = estr + 1; else while (*s != ' ' && *s != '\0') s ++; *s = '\0'; partlen = s - ptr; if (partlen > maxcutlen) maxcutlen = partlen; lines[nr ++] = ptr; ptr = s + 1; SkipBlank ((ConstVP)&ptr); } tmp = OpenWindow (map_win, 5, 0, maxcutlen + 4, cuts + 5, CHARS, MENU, 0); for (i = 0; i < nr; i++) Print (tmp, 2, 3 + i, lines[i], NORMAL); free (realstr); Bell (); answer = GetQuest (tmp, 1, Centered (Fmt (" Confirm [%c]: ", def ? 'y' : 'n'), maxcutlen), 1, "yn"); DestroyWindow (tmp); if (answer == (char *) 0 || *answer == 'n' || (*answer == '\0' && def == False)) return False; else return True; } #ifdef TERMC_VERSION #define ERROR_MODE NORMAL #else /* X_VERSION */ #define ERROR_MODE BOLD #endif /* VERSION */ void Error (str) const char *str; { WinInfo tmp; char *lines[10], savechar; char *estr, *ptr, *s, *baseptr; int len, cuts, cutlen, maxcutlen, partlen, i, nr; if (! xstarted) { fprintf (stderr, "%s\n", str); return; } len = strlen (str); cuts = len/30; maxcutlen = nr = 0; cutlen = (len + cuts)/(cuts + 1); baseptr = ptr = Str(str); estr = ptr + len - 1;; while (ptr <= estr) { s = ptr + cutlen - 1; if (s > estr + 1) s = estr + 1; else while (*s != ' ' && *s != '\0') s ++; savechar = *s; *s = '\0'; partlen = s - ptr; if (partlen > maxcutlen) maxcutlen = partlen; lines[nr ++] = ptr; *s = savechar; ptr = s; SkipBlank ((ConstVP)&ptr); } tmp = OpenWindow (map_win, 5, 1, maxcutlen + 2, cuts + 3, CHARS, MENU, 0); for (i = 0; i < nr; i++) { Print (tmp, 1, 1 + i, lines[i], ERROR_MODE); } free(baseptr); FlushWindow (tmp); Bell (); Refresh (); Pause (); DestroyWindow (tmp); } void SwapInt (a, b) int * a, * b; { int dummy; dummy = * a; * a = * b; * b = dummy; } char * GetQuest (win, y, quest, maxlen, fmt) WinInfo win; int y; const char * quest, * fmt; int maxlen; { PrintN (win, 1, y, quest); return GetString (win, strlen (quest) + 1, y, maxlen, fmt); } void Disabled () { Message ("This function has (temp) been disabled"); Bell (); } bool HandleQuestion (quest) const char * quest; { char * ans; PrintAtEmpire (quest); ans = InputAtMessage (quest, 15, GS_TEXT); if (ans == (char *) 0 || interrupt) { interrupt = False; while (EmpireStatus () != E_COMMAND) { FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); } return False; } FeedEmpire (ans, PRINT); return True; } xemp5.1-beta/lib/misc/myopt.c100444 12266 2116 3171 6023770730 14454 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/misc/RCS/myopt.c,v 5.1 1993/03/14 16:49:35 etienne Exp $ $Date: 1993/03/14 16:49:35 $ $Author: etienne $ $Id: myopt.c,v 5.1 1993/03/14 16:49:35 etienne Exp $ $Locker: $ $Log: myopt.c,v $ Revision 5.1 1993/03/14 16:49:35 etienne *** empty log message *** * Revision 5.0 93/02/06 09:18:49 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:37:47 greyhelm * Added RCS headers - Karl Hagen * */ #include typedef int bool; char * progname; #define True 1 #define False 0 static int opt_ac, opt_ai, opt_ci; static bool opt_na; static char * * opt_av; static char last_opt; void init_opt (ac, av) int ac; char * * av; { progname = av [0]; opt_ac = ac; opt_av = av; opt_ai = 0; opt_ci = 0; opt_na = True; } char next_opt () { if (opt_na || opt_av [opt_ai][++ opt_ci] == '\0') { if (++ opt_ai >= opt_ac) return '\0'; opt_ci = 0; if (opt_av [opt_ai][opt_ci] != '-') return '\0'; opt_ci ++; opt_na = False; } last_opt = opt_av [opt_ai][opt_ci]; return last_opt; } char * next_arg () { char * opt; opt_na = True; if (opt_av [opt_ai][++ opt_ci] != '\0') opt = & (opt_av [opt_ai][opt_ci]); else opt = opt_av [++ opt_ai]; if (opt == (char *) 0) { fprintf (stderr, "%s: option %c requires an argument.\n", progname, last_opt); exit (1); } return opt; } char * check_arg () { if (opt_ai + 1 >= opt_ac) return (char *) 0; if (opt_av [opt_ai + 1][0] != '-') return opt_av [++ opt_ai]; else return (char *) 0; } xemp5.1-beta/lib/misc/path.c100444 12266 2116 20142 6023770730 14255 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/misc/RCS/path.c,v 5.2 1995/09/08 07:30:45 jpo Exp $ $Date: 1995/09/08 07:30:45 $ $Author: jpo $ $Id: path.c,v 5.2 1995/09/08 07:30:45 jpo Exp $ $Locker: $ $Log: path.c,v $ Revision 5.2 1995/09/08 07:30:45 jpo wrong free * Revision 5.1 93/03/14 16:49:37 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:18:49 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:37:47 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #define MAX_DISTLEN 9 #define MAX_PATHLEN 70 /* I don't think DIST is right * take 0,0 and 4,4 on a 64x64 world * DIST : * ABS (EX (4 - 0)) + ABS (EY (4 - 0)) * EX (4) = WX (4) > 64/2 ? WX (4) - 64 : WX(4); * WX (4) = (4 + 2*64) % 64 = 132 % 64 = 4; * EX (4) = 4 > 32 ? 4 - 64 : 4 = 4 * * ABS (4) + ABS (4) = 4 + 4 = 8 !!! * while actualy distance is 4 (4 times n in 0,0 takes you to 4, 4) * * actualy DIST would be a terribly complicated !!! * dist between -4, 4 and 0,0 = 4 sectors * but between 2, -4 and 0,0 = 4 sectors also !! * 5 5 5 5 5 5 * 5 4 4 4 4 4 5 * 5 4 3 3 3 3 4 5 * 5 4 3 2 2 2 3 4 5 * 5 4 3 2 1 1 2 3 4 5 * 5 4 3 2 1 0 1 2 3 4 5 6 7 8 * 5 4 3 2 1 1 2 3 4 5 6 7 8 * 5 4 3 2 2 2 3 4 5 6 7 8 * 5 4 3 3 3 3 4 5 6 7 8 * 5 4 4 4 4 4 5 6 7 8 * 5 5 5 5 5 5 6 7 8 * 6 6 6 6 6 6 6 7 8 * 7 7 7 7 7 7 7 8 * 8 8 8 8 8 8 8 8 9 0 * 9 9 9 0 * 0 0 0 * * ABS (y) < ABS (x) ? (ABS(x) + ABS(y))/2 : ABS(y) * shit dat koste 1.5 uur om uit te zoeken !!!!!!. * ahmmm, wasn't that complicated after all * * #define DIST(sct1,sct2) ABS (EX (s_xcd (sct1) - s_xcd (sct2))) + \ * ABS (EY (s_ycd (sct1) - s_ycd (sct2))) * */ typedef struct s_list *List; struct s_list { Sector sct; int dist; int length; double mcost; char path [MAX_PATHLEN]; List next; }; /* Regard efficiency: */ #define BP_SCTEFF 0 /* s_eff (sct) */ #define BP_MAXEFF 1 /* 100 */ /* static variables */ static Sector goal; /* where are we heading for */ static List slist; /* all the open sectors */ static int maxlength; /* maxlength of the path */ static int eff; /* regard efficiency ?? */ static bool unknown = False; static void FreeList () { List ptr, tofree; for (ptr = slist; ptr != (List) 0; ) { tofree = ptr; ptr = ptr-> next; if (NO_INFO (tofree-> sct)) FreeSector (tofree-> sct); free ((char *) tofree); } slist = (List) 0; } static void AddToList (sct, from) Sector sct; List from; { List ptr, prv; List new; int x, y; register char *path; bool insert_here; double savemcost; /* Make new structure */ new = (List) doalloc ((unsigned) sizeof (struct s_list)); new-> sct = sct; if (from == (List) 0) { new-> mcost = 0.0; new-> length = 0; new-> dist = 0; new-> path [0] = '\0'; new-> dist = 0; } else { (void) strcpy (new-> path, from-> path); new-> length = from-> length; new-> path [new-> length] = GiveDirChar (from-> sct, sct); new-> path [++ (new-> length)] = '\0'; savemcost = KNOW_ALL (sct) ? ((eff == BP_SCTEFF) ? MoveCost (s_des (sct), s_eff (sct)) : MoveCost (s_nds (sct), 100)) : MoveCost (s_des (sct), 100); new-> mcost = from-> mcost + savemcost; } if (slist == (List) 0) { slist = new; new-> next = (List) 0; return; } new-> dist = Distance (sct, goal); path = new-> path + new-> length; for (x = 0, y = 0, path = new-> path + new-> length - 1; path >= new-> path; path --) { switch (*path) { case 'g': x -= 2; break; case 'j': x += 2; break; case 'y': x --; y --; break; case 'u': x ++; y --; break; case 'b': x --; y ++; break; case 'n': x ++; y ++; break; } if (x == 0 && y == 0) { free ((char *) new); return; } } /* * First scan the whole list: * * If mcost (new sector) >= mcost (sector of list) && * length (new sector) >= length (sector of list) * then ignore this sector. * * If mcost (new sector) <= mcost (sector in list) && * length (new sector) <= length (sector of list) * then delete this sector from the list * * After this add the sector at the proper place into the list. */ for (prv = (List) 0, ptr = slist; ptr != (List) 0; ptr = ptr-> next) { if (ptr-> sct == sct) { if (maxlength == MAX_DISTLEN) { if (new-> mcost >= ptr-> mcost && new-> length >= ptr->length) { free ((char *) new); return; } if (new-> mcost <= ptr-> mcost && new-> length <= ptr-> length) { /* remove from list */ if (prv == (List) 0) slist = ptr-> next; else prv-> next = ptr-> next; free ((char *) ptr); break; } } else { if (new-> mcost > ptr-> mcost || (new-> mcost == ptr-> mcost && new-> length >= ptr->length)) { free ((char *) new); return; } else { if (prv == (List) 0) slist = ptr-> next; else prv-> next = ptr-> next; free ((char *) ptr); break; } } } prv = ptr; } prv = (List) 0; insert_here = False; for (ptr = slist; ptr != (List) 0; prv = ptr, ptr = ptr-> next) { if (new-> mcost > ptr-> mcost) continue; insert_here = new-> mcost < ptr-> mcost; if (! insert_here) insert_here = new-> length < ptr-> length; if (insert_here) { if (prv == (List) 0) { new-> next = ptr; slist = new; return; } else { prv-> next = new; new-> next = ptr; return; } } } if (prv == (List) 0) slist = new; else prv-> next = new; new-> next = (List) 0; } static char *CheapestPath (from, to) Sector from, to; { List cur; Sector nxt; static char buf [MAX_PATHLEN]; Neighb neighb; slist = (List) 0; goal = to; if (Distance (from, to) > maxlength) return (char *) 0; AddToList (from, (List) 0); while (slist != (List) 0) { cur = slist; slist = slist-> next; #ifdef X_VERSION HandelWaitingEvents (); #endif /* X_VERSION */ if (interrupt) { free ((char *) cur); FreeList (); #ifdef X_VERSION WaitRefresh (True); #endif /* X_VERSION */ return (char *) 0; } InitNeighbours (cur-> sct, & neighb); while (NextNeighbour (&nxt, unknown ? S_DESIG : S_EXIST, neighb)) { if (nxt == (Sector) 0) continue; if (nxt == goal) { (void) strcpy (buf, cur-> path); buf [cur-> length] = GiveDirChar (cur-> sct, nxt); buf [cur-> length + 1] = 0; if (NO_INFO (cur-> sct)) FreeSector (cur-> sct); free ((char *) cur); FreeList (); return buf; } if (cur-> length < maxlength) { if ((s_owned (nxt) || deity) && s_des (nxt) != '.') AddToList (nxt, cur); else if (NO_INFO (nxt)) FreeSector (nxt); } } if (NO_INFO (cur-> sct)) FreeSector (cur-> sct); free ((char *) cur); } /* When we get here, the list will be empty and no path found */ ClearMes (); return (char *) 0; } /* * Here are the procecures which all simply call CheapestPath () */ char *BestLandPath (from, to) Sector from, to; { maxlength = MAX_PATHLEN; unknown = False; eff = BP_SCTEFF; return CheapestPath (from, to); } char *BestDistPath (from, to) Sector from, to; { maxlength = MAX_DISTLEN; unknown = False; eff = BP_MAXEFF; return CheapestPath (from, to); } char *BestTmpDistPath (from, to) Sector from, to; { maxlength = MAX_DISTLEN; unknown = False; eff = BP_SCTEFF; return CheapestPath (from, to); } char * ReversePath (path) char * path; { static char new_path [MAX_PATHLEN]; int ind; ind = strlen (path); new_path [ind --] = '\0'; while (* path != '\0') { switch (* path ++) { case 'g': new_path [ind --] = 'j'; break; case 'y': new_path [ind --] = 'n'; break; case 'u': new_path [ind --] = 'b'; break; case 'j': new_path [ind --] = 'g'; break; case 'n': new_path [ind --] = 'y'; break; case 'b': new_path [ind --] = 'u'; break; } } return new_path; } xemp5.1-beta/lib/misc/product.c100444 12266 2116 10347 6023770730 15007 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/misc/RCS/product.c,v 5.2 1995/09/08 07:31:01 jpo Exp $ $Date: 1995/09/08 07:31:01 $ $Author: jpo $ $Id: product.c,v 5.2 1995/09/08 07:31:01 jpo Exp $ $Locker: $ $Log: product.c,v $ Revision 5.2 1995/09/08 07:31:01 jpo constant change * Revision 5.1 93/03/14 16:49:39 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:18:49 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:37:47 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "var.h" #include "version.h" static char * fname = "misc/product.c"; #undef OFFSET #define OFFSET(x,y) y #define sct_min 1 #define sct_gmin 2 #define sct_fertil 3 #define sct_oil 4 #define sct_uran 5 /* * Just copy this table from lib/global/produce.c * After that, check 'prod_design' below */ struct pchrstr pchr[] = { /* level cost nrndx nrdep nlndx nlmin nllag effic sname name */ {0, 0, 0, 0, 0, 0, 0, 0, 0, "unused", 0, { 0 }, { 0 }, "", }, {V_SHELL, -1, 3, 0, 0, NAT_TLEV, 20, 10, 100, "shells", 2, { V_LCM, V_HCM}, { 2, 1 }, "shells", }, {V_GUN, -1, 30, 0, 0, NAT_TLEV, 20, 10, 100, "guns", 3, { V_OIL, V_LCM, V_HCM }, { 1, 5, 10 }, "guns",}, {V_PETROL,-1, 1, 0, 0, NAT_TLEV, 20, 10, 1000, "petrol", 1, { V_OIL }, { 1 }, "petrol",}, {V_IRON, -1, 0,OFFSET(sctstr, sct_min),0, -1, 0, 0, 100, "iron ore", 0, { 0 }, { 0 }, "iron", }, {V_DUST, -1, 0,OFFSET(sctstr, sct_gmin),20, -1, 0, 0, 100, "gold dust", 0, { 0 }, { 0 }, "dust",}, {V_BAR, -1, 10, 0, 0, -1, 0, 0, 100, "gold bars", 1, { V_DUST }, { 5 }, "bars",}, {V_FOOD, -1, 0,OFFSET(sctstr, sct_fertil),0, NAT_TLEV, -10, 10, 900, "food", 0, { 0 }, { 0 }, "food",}, {V_OIL, -1, 0,OFFSET(sctstr, sct_oil),10, NAT_TLEV, -10, 10, 100, "oil", 0, { 0 }, { 0 }, "oil",}, {V_LCM, -1, 0, 0, 0, NAT_TLEV, -10, 10, 100, "light construction materials", 1, { V_IRON }, { 1 }, "lcm",}, {V_HCM, -1, 0, 0, 0, NAT_TLEV, -10, 10, 100, "heavy construction materials", 1, { V_IRON }, { 2 }, "hcm", }, {0, NAT_TLEV, 300, 0, 0, NAT_ELEV, 5, 10, 100, "technological breakthroughs",3,{V_DUST,V_OIL,V_LCM}, {1,5,10}, "tech",}, {0, NAT_RLEV, 90, 0, 0, NAT_ELEV, 5, 10, 100, "medical discoveries",3,{V_DUST,V_OIL,V_LCM }, { 1, 5, 10 }, "medical",}, {0, NAT_ELEV, 9, 0, 0, -1, 0, 0, 100, "a class of graduates", 1, { V_LCM }, { 1 }, "edu",}, {0, NAT_HLEV, 9, 0, 0, -1, 0, 0, 100, "happy strollers", 1, { V_LCM }, { 1 }, "happy",}, {V_RAD, -1, 2,OFFSET(sctstr, sct_uran),35, NAT_TLEV, 40, 10, 100, "radioactive materials", 0, { 0 }, { 0 }, "rad",}, }; static char * prod_design = "Xid%mgbaojktrlpu"; struct pchrstr * ProdChr (des) char des; { char * ptr; ptr = index (prod_design, des); if (des == '\0' || ptr == (char *) 0) return (struct pchrstr *) 0; return & (pchr [ptr - prod_design]); } int GiveProdResource (sct, i) Sector sct; int i; { switch (i) { case sct_min: return s_min (sct); case sct_gmin: return s_gol (sct); case sct_fertil: return s_fer (sct); case sct_oil: return s_oil (sct); case sct_uran: return s_ura (sct); default: Panic ("GiveProdResoure", fname, Fmt ("illegal resource: %d", i)); return 0; } } void SetProdResource (sct, i, q) Sector sct; int i; int q; { switch (i) { case sct_min: set_min (sct, q); break; case sct_gmin: set_gol (sct, q); break; case sct_fertil: set_fer (sct, q); break; case sct_oil: set_oil (sct, q); break; case sct_uran: set_ura (sct, q); break; default: Panic ("SetProdResoure", fname, Fmt ("illegal resource: %d", i)); } } /* * Be carefull: no tests */ int ProdCost (item) int item; { register struct pchrstr * ptr; ptr = pchr; do { ptr ++; if (ptr-> p_type == item) return ptr-> p_cost; } while (ptr-> p_type != V_RAD); return 0; } xemp5.1-beta/lib/misc/realm.c100444 12266 2116 7227 6023770730 14412 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/misc/RCS/realm.c,v 5.2 1995/09/08 07:31:30 jpo Exp $ $Date: 1995/09/08 07:31:30 $ $Author: jpo $ $Id: realm.c,v 5.2 1995/09/08 07:31:30 jpo Exp $ $Locker: $ $Log: realm.c,v $ Revision 5.2 1995/09/08 07:31:30 jpo const * Revision 5.1 93/03/14 16:49:40 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:18:49 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:37:47 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "nation.h" struct s_realm { int sx, sy, ex, ey; int cx, cy; int rx, ry; int flag; bool done, first; }; Realm InitRealm (realm, flag) char * realm; int flag; { Realm new; new = (Realm) doalloc ((unsigned) sizeof (struct s_realm)); new-> flag = flag; if (! ConvRealmToCoord (realm, & (new-> sx), & (new-> sy), & (new-> ex), & (new-> ey))) { free ((char *) new); return (Realm) 0; } new-> done = False; new-> first = True; new-> rx = new-> sx > new-> ex; new-> ry = new-> sy > new-> ey; new-> cx = new-> rx ? new-> ex : new-> sx; new-> cy = new-> ry ? new-> ey : new-> sy; return new; } void FreeRealm (realm) Realm realm; { free ((char *) realm); } bool InRealm (realm, sct) Realm realm; Sector sct; { if (realm-> rx) { if (s_xcd (sct) > realm-> sx || s_xcd (sct) < realm-> ex) return False; } else if (s_xcd (sct) < realm-> sx || s_xcd (sct) > realm-> ex) return False; if (realm-> ry) { if (s_ycd (sct) > realm-> sy || s_ycd (sct) < realm-> ey) return False; } else if (s_ycd (sct) < realm-> sy || s_ycd (sct) > realm-> ey) return False; return True; } static AdvanceInRealm (realm) Realm realm; { realm-> cx = EX (realm-> cx + 1); if ((realm-> rx && (realm-> cx > realm-> sx)) || (! realm-> rx && (realm-> cx > realm-> ex))) { realm-> cx = realm-> rx ? realm-> ex : realm-> sx; realm-> cy = EY (realm-> cy + 1); if ((realm-> ry && (realm-> cy > realm-> sy)) || (! realm-> ry && (realm-> cy > realm-> ey))) { realm-> done = True; return; } } } bool NextSctInRealm (realm, ret) Realm realm; Sector * ret; { Sector sct; if (realm-> done) { * ret = (Sector) 0; return False; } if (realm-> first) { realm-> cx = realm-> sx; realm-> cy = realm-> sy; realm-> first = False; } else { AdvanceInRealm (realm); if (realm-> done) { * ret = (Sector) 0; return False; } } sct = World (realm-> cx, realm-> cy, S_EXIST); while (sct == (Sector) 0 || (realm-> flag == S_OWNED && ! s_owned (sct))) { AdvanceInRealm (realm); if (realm-> done) { * ret = (Sector) 0; return False; } sct = World (realm-> cx, realm-> cy, S_EXIST); } * ret = sct; return True; } bool ConvRealmToCoord (realm, sx, sy, ex, ey) const char * realm; int * sx, * sy, * ex, * ey; { SkipBlank (& realm); if (realm [0] == '#') { if (realm [1] >= '0' && realm [1] <= '9') realm = n_realm (nation, realm [1] - '0'); else realm = n_realm (nation, 0); } else if (realm[0] == '*') { *sx = -MAX_X / 2; *ex = (MAX_X / 2) - 1; *sy = -MAX_Y / 2; *ey = (MAX_Y / 2) - 1; return True; } if (! ScanDigit (& realm, sx)) return False; if (* realm == ':') { realm ++; if (! ScanDigit (& realm, ex)) return False; } else * ex = * sx; if (* realm ++ != ',' || ! ScanDigit (& realm, sy)) return False; if (* realm == ':') { realm ++; if (! ScanDigit (& realm, ey)) return False; } else * ey = * sy; if (* sx > * ex) * ex = - * ex; if (* sy > * ey) * ey = - * ey; return True; } xemp5.1-beta/lib/misc/scan.c100444 12266 2116 122461 6037141033 14265 0ustar jponexor/* $Header: /a/victor/nexor/user4/jpo/xemp/xemp5.0/lib/misc/RCS/scan.c,v 5.7 1995/10/12 07:22:02 jpo Exp $ $Date: 1995/10/12 07:22:02 $ $Author: jpo $ $Id: scan.c,v 5.7 1995/10/12 07:22:02 jpo Exp $ $Locker: $ $Log: scan.c,v $ Revision 5.7 1995/10/12 07:22:02 jpo Use regexps Revision 5.6 1995/10/10 07:25:29 jpo Added regex matching sorted out some compatibility stuff Revision 5.5 1995/09/29 07:56:33 jpo Better handling of ship reports. Revision 5.4 1995/09/27 13:20:43 jpo Patricks fixes for satellite scanning plus my fixes for errors in nation scanning Revision 5.3 1995/09/14 20:02:38 jpo Fix up scanning detecting illegal stuff Revision 5.2 1995/09/08 07:31:37 jpo const - mostly * Revision 5.1 93/03/14 16:49:41 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:18:49 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:37:47 greyhelm * Added RCS headers - Karl Hagen * */ /* * Emptool * * Written by HJ. Visscher. * * ScanDump () * Scans the output of "dump" that empire is printing * * ScanNation () * Scans the output of "nation" that empire is printing * * ScanMap () * Scans the output of "map" that empire is printing */ #include "type.h" #include "main.h" #include "sector.h" #include "nation.h" #include "version.h" #include "ship.h" #include "regex.h" static void ScanSatellite _PROTO((void)); static double ScanFloat _PROTO((char *ptr)); static bool AddSatelliteShip _PROTO((char *line, int sector)); static bool AddSatelliteLand _PROTO((char *line, int sector)); char *DelControl (s) char *s; { register char *ptr; register char *bptr; static char buffer [BUFSIZ]; bptr = buffer; ptr = s; while (*ptr != '\0') { *ptr &= 0x7F; if (*ptr < ' ') { *bptr++ = '^'; *bptr++ = *ptr++ - ' ' + 'A'; } else *bptr++ = *ptr++; } *bptr = '\0'; return buffer; } char *DelTabs (s) char *s; { int i; register char *ptr; register char *bptr; static char buffer [BUFSIZ]; if (s == (char *) 0 || *s == '\0') return s; i = 0; ptr = s; bptr = buffer; while (*ptr != '\0') if (*ptr == '\t') { do { * (bptr ++) = ' '; i ++; } while ((i % 8) != 0); ptr ++; } else { * (bptr ++) = * (ptr ++); i ++; } *bptr = '\0'; return buffer; } char * DelNewline (str) char *str; { char *p; if ((p = strchr (str, '\n')) != (char *) 0) *p = '\0'; return str; } void SkipPtr (pptr, toskip) ConstVP pptr; const char *toskip; { if (*toskip == '^') while ((strchr (toskip + 1, **pptr) == (char *) 0) && **pptr != '\0') (*pptr) ++; else while ((strchr (toskip, **pptr) != (char *) 0) && **pptr != '\0') (*pptr) ++; } void SkipBlank (pptr) ConstVP pptr; { SkipPtr (pptr, " \t"); } bool ScanWordQuot (pptr, word) ConstVP pptr; char *word; { char buffer [BUFSIZ]; char *ptr; bool quot = False; ptr = (word == (char *) 0) ? buffer : word; SkipBlank (pptr); if (**pptr == '\0') return False; while (**pptr != '\0' && ((**pptr != ' ' && **pptr != '\t') || quot)) { if (**pptr == '\\') { if (*++(*pptr) == '\0') return False; *ptr++ = **pptr; } else if (**pptr == '"') quot = ! quot; else *ptr++ = **pptr; (*pptr) ++; } *ptr = '\0'; return ! quot; } bool ScanWord (pptr, word) ConstVP pptr; char *word; { char buffer [BUFSIZ]; char *ptr; ptr = (word == (char *) 0) ? buffer : word; SkipBlank (pptr); if (**pptr == '\0') return False; while (**pptr != '\0' && **pptr != ' ' && **pptr != '\t') { *ptr = **pptr; ptr ++; (*pptr) ++; } *ptr = '\0'; return True; } bool ScanFmt (pptr, word, fmt) const char ** pptr; char * word; const char * fmt; { char buffer [BUFSIZ]; char * ptr; ptr = (word == (char *) 0) ? buffer : word; SkipBlank (pptr); while (CharInFormat (** pptr, fmt)) { * ptr = ** pptr; ptr ++; (* pptr) ++; } * ptr = '\0'; return True; } bool ScanDigit (pptr, num) ConstVP pptr; int *num; { int negated = 0; register int value = 0; SkipBlank (pptr); if (**pptr == '-') { negated = 1; (*pptr) ++; } else if (**pptr == '+') (*pptr) ++; if (**pptr < '0' || **pptr > '9') return False; while (**pptr >= '0' && **pptr <= '9') { value = 10 * value + **pptr - '0'; (*pptr) ++; } *num = negated ? -value : value; return True; } static double ScanFloat (ptr) char *ptr; { double p; (void) sscanf (ptr, "%lf", &p); return p; } int safe_civ, safe_uw; double happy_req; void FScanNation () { char *ptr, *ind; char word[100]; int num, i; int norealms; extern int capitol_x, capitol_y; /* if(!EMPOption(REALM_IN_NAT)) { */ if(chainsaw_version) { FeedEmpire ("realm", PRINT); MessageAtEmpire ("scanning realm"); /* scan realms */ i = 0; for (;;) { ptr = ReadEmpire (DONT_PRINT); if (ptr == (char *) 0) continue; if (* ptr != 'R') break; if(sscanf(ptr, "Realm #%*d is %s", nation->realm [i++]) != 1) { Error ("Illegal realm, try with less realms"); } } nr_realms = i; } FeedEmpire ("", PRINT); (void) WaitForPrompt (PRINT); FeedEmpire ("nation", PRINT); MessageAtEmpire ("scanning nation"); (void) SkipNLines (1, DONT_PRINT); ptr = ReadEmpire (DONT_PRINT); if (ptr == NULL) return; if (sscanf (ptr, "(#%d)", &i) == 1) /* new version */ my_cnum = i; (void) SkipNLines (1, DONT_PRINT); ind = ptr = ReadEmpire (DONT_PRINT); if (ptr == (char *) 0) return; capitol_x = 123456; if (strncmp (ind, "No capit", 8) == 0) capitol_x = capitol_y = 0; else { while (ScanWord ((ConstVP)&ptr, word)) { /* search for word at */ if (strcmp (word, "at") == 0) { if (sscanf (ptr, "%d,%d", &capitol_x, &capitol_y) != 2) break; } } } if (capitol_x == 123456) Error ("Bad Nation output"); norealms = 0; if(chainsaw_version) { ptr = ReadEmpire (DONT_PRINT); if (ptr == (char *) 0) return; if (index (ptr, '$')) norealms = 1; } if(norealms == 0 && (ksu_version || EMPOption(REALM_IN_NAT))) { /* scan realms */ i = 0; for (;;) { ptr = ReadEmpire (DONT_PRINT); if (ptr == (char *) 0) return; if (* ptr != '#') break; if (!EMPOption(REALM_IN_NAT)) { if (sscanf (ptr, "# %*d %s # %*d %s # %*d %s", nation-> realm [i], nation-> realm [i + 1], nation-> realm [i + 2]) != 3) { Error ("Illegal realm, try with less realms"); } } else { /* if (sscanf (ptr, "#%*d %s #%*d %s #%*d %s", nation-> realm [i], nation-> realm [i + 1], nation-> realm [i + 2]) != 3) { Error ("Illegal realm, try with less realms"); } */ } i += 3; } nr_realms = i; } if ((ind = index (ptr, '$')) == NULL) { Error ("Bad nation output"); WaitForPrompt (PRINT); return; } n_treas (nation) = ScanFloat (ind + 1); ind = index (ptr, ':') + 1; if (!ScanDigit ((ConstVP)&ind, &num)) Error ("Bad nation output"); n_mil_res(nation) = (long) num; if(other_version) { ptr = ReadEmpire (DONT_PRINT); ptr = ReadEmpire (DONT_PRINT); } ptr = ReadEmpire (DONT_PRINT); if (ptr == (char *) 0) return; n_educ (nation) = ScanFloat (ptr + 19); if ((ptr = strchr (ptr, 'H')) != (char *) 0) n_hap (nation) = ScanFloat (ptr + 16); ptr = ReadEmpire (DONT_PRINT); if (ptr == (char *) 0) return; n_tech (nation) = ScanFloat (ptr + 19); if ((ptr = strchr (ptr, 'R')) != (char *) 0) n_research (nation) = ScanFloat (ptr + 16); ptr = ReadEmpire (DONT_PRINT); if (ptr == (char *) 0) return; if (ind = index (ptr, ':')) { ind ++; n_tech_fact (nation) = ScanFloat (ind); if (ind = index (ind, ':')) { ind ++; n_plag_fact (nation) = ScanFloat (ind + 1); } } if (land_units) { ptr = ptr + 20; ind = index (ptr, ':') + 1; if (!ScanDigit ((ConstVP)&ind, &max_civ_uw)) max_civ_uw = 999; } if (land_units) { (void) SkipNLines (1, DONT_PRINT); ptr = ReadEmpire (DONT_PRINT); ind = index(ptr, ':') + 1; if (!ScanDigit ((ConstVP)&ind, &max_civ_uw)) max_civ_uw = 999; ptr = ReadEmpire (DONT_PRINT); ind = index(ptr, ':') + 1; if (!ScanDigit ((ConstVP)&ind, &safe_civ)) safe_civ = max_civ_uw; ind = index(ind, '/') + 1; if (!ScanDigit ((ConstVP)&ind, &safe_uw)) safe_uw = safe_civ; } else { max_civ_uw = 999; } ptr = ReadEmpire (PRINT); if ((ind = StrStr (ptr, "Happiness needed is")) != NULL) { ind += strlen ("Happiness needed is"); happy_req = ScanFloat (ind); } (void) WaitForPrompt (PRINT); } /* * ScanDump returns the # of sectors read */ int FScanDump (part, flag) const char *part; int flag; { int nr_s; FeedEmpire (Fmt ("dump %s", part), flag); nr_s = ScanDump (flag); (void) WaitForPrompt (flag); return nr_s; } int ScanDump (flag) int flag; { register Sector sct; char *ptr, *line, des; int lx, ly; int owner; int sectors_read; bool err; #ifndef lint int nr; int off; int eff, mob, min, gol, fer, oil, ura, wor, ter; char dist_path [20]; int u_cut, f_cut, s_cut, g_cut, p_cut, i_cut, d_cut, b_cut, o_cut, l_cut, h_cut, r_cut; char u_del, f_del, s_del, g_del, p_del, i_del, d_del, b_del, o_del, l_del, h_del, r_del; int deltox, deltoy; #endif lint if (flag == PRINT) MessageAtEmpire ("scanning dump"); sectors_read = 0; (void) SkipNLines (1, DONT_PRINT); if (EmpireStatus () != E_PRINTING) return 0; ptr = ReadEmpire (DONT_PRINT); if (ptr == (char *) 0) return 0; SkipBlank ((ConstVP)&ptr); if (strncmp (ptr, "DUMP", 4)) /* no sector to scan */ return 0; ptr = ReadEmpire (DONT_PRINT); if (ptr == (char *) 0) return 0; deity = (*ptr == 'o'); for (;;) { line = ptr = ReadEmpire (DONT_PRINT); if (ptr == (char *) 0 || *ptr == '\0') break; if (deity) if (!ScanDigit ((ConstVP)&ptr, &owner)) { PrintAtEmpire ( "Warning: Expected country num in dump"); PrintAtEmpire (Fmt ("Skipping \"%s\"", line)); Bell (); (void) EmpireMore (); continue; } err = ! ScanDigit ((ConstVP)&ptr, &lx); err = err || ! ScanDigit ((ConstVP)&ptr, &ly); if (err) { if (strncmp (ptr, "sector", 6) == 0) /* End of Dump */ break; PrintAtEmpire ("Warning: Expected coordinats in dump"); PrintAtEmpire (Fmt ("Skipping \"%s\"", line)); Bell (); (void) EmpireMore (); continue; } sct = World (lx, ly, S_OWNED); if (deity) set_owner (sct, owner); else set_owner (sct, my_cnum); SkipBlank ((ConstVP)&ptr); des = *ptr; /* * Why? HJV * * if (! UpdateSectorDes (sct, des, True)) * { * PrintAtEmpire (Fmt ("Skipping \"%s\"", line)); * (void) EmpireMore (); * continue; * } */ sectors_read ++; set_des (sct, des); /* * lint complains & quits: * * pass 2 error:(file scan.c) more than 67 args? * */ #ifndef lint /* * You should NOT do it this way, but I'm afraid it * takes too long when you read it in dummy vars */ /* out of date ET * nds eff mob occ min gol fer * oil ura wor ava ter civ mil d(uw) d(foo) d(she) d(gun) * d(pet) d(iro) d(dus) d(bar) d(oil) d(lcm) d(hcm) d(rad) udel fdel sdel gdel * pdel idel ddel bdel odel ldel hdel rdel ucut fcut dcut gcut pcut * icut dcut bcut ocut lcut hcut rcut dpath dxc dyc tuw * tfoo tshe tgun tpet tiro tdus tbar toil tlcm thcm trad */ if(land_units) { nr = sscanf (ptr + 2, " %c %hd %d %c %d %d %d %d \ %d %d %d %hd %d %hd %hd %hd %hd %hd %hd \ %hd %hd %hd %hd %hd %hd %hd %hd %c %c %c %c \ %c %c %c %c %c %c %c %c %d %d %d %d %d \ %d %d %d %d %d %d %d %d %d %hd \ %hd %hd %hd %hd %hd %hd %hd %hd %hd %hd %hd %hd %hd", & sct-> sct2-> sct3-> nds, & sct-> sct2-> eff, & mob, & sct-> sct2-> sct3-> occ, & off, & min, & gol, & fer, & oil, & ura, & wor, & sct-> sct2-> sct3-> ava, & ter, & sct-> sct2-> civ, & sct-> sct2-> mil, & sct-> sct2-> qua [D_UW], & sct-> sct2-> qua [D_FOO], & sct-> sct2-> qua [D_SHE], & sct-> sct2-> qua [D_GUN], & sct-> sct2-> qua [D_PET], & sct-> sct2-> qua [D_IRO], & sct-> sct2-> qua [D_DUS], & sct-> sct2-> qua [D_BAR], & sct-> sct2-> qua [D_OIL], & sct-> sct2-> qua [D_LCM], & sct-> sct2-> qua [D_HCM], & sct-> sct2-> qua [D_RAD], & u_del, & f_del, & s_del, & g_del, & p_del, & i_del, & d_del, & b_del, & o_del, & l_del, & h_del, & r_del, & u_cut, & f_cut, & s_cut, & g_cut, & p_cut, & i_cut, & d_cut, & b_cut, & o_cut, & l_cut, & h_cut, & r_cut, & deltox, & deltoy, & sct-> sct2-> sct3-> tre [D_CIV], & sct-> sct2-> sct3-> tre [D_MIL], & sct-> sct2-> sct3-> tre [D_UW], & sct-> sct2-> sct3-> tre [D_FOO], & sct-> sct2-> sct3-> tre [D_SHE], & sct-> sct2-> sct3-> tre [D_GUN], & sct-> sct2-> sct3-> tre [D_PET], & sct-> sct2-> sct3-> tre [D_IRO], & sct-> sct2-> sct3-> tre [D_DUS], & sct-> sct2-> sct3-> tre [D_BAR], & sct-> sct2-> sct3-> tre [D_OIL], & sct-> sct2-> sct3-> tre [D_LCM], & sct-> sct2-> sct3-> tre [D_HCM], & sct-> sct2-> sct3-> tre [D_RAD]); if (nr != 67) { PrintAtEmpire ("Bad dump Format"); PrintAtEmpire (Fmt ("Skipping \"%s\"", line)); Bell (); (void) EmpireMore (); } } else { nr = sscanf (ptr + 2, " %c %hd %d %c %d %d %d \ %d %d %d %hd %d %hd %hd %hd %hd %hd %hd \ %hd %hd %hd %hd %hd %hd %hd %hd %c %c %c %c \ %c %c %c %c %c %c %c %c %d %d %d %d %d \ %d %d %d %d %d %d %d %s %d %d %hd \ %hd %hd %hd %hd %hd %hd %hd %hd %hd %hd %hd", & sct-> sct2-> sct3-> nds, & sct-> sct2-> eff, & mob, & sct-> sct2-> sct3-> occ, & min, & gol, & fer, & oil, & ura, & wor, & sct-> sct2-> sct3-> ava, & ter, & sct-> sct2-> civ, & sct-> sct2-> mil, & sct-> sct2-> qua [D_UW], & sct-> sct2-> qua [D_FOO], & sct-> sct2-> qua [D_SHE], & sct-> sct2-> qua [D_GUN], & sct-> sct2-> qua [D_PET], & sct-> sct2-> qua [D_IRO], & sct-> sct2-> qua [D_DUS], & sct-> sct2-> qua [D_BAR], & sct-> sct2-> qua [D_OIL], & sct-> sct2-> qua [D_LCM], & sct-> sct2-> qua [D_HCM], & sct-> sct2-> qua [D_RAD], & u_del, & f_del, & s_del, & g_del, & p_del, & i_del, & d_del, & b_del, & o_del, & l_del, & h_del, & r_del, & u_cut, & f_cut, & s_cut, & g_cut, & p_cut, & i_cut, & d_cut, & b_cut, & o_cut, & l_cut, & h_cut, & r_cut, dist_path, & deltox, & deltoy, & sct-> sct2-> sct3-> tre [D_UW], & sct-> sct2-> sct3-> tre [D_FOO], & sct-> sct2-> sct3-> tre [D_SHE], & sct-> sct2-> sct3-> tre [D_GUN], & sct-> sct2-> sct3-> tre [D_PET], & sct-> sct2-> sct3-> tre [D_IRO], & sct-> sct2-> sct3-> tre [D_DUS], & sct-> sct2-> sct3-> tre [D_BAR], & sct-> sct2-> sct3-> tre [D_OIL], & sct-> sct2-> sct3-> tre [D_LCM], & sct-> sct2-> sct3-> tre [D_HCM], & sct-> sct2-> sct3-> tre [D_RAD]); if (nr != 65) { PrintAtEmpire ("Bad dump Format"); PrintAtEmpire (Fmt ("Skipping \"%s\"", line)); Bell (); (void) EmpireMore (); } } set_mob (sct, mob); if (land_units) set_off (sct, off); set_min (sct, min); set_gol (sct, gol); set_fer (sct, fer); set_oil (sct, oil); set_ura (sct, ura); set_ter (sct, ter); set_wor (sct, wor); set_dc_uw (sct, u_del, u_cut); set_dc_foo (sct, f_del, f_cut); set_dc_she (sct, s_del, s_cut); set_dc_gun (sct, g_del, g_cut); set_dc_pet (sct, p_del, p_cut); set_dc_iro (sct, i_del, i_cut); set_dc_dus (sct, d_del, d_cut); set_dc_bar (sct, b_del, b_cut); set_dc_oil (sct, o_del, o_cut); set_dc_lcm (sct, l_del, l_cut); set_dc_hcm (sct, h_del, h_cut); set_dc_rad (sct, r_del, r_cut); set_dxc (sct, EX (deltox)); set_dyc (sct, EX (deltoy)); if (land_units == 0 && * dist_path != '_') SetDistPath (sct, dist_path); if (s_nds (sct) == '_') s_nds (sct) = s_des (sct); DEL_INFO (sct); SET_INFO_ALL (sct); #endif lint } return sectors_read; } void FScanMap (part, flag) const char *part; int flag; { FeedEmpire (Fmt ("map %s", part), flag); ScanMap (flag); (void) WaitForPrompt (flag); } void FScanBmap (part, flag) const char *part; int flag; { FeedEmpire (Fmt ("bmap %s", part), flag); ScanMap (flag); (void) WaitForPrompt (flag); } void ScanMap (flag) int flag; { register char *line; char *ptri; int first, second, len; char first1, first2, second1, second2; int xcoord, ycoord, length; bool first_line; register int i; register Sector sct; if (flag == PRINT) MessageAtEmpire ("scanning map"); line = ptri = ReadEmpire (DONT_PRINT); if (line == (char *) 0) return; if (EmpireStatus () == E_COMMAND) { if (flag == PRINT) { PrintAtEmpire (""); PrintAtEmpire (line); } Message ("map command failed"); Bell (); return; } len = strlen (line); SkipBlank ((ConstVP)&ptri); second1 = second2 = '\0'; first = second = 0; first1 = *ptri++; length = 1; if (*ptri != '\0' && *ptri != '\n') { second1 = *ptri++; length++; } while (*ptri != '\0' && *ptri != '\n') { ptri ++; length ++; } line = ptri = ReadEmpire (DONT_PRINT); if (line == (char *) 0) return; if (EmpireStatus () == E_COMMAND) { if (flag == PRINT) { PrintAtEmpire (""); PrintAtEmpire (line); } Message ("map command failed"); Bell (); return; } SkipBlank ((ConstVP)&ptri); first2 = *ptri++; if (*ptri != '\0' && *ptri != '\n') second2 = *ptri; if (first1 == '-') first = '0' - first2; else { first = 10 * (first1 - '0') + (first2 - '0'); if (second1 != '\0') { if (second1 == '-') second = '0' - second2; else second = 10 * (second1 - '0') + (second2 - '0'); if (first > second) first = -first; } } first_line = True; for (;;) { ptri = line = ReadEmpire (DONT_PRINT); if (line == (char *) 0) return; if (EmpireStatus () != E_PRINTING) { if (flag == PRINT) { PrintAtEmpire (""); PrintAtEmpire (line); } return; } /* the hunderds */ if (first_line) { char *ptr; first_line = False; ptr = ptri + 5; if (* ptr >= '0' && * ptr <= '9') { if (first < 0) { first = 10 * first + ('0' - * ptr); continue; } first = 10 * first + (* ptr - '0'); if (second < 0 || second1 == '\0') continue; if (*++ptr != '\0' && *ptr != '\n') { second = 10 * second + (* ptr - '0'); if (first > second) first = -first; } continue; } } if (line [3] == ' ' || strlen (line) < len) continue; if (! ScanDigit ((ConstVP)&ptri, &ycoord)) { PrintAtEmpire ("Map : Coordinate expected in map"); PrintAtEmpire ( Fmt ("Skipping \"%s\"", line)); Bell (); (void) EmpireMore (); continue; } for (i = ABS (ycoord + first) % 2; i < length; i += 2) if (line [5 + i] != ' ') { xcoord = first + i; sct = World (xcoord, ycoord, S_DESIG); if (!UpdateSectorDes (sct, line [5 + i], True)) { PrintAtEmpire (Fmt ( "Map : Skipping \"%s\"", line)); Bell (); (void) EmpireMore (); break; } } } } void FScanRadar (rad) const char *rad; { FeedEmpire (Fmt ("radar %s", rad), PRINT); ScanRadar (); (void) WaitForPrompt (PRINT); } void FScanLRadar (rad) const char *rad; { FeedEmpire (Fmt ("lradar %s", rad), PRINT); ScanRadar (); (void) WaitForPrompt (PRINT); } void FeedSatellite () { FeedEmpire (Fmt ("satellite %s", "*"), PRINT); scanning_satellites=True; ScanSatellite (); scanning_satellites=False; (void) WaitForPrompt (PRINT); } void ScanRadar () { int x, y, d, sx, sy; char *line, *ptri; char des; Sector sct; char tbuf[3]; regmatch_t rmatch[10]; if (EmpireStatus () == E_COMMAND) return; MessageAtEmpire ("scanning radar(s)"); for (;;) { if (EmpireStatus () == E_PRINTING) { line = ReadEmpire (DONT_PRINT); if (line == (char *) 0) return; } if (EmpireStatus () != E_PRINTING) { PrintAtEmpire (""); PrintAtEmpire (line); return; } if (sscanf (line, "%d,%d efficiency %*d%%, max range %d", &sx, &sy, &d) != 3) { if ((ptri = index (line, '#')) == (char *) 0) { PrintAtEmpire (Fmt ( "ScanRadar: new kind of radar ?\n\"%s\"\n", line)); Bell (); (void) EmpireMore (); continue; } if (match_str (ptri, "#\\d+\\)? at (-?\\d+),(-?\\d+) efficiency \\d+%, max range (\\d+)", rmatch, 10) == 0) { sx = atoi(ptri + rmatch[1].rm_so); sy = atoi(ptri + rmatch[2].rm_so); d = atoi(ptri + rmatch[3].rm_so); } else { /* pre RE days if (sscanf (ptri, "#%*d at %d,%d efficiency %*d%%, max range %d", &sx, &sy, &d) != 3 && sscanf (ptri, "#%*d) at %d,%d efficiency %*d%%, max range %d", &sx, &sy, &d) != 3) { */ PrintAtEmpire (Fmt ( "ScanRadar: nothing? ??\n\"%s\"\n", line)); Bell (); (void) EmpireMore (); continue; } sct = World (sx, sy, S_DESIG); (void) UpdateSectorDes (sct, '.', False); } if (d == 0) { (void) SkipNLines (2, DONT_PRINT); continue; } for (y = sy - d; y <= sy + d; y++) { ptri = line = ReadEmpire (DONT_PRINT); if (line == (char *) 0) return; for (x = sx - 2*d; x < (sx + 2*d); ptri++, x++) { if (*ptri == '\0') { PrintAtEmpire (Fmt (" Trying to scan 0 (%d, %d) %d\"%s\"\n", x, y, d, line)); Bell (); (void) EmpireMore (); break; } if ((x + y) % 2 != 0) continue; des = *ptri; if (des == ' ' || des == '0') continue; sct = World (x, y, S_DESIG); if (des >= 'A' && des <= 'Z') { if (!ShipAtSect (sct, des)) { PrintAtEmpire ( Fmt ( "Warning Enemy ship (%c) at %s detected with no further info", des, CrdStr (sct))); /* tbuf[0] = des; tbuf[1] = 0; AddEnemyShip (x, y, 0, 0, tbuf); */ #ifdef MORE_ON_ENEMY_SHIPS Bell (); (void) EmpireMore (); #endif } (void) UpdateSectorDes (sct, '.', False); } else if (des == '$') { PrintAtEmpire (Fmt ("Satellite detected at %s", CrdStr (sct))); (void) UpdateSectorDes (sct, '.', False); #ifdef MORE_ON_SATELLITES Bell (); (void) EmpireMore (); #endif } else if (!UpdateSectorDes (sct, des, True)) { PrintAtEmpire ( Fmt ("Skipping \"%s\"", line)); Bell (); (void) EmpireMore (); } } } line = ReadEmpire (DONT_PRINT); if (line == (char *) 0) return; } } void FScanLookout (where) const char *where; { FeedEmpire (Fmt ("lookout %s", where), PRINT); ScanLookout (); (void) WaitForPrompt (PRINT); } void FScanCoastWatch (where) const char *where; { FeedEmpire (Fmt ("coastwatch %s", where), PRINT); if (! SkipNLines (2, PRINT)) return; ScanLookout (); (void) WaitForPrompt (PRINT); } void FScanLLookout (where) const char *where; { FeedEmpire (Fmt ("llook %s", where), PRINT); ScanLookout (); (void) WaitForPrompt (PRINT); } void ScanLookout () { char *line, *ptri, *tmpptr, savechar, *name; int owner, num, x, y, last_ship = -1; char des; Sector sct; bool err, showit, found; time_t tt, time (); regmatch_t rmatch[10]; MessageAtEmpire ("scanning lookout"); tt = time ((time_t *) 0); for (;;) { ptri = line = ReadEmpire (DONT_PRINT); if (line == (char *) 0) return; if (EmpireStatus () != E_PRINTING) { PrintAtEmpire (""); PrintAtEmpire (line); return; } if (StrStr (line, "Legal directions are") != NULL) { while (EmpireStatus () == E_PRINTING) line = ReadEmpire (DONT_PRINT); PrintAtEmpire (""); PrintAtEmpire (line); return; } SkipBlank ((ConstVP)&ptri); if (*ptri == '\n' || *ptri == '\0') continue; if (!strncmp (ptri, "Your ", 5)) /* It's one of my own sectors, just skip it */ continue; name = ptri; ptri = index (ptri, '('); if (ptri == (char *) 0) { Ship ship; if (last_ship == -1) { PrintAtEmpire ("Scan L/S/C : no country"); PrintAtEmpire ( Fmt ("Skipping \"%s\"", line)); Bell (); (void) EmpireMore (); continue; } ptri = name; SkipBlank ((ConstVP)&ptri); if ((ship = NrToShip (last_ship)) != NULL) set_sh_name (ship, ptri); continue; } tmpptr = ptri; ptri ++; if (*ptri == '#') ptri ++; if (! ScanDigit ((ConstVP)&ptri, &owner)) { PrintAtEmpire ("Scan L/S/C : Bad country format"); PrintAtEmpire ( Fmt ("Skipping \"%s\"", line)); Bell (); (void) EmpireMore (); continue; } do tmpptr--; while (isspace (*tmpptr)); savechar = * ++tmpptr; * tmpptr = '\0'; AddCountry (owner, name); * tmpptr = savechar; if (*ptri != ')') ptri = index (ptri, ')'); if (ptri == (char *) 0 && !chainsaw_version) { PrintAtEmpire ("Scan L/S/C : Bad country format"); PrintAtEmpire ( Fmt ("Skipping \"%s\"", line)); Bell (); (void) EmpireMore (); continue; } ptri++; /* skip ')' */ SkipBlank ((ConstVP)&ptri); tmpptr = index (ptri, '#'); if (tmpptr == (char *) 0) { /* it's a sector */ int eff, civ, mil; des = CharOfDesigName (ptri); if (des == '\0') { PrintAtEmpire ( "Scan L/S/C : Unknown Designation ?"); PrintAtEmpire ( Fmt ("Skipping \"%s\"", line)); Bell (); (void) EmpireMore (); continue; } ptri += strlen (DesignName (des)); err = ! ScanDigit ((ConstVP)&ptri, &eff) || *ptri != '%'; ptri++; /* Skip '%' */ SkipBlank ((ConstVP)&ptri); if (err || (strncmp (ptri, "efficient", 9) != 0)) { PrintAtEmpire ("Scan L/S/C : Bad eff Format"); PrintAtEmpire ( Fmt ("Skipping \"%s\"", line)); Bell (); (void) EmpireMore (); continue; } ptri += 9; SkipBlank ((ConstVP)&ptri); civ = 0; mil = 0; for (;;) { if (strncmp (ptri, "with approx", 11) == 0) { ptri += 12; err = ! ScanDigit ((ConstVP)&ptri, &num); ptri++; if (!err && *ptri == 'c') civ = num == 0 ? 1 : num; else if (!err && *ptri == 'm') mil = num == 0 ? 1 : num; else { PrintAtEmpire ( "Scan L/S/C : Bad Lookout format"); PrintAtEmpire ( Fmt ("Skipping \"%s\"", line)); Bell (); (void) EmpireMore (); break; } ptri += 4; } else break; } SkipBlank ((ConstVP)&ptri); if (*ptri != '@' || sscanf (ptri, "@ %d,%d", &x, &y) != 2) { PrintAtEmpire ( "Scan L/S/C : Unknown @ format ?"); PrintAtEmpire (Fmt ( "Skipping \"%s\"", line)); Bell (); (void) EmpireMore (); continue; } sct = World (x, y, S_RESOU); if (s_time (sct) == tt) /* Already got it */ continue; if (s_owned (sct)) { /* Must have been captured */ PrintAtEmpireMode ( Fmt ("Your sector at %s has been captured", CrdStr (sct)), BOLD); Bell (); DEL_INFO (sct); SET_INFO_RES (sct); /* save resources */ set_owner (sct, UNKNOWN_CNUM); } /* This is most uptodate info overwrite anythin else */ set_des (sct, des); set_owner (sct, owner); set_eff (sct, eff); set_civ (sct, civ); set_mil (sct, mil); set_time (sct, tt); SET_INFO_LOO (sct); PrintAtEmpire (line); } else { /* it's a ship, plane or unit (in chain 3.0) */ /* #10) @ -2,2 or #10 @ -2,2 */ if (match_str (tmpptr, "#(\\d+)\\)?\\s+@\\s*(-?\\d+),(-?\\d+)", rmatch, 10) == 0) { num = atoi (tmpptr + rmatch[1].rm_so); x = atoi(tmpptr + rmatch[2].rm_so); y = atoi(tmpptr + rmatch[3].rm_so); } else { PrintAtEmpire ( "Scan L/S/C : Unknown ship/plane/unit format ?"); PrintAtEmpire (Fmt ("Skipping \"%s\"", line)); Bell (); (void) EmpireMore (); continue; } do tmpptr--; while (*tmpptr == '(' || isspace (*tmpptr)); savechar = * ++tmpptr; * tmpptr = '\0'; /* leave's in ptri name */ last_ship = -1; if (!land_units) { if (AddEnemyShip (x, y, num, owner, ptri)) { * tmpptr = savechar; PrintAtEmpire (line); } /* else ship already on list and at same loc. * don't tell player what he already knows */ } else { showit = found = False; /* find out, what we have seen */ if (FindShipTypeByName (ptri, False) != -1) { showit = AddEnemyShip (x, y, num, owner, ptri); last_ship = num; found = True; } if (FindLandTypeByName (ptri, False) != -1) { showit = AddEnemyLand (x, y, num, owner, ptri, False, False); found = True; } if (FindPlaneTypeByName (ptri, False) != -1) { showit = AddEnemyPlane (x, y, num, owner, ptri); found = True; } if (!found) { /* assume its a ship? */ Sector s; s = World (x, y, S_DESIG); if (s_des (s) == '.' || s_des (s) == 'h' || s_des (s) == '=') { showit = AddEnemyShip (x, y, num, owner, ptri); last_ship = num; } else showit = AddEnemyPlane (x, y, num, owner, ptri); } if (showit) { * tmpptr = savechar; PrintAtEmpire (line); } } } } } void FScanReport (who) const char *who; { FeedEmpire (Fmt ("report %s", who), PRINT); ScanReport (); (void) WaitForPrompt (PRINT); } void ScanReport () { char *line, *ptri, *tmpptr; int nr; extern WinInfo empire_win; MessageAtEmpire ("searching country names"); if (! SkipNLines (1, DONT_PRINT)) return; for (;;) { ptri = line = ReadEmpire (DONT_PRINT); if (line == (char *) 0) return; if (EmpireStatus () != E_PRINTING) { PrintAtEmpire (""); PrintAtEmpire (line); return; } SkipBlank ((ConstVP)&ptri); if (*ptri == '#') /* # name ... */ continue; if (! ScanDigit ((ConstVP)& ptri, & nr)) { PrintAtEmpire ("Bad relation format"); PrintAtEmpire (Fmt ("Skipping \"%s\"", line)); Bell (); (void) EmpireMore (); continue; } SkipBlank ((ConstVP)& ptri); tmpptr = line + 21; do tmpptr--; while (isspace (*tmpptr)); * ++ tmpptr = '\0'; AddCountry (nr, ptri); } } void FScanRelations (cnum) int cnum; { FeedEmpire (Fmt ("relations %d", cnum), PRINT); ScanRelations (); (void) WaitForPrompt (PRINT); } void ScanRelations () { char *line, *ptri, *tmpptr; int nr; bool err; extern WinInfo empire_win; MessageAtEmpire ("searching country names"); (void) SkipNLines (3, DONT_PRINT); for (;;) { ptri = line = ReadEmpire (DONT_PRINT); if (line == (char *) 0) return; if (EmpireStatus () != E_PRINTING) { PrintAtEmpire (""); PrintAtEmpire (line); return; } SkipBlank ((ConstVP)&ptri); err = ! ScanDigit ((ConstVP)& ptri, &nr); ptri = index (ptri, ')') + 1; if (err || ptri == (char *) 0) { PrintAtEmpire ("Bad relation format"); PrintAtEmpire (Fmt ("Skipping \"%s\"", line)); Bell (); (void) EmpireMore (); continue; } SkipBlank ((ConstVP)& ptri); tmpptr = line + 26; do tmpptr--; while (isspace (*tmpptr)); * ++ tmpptr = '\0'; AddCountry (nr, ptri); } } void FScanSpy (where) const char *where; { FeedEmpire (Fmt ("spy %s", where), PRINT); ScanSpy (); (void) WaitForPrompt (PRINT); } bool ScanSpySatLine (line, oldline) char * line; char * oldline; { bool err; int x, y; Sector sct; int own, oldown, nr, idx; int eff = 0, tech = 0; char *ptri, *ptri2; char name [30]; if (land_units && (StrStr(line,"Spies report enemy unit: ") != (char *) 0)) { err = sscanf (oldline , " %d,%d %*c %d", &x, &y, & own) != 3; ptri = index(line, ':'); ptri = ptri + 3; ptri2 = index(ptri, '#'); idx = (ptri2 - ptri) - 1; strncpy (name, ptri, idx); name [idx] = '\0'; idx = sscanf (ptri2, "#%d %*s %d%*c %*s %d)", & nr, & eff, & tech); if (!err) { eff++; tech++; if (idx < 2) { eff--; tech--; } if (idx == 2) tech--; AddEnemyLand (x, y, nr, own, name, eff, tech); return True; } else return False; } err = sscanf (line , " %d,%d ", &x, &y) != 2; if (! err) { sct = World (x, y, S_RESOU); /* * Spyplanes also reports your own sectors */ if (s_owned (sct)) return True; nr = sscanf (line, " %*d,%*d %c %d %d %hd %hd %hd %hd %hd %hd %hd", & sct-> des, & own, & eff, & sct-> sct2-> civ, & sct-> sct2-> mil, & sct-> sct2-> qua [D_SHE], & sct-> sct2-> qua [D_GUN], & sct-> sct2-> qua [D_IRO], & sct-> sct2-> qua [D_PET], & sct-> sct2-> qua [D_FOO]); } if (err || nr != 10) return False; set_owner (sct, own); set_eff (sct, eff); SET_INFO_SPY (sct); SetSectorTime (sct); DrawSector (sct); return True; } bool ScanSpyLine (line, oldline) char * line; char * oldline; { bool err; int x, y; Sector sct; int own, oldown, nr, idx; int eff = 0, tech = 0; char *ptri, *ptri2; char name [30]; if (land_units && (StrStr(line,"Spies report enemy unit: ") != (char *) 0)) { err = sscanf (oldline , " %d,%d %*c %d", &x, &y, & own) != 3; ptri = index(line, ':'); ptri = ptri + 3; ptri2 = index(ptri, '#'); idx = (ptri2 - ptri) - 1; strncpy (name, ptri, idx); name [idx] = '\0'; idx = sscanf (ptri2, "#%d %*s %d%*c %*s %d)", & nr, & eff, & tech); if (!err) { eff++; tech++; if (idx < 2) { eff--; tech--; } if (idx == 2) tech--; AddEnemyLand (x, y, nr, own, name, eff, tech); return True; } else return False; } err = sscanf (line , " %d,%d ", &x, &y) != 2; if (! err) { sct = World (x, y, S_RESOU); /* * Spyplanes also reports your own sectors */ if (s_owned (sct)) return True; /* changed by pkenny, added a fix to spy, added & oldown, 11 */ if (sscanf (line, " %*d,%*d %c %d %d %d %hd %hd %hd %hd %hd %hd %hd", & sct-> des, & own, & oldown, & eff, & sct-> sct2-> civ, & sct-> sct2-> mil, & sct-> sct2-> qua [D_SHE], & sct-> sct2-> qua [D_GUN], & sct-> sct2-> qua [D_IRO], & sct-> sct2-> qua [D_PET], & sct-> sct2-> qua [D_FOO]) != 11 && sscanf (line, " %*d,%*d %c %d %d %hd %hd %hd %hd %hd %hd %hd", & sct-> des, & own, & eff, & sct-> sct2-> civ, & sct-> sct2-> mil, & sct-> sct2-> qua [D_SHE], & sct-> sct2-> qua [D_GUN], & sct-> sct2-> qua [D_IRO], & sct-> sct2-> qua [D_PET], & sct-> sct2-> qua [D_FOO]) != 10) err = True; } if (err) return False; set_owner (sct, own); set_eff (sct, eff); SET_INFO_SPY (sct); SetSectorTime (sct); DrawSector (sct); return True; } void ScanSpy () { char *line; char *oldline; int x, y; MessageAtEmpire ("scanning spy output"); do { line = ReadEmpire (PRINT); if (EmpireStatus () == E_COMMAND) return; } while (match_str (line, "\\s+sect\\s+type\\s+own", NULL, 0) != 0); for (;;) { line = ReadEmpire (PRINT); if (line == (char *) 0) return; if (EmpireStatus () != E_PRINTING) { PrintAtEmpire (""); PrintAtEmpire (line); return; } if (land_units && !StrEQ (line, "Spies")) { oldline = (char *) malloc(strlen(line)+1); strcpy (oldline, line); } if (!ScanSpyLine (line, oldline)) { Message ("Spy failed"); Bell (); (void) EmpireMore (); ClearMes (); continue; } } } bool SetOffset (country) char *country; { char *line; FeedEmpire (Fmt ("offset %s", country), PRINT); for (;;) { line = ReadEmpire (PRINT); if (line == (char *) 0) return False; if (EmpireStatus () == E_COMMAND) { PrintAtEmpire (line); return False; } if (! strncmp (line, "No such country", 15)) { fprintf (stderr, "No such country : %s\n", country); leave (); } if (! strncmp (line, "Old offset was", 14)) { (void) WaitForPrompt (PRINT); deity = True; return True; } } } /* * new code mta Fri Nov 30 22:26:02 EET 1990 */ void ScanSatellite () { register int x, y, start_x, end_x, start_y, end_y; int d, sx, sy, off_sector; char *line, *ptri; char des; Sector sct; if (EmpireStatus () == E_COMMAND) return; MessageAtEmpire ("scanning satellite(s)"); for (;;) { if (EmpireStatus () == E_PRINTING) { line = ReadEmpire (DONT_PRINT); if (line == (char *) 0) return; } if (EmpireStatus () != E_PRINTING) { PrintAtEmpire (""); PrintAtEmpire (line); return; } if (!strncmp (line, "Satellite", 9)) continue; if (!strncmp (line, "(c) 1989 Imaginative Images Inc.", 32)) continue; if (sscanf (line, "landsat #%*d at %d,%d efficiency %*d%%, max range %d", &sx, &sy, &d) != 3) { ptri = index(line, '#'); if (!ptri) ptri = line; /* "spysat %*[12] #%*d at %d,%d efficiency %*d%%, max range %d", */ if (sscanf (ptri, "#%*d at %d,%d efficiency %*d%%, max range %d", &sx, &sy, &d) != 3) { PrintAtEmpire (Fmt ( "ScanSatellite: new kind of satellite ?\n\"%s\"\n", ptri)); Bell (); (void) EmpireMore (); continue; } MessageAtEmpire("scanning spysat"); /* skip: * Satellite sector report * date * sect type own eff civ mil shl gun iron pet food */ SkipNLines(1, PRINT); SkipNLines(3, DONT_PRINT); line = ReadEmpire (DONT_PRINT); while( ScanSpySatLine(line, NULL) ) line = ReadEmpire (DONT_PRINT); /* skip: * empty * Satellite ship report * date * own shp# ship type sector eff */ SkipNLines(1, DONT_PRINT); SkipNLines(1, PRINT); SkipNLines(1, DONT_PRINT); line = ReadEmpire (DONT_PRINT); off_sector = (char *)StrStr(line, "sector") - line; line = ReadEmpire (DONT_PRINT); while ( AddSatelliteShip(line, off_sector) ) line = ReadEmpire (DONT_PRINT); if (land_units) { /* skip: * empty * Satellite unit report * date * own lnd# unit type sector eff */ SkipNLines(1, DONT_PRINT); SkipNLines(1, PRINT); SkipNLines(1, DONT_PRINT); line = ReadEmpire (DONT_PRINT); off_sector = (char *)StrStr(line, "sector") - line; line = ReadEmpire (DONT_PRINT); while ( AddSatelliteLand(line, off_sector) ) line = ReadEmpire (DONT_PRINT); } /* skip: * empty * Satellite radar report */ SkipNLines(1, DONT_PRINT); SkipNLines(1, PRINT); } else { MessageAtEmpire("scanning landsat"); SkipNLines(1, DONT_PRINT); } sct = World (sx, sy, S_DESIG); (void) UpdateSectorDes (sct, '.', False); if (d == 0) { (void) SkipNLines (2, DONT_PRINT); continue; } /* Don't try to scan more than width of world */ if ( d < MAX_X/4 ) { start_x = sx - (2 * d); end_x = sx + (2 * d); } else { start_x = sx - (MAX_X/2); end_x = sx + (MAX_X/2) - 1; } if (d < MAX_Y/2) { /* TARL - Don't scan more than height */ start_y = sy - d; /* of world. */ end_y = sy + d; } else { start_y = sy - (MAX_Y/2); end_y = sy + (MAX_Y/2) - 1; } for (y = start_y; y <= end_y; y++) { ptri = line = ReadEmpire (DONT_PRINT); if (line == (char *) 0) return; for (x = start_x; x <= end_x; ptri++, x++) { if (*ptri == '\0') { PrintAtEmpire (Fmt (" Trying to scan 0 (%d, %d) %d\"%s\"\n", x, y, d, line)); Bell (); (void) EmpireMore (); break; } if ((x + y) % 2 == 0) { des = *ptri; if (des == ' ' || des == '0') continue; sct = World (x, y, S_DESIG); if (des >= 'A' && des <= 'Z') { if (!ShipAtSect (sct, des)) { PrintAtEmpire ( Fmt ( "Warning Enemy ship (%c) at %s detected with no further info", des, CrdStr (sct))); Bell (); (void) EmpireMore (); } (void) UpdateSectorDes (sct, '.', False); } else if (des == '$') { PrintAtEmpire (Fmt ("Satellite detected at %s", CrdStr (sct))); Bell (); (void) EmpireMore (); } else if (!UpdateSectorDes (sct, des, (des == '?')? False:True)) { PrintAtEmpire ( Fmt ("Skipping \"%s\"", line)); Bell (); (void) EmpireMore (); } } } } line = ReadEmpire (DONT_PRINT); if (line == (char *) 0) return; } } static bool AddSatelliteShip (line, sector) char *line; int sector; { bool err; int x, y; Sector sct; int own, eff, shp; char type[128], *tmpptr; char *coords = line+sector; if (strlen(line) < 20) return False; SkipBlank((ConstVP) &line ); err = !ScanDigit((ConstVP) &line, &own); err |= !ScanDigit((ConstVP) &line, &shp); SkipBlank((ConstVP) &line ); if (! err && own != my_cnum) { tmpptr = line+17; /* was 18, off by one */ do tmpptr--; while (isspace (*tmpptr)); *(tmpptr+1) = '\0'; sscanf(coords, "%d,%d %d%%", &x, &y, &eff); if (AddEnemyShip(x, y, shp, own, line)) PrintAtEmpire(Fmt ("Enemy (%d) ship (%s) at %d,%d", own, line, x, y)); } if ( err ) return False; else return True; } static bool AddSatelliteLand (line, sector) char *line; int sector; { bool err; int x, y; Sector sct; int own, eff, lnd; char type[128], *tmpptr; char *coords = line+sector; SkipBlank((ConstVP) &line ); err = !ScanDigit((ConstVP) &line, &own); err |= !ScanDigit((ConstVP) &line, &lnd); SkipBlank((ConstVP) &line ); if (! err && own != my_cnum) { tmpptr = line+10; do tmpptr--; while (isspace (*tmpptr)); *(tmpptr+1) = '\0'; sscanf(coords, "%d,%d %d%%", &x, &y, &eff); if (AddEnemyLand(x, y, lnd, own, line, eff, 0)) PrintAtEmpire(Fmt ("Enemy (%d) unit (%s) at %d,%d", own, line, x, y)); } if ( err ) return False; else return True; } xemp5.1-beta/lib/misc/sector.c100444 12266 2116 100163 6030213404 14626 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/misc/RCS/sector.c,v 5.3 1995/09/21 07:40:52 jpo Exp $ $Date: 1995/09/21 07:40:52 $ $Author: jpo $ $Id: sector.c,v 5.3 1995/09/21 07:40:52 jpo Exp $ $Locker: $ $Log: sector.c,v $ Revision 5.3 1995/09/21 07:40:52 jpo Check for no food Revision 5.2 1995/09/08 07:32:04 jpo const * Revision 5.1 93/03/14 16:49:43 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:18:49 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:37:47 greyhelm * Added RCS headers - Karl Hagen * */ /* * Empire Tool, file: commodities.c <900212> * * doalloc_world () * Allacates the world * * adjacent (sct1, sct2) * True when the sectors are adjacent */ #include "type.h" #include "main.h" #include "sector.h" #include "nation.h" #include "var.h" #include "ship.h" #include "func.h" #include "land.h" #include "version.h" /* * struct s_sector3 NILSCT3 = { * ' ', 0, 0, 0, ' ', { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }, * { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }, (char *) 0, 0, 0 * }; * * struct s_sector2 NILSCT2 = { * 0, 0, 0, 0, 0, 0, 0, { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }, * (time_t) 0, &NILSCT3 * }; * * struct s_sector1 NILSCT = { * 0, 0, UNKNOW_CNUM, ' ', 0, 0, 0, 0, 0, 0, (Ship) 0, 0, &NILSCT2 * }; */ char chardirs [] = ".bngjyuh"; time_t time _PROTO((time_t *now)); void SetSectorTime (sct) Sector sct; { set_time (sct, time ((time_t *) 0)); } Sector **MallocWorld () { int x; register Sector **ret; ret = (Sector **) doalloc ((unsigned) MAX_X * sizeof (Sector *)); for (x = 0; x < MAX_X; x ++) { ret [x] = (Sector *) doalloc ((MAX_Y / 2) * sizeof (Sector)); bzero ((char *) ret [x], (MAX_Y / 2) * sizeof (Sector)); /* * for (y = 0; y < MAX_Y / 2; y++) * ret[x][y] = &NILSCT; */ } return ret; } void SetDistPath (sct, path) Sector sct; char *path; { if (s_pat (sct) != (char *) 0) { free (s_pat (sct)); set_pat (sct, (char *) 0); } if (path == (char *) 0 || * path == '\0' || * path == '_') return; set_pat (sct, Str (path)); } int GiveQuant (sct, item) Sector sct; char item; { switch (item) { case 'c': return s_civ (sct); case 'm': return s_mil (sct); case 'u': return q_uw (sct); case 'f': return q_foo (sct); case 's': return q_she (sct); case 'g': return q_gun (sct); case 'p': return q_pet (sct); case 'i': return q_iro (sct); case 'd': return q_dus (sct); case 'b': return q_bar (sct); case 'o': return q_oil (sct); case 'l': return q_lcm (sct); case 'h': return q_hcm (sct); case 'r': return q_rad (sct); default: return 0; } } bool Adjacent (sct1, sct2) Sector sct1, sct2; { register int x1, x2, y1, y2; x1 = s_xcd (sct1); x2 = s_xcd (sct2); y1 = s_ycd (sct1); y2 = s_ycd (sct2); /* to the left */ return (x1 == (EX (x2 - 2)) && y1 == y2) || (x1 == (EX (x2 + 2)) && y1 == y2) || (x1 == (EX (x2 + 1)) && y1 == (EY (y2 + 1))) || (x1 == (EX (x2 + 1)) && y1 == (EY (y2 - 1))) || (x1 == (EX (x2 - 1)) && y1 == (EY (y2 + 1))) || (x1 == (EX (x2 - 1)) && y1 == (EY (y2 - 1))); } void SetQuant (sct, item, value) Sector sct; char item; int value; { switch (item) { case 'c': set_civ (sct, value); break; case 'm': set_mil (sct, value); break; case 'u': set_q_uw (sct, value); break; case 'f': set_q_foo (sct, value); break; case 's': set_q_she (sct, value); break; case 'g': set_q_gun (sct, value); break; case 'p': set_q_pet (sct, value); break; case 'i': set_q_iro (sct, value); break; case 'd': set_q_dus (sct, value); break; case 'b': set_q_bar (sct, value); break; case 'o': set_q_oil (sct, value); break; case 'l': set_q_lcm (sct, value); break; case 'h': set_q_hcm (sct, value); break; case 'r': set_q_rad (sct, value); break; } } void SetThreshold (sct, item, value) Sector sct; char item; int value; { switch (item) { case 'u': set_t_uw (sct, value); break; case 'f': set_t_foo (sct, value); break; case 's': set_t_she (sct, value); break; case 'g': set_t_gun (sct, value); break; case 'p': set_t_pet (sct, value); break; case 'i': set_t_iro (sct, value); break; case 'd': set_t_dus (sct, value); break; case 'b': set_t_bar (sct, value); break; case 'o': set_t_oil (sct, value); break; case 'l': set_t_lcm (sct, value); break; case 'h': set_t_hcm (sct, value); break; case 'r': set_t_rad (sct, value); break; case 'a': set_t_uw (sct, value); set_t_foo (sct, value); set_t_she (sct, value); set_t_gun (sct, value); set_t_pet (sct, value); set_t_iro (sct, value); set_t_dus (sct, value); set_t_bar (sct, value); set_t_oil (sct, value); set_t_lcm (sct, value); set_t_hcm (sct, value); set_t_rad (sct, value); break; } } void SetCutoff (sct, item, value) Sector sct; char item; int value; { switch (item) { case 'u': set_c_uw (sct, value); break; case 'f': set_c_foo (sct, value); break; case 's': set_c_she (sct, value); break; case 'g': set_c_gun (sct, value); break; case 'p': set_c_pet (sct, value); break; case 'i': set_c_iro (sct, value); break; case 'd': set_c_dus (sct, value); break; case 'b': set_c_bar (sct, value); break; case 'o': set_c_oil (sct, value); break; case 'l': set_c_lcm (sct, value); break; case 'h': set_c_hcm (sct, value); break; case 'r': set_c_rad (sct, value); break; } } int GetThreshold (sct, kind) Sector sct; char kind; { switch (kind) { case 'u': return t_uw (sct); case 'f': return t_foo (sct); case 's': return t_she (sct); case 'g': return t_gun (sct); case 'p': return t_pet (sct); case 'i': return t_iro (sct); case 'd': return t_dus (sct); case 'b': return t_bar (sct); case 'o': return t_oil (sct); case 'l': return t_lcm (sct); case 'h': return t_hcm (sct); case 'r': return t_rad (sct); } /* NOTREACHED */ } int GetCutoff (sct, kind) Sector sct; char kind; { switch (kind) { case 'u': return c_uw (sct); case 'f': return c_foo (sct); case 's': return c_she (sct); case 'g': return c_gun (sct); case 'p': return c_pet (sct); case 'i': return c_iro (sct); case 'd': return c_dus (sct); case 'b': return c_bar (sct); case 'o': return c_oil (sct); case 'l': return c_lcm (sct); case 'h': return c_hcm (sct); case 'r': return c_rad (sct); } /* NOTREACHED */ } void SetDelDir (sct, kind, dir) Sector sct; char kind, dir; { int value; char *ptr; ptr = index (chardirs, dir); if (ptr == (char *) 0) return; value = (int) (ptr - chardirs); switch (kind) { case 'u': set_d_uw (sct, value); break; case 'f': set_d_foo (sct, value); break; case 's': set_d_she (sct, value); break; case 'g': set_d_gun (sct, value); break; case 'p': set_d_pet (sct, value); break; case 'i': set_d_iro (sct, value); break; case 'd': set_d_dus (sct, value); break; case 'b': set_d_bar (sct, value); break; case 'o': set_d_oil (sct, value); break; case 'l': set_d_lcm (sct, value); break; case 'h': set_d_hcm (sct, value); break; case 'r': set_d_rad (sct, value); break; } /* NOTREACHED */ } char GetDelDir (sct, kind) Sector sct; char kind; { switch (kind) { case 'u': return d_uw (sct); case 'f': return d_foo (sct); case 's': return d_she (sct); case 'g': return d_gun (sct); case 'p': return d_pet (sct); case 'i': return d_iro (sct); case 'd': return d_dus (sct); case 'b': return d_bar (sct); case 'o': return d_oil (sct); case 'l': return d_lcm (sct); case 'h': return d_hcm (sct); case 'r': return d_rad (sct); } /* NOTREACHED */ } struct s_neighb { int cur; int x; int y; }; extern Sector **world; void InitNeighbours (sct, neighb) Sector sct; Neighb * neighb; { * neighb = (Neighb) doalloc ((unsigned) sizeof (struct s_neighb)); (* neighb)-> cur = 1; (* neighb)-> x = s_xcd (sct); (* neighb)-> y = s_ycd (sct); } bool NextNeighbour (sct, known, neighb) Sector *sct; int known; Neighb neighb; { switch (neighb-> cur ++) { case 1: *sct = World (neighb-> x + 1, neighb-> y - 1, known); return True; case 2: *sct = World (neighb-> x + 2, neighb-> y, known); return True; case 3: *sct = World (neighb-> x + 1, neighb-> y + 1, known); return True; case 4: *sct = World (neighb-> x - 1, neighb-> y + 1, known); return True; case 5: *sct = World (neighb-> x - 2, neighb-> y, known); return True; case 6: *sct = World (neighb-> x - 1, neighb-> y - 1, known); return True; case 7: *sct = (Sector) 0; free ((char *) neighb); return False; default: PrintAtEmpire ("NextNeighbour called to often"); Bell (); (void) EmpireMore (); return False; } } bool IsNeighbour (sct1, sct2) Sector sct1, sct2; { int dx, dy; dx = EX (s_xcd (sct2) - s_xcd (sct1)); dy = EY (s_ycd (sct2) - s_ycd (sct1)); return ((dx == -1 || dx == 1) || (dy == -1 && dy == 1)) || (dy == 0 && (dx == -2 || dx == 2)); } /* Give char for moving from sct1 to sct2 */ char GiveDirChar (sct1, sct2) Sector sct1, sct2; { int dx, dy; dx = EX (s_xcd (sct2) - s_xcd (sct1)); dy = EY (s_ycd (sct2) - s_ycd (sct1)); if ((dx == 2) && (dy == 0)) return 'j'; else if ((dx == -2) && (dy == 0)) return 'g'; else if ((dx == 1) && (dy == 1)) return 'n'; else if ((dx == 1) && (dy == -1)) return 'u'; else if ((dx == -1) && (dy == 1)) return 'b'; else if ((dx == -1) && (dy == -1)) return 'y'; else if ((dx == 0) && (dy == 0)) return 'h'; else { PrintAtEmpire (Fmt ("Bad dist (%d, %d) for %s and %s", dx, dy, CrdStr (sct1), CrdStr (sct2))); return '?'; } } Sector MoveInDirection (sct, dir, flag) Sector sct; char dir; int flag; { int x, y; x = s_xcd (sct); y = s_ycd (sct); switch (dir) { case 'y': return World (x - 1, y - 1, flag); case 'u': return World (x + 1, y - 1, flag); case 'g': return World (x - 2, y, flag); case 'j': return World (x + 2, y, flag); case 'b': return World (x - 1, y + 1, flag); case 'n': return World (x + 1, y + 1, flag); default: return sct; } } bool IsCoast (sct) Sector sct; { Sector nxt; Neighb neighb; if (s_des (sct) == '.' || s_des (sct) == '=') return False; InitNeighbours (sct, & neighb); while (NextNeighbour (&nxt, S_EXIST, neighb)) if (nxt != (Sector) 0 && (s_des (nxt) == '.' || s_des (nxt) == '=')) return True; return False; } bool NearSeaOrHarbor (sct) Sector sct; { Sector nxt; Neighb neighb; InitNeighbours (sct, & neighb); while (NextNeighbour (&nxt, S_EXIST, neighb)) if (nxt != (Sector) 0 && (s_des (nxt) == '.' || s_des (nxt) == 'h')) return True; return False; } bool UpdateSectorDes (sct, des, force) Sector sct; char des; bool force; { if (DesignName (des) == (char *) 0) { PrintAtEmpire ( Fmt ("Warning Illegal des %d (at %s, info 0x%x)", des, CrdStr (sct), s_inf (sct))); return False; } if (NO_INFO (sct)) { set_des (sct, des); set_owner (sct, UNKNOWN_CNUM); SET_INFO_DES (sct); return True; } if (des == '.' && force) /* Migth have been bridge span, but which is now collapsed */ /* rad scan gives . for ships places with force=false */ /* KH 12-11-90 */ { set_des (sct, des); set_owner (sct, 0); SET_INFO_DES (sct); return True; } if ((des == '?') && (s_des (sct) == '.' )) /* Must be a new bridge span*/ /* KH 12-11-90 */ { set_des (sct, '='); set_owner (sct, UNKNOWN_CNUM); SET_INFO_DES (sct); return True; } /* * kludge to make satellites work * if scanning_satellites set,then bail out, because we know * exactly what is here */ if (s_owned (sct) && scanning_satellites && des == '?') return True; if (s_owned (sct)) { if (s_des (sct) != des && des != '.') { /* break sanctury */ if (s_des (sct) == 's' && des == 'c') { set_des (sct, des); set_nds (sct, des); return True; } if (KNOW_ALL (sct) && des == s_nds (sct)) { set_des (sct, des); return True; } set_owner (sct, UNKNOWN_CNUM); DEL_INFO (sct); SET_INFO_RES (sct); PrintAtEmpireMode (Fmt ( "Design form sector %s changed from %c to %c", CrdStr (sct), s_des (sct), des), BOLD); PrintAtEmpireMode ( "Assuming it has been lost/captured", BOLD); /* mta Sat Mar 16 17:38:11 EET 1991 * we should make something that this is called once or twice... */ /* Bell (); */ set_des (sct, des); if (KNOW_ALL (sct)) set_nds (sct, des); } return True; } if (des == '?') { if ((s_des (sct) == '-' ) || (! KNOW_SPY (sct) && ! KNOW_LOO (sct) && ! KNOW_DES (sct))) set_des (sct, des); } else if (des != '.' || force) set_des (sct, des); return True; } char *SelectRealm (mes1, mes2) const char *mes1, *mes2; { Sector sct1, sct2; int x1, y1, x2, y2; int button; RaiseWindow (map_win); UnmarkSector (cursct); Message (Fmt ("Please Select %s sector", mes1)); MesBut ("View", "Cancel", "Set"); do { if (! SelectSctCrd (& x1, & y1, & button) || button == MIDDLE_BUTTON) { interrupt = False; MesClearBut (); MarkSector (cursct); ClearMes (); LowerWindow (map_win); return (char *) 0; } if (button == LEFT_BUTTON) { CensusSct (World (x1, y1, S_EXIST)); } else { /* if it did'nt exists it will be created */ sct1 = World (x1, y1, S_DESIG); } } while (button != RIGHT_BUTTON || sct1 == (Sector) 0); MarkSector (sct1); Message (Fmt ("(%d, %d) Please select %s sector", s_xcd (sct1), s_ycd (sct1), mes2)); do { if (! SelectSctCrd (& x2, & y2, & button) || button == MIDDLE_BUTTON) { interrupt = False; UnmarkSector (sct1); MarkSector (cursct); MesClearBut (); ClearMes (); if (NO_INFO (sct1)) FreeSector (sct1); LowerWindow (map_win); return (char *) 0; } if (button == LEFT_BUTTON) { CensusSct (World (x2, y2, S_EXIST)); } else { /* if it did'nt exists it will be created */ sct2 = World (x2, y2, S_DESIG); } } while (button != RIGHT_BUTTON || sct2 == (Sector) 0); MarkSector (sct2); Message (Fmt ("Confirm %s %s sector and %s %s sector", CrdStr (sct1), mes1, CrdStr (sct2), mes2)); MesBut ("DO", "Cancel", "DO"); (void) WaitButtonPress (&button); ClearMes (); MesClearBut (); UnmarkSector (sct1); UnmarkSector (sct2); MarkSector (cursct); if (NO_INFO (sct1)) FreeSector (sct1); if (NO_INFO (sct2)) FreeSector (sct2); LowerWindow (map_win); if (button != MIDDLE_BUTTON && !interrupt) return Fmt ("%d:%d,%d:%d", x1, x2, y1, y2); else { interrupt = False; return (char *) 0; } } void RealmSetThreshold (mx, my) int mx, my; { char *realm; const char *itemname; char *ptr; int newvalue; int sx, sy, ex, ey, x, y, nr1, nr2, length, width; int item; char itemchar; Sector sct; int changed; item = SelectSellItem (mx, my, "Threshold for ?"); if (item < 0) { Message ("Setting threshold cancelled"); return; } itemchar = ItemChar (item); itemname = ItemName (item); ptr = InputAtMessage (Fmt ("New threshold for %s ?", itemname), 4, GS_PNUMBER); if (ptr == (char *) 0 || *ptr == '\0') { Message ("Setting threshold cancelled"); return; } newvalue = atoi (ptr); realm = SelectRealm ("upper-left", "lower-right"); if (realm == (char *) 0) { Message ("Setting threshold cancelled"); return; } (void) sscanf (realm, "%d:%d,%d:%d", &sx, &ex, &sy, &ey); width = XDIST (sx, ex) + 1; length = YDIST (sy, ey) + 1; changed = 0; for (x = sx, nr1 = 0; nr1 < width; nr1++, x ++) for (y = sy, nr2 = 0; nr2 < length; nr2++, y++) if ((x + y) % 2 == 0) { sct = World (x, y, S_EXIST); if (sct != (Sector) 0 && s_owned (sct)) { SetThreshold (sct, itemchar, newvalue); DrawSector (sct); changed ++; } } if (changed == 0) { Message ("No tresholds changed"); Bell (); return; } FeedCommand (Fmt ("threshold %c %s %d", itemchar, realm, newvalue), PRINT); Message (Fmt ("%d thresholds for %s %s", changed, itemname, (newvalue == 0) ? "deleted" : "changed")); } void WipeThreshold () { char *realm; int x, y, sx, ex, sy, ey, nr1, nr2, changed, length, width; Sector sct; realm = SelectRealm ("upper-left", "lower-right"); if (realm == (char *) 0) { Message ("Wipe threshold cancelled"); return; } (void) sscanf (realm, "%d:%d,%d:%d", &sx, &ex, &sy, &ey); width = XDIST (sx, ex) + 1; length = YDIST (sy, ey) + 1; changed = 0; for (x = sx, nr1 = 0; nr1 < width; nr1++, x ++) for (y = sy, nr2 = 0; nr2 < length; nr2++, y++) if ((x + y) % 2 == 0) { sct = World (x, y, S_EXIST); if (sct != (Sector) 0 && s_owned (sct)) { SetThreshold (sct, 'a', 0); changed ++; } } if (changed == 0) { Message ("No tresholds changed"); Bell (); return; } FeedCommand (Fmt ("wipe %s", realm), PRINT); Message (Fmt ("%d sectors wiped", changed)); DrawMap (); } void RedumpSector (sct, flag) Sector sct; int flag; { (void) FScanDump (CrdStr (sct), flag); DrawSector (sct); } int origin_x = 0; int origin_y = 0; void ChangeOrigin (sct) Sector sct; { char *answer, *line; extern char *progname; extern bool save_data; Bell (); answer = InputAtMessage (Fmt ("Are You sure you want to change origin to %s ?", CrdStr (sct)), 1, GS_NAME); if (interrupt || answer == (char *) 0 || *answer != 'y' && *answer != 'Y') { interrupt = False; Message ("Origin command cancelled"); return; } /* To difficult to adjust all coordinates * I know it's ugly but it is very easy this way * Let player restart with emptool -n */ SetSignalsOff (); FeedEmpire (Fmt ("origin %s", CrdStr (cursct)), PRINT); line = ReadEmpire (PRINT); if (EmpireStatus () != E_PRINTING || strncmp (line, "Origin at", 9) != 0) { PrintAtEmpire (line); Message ("Origin command failed"); Bell (); return; } origin_x = s_xcd (sct); origin_y = s_ycd (sct); StoreData (); save_data = False; (void) fprintf (stderr, line); (void) fprintf (stderr, "\nFast restart with \"%s -N\"\n", progname); leave (); } static int last_owner; void RedoChangeOwner () { set_owner (cursct, last_owner); DrawSector (cursct); Census (); Message (Fmt ("%s is now marked to be owned by %s", CrdStr (cursct), CountryName(last_owner))); } void ChangeOwner (sct) Sector sct; /* we can guess the owner of the sector or we might have gotten the info from somebody */ { char *ptr; int new; DeityChange (sct); ptr = AskCountry (10, 10, "New owner ?", True); if (interrupt || ptr == (char *) 0) { interrupt = False; Message ("changing owner cancelled"); Census (); return; } new = CountryId (ptr); last_owner = new; SetAgain (RedoChangeOwner); set_owner (sct, new); if (NO_INFO(sct)) { sct->inf=DES; /* should make macro */ set_des (sct, SCT_UNKNOW); } DrawSector (sct); Census (); Message (Fmt ("%s is now marked to be owned by %s", CrdStr (sct), CountryName(new))); } /* Fast hack. - heinola 9/11/91. */ void MultiChangeOwner () /* we can guess the owner of the sector or we might have gotten the info from somebody */ { char *ptr; int new; char *realm; int sx, sy, ex, ey; register int x, y; register Sector sct; int nr; Message ("Select realm, which owner is set"); if ((realm = MySelRealm ()) == (char *) 0) { return; } ptr = AskCountry (10, 10, "New owner ?", True); if (interrupt || ptr == (char *) 0) { interrupt = False; Message ("Changing owner cancelled"); Census (); return; } new = CountryId (ptr); if (! ConvRealmToCoord (realm, & sx, & sy, & ex, & ey)) { Panic ("MultiChangeOwner", "mics/sector.c", "Illegal realm"); return; } nr = 0; for (y = sy; y <= ey; y ++) for (x = sx; x <= ex; x++) { sct = World (x, y, S_EXIST); if (sct == (Sector) 0) { /* we are editing map */ if ((x + y) % 2 == 0) { sct = World (x, y, S_DESIG); set_owner (sct, new); if (NO_INFO(sct)) { sct->inf=DES; /* should make macro */ set_des (sct, SCT_UNKNOW); } continue; } else { continue; } } set_owner (sct, new); if (NO_INFO(sct)) { sct->inf=DES; /* should make macro */ set_des (sct, SCT_UNKNOW); } if (AtScreen (x, y)) DrawSector (sct); } DrawMap; ClearMes (); Census (); Message (Fmt ("%s is now marked to be owned by %s", realm, CountryName(new))); } void Cede (sct) Sector sct; { char *ptr; int new; DeityChange (sct); ptr = AskCountry (10, 10, "New owner ?", True); if (interrupt || ptr == (char *) 0) { interrupt = False; Message ("cede cancelled"); Census (); return; } new = CountryId (ptr); if (CountryName (new) == CountryName (s_owner (sct))) { Message ("Huh... "); return; } last_owner = new; FeedCommand ( Fmt ("cede %s %s", CrdStr (sct), CountryName (new)), PRINT); RedumpSector (sct, PRINT); DrawSector (sct); Census (); Message (Fmt ("%s is ceded to %s", CrdStr (sct), CountryName(new))); } void SingleStart (sct) Sector sct; { FeedCommand ( Fmt ("start %s", CrdStr (sct)), PRINT); set_off (sct, False); Message ( Fmt ("%s at %s started", DesignName (s_des (sct)), CrdStr (sct))); } void SingleStop (sct) Sector sct; { FeedCommand ( Fmt ("stop %s", CrdStr (sct)), PRINT); set_off (sct, True); Message ( Fmt ("%s at %s stopped", DesignName (s_des (sct)), CrdStr (sct))); Bell(); } Sector World (x, y, known) int x, y; int known; { Sct2 sct2; Sct3 sct3; Sector sct; int ix, iy; /* * On a 64 by 64 world * * -2 -1 0 1 2 * +--------------------- * | * -2 | 62,31 0,31 2,31 * | * -1 | 63,31 1,31 * | * 0 | 62,0 0,0 2,0 * | * 1 | 63,0 1,0 * | * 2 | 62,1 0,1 2,1 * +--------------------- */ if ((x + y) % 2 != 0) return (Sector) 0; ix = WX (x); iy = WY (y) / 2; sct = world [ix] [iy]; if (known == S_EXIST) return sct; if (world [ix] [iy] == (Sector) 0) { /* allocate sector */ sct = (Sector) doalloc ((unsigned) sizeof (struct s_sector1)); bzero ((char *) sct, sizeof (struct s_sector1)); world [ix] [iy] = sct; set_xcd (sct, EX (x)); set_ycd (sct, EY (y)); set_des (sct, ' '); DEL_INFO (sct); set_owner (sct, UNKNOWN_CNUM); } if (known == S_DESIG) return sct; if (sct-> sct2 == (Sct2) 0) { /* allocate second part */ sct2 = (Sct2) doalloc ((unsigned) sizeof (struct s_sector2)); bzero ((char *) sct2, sizeof (struct s_sector2)); sct-> sct2 = sct2; } if (known == S_RESOU) return sct; if (sct-> sct2-> sct3 == (Sct3) 0) { /* allocate third part */ sct3 = (Sct3) doalloc ((unsigned) sizeof (struct s_sector3)); bzero ((char *) sct3, sizeof (struct s_sector3)); sct-> sct2-> sct3 = sct3; set_nds (sct, ' '); } return sct; } void FreeSector (sct) Sector sct; { int ix, iy; if (sct == (Sector) 0) return; ix = WX (s_xcd (sct)); iy = WY (s_ycd (sct)) / 2; if ((ix + iy*2) % 2 != 0) /* impossible !! */ return; if (KNOW_ALL (sct) || KNEW_ALL (sct)) free (sct-> sct2-> sct3); if (KNOW_SPY (sct) || KNOW_LOO (sct)) free (sct-> sct2); free (world [ix] [iy]); world [ix] [iy] = (Sector) 0; } void Check () { int x, y; double need; int pop; int nr; Strings strings; Strings plague; Strings happy; Strings empty_ships; Strings enemy_ships; Strings enemy_lands; Strings enemy_planes; Sector sct; Ship ship; Land land; double pch; int newciv; int newuw; int new_birth; int new_food; newciv = 0; newuw = 0; strings = InitStrings (); plague = InitStrings (); happy = InitStrings (); empty_ships = InitStrings (); enemy_ships = InitStrings (); enemy_lands = InitStrings (); enemy_planes = InitStrings (); Message ("Generating check list"); AddString (strings, DateFmt (time ((time_t *) 0))); AddString (strings, ""); AddString (strings, "Food in sectors:"); AddString (strings, "----------------"); AddString (strings, ""); nr = 0; for (x = 0; x < MAX_X; x ++) for (y = x % 2; y < MAX_Y; y += 2) { sct = World (x, y, S_EXIST); if (sct == (Sector) 0 || ! KNOW_ALL (sct)) continue; pop = q_uw (sct) + s_civ (sct) + s_mil (sct); need = ((double) pop) * etu_per_update * eatrate; if (need <= 1.0) continue; if (((int) (need + .99)) > q_foo (sct)) { nr ++; AddString (strings, Fmt ( "%s @ %s: pop = %d, has %d, need %.2f food", DesignName (s_des (sct)), CrdStr (sct), pop, q_foo (sct), need)); } if ((pch = PlagueChance (sct)) > 0.0) AddString (plague, Fmt ("%s @ %s: %.4f", DesignName (s_des (sct)), CrdStr (sct), pch)); if (!IsHappy(sct) && ((s_civ (sct)/20)> s_mil (sct))) AddString (happy, Fmt ("%s @ %s", DesignName (s_des (sct)), CrdStr (sct))); } if (nr == 0) AddString (strings, "All sectors OK"); AddString (strings, ""); AddString (strings, "Civilian & UW Growth:"); AddString (strings, "---------------"); AddString (strings, ""); nr = 0; for (x = 0; x < MAX_X; x ++) for (y = x % 2; y < MAX_Y; y += 2) { sct = World (x, y, S_EXIST); if (sct == (Sector) 0 || ! KNOW_ALL (sct)) continue; if(s_civ(sct) == max_civ_uw) { AddString(strings, Fmt("Civilians in %s at %d will not grow.", CrdStr(sct), s_civ(sct))); nr ++; } if(q_uw(sct) == max_civ_uw) { AddString(strings, Fmt("Slaves in %s at %d will not grow.", CrdStr(sct), q_uw(sct))); nr ++; } if (s_civ (sct) < max_civ_uw) { new_birth = roundavg (obrate * (double) (etu_per_update * s_civ (sct))); new_food = (int) (0.5 + q_foo (sct) / (2.0 * babyeat)); newciv = new_birth; if (EMPOption (NOFOOD) == False && newciv > new_food) { AddString(strings, Fmt("%s @ %s: maxciv = %d, has food for %d, need %.2f food", DesignName (s_des (sct)), CrdStr (sct), newciv, new_food,(new_food - newciv))); newciv = new_food; nr ++; } if((newciv + s_civ(sct)) > max_civ_uw) { AddString(strings, Fmt("Civs in %s at %d (max %d)", CrdStr(sct), (newciv+s_civ(sct)),max_civ_uw)); nr ++; } } if (q_uw (sct) < max_civ_uw) { new_birth = roundavg (uwbrate * (double) (etu_per_update * q_uw (sct))); new_food = (int) (0.5 + q_foo (sct) / (2.0 * babyeat)); newuw = new_birth; if (EMPOption(NOFOOD) == False && newuw > new_food) { AddString(strings, Fmt("%s @ %s: maxuw = %d, has food for %d, need %.2f food", DesignName (s_des (sct)), CrdStr (sct), newuw, new_food, (new_food - newuw))); newuw = new_food; nr ++; } if((newuw + q_uw(sct)) > max_civ_uw) { AddString(strings, Fmt("UWs in %s at %d.", CrdStr(sct), (newuw+q_uw(sct)))); nr ++; } } } if (nr == 0) AddString (strings, "All sectors OK"); AddString (strings, ""); AddString (strings, "Food at ships:"); AddString (strings, "--------------"); AddString (strings, ""); nr = 0; for (ship = shiplist; ship != (Ship) 0; ship = sh_next (ship)) { if (! sh_owned (ship)) { AddString (enemy_ships, Fmt ("%s #%d @ %d,%d (%s)", ShipName (ship), sh_nr (ship), sh_xcd (ship), sh_ycd (ship), CountryName (sh_owner (ship)))); continue; } pop = sh_uw (ship) + sh_civ (ship) + sh_mil (ship); sct = World (sh_xcd (ship), sh_ycd (ship), S_EXIST); if (pop == 0) { AddString (empty_ships, Fmt ( "%s #%d %d%% eff @ %d,%d: crewless%s", ShipName (ship), sh_nr (ship), sh_eff (ship), sh_xcd (ship), sh_ycd (ship), sct == (Sector) 0 ? " (sector unknown)" : s_des (sct) == 'h' ? " (docked)" : "")); /* They don't eat that much */ continue; } need = ((double) pop) * etu_per_update * eatrate; if (((int) (need + .99)) > sh_foo (ship)) { nr ++; AddString (strings, Fmt ( "%s #%d @ %d,%d: pop = %d, has %d, need %.2f food", ShipName (ship), sh_nr (ship), sh_xcd (ship), sh_ycd (ship), pop, sh_foo (ship), need)); } } if (nr == 0) AddString (strings, "All ships OK"); AddString (strings, ""); if (land_units) { AddString (strings, "Food at Units:"); AddString (strings, "--------------"); AddString (strings, ""); nr = 0; for (land = landlist; land != (Land) 0; land = ld_next (land)) { if (! ld_owned (land)) { AddString (enemy_lands, Fmt ("%s #%d @ %d,%d (%s)", LandName (land), ld_nr (land), ld_xcd (land), ld_ycd (land), CountryName (ld_owner (land)))); continue; } pop = landtypes [ ld_type (land)] .mil * 100 / ld_eff (land); sct = World (ld_xcd (land), ld_ycd (land), S_EXIST); need = ((double) pop) * etu_per_update * eatrate; if (((int) (need + .99)) > ld_foo (land)) { nr ++; AddString (strings, Fmt ( "%s #%d @ %d,%d: pop = %d, has %d, need %.2f food", LandName (land), ld_nr (land), ld_xcd (land), ld_ycd (land), pop, ld_foo (land), need)); } } if (nr == 0) AddString (strings, "All Units OK"); AddString (strings, ""); } /* * Plague */ AddString (strings, "Sectors with a plague chance:"); AddString (strings, "-----------------------------"); AddString (strings, ""); if (StringsSize (plague) == 0) AddString (strings, "All sectors OK"); else JoinStrings (strings, plague); FreeStrings (plague); AddString (strings, ""); /* * happines */ AddString (strings, "Sectors with a possible uprising:"); AddString (strings, "-----------------------------"); AddString (strings, ""); if (StringsSize (happy) == 0) AddString (strings, "All sectors OK"); else JoinStrings (strings, happy); FreeStrings (happy); AddString (strings, ""); /* * crewless ships */ AddString (strings, "Empty ships:"); AddString (strings, "------------"); AddString (strings, ""); nr = 0; if (StringsSize (empty_ships) == 0) AddString (strings, "All ships OK"); else JoinStrings (strings, empty_ships); AddString (strings, ""); FreeStrings (empty_ships); /* * Enemy ships */ AddString (strings, "Enemy ships:"); AddString (strings, "------------"); AddString (strings, ""); if (StringsSize (enemy_ships) == 0) AddString (strings, "No ships."); else JoinStrings (strings, enemy_ships); AddString (strings, ""); FreeStrings (enemy_ships); /* * Enemy Units */ if (land_units) { AddString (strings, "Enemy Units:"); AddString (strings, "------------"); AddString (strings, ""); if (StringsSize (enemy_lands) == 0) AddString (strings, "No units."); else JoinStrings (strings, enemy_lands); /* AddString (strings, ""); */ FreeStrings (enemy_lands); } /* * Show it */ Message ("List ready"); if (util_mode) ShowStrings (strings); else #ifdef X_VERSION InitWMPager (strings, "World check"); #else ShowStringsInPager (strings, "World check"); #endif /* X_VERSION */ } void Goto (sct) Sector sct; { int x, y; int i; if (sct == (Sector) 0) return; x = s_xcd (sct); y = s_ycd (sct); SetCurrent (sct); if (! AtScreen (x, y)) CenterMap (x, y); for (i = 5; i > 0; i --) { #ifdef X_VERSION ShowBox (x - i, y - i, x + i, y + i); #endif /* X_VERSION */ FlushWindow (map_win); #ifdef X_VERSION ShowBox (x - i, y - i, x + i, y + i); #endif /* X_VERSION */ FlushWindow (map_win); } } void GotoStr (str) const char * str; { Sector sct; char * ptr, * ptri; int x, y; ptr = index (str, ','); while (ptr != (char *) 0) { ptri = ptr - 1; while (ptri > str && isspace (* ptri)) ptri --; while (ptri > str && isdigit (* ptri)) ptri --; if (ptri > str && * ptri != '-') ptri ++; if (sscanf (ptri, " %d , %d ", & x, & y) == 2) { if ((x + y) % 2 == 1) { Message (Fmt ("Illegal sector: %d,%d", x, y)); return; } sct = World (x, y, S_EXIST); if (sct == (Sector) 0) { if (deity) { sct = World (x, y, S_DESIG); DeityChange (sct); } else { Message (Fmt ("No info about %d,%d", x, y)); return; } } Goto (sct); return; } ptr = index (ptr + 1, ','); } } xemp5.1-beta/lib/misc/strings.c100444 12266 2116 32622 6023770730 15020 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/misc/RCS/strings.c,v 5.2 1995/09/08 07:32:20 jpo Exp $ $Date: 1995/09/08 07:32:20 $ $Author: jpo $ $Id: strings.c,v 5.2 1995/09/08 07:32:20 jpo Exp $ $Locker: $ $Log: strings.c,v $ Revision 5.2 1995/09/08 07:32:20 jpo const * Revision 5.1 93/03/14 16:49:46 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:18:49 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:37:47 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include #include #ifdef HAVE_UNISTD_H #include #endif struct s_str_ent { char *str; int id; bool flag; struct s_str_ent *next; }; typedef struct s_str_ent *StrEnt; struct s_strings { StrEnt *index; int nelems; int lastid; StrEnt head, tail, current; }; Strings InitStrings () { Strings new; new = (Strings) doalloc ((unsigned) sizeof (struct s_strings)); new-> nelems = 0; new-> current = new-> head = new-> tail = (StrEnt) 0; new-> lastid = 0; new-> index = (StrEnt *) 0; return new; } Strings EditStrings (width, height) int width, height; { Strings strings; char *ptr; strings = InitStrings (); ptr = Fmt ("%*s", width, ""); while ((height --) > 0) AddString (strings, ptr); return strings; } int StringsSize (strings) Strings strings; { return strings-> nelems; } void JoinStrings (str1, str2) Strings str1, str2; { StrEnt ptr; for (ptr = str2-> head; ptr != (StrEnt) 0; ptr = ptr-> next) AddString (str1, ptr-> str); } void MarkAllStrings (strings) Strings strings; { StrEnt ptr; for (ptr = strings-> head; ptr != (StrEnt) 0; ptr = ptr-> next) ptr-> flag = True; } void TmpAddStringID (strings, str, id, sortit) Strings strings; const char *str; int id; bool sortit; { StrEnt ent, ptr, prev; if (strings == (Strings) 0) return; if (strings-> index != (StrEnt *) 0) FreeStringIndex (strings); ent = (StrEnt) doalloc ((unsigned) sizeof (struct s_str_ent)); ent-> id = id; ent-> str = Str (str == (char *) 0 ? "" : str); ent-> flag = False; ent-> next = (StrEnt) 0; strings-> lastid = id; strings-> nelems ++; if (strings-> head == (StrEnt) 0) { strings-> head = strings-> tail = ent; return; } if (sortit) { prev = (StrEnt) 0; for (ptr = strings-> head; ptr != (StrEnt) 0 && strcmp (ptr-> str, str) < 0; ptr = ptr-> next) prev = ptr; if (prev == (StrEnt) 0) { ent->next = strings->head; strings->head = ent; } else { prev->next = ent; ent->next = ptr; if (ptr == (StrEnt) 0) strings-> tail = ent; } } else { strings-> tail-> next = ent; strings-> tail = ent; } } void AddStringID (strings, str, id) Strings strings; const char * str; int id; { TmpAddStringID (strings, str, id, False); } void AddSortStringID (strings, str, id) Strings strings; const char * str; int id; { TmpAddStringID (strings, str, id, True); } void AddString (strings, str) Strings strings; const char *str; { AddStringID (strings, str, strings-> lastid + 1); } void AddStringsID (strings, strs, n, i) Strings strings; ConstVP strs; int n, i; { int j; for (j = 0; j < n; j++) AddStringID (strings, strs [j] , j + i); } void AddStrings (strings, strs, n) Strings strings; const char *strs []; int n; { int i; for (i = 0; i < n; i++) AddString (strings, strs [i]); } void FreeStrings (strings) Strings strings; { StrEnt ent, prv; ent = strings-> head; while (ent != (StrEnt) 0) { free ((char *) ent-> str); prv = ent; ent = ent-> next; free ((char *) prv); } if (strings-> index != (StrEnt *) 0) free ((char *) strings-> index); free ((char *) strings); } static StrEnt FindStrId (strings, id, prv) Strings strings; int id; StrEnt *prv; { StrEnt ptr, prvptr; prvptr = (StrEnt) 0; for (ptr = strings-> head; ptr != (StrEnt) 0; ptr = ptr-> next) { if (ptr-> id == id) { if (prv != (StrEnt *) 0) *prv = prvptr; return ptr; } prvptr = ptr; } if (prv != (StrEnt *) 0) *prv = (StrEnt) 0; return (StrEnt) 0; } void ChangeString (strings, id, newstr) Strings strings; int id; const char *newstr; { StrEnt ent; ent = FindStrId (strings, id, (StrEnt *) 0); if (ent != (StrEnt) 0) { free ((char *) ent-> str); ent-> str = Str (newstr); } } void SetStringFlag (strings, id, flag) Strings strings; int id; bool flag; { StrEnt ent; ent = FindStrId (strings, id, (StrEnt *) 0); if (ent != (StrEnt) 0) ent-> flag = flag; } bool GiveStringFlag (strings, id) Strings strings; int id; { StrEnt ent; ent = FindStrId (strings, id, (StrEnt *) 0); if (ent != (StrEnt) 0) return ent-> flag; return False; } void ToggleStringFlag (strings, id) Strings strings; int id; { StrEnt ent; ent = FindStrId (strings, id, (StrEnt *) 0); if (ent != (StrEnt) 0) ent-> flag = ! ent-> flag; } const char *GiveIdString (strings, id) Strings strings; int id; { StrEnt ent; ent = FindStrId (strings, id, (StrEnt *) 0); if (ent != (StrEnt) 0) return ent-> str; else return (char *) 0; } bool GiveIdFlag (strings, id) Strings strings; int id; { StrEnt ent; ent = FindStrId (strings, id, (StrEnt *) 0); return (ent != (StrEnt) 0) && ent-> flag; } const char * GetFirstString (strings) Strings strings; { if (strings-> head == (StrEnt) 0) return (char *) 0; return strings-> head-> str; } void DeleteFirstString (strings) Strings strings; { StrEnt ptr; ptr = strings-> head; if (ptr == (StrEnt) 0) return; free (ptr-> str); if (strings-> tail == ptr) { strings-> head = strings-> tail = (StrEnt) 0; if (strings-> nelems != 1) Panic ("DeleteFirstString", "strings.c", "strings not empty !!"); strings-> nelems = 0; free ((char *) ptr); return; } strings-> head = ptr-> next; strings-> nelems --; free ((char *) ptr); } void DeleteString (strings, id) Strings strings; int id; { StrEnt ent, prv; if (strings-> index != (StrEnt *) 0) FreeStringIndex (strings); ent = FindStrId (strings, id, & prv); if (ent != (StrEnt) 0) { free ((char *) ent-> str); strings-> nelems --; if (ent == strings-> tail) strings-> tail = prv; if (prv == (StrEnt) 0) strings-> head = ent-> next; else prv-> next = ent-> next; free ((char *) ent); } else Panic ("DeleteString", "strings.c", "string to delete not found"); } void InitStringList (strings) Strings strings; { strings-> current = strings-> head; } const char *GetNextString (strings) Strings strings; { char *ptr; if (strings-> current == (StrEnt) 0) return (char *) 0; ptr = strings-> current-> str; strings-> current = strings-> current-> next; return ptr; } const char * GetNextStringID (strings, id) Strings strings; int * id; { if (strings-> current == (StrEnt) 0) return (char *) 0; * id = strings-> current-> id; return GetNextString (strings); } const char *GetNextStringFlag (strings, flag) Strings strings; bool *flag; { char *ptr; if (strings-> current == (StrEnt) 0) return (char *) 0; ptr = strings-> current-> str; *flag = strings-> current-> flag; strings-> current = strings-> current-> next; return ptr; } const char *GetNextSelectedString (strings) Strings strings; { char *ptr; while (strings-> current != (StrEnt) 0 && ! strings-> current-> flag) strings-> current = strings-> current-> next; if (strings-> current == (StrEnt) 0) return (char *) 0; ptr = strings-> current-> str; strings-> current = strings-> current-> next; return ptr; } int GetNextSelectedId (strings) Strings strings; { int ret; while (strings-> current != (StrEnt) 0 && ! strings-> current-> flag) strings-> current = strings-> current-> next; if (strings-> current == (StrEnt) 0) return -1; ret = strings-> current-> id; strings-> current = strings-> current-> next; return ret; } /* * WriteStrings (strings, file) * * Writes strings into the file "file". When it succeeds * it returnes True, else False. */ bool WriteStrings (strings, file) Strings strings; const char *file; { FILE *fp; const char *ptr; bool append, force; extern char *sys_errlist[]; append = force = False; SkipBlank (&file); if (*file == '>') { append = True; file++; } else if (*file == '!') { force = True; file++; } file = FileStr (file); if (access (file, W_OK) < 0) { if (errno != ENOENT || append) { Error (Fmt ("Can't open file %s for writing : %s", file, sys_errlist [errno])); return False; } } else if (! force && ! append) { Error (Fmt ("file %s exists", file)); return False; } fp = fopen (file, append ? "a" : "w"); if (fp == (FILE *) 0) { Error (Fmt ("Can't open file %s for writing : %s", file, sys_errlist [errno])); return False; } InitStringList (strings); while ((ptr = GetNextString (strings)) != (char *) 0) fprintf (fp, "%s\n", ptr); fclose (fp); return True; } bool LoadStrings (strings, file) Strings strings; const char * file; { FILE * fp; char buffer[BUFSIZ]; extern char *sys_errlist[]; file = FileStr (file); if (access (file, R_OK) < 0) { Error (Fmt ("Can't open file %s for reading : %s", file, sys_errlist [errno])); return False; } fp = fopen (file, "r"); if (fp == (FILE *) 0) { Error (Fmt ("Can't open file %s for reading : %s", file, sys_errlist [errno])); return False; } /* * if (strings-> index != (StrEnt *) 0) * FreeStringIndex (strings); * * MakeStringIndex (strings); * */ while (fgets (buffer, BUFSIZ, fp) != (char *) 0) { NoNl (buffer); AddString (strings, buffer); } /* * p = buffer; * if ((end = index (buffer, '\n')) == 0) * end = buffer + BUFSIZ - 1; * * *end = '\0'; * while (p < end) { * old = GiveIthString (strings, nr); * len = strlen (old); * sprintf (old, "%-*.*s", len, len , p); * p += len; * if (++nr == strings-> nelems) { * fclose (fp); * return True; * } * * } * } * */ fclose (fp); return True; } int MaxStringLen (strings) Strings strings; { register const char *ptr; register int max; max = 0; InitStringList (strings); while ((ptr = GetNextString (strings)) != (char *) 0) if (strlen (ptr) > max) max = strlen (ptr); return max; } void FreeStringIndex (strings) Strings strings; { if (strings-> index != (StrEnt *) 0) { free ((char *) strings-> index); strings-> index = (StrEnt *) 0; } } void MakeStringIndex (strings) Strings strings; { int i; StrEnt sptr; if (strings-> index != (StrEnt *) 0) return; /* * FreeStringIndex (strings); */ strings-> index = (StrEnt *) doalloc ((unsigned) strings-> nelems * sizeof (char *)); for (sptr = strings-> head, i = 0; sptr != (StrEnt) 0; sptr = sptr-> next, i++) strings-> index [i] = sptr; } const char *GiveIthString (strings, i) Strings strings; int i; { return strings-> index [i]-> str; } int GiveIthID (strings, i) Strings strings; int i; { return strings-> index [i]-> id; } bool GiveIthFlag (strings, i) Strings strings; int i; { return strings-> index [i]-> flag; } void SetIthFlag (strings, i, flag) Strings strings; int i; bool flag; { strings-> index [i]-> flag = flag; } Strings ReadStrings (fp) FILE *fp; { Strings strings; char buffer [BUFSIZ]; strings = InitStrings (); while (fgets (buffer, BUFSIZ, fp) != (char *) 0) { buffer [strlen (buffer) - 1] = '\0'; AddString (strings, buffer); } return strings; } void DumpStrings (strings) Strings strings; { const char *ptr; InitStringList (strings); while ((ptr = GetNextString (strings)) != (char *) 0) printf ("%s\n", ptr); } bool LoadEditStrings (strings, file) Strings strings; const char *file; { FILE *fp; char buffer[BUFSIZ]; int i; extern char *sys_errlist[]; file = FileStr (file); if (access (file, R_OK) < 0) { Error (Fmt ("Can't open file %s for reading : %s", file, sys_errlist [errno])); return False; } fp = fopen (file, "r"); if (fp == (FILE *) 0) { Error (Fmt ("Can't open file %s for reading : %s", file, sys_errlist [errno])); return False; } while (StringsSize (strings) > 0) DeleteFirstString (strings); i = 0; while (fgets (buffer, BUFSIZ, fp) != (char *) 0) { NoNl (buffer); i ++; AddString (strings, Fmt ("%-80.80s", DelTabs (buffer))); } while (i < 24) { AddString (strings, Fmt ("%-80.80s", "")); i ++; } fclose (fp); return True; } Strings StripStrings (strings) Strings strings; { StrEnt last_ent, next; Strings res; const char *ptr; char *ptr2; char *nptr; res = InitStrings (); InitStringList (strings); last_ent = (StrEnt) 0; while ((ptr = GetNextString (strings)) != (char *) 0) { nptr = Str (ptr); ptr2 = nptr + strlen (nptr) - 1; while ((* ptr2 == ' ') && (ptr2 > nptr)) * (ptr2 --) = '\0'; if (* ptr2 == ' ') /* first char */ * ptr2 = '\0'; AddString (res, nptr); if (* ptr != '\0') last_ent = res-> tail; free (nptr); } if (last_ent == (StrEnt) 0) return res; next = last_ent-> next; res-> tail = last_ent; last_ent-> next = (StrEnt) 0; last_ent = next; while (last_ent != (StrEnt) 0) { res-> nelems --; next = last_ent-> next; free (last_ent); last_ent = next; } return res; } Strings PopenStrings (command) const char * command; { FILE * pp; Strings strings; char buf [300]; int id; id = 0; strings = InitStrings (); pp = popen (command, "r"); if (pp == (FILE *) 0) return strings; while (fgets (buf, 300, pp) != (char *) 0) { NoNl (buf); AddStringID (strings, buf, id ++); } pclose (pp); return strings; } xemp5.1-beta/lib/misc/var_opt.c100444 12266 2116 4577 6023770731 14772 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/misc/RCS/var_opt.c,v 5.1 1993/03/14 16:49:47 etienne Exp $ $Date: 1993/03/14 16:49:47 $ $Author: etienne $ $Id: var_opt.c,v 5.1 1993/03/14 16:49:47 etienne Exp $ $Locker: $ $Log: var_opt.c,v $ Revision 5.1 1993/03/14 16:49:47 etienne *** empty log message *** * Revision 5.0 93/02/06 09:18:49 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:37:47 greyhelm * Added RCS headers - Karl Hagen * */ #ifdef INC_VSPRINTF /*LINTLIBRARY*/ #include #include #include extern int _doprnt(); /*VARARGS2*/ char * vsprintf(string, format, ap) char *string, *format; va_list ap; { FILE siop; siop._cnt = MAXINT; siop._base = siop._ptr = (unsigned char *)string; siop._flag = _IOWRT+_IOSTRG; (void) _doprnt(format, ap, &siop); *siop._ptr = '\0'; /* plant terminating null character */ return(string); } #endif /* INC_VSPRINTF */ #ifdef INC_GETOPT #ifndef lint static char sccsid[] = "@(#)getopt.c 1.1 87/12/17 SMI"; /* from S5R2 1.5 */ #endif /*LINTLIBRARY*/ #define NULL 0 #define EOF (-1) #define ERR(s, c) if(opterr){\ extern int strlen(), write();\ char errbuf[2];\ errbuf[0] = c; errbuf[1] = '\n';\ (void) write(2, argv[0], (unsigned)strlen(argv[0]));\ (void) write(2, s, (unsigned)strlen(s));\ (void) write(2, errbuf, 2);} extern int strcmp(); extern char *strchr(); int opterr = 1; int optind = 1; int optopt; char *optarg; int getopt(argc, argv, opts) int argc; char **argv, *opts; { static int sp = 1; register int c; register char *cp; if(sp == 1) if(optind >= argc || argv[optind][0] != '-' || argv[optind][1] == '\0') return(EOF); else if(strcmp(argv[optind], "--") == NULL) { optind++; return(EOF); } optopt = c = argv[optind][sp]; if(c == ':' || (cp=strchr(opts, c)) == NULL) { ERR(": illegal option -- ", c); if(argv[optind][++sp] == '\0') { optind++; sp = 1; } return('?'); } if(*++cp == ':') { if(argv[optind][sp+1] != '\0') optarg = &argv[optind++][sp+1]; else if(++optind >= argc) { ERR(": option requires an argument -- ", c); sp = 1; return('?'); } else optarg = argv[optind++]; sp = 1; } else { if(argv[optind][++sp] == '\0') { sp = 1; optind++; } optarg = NULL; } return(c); } #endif /* INC_GETOPT */ xemp5.1-beta/lib/misc/version.c100644 12266 2116 42425 6043130077 15014 0ustar jponexor/* $Header: /a/victor/nexor/user4/jpo/xemp/xemp5.0/lib/misc/RCS/version.c,v 5.8 1995/10/12 07:24:14 jpo Exp jpo $ $Date: 1995/10/12 07:24:14 $ $Author: jpo $ $Id: version.c,v 5.8 1995/10/12 07:24:14 jpo Exp jpo $ $Locker: jpo $ $Log: version.c,v $ Revision 5.8 1995/10/12 07:24:14 jpo Major and minor numbers Revision 5.7 1995/10/10 07:25:49 jpo Some more regexp stuff. Revision 5.6 1995/09/28 08:25:00 jpo Save extra bits of info - in extensible format Revision 5.5 1995/09/27 16:16:56 jpo Check for empire 2.3 Revision 5.4 1995/09/20 07:38:39 jpo New stuff and setting new features. Revision 5.3 1995/09/08 07:32:35 jpo emp3 server emp3 options changed the message too * Revision 5.2 93/03/14 16:49:48 etienne * changed the whole options scanning. * * Revision 5.1 93/02/06 10:11:03 greyhelm * Made minor change to MOTD * * Revision 5.0 1993/02/06 09:18:49 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:37:47 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "sector.h" #include "version.h" #include "regex.h" #define VERSION "Version 5.1d Empire 3(beta) Compliant" static WinInfo ver_win; static void EMPSetOption (); void ShowVersion () { #ifdef TERMC_VERSION ver_win = OpenWindow (map_win, 0, 0, 60, 17, CHARS, MENU, 0); PrintB (ver_win, 19, 1, "-=[ TCEMP ]=-"); #else ver_win = OpenWindow (map_win, 5, 0, 60, 17, CHARS, MENU, 0); PrintB (ver_win, 19, 1, "-=[ XEMP ]=-"); #endif PrintN (ver_win, 1, 3, "Version 4.09 Written by:"); PrintN (ver_win, 1, 4, " Henk-Jan Visscher"); PrintN (ver_win, 1, 6, "Version 5.0 Written by:"); PrintN (ver_win, 1, 7, " Stefan Hauser "); PrintN (ver_win, 1, 8, " Karl S. Hagen "); PrintN (ver_win, 1, 10,"Version 5.1 Written by:"); PrintN (ver_win, 1, 11," Julian Onions "); PrintN (ver_win, 1, 13, VERSION); PrintN (ver_win, 1, 15, "ftp://ftp.empire.net/pub/empire/player/clients/xemp"); PrintN (ver_win, 1, 16, Fmt ("Compiled: %s", COM_DATE)); FlushWindow (ver_win); } void EndVersion () { DestroyWindow (ver_win); } static unsigned long *options_defined; static int numopts=0; static void KSUSetOption (option) long option; { EMPSetOption (option); } static void EMPSetOption (option) long option; { int ltm; unsigned long bit; bit = option % 32; ltm = option / 32; if(ltm >= numopts) { /* allocate new option entry */ if(!numopts) { options_defined = (unsigned long *)malloc(sizeof(long)); numopts = 1; *options_defined = 0; } else { numopts++; options_defined = (unsigned long *)realloc(options_defined, numopts * sizeof(long)); options_defined[numopts-1] = 0; } } options_defined[ltm] |= 1<= numopts) return 0; else return ((options_defined[ltm] & (1< name != (char *) 0; ptr ++) if (ptr-> option == option) { option_name = ptr-> name; break; } if (option_name == (char *) 0) Message ("This option is not enabled in this game!"); else Message (Fmt("Option \"%s\" is not enabled in this game", option_name)); Bell (); } void FScanVersion () { char * line; bool scan_options; register struct s_option * ptr; regmatch_t rmatch[10]; bool size_set, sec_per_etu_set, etu_per_update_set, fgrate_set; bool fcrate_set, obrate_set, uwbrate_set , eatrate_set, babyeat_set; bool bankint_set, mon_cset, mon_mset; bool max_mob_set, mob_gain_set, eff_gain_set; size_set = sec_per_etu_set = etu_per_update_set = fgrate_set = fcrate_set = obrate_set = uwbrate_set = eatrate_set = babyeat_set = bankint_set = mon_cset = mon_mset = max_mob_set = mob_gain_set = eff_gain_set = False; FeedEmpire ("version", PRINT); PrintAtEmpire ("xemp scanning version info"); scan_options = False; ksu_version = False; chainsaw_version = False; land_units = False; emp3server = False; for (;;) { line = ReadEmpire (DONT_PRINT); if (StrStr (line, "KSU") != (char *) 0) { ksu_version = True; fprintf(stderr, "KSU-1.04/Merc-2 Code Enabled\n"); } if (StrStr (line, "Empire 2 beta") != (char *)0) { fprintf (stderr, "Empire 2 beta version enabled\n"); emp3server = 1; } if (match_str (line, "empire\\s+(\\d+)\\.(\\d+)", rmatch, 10) == 0) { int maj, min; maj = atoi(line + rmatch[1].rm_so); min = atoi(line + rmatch[2].rm_so); if (maj > 2 || (maj == 2 && min >= 3)) { emp3server = 2; fprintf (stderr, "Empire %d.%d version enabled\n", maj, min); } } if (StrStr (line, "Chainsaw") != (char *) 0) { chainsaw_version = True; fprintf(stderr, "Chainsaw Code Enabled\n"); if (StrStr (line, "3") != (char *) 0) { land_units = True; fprintf(stderr,"Chainsaw Land Units enabled\n"); } } if (EmpireStatus () == E_COMMAND || line == (char *) 0) break; if (*line == '\0' || *line == '\n') continue; if (! size_set && sscanf (line, "World size is %d by %d", &ver_max_x, &ver_max_y) == 2) { size_set = True; if (ver_max_x != MAX_X || ver_max_y != MAX_Y) { fprintf (stderr, "%s %dx%d instead of %dx%d\n", "Version reports worldsize of", ver_max_x, ver_max_y, MAX_X, MAX_Y); MAX_X = ver_max_x; MAX_Y = ver_max_y; } continue; } if (! sec_per_etu_set && sscanf (line, "An Empire time unit is %d", &sec_per_etu) == 1) { sec_per_etu_set = True; continue; } if (! etu_per_update_set && sscanf (line, "An update consists of %d", & etu_per_update) == 1) { etu_per_update_set = True; continue; } if (! bankint_set && sscanf (line, "Banks pay $%lf", & bankint) == 1) { bankint /= 1000; bankint_set = True; continue; } if (! mon_cset && sscanf (line, "1000 civilians generate $%lf, uncompensated workers $%lf each", & money_civ, & money_uw) == 2) { money_civ /= 1000; money_uw /= 1000; mon_cset = True; continue; } if (! mon_mset && sscanf (line, "1000 active military cost $%lf, reserves cost $%lf", & money_mil, & money_res) == 2) { money_mil /= - 1000; money_res /= - 1000; mon_mset = True; continue; } if (! fgrate_set && sscanf (line, "A non-aggi, 100 fertility sector can grow %lf", &fgrate) == 1) { fgrate_set = True; fgrate = fgrate / 100.0; continue; } if (! fcrate_set && sscanf (line, "1000 civilians will harvest %lf", &fcrate) == 1) { fcrate_set = True; fcrate = fcrate / 1000.0; continue; } if (! obrate_set && sscanf (line, "1000 civilians will give birth to %lf", &obrate) == 1) { obrate_set = True; obrate = obrate / 1000.0; continue; } if (! uwbrate_set && sscanf (line, "1000 uncompensated workers will give birth to %lf", &uwbrate) == 1) { uwbrate_set = True; uwbrate = uwbrate / 1000.0; continue; } if (! eatrate_set && strcmp (line, "No food is needed!!") == 0) { eatrate = 0.0; no_food = eatrate_set = True; } if (! eatrate_set && sscanf (line, "In one time unit, 1000 people eat %lf", &eatrate) == 1) { eatrate_set = True; eatrate = eatrate / 1000.0; continue; } if (! babyeat_set && sscanf (line, "1000 babies eat %lf", &babyeat) == 1) { babyeat_set = True; babyeat = babyeat / 1000.0; continue; } if (!max_mob_set && sscanf (line, "Maximum mobility %d %d %d %d", §_mob_max, &ship_mob_max, &plane_mob_max, &land_mob_max) == 4) { max_mob_set = True; continue; } if (!mob_gain_set && sscanf (line, "Max mob gain per update %d %d %d %d", §_mob_gain, &ship_mob_gain, &plane_mob_gain, &land_mob_gain) == 4) { mob_gain_set = True; /* scale is only meanigful for things, that use something to get */ /* mob. sectors/planes get always full mob (at least till now) */ /* landunits/ships use fuel (if FUEL is defined) */ /* so scale gets calculated in the simul. update only if fuel is */ /* used */ continue; } if (!eff_gain_set && sscanf (line, "Max eff gain per update %#s %f %f %f", &ship_eff_gain, &plane_eff_gain, &land_eff_gain) == 3) { eff_gain_set = True; } if ((ksu_version || chainsaw_version) && ! scan_options && StrStr (line, "Options enabled")) { scan_options = True; continue; } if (!land_units && StrStr (line, "Planes") && StrStr (line, "Units")) land_units = True; if (scan_options) for (ptr = emp_options; ptr-> name != (char *) 0; ptr ++) if (StrStr (line, ptr-> name)) EMPSetOption (ptr-> option); } if (EmpireStatus () == E_COMMAND) { PrintAtEmpire (""); PrintAtEmpire (line); } else (void) WaitForPrompt (PRINT); if (emp3server) { EMPSetOption(STOP); EMPSetOption(BUDGET); EMPSetOption(MULTIFIRE); EMPSetOption(NEWSUBS); EMPSetOption(OWNASSAULT); } UpdateDstr (); if (size_set && sec_per_etu_set && etu_per_update_set && fgrate_set && obrate_set && uwbrate_set && eatrate_set && babyeat_set && bankint_set && mon_cset && mon_mset && max_mob_set && mob_gain_set && eff_gain_set) return; Bell (); if (! size_set) { PrintAtEmpire ("Version Warning: can't get worldsize"); ver_max_x = MAX_X; ver_max_y = MAX_Y; } if (! sec_per_etu_set) PrintAtEmpire ("Version Warning: can't get # seconds per etu"); if (! etu_per_update_set) PrintAtEmpire ("Version Warning: can't get # etu per update"); if (! fgrate_set || ! fcrate_set || ! eatrate_set || ! babyeat_set) PrintAtEmpire ("Version Warning: can't get food growth/eat info"); if (! obrate_set || ! uwbrate_set) PrintAtEmpire ("Version Warning: can't get birth rate info"); if (! bankint_set) PrintAtEmpire ("Version Warning: can't get bank interest"); if (! mon_cset) PrintAtEmpire ("Version Warning: can't get taxes for civs/uws"); if (! mon_mset) PrintAtEmpire ("Version Warning: can't get taxes for mils/res"); Pause (); } struct tblvars { const char *tb_name; /* var name */ int tb_fmt; /* fmt */ #define TB_END 1 /* end of list */ #define TB_INT 2 /* integer format */ #define TB_DOUBLE 3 /* float format */ void *tb_ptr; /* generic pointer */ }; struct tblvars tbl_vars[] = { {"happy_req", TB_DOUBLE, &happy_req}, {"safe_uw", TB_INT, &safe_uw }, {"safe_civs", TB_INT, &safe_civ }, {"max_civ_uw", TB_INT, &max_civ_uw}, {"END", TB_END, 0 }, { 0} }; static void RestVars (fp) FILE *fp; { char buffer[BUFSIZ]; char word[BUFSIZ]; char *ptr; struct tblvars *tp; int num; int *ip; double *dp; double d; while (fgets (buffer, sizeof buffer, fp) != (char *)0) { ptr = buffer; if (ScanWord ((ConstVP)&ptr, word) == False) break; for (tp = tbl_vars; tp -> tb_name; tp ++) if (strcmp (word, tp -> tb_name) == 0) break; if (tp == NULL) continue; /* obsoleted word? */ switch (tp -> tb_fmt) { case TB_END: break; case TB_INT: ip = (int *) tp -> tb_ptr; if (ScanDigit ((ConstVP)&ptr, &num) == True) *ip = num; continue; case TB_DOUBLE: dp = (double *)tp -> tb_ptr; if (sscanf (ptr, " %g", &d) == 1) *dp = d; continue; default: /* shouldn't happen - skip */ continue; } break; /* out of here */ } } static void SaveVars (fp) FILE *fp; { struct tblvars *tp; for (tp = tbl_vars; tp -> tb_name; tp ++) { switch (tp -> tb_fmt) { case TB_END: fprintf (fp, "%s end\n", tp -> tb_name); break; case TB_INT: fprintf (fp, "%s %d\n", tp -> tb_name, *(int *)tp -> tb_ptr); continue; case TB_DOUBLE: fprintf (fp, "%s %g\n", tp -> tb_name, *(double *)tp -> tb_ptr); continue; default: /* skip */ continue; } break; } } void SaveVersion (fp) FILE *fp; { int i; SET_BIT(savedbits, SAVE_VARS); /* set it */ fprintf (fp, "%dx%d %d %d %lf %lf %lf %lf %lf %lf %lf %lf %lf %lf %lf %d %ld %d %d %d %d\n", ver_max_x, ver_max_y, etu_per_update, sec_per_etu, fgrate, fcrate, eatrate, babyeat, obrate, uwbrate, bankint, money_civ, money_uw, money_mil, money_res, ksu_version, savedbits, chainsaw_version, other_version, land_units, emp3server); fprintf(fp,"%d\n", numopts); for(i=0;i 16) || (numopts < 0)) { numopts = 0; printf("WRONG EMPversion bits information, skipping line\n"); } else { int i; options_defined = (unsigned long *) malloc(numopts * sizeof(long)); for(i=0;i sct = sct; new-> mcost = mcost; new-> marked = False; prev = (WhEnt) 0; for (ptr = head; ptr != (WhEnt) 0; ptr = ptr-> next) { if (ptr-> mcost < mcost) break; prev = ptr; } if (prev == (WhEnt) 0) { new-> next = head; head = new; } else { new-> next = prev-> next; prev-> next = new; } } static WhEnt GetFirstNotMarked () { WhEnt ptr; for (ptr = head; ptr != (WhEnt) 0; ptr = ptr-> next) if (! ptr-> marked) { ptr-> marked = True; return ptr; } return (WhEnt) 0; } static bool InList (sct) Sector sct; { register WhEnt ptr; for (ptr = head; ptr != (WhEnt) 0; ptr = ptr-> next) if (ptr-> sct == sct) return True; return False; } static void FreeList () { WhEnt ptr; while (head != (WhEnt) 0) { ptr = head-> next; free ((char *) head); head = ptr; } } Sector Where (from, expres) Sector from; Stack expres; { Sector sct, cur_sct; WhEnt ent; bool found; double mcost, cur_mcost = 0.0; Neighb neighb; if (from == (Sector) 0 || ! s_owned (from)) return (Sector) 0; head = (WhEnt) 0; Add (from, 0.0); cur_sct = (Sector) 0; found = False; while ((ent = GetFirstNotMarked ()) != (WhEnt) 0) { if (found && ent-> mcost >= cur_mcost) continue; InitNeighbours (ent-> sct, & neighb); while (NextNeighbour (& sct, S_EXIST, neighb)) { if (sct == (Sector) 0 || ! s_owned (sct)) continue; if (InList (sct)) continue; /* path = BestLandPath (from, sct, False); if (path == (char *) 0) { Panic ("where", "misc/where.c", "couldn't find a path !"); continue; } mcost = RealPathCost (from, path); */ mcost = ent-> mcost + MoveCost (s_des (sct), s_eff (sct)); if (found && mcost >= cur_mcost) continue; if (EvaluateExpression (sct, expres) == 0.0) { Add (sct, mcost); continue; } cur_mcost = mcost; cur_sct = sct; found = True; } } FreeList (); return cur_sct; } void TestWhere () { char * ans; Stack expr; Sector sct; do { ans = InputAtMessage ("Cond:", 20, GS_TEXT); if (ans == (char *) 0 || interrupt || * ans == '\0') { Message ("Test where cancelled"); return; } expr = ParseExpression (ans); } while (expr == (Stack) 0); sct = Where (cursct, expr); if (sct == (Sector) 0) Message ("No such sector found"); else Goto (sct); } xemp5.1-beta/lib/misc/budget.c100444 12266 2116 3705 6032456237 14564 0ustar jponexor/* $Header: /a/victor/nexor/user4/jpo/xemp/xemp5.0/lib/misc/RCS/budget.c,v 1.4 1995/09/28 08:28:15 jpo Exp $ $Date: 1995/09/28 08:28:15 $ $Author: jpo $ $Id: budget.c,v 1.4 1995/09/28 08:28:15 jpo Exp $ $Locker: $ * $Log: budget.c,v $ * Revision 1.4 1995/09/28 08:28:15 jpo * new format.. sigh. * * Revision 1.3 1995/09/21 07:52:19 jpo * Make budget a little more bomb proof. * * Revision 1.2 1995/09/20 07:39:38 jpo * Add more bits to parsing... * * Revision 1.1 1995/09/18 17:02:37 jpo * Initial revision * * */ #include "main.h" #include "func.h" typedef struct _budgetline { char *line; struct _budgetline *next; } BudgetLine; static BudgetLine *budget_head; static void DoScanBudget _PROTO((bool force)); static void FreeBudget _PROTO((void)); void DoBudget () { Strings strings; BudgetLine *bp; ScanBudget (); strings = InitStrings (); for (bp = budget_head; bp; bp = bp -> next) AddString (strings, bp -> line); InitWMPager (strings, "budget"); return; } void ScanBudget () { DoScanBudget (False); } void ScanNewBudget () { DoScanBudget (True); } static void DoScanBudget (force) bool force; { char *line; BudgetLine **bpp; if (force == False && budget_head != NULL) return; if (budget_head) FreeBudget (); bpp = &budget_head; FeedEmpire ("budget", PRINT); PrintAtEmpire ("xemp: scanning budget output"); for (;;) { line = ReadEmpire (DONT_PRINT); if (EmpireStatus () == E_COMMAND) { PrintAtEmpire (line); return; } if (EmpireStatus () != E_PRINTING) { Message ("Sync error"); Bell (); continue; } *bpp = (BudgetLine *) doalloc(sizeof **bpp); (*bpp) -> line = Str(line); (*bpp) -> next = NULL; bpp = &(*bpp) -> next; } } static void FreeBudget () { BudgetLine *bi, *bi2; if (budget_head == NULL) return; for (bi = budget_head; bi; bi = bi2) { bi2 = bi -> next; if (bi -> line) free (bi->line); free ((char *)bi); } budget_head = NULL; } xemp5.1-beta/lib/nuke/ 40755 12266 2116 0 6043206336 13050 5ustar jponexorxemp5.1-beta/lib/nuke/GNUdepend100644 12266 2116 12327 6015617330 14725 0ustar jponexorSRCS= alloc.c \ build.c \ data.c \ dump.c \ nuke.c \ scan.c \ scanshow.c \ show.c \ transport.c \ type.c OBJS= alloc.o \ build.o \ data.o \ dump.o \ nuke.o \ scan.o \ scanshow.o \ show.o \ transport.o \ type.o ### alloc.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nuke.h build.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nuke.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h data.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nuke.h dump.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nuke.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h nuke.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nuke.h scan.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nuke.h scanshow.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nuke.h show.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nuke.h transport.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h type.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nuke.h xemp5.1-beta/lib/nuke/GNUmakefile100644 12266 2116 1000 6034224646 15212 0ustar jponexor# The following variables are configurable. #-----------------------------------# LOCALCFLAGS := LOCALIFLAGS := LOCALLFLAGS := LOCALSFLAGS := TOPDIR = ../.. LIB := ../libnuke.a LINTNAME := nuke #-----------------------------------# # Productions: # depend: create the dependencies # all: make the library # saber: load things for saber # tags: make tags include $(TOPDIR)/make/GenMakefile include $(DEPENDENCIES) include $(TOPDIR)/make/LibMakefile tags: ../tags ln -s ../tags TAGS: ../TAGS ln -s ../TAGS xemp5.1-beta/lib/nuke/alloc.c100444 12266 2116 3142 6023771101 14374 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/nuke/RCS/alloc.c,v 5.1 1993/03/14 16:50:14 etienne Exp $ $Date: 1993/03/14 16:50:14 $ $Author: etienne $ $Id: alloc.c,v 5.1 1993/03/14 16:50:14 etienne Exp $ $Locker: $ $Log: alloc.c,v $ Revision 5.1 1993/03/14 16:50:14 etienne *** empty log message *** * Revision 5.0 93/02/06 09:22:49 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:40:08 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "nuke.h" Stockp spl_head = (Stockp) 0; Stockp spl_tail = (Stockp) 0; Stockp NewStockPile () { Nuke new; new = (Stockp) doalloc ((unsigned) sizeof (struct s_nuke)); (void) bzero (new, sizeof (struct s_nuke)); if (spl_tail == (Stockp) 0) spl_tail = spl_head = new; else { set_sp_next (spl_tail, new); spl_tail = new; } return new; } void FreeStockPile (stockp) Stockp stockp; { Stockp ptr, found; if (spl_head == (Stockp) 0) Panic (__FILE__, "FreeStockPile", "spl_head NULL"); if (stockp == spl_head) { if (spl_tail == stockp) spl_tail = sp_next (stockp); spl_head = sp_next (stockp); } else { found = (Stockp) 0; for (ptr = spl_head; sp_next (ptr) != (Stockp) 0; ptr = sp_next (ptr)) { if (ptr-> next == stockp) { found = ptr; break; } } if (found == (Stockp) 0) Panic (__FILE__, "FreeStockPile", "stock pile not found"); if (spl_tail == stockp) spl_tail = found; set_sp_next (found, sp_next (stockp)); } (void) free ((char *) stockp); } xemp5.1-beta/lib/nuke/build.c100444 12266 2116 5275 6023771101 14412 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/nuke/RCS/build.c,v 5.2 1995/09/08 07:34:54 jpo Exp $ $Date: 1995/09/08 07:34:54 $ $Author: jpo $ $Id: build.c,v 5.2 1995/09/08 07:34:54 jpo Exp $ $Locker: $ $Log: build.c,v $ Revision 5.2 1995/09/08 07:34:54 jpo prototype * Revision 5.1 93/03/14 16:50:16 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:22:49 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:40:08 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "nation.h" #include "nuke.h" #include "sector.h" static int last_nukeid = -1; void BuildNuke (x, y) int x, y; { DoBuildNuke (x, y, -1); } void RedoBuildNuke () { DoBuildNuke (s_xcd(cursct), s_ycd(cursct), last_nukeid); } void DoBuildNuke (x, y, type) int x, y; int type; { int nukenr; char * line, * answer, * ptr; if (! CheckOwnedCurSct ()) return; if (s_des (cursct) != 'n' || s_eff (cursct) < 60) { Message ("you can only build nukes in 60+% nucl. plants"); Bell (); return; } if (type == -1) { type = SelectNukeType (x, y, NK_BUILD); if (type < 0) return; } if (! BuildCheckCommodity ('l', nt_lcm (type), nt_name (type)) || ! BuildCheckCommodity ('h', nt_hcm (type), nt_name (type)) || ! BuildCheckCommodity ('o', nt_oil (type), nt_name (type)) || ! BuildCheckCommodity ('r', nt_oil (type), nt_name (type)) || ! BuildCheckAvailable (nt_ava (type), nt_name (type))) return; FeedEmpire (Fmt ("build nuke %s", CrdStr (cursct)), PRINT); (void) WaitForPrompt (PRINT); if (EmpireStatus () != E_QUESTION) { Message ("build nuke failed!"); Bell (); return; } nukenr = -1; FeedEmpire (nt_name (type), PRINT); for (;;) { line = ReadEmpire (PRINT); if (EmpireStatus () == E_QUESTION) { PrintAtEmpire (line); Bell (); answer = InputAtMessage (line, 10, GS_NAME); if (interrupt || answer == (char *) 0) { interrupt = False; Message ("Build cancelled"); FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); return; } FeedEmpire (answer, PRINT); continue; } if (EmpireStatus () == E_COMMAND) { PrintAtEmpire (line); Message ("Build failed"); Bell (); return; } ptr = index (line, '#'); if (ptr == (char *) 0) continue; ptr ++; if (ScanDigit ((ConstVP)& ptr, & nukenr)) break; } (void) WaitForPrompt (PRINT); SetAgain (RedoBuildNuke); last_nukeid = type; if (nukenr == -1) { Message ("Couldn't find nuke number, rescan them all!"); Bell (); return; } FScanNukes (Fmt ("%d", nukenr), PRINT); CensusNuke (s_stock (cursct)); } xemp5.1-beta/lib/nuke/data.c100444 12266 2116 4055 6023771101 14217 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/nuke/RCS/data.c,v 5.1 1993/03/14 16:50:16 etienne Exp $ $Date: 1993/03/14 16:50:16 $ $Author: etienne $ $Id: data.c,v 5.1 1993/03/14 16:50:16 etienne Exp $ $Locker: $ $Log: data.c,v $ Revision 5.1 1993/03/14 16:50:16 etienne *** empty log message *** * Revision 5.0 93/02/06 09:22:49 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:40:08 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "nuke.h" #define MAXBUF 200 void SaveNukeShow (fp) FILE * fp; { int i; fprintf (fp, "%d Nuke types.\n", nr_nuke_types); for (i = 0; i < nr_nuke_types; i ++) { fprintf (fp, "%s\n", nt_name (i)); fprintf (fp, "%d %d %d %d %d %d %d %d %d %d %d %d\n", nt_lcm (i), nt_hcm (i), nt_oil (i), nt_rad (i), nt_ava (i), nt_tech (i), nt_cost (i), nt_blst (i), nt_dam (i), nt_lbs (i), nt_abils (i)); } fprintf (fp, "END OF SHOW NUKE\n"); } void LoadNukeShow (fp) FILE * fp; { char buffer [MAXBUF]; char * name; int lcm, hcm, oil, rad, ava, tech, cost, blst, dam, lbs, abil; int i; if (fgets (buffer, MAXBUF, fp) == (char *) 0) { PrintAtEmpire ("Corrupted data file"); return; } sscanf (buffer, "%d Nuke types.", & nr_nuke_types); for (i = 0; i < nr_nuke_types; i ++) { (void) fgets (buffer, MAXBUF, fp); name = doalloc (strlen (buffer)); (void) strncpy (name, buffer, strlen (buffer) - 1); set_nt_name (i, name); (void) fgets (buffer, MAXBUF, fp); if (sscanf (buffer, "%d %d %d %d %d %d %d %d %d %d %d", & lcm, & hcm, & oil, & rad, & ava, & tech, & cost, & blst, & dam, & lbs, & abil) != 11) { PrintAtEmpire ("Corrupted data file"); return; } set_nt_lcm (i, lcm); set_nt_hcm (i, hcm); set_nt_oil (i, oil); set_nt_rad (i, rad); set_nt_ava (i, ava); set_nt_tech (i, tech); set_nt_cost (i, cost); set_nt_blst (i, blst); set_nt_dam (i, dam); set_nt_lbs (i, lbs); set_nt_abil (i, abil); } (void) fgets (buffer, MAXBUF, fp); } xemp5.1-beta/lib/nuke/dump.c100444 12266 2116 3222 6023771101 14246 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/nuke/RCS/dump.c,v 5.1 1993/03/14 16:50:17 etienne Exp $ $Date: 1993/03/14 16:50:17 $ $Author: etienne $ $Id: dump.c,v 5.1 1993/03/14 16:50:17 etienne Exp $ $Locker: $ $Log: dump.c,v $ Revision 5.1 1993/03/14 16:50:17 etienne *** empty log message *** * Revision 5.0 93/02/06 09:22:49 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:40:08 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "nuke.h" #include "sector.h" void AddStockToSct (sct, stock) Sector sct; Stockp stock; { int total; int i; total = 0; for (i = 0; i < nr_nuke_types; i ++) total += sp_nukamt (stock, i); set_nuk (sct, total); set_stock (sct, stock); } void BinDumpNukes (fp) File fp; { int size; Stockp dummy, ptr; size = sizeof (struct s_nuke); fwrite ((char *) & size, sizeof (int), 1, fp); for (ptr = spl_head; ptr != (Stockp) 0; ptr = sp_next (ptr)) (void) fwrite ((char *) ptr, size, 1, fp); dummy = NewStockPile (); set_sp_nr (dummy, -1); (void) fwrite ((char *) dummy, size, 1, fp); FreeStockPile (dummy); } bool BinRestoreNukes (fp) File fp; { int size; Stockp ptr; Sector sct; fread ((char *) & size, sizeof (size), 1, fp); if (size != sizeof (struct s_nuke)) return False; for (;;) { ptr = NewStockPile (); fread ((char *) ptr, size, 1, fp); set_sp_next (ptr, (Stockp) 0); if (sp_nr (ptr) < 0) break; sct = World (sp_x (ptr), sp_y (ptr), S_EXIST); if (sct != (Sector) 0) AddStockToSct (sct, ptr); } FreeStockPile (ptr); return True; } xemp5.1-beta/lib/nuke/nuke.c100444 12266 2116 1232 6023771101 14242 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/nuke/RCS/nuke.c,v 5.1 1993/03/14 16:50:17 etienne Exp $ $Date: 1993/03/14 16:50:17 $ $Author: etienne $ $Id: nuke.c,v 5.1 1993/03/14 16:50:17 etienne Exp $ $Locker: $ $Log: nuke.c,v $ Revision 5.1 1993/03/14 16:50:17 etienne *** empty log message *** * Revision 5.0 93/02/06 09:22:49 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:40:08 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "nuke.h" int nr_nuke_types; struct s_nuketype nuke_type [MAX_NUKETYPES]; xemp5.1-beta/lib/nuke/scan.c100444 12266 2116 5405 6023771101 14232 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/nuke/RCS/scan.c,v 5.2 1995/09/08 07:35:01 jpo Exp $ $Date: 1995/09/08 07:35:01 $ $Author: jpo $ $Id: scan.c,v 5.2 1995/09/08 07:35:01 jpo Exp $ $Locker: $ $Log: scan.c,v $ Revision 5.2 1995/09/08 07:35:01 jpo const * Revision 5.1 93/03/14 16:50:19 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:22:49 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:40:08 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "nuke.h" void FScanNukes (fmt, flag) const char * fmt; int flag; { char * ptr, * line; int i, x, y, nr, owner, amount; int nuke_type; Stockp stockp; Sector sct; char word [100]; bool err; FeedEmpire (Fmt ("nukes %s", fmt), flag); if (flag == PRINT) MessageAtEmpire ("scanning nuke info"); for (;;) { line = ReadEmpire (DONT_PRINT); if (EmpireStatus () != E_PRINTING) { if (flag == PRINT) { PrintAtEmpire (""); PrintAtEmpire (line); } return; } if (StrStr (line, "nuk x, y") != (char *) 0) continue; if (index (line, ',') != (char *) 0) { if (deity) err = (sscanf (line, "%d %d %d,%d", & owner, & nr, & x, & y) != 4); else err = (sscanf (line, "%d %d,%d", & nr, & x, & y) != 3); if (err) { PrintAtEmpire ("Strange line, skipped"); PrintAtEmpire (line); Bell (); continue; } sct = World (x, y, S_EXIST); if (sct == (Sector) 0) { stockp = (Stockp) 0; continue; } stockp = s_stock (sct); if (stockp == (Stockp) 0) stockp = NewStockPile (); set_sp_x (stockp, x); set_sp_y (stockp, y); set_sp_nr (stockp, nr); if (deity) set_sp_owner (stockp, owner); set_stock (sct, stockp); set_nuk (sct, 0); /* init amounts for all nuke types */ for (i = 0; i < nr_nuke_types; i ++) set_sp_nukamt (stockp, i, 0); continue; } ptr = line; if (ScanWord ((ConstVP)& ptr, word)) { amount = atoi (word); if (amount < 0) { PrintAtEmpire ("Strange line, skipping:"); PrintAtEmpire (line); continue; } SkipBlank ((ConstVP)& ptr); nuke_type = FindNukeType (ptr); if (nuke_type < 0) { PrintAtEmpire ("Strange line, skipping:"); PrintAtEmpire (line); continue; } if (sct == (Sector) 0) continue; stockp = s_stock (sct); if (stockp == (Stockp) 0) { PrintAtEmpire (Fmt ("Sector %d,%d %s", s_xcd (sct), s_ycd (sct), "should have a stockpile!")); EmpireMore (); continue; } else { set_sp_nukamt (stockp, nuke_type, amount); add_nuk (sct, amount); } continue; } } } xemp5.1-beta/lib/nuke/scanshow.c100444 12266 2116 7610 6023771101 15133 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/nuke/RCS/scanshow.c,v 5.2 1995/09/08 07:35:09 jpo Exp $ $Date: 1995/09/08 07:35:09 $ $Author: jpo $ $Id: scanshow.c,v 5.2 1995/09/08 07:35:09 jpo Exp $ $Locker: $ $Log: scanshow.c,v $ Revision 5.2 1995/09/08 07:35:09 jpo const * Revision 5.1 93/03/14 16:50:20 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:22:49 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:40:08 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "nuke.h" void FScanNukeShowBuild () { int namelen; char * line, * ptr, * name; int lcm, hcm, oil, rad, ava, tech, res, cost; int nr; FeedEmpire ("show nuke build", PRINT); MessageAtEmpire ("scanning nuke build data"); nr = 0; for (;;) { line = ReadEmpire (DONT_PRINT); if (EmpireStatus () != E_PRINTING) { PrintAtEmpire (""); PrintAtEmpire (line); set_nt_name (nr, (char *) 0); nr_nuke_types = nr; return; } if (line == (char *) 0) return; ptr = StrStr (line, "lcm hcm oil rad avail"); if (ptr != (char *) 0) { namelen = ptr - line - 1; continue; } if (strlen (line) < namelen + 2) { PrintAtEmpire ("Strange line in show nuke build"); PrintAtEmpire (line); continue; } if (land_units) { if (sscanf (line + namelen + 1, "%d %d %d %d %d %d %d $ %d", & lcm, & hcm, & oil, & rad, & ava, & tech, &res, & cost) != 8) { PrintAtEmpire ("Strange line in show nuke build"); PrintAtEmpire (line); continue; } } else { if (sscanf (line + namelen + 1, "%d %d %d %d %d %d $ %d", & lcm, & hcm, & oil, & rad, & ava, & tech, & cost) != 7) { PrintAtEmpire ("Strange line in show nuke build"); PrintAtEmpire (line); continue; } } set_nt_lcm (nr, lcm); set_nt_hcm (nr, hcm); set_nt_oil (nr, oil); set_nt_rad (nr, rad); set_nt_ava (nr, ava); set_nt_tech (nr, tech); set_nt_res (nr, res); set_nt_cost (nr, cost); name = doalloc ((unsigned) namelen + 1); ptr = line + namelen; while (* -- ptr == ' ' && ptr > line); (void) strncpy (name, line, ptr - line + 1); * (name + (ptr - line) + 1) = '\0'; set_nt_name (nr, name); nr ++; } } void FScanNukeShowCap () { int nr; int index_i, ability_index; char * line, * ptr; int blst, dam, lbs, tech; char word [100]; FeedEmpire ("show nuke cap", PRINT); MessageAtEmpire ("scanning nuke build data"); nr = 0; for (;;) { line = ReadEmpire (DONT_PRINT); if (EmpireStatus () != E_PRINTING) { PrintAtEmpire (""); PrintAtEmpire (line); return; } if (line == (char *) 0) return; ptr = StrStr (line, "blst dam lbs tec"); if (ptr != (char *) 0) { if (ksu_version) { index_i = ptr - line; ptr = StrStr (line, "abilities"); if (ptr == (char *) 0) { PrintAtEmpire (Fmt ("show nuke cap: %s", "abilities not found")); EmpireMore (); return; } ability_index = ptr - line; continue; } else { index_i = ptr - line; continue; } } if (strlen (line) < index_i + 2) { PrintAtEmpire ("Strange line in show nuke cap"); PrintAtEmpire (line); EmpireMore (); continue; } if (sscanf (line + index_i, "%d %d %d %d", & blst, & dam, & lbs, & tech) != 4) { PrintAtEmpire ("Strange line in show nuke cap"); PrintAtEmpire (line); EmpireMore (); continue; } set_nt_blst (nr, blst); set_nt_dam (nr, dam); set_nt_lbs (nr, lbs); set_nt_tech (nr, tech); if (ksu_version) { ptr = line + ability_index; while (ScanWord ((ConstVP)& ptr, word)) { if (strcmp (word, "neutron") == 0) set_nt_abil (nr, NK_NEUTRON); else { PrintAtEmpire (Fmt ( "unknown ability: %s", word)); Bell (); EmpireMore (); continue; } } } nr ++; } } xemp5.1-beta/lib/nuke/show.c100444 12266 2116 5335 6023771101 14270 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/nuke/RCS/show.c,v 5.1 1993/03/14 16:50:20 etienne Exp $ $Date: 1993/03/14 16:50:20 $ $Author: etienne $ $Id: show.c,v 5.1 1993/03/14 16:50:20 etienne Exp $ $Locker: $ $Log: show.c,v $ Revision 5.1 1993/03/14 16:50:20 etienne *** empty log message *** * Revision 5.0 93/02/06 09:22:49 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:40:08 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "sector.h" #include "nation.h" #include "nuke.h" int SelectNukeType (x, y, task) int x, y, task; { Strings strings; Pager pager; char * head; bool add; int found; int i; found = 0; strings = InitStrings (); for (i = 0; i < nr_nuke_types; i ++) { add = False; switch (task) { case NK_BUILD: add = nt_tech (i) <= (int) n_tech (nation); break; } if (add) { if (found == 0) if (land_units) { AddStringID (strings, "Nuketype lcm hcm oil rad ava tech res cost", -1); } else { AddStringID (strings, "Nuketype lcm hcm oil rad ava tech cost", -1); } if (land_units) { AddStringID (strings, Fmt ("%-12s %-3d %-3d %-3d %-3d %-3d %-4d %-4d $%d", nt_name (i), nt_lcm (i), nt_hcm (i), nt_oil (i), nt_rad (i), nt_ava (i), nt_tech (i), nt_res (i), nt_cost (i)), i); } else { AddStringID (strings, Fmt ("%-12s %-3d %-3d %-3d %-3d %-3d %-4d $%d", nt_name (i), nt_lcm (i), nt_hcm (i), nt_oil (i), nt_rad (i), nt_ava (i), nt_tech (i), nt_cost (i)), i); } found ++; } } if (found == 0) { switch (task) { case NK_BUILD: Message ("You can't build nukes (yet)"); Bell (); return -1; } } switch (task) { case NK_BUILD: head = "Build which nuke?"; break; } pager = InitPager (strings, head); MapPagerFromTop (pager, map_win, x, y); i = PagerMenu (pager); FreeStrings (strings); FreePager (pager); return i; } int SelectNuke(x, y, stockp) Stockp stockp; int x, y; { register int i, k; Strings strings; Pager pager; char * head; int quant, ntype[MAX_NUKETYPES]; strings = InitStrings (); AddStringID (strings, "Nuketype Quantity", -1); k = 0; for (i = 0; i < nr_nuke_types; i ++) { quant = sp_nukamt(stockp,i); if (quant != 0) { AddStringID (strings, Fmt ("%-12s %-3d", nt_name (i), quant), k); ntype[k] = i; k++; } } head = "Arm with which nuke?"; pager = InitPager (strings, head); MapPagerFromTop (pager, map_win, x, y); do i = PagerMenu (pager); while ( i < 0); FreeStrings (strings); FreePager (pager); return ntype[i]; } xemp5.1-beta/lib/nuke/type.c100444 12266 2116 1715 6023771101 14267 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/nuke/RCS/type.c,v 5.2 1995/09/08 07:35:14 jpo Exp $ $Date: 1995/09/08 07:35:14 $ $Author: jpo $ $Id: type.c,v 5.2 1995/09/08 07:35:14 jpo Exp $ $Locker: $ $Log: type.c,v $ Revision 5.2 1995/09/08 07:35:14 jpo const * Revision 5.1 93/03/14 16:50:23 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:22:49 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:40:08 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "nuke.h" int FindNukeType (name) const char * name; { register int i, len; len = strlen(name); for (i = 0; i < nr_nuke_types; i ++) { if (!chainsaw_version) { if (strncmp (name, nt_name (i), len) == 0) return i; } else { if (strstr(name, nt_name(i)) != (char *)0) return i; } } return -1; } xemp5.1-beta/lib/nuke/transport.c100444 12266 2116 1410 6023771101 15332 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/nuke/RCS/transport.c,v 5.1 1993/03/14 16:50:22 etienne Exp $ $Date: 1993/03/14 16:50:22 $ $Author: etienne $ $Id: transport.c,v 5.1 1993/03/14 16:50:22 etienne Exp $ $Locker: $ $Log: transport.c,v $ Revision 5.1 1993/03/14 16:50:22 etienne *** empty log message *** * Revision 5.0 93/02/06 09:22:49 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:40:08 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "var.h" void TransportNuke (x, y, what) char * what; { Plane ptr; DoMove (x, y, 'N', 0, what); FScanNukes("*",DONT_PRINT); CensusSct (cursct); } xemp5.1-beta/lib/parse/ 40755 12266 2116 0 6043206336 13220 5ustar jponexorxemp5.1-beta/lib/parse/GNUdepend100644 12266 2116 4752 6015617332 15062 0ustar jponexorSRCS= LLgen.c \ Lpars.c \ expr.c \ get_token.c \ lex.c \ program.c \ run_all.c \ symtab.c OBJS= LLgen.o \ Lpars.o \ expr.o \ get_token.o \ lex.o \ program.o \ run_all.o \ symtab.o ### LLgen.o: Lpars.h parser.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h symtab.h \ token.h Lpars.o: Lpars.h expr.o: Lpars.h parser.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h symtab.h \ token.h stack.h get_token.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/production.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/func.h parser.h \ Lpars.h symtab.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nuke.h eval_stack.h lex.o: parser.h /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h symtab.h \ token.h Lpars.h program.o: Lpars.h parser.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h symtab.h \ token.h stack.h prog_defs.h program.inc run_all.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h parser.h \ symtab.h stack.h Lpars.h prog_defs.h eval_stack.h symtab.o: Lpars.h symtab.h xemp5.1-beta/lib/parse/GNUmakefile100644 12266 2116 1002 6034224662 15362 0ustar jponexor# The following variables are configurable. #-----------------------------------# LOCALCFLAGS := LOCALIFLAGS := LOCALLFLAGS := LOCALSFLAGS := TOPDIR = ../.. LIB := ../libparse.a LINTNAME := parse #-----------------------------------# # Productions: # depend: create the dependencies # all: make the library # saber: load things for saber # tags: make tags include $(TOPDIR)/make/GenMakefile include $(DEPENDENCIES) include $(TOPDIR)/make/LibMakefile tags: ../tags ln -s ../tags TAGS: ../TAGS ln -s ../TAGS xemp5.1-beta/lib/parse/LLgen.c100444 12266 2116 6470 6026570257 14476 0ustar jponexor/* $Header: /a/victor/nexor/user4/jpo/xemp/xemp5.0/lib/parse/RCS/LLgen.c,v 5.2 1995/09/16 15:43:42 jpo Exp $ $Date: 1995/09/16 15:43:42 $ $Author: jpo $ $Id: LLgen.c,v 5.2 1995/09/16 15:43:42 jpo Exp $ $Locker: $ $Log: LLgen.c,v $ Revision 5.2 1995/09/16 15:43:42 jpo removed # line stuff Revision 5.1 1993/03/14 16:50:35 etienne *** empty log message *** * Revision 5.0 93/02/06 09:23:02 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:40:53 greyhelm * Added RCS headers - Karl Hagen * */ /* LLgen generated code from source LLgen.g */ /* $Header: /a/victor/nexor/user4/jpo/xemp/xemp5.0/lib/parse/RCS/LLgen.c,v 5.2 1995/09/16 15:43:42 jpo Exp $ */ #ifdef LL_DEBUG #define LL_assert(x) if(!(x)) LL_badassertion("x",__FILE__,__LINE__) #else #define LL_assert(x) /* nothing */ #endif extern int LLsymb; #define LL_SAFE(x) /* Nothing */ #define LL_SSCANDONE(x) if (LLsymb != x) LLerror(x); else #define LL_SCANDONE(x) if (LLsymb != x) LLerror(x); else #define LL_NOSCANDONE(x) LLscan(x) #ifdef LL_FASTER #define LLscan(x) if ((LLsymb = LL_LEXI()) != x) LLerror(x); else #endif # include "Lpars.h" extern unsigned int LLscnt[]; extern unsigned int LLtcnt[]; extern int LLcsymb; #define LLsdecr(d) {LL_assert(LLscnt[d] > 0); LLscnt[d]--;} #define LLtdecr(d) {LL_assert(LLtcnt[d] > 0); LLtcnt[d]--;} #define LLsincr(d) LLscnt[d]++ #define LLtincr(d) LLtcnt[d]++ #define LL_LEXI NextToken #include "parser.h" #include "symtab.h" #include "token.h" #include "Lpars.h" extern Stack expr_result; bool parse_error; char *TokenName(token_value) int token_value; { char token_buf[20]; Symtab list; if (token_value == LEFT_AND || token_value == RIGHT_AND) token_value = AND; if (token_value == LEFT_OR || token_value == RIGHT_OR) token_value = OR; if (token_value == CONSTANT) return "constant"; if (token_value == CHARACTER) return "character"; if (token_value == STRING) return "string"; if (token_value == NEGATE) return "negate"; if (token_value == SECTOR_FUNC) return "sector"; if (token_value == EOFILE) return "eofile"; for (list = text_symtab; list->name != (char *) 0; list++) if (list->token == token_value) return list->name; for (list = special_chars_symtab; list->name != (char *) 0; list++) if (list->token == token_value) return list->name; sprintf(token_buf, "Token %d", token_value); return token_buf; } void LLmessage(msg) int msg; { parse_error = True; switch (msg) { case 0: ParseError("Unexpected %s.", TokenName(LLsymb)); break; case -1: ParseError("Garbage at end of file."); break; default: switch (msg) { case TOKEN_EXPRESSION: ParseError("Expression expected."); break; case TOKEN_NAME: ParseError("Commodity or resource expected."); break; case TOKEN_SECTOR: ParseError("Sector expression expected."); break; case TOKEN_STATEMENT: ParseError("Statement expected."); break; case TOKEN_NUMERIC_EXPR: ParseError("NUmeric expression expected."); break; case TOKEN_COMMODITY: ParseError("Commodity expected."); break; case TOKEN_CLAUSE: ParseError("ON_ERROR fail clause expected."); break; default: ParseError("%s expected.", TokenName(msg)); } stacked_token.value = LLsymb; } } xemp5.1-beta/lib/parse/Lpars.c100444 12266 2116 23726 6023771305 14573 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/parse/RCS/Lpars.c,v 5.1 1993/03/14 16:50:36 etienne Exp $ $Date: 1993/03/14 16:50:36 $ $Author: etienne $ $Id: Lpars.c,v 5.1 1993/03/14 16:50:36 etienne Exp $ $Locker: $ $Log: Lpars.c,v $ Revision 5.1 1993/03/14 16:50:36 etienne *** empty log message *** * Revision 5.0 93/02/06 09:23:02 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:40:53 greyhelm * Added RCS headers - Karl Hagen * */ /* LLgen generated code from source . */ /* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/parse/RCS/Lpars.c,v 5.1 1993/03/14 16:50:36 etienne Exp $ */ #ifdef LL_DEBUG #define LL_assert(x) if(!(x)) LL_badassertion("x",__FILE__,__LINE__) #else #define LL_assert(x) /* nothing */ #endif extern int LLsymb; #define LL_SAFE(x) /* Nothing */ #define LL_SSCANDONE(x) if (LLsymb != x) LLerror(x); else #define LL_SCANDONE(x) if (LLsymb != x) LLerror(x); else #define LL_NOSCANDONE(x) LLscan(x) #ifdef LL_FASTER #define LLscan(x) if ((LLsymb = LL_LEXI()) != x) LLerror(x); else #endif # include "Lpars.h" extern unsigned int LLscnt[]; extern unsigned int LLtcnt[]; extern int LLcsymb; #define LLsdecr(d) {LL_assert(LLscnt[d] > 0); LLscnt[d]--;} #define LLtdecr(d) {LL_assert(LLtcnt[d] > 0); LLtcnt[d]--;} #define LLsincr(d) LLscnt[d]++ #define LLtincr(d) LLtcnt[d]++ #define LLNOFIRSTS #define LL_LEXI NextToken #define LL_SSIZE 21 #define LL_NSETS 19 #define LL_NTERMINALS 161 LLParseProgram() { unsigned int s[LL_NTERMINALS+LL_NSETS+2]; LLnewlevel(s); LLread(); L1_parse_program(); LL_SCANDONE(EOFILE); LLoldlevel(s); } LLParseExpression() { unsigned int s[LL_NTERMINALS+LL_NSETS+2]; LLnewlevel(s); LLread(); L0_parse_single_expression(); LL_SCANDONE(EOFILE); LLoldlevel(s); } static char LLsets[] = { 016,020,0240,0340,0377,0377,0177,00,00,00,00,0377,0377,0277,0377,0377,0377,0377,0377,0137,00, 00,00,0200,00,00,00,00,00,00,00,00,03,00,00,00,00,00,00,00,020,00, 016,020,0240,0340,0377,0377,0177,00,00,00,00,0377,0377,0277,0377,0377,0377,0377,0377,037,00, 016,0374,0277,0370,0377,07,00,00,00,00,00,0377,0317,0277,0377,0377,0377,0377,0377,037,00, 016,0374,0277,0350,0377,07,00,00,00,00,00,0377,0317,0277,0377,0377,0377,0377,0377,037,00, 00,0300,037,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00, 016,074,0240,0340,0377,0377,0177,00,00,00,00,0377,0377,0277,0377,0377,0377,0377,0377,037,00, 00,030,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00, 016,064,0240,0340,0377,0377,0177,00,00,00,00,0377,0377,0277,0377,0377,0377,0377,0377,037,00, 00,044,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00, 00,00,00,00,01,0374,0177,00,00,00,00,0374,0377,0277,0377,037,00,0374,0377,013,00, 016,0374,0277,0370,0377,0377,0177,00,00,00,00,0377,0377,0277,0377,0377,0377,0377,0377,037,00, 00,00,00,00,00,00,0200,052,0303,0376,0375,00,00,00,00,00,00,00,00,040,00, 00,00,00,00,00,0370,0177,00,00,00,00,00,060,00,00,00,00,00,00,0200,00, 00,00,0200,00,00,00,00,00,010,00,00,03,00,00,00,00,00,00,00,020,00, 00,00,00,00,00,0370,0177,00,00,00,00,00,00,00,00,00,00,00,00,0200,00, 00,00,00,00,00,0200,00,00,00,00,00,00,020,00,00,00,00,00,00,00,00, 016,0374,0277,0370,0377,0377,0177,00,010,00,00,0377,0377,0277,0377,0377,0377,0377,0377,037,00, 00,00,00,00,00,00,00,00,00,00,074,00,00,00,00,00,00,00,00,00,01, 0 }; #define LLindex (LL_index+1) static int LL_index[] = {0,0, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 0 }; #define LL_NEWMESS /* * Some grammar independent code. * This file is copied into Lpars.c. */ # ifndef lint static char *rcsid = "$Header: /nexor/users/jpo/xemp/xemp5.0/lib/parse/RCS/Lpars.c,v 5.1 1993/03/14 16:50:36 etienne Exp $"; # endif # ifdef LL_DEBUG # include # endif unsigned int LLtcnt[LL_NTERMINALS]; unsigned int LLscnt[LL_NSETS]; int LLcsymb, LLsymb; static int LLlevel; /* In this file are defined: */ extern LLread(); extern int LLskip(); extern int LLnext(); #ifndef LLscan extern LLscan(); #endif extern LLerror(); # ifndef LLNOFIRSTS extern int LLfirst(); # endif extern LLnewlevel(); extern LLoldlevel(); #ifndef LLscan LLscan(t) { /* * Check if the next symbol is equal to the parameter */ if ((LLsymb = LL_LEXI()) == t) { return; } /* * If we come here, an error has been detected */ LLerror(t); } #endif LLread() { for (;;) { if ((LLcsymb = LLindex[(LLsymb = LL_LEXI())]) >= 0) return; LLmessage(0); } /* NOTREACHED */ } LLerror(t) { register int i; if (t == EOFILE && LLsymb <= 0) return; #ifdef LL_NEWMESS if (t == EOFILE) { #ifdef LL_USERHOOK static int lst[] = { EOFILE, 0 }; LLuserhook(EOFILE, lst); #endif LL_USERHOOK if (LLsymb != EOFILE && LLsymb > 0) { LLmessage(-1); while ((LLsymb = LL_LEXI()) > 0 && LLsymb != EOFILE) /* nothing */ ; } return; } #endif if ((LLcsymb = LLindex[LLsymb]) < 0) { LLmessage(0); LLread(); } i = LLindex[t]; LLtcnt[i]++; #ifdef LL_USERHOOK if (LLdoskip(t)) /* nothing */; #else if (LLskip()) /* nothing */; #endif LLtcnt[i]--; if (LLsymb != t) LLmessage(t); } # ifndef LLNOFIRSTS LLfirst(x, d) { register int i; return (i = LLindex[x]) >= 0 && (LLsets[d + (i >> 3)] & (1 << (i & 07))); } # endif LLnext(n) { /* returns: 0 if the current symbol is'nt skipped, and it is'nt a member of "n", 1 if we have a new symbol, but it is'nt a member, 2 if the current symbol is a member, and 3 if we have a new symbol and it is a member. So, the low order bit indicates wether we have a new symbol, and the next bit indicates wether it is a member of "n". */ int retval = 0; if (LLskip()) retval = 1; if (n <= 0 && LLsets[(LLcsymb >> 3) - n] & (1 << (LLcsymb & 07))) { retval |= 2; } else if (n > 0 && LLcsymb == LLindex[n]) retval |= 2; return retval; } LLskip() { /* returns 0 if the current symbol is'nt skipped, and 1 if it is, t.i., we have a new symbol */ #ifdef LL_USERHOOK return LLdoskip(0); } LLuserhook(exp, list) int *list; { int old = LLsymb; LL_USERHOOK(exp, list); LLread(); return LLsymb != old; } LLmklist(list) register int *list; { char Xset[LL_SSIZE]; register char *p; register int i; for (p = &Xset[0]; p < &Xset[LL_SSIZE]; ) *p++ = 0; for (i = 0; i < LL_NTERMINALS; i++) { if (LLtcnt[i] != 0) Xset[i >> 3] |= (1 << (i & 07)); } for (i = LL_NSETS - 1; i >= 0; i--) if (LLscnt[i] != 0) { register char *q = &LLsets[LL_SSIZE * i]; p = &Xset[0]; while (p < &Xset[LL_SSIZE]) *p++ |= *q++; } for (i = 0; i < LL_NTERMINALS; i++) { if (Xset[i >> 3] & (1 << (i & 07))) { *list++ = LLtok[i]; } } *list = 0; } LLdoskip(exp) { int LLx; int list[LL_NTERMINALS+1]; #endif LL_USERHOOK register int i; int retval; int LLi, LLb; retval = 0; #ifdef LL_USERHOOK LLmklist(list); LLx = LLuserhook(exp, list); if (LLx) retval = 1; #endif LL_USERHOOK for (;;) { if (LLtcnt[LLcsymb] != 0) { #ifdef LL_USERHOOK if (!exp || !LLx || LLcsymb == LLindex[exp]) #endif return retval; } LLi = LLcsymb >> 3; LLb = 1 << (LLcsymb & 07); for (i = LL_NSETS - 1; i >= 0; i--) { if (LLscnt[i] != 0) { if (LLsets[LL_SSIZE*i+LLi] & LLb) { #ifdef LL_USERHOOK if (!exp || !LLx || LLcsymb == LLindex[exp]) #endif return retval; } } } #ifdef LL_USERHOOK if (LLx) { LLx = LLuserhook(exp, list); continue; } #endif LL_USERHOOK LLmessage(0); retval = 1; LLread(); } /* NOTREACHED */ } LLnewlevel(LLsinfo) unsigned int *LLsinfo; { register int i; if (LLlevel++) { LLsinfo[LL_NSETS+LL_NTERMINALS] = (unsigned) LLsymb; LLsinfo[LL_NSETS+LL_NTERMINALS+1] = (unsigned) LLcsymb; for (i = LL_NTERMINALS - 1; i >= 0; i--) { LLsinfo[i] = LLtcnt[i]; LLtcnt[i] = 0; } for (i = LL_NSETS - 1; i >= 0; i--) { LLsinfo[LL_NTERMINALS+i] = LLscnt[i]; LLscnt[i] = 0; } } LLtincr(0); } LLoldlevel(LLsinfo) unsigned int *LLsinfo; { register int i; LLtdecr(0); # ifdef LL_DEBUG for (i = 0; i < LL_NTERMINALS; i++) LL_assert(LLtcnt[i] == 0); for (i = 0; i < LL_NSETS; i++) LL_assert(LLscnt[i] == 0); # endif if (--LLlevel) { for (i = LL_NSETS - 1; i >= 0; i--) { LLscnt[i] = LLsinfo[LL_NTERMINALS+i]; } for (i = LL_NTERMINALS - 1; i >= 0; i--) { LLtcnt[i] = LLsinfo[i]; } LLsymb = (int) LLsinfo[LL_NSETS+LL_NTERMINALS]; LLcsymb = (int) LLsinfo[LL_NSETS+LL_NTERMINALS+1]; } } # ifdef LL_DEBUG LL_badassertion(asstr,file,line) char *asstr, *file; { fprintf(stderr,"Assertion \"%s\" failed %s(%d)\n",asstr,file,line); abort(); } # endif xemp5.1-beta/lib/parse/Lpars.h100444 12266 2116 10045 6023771305 14566 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/parse/RCS/Lpars.h,v 5.2 1995/09/08 07:35:53 jpo Exp $ $Date: 1995/09/08 07:35:53 $ $Author: jpo $ $Id: Lpars.h,v 5.2 1995/09/08 07:35:53 jpo Exp $ $Locker: $ $Log: Lpars.h,v $ Revision 5.2 1995/09/08 07:35:53 jpo PRINT to PRINTIT * Revision 5.1 93/03/14 16:50:50 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:02 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:40:53 greyhelm * Added RCS headers - Karl Hagen * */ /* LLgen generated code from source . */ # define EOFILE 256 # define CONSTANT 257 # define CHARACTER 258 # define STRING 259 # define NEGATE 260 # define SECTOR_FUNC 261 # define LEFT_AND 262 # define RIGHT_AND 263 # define LEFT_OR 264 # define RIGHT_OR 265 # define TIMES 266 # define PLUS 267 # define MINUS 268 # define DIVIDE 269 # define EQUALS 270 # define UNEQUALS 271 # define MATCHES 272 # define SMALLER 273 # define LARGER 274 # define SMALLER_EQ 275 # define LARGER_EQ 276 # define BRACKET_OPEN 277 # define BRACKET_CLOSE 278 # define SQUARE_BRACKET_OPEN 279 # define SQUARE_BRACKET_CLOSE 280 # define COMMA 281 # define COLON 282 # define AND 283 # define OR 284 # define NOT 285 # define TRUE 286 # define FALSE 287 # define POPULATION 288 # define ROUND_FUNC 289 # define FLOOR_FUNC 290 # define CEIL_FUNC 291 # define THRESHOLD_MOD 292 # define RESOURCE_MOD 293 # define SECTOR_MOD 294 # define SHIP_MOD 295 # define PLANE_MOD 296 # define NUKE_MOD 297 # define URANIUM 298 # define FOOD 299 # define DUST 300 # define OIL 301 # define IRON 302 # define UW 303 # define GUNS 304 # define BARS 305 # define PETROL 306 # define LCMS 307 # define HCMS 308 # define SHELLS 309 # define RADS 310 # define BEGIN 311 # define END 312 # define REPEAT 313 # define UNTIL 314 # define WHILE 315 # define DO 316 # define IF 317 # define THEN 318 # define ELSE 319 # define LOOP 320 # define MOVE 321 # define FROM 322 # define WHERE 323 # define VIA 324 # define TO 325 # define SET_DESIGNATION 326 # define DEMOBILIZE 327 # define NO_RESERVE 328 # define ENLIST 329 # define CONVERT 330 # define SHOOT 331 # define TERRITORY 332 # define SET_DISTRIBUTE 333 # define SET_THRESHOLD 334 # define SET_CUTOFF 335 # define SET_DELIVER 336 # define ON_FAIL 337 # define BREAK 338 # define CONTINUE 339 # define ABORT 340 # define STOP 341 # define PRINTIT 342 # define SEND 343 # define CURRENT 344 # define WAREHOUSE 345 # define BAD_SECTOR 346 # define XLOC 347 # define YLOC 348 # define OWNER 349 # define DESIGNATION 350 # define NEW_DESIG 351 # define EFFICIENCY 352 # define WORK 353 # define AVAILABLE 354 # define MOBILITY 355 # define CIVILIANS 356 # define MILITARY 357 # define PLANES 358 # define SHIPS 359 # define NUKES 360 # define OCCUPIED 361 # define OWNED 362 # define COAST 363 # define FOOD_USED 364 # define STARVATION 365 # define MINES 366 # define HAS_PLAN 367 # define IS_ACTIVE 368 # define PLAGUE 369 # define PLAGUE_STAGE 370 # define HAPPY 371 # define HAPPY_STATE 372 # define HAPPY_LOYAL 373 # define HAPPY_UNREST 374 # define HAPPY_REVOL 375 # define HAPPY_TERROR 376 # define HAPPY_GUERRE 377 # define PLAGUE_HEALTHY 378 # define PLAGUE_INFECTED 379 # define PLAGUE_DYING 380 # define SPE 381 # define EPU 382 # define IRATE 383 # define CTRATE 384 # define UTRATE 385 # define AMCRATE 386 # define RMCRATE 387 # define FRATE 388 # define HRATE 389 # define CBRATE 390 # define UBRATE 391 # define ERATE 392 # define BERATE 393 # define NAME 394 # define TYPE 395 # define TECH 396 # define NUMBER 397 # define FLEET 398 # define RADAR 399 # define SONAR 400 # define MOVES 401 # define WING 402 # define RANGE 403 # define MAXRANGE 404 # define ATTACK 405 # define DEFENSE 406 # define HARDEN 407 # define LOAD 408 # define STOCKPILE 409 # define TOKEN_EXPRESSION 410 # define TOKEN_NAME 411 # define TOKEN_SECTOR 412 # define TOKEN_STATEMENT 413 # define TOKEN_NUMERIC_EXPR 414 # define TOKEN_COMMODITY 415 # define TOKEN_CLAUSE 416 # define LAND_MOD 417 # define LANDS 418 xemp5.1-beta/lib/parse/eval_stack.h100444 12266 2116 2120 6023771305 15574 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/parse/RCS/eval_stack.h,v 5.2 1995/09/08 07:36:01 jpo Exp $ $Date: 1995/09/08 07:36:01 $ $Author: jpo $ $Id: eval_stack.h,v 5.2 1995/09/08 07:36:01 jpo Exp $ $Locker: $ $Log: eval_stack.h,v $ Revision 5.2 1995/09/08 07:36:01 jpo const * Revision 5.1 93/03/14 16:50:52 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:02 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:40:53 greyhelm * Added RCS headers - Karl Hagen * */ /* * eval_stack.h */ #define STACK_SIZE 150 /* Expression stack size */ typedef struct _EvalStack { int type; union _u_es { double u_es_value; char u_es_character; const char *u_es_text; Sector u_es_sector; } u_es; } EVALSTACK, *EvalStack; #define e_value u_es.u_es_value #define e_character u_es.u_es_character #define e_text u_es.u_es_text #define e_sector u_es.u_es_sector typedef struct _NukeData { int type; Stockp stockpile; } NUKEDATA, *NukeData; xemp5.1-beta/lib/parse/expr.c100444 12266 2116 110122 6023771305 14473 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/parse/RCS/expr.c,v 5.2 1995/09/08 07:36:07 jpo Exp $ $Date: 1995/09/08 07:36:07 $ $Author: jpo $ $Id: expr.c,v 5.2 1995/09/08 07:36:07 jpo Exp $ $Locker: $ $Log: expr.c,v $ Revision 5.2 1995/09/08 07:36:07 jpo removed # line * Revision 5.1 93/03/14 16:50:37 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:02 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:40:53 greyhelm * Added RCS headers - Karl Hagen * */ /* LLgen generated code from source expr.g */ /* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/parse/RCS/expr.c,v 5.2 1995/09/08 07:36:07 jpo Exp $ */ #ifdef LL_DEBUG #define LL_assert(x) if(!(x)) LL_badassertion("x",__FILE__,__LINE__) #else #define LL_assert(x) /* nothing */ #endif extern int LLsymb; #define LL_SAFE(x) /* Nothing */ #define LL_SSCANDONE(x) if (LLsymb != x) LLerror(x); else #define LL_SCANDONE(x) if (LLsymb != x) LLerror(x); else #define LL_NOSCANDONE(x) LLscan(x) #ifdef LL_FASTER #define LLscan(x) if ((LLsymb = LL_LEXI()) != x) LLerror(x); else #endif # include "Lpars.h" extern unsigned int LLscnt[]; extern unsigned int LLtcnt[]; extern int LLcsymb; #define LLsdecr(d) {LL_assert(LLscnt[d] > 0); LLscnt[d]--;} #define LLtdecr(d) {LL_assert(LLtcnt[d] > 0); LLtcnt[d]--;} #define LLsincr(d) LLscnt[d]++ #define LLtincr(d) LLtcnt[d]++ #define LL_LEXI NextToken #include #include #include "parser.h" #include "symtab.h" #include "token.h" #include "main.h" #include "stack.h" static Stack expr_result; Stack ParseExpression(str) const char *str; { Strings strings; extern Strings InitStrings(); parse_error = False; strings = InitStrings(); AddString(strings, str); LexInitStrings(strings); LLParseExpression(); FreeStrings(strings); if (parse_error == True) { DestroyExpression(&expr_result); DisplayParseErrors(); } return (Stack) expr_result; } void DestroyExpression(expr) Stack *expr; { Stack ptr, next; ptr = (Stack) *expr; while (ptr != NULL) { if (ptr->type == S_PUSH && ptr->p_type == T_STRING) dofree(ptr->p_text); next = ptr->next; dofree((char *) ptr); ptr = next; } *expr = NULL; } static void NewEntry(type, modifier) int type, modifier; { Stack new = (Stack) doalloc(sizeof(STACK)); if (expr_result == NULL) { expr_result = (Stack) doalloc(sizeof(STACK)); expr_result->s_tail = expr_result; expr_result->type = S_HEAD; } new->type = type; new->next = NULL; expr_result->s_tail->next = new; expr_result->s_tail = new; } static void AddPush(type, mod) int type, mod; { NewEntry(S_PUSH); expr_result->s_tail->p_type = type; expr_result->s_tail->p_modifier = mod; switch (type) { case T_NUMERIC: expr_result->s_tail->p_constant = current_token.t_constant; break; case T_CHARACTER: expr_result->s_tail->p_character = current_token.t_character; break; case T_STRING: expr_result->s_tail->p_text = current_token.t_text; break; case T_TOKEN: expr_result->s_tail->p_token = current_token.value; } } static void AddCalc(operator, type) int operator, type; { NewEntry(S_CALC); expr_result->s_tail->c_calctype = type; expr_result->s_tail->c_operator = operator; } static void AddSubExpr(type, old_modifier, new_modifier) int type, old_modifier, new_modifier; { NewEntry(type); expr_result->s_tail->e_old_modifier = old_modifier; expr_result->s_tail->e_new_modifier = new_modifier; } static char *ModifierName(mod) int mod; { switch (mod) { case MP_RESO: return "resource"; case MP_THRES: return "threshold"; case MP_SSECT: case MP_SECT: return "sector"; case MP_SHIP: return "ship"; case MP_LAND: return "land"; case MP_PLANE: return "plane"; case MP_NUKE: return "nuke"; default: return "Pippi Langkous"; } } static char *TypeName(type) int type; { switch(type) { case T_NONE: return "none"; case T_NUMERIC: return "numeric"; case T_BOOLEAN: return "boolean"; case T_CHARACTER: return "character"; case T_STRING: return "string"; case T_SECTOR: return "sector"; case T_PLAGUE: return "plague"; default: return "unknown"; } } void CheckType(type, desired, error_code, argument) int *type, desired; { if (*type & desired) return; if (*type != T_NONE) { switch(error_code) { case E_EVAL: ParseError( "Expression type must be numeric or boolean."); break; case E_OR_TYPE: ParseError("Argument to \"OR\" must be boolean."); break; case E_AND_TYPE: ParseError("Argument to \"AND\" must be boolean."); break; case E_LHS: ParseError("Type left of %s must be numerical.", TokenName(argument)); break; case E_RHS: ParseError("Type right of %s must be numerical.", TokenName(argument)); break; case E_ARG: ParseError("Incorrect argument type \"%s\" to \"%s\".", TypeName(*type), TokenName(argument)); break; case E_MOD: ParseError("Expression type to \"%s(...)\" must be boolean or numeric.", ModifierName(argument)); break; case E_SECA1: ParseError( "First argument to sector must be numerical."); break; case E_SECA2: ParseError( "Second argument to sector must be numerical."); break; default: ParseError("Unexpected parser error type %d.", error_code); } } *type = (desired == T_EVALUATE) ? T_NUMERIC : desired; } static void CheckComparison(type1, type2, operator) int type1, type2; int operator; { if (type1 != type2) ParseError("Type mismatch to operator \"%s\".", TokenName(operator)); else if (operator == MATCHES && type1 != T_STRING) ParseError("Arguments to the \"%s\" operator must be of type string.", TokenName(MATCHES)); else if ((type1 & T_EVALUATE) == 0 && operator != EQUALS && operator != UNEQUALS) ParseError("Only \"%s\" and \"%s\" are allowed on type \"%s\".", TokenName(EQUALS), TokenName(UNEQUALS), TypeName(type1)); } static void CheckModChange(old_mod, new_mod) int old_mod, new_mod; { if (old_mod == MP_SSECT) old_mod = MP_SECT; switch (new_mod) { case MP_RESO: case MP_THRES: if (old_mod == MP_SECT) return; break; case MP_SECT: if (old_mod != MP_SECT) return; break; case MP_NUKE: case MP_SHIP: if (old_mod == MP_SECT || old_mod == MP_PLANE || old_mod == MP_LAND) return; break; case MP_LAND: if (old_mod == MP_SECT || old_mod == MP_PLANE || old_mod == MP_SHIP) return; break; case MP_PLANE: if (old_mod == MP_SECT || old_mod == MP_SHIP || old_mod == MP_LAND) return; break; } ParseError("A \"%s(...)\" within a \"%s(...)\" expression makes no sense.", ModifierName(new_mod), ModifierName(old_mod)); } static void CheckModifier(mod, symtab) int mod; Symtab symtab; { char *token_name; if (mod == MP_SSECT) mod = MP_SECT; if ((mod & symtab->allowed_modifiers) == 0) { token_name = TokenName(symtab->token); ParseError("\"%s\" is an invalid specification for %s(%s).", token_name, ModifierName(mod), token_name); } } #if defined(DUMP) DumpExpression(st) Stack st; { if (st == NULL) return; if (st->type == S_CALC) printf (" calc(%s, %s)", TokenName(st->c_operator), TypeName(st->c_calctype)); else if (st->type == S_PUSH) { printf (" push["); switch (st->p_type) { case T_NUMERIC: printf ("%.2f", st->p_constant); break; case T_CHARACTER: printf ("'%c'", st->p_character); break; case T_STRING: printf ("\"%s\"", st->p_text); break; case T_TOKEN: if (st->p_modifier != MP_NONE) printf ("%s.%s", ModifierName(st->p_modifier), TokenName(st->p_token)); else printf ("%s", TokenName(st->p_token)); break; default: printf ("invalid type: %d", st->p_type); } printf("]"); } else if (st->type == S_SUBEXPRSTART) printf ("A<%s>(", ModifierName(st->p_modifier)); else if (st->type == S_SUBEXPREND) printf (")"); DumpExpression(st->next); } #endif L0_parse_single_expression ( ) { int type; expr_result = NULL; L2_expression( &type, MP_SSECT); { CheckType(&type, T_EVALUATE, E_EVAL, 0); } } L3_parse_expression ( result) Stack *result; { int type; expr_result = NULL; LLread(); L2_expression( &type, MP_SSECT); { *result = expr_result; } { CheckType(&type, T_EVALUATE, E_EVAL, 0); } } L4_parse_type_expression ( result,type) Stack *result; int *type; { expr_result = NULL; LLread(); L2_expression( &type, MP_SSECT); { *result = expr_result; } } L5_numeric_expression ( result,function) Stack *result; int function; { int type; expr_result = NULL; L_2: ; switch(LLcsymb) { case /* CONSTANT */ 1 : ; case /* CHARACTER */ 2 : ; case /* STRING */ 3 : ; case /* MINUS */ 12 : ; case /* BRACKET_OPEN */ 21 : ; case /* SQUARE_BRACKET_OPEN */ 23 : ; case /* NOT */ 29 : ; case /* TRUE */ 30 : ; case /* FALSE */ 31 : ; case /* POPULATION */ 32 : ; case /* ROUND_FUNC */ 33 : ; case /* FLOOR_FUNC */ 34 : ; case /* CEIL_FUNC */ 35 : ; case /* THRESHOLD_MOD */ 36 : ; case /* RESOURCE_MOD */ 37 : ; case /* SECTOR_MOD */ 38 : ; case /* SHIP_MOD */ 39 : ; case /* PLANE_MOD */ 40 : ; case /* NUKE_MOD */ 41 : ; case /* URANIUM */ 42 : ; case /* FOOD */ 43 : ; case /* DUST */ 44 : ; case /* OIL */ 45 : ; case /* IRON */ 46 : ; case /* UW */ 47 : ; case /* GUNS */ 48 : ; case /* BARS */ 49 : ; case /* PETROL */ 50 : ; case /* LCMS */ 51 : ; case /* HCMS */ 52 : ; case /* SHELLS */ 53 : ; case /* RADS */ 54 : ; case /* CURRENT */ 88 : ; case /* WAREHOUSE */ 89 : ; case /* BAD_SECTOR */ 90 : ; case /* XLOC */ 91 : ; case /* YLOC */ 92 : ; case /* OWNER */ 93 : ; case /* DESIGNATION */ 94 : ; case /* NEW_DESIG */ 95 : ; case /* EFFICIENCY */ 96 : ; case /* WORK */ 97 : ; case /* AVAILABLE */ 98 : ; case /* MOBILITY */ 99 : ; case /* CIVILIANS */ 100 : ; case /* MILITARY */ 101 : ; case /* PLANES */ 102 : ; case /* SHIPS */ 103 : ; case /* NUKES */ 104 : ; case /* OCCUPIED */ 105 : ; case /* OWNED */ 106 : ; case /* COAST */ 107 : ; case /* FOOD_USED */ 108 : ; case /* STARVATION */ 109 : ; case /* MINES */ 110 : ; case /* HAS_PLAN */ 111 : ; case /* IS_ACTIVE */ 112 : ; case /* PLAGUE */ 113 : ; case /* PLAGUE_STAGE */ 114 : ; case /* HAPPY */ 115 : ; case /* HAPPY_STATE */ 116 : ; case /* HAPPY_LOYAL */ 117 : ; case /* HAPPY_UNREST */ 118 : ; case /* HAPPY_REVOL */ 119 : ; case /* HAPPY_TERROR */ 120 : ; case /* HAPPY_GUERRE */ 121 : ; case /* PLAGUE_HEALTHY */ 122 : ; case /* PLAGUE_INFECTED */ 123 : ; case /* PLAGUE_DYING */ 124 : ; case /* SPE */ 125 : ; case /* EPU */ 126 : ; case /* IRATE */ 127 : ; case /* CTRATE */ 128 : ; case /* UTRATE */ 129 : ; case /* AMCRATE */ 130 : ; case /* RMCRATE */ 131 : ; case /* FRATE */ 132 : ; case /* HRATE */ 133 : ; case /* CBRATE */ 134 : ; case /* UBRATE */ 135 : ; case /* ERATE */ 136 : ; case /* BERATE */ 137 : ; case /* NAME */ 138 : ; case /* TYPE */ 139 : ; case /* TECH */ 140 : ; case /* NUMBER */ 141 : ; case /* FLEET */ 142 : ; case /* RADAR */ 143 : ; case /* SONAR */ 144 : ; case /* MOVES */ 145 : ; case /* WING */ 146 : ; case /* RANGE */ 147 : ; case /* MAXRANGE */ 148 : ; case /* ATTACK */ 149 : ; case /* DEFENSE */ 150 : ; case /* HARDEN */ 151 : ; case /* LOAD */ 152 : ; case /* STOCKPILE */ 153 : ; case /* TOKEN_EXPRESSION */ 154 : ; case /* TOKEN_NAME */ 155 : ; case /* TOKEN_SECTOR */ 156 : ; case /* LAND_MOD */ 200: ; case /* LANDS */ 201 : ; LLsdecr(0); L6_simple_expression( &type, MP_SSECT); { CheckType(&type, T_NUMERIC, E_ARG, function); } { *result = expr_result; } break; case /* TOKEN_NUMERIC_EXPR */ 158 : ; L_3: ; LLsdecr(0); LL_SSCANDONE(TOKEN_NUMERIC_EXPR); LLread(); break; default: if (LLskip()) goto L_2; goto L_3; } } L7_sector_expression ( result) Stack *result; { expr_result = NULL; LLsincr(1); L8_sector_specification( ); { *result = expr_result; } } L9_parse_factor ( result) Stack *result; { int type; expr_result = NULL; LLsincr(2); L10_factor( &type, MP_SSECT); { *result = expr_result; } } L2_expression ( type,mod) int *type, mod; { LLtincr(28); L11_and_list( type, mod); L_1 : {switch(LLcsymb) { case /* EOFILE */ 0 : ; case /* BRACKET_CLOSE */ 22 : ; case /* FOOD */ 43 : ; case /* DUST */ 44 : ; case /* OIL */ 45 : ; case /* IRON */ 46 : ; case /* UW */ 47 : ; case /* GUNS */ 48 : ; case /* BARS */ 49 : ; case /* PETROL */ 50 : ; case /* LCMS */ 51 : ; case /* HCMS */ 52 : ; case /* SHELLS */ 53 : ; case /* RADS */ 54 : ; case /* BEGIN */ 55 : ; case /* END */ 56 : ; case /* REPEAT */ 57 : ; case /* UNTIL */ 58 : ; case /* WHILE */ 59 : ; case /* IF */ 61 : ; case /* ELSE */ 63 : ; case /* LOOP */ 64 : ; case /* MOVE */ 65 : ; case /* WHERE */ 67 : ; case /* VIA */ 68 : ; case /* TO */ 69 : ; case /* SET_DESIGNATION */ 70 : ; case /* DEMOBILIZE */ 71 : ; case /* ENLIST */ 73 : ; case /* CONVERT */ 74 : ; case /* SHOOT */ 75 : ; case /* TERRITORY */ 76 : ; case /* SET_DISTRIBUTE */ 77 : ; case /* SET_THRESHOLD */ 78 : ; case /* SET_CUTOFF */ 79 : ; case /* SET_DELIVER */ 80 : ; case /* ON_FAIL */ 81 : ; case /* BREAK */ 82 : ; case /* CONTINUE */ 83 : ; case /* ABORT */ 84 : ; case /* STOP */ 85 : ; case /* PRINT */ 86 : ; case /* SEND */ 87 : ; case /* CIVILIANS */ 100 : ; case /* MILITARY */ 101 : ; case /* TOKEN_STATEMENT */ 157 : ; case /* TOKEN_COMMODITY */ 159 : ; LLtdecr(28); break; default:{int LL_1=LLnext(284); ;if (!LL_1) { LLtdecr(28); break; } else if (LL_1 & 1) goto L_1;} case /* OR */ 28 : ; LLtdecr(28); LLsincr(3); { CheckType(type, T_EVALUATE, E_OR_TYPE, 0); } { AddCalc(LEFT_OR, T_BOOLEAN); } LLsdecr(3); LLtincr(28); for (;;) { LL_SAFE(OR); LLread(); L11_and_list( type, mod); { CheckType(type, T_EVALUATE, E_OR_TYPE, 0); } { AddCalc(RIGHT_OR, T_BOOLEAN); } { *type = T_BOOLEAN; } L_2 : {switch(LLcsymb) { case /* EOFILE */ 0 : ; case /* BRACKET_CLOSE */ 22 : ; case /* FOOD */ 43 : ; case /* DUST */ 44 : ; case /* OIL */ 45 : ; case /* IRON */ 46 : ; case /* UW */ 47 : ; case /* GUNS */ 48 : ; case /* BARS */ 49 : ; case /* PETROL */ 50 : ; case /* LCMS */ 51 : ; case /* HCMS */ 52 : ; case /* SHELLS */ 53 : ; case /* RADS */ 54 : ; case /* BEGIN */ 55 : ; case /* END */ 56 : ; case /* REPEAT */ 57 : ; case /* UNTIL */ 58 : ; case /* WHILE */ 59 : ; case /* IF */ 61 : ; case /* ELSE */ 63 : ; case /* LOOP */ 64 : ; case /* MOVE */ 65 : ; case /* WHERE */ 67 : ; case /* VIA */ 68 : ; case /* TO */ 69 : ; case /* SET_DESIGNATION */ 70 : ; case /* DEMOBILIZE */ 71 : ; case /* ENLIST */ 73 : ; case /* CONVERT */ 74 : ; case /* SHOOT */ 75 : ; case /* TERRITORY */ 76 : ; case /* SET_DISTRIBUTE */ 77 : ; case /* SET_THRESHOLD */ 78 : ; case /* SET_CUTOFF */ 79 : ; case /* SET_DELIVER */ 80 : ; case /* ON_FAIL */ 81 : ; case /* BREAK */ 82 : ; case /* CONTINUE */ 83 : ; case /* ABORT */ 84 : ; case /* STOP */ 85 : ; case /* PRINT */ 86 : ; case /* SEND */ 87 : ; case /* CIVILIANS */ 100 : ; case /* MILITARY */ 101 : ; case /* TOKEN_STATEMENT */ 157 : ; case /* TOKEN_COMMODITY */ 159 : ; break; default:{int LL_2=LLnext(284); ;if (!LL_2) { break; } else if (LL_2 & 1) goto L_2;} case /* OR */ 28 : ; continue; } } LLtdecr(28); break; } } } } L11_and_list ( type,mod) int *type, mod; { LLtincr(27); L12_compare_list( type, mod); L_1 : {switch(LLcsymb) { case /* EOFILE */ 0 : ; case /* BRACKET_CLOSE */ 22 : ; case /* OR */ 28 : ; case /* FOOD */ 43 : ; case /* DUST */ 44 : ; case /* OIL */ 45 : ; case /* IRON */ 46 : ; case /* UW */ 47 : ; case /* GUNS */ 48 : ; case /* BARS */ 49 : ; case /* PETROL */ 50 : ; case /* LCMS */ 51 : ; case /* HCMS */ 52 : ; case /* SHELLS */ 53 : ; case /* RADS */ 54 : ; case /* BEGIN */ 55 : ; case /* END */ 56 : ; case /* REPEAT */ 57 : ; case /* UNTIL */ 58 : ; case /* WHILE */ 59 : ; case /* IF */ 61 : ; case /* ELSE */ 63 : ; case /* LOOP */ 64 : ; case /* MOVE */ 65 : ; case /* WHERE */ 67 : ; case /* VIA */ 68 : ; case /* TO */ 69 : ; case /* SET_DESIGNATION */ 70 : ; case /* DEMOBILIZE */ 71 : ; case /* ENLIST */ 73 : ; case /* CONVERT */ 74 : ; case /* SHOOT */ 75 : ; case /* TERRITORY */ 76 : ; case /* SET_DISTRIBUTE */ 77 : ; case /* SET_THRESHOLD */ 78 : ; case /* SET_CUTOFF */ 79 : ; case /* SET_DELIVER */ 80 : ; case /* ON_FAIL */ 81 : ; case /* BREAK */ 82 : ; case /* CONTINUE */ 83 : ; case /* ABORT */ 84 : ; case /* STOP */ 85 : ; case /* PRINT */ 86 : ; case /* SEND */ 87 : ; case /* CIVILIANS */ 100 : ; case /* MILITARY */ 101 : ; case /* TOKEN_STATEMENT */ 157 : ; case /* TOKEN_COMMODITY */ 159 : ; LLtdecr(27); break; default:{int LL_3=LLnext(283); ;if (!LL_3) { LLtdecr(27); break; } else if (LL_3 & 1) goto L_1;} case /* AND */ 27 : ; LLtdecr(27); LLsincr(4); { CheckType(type, T_EVALUATE, E_AND_TYPE, 0); } { AddCalc(LEFT_AND, T_BOOLEAN); } LLsdecr(4); LLtincr(27); for (;;) { LL_SAFE(AND); LLread(); L12_compare_list( type, mod); { CheckType(type, T_EVALUATE, E_AND_TYPE, 0); } { AddCalc(RIGHT_AND, T_BOOLEAN); } { *type = T_BOOLEAN; } L_2 : {switch(LLcsymb) { case /* EOFILE */ 0 : ; case /* BRACKET_CLOSE */ 22 : ; case /* OR */ 28 : ; case /* FOOD */ 43 : ; case /* DUST */ 44 : ; case /* OIL */ 45 : ; case /* IRON */ 46 : ; case /* UW */ 47 : ; case /* GUNS */ 48 : ; case /* BARS */ 49 : ; case /* PETROL */ 50 : ; case /* LCMS */ 51 : ; case /* HCMS */ 52 : ; case /* SHELLS */ 53 : ; case /* RADS */ 54 : ; case /* BEGIN */ 55 : ; case /* END */ 56 : ; case /* REPEAT */ 57 : ; case /* UNTIL */ 58 : ; case /* WHILE */ 59 : ; case /* IF */ 61 : ; case /* ELSE */ 63 : ; case /* LOOP */ 64 : ; case /* MOVE */ 65 : ; case /* WHERE */ 67 : ; case /* VIA */ 68 : ; case /* TO */ 69 : ; case /* SET_DESIGNATION */ 70 : ; case /* DEMOBILIZE */ 71 : ; case /* ENLIST */ 73 : ; case /* CONVERT */ 74 : ; case /* SHOOT */ 75 : ; case /* TERRITORY */ 76 : ; case /* SET_DISTRIBUTE */ 77 : ; case /* SET_THRESHOLD */ 78 : ; case /* SET_CUTOFF */ 79 : ; case /* SET_DELIVER */ 80 : ; case /* ON_FAIL */ 81 : ; case /* BREAK */ 82 : ; case /* CONTINUE */ 83 : ; case /* ABORT */ 84 : ; case /* STOP */ 85 : ; case /* PRINT */ 86 : ; case /* SEND */ 87 : ; case /* CIVILIANS */ 100 : ; case /* MILITARY */ 101 : ; case /* TOKEN_STATEMENT */ 157 : ; case /* TOKEN_COMMODITY */ 159 : ; break; default:{int LL_4=LLnext(283); ;if (!LL_4) { break; } else if (LL_4 & 1) goto L_2;} case /* AND */ 27 : ; continue; } } LLtdecr(27); break; } } } } L12_compare_list ( type,mod) int *type, mod; { int operator, type2; LLsincr(5); L6_simple_expression( type, mod); L_1 : {switch(LLcsymb) { case /* EOFILE */ 0 : ; case /* BRACKET_CLOSE */ 22 : ; case /* AND */ 27 : ; case /* OR */ 28 : ; case /* FOOD */ 43 : ; case /* DUST */ 44 : ; case /* OIL */ 45 : ; case /* IRON */ 46 : ; case /* UW */ 47 : ; case /* GUNS */ 48 : ; case /* BARS */ 49 : ; case /* PETROL */ 50 : ; case /* LCMS */ 51 : ; case /* HCMS */ 52 : ; case /* SHELLS */ 53 : ; case /* RADS */ 54 : ; case /* BEGIN */ 55 : ; case /* END */ 56 : ; case /* REPEAT */ 57 : ; case /* UNTIL */ 58 : ; case /* WHILE */ 59 : ; case /* IF */ 61 : ; case /* ELSE */ 63 : ; case /* LOOP */ 64 : ; case /* MOVE */ 65 : ; case /* WHERE */ 67 : ; case /* VIA */ 68 : ; case /* TO */ 69 : ; case /* SET_DESIGNATION */ 70 : ; case /* DEMOBILIZE */ 71 : ; case /* ENLIST */ 73 : ; case /* CONVERT */ 74 : ; case /* SHOOT */ 75 : ; case /* TERRITORY */ 76 : ; case /* SET_DISTRIBUTE */ 77 : ; case /* SET_THRESHOLD */ 78 : ; case /* SET_CUTOFF */ 79 : ; case /* SET_DELIVER */ 80 : ; case /* ON_FAIL */ 81 : ; case /* BREAK */ 82 : ; case /* CONTINUE */ 83 : ; case /* ABORT */ 84 : ; case /* STOP */ 85 : ; case /* PRINT */ 86 : ; case /* SEND */ 87 : ; case /* CIVILIANS */ 100 : ; case /* MILITARY */ 101 : ; case /* TOKEN_STATEMENT */ 157 : ; case /* TOKEN_COMMODITY */ 159 : ; LLsdecr(5); break; default:{int LL_5=LLnext(-105); ;if (!LL_5) { LLsdecr(5); break; } else if (LL_5 & 1) goto L_1;} case /* EQUALS */ 14 : ; case /* UNEQUALS */ 15 : ; case /* MATCHES */ 16 : ; case /* SMALLER */ 17 : ; case /* LARGER */ 18 : ; case /* SMALLER_EQ */ 19 : ; case /* LARGER_EQ */ 20 : ; LLsdecr(5); LLsincr(6); L13_compare_operator( &operator); LLread(); LLsdecr(6); L6_simple_expression( &type2, mod); { CheckComparison(*type, type2, operator); } { AddCalc(operator, type2); } { *type = T_BOOLEAN; } } } } L6_simple_expression ( type,mod) int *type, mod; { int operator; LLsincr(7); L14_term( type, mod); for (;;) { L_1 : {switch(LLcsymb) { case /* EOFILE */ 0 : ; case /* EQUALS */ 14 : ; case /* UNEQUALS */ 15 : ; case /* MATCHES */ 16 : ; case /* SMALLER */ 17 : ; case /* LARGER */ 18 : ; case /* SMALLER_EQ */ 19 : ; case /* LARGER_EQ */ 20 : ; case /* BRACKET_CLOSE */ 22 : ; case /* SQUARE_BRACKET_CLOSE */ 24 : ; case /* COMMA */ 25 : ; case /* AND */ 27 : ; case /* OR */ 28 : ; case /* FOOD */ 43 : ; case /* DUST */ 44 : ; case /* OIL */ 45 : ; case /* IRON */ 46 : ; case /* UW */ 47 : ; case /* GUNS */ 48 : ; case /* BARS */ 49 : ; case /* PETROL */ 50 : ; case /* LCMS */ 51 : ; case /* HCMS */ 52 : ; case /* SHELLS */ 53 : ; case /* RADS */ 54 : ; case /* BEGIN */ 55 : ; case /* END */ 56 : ; case /* REPEAT */ 57 : ; case /* UNTIL */ 58 : ; case /* WHILE */ 59 : ; case /* IF */ 61 : ; case /* ELSE */ 63 : ; case /* LOOP */ 64 : ; case /* MOVE */ 65 : ; case /* WHERE */ 67 : ; case /* VIA */ 68 : ; case /* TO */ 69 : ; case /* SET_DESIGNATION */ 70 : ; case /* DEMOBILIZE */ 71 : ; case /* NO_RESERVE */ 72 : ; case /* ENLIST */ 73 : ; case /* CONVERT */ 74 : ; case /* SHOOT */ 75 : ; case /* TERRITORY */ 76 : ; case /* SET_DISTRIBUTE */ 77 : ; case /* SET_THRESHOLD */ 78 : ; case /* SET_CUTOFF */ 79 : ; case /* SET_DELIVER */ 80 : ; case /* ON_FAIL */ 81 : ; case /* BREAK */ 82 : ; case /* CONTINUE */ 83 : ; case /* ABORT */ 84 : ; case /* STOP */ 85 : ; case /* PRINT */ 86 : ; case /* SEND */ 87 : ; case /* CIVILIANS */ 100 : ; case /* MILITARY */ 101 : ; case /* TOKEN_STATEMENT */ 157 : ; case /* TOKEN_COMMODITY */ 159 : ; break; default:{int LL_6=LLnext(-147); ;if (!LL_6) { break; } else if (LL_6 & 1) goto L_1;} case /* PLUS */ 11 : ; case /* MINUS */ 12 : ; LLsincr(8); L15_term_operator( &operator); { CheckType(type, T_NUMERIC, E_LHS, operator); } LLread(); LLsdecr(8); L14_term( type, mod); { CheckType(type, T_NUMERIC, E_RHS, operator); } { AddCalc(operator, *type); } continue; } } LLsdecr(7); break; } } L14_term ( type,mod) int *type, mod; { int operator; LLsincr(2); LLsincr(9); L10_factor( type, mod); for (;;) { L_1 : {switch(LLcsymb) { case /* EOFILE */ 0 : ; case /* PLUS */ 11 : ; case /* MINUS */ 12 : ; case /* EQUALS */ 14 : ; case /* UNEQUALS */ 15 : ; case /* MATCHES */ 16 : ; case /* SMALLER */ 17 : ; case /* LARGER */ 18 : ; case /* SMALLER_EQ */ 19 : ; case /* LARGER_EQ */ 20 : ; case /* BRACKET_CLOSE */ 22 : ; case /* SQUARE_BRACKET_CLOSE */ 24 : ; case /* COMMA */ 25 : ; case /* AND */ 27 : ; case /* OR */ 28 : ; case /* FOOD */ 43 : ; case /* DUST */ 44 : ; case /* OIL */ 45 : ; case /* IRON */ 46 : ; case /* UW */ 47 : ; case /* GUNS */ 48 : ; case /* BARS */ 49 : ; case /* PETROL */ 50 : ; case /* LCMS */ 51 : ; case /* HCMS */ 52 : ; case /* SHELLS */ 53 : ; case /* RADS */ 54 : ; case /* BEGIN */ 55 : ; case /* END */ 56 : ; case /* REPEAT */ 57 : ; case /* UNTIL */ 58 : ; case /* WHILE */ 59 : ; case /* IF */ 61 : ; case /* ELSE */ 63 : ; case /* LOOP */ 64 : ; case /* MOVE */ 65 : ; case /* WHERE */ 67 : ; case /* VIA */ 68 : ; case /* TO */ 69 : ; case /* SET_DESIGNATION */ 70 : ; case /* DEMOBILIZE */ 71 : ; case /* NO_RESERVE */ 72 : ; case /* ENLIST */ 73 : ; case /* CONVERT */ 74 : ; case /* SHOOT */ 75 : ; case /* TERRITORY */ 76 : ; case /* SET_DISTRIBUTE */ 77 : ; case /* SET_THRESHOLD */ 78 : ; case /* SET_CUTOFF */ 79 : ; case /* SET_DELIVER */ 80 : ; case /* ON_FAIL */ 81 : ; case /* BREAK */ 82 : ; case /* CONTINUE */ 83 : ; case /* ABORT */ 84 : ; case /* STOP */ 85 : ; case /* PRINT */ 86 : ; case /* SEND */ 87 : ; case /* CIVILIANS */ 100 : ; case /* MILITARY */ 101 : ; case /* TOKEN_STATEMENT */ 157 : ; case /* TOKEN_COMMODITY */ 159 : ; break; default:{int LL_7=LLnext(-189); ;if (!LL_7) { break; } else if (LL_7 & 1) goto L_1;} case /* TIMES */ 10 : ; case /* DIVIDE */ 13 : ; LLsincr(2); L16_factor_operator( &operator); { CheckType(type, T_NUMERIC, E_LHS, operator); } LLread(); L10_factor( type, mod); { CheckType(type, T_NUMERIC, E_RHS, operator); } { AddCalc(operator, *type); } continue; } } LLsdecr(9); break; } } L10_factor ( type,mod) int *type, mod; { L_2: ; switch(LLcsymb) { case /* BRACKET_OPEN */ 21 : ; LLsdecr(2); LLtincr(22); LL_SAFE(BRACKET_OPEN); LLread(); L2_expression( type, mod); LLtdecr(22); LL_SCANDONE(BRACKET_CLOSE); LLread(); break; case /* NOT */ 29 : ; LL_SAFE(NOT); LLread(); L10_factor( type, mod); { CheckType(type, T_EVALUATE, E_ARG, NOT); } { AddCalc(NOT, *type); } { *type = T_BOOLEAN; } break; case /* SQUARE_BRACKET_OPEN */ 23 : ; case /* CURRENT */ 88 : ; case /* WAREHOUSE */ 89 : ; case /* TOKEN_SECTOR */ 156 : ; LLsdecr(2); LLsincr(1); L8_sector_specification( ); { *type = T_SECTOR; } LLread(); break; case /* ROUND_FUNC */ 33 : ; LLsdecr(2); LLsincr(6); LLtincr(22); LL_SAFE(ROUND_FUNC); LL_NOSCANDONE(BRACKET_OPEN); LLread(); LLsdecr(6); L6_simple_expression( type, mod); LLtdecr(22); LL_SCANDONE(BRACKET_CLOSE); { CheckType(type, T_NUMERIC, E_ARG,ROUND_FUNC);} { AddCalc(ROUND_FUNC, T_NUMERIC); } LLread(); break; case /* FLOOR_FUNC */ 34 : ; LLsdecr(2); LLsincr(6); LLtincr(22); LL_SAFE(FLOOR_FUNC); LL_NOSCANDONE(BRACKET_OPEN); LLread(); LLsdecr(6); L6_simple_expression( type, mod); LLtdecr(22); LL_SCANDONE(BRACKET_CLOSE); { CheckType(type, T_NUMERIC, E_ARG,FLOOR_FUNC);} { AddCalc(FLOOR_FUNC, T_NUMERIC); } LLread(); break; case /* CEIL_FUNC */ 35 : ; LLsdecr(2); LLsincr(6); LLtincr(22); LL_SAFE(CEIL_FUNC); LL_NOSCANDONE(BRACKET_OPEN); LLread(); LLsdecr(6); L6_simple_expression( type, mod); LLtdecr(22); LL_SCANDONE(BRACKET_CLOSE); { CheckType(type, T_NUMERIC, E_ARG, CEIL_FUNC);} { AddCalc(CEIL_FUNC, T_NUMERIC); } LLread(); break; case /* THRESHOLD_MOD */ 36 : ; LLsdecr(2); LLsincr(10); LLtincr(22); LL_SAFE(THRESHOLD_MOD); { CheckModChange(mod, MP_THRES); } LL_NOSCANDONE(BRACKET_OPEN); LLread(); L17_token_name( type, MP_THRES); LLtdecr(22); LL_NOSCANDONE(BRACKET_CLOSE); LLread(); break; case /* RESOURCE_MOD */ 37 : ; LLsdecr(2); LLsincr(10); LLtincr(22); LL_SAFE(RESOURCE_MOD); { CheckModChange(mod, MP_RESO); } LL_NOSCANDONE(BRACKET_OPEN); LLread(); L17_token_name( type, MP_RESO); LLtdecr(22); LL_NOSCANDONE(BRACKET_CLOSE); LLread(); break; case /* SECTOR_MOD */ 38 : ; LLsdecr(2); LLsincr(11); LLtincr(22); LL_SAFE(SECTOR_MOD); { CheckModChange(mod, MP_SECT); } { AddSubExpr(S_SUBEXPRSTART, mod, MP_SECT); } LL_NOSCANDONE(BRACKET_OPEN); LLread(); LLsdecr(11); L2_expression( type, MP_SECT); LLtdecr(22); LL_SCANDONE(BRACKET_CLOSE); { CheckType(type, T_EVALUATE, E_MOD, MP_SECT); } { AddSubExpr(S_SUBEXPREND, mod, MP_SECT); } LLread(); break; case /* SHIP_MOD */ 39 : ; LLsdecr(2); LLsincr(11); LLtincr(22); LL_SAFE(SHIP_MOD); { CheckModChange(mod, MP_SHIP); } { AddSubExpr(S_SUBEXPRSTART, mod, MP_SHIP); } LL_NOSCANDONE(BRACKET_OPEN); LLread(); LLsdecr(11); L2_expression( type, MP_SHIP); LLtdecr(22); LL_SCANDONE(BRACKET_CLOSE); { CheckType(type, T_EVALUATE, E_MOD, MP_SHIP); } { *type = T_NUMERIC; } { AddSubExpr(S_SUBEXPREND, mod, MP_SHIP); } LLread(); break; case /* PLANE_MOD */ 40 : ; LLsdecr(2); LLsincr(11); LLtincr(22); LL_SAFE(PLANE_MOD); { CheckModChange(mod, MP_PLANE); } { AddSubExpr(S_SUBEXPRSTART, mod, MP_PLANE); } LL_NOSCANDONE(BRACKET_OPEN); LLread(); LLsdecr(11); L2_expression( type, MP_PLANE); LLtdecr(22); LL_SCANDONE(BRACKET_CLOSE); { CheckType(type, T_EVALUATE, E_MOD, MP_PLANE);} { *type = T_NUMERIC; } { AddSubExpr(S_SUBEXPREND, mod, MP_PLANE); } LLread(); break; case /* LAND_MOD */ 200 : ; LLsdecr(2); LLsincr(11); LLtincr(22); LL_SAFE(LAND_MOD); { CheckModChange(mod, MP_LAND); } { AddSubExpr(S_SUBEXPRSTART, mod, MP_LAND); } LL_NOSCANDONE(BRACKET_OPEN); LLread(); LLsdecr(11); L2_expression( type, MP_LAND); LLtdecr(22); LL_SCANDONE(BRACKET_CLOSE); { CheckType(type, T_EVALUATE, E_MOD, MP_LAND);} { *type = T_NUMERIC; } { AddSubExpr(S_SUBEXPREND, mod, MP_LAND); } LLread(); break; case /* NUKE_MOD */ 41 : ; LLsdecr(2); LLsincr(11); LLtincr(22); LL_SAFE(NUKE_MOD); { CheckModChange(mod, MP_NUKE); } { AddSubExpr(S_SUBEXPRSTART, mod, MP_NUKE); } LL_NOSCANDONE(BRACKET_OPEN); LLread(); LLsdecr(11); L2_expression( type, MP_NUKE); LLtdecr(22); LL_SCANDONE(BRACKET_CLOSE); { CheckType(type, T_EVALUATE, E_MOD, MP_NUKE); } { *type = T_NUMERIC; } { AddSubExpr(S_SUBEXPREND, mod, MP_NUKE); } LLread(); break; case /* MINUS */ 12 : ; LL_SAFE(MINUS); LLread(); L10_factor( type, mod); { CheckType(type, T_NUMERIC, E_ARG, MINUS); } { AddCalc(NEGATE, T_NUMERIC); } break; case /* POPULATION */ 32 : ; case /* URANIUM */ 42 : ; case /* FOOD */ 43 : ; case /* DUST */ 44 : ; case /* OIL */ 45 : ; case /* IRON */ 46 : ; case /* UW */ 47 : ; case /* GUNS */ 48 : ; case /* BARS */ 49 : ; case /* PETROL */ 50 : ; case /* LCMS */ 51 : ; case /* HCMS */ 52 : ; case /* SHELLS */ 53 : ; case /* RADS */ 54 : ; case /* BAD_SECTOR */ 90 : ; case /* XLOC */ 91 : ; case /* YLOC */ 92 : ; case /* OWNER */ 93 : ; case /* DESIGNATION */ 94 : ; case /* NEW_DESIG */ 95 : ; case /* EFFICIENCY */ 96 : ; case /* WORK */ 97 : ; case /* AVAILABLE */ 98 : ; case /* MOBILITY */ 99 : ; case /* CIVILIANS */ 100 : ; case /* MILITARY */ 101 : ; case /* PLANES */ 102 : ; case /* SHIPS */ 103 : ; case /* NUKES */ 104 : ; case /* OCCUPIED */ 105 : ; case /* OWNED */ 106 : ; case /* COAST */ 107 : ; case /* FOOD_USED */ 108 : ; case /* STARVATION */ 109 : ; case /* MINES */ 110 : ; case /* HAS_PLAN */ 111 : ; case /* IS_ACTIVE */ 112 : ; case /* PLAGUE */ 113 : ; case /* PLAGUE_STAGE */ 114 : ; case /* HAPPY */ 115 : ; case /* HAPPY_STATE */ 116 : ; case /* HAPPY_LOYAL */ 117 : ; case /* HAPPY_UNREST */ 118 : ; case /* HAPPY_REVOL */ 119 : ; case /* HAPPY_TERROR */ 120 : ; case /* HAPPY_GUERRE */ 121 : ; case /* PLAGUE_HEALTHY */ 122 : ; case /* PLAGUE_INFECTED */ 123 : ; case /* PLAGUE_DYING */ 124 : ; case /* NAME */ 138 : ; case /* TYPE */ 139 : ; case /* TECH */ 140 : ; case /* NUMBER */ 141 : ; case /* FLEET */ 142 : ; case /* RADAR */ 143 : ; case /* SONAR */ 144 : ; case /* MOVES */ 145 : ; case /* WING */ 146 : ; case /* RANGE */ 147 : ; case /* MAXRANGE */ 148 : ; case /* ATTACK */ 149 : ; case /* DEFENSE */ 150 : ; case /* HARDEN */ 151 : ; case /* LOAD */ 152 : ; case /* STOCKPILE */ 153 : ; case /* TOKEN_NAME */ 155 : ; case /* LANDS */ 201 : ; LLsdecr(2); LLsincr(10); L17_token_name( type, mod); LLread(); break; case /* SPE */ 125 : ; case /* EPU */ 126 : ; case /* IRATE */ 127 : ; case /* CTRATE */ 128 : ; case /* UTRATE */ 129 : ; case /* AMCRATE */ 130 : ; case /* RMCRATE */ 131 : ; case /* FRATE */ 132 : ; case /* HRATE */ 133 : ; case /* CBRATE */ 134 : ; case /* UBRATE */ 135 : ; case /* ERATE */ 136 : ; case /* BERATE */ 137 : ; LLsdecr(2); L18_empire_constant( type); LLread(); break; case /* CONSTANT */ 1 : ; case /* CHARACTER */ 2 : ; case /* STRING */ 3 : ; case /* TRUE */ 30 : ; case /* FALSE */ 31 : ; LLsdecr(2); L19_factor_constant( type); LLread(); break; case /* TOKEN_EXPRESSION */ 154 : ; L_3: ; LLsdecr(2); LL_SSCANDONE(TOKEN_EXPRESSION); LLread(); break; default: if (LLskip()) goto L_2; goto L_3; } } L19_factor_constant ( type) int *type; { switch(LLcsymb) { default: LL_SAFE(TRUE); { *type = T_BOOLEAN; } { current_token.t_constant = D1; } { AddPush(T_NUMERIC, MP_NONE); } break; case /* FALSE */ 31 : ; LL_SAFE(FALSE); { *type = T_BOOLEAN; } { current_token.t_constant = D0; } { AddPush(T_NUMERIC, MP_NONE); } break; case /* CHARACTER */ 2 : ; LL_SAFE(CHARACTER); { *type = T_CHARACTER; } { AddPush(T_CHARACTER, MP_NONE); } break; case /* STRING */ 3 : ; LL_SAFE(STRING); { *type = T_STRING; } { AddPush(T_STRING, MP_NONE); } break; case /* CONSTANT */ 1 : ; LL_SAFE(CONSTANT); { *type = T_NUMERIC; } { AddPush(T_NUMERIC, MP_NONE); } break; } } L17_token_name ( type,mod) int *type, mod; { L_2: ; switch(LLcsymb) { case /* POPULATION */ 32 : ; case /* URANIUM */ 42 : ; case /* FOOD */ 43 : ; case /* DUST */ 44 : ; case /* OIL */ 45 : ; case /* IRON */ 46 : ; case /* UW */ 47 : ; case /* GUNS */ 48 : ; case /* BARS */ 49 : ; case /* PETROL */ 50 : ; case /* LCMS */ 51 : ; case /* HCMS */ 52 : ; case /* SHELLS */ 53 : ; case /* RADS */ 54 : ; case /* BAD_SECTOR */ 90 : ; case /* XLOC */ 91 : ; case /* YLOC */ 92 : ; case /* OWNER */ 93 : ; case /* DESIGNATION */ 94 : ; case /* NEW_DESIG */ 95 : ; case /* EFFICIENCY */ 96 : ; case /* WORK */ 97 : ; case /* AVAILABLE */ 98 : ; case /* MOBILITY */ 99 : ; case /* CIVILIANS */ 100 : ; case /* MILITARY */ 101 : ; case /* PLANES */ 102 : ; case /* SHIPS */ 103 : ; case /* NUKES */ 104 : ; case /* OCCUPIED */ 105 : ; case /* OWNED */ 106 : ; case /* COAST */ 107 : ; case /* FOOD_USED */ 108 : ; case /* STARVATION */ 109 : ; case /* MINES */ 110 : ; case /* HAS_PLAN */ 111 : ; case /* IS_ACTIVE */ 112 : ; case /* PLAGUE */ 113 : ; case /* PLAGUE_STAGE */ 114 : ; case /* HAPPY */ 115 : ; case /* HAPPY_STATE */ 116 : ; case /* HAPPY_LOYAL */ 117 : ; case /* HAPPY_UNREST */ 118 : ; case /* HAPPY_REVOL */ 119 : ; case /* HAPPY_TERROR */ 120 : ; case /* HAPPY_GUERRE */ 121 : ; case /* PLAGUE_HEALTHY */ 122 : ; case /* PLAGUE_INFECTED */ 123 : ; case /* PLAGUE_DYING */ 124 : ; case /* NAME */ 138 : ; case /* TYPE */ 139 : ; case /* TECH */ 140 : ; case /* NUMBER */ 141 : ; case /* FLEET */ 142 : ; case /* RADAR */ 143 : ; case /* SONAR */ 144 : ; case /* MOVES */ 145 : ; case /* WING */ 146 : ; case /* RANGE */ 147 : ; case /* MAXRANGE */ 148 : ; case /* ATTACK */ 149 : ; case /* DEFENSE */ 150 : ; case /* HARDEN */ 151 : ; case /* LOAD */ 152 : ; case /* STOCKPILE */ 153 : ; case /* LANDS */ 201 : ; LLsdecr(10); { CheckModifier(mod, current_token.symtab); } { *type = current_token.symtab->type; } { AddPush(T_TOKEN, mod); } break; case /* TOKEN_NAME */ 155 : ; L_3: ; LLsdecr(10); LL_SSCANDONE(TOKEN_NAME); { *type = T_NONE; } { AddPush(T_TOKEN, MP_NONE); } break; default: if (LLskip()) goto L_2; goto L_3; } } L18_empire_constant ( type) int *type; { { *type = current_token.symtab->type; } { AddPush(T_TOKEN, MP_NONE); } } L8_sector_specification ( ) { int type; L_2: ; switch(LLcsymb) { case /* WAREHOUSE */ 89 : ; LLsdecr(1); LL_SAFE(WAREHOUSE); { AddPush(T_TOKEN, MP_SECT); } break; case /* CURRENT */ 88 : ; LLsdecr(1); LL_SAFE(CURRENT); { AddPush(T_TOKEN, MP_SECT); } break; case /* SQUARE_BRACKET_OPEN */ 23 : ; LLsdecr(1); LLtincr(25); LLsincr(6); LLtincr(24); LL_SAFE(SQUARE_BRACKET_OPEN); LLread(); L6_simple_expression( &type, MP_SECT); LLtdecr(25); LL_SCANDONE(COMMA); { CheckType(&type, T_NUMERIC, E_SECA1, 0); } LLread(); LLsdecr(6); L6_simple_expression( &type, MP_SECT); { CheckType(&type, T_NUMERIC, E_SECA2, 0); } LLtdecr(24); LL_SCANDONE(SQUARE_BRACKET_CLOSE); { AddCalc(SECTOR_FUNC, T_SECTOR); } break; case /* TOKEN_SECTOR */ 156 : ; L_3: ; LLsdecr(1); LL_SSCANDONE(TOKEN_SECTOR); break; default: if (LLskip()) goto L_2; goto L_3; } } L16_factor_operator ( operator) int *operator; { { *operator = current_token.value; } } L15_term_operator ( operator) int *operator; { { *operator = current_token.value; } } L13_compare_operator ( operator) int *operator; { { *operator = current_token.value; } } xemp5.1-beta/lib/parse/get_token.c100444 12266 2116 35721 6023771305 15467 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/parse/RCS/get_token.c,v 5.2 1995/09/08 07:36:14 jpo Exp $ $Date: 1995/09/08 07:36:14 $ $Author: jpo $ $Id: get_token.c,v 5.2 1995/09/08 07:36:14 jpo Exp $ $Locker: $ $Log: get_token.c,v $ Revision 5.2 1995/09/08 07:36:14 jpo NEW_DESIG fix * Revision 5.1 93/03/14 16:50:38 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:02 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:40:53 greyhelm * Added RCS headers - Karl Hagen * */ /* * get_token.c */ #include "main.h" #include "production.h" #include "sector.h" #include "func.h" #undef OIL #undef PRINT #include "parser.h" #include "Lpars.h" #include "symtab.h" #include "ship.h" #include "plane.h" #include "nuke.h" #include "eval_stack.h" #undef doalloc #define D0 (double) 0.0 #define D1 (double) 1.0 #define SCT_POPULATION(sct) (s_civ(sct) + s_mil(sct) + q_uw(sct)) #define SHIP_POPULATION(ship) (sh_civ(ship) + sh_mil(ship) + sh_uw(ship)) #define FOOD_USAGE(population) ((population) * eatrate * etu_per_update) static int src_modifier; static Plane plane_list_ptr; Sector WorldSector(x, y) int x, y; { #if ! defined(STAND_ALONE) return World(x, y, S_EXIST); #endif } /* * Function interface to XEMP's #defines */ int SectorXCoord(sct) Sector sct; { return s_xcd(sct); } int SectorYCoord(sct) Sector sct; { return s_ycd(sct); } Ship FirstShip(sct, src_mod, plane) Sector sct; int src_mod; Plane plane; { #if ! defined(STAND_ALONE) src_modifier = src_mod; if (src_modifier == MP_SECT) return s_fship(sct); return (plane == (Plane) 0) ? (Ship) 0 : NrToShip(pl_shipnr(plane)); #endif } Ship NextShip(ship, plane) Ship ship; Plane plane; { #if ! defined(STAND_ALONE) if (src_modifier != MP_SECT) return (Ship) 0; return sh_nxtsct(ship); #endif } Plane FirstPlane(sct, src_mod, ship) Sector sct; int src_mod; Ship ship; { #if ! defined(STAND_ALONE) src_modifier = src_mod; if (src_modifier == MP_SECT) return s_fplane(sct); if (ship == (Ship) 0) return (Plane) 0; plane_list_ptr = first_plane; return (pl_shipnr(plane_list_ptr) == sh_nr(ship)) ? plane_list_ptr : (Plane) 0; #endif } Plane NextPlane(plane, ship) Plane plane; Ship ship; { #if ! defined(STAND_ALONE) if (src_modifier == MP_SECT) return pl_nxtsct(plane); while ((plane_list_ptr = pl_next(plane_list_ptr)) != (Plane) 0) if (pl_shipnr(plane_list_ptr) == sh_nr(ship)) return plane_list_ptr; return (Plane) 0; #endif } Nuke FirstNuke(sct, src_mod, plane) Sector sct; int src_mod; Plane plane; { #if ! defined(STAND_ALONE) NukeData nuke_data; src_modifier = src_mod; if (src_modifier == MP_PLANE) { #if defined(PARSE_DEBUG) #endif printf ("PLANE --> NUKE MODIFIER NOT YET IMPLEMENTED.\n"); return (Nuke) 0; } if (s_stock(sct) == NULL) return (Nuke) 0; nuke_data = (NukeData) doalloc(sizeof(NUKEDATA)); nuke_data->type = 0; nuke_data->stockpile = (Stockp) s_stock(sct); return (Nuke) nuke_data; #endif } Nuke NextNuke(nuke, plane) Nuke nuke; Plane plane; { #if ! defined(STAND_ALONE) NukeData nuke_data = (NukeData) nuke; if (++nuke_data->type >= MAX_NUKETYPES) { dofree(nuke_data); return (Nuke) 0; } nuke_data->type++; return nuke; #endif } void GetTokenValue(sct, modifier, token, ship, plane, nuke, result) Sector sct; Ship ship; Plane plane; Nuke nuke; int modifier, token; EvalStack result; { double food_usage; NukeData nuke_data; Nuke stockpile; #if ! defined(STAND_ALONE) result->type = T_NUMERIC; result->e_value = D0; switch (modifier) { case MP_THRES: if (! KNOW_ALL(sct)) return; switch (token) { case FOOD: result->e_value = (double) t_foo(sct); return; case DUST: result->e_value = (double) t_dus(sct); return; case OIL: result->e_value = (double) t_oil(sct); return; case IRON: result->e_value = (double) t_iro(sct); return; case UW: result->e_value = (double) t_uw(sct); return; case GUNS: result->e_value = (double) t_gun(sct); return; case BARS: result->e_value = (double) t_bar(sct); return; case PETROL: result->e_value = (double) t_pet(sct); return; case LCMS: result->e_value = (double) t_lcm(sct); return; case HCMS: result->e_value = (double) t_hcm(sct); return; case SHELLS: result->e_value = (double) t_she(sct); return; case RADS: result->e_value = (double) t_rad(sct); return; } break; case MP_RESO: if (! KNOW_RES(sct)) return; switch(token) { case URANIUM: result->e_value = (double) s_ura(sct); return; case FOOD: result->e_value = (double) s_fer(sct); return; case DUST: result->e_value = (double) s_gol(sct); return; case OIL: result->e_value = (double) s_oil(sct); return; case IRON: result->e_value = (double) s_min(sct); return; } case MP_SHIP: if (ship == (Ship) 0) return; switch (token) { case XLOC: result->e_value = (double) sh_xcd(ship); return; case YLOC: result->e_value = (double) sh_ycd(ship); return; case OWNER: result->type = T_STRING; result->e_text = CountryName(sh_owner(ship)); return; case OWNED: result->type = T_BOOLEAN; if (sh_owned(ship)) result->e_value = D1; return; case NAME: result->type = T_STRING; result->e_text = ShipName(ship); return; case TYPE: result->e_value = (double) sh_type(ship); return; } if (!sh_owned(ship)) return; switch (token) { case EFFICIENCY: result->e_value = (double) sh_eff(ship); return; case MOBILITY: result->e_value = (double) sh_mob(ship); return; case CIVILIANS: result->e_value = (double) sh_civ(ship); return; case MILITARY: result->e_value = (double) sh_mil(ship); return; case TECH: result->e_value = (double) sh_tech(ship); return; case NUMBER: result->e_value = (double) sh_nr(ship); return; case RADAR: result->e_value = (double) sh_radar(ship); return; case SONAR: result->e_value = (double) sh_sonar(ship); return; case MOVES: result->e_value = (double) sh_moves(ship); return; case FOOD: result->e_value = (double) sh_foo(ship); return; case DUST: result->e_value = (double) sh_dust(ship); return; case OIL: result->e_value = (double) sh_oil(ship); return; case IRON: result->e_value = (double) sh_iron(ship); return; case UW: result->e_value = (double) sh_uw(ship); return; case GUNS: result->e_value = (double) sh_gun(ship); return; case BARS: result->e_value = (double) sh_bar(ship); return; case PETROL: result->e_value = (double) sh_pet(ship); return; case LCMS: result->e_value = (double) sh_lcm(ship); return; case HCMS: result->e_value = (double) sh_hcm(ship); return; case SHELLS: result->e_value = (double) sh_she(ship); return; case RADS: result->e_value = (double) sh_rad(ship); return; case POPULATION: result->e_value = (double) SHIP_POPULATION(ship); return; case FOOD_USED: result->e_value = (double) FOOD_USAGE(SHIP_POPULATION(ship)); return; case STARVATION: result->type = T_BOOLEAN; if (FOOD_USAGE(SHIP_POPULATION(ship)) > sh_foo(ship)) result->e_value = D1; return; case FLEET: result->type = T_CHARACTER; result->e_character = sh_fleet(ship); return; } break; case MP_PLANE: if (plane == (Plane) 0) return; switch (token) { case XLOC: result->e_value = (double) pl_xcd(plane); return; case YLOC: result->e_value = (double) pl_ycd(plane); return; case EFFICIENCY: result->e_value = (double) pl_eff(plane); return; case MOBILITY: result->e_value = (double) pl_mob(plane); return; case TECH: result->e_value = (double) pl_tech(plane); return; case NUMBER: result->e_value = (double) pl_nr(plane); return; case NAME: result->type = T_STRING; result->e_text = PlaneName(plane); return; case TYPE: result->e_value = (double) pl_type(plane); return; case WING: result->type = T_CHARACTER; result->e_character = pl_wing(plane); return; case RANGE: result->e_value = (double) pl_range(plane); return; case MAXRANGE: result->e_value = (double) pl_maxrange(plane); return; case ATTACK: result->e_value = (double) pl_att(plane); return; case DEFENSE: result->e_value = (double) pl_def(plane); return; case HARDEN: result->e_value = (double) pl_hard(plane); return; case LOAD: result->e_value = (double) MaxPlaneLoad(plane); return; } break; case MP_NUKE: if (nuke == (Nuke) 0) return; nuke_data = (NukeData) nuke; stockpile = nuke_data->stockpile; switch (token) { case XLOC: result->e_value = (double) sp_x(stockpile); return; case YLOC: result->e_value = (double) sp_y(stockpile); return; case NAME: result->type = T_STRING; result->e_text = nt_name(nuke_data->type); return; case TYPE: result->e_value = (double) nuke_data->type; return; case STOCKPILE: result->e_value = (double) sp_nr(stockpile); return; } break; case MP_SSECT: case MP_SECT: switch (token) { case CURRENT: result->type = T_SECTOR; result->e_sector = sct; return; case BAD_SECTOR: result->type = T_SECTOR; result->e_sector = (Sector) 0; return; case HAS_PLAN: result->type = T_BOOLEAN; result->e_value = (double) HasPlan(sct); return; break; case IS_ACTIVE: result->type = T_BOOLEAN; result->e_value = (double) IsActive(sct); return; break; case XLOC: result->e_value = (double) s_xcd(sct); return; case YLOC: result->e_value = (double) s_ycd(sct); return; case PLAGUE_HEALTHY: result->e_value = (double) PLG_HEALTHY; return; case PLAGUE_INFECTED: result->e_value = (double) PLG_INFECT; return; case PLAGUE_DYING: result->e_value = (double) PLG_DYING; return; case HAPPY_LOYAL: result->e_value = (double) HP_LOYAL; return; case HAPPY_UNREST: result->e_value = (double) HP_UNREST; return; case HAPPY_REVOL: result->e_value = (double) HP_REVOLUTIONARIES; return; case HAPPY_TERROR: result->e_value = (double) HP_TERRORISTS; return; case HAPPY_GUERRE: result->e_value = (double) HP_GUERRILLAS; return; } if (NO_INFO(sct)) return; switch (token) { case OWNER: result->type = T_STRING; result->e_text = CountryName(s_owner(sct)); return; case DESIGNATION: result->type = T_CHARACTER; result->e_character = s_des(sct); return; case OWNED: result->type = T_BOOLEAN; if (s_owned(sct)) result->e_value = D1; return; case COAST: result->type = T_BOOLEAN; if (IsCoast(sct)) result->e_value = D1; return; case MINES: result->e_value = (double) s_mines(sct); return; } if (!KNOW_LOO(sct)) return; switch (token) { case EFFICIENCY: result->e_value = (double) s_eff(sct); return; case CIVILIANS: result->e_value = (double) s_civ(sct); return; case MILITARY: result->e_value = (double) s_mil(sct); return; case FOOD: result->e_value = (double) q_foo(sct); return; case POPULATION: result->e_value = (double) (s_civ(sct) + s_mil(sct)); if (KNOW_ALL(sct)) result->e_value += (double) q_uw(sct); return; } if (!KNOW_SPY(sct)) return; switch (token) { case IRON: result->e_value = (double) q_iro(sct); return; case GUNS: result->e_value = (double) q_gun(sct); return; case PETROL: result->e_value = (double) q_pet(sct); return; case SHELLS: result->e_value = (double) q_she(sct); return; } if (!KNOW_ALL(sct)) return; switch (token) { case DUST: result->e_value = (double) q_dus(sct); return; case OIL: result->e_value = (double) q_oil(sct); return; case UW: result->e_value = (double) q_uw(sct); return; case BARS: result->e_value = (double) q_bar(sct); return; case LCMS: result->e_value = (double) q_lcm(sct); return; case HCMS: result->e_value = (double) q_hcm(sct); return; case RADS: result->e_value = (double) q_rad(sct); return; case NEW_DESIG: result->type = T_CHARACTER; result->e_character = s_nds(sct); return; case WORK: result->e_value = (double) s_wor(sct); return; case AVAILABLE: result->e_value = (double) s_ava(sct); return; case MOBILITY: result->e_value = (double) s_mob(sct); return; case PLANES: result->e_value = (double) s_pla(sct); return; case SHIPS: result->e_value = (double) s_shi(sct); return; case LANDS: result->e_value = (double) s_land(sct); return; case NUKES: result->e_value = (double) s_nuk(sct); return; case WAREHOUSE: result->type = T_SECTOR; if (s_pat(sct) == (char *) NULL || *s_pat(sct) == '\0') result->e_sector = (Sector) 0; else result->e_sector = World(s_dxc(sct), s_dyc(sct), S_EXIST); return; case OCCUPIED: result->type = T_BOOLEAN; if (s_occ(sct) == '*') result->e_value = D1; return; case FOOD_USED: result->e_value = (double) FOOD_USAGE(SCT_POPULATION(sct)); return; case STARVATION: result->type = T_BOOLEAN; food_usage = FOOD_USAGE(SCT_POPULATION(sct)); if (food_usage > q_foo(sct) && food_usage > D1) result->e_value = D1; return; case TERRITORY: result->e_value = (double) s_ter(sct); return; case PLAGUE: result->e_value = (double) PlagueChance(sct); return; case PLAGUE_STAGE: result->e_value = (double) PlagueStage(sct); return; case HAPPY: result->e_value = (double) IsHappy(sct); return; case HAPPY_STATE: result->e_value = (double) HappinesState(sct); return; } break; default /* MP_NONE */: switch (token) { case SPE: result->e_value = (double) sec_per_etu; return; case EPU: result->e_value = (double) etu_per_update; return; case IRATE: result->e_value = (double) bankint; return; case CTRATE: result->e_value = (double) money_civ; return; case UTRATE: result->e_value = (double) money_uw; return; case AMCRATE: result->e_value = (double) money_mil; return; case RMCRATE: result->e_value = (double) money_res; return; case FRATE: result->e_value = (double) fgrate; return; case HRATE: result->e_value = (double) fcrate; return; case CBRATE: result->e_value = (double) obrate; return; case UBRATE: result->e_value = (double) uwbrate; return; case ERATE: result->e_value = (double) eatrate; return; case BERATE: result->e_value = (double) babyeat; return; } } #if defined(PARSE_DEBUG) printf ("Unknown token combination %d(%d)\n", modifier, token); #endif return; #endif } DisplayParseErrors() { #if defined(STAND_ALONE) char *str; InitStringList(parse_errors); while ((str = GetNextString(parse_errors)) != NULL) printf ("%s\n", str); FreeStrings(parse_errors); #else Pager pager; int func; pager = InitPager(parse_errors, "Compiler errors"); AddPagerFunc(pager, "Write", WRITEFUNC); #ifdef X_VERSION AddPagerFunc(pager, "To WM", TOWMFUNC); #endif /* X_VERSION */ AddPagerFunc(pager, "Done", DONEFUNC); MapPagerFromTop(pager, map_win, 10, 10); ShowPager(pager); FreePager(pager); #endif } xemp5.1-beta/lib/parse/lex.c100444 12266 2116 12715 6023771305 14276 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/parse/RCS/lex.c,v 5.1 1993/03/14 16:50:39 etienne Exp $ $Date: 1993/03/14 16:50:39 $ $Author: etienne $ $Id: lex.c,v 5.1 1993/03/14 16:50:39 etienne Exp $ $Locker: $ $Log: lex.c,v $ Revision 5.1 1993/03/14 16:50:39 etienne *** empty log message *** * Revision 5.0 93/02/06 09:23:02 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:40:53 greyhelm * Added RCS headers - Karl Hagen * */ /* * Lex.c */ #include #include "parser.h" #include "symtab.h" #include "token.h" #include "Lpars.h" static Strings strings; /* Current set op input lines */ static char *cur_pos; /* Current position in "base_string" */ static char *start_pos; /* Previous position in "base_string" */ static int line_number; Strings parse_errors; #define COMMENT_CHAR ';' extern double atof(); extern char *GetNextString(); static bool ScanNumber(); static char *LexScanText(); TOKEN current_token, stacked_token; void LexInitStrings(strs) Strings strs; { extern Strings InitStrings(); if (parse_errors != (Strings) 0) FreeStrings(parse_errors); parse_errors = InitStrings(); strings = strs; InitStringList(strings); cur_pos = GetNextString(strings); line_number = 1; } static void LexSkipSpaceAndComments() { if (cur_pos == (char *) 0) return; while (isspace(*cur_pos)) cur_pos++; if (*cur_pos == COMMENT_CHAR) { do cur_pos++; while (*cur_pos != '\0'); } if (*cur_pos != '\0') start_pos = cur_pos; else { cur_pos = GetNextString(strings); line_number++; LexSkipSpaceAndComments(); } } static bool match(list, line, length) char *list, *line; int length; { while (length--) { if (*list++ != *line++) break; } return (length >= 0 || *list != '\0') ? False : True; } int NextToken () { Symtab list; char *text; int length; if (stacked_token.value != 0) { current_token = stacked_token; stacked_token.value = 0; return current_token.value; } LexSkipSpaceAndComments(); if (cur_pos == (char *) 0) return EOFILE; if (isalpha(*cur_pos) || *cur_pos == '_') { do { cur_pos++; } while (isalpha(*cur_pos) || *cur_pos == '_'); length = (int) (cur_pos - start_pos); for (list = text_symtab; list->name != NULL; list++) if (match(list->name, start_pos, length) == True) break; if (list->name == (char *) 0) { ParseError("Unknown identifier \"%.*s\".", length, start_pos); return NextToken(); } current_token.value = list->token; current_token.symtab = list; } else if (isdigit(*cur_pos) && ScanNumber() == True) { current_token.value = CONSTANT; current_token.t_constant = atof(start_pos); } else if (*cur_pos == '\'') { cur_pos++; if (*(cur_pos + 1) != '\'') { ParseError("Error in character constant."); return NextToken(); } current_token.value = CHARACTER; current_token.t_character = *cur_pos++; cur_pos++; } else if (*cur_pos == '"') { if ((text = LexScanText()) == NULL) return NextToken(); current_token.value = STRING; current_token.t_text = text; } else { for (list = special_chars_symtab; list->name != NULL; list++) if (match(list->name, cur_pos, strlen(list->name)) == True) break; if (list->name == (char *) 0) { ParseError("Unknown character '%c'.", *cur_pos); cur_pos++; return NextToken(); } cur_pos += strlen(list->name); current_token.value = list->token; current_token.symtab = list; } return current_token.value; } /* * Finite automaton for real or integer recognition. * * 0-9 0-9 * --- --- * \ / . 0-9 \ / * * 0---------->1------>2-------->6 (UIT) * / \ / e| ^ real * *| \e /* | | * | \ / V | * | ----/---------->3 | * | / /|\0-9 | * V<-----/ / | \ | * 7 (UIT) * / | ----\ | * integer /-- | \ | * / V+/- \| * (FOUT)8<------4-------->5 * * 0-9 / \ * --- * 0-9 */ static bool ScanNumber() { int state, length; char *ptr; ptr = cur_pos; state = 0; while (state < 6) { switch (state) { case 0: if (*ptr == '.') state = 1; else if (*ptr == 'e') state = 3; else if (!isdigit(*ptr)) state = 7; break; case 1: if (isdigit(*ptr)) state = 2; else { ptr--; state = 7; } break; case 2: if (*ptr == 'e') state = 3; else if (!isdigit(*ptr)) state = 6; break; case 3: if (isdigit(*ptr)) state = 5; else if (*ptr == '+' || *ptr == '-') state = 4; else state = 8; break; case 4: state = isdigit(*ptr) ? 5 : 8; break; case 5: if (!isdigit(*ptr)) state = 6; break; } ptr++; } ptr--; if (state == 6 || state == 7) { cur_pos = ptr; return True; } return False; } static char *LexScanText() { char *text = cur_pos; for (++cur_pos; *cur_pos != '"'; cur_pos++) { if (*cur_pos == '\0') { ParseError("Missing '\"'."); return NULL; } } *cur_pos = '\0'; text = Str(text + 1); *cur_pos++ = '"'; return text; } #include /*VARARGS0*/ ParseError(va_alist) va_dcl { char msg_buf[100]; va_list arglist; char *fmt; parse_error = True; sprintf (msg_buf, "Line %d: ", line_number); va_start(arglist); fmt = va_arg(arglist, char *); vsprintf(&msg_buf[strlen(msg_buf)], fmt, arglist); va_end(arglist); AddString(parse_errors, msg_buf); } xemp5.1-beta/lib/parse/parser.h100444 12266 2116 2464 6023771305 14767 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/parse/RCS/parser.h,v 5.2 1995/09/08 07:36:26 jpo Exp $ $Date: 1995/09/08 07:36:26 $ $Author: jpo $ $Id: parser.h,v 5.2 1995/09/08 07:36:26 jpo Exp $ $Locker: $ $Log: parser.h,v $ Revision 5.2 1995/09/08 07:36:26 jpo moved types around * Revision 5.1 93/03/14 16:50:53 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:02 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:40:53 greyhelm * Added RCS headers - Karl Hagen * */ /* * Parser.h */ #ifndef _PARSER #define _PARSER #include "type.h" #if defined(PARSE_DEBUG) extern char *Malloc(), *Strdup(); #define doalloc(bytes) Malloc(bytes, __FILE__, __LINE__, "bytes") #define dofree(data) Free(data, __FILE__, __LINE__, "data") #define strdup(str) Str(str) #define Str(str) Strdup(str) #else extern char *doalloc(/* int bytes */); #define dofree(data) free(data) #endif extern bool parse_error; extern Strings parse_errors; #define P_OK 0 /* Normal execution */ #define P_ABORTED 1 /* Abort statement encoutered */ #define P_EMPTY 2 /* Nil program specified */ #define P_ERROR 3 /* Program error during execution */ #endif xemp5.1-beta/lib/parse/program.inc100644 12266 2116 33142 6017274517 15511 0ustar jponexor/* * program.inc */ #if defined(DUMP) static void DumpPhase1Program(), DumpPhase2Program(); static void DumpActionStatement(), DumpOutputList(), DumpSector(), DumpLocation(), DumpExprList(); static char *CommodityName(); #endif /* * Local data. */ static Instruction LLprogram; /* Program being parsed */ static int next_label; /* Next free label value */ #define LABEL_HASH_COUNT 23 static Instruction label_hash_list[LABEL_HASH_COUNT]; void DestroyProgram(program) Program *program; { Instruction instr, link; if (*program == (Program) 0) return; for (instr = *program; instr != (Instruction) 0; instr = link) { if (instr->type == I_EVAL) DestroyExpression(&instr->expression); else if (instr->type == I_ACTION) DestroyAction(&instr->action); link = instr->link; dofree ((char *) instr); } *program = (Instruction) 0; } Program ParseProgram(strings) Strings strings; { int token, count; parse_error = False; LLprogram = (Instruction) 0; next_label = 3; for (count = 0; count < LABEL_HASH_COUNT; count++) label_hash_list[count] = (Instruction) 0; LinkInstruction(I_EXECUTE); LexInitStrings(strings); LLParseProgram(); if (parse_error == True) { DestroyProgram(&LLprogram); DisplayParseErrors(); return (Program) 0; } AddInstructionLabel(1); LinkInstruction(I_STOP_PROGRAM); AddInstructionLabel(2); LinkInstruction(I_ABORT); #if defined(DUMP) && defined(DEBUG) DumpPhase1Program(LLprogram); #endif RunPhase2(); return LLprogram; } static void AddInstructionLabel(number) int number; { Instruction instr = LinkInstruction(I_LABEL); int index = (number % LABEL_HASH_COUNT); instr->number = number; instr->label_list = label_hash_list[index]; label_hash_list[index] = instr; } static void AddInstructionGoto(number) int number; { Instruction instr = LinkInstruction(I_GOTO); instr->next_value = number; } static void AddInstructionEval(expression, label_true, label_false) Stack expression; int label_true, label_false; { Instruction instr = LinkInstruction(I_EVAL); instr->expression = expression; instr->true_value = label_true; instr->false_value = label_false; } static void AddInstructionSetCount(count) int count; { Instruction instr = LinkInstruction(I_SET_COUNT); instr->number = count; } static void AddInstructionTestCount(false_label) { Instruction instr = LinkInstruction(I_TEST_COUNT); instr->false_value = false_label; } static void AddInstructionAction(action, label_next) Action action; int label_next; { Instruction instr = LinkInstruction(I_ACTION); instr->action = action; instr->next_value = label_next; instr->fail_value = label_next; instr->false_value = label_next; } static Instruction LastInstruction() { if (LLprogram == (Program) 0) return (Instruction) 0; return LLprogram->prev; } static void SetFailLabel(instr, label) Instruction instr; int label; { instr->fail_value = label; } static void SetErrorLabel(instr, label) Instruction instr; int label; { instr->false_value = label; } static Instruction LinkInstruction(type) int type; { Instruction instr = (Instruction) doalloc(sizeof(struct _Instruction)); instr->type = type; instr->referenced = False; instr->next_value = 0; instr->false_value = 0; instr->fail_value = 0; instr->link = (Instruction) 0; if (LLprogram == (Instruction) 0) { instr->prev = instr; LLprogram = instr; } else { instr->prev = LLprogram->prev; LLprogram->prev->link = instr; LLprogram->prev = instr; } return instr; } static void RunPhase2() { Instruction instr, link_instr; #if defined(DUMP) int seq_nr = 1; int i = 0; extern char *ptypes[]; LLprogram->nr = seq_nr++; /* I_FOREVER/I_EXECUTE */ #endif /* Substitute labels values for label addresses */ for (instr = LLprogram; instr->type != I_ABORT; instr = instr->link) { instr->next_address = FindLabelAddress(instr, instr->next_value); instr->false_address = FindLabelAddress(instr, instr->false_value); instr->fail_address = FindLabelAddress(instr, instr->fail_value); } for (instr = LLprogram; instr->type != I_ABORT; instr = instr->link) { instr->next_address = FindShortCut(instr,instr->next_address); instr->false_address = FindShortCut(instr,instr->false_address); instr->fail_address = FindShortCut(instr,instr->fail_address); } /* Delete unnessecary instructions (goto's and labels) */ for (instr = LLprogram->link; instr->type != I_ABORT; instr = link_instr) { link_instr = instr->link; if (instr->referenced == False) { #if defined(STAND_ALONE) || defined(DEBUG) if (instr->type != I_LABEL && instr->type != I_GOTO) printf("Warning %d [%d], not reached.\n", instr->nr, instr->type); #endif instr->prev->link = instr->link; instr->link->prev = instr->prev; dofree((char *) instr); } #if defined(DUMP) else instr->nr = seq_nr++; #endif } #if defined(DUMP) instr->nr = seq_nr; /* I_ABORT */ DumpPhase2Program(LLprogram); #endif } static Instruction FindLabelAddress(current_instr, label_value) Instruction current_instr; int label_value; { Instruction instr; if (label_value == 0) return current_instr->link; for (instr = label_hash_list[label_value % LABEL_HASH_COUNT]; instr != (Instruction) 0; instr = instr->label_list) if (instr->number == label_value) return instr; printf("Internal Compiler Error: Label %d not found.", label_value); return current_instr->link; /* Bogus return value */ } static Instruction FindShortCut(instr, next_instr) Instruction instr, next_instr; { while (next_instr->type == I_GOTO || next_instr->type == I_LABEL) next_instr = next_instr->next_address; next_instr->referenced = True; return next_instr; } #if defined(DUMP) static char *ptypes[10] = { "I_FOREVER", "I_EXECUTE", "I_EVAL", "I_ACTION", "I_LABEL", "I_GOTO", "I_SET_COUNT", "I_TEST_COUNT", "I_STOP_PROGRAM", "I_ABORT" }; void DumpProgram (program) Program program; { if (program == (Program) 0) { printf("NO PROGRAM.\n"); return; } DumpPhase2Program (program); } static void DumpPhase1Program(program) Program program; { Instruction instr; int i = 0; if (program == (Program) 0) { printf("NO PROGRAM.\n"); return; } for (instr = program; instr != (Instruction) 0; instr = instr->link) { printf("Instruction %2d: (%s)%s", ++i, ptypes[instr->type], instr->referenced == True ? "*" : "-"); if (instr->type == I_LABEL) printf(" [%d]", instr->number); else if (instr->type == I_GOTO) { if (instr->next_value != 0) printf(" [%d]", instr->next_value); else printf(" [link]"); } else if (instr->type == I_SET_COUNT) { if (instr->number < 0) printf(" [FOREVER]"); else printf(" [%d]", instr->number); } putchar('\n'); if (instr->type == I_ACTION) { DumpActionStatement(instr->action); printf(" NEXT: "); if (instr->next_value == 0) printf("[link]\n"); else printf("%d\n", instr->next_value); if (instr->fail_value != 0) printf(" ONFAIL: %d\n", instr->fail_value); if (instr->false_value != 0) printf(" ONERROR: %d\n", instr->false_value); } else if (instr->type == I_EVAL) { printf(" Expression: "); DumpExpression(instr->expression); printf("\n"); printf(" JNZ: "); if (instr->next_value == 0) printf("[link]\n"); else printf("%d\n", instr->next_value); printf(" JZ: "); if (instr->false_value == 0) printf("[link]\n"); else printf("[%d]\n", instr->false_value); } } printf(" -- Label Hash List --\n"); for (i = 0; i < LABEL_HASH_COUNT; i++) { if (label_hash_list[i] == (Instruction) 0) continue; printf("%2d: ", i % LABEL_HASH_COUNT); for (instr = label_hash_list[i]; instr != (Instruction) 0; instr = instr->label_list) printf("[%d] ", instr->number); printf("\n"); } } static void DumpPhase2Program(program) Program program; { Instruction instr; for (instr = program; instr->type != I_ABORT; instr = instr->link) { printf("Instruction %2d: (%s)", instr->nr, ptypes[instr->type]); if (instr->type == I_SET_COUNT) { if (instr->number < 0) printf(" [FOREVER]"); else printf(" [%d]", instr->number); } putchar('\n'); if (instr->type == I_EVAL) { printf(" Expression: "); DumpExpression(instr->expression); printf("\n"); if (instr->next_address->nr != instr->nr + 1) printf(" Next instr: %d\n", instr->next_address->nr); printf(" False instr: %d\n", instr->false_address->nr); } else if (instr->type == I_ACTION) { DumpActionStatement(instr->action); if (instr->next_address->nr != instr->nr + 1) printf(" NEXT: %d\n", instr->next_address->nr); if (instr->false_address->nr != instr->nr + 1) printf(" ON ERROR: %d\n", instr->false_address->nr); if (instr->fail_address->nr != instr->nr + 1) printf(" ON FAIL %d\n", instr->fail_address->nr); } else { if (instr->next_address->nr != instr->nr + 1) printf(" next: %d\n", instr->next_address->nr); if (instr->false_address->nr != instr->nr + 1) printf(" False instr: %d\n", instr->false_address->nr); if (instr->fail_address->nr != instr->nr + 1) printf(" Fail instr: %d\n", instr->fail_address->nr); } } printf("Instruction %2d: (%s)\n", instr->nr, ptypes[instr->type]); } static void DumpActionStatement(action) Action action; { printf(" Action: "); if (action == (Action) 0) { printf("Empty list?\n"); return; } switch (action->type) { case MOVE: printf("MOVE "); DumpExpression(action->u_move->quantity); printf(" %s FROM ", CommodityName(action->u_move->commodity)); DumpLocation(&action->u_move->from_loc); printf(" "); if (action->u_move->via_list != NULL) DumpExprList(action->u_move->via_list->next, "VIA"); printf("TO "); DumpLocation(&action->u_move->to_loc); break; case SET_DISTRIBUTE: printf("SET DISTRIBUTE PATH IN SECTOR "); DumpSector(action->u_distribute->sector_expr); printf(" TO "); DumpLocation(action->u_distribute->to_loc); break; case SET_DELIVER: printf("SET DELIVER PATH IN SECTOR "); DumpSector(action->u_deliver->sector_expr); printf(" %s ", CommodityName(action->u_deliver->commodity)); printf("TO "); DumpSector(action->u_deliver->dest_sector); break; case SET_DESIGNATION: printf("DESIGNATE SECTOR "); DumpSector(action->u_designate->sector_expr); printf(" TO %c", action->u_designate->flag); break; case ENLIST: printf("ENLIST "); DumpExpression(action->u_enlist->quantity); printf(" IN SECTOR "); DumpSector(action->u_enlist->sector_expr); break; case DEMOBILIZE: printf("DEMOBILIZE "); DumpExpression(action->u_demobilize->quantity); printf(" [%s] IN SECTOR ", action->u_demobilize->flag == 'y' ? "RESERVE" : ""); DumpSector(action->u_demobilize->sector_expr); break; case CONVERT: printf("CONVERT "); DumpExpression(action->u_convert->quantity); printf(" IN SECTOR "); DumpSector(action->u_convert->sector_expr); break; case SHOOT: printf("SHOOT "); DumpExpression(action->u_convert->quantity); printf(" %s IN SECTOR ", action->u_convert->flag == 'u' ? "uw" : "civilians"); DumpSector(action->u_convert->sector_expr); break; case SET_THRESHOLD: printf("SET %s THRESHOLD IN SECTOR ", CommodityName(action->u_threshold->flag)); DumpSector(action->u_threshold->sector_expr); printf(" TO "); DumpExpression(action->u_threshold->quantity); break; case SET_CUTOFF: printf("SET CUTOFF PATH of %s IN SECTOR ", CommodityName(action->u_cutoff->flag)); DumpSector(action->u_cutoff->sector_expr); printf(" TO"); DumpExpression(action->u_cutoff->quantity); break; case TERRITORY: printf("SET TERRITORY IN SECTOR "); DumpSector(action->u_territory->sector_expr); printf("TO "); DumpExpression(action->u_territory->quantity); break; case PRINT: printf ("PRINT "); if (action->u_print != NULL) DumpOutputList(action->u_print->next); break; case SEND: printf ("SEND "); if (action->u_send != NULL) DumpOutputList(action->u_send->next); break; default: printf("Invalid Action statement (%d)", action->type); } putchar ('\n'); } static void DumpExprList(list, prompt) ExprList list; char *prompt; { if (list == (ExprList) 0) return; printf("\n %s ", prompt); DumpExpression(list->e_expr); DumpExprList(list->next, prompt); } static void DumpLocation(loc) Location loc; { switch(loc->type) { case LOC_NONE: printf("current_sector"); break; case LOC_SECTOR: DumpExpression(loc->l_sector_expr); break; case LOC_WHERE: if (loc->l_where_list != NULL) DumpExprList(loc->l_where_list->next, "WHERE"); break; default: printf ("<<<<>>>>"); } putchar(' '); } static void DumpOutputList(list) Output list; { if (list == (Output) 0) return; DumpExpression(list->o_expr); if (list->format) printf ("FORMAT(%d)", list->format); printf(" "); DumpOutputList(list->next); } static char *CommodityName(commodity) int commodity; { switch (commodity) { case 'c': return "civilians"; case 'm': return "military"; case 'u': return "uw"; case 'f': return "food"; case 's': return "shells"; case 'g': return "guns"; case 'i': return "iron dust"; case 'd': return "gold dust"; case 'b': return "bars"; case 'o': return "oil"; case 'p': return "petroleum"; case 'l': return "lcms"; case 'h': return "hcms"; case 'r': return "radioactive"; default: return "unknown *COMMODITY*"; } } static void DumpSector(sector_expr) Stack sector_expr; { if (sector_expr == (Stack) 0) printf ("current_sector"); else DumpExpression(sector_expr); } #endif xemp5.1-beta/lib/parse/prog_defs.h100444 12266 2116 12013 6023771305 15452 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/parse/RCS/prog_defs.h,v 5.2 1995/09/08 07:36:34 jpo Exp $ $Date: 1995/09/08 07:36:34 $ $Author: jpo $ $Id: prog_defs.h,v 5.2 1995/09/08 07:36:34 jpo Exp $ $Locker: $ $Log: prog_defs.h,v $ Revision 5.2 1995/09/08 07:36:34 jpo redefine types - stop clashes * Revision 5.1 93/03/14 16:50:53 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:02 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:40:53 greyhelm * Added RCS headers - Karl Hagen * */ /* * Prog_defs.h */ /* * Instruction/program types. */ #define I_FOREVER 0 /* Program types */ #define I_EXECUTE 1 #define I_EVAL 2 /* Instruction types */ #define I_ACTION 3 #define I_LABEL 4 #define I_GOTO 5 #define I_SET_COUNT 6 #define I_TEST_COUNT 7 #define I_STOP_PROGRAM 8 #define I_ABORT 9 #define S_OK 0 #define S_FAIL 1 #define S_ERROR 2 /* * Label types. */ typedef union _u_label { int value; /* Phase1: label value */ struct _Instruction *address; /* Phase2: Label address */ } LABEL; /* * Statement types. */ #define ST_BLOCK 0 #define ST_SINGLE 1 /* * Double linked list with tail->link pointing to NIL and head->prev pointing * to tail. */ typedef struct _Instruction { #if defined(DUMP) int nr; #endif int type; Stack expression; struct _Action *action; struct _Instruction *link; /* Link to next logic instr */ struct _Instruction *prev; /* During phase1: previous instr */ LABEL next_label; /* Label info on true/next condition */ LABEL false_label; /* Label info on false condition */ /* Lblinfo on error clause in I_ACTION*/ LABEL fail_label; /* Fail clause in I_ACTION statement */ int *loop_count; /* Address to loop count */ int number; /* Label value/loop executions */ struct _Instruction *label_list; bool referenced; /* Phase2 reachability data */ } *Instruction; #define next_address next_label.address #define next_value next_label.value #define true_address next_label.address #define true_value next_label.value #define false_address false_label.address #define false_value false_label.value #define fail_address fail_label.address #define fail_value fail_label.value /* * Function prototypes. */ static void AddInstructionEval(), AddInstructionAction(), AddInstructionLabel(), AddInstructionGoto(); static Instruction LinkInstruction (); static void RunPhase2(); static Instruction FindShortCut(), FindLabelAddress(); /* * Action record definitions. */ typedef struct _ExprList { union u_exprlist { Stack u_e_expr; struct _ExprList *u_e_tail; } u_exprlist; struct _ExprList *next; } EXPRLIST, *ExprList; #define e_expr u_exprlist.u_e_expr #define e_tail u_exprlist.u_e_tail typedef struct _Location { int type; union _u_location { Stack u_l_sector_expr; ExprList u_l_where_list; } u_location; } LOCATION, *Location; #define l_sector_expr u_location.u_l_sector_expr #define l_where_list u_location.u_l_where_list #define LOC_NONE 0 #define LOC_SECTOR 1 #define LOC_WHERE 2 typedef struct _Simple { Stack sector_expr; Stack quantity; int flag; } *Simple; typedef struct _Simple *Designate; typedef struct _Simple *Demobilize; typedef struct _Simple *Enlist; typedef struct _Simple *Convert; typedef struct _Simple *Shoot; typedef struct _Simple *Threshold; typedef struct _Simple *Cutoff; typedef struct _Simple *Territory; typedef struct _MoveAct { Stack quantity; int commodity; LOCATION from_loc; ExprList via_list; LOCATION to_loc; } *MoveAct; typedef struct _DistributeAct { Stack sector_expr; LOCATION to_loc; } *DistributeAct; typedef struct _DeliverAct { Stack sector_expr; Stack dest_sector; int commodity; } *DeliverAct; typedef struct _Outp { int format; struct _Outp *next; union _u_output { Stack u_o_expr; struct _Outp *u_o_tail; } u_outp; } *Output; #define o_expr u_outp.u_o_expr #define o_tail u_outp.u_o_tail typedef struct _Action { int type; union _u_action { Simple u_a_simple; MoveAct u_a_move; Designate u_a_designate; Demobilize u_a_demobilize; Enlist u_a_enlist; Convert u_a_convert; Shoot u_a_shoot; DistributeAct u_a_distribute; Threshold u_a_threshold; Cutoff u_a_cutoff; DeliverAct u_a_deliver; Territory u_a_territory; Output u_a_output; Output u_a_print; Output u_a_send; } u_action; } ACTION, *Action; #define u_simple u_action.u_a_simple #define u_move u_action.u_a_move #define u_designate u_action.u_a_designate #define u_demobilize u_action.u_a_demobilize #define u_enlist u_action.u_a_enlist #define u_convert u_action.u_a_convert #define u_shoot u_action.u_a_shoot #define u_distribute u_action.u_a_distribute #define u_threshold u_action.u_a_threshold #define u_cutoff u_action.u_a_cutoff #define u_deliver u_action.u_a_deliver #define u_territory u_action.u_a_territory #define u_output u_action.u_a_output #define u_print u_action.u_a_print #define u_send u_action.u_a_send xemp5.1-beta/lib/parse/program.c100444 12266 2116 105161 6026570304 15172 0ustar jponexor/* $Header: /a/victor/nexor/user4/jpo/xemp/xemp5.0/lib/parse/RCS/program.c,v 5.3 1995/09/16 15:44:04 jpo Exp $ $Date: 1995/09/16 15:44:04 $ $Author: jpo $ $Id: program.c,v 5.3 1995/09/16 15:44:04 jpo Exp $ $Locker: $ $Log: program.c,v $ Revision 5.3 1995/09/16 15:44:04 jpo removed # line stuff Revision 5.2 1995/09/08 07:36:53 jpo PRINT to PRINTIT * Revision 5.1 93/03/14 16:50:40 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:02 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:40:53 greyhelm * Added RCS headers - Karl Hagen * */ /* LLgen generated code from source program.g */ /* $Header: /a/victor/nexor/user4/jpo/xemp/xemp5.0/lib/parse/RCS/program.c,v 5.3 1995/09/16 15:44:04 jpo Exp $ */ #ifdef LL_DEBUG #define LL_assert(x) if(!(x)) LL_badassertion("x",__FILE__,__LINE__) #else #define LL_assert(x) /* nothing */ #endif extern int LLsymb; #define LL_SAFE(x) /* Nothing */ #define LL_SSCANDONE(x) if (LLsymb != x) LLerror(x); else #define LL_SCANDONE(x) if (LLsymb != x) LLerror(x); else #define LL_NOSCANDONE(x) LLscan(x) #ifdef LL_FASTER #define LLscan(x) if ((LLsymb = LL_LEXI()) != x) LLerror(x); else #endif # include "Lpars.h" extern unsigned int LLscnt[]; extern unsigned int LLtcnt[]; extern int LLcsymb; #define LLsdecr(d) {LL_assert(LLscnt[d] > 0); LLscnt[d]--;} #define LLtdecr(d) {LL_assert(LLtcnt[d] > 0); LLtcnt[d]--;} #define LLsincr(d) LLscnt[d]++ #define LLtincr(d) LLtcnt[d]++ #define LL_LEXI NextToken #include "parser.h" #include "symtab.h" #include "token.h" #include "stack.h" #include "Lpars.h" #include "parser.h" #include "prog_defs.h" static void DestroyAction(); #include "program.inc" static void SetCommodityType(token, commodity) int token, *commodity; { switch (token) { case FOOD: *commodity = 'f'; break; case DUST: *commodity = 'd'; break; case OIL: *commodity = 'o'; break; case IRON: *commodity = 'i'; break; case UW: *commodity = 'u'; break; case GUNS: *commodity = 'g'; break; case BARS: *commodity = 'b'; break; case PETROL: *commodity = 'p'; break; case LCMS: *commodity = 'l'; break; case HCMS: *commodity = 'h'; break; case SHELLS: *commodity = 's'; break; case RADS: *commodity = 'r'; break; } } static void LinkExprList(list, expr) ExprList *list; Stack expr; { ExprList new = (ExprList) doalloc(sizeof(struct _ExprList)); if (*list == NULL) { *list = (ExprList) doalloc(sizeof(struct _ExprList)); (*list)->e_tail = *list; } new->e_expr = expr; new->next = NULL; (*list)->e_tail->next = new; (*list)->e_tail = new; } static void LinkOutputList(list, expr) Output *list; Stack expr; { Output new = (Output) doalloc(sizeof(struct _Outp)); if (*list == NULL) { *list = (Output) doalloc(sizeof(struct _Outp)); (*list)->o_tail = *list; } new->next = NULL; new->format = 0; new->o_expr = expr; (*list)->o_tail->next = new; (*list)->o_tail = new; } static void SetActionStruct(action, type) Action action; int type; { action->type = type; switch (type) { case MOVE: action->u_move = (MoveAct) doalloc(sizeof(struct _MoveAct)); memset(action->u_move, '\0', sizeof(struct _MoveAct)); break; case SET_DISTRIBUTE: action->u_distribute = (DistributeAct) doalloc(sizeof(struct _DistributeAct)); memset(action->u_distribute, '\0', sizeof(struct _DistributeAct)); break; case SET_DELIVER: action->u_deliver = (DeliverAct) doalloc(sizeof(struct _DeliverAct)); memset(action->u_deliver, '\0', sizeof(struct _DeliverAct)); break; case PRINTIT: case SEND: break; default: action->u_simple = (Simple) doalloc(sizeof(struct _Simple)); memset(action->u_simple, '\0', sizeof(struct _Simple)); } } static void DestroyExprList(expr_list) ExprList *expr_list; { ExprList ptr, next; if ((ptr = *expr_list) == NULL) return; ptr = ptr->next; while (ptr != NULL) { DestroyExpression(&ptr->e_expr); next = ptr->next; dofree((char *) ptr); ptr = next; } dofree((char *) *expr_list); } static void DestroyOutputList(output_list) Output *output_list; { Output ptr, next; if ((ptr = *output_list) == NULL) return; ptr = ptr->next; while (ptr != NULL) { DestroyExpression(&ptr->o_expr); next = ptr->next; dofree((char *) ptr); ptr = next; } } static void DestroyLocation(loc) Location loc; { switch (loc->type) { case LOC_SECTOR: DestroyExpression(&loc->l_sector_expr); break; case LOC_WHERE: DestroyExprList(&loc->l_where_list); break; } } static void DestroyAction(action_ptr) Action *action_ptr; { Action action = *action_ptr; switch (action->type) { case MOVE: DestroyExpression(&action->u_move->quantity); DestroyLocation(&action->u_move->from_loc); DestroyExprList(&action->u_move->via_list); DestroyLocation(&action->u_move->to_loc); break; case SET_DISTRIBUTE: DestroyExpression(&action->u_distribute->sector_expr); DestroyLocation(&action->u_distribute->to_loc); break; case SET_DELIVER: DestroyExpression(&action->u_deliver->sector_expr); DestroyExpression(&action->u_deliver->dest_sector); break; case PRINTIT: case SEND: DestroyOutputList(&action->u_output); break; default: DestroyExpression(&action->u_simple->sector_expr); DestroyExpression(&action->u_simple->quantity); } if (action->u_simple != NULL) dofree((char *) action->u_simple); dofree((char *) action); } L1_parse_program ( ) { LLsincr(12); L20_statement( -1, -1); } L21_block_statement ( label_cont,label_break) int label_cont; int label_break; { LLsincr(12); LLtincr(56); LL_SAFE(BEGIN); LLread(); for (;;) { L_1 : {switch(LLcsymb) { case /* END */ 56 : ; break; default:{int LL_8=LLnext(-252); ;if (!LL_8) { break; } else if (LL_8 & 1) goto L_1;} case /* BEGIN */ 55 : ; case /* REPEAT */ 57 : ; case /* WHILE */ 59 : ; case /* IF */ 61 : ; case /* LOOP */ 64 : ; case /* MOVE */ 65 : ; case /* SET_DESIGNATION */ 70 : ; case /* DEMOBILIZE */ 71 : ; case /* ENLIST */ 73 : ; case /* CONVERT */ 74 : ; case /* SHOOT */ 75 : ; case /* TERRITORY */ 76 : ; case /* SET_DISTRIBUTE */ 77 : ; case /* SET_THRESHOLD */ 78 : ; case /* SET_CUTOFF */ 79 : ; case /* SET_DELIVER */ 80 : ; case /* BREAK */ 82 : ; case /* CONTINUE */ 83 : ; case /* ABORT */ 84 : ; case /* STOP */ 85 : ; case /* PRINTIT */ 86 : ; case /* SEND */ 87 : ; case /* TOKEN_STATEMENT */ 157 : ; LLsincr(12); L20_statement( label_cont, label_break); continue; } } LLsdecr(12); break; } LLtdecr(56); LL_SSCANDONE(END); } L20_statement ( label_cont,label_break) int label_cont; int label_break; { L_2: ; switch(LLcsymb) { case /* BEGIN */ 55 : ; LLsdecr(12); L21_block_statement( label_cont, label_break); LLread(); break; case /* LOOP */ 64 : ; LLsdecr(12); L22_loop_statement( ); break; case /* REPEAT */ 57 : ; LLsdecr(12); L23_repeat_statement( ); LLread(); break; case /* WHILE */ 59 : ; LLsdecr(12); L24_while_statement( ); break; case /* IF */ 61 : ; LLsdecr(12); L25_if_statement( label_cont, label_break); break; case /* MOVE */ 65 : ; case /* SET_DESIGNATION */ 70 : ; case /* DEMOBILIZE */ 71 : ; case /* ENLIST */ 73 : ; case /* CONVERT */ 74 : ; case /* SHOOT */ 75 : ; case /* TERRITORY */ 76 : ; case /* SET_DISTRIBUTE */ 77 : ; case /* SET_THRESHOLD */ 78 : ; case /* SET_CUTOFF */ 79 : ; case /* SET_DELIVER */ 80 : ; case /* PRINTIT */ 86 : ; case /* SEND */ 87 : ; LLsdecr(12); L26_do_statement( label_cont, label_break); break; case /* STOP */ 85 : ; LLsdecr(12); LL_SAFE(STOP); { AddInstructionGoto(1); } LLread(); break; case /* ABORT */ 84 : ; LLsdecr(12); LL_SAFE(ABORT); { AddInstructionGoto(2); } LLread(); break; case /* CONTINUE */ 83 : ; LLsdecr(12); LL_SAFE(CONTINUE); { if (label_cont < 0) LLmessage(LLsymb); } { AddInstructionGoto(label_cont); } LLread(); break; case /* BREAK */ 82 : ; LLsdecr(12); LL_SAFE(BREAK); { if (label_break < 0) LLmessage(LLsymb); } { AddInstructionGoto(label_break); } LLread(); break; case /* TOKEN_STATEMENT */ 157 : ; L_3: ; LLsdecr(12); LL_SSCANDONE(TOKEN_STATEMENT); LLread(); break; default: if (LLskip()) goto L_2; goto L_3; } } L22_loop_statement ( ) { int label_start, label_end, loop_count = -1; Instruction instr_set, instr_test; LLtincr(1); LLsincr(12); LL_SAFE(LOOP); { label_start = next_label++; } { label_end = next_label++; } LLread(); L_1 : {switch(LLcsymb) { case /* BEGIN */ 55 : ; case /* REPEAT */ 57 : ; case /* WHILE */ 59 : ; case /* IF */ 61 : ; case /* LOOP */ 64 : ; case /* MOVE */ 65 : ; case /* SET_DESIGNATION */ 70 : ; case /* DEMOBILIZE */ 71 : ; case /* ENLIST */ 73 : ; case /* CONVERT */ 74 : ; case /* SHOOT */ 75 : ; case /* TERRITORY */ 76 : ; case /* SET_DISTRIBUTE */ 77 : ; case /* SET_THRESHOLD */ 78 : ; case /* SET_CUTOFF */ 79 : ; case /* SET_DELIVER */ 80 : ; case /* BREAK */ 82 : ; case /* CONTINUE */ 83 : ; case /* ABORT */ 84 : ; case /* STOP */ 85 : ; case /* PRINTIT */ 86 : ; case /* SEND */ 87 : ; case /* TOKEN_STATEMENT */ 157 : ; LLtdecr(1); break; default:{int LL_9=LLnext(257); ;if (!LL_9) { LLtdecr(1); break; } else if (LL_9 & 1) goto L_1;} case /* CONSTANT */ 1 : ; LLtdecr(1); LL_SAFE(CONSTANT); { loop_count = current_token.t_constant; } LLread(); } } { AddInstructionSetCount(loop_count); } { instr_set = LastInstruction(); } { AddInstructionLabel(label_start); } { AddInstructionTestCount(label_end); } { instr_test = LastInstruction(); } L20_statement( label_start, label_end); { instr_set->loop_count = &instr_test->number; } { AddInstructionGoto(label_start); } { AddInstructionLabel(label_end); } } L23_repeat_statement ( ) { int label_start, label_cont, label_break; Stack expr; LLsincr(12); LLtincr(58); LLtincr(21); LLsincr(11); LLtincr(22); LL_SAFE(REPEAT); { label_break = next_label++; } { label_cont = next_label++; } { label_start = next_label++; } { AddInstructionLabel(label_start); } LLread(); L20_statement( label_cont, label_break); LLtdecr(58); LL_SCANDONE(UNTIL); LLtdecr(21); LL_NOSCANDONE(BRACKET_OPEN); LLsdecr(11); L3_parse_expression( &expr); { AddInstructionLabel(label_cont); } LLtdecr(22); LL_SCANDONE(BRACKET_CLOSE); { AddInstructionEval(expr, label_start, 0); } { AddInstructionLabel(label_break); } } L24_while_statement ( ) { int label_start, label_end; Stack expr; LLsincr(11); LLtincr(22); LLsincr(12); LL_SAFE(WHILE); { label_start = next_label++; } { label_end = next_label++; } LL_NOSCANDONE(BRACKET_OPEN); { AddInstructionLabel(label_start); } LLsdecr(11); L3_parse_expression( &expr); LLtdecr(22); LL_SCANDONE(BRACKET_CLOSE); { AddInstructionEval(expr, 0, label_end); } LLread(); L20_statement( label_start, label_end); { AddInstructionGoto(label_start); } { AddInstructionLabel(label_end); } } L25_if_statement ( label_cont,label_break) int label_cont; int label_break; { int label_else, label_end; Stack expr; LLsincr(11); LLtincr(22); LLtincr(62); LLsincr(12); LLtincr(63); LL_SAFE(IF); { label_else = next_label++; } LL_NOSCANDONE(BRACKET_OPEN); { label_end = next_label++; } LLsdecr(11); L3_parse_expression( &expr); LLtdecr(22); LL_SCANDONE(BRACKET_CLOSE); { AddInstructionEval(expr, 0, label_else); } LLtdecr(62); LL_NOSCANDONE(THEN); LLread(); L20_statement( label_cont, label_break); { AddInstructionGoto(label_end); } { AddInstructionLabel(label_else); } L_1 : {switch(LLcsymb) { case /* ELSE */ 63 : ; if ((LLsymb == ELSE)) goto L_2; case /* EOFILE */ 0 : ; case /* BEGIN */ 55 : ; case /* END */ 56 : ; case /* REPEAT */ 57 : ; case /* UNTIL */ 58 : ; case /* WHILE */ 59 : ; case /* IF */ 61 : ; case /* LOOP */ 64 : ; case /* MOVE */ 65 : ; case /* SET_DESIGNATION */ 70 : ; case /* DEMOBILIZE */ 71 : ; case /* ENLIST */ 73 : ; case /* CONVERT */ 74 : ; case /* SHOOT */ 75 : ; case /* TERRITORY */ 76 : ; case /* SET_DISTRIBUTE */ 77 : ; case /* SET_THRESHOLD */ 78 : ; case /* SET_CUTOFF */ 79 : ; case /* SET_DELIVER */ 80 : ; case /* BREAK */ 82 : ; case /* CONTINUE */ 83 : ; case /* ABORT */ 84 : ; case /* STOP */ 85 : ; case /* PRINTIT */ 86 : ; case /* SEND */ 87 : ; case /* TOKEN_STATEMENT */ 157 : ; LLtdecr(63); break; default:{int LL_10=LLnext(319); ;if (!LL_10) { LLtdecr(63); break; } else if (LL_10 & 1) goto L_1;} L_2 : ; LLtdecr(63); LLsincr(12); LL_SAFE(ELSE); LLread(); L20_statement( label_cont, label_break); } } { AddInstructionLabel(label_end); } } L26_do_statement ( label_cont,label_break) int label_cont, label_break; { Action action = (Action) doalloc(sizeof(struct _Action)); int label_next = next_label++; Stack expr; Instruction instr; memset(action, '\0', sizeof(struct _Action)); AddInstructionAction(action, label_next); instr = LastInstruction(); switch(LLcsymb) { case /* MOVE */ 65 : ; case /* SET_DESIGNATION */ 70 : ; case /* DEMOBILIZE */ 71 : ; case /* ENLIST */ 73 : ; case /* CONVERT */ 74 : ; case /* SHOOT */ 75 : ; case /* TERRITORY */ 76 : ; case /* SET_DISTRIBUTE */ 77 : ; case /* SET_THRESHOLD */ 78 : ; case /* SET_CUTOFF */ 79 : ; case /* SET_DELIVER */ 80 : ; LLtincr(81); switch(LLcsymb) { case /* MOVE */ 65 : ; LLsincr(13); LLtincr(66); LLtincr(68); LLtincr(69); LLsincr(14); LL_SAFE(MOVE); { SetActionStruct(action, MOVE); } L3_parse_expression( &expr); { action->u_move->quantity = expr; } L_8: ; switch(LLcsymb) { case /* CIVILIANS */ 100 : ; L_9: ; LLsdecr(13); LL_SSCANDONE(CIVILIANS); { action->u_move->commodity = 'c'; } break; default: if (LLskip()) goto L_8; goto L_9; case /* MILITARY */ 101 : ; LLsdecr(13); LL_SAFE(MILITARY); { action->u_move->commodity = 'm'; } break; case /* FOOD */ 43 : ; case /* DUST */ 44 : ; case /* OIL */ 45 : ; case /* IRON */ 46 : ; case /* UW */ 47 : ; case /* GUNS */ 48 : ; case /* BARS */ 49 : ; case /* PETROL */ 50 : ; case /* LCMS */ 51 : ; case /* HCMS */ 52 : ; case /* SHELLS */ 53 : ; case /* RADS */ 54 : ; case /* TOKEN_COMMODITY */ 159 : ; LLsdecr(13); LLsincr(15); L27_commodity( &action->u_move->commodity); break; } LLread(); L_10 : {switch(LLcsymb) { case /* VIA */ 68 : ; case /* TO */ 69 : ; LLtdecr(66); break; default:{int LL_11=LLnext(322); ;if (!LL_11) { LLtdecr(66); break; } else if (LL_11 & 1) goto L_10;} case /* FROM */ 66 : ; LLtdecr(66); LLsincr(14); LL_SAFE(FROM); L28_location( &action->u_move->from_loc); } } for (;;) { L_11 : {switch(LLcsymb) { case /* TO */ 69 : ; break; default:{int LL_12=LLnext(324); ;if (!LL_12) { break; } else if (LL_12 & 1) goto L_11;} case /* VIA */ 68 : ; LL_SAFE(VIA); LLread(); L7_sector_expression( &expr); { LinkExprList(&action->u_move->via_list,expr);} LLread(); continue; } } LLtdecr(68); break; } LLtdecr(69); LL_SSCANDONE(TO); L28_location( &action->u_move->to_loc); break; case /* SET_DESIGNATION */ 70 : ; LLsincr(1); LLtincr(69); LLtincr(2); LL_SAFE(SET_DESIGNATION); { SetActionStruct(action, SET_DESIGNATION); } LLread(); L_12 : {switch(LLcsymb) { case /* TO */ 69 : ; LLsdecr(1); break; default:{int LL_13=LLnext(-21); ;if (!LL_13) { LLsdecr(1); break; } else if (LL_13 & 1) goto L_12;} case /* SQUARE_BRACKET_OPEN */ 23 : ; case /* CURRENT */ 88 : ; case /* WAREHOUSE */ 89 : ; case /* TOKEN_SECTOR */ 156 : ; LLsdecr(1); L7_sector_expression( &action->u_designate->sector_expr); LLread(); } } LLtdecr(69); LL_SCANDONE(TO); LLtdecr(2); LL_NOSCANDONE(CHARACTER); { action->u_designate->flag = current_token.t_character; } LLread(); break; default: LLtincr(72); LL_SAFE(DEMOBILIZE); { SetActionStruct(action, DEMOBILIZE); } { action->u_demobilize->flag = 'y'; } L29_default_statement( action->u_demobilize, DEMOBILIZE); L_13 : {switch(LLcsymb) { case /* EOFILE */ 0 : ; case /* BEGIN */ 55 : ; case /* END */ 56 : ; case /* REPEAT */ 57 : ; case /* UNTIL */ 58 : ; case /* WHILE */ 59 : ; case /* IF */ 61 : ; case /* ELSE */ 63 : ; case /* LOOP */ 64 : ; case /* MOVE */ 65 : ; case /* SET_DESIGNATION */ 70 : ; case /* DEMOBILIZE */ 71 : ; case /* ENLIST */ 73 : ; case /* CONVERT */ 74 : ; case /* SHOOT */ 75 : ; case /* TERRITORY */ 76 : ; case /* SET_DISTRIBUTE */ 77 : ; case /* SET_THRESHOLD */ 78 : ; case /* SET_CUTOFF */ 79 : ; case /* SET_DELIVER */ 80 : ; case /* ON_FAIL */ 81 : ; case /* BREAK */ 82 : ; case /* CONTINUE */ 83 : ; case /* ABORT */ 84 : ; case /* STOP */ 85 : ; case /* PRINTIT */ 86 : ; case /* SEND */ 87 : ; case /* TOKEN_STATEMENT */ 157 : ; LLtdecr(72); break; default:{int LL_14=LLnext(328); ;if (!LL_14) { LLtdecr(72); break; } else if (LL_14 & 1) goto L_13;} case /* NO_RESERVE */ 72 : ; LLtdecr(72); LL_SAFE(NO_RESERVE); { action->u_demobilize->flag = 'n'; } LLread(); } } break; case /* ENLIST */ 73 : ; LL_SAFE(ENLIST); { SetActionStruct(action, ENLIST); } L29_default_statement( action->u_enlist, ENLIST); break; case /* CONVERT */ 74 : ; LL_SAFE(CONVERT); { SetActionStruct(action, CONVERT); } L29_default_statement( action->u_convert, CONVERT); break; case /* SHOOT */ 75 : ; LLsincr(16); LL_SAFE(SHOOT); { SetActionStruct(action, SHOOT); } L29_default_statement( action->u_shoot, SHOOT); L_15: ; switch(LLcsymb) { case /* CIVILIANS */ 100 : ; L_16: ; LLsdecr(16); LL_SSCANDONE(CIVILIANS); { action->u_shoot->flag = 'c'; } break; default: if (LLskip()) goto L_15; goto L_16; case /* UW */ 47 : ; LLsdecr(16); LL_SAFE(UW); { action->u_shoot->flag = 'u'; } break; } LLread(); break; case /* SET_DISTRIBUTE */ 77 : ; LLtincr(66); LLtincr(69); LLsincr(14); LL_SAFE(SET_DISTRIBUTE); { SetActionStruct(action, SET_DISTRIBUTE); } LLread(); L_17 : {switch(LLcsymb) { case /* TO */ 69 : ; LLtdecr(66); break; default:{int LL_15=LLnext(322); ;if (!LL_15) { LLtdecr(66); break; } else if (LL_15 & 1) goto L_17;} case /* FROM */ 66 : ; LLtdecr(66); LL_SAFE(FROM); LLread(); L7_sector_expression( &action->u_distribute->sector_expr); LLread(); } } LLtdecr(69); LL_SCANDONE(TO); L28_location( &action->u_distribute->to_loc); break; case /* SET_THRESHOLD */ 78 : ; LL_SAFE(SET_THRESHOLD); { SetActionStruct(action, SET_THRESHOLD); } L30_default_commodity_statement( action->u_threshold, SET_THRESHOLD); break; case /* SET_CUTOFF */ 79 : ; LL_SAFE(SET_CUTOFF); { SetActionStruct(action, SET_CUTOFF); } L30_default_commodity_statement( action->u_cutoff, SET_CUTOFF); break; case /* SET_DELIVER */ 80 : ; LLsincr(1); LLsincr(15); LLtincr(69); LLsincr(1); LL_SAFE(SET_DELIVER); { SetActionStruct(action, SET_DELIVER); } LLread(); L_18 : {switch(LLcsymb) { case /* FOOD */ 43 : ; case /* DUST */ 44 : ; case /* OIL */ 45 : ; case /* IRON */ 46 : ; case /* UW */ 47 : ; case /* GUNS */ 48 : ; case /* BARS */ 49 : ; case /* PETROL */ 50 : ; case /* LCMS */ 51 : ; case /* HCMS */ 52 : ; case /* SHELLS */ 53 : ; case /* RADS */ 54 : ; case /* TOKEN_COMMODITY */ 159 : ; LLsdecr(1); break; default:{int LL_16=LLnext(-21); ;if (!LL_16) { LLsdecr(1); break; } else if (LL_16 & 1) goto L_18;} case /* SQUARE_BRACKET_OPEN */ 23 : ; case /* CURRENT */ 88 : ; case /* WAREHOUSE */ 89 : ; case /* TOKEN_SECTOR */ 156 : ; LLsdecr(1); L7_sector_expression( &action->u_deliver->sector_expr); LLread(); } } L27_commodity( &action->u_deliver->commodity); LLtdecr(69); LL_NOSCANDONE(TO); LLread(); LLsdecr(1); L7_sector_expression( &action->u_deliver->dest_sector); LLread(); break; case /* TERRITORY */ 76 : ; LL_SAFE(TERRITORY); { SetActionStruct(action, TERRITORY); } L29_default_statement( action->u_territory, TERRITORY); break; } L_19 : {switch(LLcsymb) { case /* EOFILE */ 0 : ; case /* BEGIN */ 55 : ; case /* END */ 56 : ; case /* REPEAT */ 57 : ; case /* UNTIL */ 58 : ; case /* WHILE */ 59 : ; case /* IF */ 61 : ; case /* ELSE */ 63 : ; case /* LOOP */ 64 : ; case /* MOVE */ 65 : ; case /* SET_DESIGNATION */ 70 : ; case /* DEMOBILIZE */ 71 : ; case /* ENLIST */ 73 : ; case /* CONVERT */ 74 : ; case /* SHOOT */ 75 : ; case /* TERRITORY */ 76 : ; case /* SET_DISTRIBUTE */ 77 : ; case /* SET_THRESHOLD */ 78 : ; case /* SET_CUTOFF */ 79 : ; case /* SET_DELIVER */ 80 : ; case /* BREAK */ 82 : ; case /* CONTINUE */ 83 : ; case /* ABORT */ 84 : ; case /* STOP */ 85 : ; case /* PRINTIT */ 86 : ; case /* SEND */ 87 : ; case /* TOKEN_STATEMENT */ 157 : ; LLtdecr(81); break; default:{int LL_17=LLnext(337); ;if (!LL_17) { LLtdecr(81); break; } else if (LL_17 & 1) goto L_19;} case /* ON_FAIL */ 81 : ; LLtdecr(81); LL_SAFE(ON_FAIL); { int error_label = next_label++; AddInstructionLabel(error_label); SetErrorLabel(instr, error_label); } L31_fail_clause( label_cont, label_break); LLread(); } } { AddInstructionLabel(label_next); } break; default: LLtincr(56); LL_SAFE(PRINTIT); { SetActionStruct(action, PRINTIT); } L32_output_expr( &action->u_print); LLtdecr(56); LL_SCANDONE(END); { AddInstructionLabel(label_next); } LLread(); break; case /* SEND */ 87 : ; LLtincr(56); LL_SAFE(SEND); { SetActionStruct(action, SEND); } L32_output_expr( &action->u_send); LLtdecr(56); LL_SCANDONE(END); { AddInstructionLabel(label_next); } LLread(); break; } } L27_commodity ( commodity) int *commodity; { L_2: ; switch(LLcsymb) { case /* FOOD */ 43 : ; case /* DUST */ 44 : ; case /* OIL */ 45 : ; case /* IRON */ 46 : ; case /* UW */ 47 : ; case /* GUNS */ 48 : ; case /* BARS */ 49 : ; case /* PETROL */ 50 : ; case /* LCMS */ 51 : ; case /* HCMS */ 52 : ; case /* SHELLS */ 53 : ; case /* RADS */ 54 : ; LLsdecr(15); { SetCommodityType(current_token.value, commodity); } break; case /* TOKEN_COMMODITY */ 159 : ; L_3: ; LLsdecr(15); LL_SSCANDONE(TOKEN_COMMODITY); break; default: if (LLskip()) goto L_2; goto L_3; } } L28_location ( loc) Location loc; { int type; Stack expr; LLread(); L_2: ; switch(LLcsymb) { case /* SQUARE_BRACKET_OPEN */ 23 : ; case /* CURRENT */ 88 : ; case /* WAREHOUSE */ 89 : ; case /* TOKEN_SECTOR */ 156 : ; L_3: ; LLsdecr(14); { loc->type = LOC_SECTOR; } L7_sector_expression( &loc->l_sector_expr); LLread(); break; default: if (LLskip()) goto L_2; goto L_3; case /* WHERE */ 67 : ; LLsdecr(14); LLsincr(17); { loc->type = LOC_WHERE; } LLsdecr(17); LLtincr(67); for (;;) { LL_SAFE(WHERE); L4_parse_type_expression( &expr, &type); { CheckType(&type, T_EVALUATE, E_ARG, WHERE); } { LinkExprList(&loc->l_where_list, expr); } L_4 : {switch(LLcsymb) { case /* EOFILE */ 0 : ; case /* BEGIN */ 55 : ; case /* END */ 56 : ; case /* REPEAT */ 57 : ; case /* UNTIL */ 58 : ; case /* WHILE */ 59 : ; case /* IF */ 61 : ; case /* ELSE */ 63 : ; case /* LOOP */ 64 : ; case /* MOVE */ 65 : ; case /* VIA */ 68 : ; case /* TO */ 69 : ; case /* SET_DESIGNATION */ 70 : ; case /* DEMOBILIZE */ 71 : ; case /* ENLIST */ 73 : ; case /* CONVERT */ 74 : ; case /* SHOOT */ 75 : ; case /* TERRITORY */ 76 : ; case /* SET_DISTRIBUTE */ 77 : ; case /* SET_THRESHOLD */ 78 : ; case /* SET_CUTOFF */ 79 : ; case /* SET_DELIVER */ 80 : ; case /* ON_FAIL */ 81 : ; case /* BREAK */ 82 : ; case /* CONTINUE */ 83 : ; case /* ABORT */ 84 : ; case /* STOP */ 85 : ; case /* PRINTIT */ 86 : ; case /* SEND */ 87 : ; case /* TOKEN_STATEMENT */ 157 : ; break; default:{int LL_18=LLnext(323); ;if (!LL_18) { break; } else if (LL_18 & 1) goto L_4;} case /* WHERE */ 67 : ; continue; } } LLtdecr(67); break; } break; } } L29_default_statement ( result,function) struct _Simple *result; int function; { LLsincr(1); LLsincr(0); LLread(); L_1 : {switch(LLcsymb) { case /* SQUARE_BRACKET_OPEN */ 23 : ; case /* CURRENT */ 88 : ; case /* WAREHOUSE */ 89 : ; case /* TOKEN_SECTOR */ 156 : ; if ((current_token.symtab->type == T_SECTOR)) goto L_2; case /* CONSTANT */ 1 : ; case /* CHARACTER */ 2 : ; case /* STRING */ 3 : ; case /* MINUS */ 12 : ; case /* BRACKET_OPEN */ 21 : ; case /* NOT */ 29 : ; case /* TRUE */ 30 : ; case /* FALSE */ 31 : ; case /* POPULATION */ 32 : ; case /* ROUND_FUNC */ 33 : ; case /* FLOOR_FUNC */ 34 : ; case /* CEIL_FUNC */ 35 : ; case /* THRESHOLD_MOD */ 36 : ; case /* RESOURCE_MOD */ 37 : ; case /* SECTOR_MOD */ 38 : ; case /* SHIP_MOD */ 39 : ; case /* PLANE_MOD */ 40 : ; case /* NUKE_MOD */ 41 : ; case /* URANIUM */ 42 : ; case /* FOOD */ 43 : ; case /* DUST */ 44 : ; case /* OIL */ 45 : ; case /* IRON */ 46 : ; case /* UW */ 47 : ; case /* GUNS */ 48 : ; case /* BARS */ 49 : ; case /* PETROL */ 50 : ; case /* LCMS */ 51 : ; case /* HCMS */ 52 : ; case /* SHELLS */ 53 : ; case /* RADS */ 54 : ; case /* BAD_SECTOR */ 90 : ; case /* XLOC */ 91 : ; case /* YLOC */ 92 : ; case /* OWNER */ 93 : ; case /* DESIGNATION */ 94 : ; case /* NEW_DESIG */ 95 : ; case /* EFFICIENCY */ 96 : ; case /* WORK */ 97 : ; case /* AVAILABLE */ 98 : ; case /* MOBILITY */ 99 : ; case /* CIVILIANS */ 100 : ; case /* MILITARY */ 101 : ; case /* PLANES */ 102 : ; case /* SHIPS */ 103 : ; case /* NUKES */ 104 : ; case /* OCCUPIED */ 105 : ; case /* OWNED */ 106 : ; case /* COAST */ 107 : ; case /* FOOD_USED */ 108 : ; case /* STARVATION */ 109 : ; case /* HAS_PLAN */ 111 : ; case /* IS_ACTIVE */ 112 : ; case /* PLAGUE */ 113 : ; case /* PLAGUE_STAGE */ 114 : ; case /* HAPPY */ 115 : ; case /* HAPPY_STATE */ 116 : ; case /* HAPPY_LOYAL */ 117 : ; case /* HAPPY_UNREST */ 118 : ; case /* HAPPY_REVOL */ 119 : ; case /* HAPPY_TERROR */ 120 : ; case /* HAPPY_GUERRE */ 121 : ; case /* PLAGUE_HEALTHY */ 122 : ; case /* PLAGUE_INFECTED */ 123 : ; case /* PLAGUE_DYING */ 124 : ; case /* SPE */ 125 : ; case /* EPU */ 126 : ; case /* IRATE */ 127 : ; case /* CTRATE */ 128 : ; case /* UTRATE */ 129 : ; case /* AMCRATE */ 130 : ; case /* RMCRATE */ 131 : ; case /* FRATE */ 132 : ; case /* HRATE */ 133 : ; case /* CBRATE */ 134 : ; case /* UBRATE */ 135 : ; case /* ERATE */ 136 : ; case /* BERATE */ 137 : ; case /* NAME */ 138 : ; case /* TYPE */ 139 : ; case /* TECH */ 140 : ; case /* NUMBER */ 141 : ; case /* FLEET */ 142 : ; case /* RADAR */ 143 : ; case /* SONAR */ 144 : ; case /* MOVES */ 145 : ; case /* WING */ 146 : ; case /* RANGE */ 147 : ; case /* MAXRANGE */ 148 : ; case /* ATTACK */ 149 : ; case /* DEFENSE */ 150 : ; case /* HARDEN */ 151 : ; case /* LOAD */ 152 : ; case /* STOCKPILE */ 153 : ; case /* TOKEN_EXPRESSION */ 154 : ; case /* TOKEN_NAME */ 155 : ; case /* TOKEN_NUMERIC_EXPR */ 158 : ; case /* LANDS */ 159 : ; LLsdecr(1); break; default:{int LL_19=LLnext(-21); ;if (!LL_19) { LLsdecr(1); break; } else if (LL_19 & 1) goto L_1;} L_2 : ; LLsdecr(1); L7_sector_expression( &result->sector_expr); LLread(); } } L5_numeric_expression( &result->quantity, function); } L30_default_commodity_statement ( result,function) struct _Simple *result; int function; { LLsincr(1); LLsincr(15); LLsincr(0); LLread(); L_1 : {switch(LLcsymb) { case /* FOOD */ 43 : ; case /* DUST */ 44 : ; case /* OIL */ 45 : ; case /* IRON */ 46 : ; case /* UW */ 47 : ; case /* GUNS */ 48 : ; case /* BARS */ 49 : ; case /* PETROL */ 50 : ; case /* LCMS */ 51 : ; case /* HCMS */ 52 : ; case /* SHELLS */ 53 : ; case /* RADS */ 54 : ; case /* TOKEN_COMMODITY */ 159 : ; LLsdecr(1); break; default:{int LL_20=LLnext(-21); ;if (!LL_20) { LLsdecr(1); break; } else if (LL_20 & 1) goto L_1;} case /* SQUARE_BRACKET_OPEN */ 23 : ; case /* CURRENT */ 88 : ; case /* WAREHOUSE */ 89 : ; case /* TOKEN_SECTOR */ 156 : ; LLsdecr(1); L7_sector_expression( &result->sector_expr); LLread(); } } L27_commodity( &result->flag); LLread(); L5_numeric_expression( &result->quantity, function); } L31_fail_clause ( label_cont,label_break) int label_cont, label_break; { LLsincr(18); L33_clause_statement( label_cont, label_break); } L33_clause_statement ( label_cont,label_break) int label_cont, label_break; { LLread(); L_2: ; switch(LLcsymb) { case /* BREAK */ 82 : ; LLsdecr(18); LL_SAFE(BREAK); { AddInstructionGoto(label_break); } break; case /* CONTINUE */ 83 : ; LLsdecr(18); LL_SAFE(CONTINUE); { AddInstructionGoto(label_cont); } break; case /* STOP */ 85 : ; LLsdecr(18); LL_SAFE(STOP); { AddInstructionGoto(1); } break; case /* ABORT */ 84 : ; LLsdecr(18); LL_SAFE(ABORT); { AddInstructionGoto(2); } break; case /* TOKEN_CLAUSE */ 160 : ; L_3: ; LLsdecr(18); LL_SSCANDONE(TOKEN_CLAUSE); break; default: if (LLskip()) goto L_2; goto L_3; } } L32_output_expr ( list) Output *list; { Stack expr; LLsincr(2); LLread(); for (;;) { L_1 : {switch(LLcsymb) { case /* END */ 56 : ; break; default:{int LL_21=LLnext(-42); ;if (!LL_21) { break; } else if (LL_21 & 1) goto L_1;} case /* CONSTANT */ 1 : ; case /* CHARACTER */ 2 : ; case /* STRING */ 3 : ; case /* MINUS */ 12 : ; case /* BRACKET_OPEN */ 21 : ; case /* SQUARE_BRACKET_OPEN */ 23 : ; case /* NOT */ 29 : ; case /* TRUE */ 30 : ; case /* FALSE */ 31 : ; case /* POPULATION */ 32 : ; case /* ROUND_FUNC */ 33 : ; case /* FLOOR_FUNC */ 34 : ; case /* CEIL_FUNC */ 35 : ; case /* THRESHOLD_MOD */ 36 : ; case /* RESOURCE_MOD */ 37 : ; case /* SECTOR_MOD */ 38 : ; case /* SHIP_MOD */ 39 : ; case /* PLANE_MOD */ 40 : ; case /* NUKE_MOD */ 41 : ; case /* URANIUM */ 42 : ; case /* FOOD */ 43 : ; case /* DUST */ 44 : ; case /* OIL */ 45 : ; case /* IRON */ 46 : ; case /* UW */ 47 : ; case /* GUNS */ 48 : ; case /* BARS */ 49 : ; case /* PETROL */ 50 : ; case /* LCMS */ 51 : ; case /* HCMS */ 52 : ; case /* SHELLS */ 53 : ; case /* RADS */ 54 : ; case /* CURRENT */ 88 : ; case /* WAREHOUSE */ 89 : ; case /* BAD_SECTOR */ 90 : ; case /* XLOC */ 91 : ; case /* YLOC */ 92 : ; case /* OWNER */ 93 : ; case /* DESIGNATION */ 94 : ; case /* NEW_DESIG */ 95 : ; case /* EFFICIENCY */ 96 : ; case /* WORK */ 97 : ; case /* AVAILABLE */ 98 : ; case /* MOBILITY */ 99 : ; case /* CIVILIANS */ 100 : ; case /* MILITARY */ 101 : ; case /* PLANES */ 102 : ; case /* SHIPS */ 103 : ; case /* NUKES */ 104 : ; case /* OCCUPIED */ 105 : ; case /* OWNED */ 106 : ; case /* COAST */ 107 : ; case /* FOOD_USED */ 108 : ; case /* STARVATION */ 109 : ; case /* HAS_PLAN */ 111 : ; case /* IS_ACTIVE */ 112 : ; case /* PLAGUE */ 113 : ; case /* PLAGUE_STAGE */ 114 : ; case /* HAPPY */ 115 : ; case /* HAPPY_STATE */ 116 : ; case /* HAPPY_LOYAL */ 117 : ; case /* HAPPY_UNREST */ 118 : ; case /* HAPPY_REVOL */ 119 : ; case /* HAPPY_TERROR */ 120 : ; case /* HAPPY_GUERRE */ 121 : ; case /* PLAGUE_HEALTHY */ 122 : ; case /* PLAGUE_INFECTED */ 123 : ; case /* PLAGUE_DYING */ 124 : ; case /* SPE */ 125 : ; case /* EPU */ 126 : ; case /* IRATE */ 127 : ; case /* CTRATE */ 128 : ; case /* UTRATE */ 129 : ; case /* AMCRATE */ 130 : ; case /* RMCRATE */ 131 : ; case /* FRATE */ 132 : ; case /* HRATE */ 133 : ; case /* CBRATE */ 134 : ; case /* UBRATE */ 135 : ; case /* ERATE */ 136 : ; case /* BERATE */ 137 : ; case /* NAME */ 138 : ; case /* TYPE */ 139 : ; case /* TECH */ 140 : ; case /* NUMBER */ 141 : ; case /* FLEET */ 142 : ; case /* RADAR */ 143 : ; case /* SONAR */ 144 : ; case /* MOVES */ 145 : ; case /* WING */ 146 : ; case /* RANGE */ 147 : ; case /* MAXRANGE */ 148 : ; case /* ATTACK */ 149 : ; case /* DEFENSE */ 150 : ; case /* HARDEN */ 151 : ; case /* LOAD */ 152 : ; case /* STOCKPILE */ 153 : ; case /* TOKEN_EXPRESSION */ 154 : ; case /* TOKEN_NAME */ 155 : ; case /* TOKEN_SECTOR */ 156 : ; case /* LANDS */ 159 : ; LLtincr(26); L9_parse_factor( &expr); { LinkOutputList(list, expr); } L_2 : {switch(LLcsymb) { case /* CONSTANT */ 1 : ; case /* CHARACTER */ 2 : ; case /* STRING */ 3 : ; case /* MINUS */ 12 : ; case /* BRACKET_OPEN */ 21 : ; case /* SQUARE_BRACKET_OPEN */ 23 : ; case /* NOT */ 29 : ; case /* TRUE */ 30 : ; case /* FALSE */ 31 : ; case /* POPULATION */ 32 : ; case /* ROUND_FUNC */ 33 : ; case /* FLOOR_FUNC */ 34 : ; case /* CEIL_FUNC */ 35 : ; case /* THRESHOLD_MOD */ 36 : ; case /* RESOURCE_MOD */ 37 : ; case /* SECTOR_MOD */ 38 : ; case /* SHIP_MOD */ 39 : ; case /* PLANE_MOD */ 40 : ; case /* NUKE_MOD */ 41 : ; case /* URANIUM */ 42 : ; case /* FOOD */ 43 : ; case /* DUST */ 44 : ; case /* OIL */ 45 : ; case /* IRON */ 46 : ; case /* UW */ 47 : ; case /* GUNS */ 48 : ; case /* BARS */ 49 : ; case /* PETROL */ 50 : ; case /* LCMS */ 51 : ; case /* HCMS */ 52 : ; case /* SHELLS */ 53 : ; case /* RADS */ 54 : ; case /* END */ 56 : ; case /* CURRENT */ 88 : ; case /* WAREHOUSE */ 89 : ; case /* BAD_SECTOR */ 90 : ; case /* XLOC */ 91 : ; case /* YLOC */ 92 : ; case /* OWNER */ 93 : ; case /* DESIGNATION */ 94 : ; case /* NEW_DESIG */ 95 : ; case /* EFFICIENCY */ 96 : ; case /* WORK */ 97 : ; case /* AVAILABLE */ 98 : ; case /* MOBILITY */ 99 : ; case /* CIVILIANS */ 100 : ; case /* MILITARY */ 101 : ; case /* PLANES */ 102 : ; case /* SHIPS */ 103 : ; case /* NUKES */ 104 : ; case /* OCCUPIED */ 105 : ; case /* OWNED */ 106 : ; case /* COAST */ 107 : ; case /* FOOD_USED */ 108 : ; case /* STARVATION */ 109 : ; case /* HAS_PLAN */ 111 : ; case /* IS_ACTIVE */ 112 : ; case /* PLAGUE */ 113 : ; case /* PLAGUE_STAGE */ 114 : ; case /* HAPPY */ 115 : ; case /* HAPPY_STATE */ 116 : ; case /* HAPPY_LOYAL */ 117 : ; case /* HAPPY_UNREST */ 118 : ; case /* HAPPY_REVOL */ 119 : ; case /* HAPPY_TERROR */ 120 : ; case /* HAPPY_GUERRE */ 121 : ; case /* PLAGUE_HEALTHY */ 122 : ; case /* PLAGUE_INFECTED */ 123 : ; case /* PLAGUE_DYING */ 124 : ; case /* SPE */ 125 : ; case /* EPU */ 126 : ; case /* IRATE */ 127 : ; case /* CTRATE */ 128 : ; case /* UTRATE */ 129 : ; case /* AMCRATE */ 130 : ; case /* RMCRATE */ 131 : ; case /* FRATE */ 132 : ; case /* HRATE */ 133 : ; case /* CBRATE */ 134 : ; case /* UBRATE */ 135 : ; case /* ERATE */ 136 : ; case /* BERATE */ 137 : ; case /* NAME */ 138 : ; case /* TYPE */ 139 : ; case /* TECH */ 140 : ; case /* NUMBER */ 141 : ; case /* FLEET */ 142 : ; case /* RADAR */ 143 : ; case /* SONAR */ 144 : ; case /* MOVES */ 145 : ; case /* WING */ 146 : ; case /* RANGE */ 147 : ; case /* MAXRANGE */ 148 : ; case /* ATTACK */ 149 : ; case /* DEFENSE */ 150 : ; case /* HARDEN */ 151 : ; case /* LOAD */ 152 : ; case /* STOCKPILE */ 153 : ; case /* TOKEN_EXPRESSION */ 154 : ; case /* TOKEN_NAME */ 155 : ; case /* TOKEN_SECTOR */ 156 : ; case /* LANDS */ 159 : ; LLtdecr(26); break; default:{int LL_22=LLnext(282); ;if (!LL_22) { LLtdecr(26); break; } else if (LL_22 & 1) goto L_2;} case /* COLON */ 26 : ; LLtdecr(26); LL_SAFE(COLON); LL_NOSCANDONE(CONSTANT); { (*list)->o_tail->format = (int) (current_token.t_constant); } LLread(); } } continue; } } LLsdecr(2); break; } } xemp5.1-beta/lib/parse/run_all.c100444 12266 2116 36006 6026570231 15137 0ustar jponexor/* $Header: /a/victor/nexor/user4/jpo/xemp/xemp5.0/lib/parse/RCS/run_all.c,v 5.3 1995/09/16 15:43:21 jpo Exp $ $Date: 1995/09/16 15:43:21 $ $Author: jpo $ $Id: run_all.c,v 5.3 1995/09/16 15:43:21 jpo Exp $ $Locker: $ $Log: run_all.c,v $ Revision 5.3 1995/09/16 15:43:21 jpo Added missing break - and choose the right sector! Revision 5.2 1995/09/08 07:37:03 jpo clean up of types and names * Revision 5.1 93/03/14 16:50:41 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:02 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:40:53 greyhelm * Added RCS headers - Karl Hagen * */ /* * run_all.c */ /* Don't link file in stand_alone version */ #include #include "main.h" #include "parser.h" #include "symtab.h" #include "stack.h" #include "Lpars.h" #include "prog_defs.h" #include "eval_stack.h" #define FL_TEST_MOVE 0 /* Check how much one can move */ #define FL_RUN_MOVE 1 /* Perform actual move */ #define THRESHOLD_MOBILITY 10 /* Save to move while mob > [#define] */ static EVALSTACK stack[STACK_SIZE]; static int sp; extern double floor(); extern double ceil(); #define APPLY_OPERATOR(op, field) \ stack[sp].e_value = \ (stack[sp].field op stack[sp + 1].field) ? D1 : D0 #define STRING_COMPARE(field) \ stack[sp].e_value = \ (strcmp(stack[sp].field, stack[sp + 1].field) == 0) ? D1 : D0 /* * Local functions. */ static int ExecuteActionStatement _PROTO((Sector sct, Action action, Strings outstr, Strings sendstr)); static int ExecMoveStatement _PROTO((Sector sct, Sector from_sct, Sector dest, int *maxq, int comm, ExprList via, int status)); static void ExecOutputStatement _PROTO((Sector sct, Output outlist, Strings strings)); static void RunExpression _PROTO((Sector sct, Stack expr, bool issub)); static void RunExpressionStack _PROTO((Sector sct, Stack expr, bool issub, Ship ship, Plane plane, Nuke nuke)); static void RunTimeError _PROTO((...)); static Sector ParseFindSector _PROTO((Sector default_sct, Stack sector_expr)); double EvaluateExpression(sct, expr) Sector sct; Stack expr; { #if ! defined(STAND_ALONE) if (expr == NULL) return D0; RunExpression(sct, expr, False); return stack[0].e_value; #endif } int RunProgram(sct, program, outp_str, send_str) Sector sct; Program program; Strings outp_str, send_str; { #if ! defined(STAND_ALONE) Instruction instr; if (program == (Program) 0) return P_EMPTY; instr = (Instruction) program; if (instr->type != I_EXECUTE) { RunTimeError("Internal: Invalid program type %d", instr->type); return P_ERROR; } instr = instr->link; while (instr->type != I_STOP_PROGRAM && instr->type != I_ABORT) { if (instr->type == I_EVAL) { if (EvaluateExpression(sct, instr->expression) != D0) instr = instr->true_address; else instr = instr->false_address; } else if (instr->type == I_ACTION) { switch (ExecuteActionStatement(sct, instr->action, outp_str, send_str)) { case S_OK: instr = instr->next_address; break; case S_FAIL: instr = instr->fail_address; break; case S_ERROR: instr = instr->false_address; break; default: RunTimeError("Internal: action return value."); break; } } else if (instr->type == I_SET_COUNT) { *instr->loop_count = instr->number; instr = instr->next_address; } else if (instr->type == I_TEST_COUNT) { if (instr->number == 0) instr = instr->false_address; else { if (instr->number > 0) instr->number--; instr = instr->next_address; } } else { RunTimeError("Internal: Invalid program type %d", instr->type); return P_ERROR; } } if (instr->type == I_ABORT) return P_ABORTED; return P_OK; #endif } static Sector ParseFindSector(default_sct, sector_expr) Sector default_sct; Stack sector_expr; { #if ! defined(STAND_ALONE) if (sector_expr != (Stack) 0) { RunExpression(default_sct, sector_expr, False); return stack[0].e_sector; } return default_sct; #endif } static Sector FindLocation(sct, loc) Sector sct; Location loc; { #if ! defined (STAND_ALONE) ExprList l; Sector w_sct; switch(loc->type) { case LOC_NONE: return sct; case LOC_SECTOR: return ParseFindSector(sct, loc->l_sector_expr); case LOC_WHERE: for(l = loc->l_where_list->next; l != NULL; l = l->next) if ((w_sct = Where(sct, loc->l_sector_expr)) != (Sector)0) return w_sct; } return NULL; #endif } static int ExecuteActionStatement(sct, action, output_str, send_str) Sector sct; Action action; Strings output_str, send_str; { #if ! defined(STAND_ALONE) Sector from_sct, dest_sct; int quantity, status; switch (action->type) { case SET_DISTRIBUTE: from_sct = ParseFindSector(sct, action->u_distribute->sector_expr); dest_sct = FindLocation(sct, &action->u_distribute->to_loc); if (from_sct == NULL) return S_FAIL; if (dest_sct == NULL) return S_FAIL; ExecSetDistr(from_sct, dest_sct, 1, False, True); break; case SET_DELIVER: RunTimeError("DELIVER statement not yet implemented.\n"); break; case MOVE: from_sct = FindLocation(sct, &action->u_move->from_loc); if (from_sct == NULL) return S_FAIL; dest_sct = FindLocation(sct, &action->u_move->to_loc); if (dest_sct == NULL) return S_FAIL; quantity = (int) EvaluateExpression(from_sct, action->u_move->quantity); status = ExecMoveStatement(sct, from_sct, dest_sct, &quantity, action->u_move->commodity, action->u_move->via_list, FL_TEST_MOVE); if (status != S_OK) return status; (void) ExecMoveStatement(sct, from_sct, dest_sct, &quantity, action->u_move->commodity, action->u_move->via_list, FL_RUN_MOVE); break; case PRINTIT: ExecOutputStatement(sct, action->u_output, output_str); break; case SEND: ExecOutputStatement(sct, action->u_send, send_str); break; default: from_sct = ParseFindSector(sct, action->u_simple->sector_expr); quantity = (int) EvaluateExpression(from_sct, action->u_simple->quantity); if (from_sct == NULL) return S_FAIL; switch (action->type) { case SET_DESIGNATION: DoDesignate (CrdStr(from_sct), action->u_designate->flag); break; case DEMOBILIZE: DoDemob (CrdStr(from_sct), quantity, action->u_demobilize->flag); break; case ENLIST: DoEnlist(CrdStr(from_sct), quantity, '\0'); break; case CONVERT: DoConvert(CrdStr(from_sct), quantity, '\0'); break; case SHOOT: DoShoot(CrdStr(from_sct), quantity, action->u_shoot->flag); break; case SET_THRESHOLD: ExecSetThreshold(CrdStr(from_sct), action->u_threshold->flag, quantity); break; case SET_CUTOFF: RunTimeError("CUTOFF statement not yet implemented.\n"); break; case TERRITORY: ExecSetTer(CrdStr(from_sct), quantity); break; default: RunTimeError("Internal: invalid action type %d\n", action->type); } } return S_OK; #endif } static int ExecMoveStatement(sct, from_sct, dest_sct, max_quantity, commodity, via_list, status) Sector sct, from_sct, dest_sct; int commodity, *max_quantity; ExprList via_list; int status; { #if ! defined(STAND_ALONE) Sector next_sct; int quantity; next_sct = from_sct; do { from_sct = next_sct; if (via_list != NULL) { next_sct = ParseFindSector(sct, via_list->e_expr); via_list = via_list->next; } else next_sct = dest_sct; if (status == FL_TEST_MOVE) { quantity = GiveMaxMove(from_sct, next_sct, commodity, THRESHOLD_MOBILITY); if (quantity < 0) return S_ERROR; if (quantity == 0) return S_FAIL; if (quantity < *max_quantity) *max_quantity = quantity; } else if (ExecMove(from_sct, next_sct, *max_quantity, commodity) == False) return S_ERROR; } while (next_sct != dest_sct); return S_OK; #endif } static void ExecOutputStatement(sct, output_list, strings) Sector sct; Output output_list; Strings strings; { #if ! defined(STAND_ALONE) char buffer[512]; char sector_buffer[50]; if (output_list != NULL) output_list = output_list->next; buffer[0] = '\0'; while (output_list != NULL) { RunExpression(sct, output_list->o_expr, False); switch (stack[0].type) { case T_NUMERIC: case T_BOOLEAN: case T_PLAGUE: if (output_list->format) strcat(buffer, Fmt("%*.1lf", output_list->format, stack[0].e_value)); else strcat(buffer, Fmt("%.1lf", stack[0].e_value)); break; case T_CHARACTER: if (output_list->format) strcat(buffer, Fmt("%*c", output_list->format, stack[0].e_character)); else strcat(buffer, Fmt("%c", stack[0].e_character)); break; case T_SECTOR: if (stack[0].e_sector == NULL) strcpy(sector_buffer, "[BAD SECTOR]"); else strcpy(sector_buffer, Fmt("[%d, %d]", SectorXCoord(stack[0].e_sector), SectorYCoord(stack[0].e_sector))); if (output_list->format) strcat(buffer, Fmt("%*s", output_list->format, sector_buffer)); else strcat(buffer, sector_buffer); break; case T_STRING: if (output_list->format) strcat(buffer, Fmt("%*s", output_list->format, stack[0].e_text)); else strcat(buffer, stack[0].e_text); break; } output_list = output_list->next; } AddString(strings, buffer); #endif } static void RunExpression(sct, expr, is_subexpr) Sector sct; Stack expr; bool is_subexpr; { sp = -1; RunExpressionStack(sct, expr, is_subexpr, (Ship) 0, (Plane) 0, (Nuke)0); #if defined(PARSE_DEBUG) if (sp != -1 && sp != 0) printf("Stack ptr not -1/0 after expression eval (%d)\n", sp); #endif } static void RunExpressionStack(sct, expr, is_subexpr, ship, plane, nuke) Sector sct; Stack expr; bool is_subexpr; Ship ship; Plane plane; Nuke nuke; { const char *ptr1, *ptr2; Stack subexpr; Ship s_ship; Plane s_plane; Nuke s_nuke; int modifier; #if defined(PARSE_DEBUG) int save_sp; #endif #if ! defined(STAND_ALONE) for (expr = expr->next; expr != NULL; expr = expr->next) { if (expr->type == S_SUBEXPREND && is_subexpr == True) return; if (expr->type == S_SUBEXPRSTART) { if (expr->e_new_modifier == MP_SHIP) { stack[++sp].e_value = D0; #if defined(PARSE_DEBUG) save_sp = sp; #endif for (s_ship = FirstShip(sct, expr->e_old_modifier, plane); s_ship != (Ship) 0; s_ship = NextShip(s_ship, plane)) { RunExpressionStack(sct, expr, True, s_ship, plane, nuke); sp--; #if defined(PARSE_DEBUG) if (save_sp != sp) printf ("SP changed! from %d to %d\n", save_sp, sp); #endif stack[sp].e_value += stack[sp + 1].e_value; } } else if (expr->e_new_modifier == MP_PLANE) { stack[++sp].e_value = D0; for (s_plane = FirstPlane(sct, expr->e_old_modifier, ship); s_plane != (Plane) 0; s_plane = NextPlane(s_plane, ship)) { RunExpressionStack(sct, expr, True, ship, s_plane, nuke); sp--; stack[sp].e_value += stack[sp + 1].e_value; } } else if (expr->e_new_modifier == MP_NUKE) { stack[++sp].e_value = D0; for (s_nuke = FirstNuke(sct, expr->e_old_modifier, plane); s_nuke != (Nuke) 0; s_nuke = NextNuke(s_nuke, plane)) { RunExpressionStack(sct, expr, True, ship, plane, s_nuke); sp--; stack[sp].e_value += stack[sp + 1].e_value; } } while (expr->type != S_SUBEXPREND) expr = expr->next; continue; } /* Push */ if (expr->type == S_PUSH) { stack[++sp].type = expr->p_type; switch (expr->p_type) { case T_TOKEN: GetTokenValue(sct, expr->p_modifier, expr->p_token, ship, plane, nuke, &stack[sp]); break; case T_NUMERIC: stack[sp].e_value = expr->p_constant; break; case T_STRING: stack[sp].e_text = expr->p_text; break; case T_CHARACTER: stack[sp].e_character = expr->p_character; break; } continue; } /* Calculate */ switch (expr->c_operator) { case LEFT_OR: sp--; if (stack[sp + 1].e_value == D1) return; break; case RIGHT_OR: sp--; if (stack[sp + 1].e_value == D1) { stack[sp].e_value = D1; return; } break; case LEFT_AND: sp--; if (stack[sp + 1].e_value == D0) return; break; case RIGHT_AND: sp--; if (stack[sp + 1].e_value == D0) { stack[sp].e_value = D0; return; } break; case NEGATE: stack[sp].e_value = -stack[sp].e_value; break; case ROUND_FUNC: stack[sp].e_value = floor(stack[sp].e_value + (double) 0.5); break; case FLOOR_FUNC: stack[sp].e_value = floor(stack[sp].e_value); break; case CEIL_FUNC: stack[sp].e_value = ceil(stack[sp].e_value); break; case SECTOR_FUNC: sp--; stack[sp].e_sector = WorldSector( (int) stack[sp + 1].e_value, (int) stack[sp + 2].e_value); stack[sp].type = T_SECTOR; break; case NOT: stack[sp].e_value = stack[sp].e_value ? D0 : D1; break; case MINUS: sp--; stack[sp].e_value -= stack[sp + 1].e_value; break; case PLUS: sp--; stack[sp].e_value += stack[sp + 1].e_value; break; case TIMES: sp--; stack[sp].e_value *= stack[sp + 1].e_value; break; case DIVIDE: sp--; if (stack[sp + 1].e_value == D0) stack[sp].e_value = D0; else stack[sp].e_value /=stack[sp+1].e_value; break; default: sp--; stack[sp].type = T_BOOLEAN; switch(expr->c_operator) { case SMALLER: APPLY_OPERATOR(<, e_value); break; case LARGER: APPLY_OPERATOR(>, e_value); break; case SMALLER_EQ: APPLY_OPERATOR(<=, e_value); break; case LARGER_EQ: APPLY_OPERATOR(>=, e_value); break; case MATCHES: ptr1 = stack[sp].e_text; ptr2 = stack[sp + 1].e_text; if (ptr1 == NULL) ptr1 = ""; if (ptr2 == NULL) ptr2 = ""; while (*ptr1 == *ptr2 && *ptr1 != '\0') { ptr1++; ptr2++; } if (*ptr1 == '\0' || *ptr2 == '\0') stack[sp].e_value = D1; else stack[sp].e_value = D0; break; case UNEQUALS: case EQUALS: switch (expr->c_calctype) { case T_NUMERIC: case T_BOOLEAN: case T_PLAGUE: APPLY_OPERATOR(==, e_value); break; case T_CHARACTER: APPLY_OPERATOR(==, e_character); break; case T_SECTOR: APPLY_OPERATOR(==, e_sector); break; case T_STRING: if (stack[sp].e_text == NULL) stack[sp].e_text = ""; if (stack[sp + 1].e_text == NULL) stack[sp + 1].e_text = ""; STRING_COMPARE(e_text); break; default: #if defined(PARSE_DEBUG) printf("Bad type in EQ/UNEQ: %d\n", expr->c_calctype); #endif break; } if (expr->c_operator == UNEQUALS) stack[sp].e_value = stack[sp].e_value ? D0 : D1; break; default: #if defined(PARSE_DEBUG) printf("Bad type for calc: %d\n", expr->c_operator); #endif break; } } } #endif } #include /*VARARGS0*/ static void RunTimeError(va_alist) va_dcl { #if ! defined(STAND_ALONE) char msg_buf[100]; va_list arglist; char *fmt; va_start(arglist); fmt = va_arg(arglist, char *); vsprintf(msg_buf, fmt, arglist); va_end(arglist); Error(msg_buf); #endif } xemp5.1-beta/lib/parse/stack.h100444 12266 2116 3532 6023771306 14576 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/parse/RCS/stack.h,v 5.1 1993/03/14 16:50:53 etienne Exp $ $Date: 1993/03/14 16:50:53 $ $Author: etienne $ $Id: stack.h,v 5.1 1993/03/14 16:50:53 etienne Exp $ $Locker: $ $Log: stack.h,v $ Revision 5.1 1993/03/14 16:50:53 etienne *** empty log message *** * Revision 5.0 93/02/06 09:23:02 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:40:53 greyhelm * Added RCS headers - Karl Hagen * */ /* * stack.h */ typedef struct _Stack { int type; struct _Stack *next; union _u_stack { struct _u_push { int type; int modifier; union _p_u { char *p_u_text; double p_u_constant; char p_u_character; int p_u_token; } p_u; } u_push; struct _u_calc { int c_u_operator; int c_u_calctype; } u_calc; struct _u_expr { int e_u_old_modifier; int e_u_new_modifier; } u_expr; struct _Stack *tail; } u_stack; } STACK; #define s_tail u_stack.tail #define c_calctype u_stack.u_calc.c_u_calctype #define c_operator u_stack.u_calc.c_u_operator #define e_old_modifier u_stack.u_expr.e_u_old_modifier #define e_new_modifier u_stack.u_expr.e_u_new_modifier #define p_type u_stack.u_push.type #define p_modifier u_stack.u_push.modifier #define p_text u_stack.u_push.p_u.p_u_text #define p_constant u_stack.u_push.p_u.p_u_constant #define p_character u_stack.u_push.p_u.p_u_character #define p_token u_stack.u_push.p_u.p_u_token #define S_HEAD 0 #define S_SUBEXPRSTART 1 #define S_SUBEXPREND 2 #define S_PUSH 3 #define S_CALC 4 #define D0 (double) 0 #define D1 (double) 1 /* Error codes */ #define E_EVAL 0 #define E_OR_TYPE 1 #define E_AND_TYPE 2 #define E_LHS 3 #define E_RHS 4 #define E_ARG 5 #define E_MOD 6 #define E_SECA1 7 #define E_SECA2 8 xemp5.1-beta/lib/parse/token.h100444 12266 2116 1651 6023771306 14611 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/parse/RCS/token.h,v 5.1 1993/03/14 16:50:55 etienne Exp $ $Date: 1993/03/14 16:50:55 $ $Author: etienne $ $Id: token.h,v 5.1 1993/03/14 16:50:55 etienne Exp $ $Locker: $ $Log: token.h,v $ Revision 5.1 1993/03/14 16:50:55 etienne *** empty log message *** * Revision 5.0 93/02/06 09:23:02 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:40:53 greyhelm * Added RCS headers - Karl Hagen * */ /* * token.h */ typedef struct _Token { int value; Symtab symtab; union _u_token { double u_t_constant; char u_t_character; char *u_t_text; } u_token; } TOKEN, *Token; #define t_constant u_token.u_t_constant #define t_character u_token.u_t_character #define t_text u_token.u_t_text extern TOKEN current_token, stacked_token; extern char *TokenName(); xemp5.1-beta/lib/parse/symtab.c100444 12266 2116 25251 6023771306 15005 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/parse/RCS/symtab.c,v 5.2 1995/09/08 07:37:26 jpo Exp $ $Date: 1995/09/08 07:37:26 $ $Author: jpo $ $Id: symtab.c,v 5.2 1995/09/08 07:37:26 jpo Exp $ $Locker: $ $Log: symtab.c,v $ Revision 5.2 1995/09/08 07:37:26 jpo PRINT to PRINTIT * Revision 5.1 93/03/14 16:50:43 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:02 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:40:53 greyhelm * Added RCS headers - Karl Hagen * */ /* * symtab.c */ #include "Lpars.h" #include "symtab.h" /* * This table is searched with simple strcmps. Make sure that abbriviations * of longer tokens are put after that longer one. E.g. put "=" AFTER "==" * in the table. */ SYMTAB special_chars_symtab[] = { /* Expression keywords */ { "*", TIMES, T_NONE, MP_NONE }, { "+", PLUS, T_NONE, MP_NONE }, { "-", MINUS, T_NONE, MP_NONE }, { "/", DIVIDE, T_NONE, MP_NONE }, { "==", EQUALS, T_NONE, MP_NONE }, { "=", EQUALS, T_NONE, MP_NONE }, { "<>", UNEQUALS, T_NONE, MP_NONE }, { "!=", UNEQUALS, T_NONE, MP_NONE }, { "~", MATCHES, T_NONE, MP_NONE }, { "<=", SMALLER_EQ, T_NONE, MP_NONE }, { ">=", LARGER_EQ, T_NONE, MP_NONE }, { "<", SMALLER, T_NONE, MP_NONE }, { ">", LARGER, T_NONE, MP_NONE }, { "&&", AND, T_NONE, MP_NONE }, { "||", OR, T_NONE, MP_NONE }, { "!", NOT, T_BOOLEAN, MP_NONE }, { "(", BRACKET_OPEN, T_NONE, MP_NONE }, { ")", BRACKET_CLOSE, T_NONE, MP_NONE }, { "[", SQUARE_BRACKET_OPEN, T_SECTOR, MP_NONE }, { "]", SQUARE_BRACKET_CLOSE, T_NONE, MP_NONE }, { ",", COMMA, T_NONE, MP_NONE }, { ":", COLON, T_NONE, MP_NONE }, { "@", CURRENT, T_SECTOR, MP_NONE }, /* Program keywords */ { "{", BEGIN, T_NONE, MP_NONE }, { "}", END, T_NONE, MP_NONE }, { (char *) 0, 0, T_NONE, MP_NONE } }; SYMTAB text_symtab[] = { /* Expression keywords */ { "and", AND, T_NONE, MP_NONE }, { "or", OR, T_NONE, MP_NONE }, { "not", NOT, T_BOOLEAN, MP_NONE }, { "true", TRUE, T_BOOLEAN, MP_NONE }, { "false", FALSE, T_BOOLEAN, MP_NONE }, { "round", ROUND_FUNC, T_NUMERIC, MP_NONE }, { "floor", FLOOR_FUNC, T_NUMERIC, MP_NONE }, { "ceil", CEIL_FUNC, T_NUMERIC, MP_NONE }, { "threshold", THRESHOLD_MOD, T_NONE, MP_NONE }, { "t", THRESHOLD_MOD, T_NONE, MP_NONE }, { "resource", RESOURCE_MOD, T_NONE, MP_NONE }, { "r", RESOURCE_MOD, T_NONE, MP_NONE }, { "sector", SECTOR_MOD, T_SECTOR, MP_NONE }, { "ship", SHIP_MOD, T_NONE, MP_NONE }, { "plane", PLANE_MOD, T_NONE, MP_NONE }, { "nuke", NUKE_MOD, T_NONE, MP_NONE }, /* Commodity and resource keywords */ { "uranium", URANIUM, T_NUMERIC, MP_RESO }, { "ura", URANIUM, T_NUMERIC, MP_RESO }, { "food", FOOD, T_NUMERIC, MP_COMM }, { "gold_dust", DUST, T_NUMERIC, MP_COMM }, { "dust", DUST, T_NUMERIC, MP_COMM }, { "oil", OIL, T_NUMERIC, MP_COMM }, { "iron_ore", IRON, T_NUMERIC, MP_COMM }, { "iron", IRON, T_NUMERIC, MP_COMM }, { "uncompensated_workers", UW, T_NUMERIC, MP_COMM }, { "uw", UW, T_NUMERIC, MP_COMM }, { "guns", GUNS, T_NUMERIC, MP_COMM }, { "gold_bars", BARS, T_NUMERIC, MP_COMM }, { "bars", BARS, T_NUMERIC, MP_COMM }, { "petroleum", PETROL, T_NUMERIC, MP_COMM }, { "petrol", PETROL, T_NUMERIC, MP_COMM }, { "lcms", LCMS, T_NUMERIC, MP_COMM }, { "lcm", LCMS, T_NUMERIC, MP_COMM }, { "hcms", HCMS, T_NUMERIC, MP_COMM }, { "hcm", HCMS, T_NUMERIC, MP_COMM }, { "shells", SHELLS, T_NUMERIC, MP_COMM }, { "she", SHELLS, T_NUMERIC, MP_COMM }, { "radioactive", RADS, T_NUMERIC, MP_COMM }, { "rads", RADS, T_NUMERIC, MP_COMM }, /* Program keywords */ { "begin", BEGIN, T_NONE, MP_NONE }, { "end", END, T_NONE, MP_NONE }, { "repeat", REPEAT, T_NONE, MP_NONE }, { "until", UNTIL, T_NONE, MP_NONE }, { "while", WHILE, T_NONE, MP_NONE }, { "do", DO, T_NONE, MP_NONE }, { "if", IF, T_NONE, MP_NONE }, { "then", THEN, T_NONE, MP_NONE }, { "else", ELSE, T_NONE, MP_NONE }, { "loop", LOOP, T_NONE, MP_NONE }, { "move", MOVE, T_NONE, MP_NONE }, { "from", FROM, T_NONE, MP_NONE }, { "where", WHERE, T_NONE, MP_NONE }, { "via", VIA, T_NONE, MP_NONE }, { "to", TO, T_NONE, MP_NONE }, { "designate", SET_DESIGNATION, T_NONE, MP_NONE }, { "demobilize", DEMOBILIZE, T_NONE, MP_NONE }, { "demob", DEMOBILIZE, T_NONE, MP_NONE }, { "no_reserve", NO_RESERVE, T_NONE, MP_NONE }, { "no", NO_RESERVE, T_NONE, MP_NONE }, { "enlist", ENLIST, T_NONE, MP_NONE }, { "convert", CONVERT, T_NONE, MP_NONE }, { "shoot", SHOOT, T_NONE, MP_NONE }, { "set_distribute", SET_DISTRIBUTE, T_NONE, MP_NONE }, { "sdis", SET_DISTRIBUTE, T_NONE, MP_NONE }, { "set_threshold", SET_THRESHOLD, T_NONE, MP_NONE }, { "st", SET_THRESHOLD, T_NONE, MP_NONE }, { "set_cutoff", SET_CUTOFF, T_NONE, MP_NONE }, { "sc", SET_CUTOFF, T_NONE, MP_NONE }, { "set_deliver", SET_DELIVER, T_NONE, MP_NONE }, { "sdel", SET_DELIVER, T_NONE, MP_NONE }, { "on_fail", ON_FAIL, T_NONE, MP_NONE }, { "break", BREAK, T_NONE, MP_NONE }, { "continue", CONTINUE, T_NONE, MP_NONE }, { "abort", ABORT, T_NONE, MP_NONE }, { "stop", STOP, T_NONE, MP_NONE }, { "print", PRINTIT, T_NONE, MP_NONE }, { "write", PRINTIT, T_NONE, MP_NONE }, { "send", SEND, T_NONE, MP_NONE }, /* Sector census values */ { "current_sector", CURRENT, T_SECTOR, MP_SECT }, { "warehouse", WAREHOUSE, T_SECTOR, MP_SECT }, { "bad_sector", BAD_SECTOR, T_SECTOR, MP_SECT }, { "xloc", XLOC, T_NUMERIC, MP_ALL }, { "yloc", YLOC, T_NUMERIC, MP_ALL }, { "owner", OWNER, T_STRING, MP_SECT |MP_SHIP }, { "designation", DESIGNATION, T_CHARACTER, MP_SECT }, { "des", DESIGNATION, T_CHARACTER, MP_SECT }, { "newdesignation", NEW_DESIG, T_CHARACTER, MP_SECT }, { "newdes", NEW_DESIG, T_CHARACTER, MP_SECT }, { "efficiency", EFFICIENCY, T_NUMERIC, MP_ALLX }, { "eff", EFFICIENCY, T_NUMERIC, MP_ALLX }, { "work", WORK, T_NUMERIC, MP_SECT }, { "available", AVAILABLE, T_NUMERIC, MP_SECT }, { "avail", AVAILABLE, T_NUMERIC, MP_SECT }, { "mobility", MOBILITY, T_NUMERIC, MP_ALLX }, { "mob", MOBILITY, T_NUMERIC, MP_ALLX }, { "civilians", CIVILIANS, T_NUMERIC, MP_SECT |MP_SHIP }, { "civs", CIVILIANS, T_NUMERIC, MP_SECT |MP_SHIP }, { "civ", CIVILIANS, T_NUMERIC, MP_SECT |MP_SHIP }, { "militairs", MILITARY, T_NUMERIC, MP_SECT |MP_SHIP }, { "mils", MILITARY, T_NUMERIC, MP_SECT |MP_SHIP }, { "mil", MILITARY, T_NUMERIC, MP_SECT |MP_SHIP }, { "population", POPULATION, T_NUMERIC, MP_SECT |MP_SHIP }, { "pop", POPULATION, T_NUMERIC, MP_SECT |MP_SHIP }, { "planes", PLANES, T_NUMERIC, MP_SECT |MP_SHIP }, { "ships", SHIPS, T_NUMERIC, MP_SECT }, { "lands", LANDS, T_NUMERIC, MP_SECT }, { "nukes", NUKES, T_NUMERIC, MP_SECT }, { "occupied", OCCUPIED, T_BOOLEAN, MP_SECT }, { "occ", OCCUPIED, T_BOOLEAN, MP_SECT }, { "owned", OWNED, T_BOOLEAN, MP_SECT |MP_SHIP }, { "coast", COAST, T_BOOLEAN, MP_SECT }, { "food_used", FOOD_USED, T_NUMERIC, MP_SECT |MP_SHIP }, { "starvation", STARVATION, T_BOOLEAN, MP_SECT |MP_SHIP }, { "mines", MINES, T_NUMERIC, MP_SECT }, { "territory", TERRITORY, T_NUMERIC, MP_SECT }, { "terr", TERRITORY, T_NUMERIC, MP_SECT }, { "has_plan", HAS_PLAN, T_BOOLEAN, MP_SECT }, { "is_active", IS_ACTIVE, T_BOOLEAN, MP_SECT }, { "plague", PLAGUE, T_BOOLEAN, MP_SECT }, { "plague_stage", PLAGUE_STAGE, T_PLAGUE, MP_SECT }, { "pstage", PLAGUE_STAGE, T_PLAGUE, MP_SECT }, { "happy", HAPPY, T_BOOLEAN, MP_SECT }, { "happy_state", HAPPY_STATE, T_HAPPY, MP_SECT }, { "hstate", HAPPY_STATE, T_HAPPY, MP_SECT }, /* Happiness types (heinola@malla.ee.tut.fi) */ { "loyal", HAPPY_LOYAL, T_HAPPY, MP_SECT }, { "unrest", HAPPY_UNREST, T_HAPPY, MP_SECT }, { "revolutionaries", HAPPY_REVOL, T_HAPPY, MP_SECT }, { "revol", HAPPY_REVOL, T_HAPPY, MP_SECT }, { "terrorists", HAPPY_TERROR, T_HAPPY, MP_SECT }, { "terror", HAPPY_TERROR, T_HAPPY, MP_SECT }, { "guerrillas", HAPPY_GUERRE, T_HAPPY, MP_SECT }, { "guerre", HAPPY_GUERRE, T_HAPPY, MP_SECT }, /* Plague types */ { "healthy", PLAGUE_HEALTHY, T_PLAGUE, MP_SECT }, { "infected", PLAGUE_INFECTED, T_PLAGUE, MP_SECT }, { "dying", PLAGUE_DYING, T_PLAGUE, MP_SECT }, /* Empire constants */ { "secs_per_etu", SPE, T_NUMERIC, MP_ALL }, { "spe", SPE, T_NUMERIC, MP_ALL }, { "etus_per_update", EPU, T_NUMERIC, MP_ALL }, { "epu", EPU, T_NUMERIC, MP_ALL }, { "interest_rate", IRATE, T_NUMERIC, MP_ALL }, { "irate", IRATE, T_NUMERIC, MP_ALL }, { "civ_tax_rate", CTRATE, T_NUMERIC, MP_ALL }, { "ctrate", CTRATE, T_NUMERIC, MP_ALL }, { "uw_tax_rate", UTRATE, T_NUMERIC, MP_ALL }, { "utrate", UTRATE, T_NUMERIC, MP_ALL }, { "active_mil_cost", AMCRATE, T_NUMERIC, MP_ALL }, { "amcrate", AMCRATE, T_NUMERIC, MP_ALL }, { "reserve_mil_cost", RMCRATE, T_NUMERIC, MP_ALL }, { "rmcrate", RMCRATE, T_NUMERIC, MP_ALL }, { "fertility_rate", FRATE, T_NUMERIC, MP_ALL }, { "frate", FRATE, T_NUMERIC, MP_ALL }, { "harvest_rate", HRATE, T_NUMERIC, MP_ALL }, { "hrate", HRATE, T_NUMERIC, MP_ALL }, { "civ_birth_rate", CBRATE, T_NUMERIC, MP_ALL }, { "cbrate", CBRATE, T_NUMERIC, MP_ALL }, { "uw_birth_rate", UBRATE, T_NUMERIC, MP_ALL }, { "ubrate", UBRATE, T_NUMERIC, MP_ALL }, { "eat_rate", ERATE, T_NUMERIC, MP_ALL }, { "erate", ERATE, T_NUMERIC, MP_ALL }, { "baby_eat_rate", BERATE, T_NUMERIC, MP_ALL }, { "berate", BERATE, T_NUMERIC, MP_ALL }, /* Ship types */ { "name", NAME, T_STRING, MP_SHIP | MP_PLANE | MP_NUKE }, { "type", TYPE, T_NUMERIC, MP_SHIP | MP_PLANE | MP_NUKE }, { "technology", TECH, T_NUMERIC, MP_SHIP | MP_PLANE }, { "tech", TECH, T_NUMERIC, MP_SHIP | MP_PLANE }, { "number", NUMBER, T_NUMERIC, MP_SHIP | MP_PLANE }, { "fleet", FLEET, T_CHARACTER, MP_SHIP }, { "radar", RADAR, T_NUMERIC, MP_SHIP }, { "sonar", SONAR, T_NUMERIC, MP_SHIP }, { "moves", MOVES, T_NUMERIC, MP_SHIP }, /* Plane types */ { "wing", WING, T_CHARACTER, MP_PLANE }, { "range", RANGE, T_NUMERIC, MP_PLANE }, { "maxrange", MAXRANGE, T_NUMERIC, MP_PLANE }, { "max_range", MAXRANGE, T_NUMERIC, MP_PLANE }, { "attack", DEFENSE, T_NUMERIC, MP_PLANE }, { "defense", ATTACK, T_NUMERIC, MP_PLANE }, { "harden", HARDEN, T_NUMERIC, MP_PLANE }, { "load", LOAD, T_NUMERIC, MP_PLANE }, /* Nuke types */ { "stockpile", STOCKPILE, T_NUMERIC, MP_NUKE }, { (char *) 0, 0, T_NONE, MP_NONE } }; xemp5.1-beta/lib/parse/symtab.h100444 12266 2116 3534 6023771306 14772 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/parse/RCS/symtab.h,v 5.1 1993/03/14 16:50:54 etienne Exp $ $Date: 1993/03/14 16:50:54 $ $Author: etienne $ $Id: symtab.h,v 5.1 1993/03/14 16:50:54 etienne Exp $ $Locker: $ $Log: symtab.h,v $ Revision 5.1 1993/03/14 16:50:54 etienne *** empty log message *** * Revision 5.0 93/02/06 09:23:02 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:40:53 greyhelm * Added RCS headers - Karl Hagen * */ /* * symtab.h */ typedef struct _Symtab { char *name; int token; int type; int allowed_modifiers; } SYMTAB, *Symtab; extern SYMTAB special_chars_symtab[]; extern SYMTAB text_symtab[]; #define T_NONE 0x0000 #define T_NUMERIC 0x0001 #define T_BOOLEAN 0x0002 #define T_CHARACTER 0x0004 #define T_STRING 0x0008 #define T_SECTOR 0x0010 #define T_TOKEN 0x0020 #define T_PLAGUE 0x0040 #define T_HAPPY 0x0080 #define T_EVALUATE (T_NUMERIC | T_BOOLEAN) /* * Token modifier selection types */ #define MP_NONE 0x0000 /* Token has unequivocal meaning */ #define MP_RESO 0x0001 /* Token has meaning within resource */ #define MP_THRES 0x0002 /* Token has meaning within threshold */ #define MP_SSECT 0x0004 /* (start value) */ #define MP_SECT 0x0008 /* Token has meaning within sector */ #define MP_SHIP 0x0010 /* Token has meaning within ships */ #define MP_PLANE 0x0020 /* Token has meaning within planes */ #define MP_NUKE 0x0040 /* Token has meaning within nukes */ #define MP_LAND 0x0060 /* Token has meaning within landunits */ /* Commodities */ #define MP_COMM (MP_RESO | MP_THRES | MP_SECT | MP_SHIP | MP_LAND) #define MP_ALL (MP_SECT | MP_SHIP | MP_PLANE | MP_NUKE | MP_LAND) #define MP_ALLX (MP_SECT | MP_SHIP | MP_PLANE | MP_LAND) /* All except nukes */ xemp5.1-beta/lib/plane/ 40755 12266 2116 0 6043206336 13205 5ustar jponexorxemp5.1-beta/lib/plane/GNUdepend100644 12266 2116 33134 6015634101 15054 0ustar jponexorSRCS= arm.c \ bomb.c \ build.c \ drop.c \ dropmines.c \ dump.c \ fly.c \ harden.c \ launch.c \ list.c \ mark.c \ mission.c \ paradrop.c \ path.c \ plane.c \ recon.c \ scan.c \ scrap.c \ select.c \ set.c \ transport.c \ wing.c \ wingadd.c OBJS= arm.o \ bomb.o \ build.o \ drop.o \ dropmines.o \ dump.o \ fly.o \ harden.o \ launch.o \ list.o \ mark.o \ mission.o \ paradrop.o \ path.o \ plane.o \ recon.o \ scan.o \ scrap.o \ select.o \ set.o \ transport.o \ wing.o \ wingadd.o ### arm.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nuke.h bomb.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h build.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h drop.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h dropmines.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h dump.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h fly.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h harden.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h launch.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h list.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h mark.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h mission.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h paradrop.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h path.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h plane.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h recon.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h scan.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h scrap.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h select.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xrc.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/func.h set.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h transport.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h wing.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h wingadd.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h xemp5.1-beta/lib/plane/GNUmakefile100644 12266 2116 1002 6034224700 15340 0ustar jponexor# The following variables are configurable. #-----------------------------------# LOCALCFLAGS := LOCALIFLAGS := LOCALLFLAGS := LOCALSFLAGS := TOPDIR = ../.. LIB := ../libplane.a LINTNAME := plane #-----------------------------------# # Productions: # depend: create the dependencies # all: make the library # saber: load things for saber # tags: make tags include $(TOPDIR)/make/GenMakefile include $(DEPENDENCIES) include $(TOPDIR)/make/LibMakefile tags: ../tags ln -s ../tags TAGS: ../TAGS ln -s ../TAGS xemp5.1-beta/lib/plane/arm.c100444 12266 2116 3610 6023771737 14235 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/plane/RCS/arm.c,v 5.2 1995/09/08 07:37:56 jpo Exp $ $Date: 1995/09/08 07:37:56 $ $Author: jpo $ $Id: arm.c,v 5.2 1995/09/08 07:37:56 jpo Exp $ $Locker: $ $Log: arm.c,v $ Revision 5.2 1995/09/08 07:37:56 jpo types * Revision 5.1 93/03/14 16:51:05 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:20 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:42:01 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "plane.h" #include "nuke.h" void RedoArm () { if (last_layout == PLANE_MODE) { Arm (10, 10, Fmt ("%d", pl_nr (curplane))); CensusPlane (curplane); } else { Message ("No current plane selected"); Bell (); } } void Arm (x, y, what) int x, y; char * what; { Stockp stockp; char * ans, * ptr; int quant, type, max, ok; UnmarkAllPlanes (); MarkPlanes (what); stockp = s_stock (cursct); type = SelectNuke(x, y, stockp); max = sp_nukamt(stockp,type); ans = InputAtMessage (Fmt("Number of devices [%d/1]: ",max), 3, GS_PNUMBER); if (ans == (char *) 0 || interrupt) { interrupt = False; Message ("Arm cancelled"); Bell (); return; } if (* ans == '\0') quant = 1; else quant = atoi (ans); if (quant == 0) { interrupt = False; Message ("Arm cancelled"); Bell (); return; } if (quant > max) quant = max; SetAgain (RedoArm); FeedEmpire (Fmt ("arm %s \"%s\" %d", what, nt_name(type), quant), PRINT); ptr = ReadEmpire(PRINT); ok = False; if (strchr(ptr,'#') != 0) { sp_nukamt(stockp,type) -= quant; add_nuk(cursct,-quant); ok = True; } else ptr = ReadEmpire(PRINT); ptr = WaitForPrompt (PRINT); if (ok == True) { FScanPlanes(what,DONT_PRINT); CensusPlane (curplane); } } xemp5.1-beta/lib/plane/bomb.c100444 12266 2116 13571 6023771740 14416 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/plane/RCS/bomb.c,v 5.1 1993/03/14 16:51:06 etienne Exp $ $Date: 1993/03/14 16:51:06 $ $Author: etienne $ $Id: bomb.c,v 5.1 1993/03/14 16:51:06 etienne Exp $ $Locker: $ $Log: bomb.c,v $ Revision 5.1 1993/03/14 16:51:06 etienne *** empty log message *** * Revision 5.0 93/02/06 09:23:20 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:42:01 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "plane.h" #include "var.h" #include "ship.h" static char * last_planes = (char *) 0; static char * last_escort = (char *) 0; static char * last_path = (char *) 0; static int last_x, last_y; static Sector last_sct = (Sector) 0; static Sector last_design = (Sector) 0; static char * last_strat = (char *) 0; void RedoBomb () { char * new_path; /* * 1). Still standing on your airfield? * -> bomb the same last sector * * 2). Other (enemy) sector? * -> bomb this sector with same planes/escorts * * 3). Other (own) airfield? * -> select planes to bomb the last target. */ if (cursct == last_sct) { DoBomb (last_x, last_y, cursct, last_planes, last_escort, last_path, last_strat, True); return; } if (last_sct == (Sector) 0) { Message ("No last sector !"); Bell (); return; } if (! s_owned (cursct)) { new_path = BestFlyPath (s_xcd (last_sct), s_ycd (last_sct), s_xcd (cursct), s_ycd (cursct)); if (new_path == (char *) 0) { Message ("Too far away !"); Bell (); return; } DoBomb (last_x, last_y, last_sct, last_planes, last_escort, new_path, last_strat, False); return; } DoBomb (last_x, last_y, cursct, (char *) 0, (char *) 0, (char *) 0, (char *) 0, False); } void Bomb (x, y) int x, y; { DoBomb (x, y, cursct, (char *) 0, (char *) 0, (char *) 0, (char *) 0, False); } /* * Bind key to Bomb ( stratic ) */ void BindBomb (x, y, str) int x, y; char * str; { char buf [20]; char * planes; if (last_layout == PLANE_MODE) planes = Fmt ("%d", pl_nr (curplane)); else if (last_layout == WING_MODE) planes = WingId (); else planes = (char *) 0; if (str != (char *) 0 && sscanf (str, " ( %s )", buf) == 1) { if (index ("spn", * buf) == (char *) 0) { Message (Fmt ("Illegal bind: Bomb (%s)", buf)); Bell (); return; } DoBomb (x, y, cursct, planes, (char *) 0, (char *) 0, buf, False); } else DoBomb (x, y, cursct, planes, (char *) 0, (char *) 0, (char *) 0, False); } void DoBomb (x, y, from, planes, escort, path, strat, confirm) int x, y; Sector from; char * planes; char * escort, * path; char * strat; bool confirm; { int max_range; int load; Sector design; UnmarkAllPlanes (); if (planes == (char *) 0) { planes = SelectPlanes (x, y, from, MIS_BOMB, "Bomb which planes ?"); if (planes == (char *) 0) { Message ("Bomb cancelled"); return; } } MarkPlanes (planes); FilterPlanesMob (); FilterPlanesCantBomb (); MarkAs20Mob (); planes = MarkedPlanesId (MOB20); if (planes == (char *) 0) { Message ("Nothing to Bomb with"); Bell (); return; } if (last_planes != (char *) 0) free (last_planes); last_planes = Str (planes); load = LoadMarked (True); /* it's a bombing mission ! */ if (load == 0) { Message ("None of your planes can carry shells !"); Bell (); return; } if (! LoadMarkedPlanes ('s', 1)) { Message ("Not enough shells"); Bell (); return; } if (escort == (char *) 0) escort = SelectPlanes (x, y, from, MIS_ESCORT, "Use as escort ?"); if (escort != (char *) 0) { MarkPlanes (escort); FilterPlanesMob (); FilterPlanesHaving (P_M); FilterPlanesHaving (P_O); escort = MarkedPlanesId (MOB12); } if (escort == (char *) 0) escort = "."; if (last_escort != (char *) 0) free (last_escort); last_escort = Str (escort); if (! ChargePetrol ()) { Message ("Not enough petrol !"); UnloadMarkedPlanes ('s', 1); Bell (); return; } max_range = MaxRangeMarked (from); SetAgain (RedoBomb); last_x = x; last_y = y; last_sct = from; if (path == (char *) 0 || confirm && ! Confirm ("Same sector", True)) { path = AskFlyRoute (from, (max_range - 2) / 2, "Bomb"); if (path == (char *) 0) { Message ("Bomb cancelled"); UnchargePetrol (); UnloadMarkedPlanes ('s', 1); return; } } else { if (strlen (path) > max_range - 1) { Message ("Too far away !"); UnchargePetrol (); UnloadMarkedPlanes ('s', 1); return; } } if (last_path != (char *) 0) free (last_path); last_path = Str (path); design = FollowPath (from, path); last_design = design; if (design != (Sector) 0 && s_owned (design) && ! Confirm ("That's your own sector, still go on", False)) { Message ("bomb cancelled"); UnchargePetrol (); UnloadMarkedPlanes ('s', 1); return; } if (strat == (char *) 0) { strat = InputAtMessage ("pinpoint, strategic, or nuclear [p]: ", 1, "psn"); if (strat == (char *) 0 || interrupt) { interrupt = False; Message ("Bomb cancelled"); UnchargePetrol (); UnloadMarkedPlanes ('s', 1); return; } } if (last_strat != (char *) 0) free(last_strat); last_strat = Str (strat); if (* strat == 's' && s_des (design) == '.' && ! Confirm ( "Strategic bombing sea ?? Continue ?", False)) { Message ("Bomb cancelled"); UnchargePetrol (); UnloadMarkedPlanes ('s', 1); return; } if (! FeedFly ("bomb", planes, escort, (* strat == '\0' || * strat == 'p') ? "pinpoint" : * strat == 's' ? "strategic" : "nuclear", CrdStr (from), Fmt ("%sh", path), (char *) 0)) { Message ("Something went wrong, bomb failed?"); Bell (); UnchargePetrol (); UnloadMarkedPlanes ('s', 1); return; } ChargeMobility (); ParseFlyOutput (-1); CensusSct (from); DrawSector (from); Message ("Bomb done"); } xemp5.1-beta/lib/plane/build.c100444 12266 2116 16030 6023771740 14567 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/plane/RCS/build.c,v 5.2 1995/09/08 07:38:01 jpo Exp $ $Date: 1995/09/08 07:38:01 $ $Author: jpo $ $Id: build.c,v 5.2 1995/09/08 07:38:01 jpo Exp $ $Locker: $ $Log: build.c,v $ Revision 5.2 1995/09/08 07:38:01 jpo const & types * Revision 5.1 93/03/14 16:51:06 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:20 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:42:01 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "plane.h" #include "nation.h" static int last_planeid, last_techn; void DoBuildPlane (x, y, planeid, techn) int x, y; int planeid, techn; { Strings strings; Pager pager; char * ptri, * err; char * line, * answer; int newplanenr; double maint; int mult; if (s_des (cursct) != '*' || s_eff (cursct) < 60) { Message ("You can only build planes in +60% airports !"); Bell (); return; } if (s_ava (cursct) < 1) { Message ("No available workers !"); Bell (); return; } if (planeid < 0) { strings = InitStrings (); for (planeid = 0; planetypes [planeid]. nam != (char *) 0; planeid ++) if (planetypes [planeid]. tech <= (int) n_tech (nation)) { /* Cost to maintain this plane */ /* Of course no multiplier */ maint = etu_per_update * - dmin (-1.0, planetypes [planeid]. cost * money_plane); maint -= planetypes [planeid]. crew * 5 * etu_per_update * money_mil; AddStringID (strings, Fmt ( "%-18.18s %3d tech %3d lcm %3d hcm %3d ava $%-4d ($%d)", planetypes [planeid]. nam, planetypes [planeid]. tech, planetypes [planeid]. lcm, planetypes [planeid]. hcm, planetypes [planeid]. ava, planetypes [planeid]. cost, (int) (maint + 0.5)), planeid); } if (StringsSize (strings) == 0) { Message ("You can't build any planes"); Bell (); return; } pager = InitPager (strings, "Build which plane ?"); MapPagerFromTop (pager, map_win, x, y); planeid = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (planeid < 0 || interrupt) { interrupt = False; ClearMes (); return; } } err = (char *) 0; if (land_units) mult=10; else mult=1; if (planetypes [planeid]. ava > (s_ava (cursct)*mult)) err = Fmt ("not enough available workers (need %d)", planetypes [planeid]. ava); if (planetypes [planeid]. lcm > (q_lcm (cursct)*mult)) err = Fmt ("not enough light constr. materials (need %d)", planetypes [planeid]. lcm);; if (planetypes [planeid]. hcm > (q_hcm (cursct)*mult)) err = Fmt ("not enough heavy constr. materials (need %d)", planetypes [planeid]. hcm); if (planetypes [planeid]. cost / 10 > (n_treas (nation)*mult)) err = Fmt ("not enough money (need $%d)", (int) planetypes [planeid]. cost / 10); if (planetypes [planeid]. crew > (s_mil (cursct)*mult)) err = Fmt ("not enough mil crew (need %d)", planetypes [planeid]. crew); if (err != (char *) 0) { Message (err); Bell (); return; } if (command_state == FORCE_BUF_STATE && EmpireStatus () == E_DEAD) { if (techn < 0) { answer = InputAtMessage (Fmt ("Build at tech [%d]: ", (int) n_tech (nation)), 4, GS_PNUMBER); if (answer == (char *) 0 || interrupt) { Message ("Build plane cancelled"); interrupt = False; return; } if (* answer == '\0') techn = n_tech (nation); else techn = atoi (answer); } if (techn > (int) n_tech (nation)) techn = (int) n_tech (nation); else if (techn < planetypes [planeid]. tech) techn = planetypes [planeid]. tech; FeedCommand (Fmt ("build plane %s", CrdStr (cursct)), PRINT); FeedCommand (Fmt ("*%s", planetypes [planeid]. nam), PRINT); FeedCommand (Fmt ("*%d", techn), PRINT); set_q_hcm (cursct, q_hcm (cursct) - planetypes [planeid]. hcm); set_q_lcm (cursct, q_lcm (cursct) - planetypes [planeid]. lcm); set_mil (cursct, s_mil (cursct) - planetypes [planeid]. crew); set_ava (cursct, s_ava (cursct) - planetypes [planeid]. ava); last_techn = techn; last_planeid = planeid; SetAgain (RedoBuildPlane); Message ("Plane will be redumped after feeding"); return; } FeedEmpire (Fmt ("build plane %s", CrdStr (cursct)), PRINT); (void) WaitForPrompt (PRINT); if (EmpireStatus () != E_QUESTION) { Message ("Build failed"); Bell (); return; } FeedEmpire (Fmt ("%s", planetypes [planeid]. nam), PRINT); for (;;) { line = ReadEmpire (PRINT); if (EmpireStatus () == E_QUESTION) { PrintAtEmpire (line); if (strncmp (line, "Build at what tech", 18) == 0) { if (techn < 0) { Bell (); answer = InputAtMessage (line, 5, GS_PNUMBER); if (answer == (char *) 0 || interrupt) { Message ("Aborting"); while (EmpireStatus () != E_COMMAND) { FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); } Message ("Build plane aborted"); return; } if (* answer == '\0' || atoi (answer) > (int) n_tech (nation)) answer = Fmt ("%d", (int) n_tech (nation)); techn = atoi (answer); } else answer = Fmt ("%d", techn); if (techn < planetypes [planeid]. tech) { techn = planetypes [planeid]. tech; Message (Fmt ("Building at tech %d", techn)); Bell (); answer = Fmt ("%d", techn); } } else { Bell (); answer = InputAtMessage (line, 10, GS_NAME); } if (interrupt || answer == (char *) 0) { interrupt = False; Message ("Build cancelled"); FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); return; } FeedEmpire (answer, PRINT); continue; } if (EmpireStatus () == E_COMMAND) { PrintAtEmpire (line); Message ("Build failed"); Bell (); return; } ptri = index (line, '#'); if (ptri != (char *) 0) { ptri++; if (!ScanDigit ((ConstVP)&ptri, &newplanenr)) /* No digit ignore it */ continue; SkipBlank ((ConstVP)&ptri); if (strncmp (ptri, "built in sector", 15) != 0) /* No build ignore it */ continue; break; } } /* Get new plane, just scan it */ (void) WaitForPrompt (PRINT); last_techn = techn; last_planeid = planeid; SetAgain (RedoBuildPlane); if (FScanPlanes (Fmt ("%d", newplanenr), DONT_PRINT) == 0) { Bell (); PrintAtEmpire ("Can't find your new plane !!"); (void) WaitForPrompt (DONT_PRINT); return; } (void) WaitForPrompt (DONT_PRINT); curplane = NrToPlane (newplanenr); Message (Fmt ("A new %s is build (at tech %d)", planetypes [planeid]. nam, pl_tech (curplane))); /* Adjust materials */ RedumpSector (cursct, DONT_PRINT); CensusPlane (curplane); if ((planetypes [planeid]. cost / 10) <= 100) n_treas (nation) -= (double) (planetypes [planeid]. cost / 10); } void BuildPlane (x, y) int x, y; { DoBuildPlane (x, y, -1, -1); } void RedoBuildPlane () { DoBuildPlane (s_xcd(cursct), s_ycd(cursct), last_planeid, last_techn); } xemp5.1-beta/lib/plane/drop.c100444 12266 2116 13025 6023771740 14435 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/plane/RCS/drop.c,v 5.2 1995/09/08 07:38:14 jpo Exp $ $Date: 1995/09/08 07:38:14 $ $Author: jpo $ $Id: drop.c,v 5.2 1995/09/08 07:38:14 jpo Exp $ $Locker: $ $Log: drop.c,v $ Revision 5.2 1995/09/08 07:38:14 jpo types and const * Revision 5.1 93/03/14 16:51:06 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:20 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:42:01 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "plane.h" #include "var.h" static char * last_planes = (char *) 0; static char * last_escort = (char *) 0; static char * last_path = (char *) 0; static char * last_trans = (char *) 0; static int last_x, last_y; static Sector last_sct = (Sector) 0; static Sector last_design = (Sector) 0; void RedoDropOff () { char * planes; if (cursct != last_sct) { if (! s_owned (cursct)) { Message ("Drop off only at your own sectors"); Bell (); return; } DoDropOff (last_x, last_y, last_planes, last_escort, last_trans, (char *) 0); return; } if (last_layout == PLANE_MODE) planes = Fmt ("%d", pl_nr (curplane)); else if (last_layout == WING_MODE) planes = WingId (); else planes = (char *) 0; DoDropOff (last_x, last_y, planes, (char *) 0, last_trans, (char *) 0); } void DropOff (x, y) int x, y; { DoDropOff (x, y, (char *) 0, (char *) 0, (char *) 0, (char *) 0); } /* * Bind key to drop off ( item ) */ void BindDropOff (x, y, str) int x, y; char * str; { char buf [20]; char * planes; if (last_layout == PLANE_MODE) planes = Fmt ("%d", pl_nr (curplane)); else if (last_layout == WING_MODE) planes = WingId (); else planes = (char *) 0; if (str != (char *) 0 && sscanf (str, " ( %s )", buf) == 1) { if (CharToItem (* buf) < 0) { Message (Fmt ("Illegal bind: drop off (%s)", buf)); Bell (); return; } DoDropOff (x, y, planes, (char *) 0, buf, (char *) 0); } else DoDropOff (x, y, planes, (char *) 0, (char *) 0, (char *) 0); } void DoDropOff (x, y, planes, escort, trans2, path) int x, y; char * planes; char * escort, * trans2; char * path; { int max_range; int max_load; Sector design; bool all_yours; const char *trans = trans2; UnmarkAllPlanes (); if (planes == (char *) 0) { planes = SelectPlanes (x, y, cursct, MIS_DROP, "Drop off with which planes ?"); if (planes == (char *) 0) { Message ("DropOff cancelled"); return; } } MarkPlanes (planes); FilterPlanesMob (); FilterPlanesHaving (P_M); FilterPlanesHaving (P_O); MarkAs20Mob (); max_load = 2 * LoadMarked (False); planes = MarkedPlanesId (MOB20); if (planes == (char *) 0) { Message ("Nothing to drop off with"); Bell (); return; } if (last_planes != (char *) 0) free (last_planes); last_planes = Str (planes); if (escort == (char *) 0) escort = SelectPlanes (x, y, cursct, MIS_ESCORT, "Use as escort ?"); if (escort != (char *) 0) { MarkPlanes (escort); FilterPlanesMob (); FilterPlanesHaving (P_M); FilterPlanesHaving (P_O); escort = MarkedPlanesId (MOB12); } if (escort == (char *) 0) escort = ""; if (last_escort != (char *) 0) free (last_escort); last_escort = Str (escort); if (! ChargePetrol ()) { Message ("Not enough petrol !"); Bell (); return; } max_range = MaxRangeMarked (cursct); SetAgain (RedoDropOff); last_x = x; last_y = y; last_sct = cursct; if (path == (char *) 0) { path = AskFlyRoute (cursct, (int) (max_range - 2) / 2, "drop off"); if (path == (char *) 0) { Message ("drop off cancelled"); UnchargePetrol (); return; } } else { if (strlen (path) > (int) ((max_range - 2) / 2)) { Message ("Too far away !"); UnchargePetrol (); return; } } if (last_path != (char *) 0) free (last_path); last_path = Str (path); design = FollowOwnedPath (cursct, path, & all_yours); last_design = design; /* * Can't drop off at planes (yet) */ if (design == cursct) { Message ("Quite useless, don't you think ?"); UnchargePetrol (); Bell (); return; } if (design == (Sector) 0 || ! s_owned (design)) { Message ("end sector should be yours !"); UnchargePetrol (); Bell (); return; } if (max_load > 0 && design != cursct) { if (trans == (char *) 0) { trans = AskFlyItem (x + 2, y + 2, max_load, MIS_DROP); if (trans == (char *) 0) { Message ("Drop off cancelled"); UnchargePetrol (); return; } } if (* trans != '\0') if (! LoadMarkedPlanes (* trans, 2)) { Message (Fmt ("Not enough %s for all planes!", trans)); Bell (); UnchargePetrol (); Bell (); return; } } else trans = ""; if (last_trans != (char *) 0) free (last_trans); last_trans = Str (trans); if (command_state == FORCE_BUF_STATE && all_yours) { FeedCommand (Fmt ("drop %s %s %s %sh %s", last_planes, strlen (last_escort) == 0 ? "." : last_escort, CrdStr (cursct), last_path, trans), PRINT); } else { if (! FeedFly ("drop", last_planes, last_escort, (char *) 0, CrdStr (cursct), Fmt ("%sh", last_path), trans)) { Message ("Something went wrong, drop off failed?"); Bell (); UnchargePetrol (); if (* trans != '\0') UnloadMarkedPlanes (* trans, 2); return; } ParseFlyOutput (-1); } ChargeMobility (); if (* trans != '\0') DropMarkedPlanes (* trans, 2, design); CensusSct (cursct); DrawSector (cursct); Message ("drop off done"); } xemp5.1-beta/lib/plane/dropmines.c100444 12266 2116 12554 6023771740 15477 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/plane/RCS/dropmines.c,v 5.1 1995/09/08 07:42:12 jpo Exp $ $Date: 1995/09/08 07:42:12 $ $Author: jpo $ $Id: dropmines.c,v 5.1 1995/09/08 07:42:12 jpo Exp $ $Locker: $ $Log: dropmines.c,v $ Revision 5.1 1995/09/08 07:42:12 jpo base * Revision 5.1 1993/03/14 16:51:06 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:20 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:42:01 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "plane.h" #include "var.h" static char * last_planes = (char *) 0; static char * last_escort = (char *) 0; static char * last_path = (char *) 0; static char * last_trans = (char *) 0; static int last_x, last_y; static Sector last_sct = (Sector) 0; static Sector last_design = (Sector) 0; void RedoDropOffMines () { char * planes; if (cursct != last_sct) { if (s_des (cursct) != '.') { Message ("Drop off only at at sea sectors"); Bell (); return; } DoDropOffMines (last_x, last_y, last_planes, last_escort, last_trans, (char *) 0); return; } if (last_layout == PLANE_MODE) planes = Fmt ("%d", pl_nr (curplane)); else if (last_layout == WING_MODE) planes = WingId (); else planes = (char *) 0; DoDropOffMines (last_x, last_y, planes, (char *) 0, last_trans, (char *) 0); } void DropOffMines (x, y) int x, y; { DoDropOffMines (x, y, (char *) 0, (char *) 0, (char *) 0, (char *) 0); } /* * Bind key to drop off ( item ) */ void BindDropOffMines (x, y, str) int x, y; char * str; { char buf [20]; char * planes; if (last_layout == PLANE_MODE) planes = Fmt ("%d", pl_nr (curplane)); else if (last_layout == WING_MODE) planes = WingId (); else planes = (char *) 0; if (str != (char *) 0 && sscanf (str, " ( %s )", buf) == 1) { Message (Fmt ("Illegal bind: mining (%s)", buf)); Bell (); return; } else DoDropOffMines (x, y, planes, (char *) 0, (char *) 0, (char *) 0); } void DoDropOffMines (x, y, planes, escort, trans2, path) int x, y; char * planes; char * escort, * trans2; char * path; { int max_range; int max_load; Sector design; bool all_yours; const char *trans = trans2; UnmarkAllPlanes (); if (planes == (char *) 0) { planes = SelectPlanes (x, y, cursct, MIS_DROPMINES, "Mine with which planes ?"); if (planes == (char *) 0) { Message ("Mining cancelled"); return; } } MarkPlanes (planes); FilterPlanesMob (); FilterPlanesHaving (P_M); FilterPlanesHaving (P_O); MarkAs20Mob (); max_load = 2 * LoadMarked (False); planes = MarkedPlanesId (MOB20); if (planes == (char *) 0) { Message ("Nothing to mine with"); Bell (); return; } if (last_planes != (char *) 0) free (last_planes); last_planes = Str (planes); if (escort == (char *) 0) escort = SelectPlanes (x, y, cursct, MIS_ESCORT, "Use as escort ?"); if (escort != (char *) 0) { MarkPlanes (escort); FilterPlanesMob (); FilterPlanesHaving (P_M); FilterPlanesHaving (P_O); escort = MarkedPlanesId (MOB12); } if (escort == (char *) 0) escort = ""; if (last_escort != (char *) 0) free (last_escort); last_escort = Str (escort); if (! ChargePetrol ()) { Message ("Not enough petrol !"); Bell (); return; } max_range = MaxRangeMarked (cursct); SetAgain (RedoDropOffMines); last_x = x; last_y = y; last_sct = cursct; if (path == (char *) 0) { path = AskFlyRoute (cursct, (int) (max_range - 2) / 2, "mining"); if (path == (char *) 0) { Message ("mining cancelled"); UnchargePetrol (); return; } } else { if (strlen (path) > (int) ((max_range - 2) / 2)) { Message ("Too far away !"); UnchargePetrol (); return; } } if (last_path != (char *) 0) free (last_path); last_path = Str (path); design = FollowOwnedPath (cursct, path, & all_yours); last_design = design; /* * Can't drop off at planes (yet) */ if (design == cursct) { Message ("Quite useless, don't you think ?"); UnchargePetrol (); Bell (); return; } if (design == (Sector) 0 || s_des (design) != '.') { Message ("end sector should be sea"); UnchargePetrol (); Bell (); return; } if (max_load > 0 && design != cursct) { if (trans == (char *) 0) trans = ItemName (3); if (* trans != '\0') if (! LoadMarkedPlanes (* trans, 2)) { Message (Fmt ("Not enough %s for all planes!", trans)); Bell (); UnchargePetrol (); Bell (); return; } } else trans = ""; if (last_trans != (char *) 0) free (last_trans); last_trans = Str (trans); if (command_state == FORCE_BUF_STATE && all_yours) { FeedCommand (Fmt ("drop %s %s %s %sh %s", last_planes, strlen (last_escort) == 0 ? "." : last_escort, CrdStr (cursct), last_path, trans), PRINT); } else { if (! FeedFly ("drop", last_planes, last_escort, (char *) 0, CrdStr (cursct), Fmt ("%sh", last_path), trans)) { Message ("Something went wrong, mining failed?"); Bell (); UnchargePetrol (); if (* trans != '\0') UnloadMarkedPlanes (* trans, 2); return; } ParseFlyOutput (-1); } ChargeMobility (); if (* trans != '\0' && s_des (design) != '.') DropMarkedPlanes (* trans, 2, design); CensusSct (cursct); DrawSector (cursct); /* Message ("drop off done"); */ } xemp5.1-beta/lib/plane/dump.c100444 12266 2116 6422 6023771740 14421 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/plane/RCS/dump.c,v 5.1 1993/03/14 16:51:07 etienne Exp $ $Date: 1993/03/14 16:51:07 $ $Author: etienne $ $Id: dump.c,v 5.1 1993/03/14 16:51:07 etienne Exp $ $Locker: $ $Log: dump.c,v $ Revision 5.1 1993/03/14 16:51:07 etienne *** empty log message *** * Revision 5.0 93/02/06 09:23:20 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:42:01 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "plane.h" #include "sector.h" void SaveShowPlane (fp) FILE * fp; { register int i; register char *ptri, *name;; for (i = 0; planetypes [i]. nam != (char *) 0; i++) { name = Str (planetypes [i]. nam); for (ptri = name; *ptri != '\0'; ptri ++) if (*ptri == ' ') *ptri = '_'; fprintf (fp, "%s %d %d %d %d %d %d %d %d %d %d %d %d %d\n", name, planetypes [i]. lcm, planetypes [i]. hcm, planetypes [i]. cost, planetypes [i]. tech, planetypes [i]. acc, planetypes [i]. load, planetypes [i]. att, planetypes [i]. def, planetypes [i]. range, planetypes [i]. crew, planetypes [i]. fuel, planetypes [i]. ava, planetypes [i]. flags); free (name); } fprintf (fp, "END OF SHOW PLANE LIST\n"); } void RestoreShowPlane (fp) FILE * fp; { int nr; char buffer [BUFSIZ]; char name [BUFSIZ]; register char *ptri; nr = 0; while (fgets (buffer, BUFSIZ, fp) != (char *) 0) { if (StrEQ (buffer, "END OF SHOW PLANE LIST")) { planetypes [nr]. nam = (char *) 0; break; } buffer [strlen (buffer) - 1] = '\0'; /* no newline */ if (sscanf (buffer, "%s %d %d %d %d %d %d %d %d %d %d %d %d %d", name, & (planetypes [nr]. lcm), & (planetypes [nr]. hcm), & (planetypes [nr]. cost), & (planetypes [nr]. tech), & (planetypes [nr]. acc), & (planetypes [nr]. load), & (planetypes [nr]. att), & (planetypes [nr]. def), & (planetypes [nr]. range), & (planetypes [nr]. crew), & (planetypes [nr]. fuel), & (planetypes [nr]. ava), & (planetypes [nr]. flags)) != 14) { PrintAtEmpire ("Bad Plane info in datafile"); Bell (); continue; } for (ptri = name; *ptri != '\0'; ptri ++) if (*ptri == '_') *ptri = ' '; planetypes [nr]. nam = Str (name); nr ++; } } void BinDumpPlanes (fp) FILE * fp; { struct s_plane dummy; Plane plane; int size; size = sizeof (struct s_plane); fwrite ((char *) & size, sizeof (size), 1, fp); for (plane = first_plane; plane != (Plane) 0; plane = pl_next (plane)) (void) fwrite ((char *) plane, sizeof (struct s_plane), 1, fp); dummy. nr = -1; (void) fwrite ((char *) & dummy, sizeof (struct s_plane), 1, fp); } bool BinRestPlanes (fp) FILE * fp; { Plane dummy; Sector sct; int size; fread ((char *) & size, sizeof (size), 1, fp); if (size != sizeof (struct s_plane)) return False; for (;;) { dummy = (Plane) doalloc ((unsigned) sizeof (struct s_plane)); fread ((char *) dummy, sizeof (struct s_plane), 1, fp); if (pl_nr (dummy) == -1) { free ((char *) dummy); return True; } /* add plane to sector */ sct = World (pl_xcd (dummy), pl_ycd (dummy), S_DESIG); AddPlaneToList (dummy); AddPlaneToSector (dummy, sct); } } xemp5.1-beta/lib/plane/fly.c100444 12266 2116 17051 6023771740 14266 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/plane/RCS/fly.c,v 5.2 1995/09/08 07:38:24 jpo Exp $ $Date: 1995/09/08 07:38:24 $ $Author: jpo $ $Id: fly.c,v 5.2 1995/09/08 07:38:24 jpo Exp $ $Locker: $ $Log: fly.c,v $ Revision 5.2 1995/09/08 07:38:24 jpo types and const * Revision 5.1 93/03/14 16:51:07 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:20 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:42:01 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "plane.h" #include "var.h" static char * last_planes = (char *) 0; static char * last_escort = (char *) 0; static char * last_path = (char *) 0; static char * last_trans = (char *) 0; static int last_x, last_y; static Sector last_sct = (Sector) 0; static Sector last_design = (Sector) 0; bool FeedFly (command, planes, escorts, strat, assem, path, trans) const char * command; const char * planes, * escorts, * strat, * assem, * path, * trans; { FeedEmpire (Fmt ("%s %s %s %s %s %s %s", command, planes, strlen (escorts) == 0 ? "." : escorts, strat == (char *) 0 ? "" : strat, assem, path, trans == (char *) 0 ? "" : strlen (trans) == 0 ? "." : trans), PRINT); return True; /* * Looks a lot better, but takes a lot more time * for (i = 0; i < 7; i ++) { switch (i) { case 0: ptr = command; break; case 1: ptr = planes; break; case 2: ptr = escorts; break; case 3: ptr = strat; break; case 4: ptr = assem; break; case 5: ptr = path; break; case 6: ptr = trans; break; default: ptr = (char *) 0; break; } if (ptr != (char *) 0) { if (! first) { (void) WaitForPrompt (PRINT); if (EmpireStatus () == E_COMMAND) return False; } FeedEmpire (ptr, PRINT); first = False; } } return True; */ } void RedoFly () { char * new_path; char * planes; if (last_sct == last_design && last_sct == cursct) { DoFly (last_x, last_y, last_planes, last_escort, last_trans, last_path); return; } if (last_layout == PLANE_MODE) planes = Fmt ("%d", pl_nr (curplane)); else if (last_layout == WING_MODE) planes = WingId (); else { Message ("No current plane/wing selected !"); Bell (); planes = (char *) 0; } if (last_design == (Sector) 0) { Message ("No last designation sector"); Bell (); return; } if (last_sct != cursct) { new_path = BestFlyPath (s_xcd (cursct), s_ycd (cursct), s_xcd (last_design), s_ycd (last_design)); if (new_path == (char *) 0) { Message ("Too far away !"); Bell (); return; } if (last_path != (char *) 0) free (last_path); last_path = Str (new_path); } DoFly (last_x, last_y, planes, "", last_trans, last_path); } void Fly (x, y) int x, y; { DoFly (x, y, (char *) 0, (char *) 0, (char *) 0, (char *) 0); } /* * Bind key to fly ( item ) */ void BindFly (x, y, str) int x, y; char * str; { char buf [20]; char * planes; if (last_layout == PLANE_MODE) planes = Fmt ("%d", pl_nr (curplane)); else if (last_layout == WING_MODE) planes = WingId (); else planes = (char *) 0; if (str != (char *) 0 && sscanf (str, " ( %s )", buf) == 1) { if (CharToItem (* buf) < 0) { Message (Fmt ("Illegal bind: fly (%s)", buf)); Bell (); return; } DoFly (x, y, planes, (char *) 0, buf, (char *) 0); } else DoFly (x, y, planes, (char *) 0, (char *) 0, (char *) 0); } void DoFly (x, y, planes, escort, trans2, path) int x, y; char * planes; char * escort, * trans2; char * path; { int max_range; int max_load; Sector design; int carrier; bool all_yours; const char *trans = trans2; UnmarkAllPlanes (); if (planes == (char *) 0) { planes = SelectPlanes (x, y, cursct, MIS_FLY, "Fly which planes ?"); if (planes == (char *) 0) { Message ("Fly cancelled"); return; } } MarkPlanes (planes); FilterPlanesMob (); FilterPlanesHaving (P_M); FilterPlanesHaving (P_O); MarkAs20Mob (); max_load = 2 * LoadMarked (False); planes = MarkedPlanesId (MOB20); if (planes == (char *) 0) { Message ("Nothing to fly with"); Bell (); return; } if (last_planes != (char *) 0) free (last_planes); last_planes = Str (planes); if (escort == (char *) 0) escort = SelectPlanes (x, y, cursct, MIS_ESCORT, "Use as escort ?"); if (escort != (char *) 0) { MarkPlanes (escort); FilterPlanesMob (); FilterPlanesHaving (P_M); FilterPlanesHaving (P_O); escort = MarkedPlanesId (MOB12); } if (escort == (char *) 0) escort = ""; if (last_escort != (char *) 0) free (last_escort); last_escort = Str (escort); if (! ChargePetrol ()) { Message ("Not enough petrol !"); Bell (); return; } max_range = MaxRangeMarked (cursct); SetAgain (RedoFly); last_x = x; last_y = y; last_sct = cursct; if (path == (char *) 0) { path = AskFlyRoute (cursct, max_range - 1, "fly"); if (path == (char *) 0) { Message ("fly cancelled"); UnchargePetrol (); return; } } else { if (strlen (path) > max_range - 1) { Message ("Too far away !"); UnchargePetrol (); return; } } if (strlen (path) == 0 && ! Confirm ("No path, fly anyway? ", False)) { Message ("Fly cancelled"); UnchargePetrol (); return; } if (last_path != (char *) 0) free (last_path); last_path = Str (path); design = FollowOwnedPath (cursct, path, & all_yours); last_design = design; if (design == (Sector) 0 || ! s_owned (design) && s_des (design) != '.') { Message ("end sector should be yours !"); UnchargePetrol (); Bell (); return; } if (s_des (design) == '^') { Message ("you can't land in mountains"); UnchargePetrol (); Bell (); return; } carrier = -1; if (s_des (design) == '.') { if (!(AllMarkedPlanesHave (P_L) || AllMarkedPlanesHave (P_h))) { Message ("All planes should be light !"); Bell (); UnchargePetrol (); return; } carrier = AskCarrier (x + 2, y + 2, design, False); /* FIXIT */ if (carrier < 0) { UnchargePetrol (); Message ("No aircraft carrier here !"); Bell (); return; } } else if (s_des (design) != '*' || s_eff (design) < 60) { if (! AllMarkedPlanesHave (P_h)) { Message ("End sector is not an airport !"); Bell (); UnchargePetrol (); return; } } if (max_load > 0 && design != cursct) { if (trans == (char *) 0) { trans = AskFlyItem (x + 2, y + 2, max_load, MIS_FLY); if (trans == (char *) 0) { Message ("Fly cancelled"); UnchargePetrol (); return; } } if (* trans != '\0') if (! LoadMarkedPlanes (* trans, 2)) { Message (Fmt ("Not enough %s for all planes!", trans)); Bell (); UnchargePetrol (); Bell (); return; } } else trans = ""; if (last_trans != (char *) 0) free (last_trans); last_trans = Str (trans); if (command_state == FORCE_BUF_STATE && all_yours) { FeedCommand (Fmt ("fly %s %s %s %sh %s", last_planes, strlen (last_escort) == 0 ? "." : last_escort, CrdStr (cursct), last_path, strlen (trans) == 0 ? "." : trans), PRINT); } else { if (! FeedFly ("fly", last_planes, last_escort, (char *) 0, CrdStr (cursct), Fmt ("%sh", last_path), trans)) { Message ("Something went wrong, fly failed?"); Bell (); UnchargePetrol (); if (* trans != '\0') UnloadMarkedPlanes (* trans, 2); return; } ParseFlyOutput (carrier); } ChargeMobility (); MoveMarkedPlanes (design, carrier); if (* trans != '\0') UnloadMarkedPlanes (* trans, 2); CensusSct (cursct); DrawSector (cursct); Message ("fly done"); } xemp5.1-beta/lib/plane/harden.c100444 12266 2116 6172 6023771740 14717 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/plane/RCS/harden.c,v 5.2 1995/09/08 07:39:41 jpo Exp $ $Date: 1995/09/08 07:39:41 $ $Author: jpo $ $Id: harden.c,v 5.2 1995/09/08 07:39:41 jpo Exp $ $Locker: $ $Log: harden.c,v $ Revision 5.2 1995/09/08 07:39:41 jpo const * Revision 5.1 93/03/14 16:51:08 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:20 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:42:01 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "plane.h" void RedoHarden () { if (last_layout == PLANE_MODE) { Harden (Fmt ("%d", pl_nr (curplane))); CensusPlane (curplane); } else if (last_layout == WING_MODE) { Harden (WingId ()); CensusWing (curwing); } else { Message ("No current plane/wing selected"); Bell (); } } void Harden (what) const char * what; { Plane ptr; char * ans; int inc; char buffer [BUFSIZ]; int nr, i; bool first; UnmarkAllPlanes (); MarkPlanes (what); ans = InputAtMessage ("Increase by: ", 3, GS_PNUMBER); if (ans == (char *) 0 || interrupt) { interrupt = False; Message ("Harden cancelled"); Bell (); return; } SetAgain (RedoHarden); if (* ans != '\0') { inc = atoi (ans); if (inc == 0) { Message ("harden cancelled"); Bell (); return; } } else inc = 0; buffer [0] = '\0'; nr = 0; first = True; for ALL_PLANES (ptr) if (pl_marked (ptr)) { if (pl_xcd (ptr) != s_xcd (cursct) || pl_ycd (ptr) != s_ycd (cursct)) continue; if (! PlaneHas (ptr, P_M)) { Warning (Fmt ("%s #%d ain't a missile", PlaneName (ptr), pl_nr (ptr))); continue; } if (pl_shipnr (ptr) >= 0) { Warning (Fmt ("%s #%d is on a ship", PlaneName (ptr), pl_nr (ptr))); continue; } if (inc == 0) { ans = InputAtMessage (Fmt ( "%s #%d, increment by? ", PlaneName (ptr), pl_nr (ptr)), 3, GS_PNUMBER); if (ans == (char *) 0 || interrupt) { Message ("Harden cancelled"); Bell (); interrupt = False; return; } if (* ans == '\0') i = 0; else i = atoi (ans); } else i = inc; if (pl_hard (ptr) + i > 127) i = 127 - pl_hard (ptr); if (i == 0) continue; if (q_hcm (cursct) == 0) { Warning (Fmt ("Sector has no %shcm!", nr == 0 ? "" : "more ")); break; } nr ++; if (q_hcm (cursct) < i) { Warning (Fmt ("Sector has only %d hcm left", q_hcm (cursct))); i = q_hcm (cursct); inc = 0; } if (inc == 0) FeedCommand (Fmt ("harden %d %d", pl_nr (ptr), i), PRINT); else { if (first) first = False; else strcat (buffer, "/"); strcat (buffer, Fmt ("%d", pl_nr (ptr))); } inc_pl_hard (ptr, i); set_q_hcm (cursct, q_hcm (cursct) - i); } if (nr == 0) { Message ("No missiles affected"); return; } if (strlen (buffer) > 0) FeedCommand (Fmt ("harden %s %d", buffer, inc), PRINT); Message (Fmt ("%d missiles hardened", nr)); } xemp5.1-beta/lib/plane/launch.c100444 12266 2116 20163 6023771740 14744 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/plane/RCS/launch.c,v 5.2 1995/09/08 07:39:44 jpo Exp $ $Date: 1995/09/08 07:39:44 $ $Author: jpo $ $Id: launch.c,v 5.2 1995/09/08 07:39:44 jpo Exp $ $Locker: $ $Log: launch.c,v $ Revision 5.2 1995/09/08 07:39:44 jpo renamed routines * Revision 5.1 93/03/14 16:51:08 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:20 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:42:01 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "plane.h" static Sector LaunchDesignation (quest, range) char * quest; int range; { Sector sct; int button; int x, y; Message (Fmt ("%s (range %d)", quest, range)); MesBut ("View", "Cancel", "Launch"); for (;;) { if (! SelectSctCrd (& x, & y, & button) || interrupt || button == MIDDLE_BUTTON) { Message ("Launch cancelled"); interrupt = False; ClearMes (); MesClearBut (); return (Sector) 0; } sct = World (x, y, S_DESIG); if (sct == (Sector) 0) continue; if (button == LEFT_BUTTON) { CensusSct (sct); continue; } if (Dist (s_xcd (cursct), x, s_ycd (cursct), y) > range) { Message (Fmt ("Too far away (range is %d)", range)); Bell (); continue; } MesClearBut (); return sct; } } void LaunchWing (wing) char *wing; { Sector sct; Plane missile, plane; bool nuke, launched; register char * p; char * ptr, * ans; int x, y; int nr; missile = 0; launched = nuke = False; FeedEmpire (Fmt ("launch %s", wing), PRINT); for (;;) { ptr = ReadEmpire (PRINT); if ((p = index(ptr,'#')) != 0) { nr = atoi(p+1); curplane = missile = NrToPlane(nr); } if (EmpireStatus () == E_QUESTION) { PrintAtEmpire (ptr); if (StrEQ (ptr, "RV #") || StrEQ (ptr, "Target")) { nuke = StrEQ (ptr, "RV"); launched = True; do { sct = LaunchDesignation ( "Launch missile", pl_range (missile)); } while (sct == (Sector) 0); FeedEmpire (CrdStr (sct), PRINT); continue; } ans = InputAtMessage (ptr, 10, GS_TEXT); if (ans == (char *) 0 || interrupt) { Message ("Aborting launch"); while (EmpireStatus () != E_COMMAND) { FeedEmpire ("aborted", PRINT); ptr = WaitForPrompt (PRINT); } PrintAtEmpire (ptr); Message ("Launch aborted"); return; } FeedEmpire (ans, PRINT); continue; } else if (EmpireStatus () == E_COMMAND) { PrintAtEmpire (ptr); if (launched) { plane = pl_nxtsct (curplane); curplane = plane; Message ("Launch done"); } else { Message ("Launch failed!"); Bell (); } if (! nuke) FScanDump (CrdStr (cursct), PRINT); CensusPlane (curplane); return; } else if (EmpireStatus () == E_PRINTING) { if (sscanf (ptr, "turned %d,%d into a radio", & x, & y) == 2) { /* Gniffel */ sct = World (x, y, S_DESIG); UpdateSectorDes (sct, '\\', True); DrawSector (sct); continue; } else if (sscanf (ptr, "left nothing but water in %d,%d", & x, & y) == 2) { sct = World (x, y, S_DESIG); UpdateSectorDes (sct, '\\', True); DrawSector (sct); continue; } /* * Think you don't want to redump * YOUR sectors while nuking... * * Also no use scanning damages. */ if (StrEQ (ptr, "KABOOOOM")) { Message ("Damned, launch failed !"); Bell (); (void) WaitForPrompt (PRINT); plane = curplane; DeletePlane (curplane); curplane = plane; } if (StrEQ (ptr, "Launching!")) { DeletePlane (curplane); } } } } void LaunchMissile (missile) Plane missile; { Sector sct; Plane plane; bool nuke, launched; char * ptr, * ans; int x, y; if (pl_eff (missile) < 60) { Message ("You can't launch that, must be at least 60%"); Bell (); return; } launched = nuke = False; FeedEmpire (Fmt ("launch %d", pl_nr (missile)), PRINT); for (;;) { ptr = ReadEmpire (PRINT); if (EmpireStatus () == E_QUESTION) { PrintAtEmpire (ptr); if (StrEQ (ptr, "RV #") || StrEQ (ptr, "Target")) { nuke = StrEQ (ptr, "RV"); launched = True; do { sct = LaunchDesignation ( "Launch missile", pl_range (missile)); } while (sct == (Sector) 0); FeedEmpire (CrdStr (sct), PRINT); continue; } ans = InputAtMessage (ptr, 10, GS_TEXT); if (ans == (char *) 0 || interrupt) { Message ("Aborting launch"); while (EmpireStatus () != E_COMMAND) { FeedEmpire ("aborted", PRINT); ptr = WaitForPrompt (PRINT); } PrintAtEmpire (ptr); Message ("Launch aborted"); return; } FeedEmpire (ans, PRINT); continue; } else if (EmpireStatus () == E_COMMAND) { PrintAtEmpire (ptr); if (launched) { plane = pl_nxtsct (curplane); DeletePlane (curplane); curplane = plane; Message ("Launch done"); } else { Message ("Launch failed!"); Bell (); } if (! nuke) FScanDump (CrdStr (cursct), PRINT); CensusPlane (curplane); return; } else if (EmpireStatus () == E_PRINTING) { if (sscanf (ptr, "turned %d,%d into a radio", & x, & y) == 2) { /* Gniffel */ sct = World (x, y, S_DESIG); UpdateSectorDes (sct, '\\', True); DrawSector (sct); continue; } else if (sscanf (ptr, "left nothing but water in %d,%d", & x, & y) == 2) { sct = World (x, y, S_DESIG); UpdateSectorDes (sct, '\\', True); DrawSector (sct); continue; } /* * Think you don't want to redump * YOUR sectors while nuking... * * Also no use scanning damages. */ if (StrEQ (ptr, "KABOOOOM")) { Message ("Damned, launch failed !"); Bell (); (void) WaitForPrompt (PRINT); plane = curplane; DeletePlane (curplane); curplane = plane; if (! nuke) FScanDump (CrdStr (cursct), PRINT); PlaneCensus (curplane); return; } } } } void LaunchSatellite (plane) Plane plane; { Sector sct; Sector des; int x, y; bool launched; char * ptr, * ans, * ptri; launched = False; sct = LaunchDesignation ("Launch satellite", pl_range (plane)); if (sct == (Sector) 0) { Message ("Launch cancelled"); return; } FeedEmpire (Fmt ("launch %d", pl_nr (plane)), PRINT); for (;;) { ptr = ReadEmpire (PRINT); if (EmpireStatus () == E_QUESTION) { PrintAtEmpire (ptr); if (StrEQ (ptr, "Target sector")) { if (launched) { FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); Message ("Error, no launch done"); Bell (); return; } FeedEmpire (CrdStr (sct), PRINT); launched = True; continue; } ans = InputAtMessage (ptr, 10, GS_TEXT); if (ans == (char *) 0 || interrupt) { Message ("Aborting launch"); while (EmpireStatus () != E_COMMAND) { FeedEmpire ("aborted", PRINT); ptr = WaitForPrompt (PRINT); } PrintAtEmpire (ptr); Message ("Launch aborted"); return; } FeedEmpire (ans, PRINT); continue; } else if (EmpireStatus () == E_COMMAND) { PrintAtEmpire (ptr); if (launched) { Message ("Launch done"); return; } else { Message ("Launch failed!"); Bell (); return; } } else if (EmpireStatus () == E_PRINTING) { if (StrEQ (ptr, "KABOOOOM")) { Message ("Damned, launch failed !"); Bell (); (void) WaitForPrompt (PRINT); DeletePlane (plane); return; } ptri = index (ptr, ','); if (ptri == (char *) 0) continue; while (ptri >= ptr && * ptri != 'o') ptri --; if (ptri == ptr) continue; if (sscanf (ptri, "over %d , %d", & x, & y) == 2) { set_pl_launc (plane); des = World (x, y, S_DESIG); MovePlaneTo (plane, des); } } } } void DoLaunch (plane) Plane plane; { if (pl_launc (plane)) { Message ("Already launched !"); Bell (); return; } if (PlaneHas (plane, P_M)) LaunchMissile (plane); else if (PlaneHas (plane, P_O)) LaunchSatellite (plane); Census (); } void DoLaunchWing ( wing ) char *wing; { LaunchWing (wing); Census (); } xemp5.1-beta/lib/plane/list.c100444 12266 2116 7076 6023771740 14435 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/plane/RCS/list.c,v 5.2 1995/09/08 07:39:57 jpo Exp $ $Date: 1995/09/08 07:39:57 $ $Author: jpo $ $Id: list.c,v 5.2 1995/09/08 07:39:57 jpo Exp $ $Locker: $ $Log: list.c,v $ Revision 5.2 1995/09/08 07:39:57 jpo const * Revision 5.1 93/03/14 16:51:09 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:20 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:42:01 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "plane.h" #include "sector.h" #define SORT_NR 0 #define SORT_SECTOR 1 #define SORT_TYPE 2 #define SORT_WING 3 #define SORT_MAX 4 static const char *list_planes_how [] = { "sort by number", "sort by sector", "sort by plane-type", "sort by wing", (char *) 0 }; static char * wing_chars = "~abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"; static void AddPlaneToStrings (strings, plane) Strings strings; Plane plane; { AddString (strings, Fmt ( "%4d %-16.16s %3d,%-3d %c %3d%% %3d %3d %3d %3d %3d %3d %5s", pl_nr (plane), PlaneName (plane), pl_xcd (plane), pl_ycd (plane), pl_wing (plane), pl_eff (plane), pl_mob (plane), pl_att (plane), pl_def (plane), pl_tech (plane), pl_range (plane), pl_hard (plane), pl_shipnr (plane) >= 0 ? Fmt ("%d", pl_shipnr (plane)) : "")); } void ListPlanes (x, y) int x, y; { Strings strings; Pager pager; int i, j; int total; Sector sct; Plane ptr; char * ch; bool empty_line; strings = InitStrings (); AddStringsID (strings, list_planes_how, SORT_MAX, 0); pager = InitPager (strings, "Listing of planes"); MapPagerFromTop (pager, map_win, x, y); i = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (i < 0) { Message ("No listing"); return; } strings = InitStrings (); Message ("generating list"); AddString (strings, " # type x,y w eff mu att def tech ran hard ship nuke"); total = 0; switch (i) { case SORT_NR: for ALL_PLANES (ptr) { AddPlaneToStrings (strings, ptr); total ++; } break; case SORT_SECTOR: for (x = - MAX_X / 2; x <= MAX_X / 2; x ++) for (y = - MAX_Y / 2; y <= MAX_Y / 2; y++) { sct = World (x, y, S_EXIST); if (sct == (Sector) 0) continue; empty_line = False; for (ptr = s_fplane (sct); ptr != (Plane) 0; ptr = pl_nxtsct (ptr)) { AddPlaneToStrings (strings, ptr); total ++; empty_line = True; } if (empty_line) AddString (strings, ""); } break; case SORT_TYPE: for (j = 0; planetypes [j]. nam != (char *) 0; j ++) { empty_line = False; for ALL_PLANES (ptr) { if (pl_type (ptr) == j) { total ++; AddPlaneToStrings (strings, ptr); empty_line = True; } } if (empty_line) AddString (strings, ""); } break; case SORT_WING: for (ch = wing_chars; * ch != '\0'; ch ++) { empty_line = False; for ALL_PLANES (ptr) { if (pl_wing (ptr) == * ch) { total ++; AddPlaneToStrings (strings, ptr); empty_line = True; } } if (empty_line) AddString (strings, ""); } break; } if (total == 0) { Message ("You don't have any planes !"); FreeStrings (strings); Bell (); return; } AddString (strings, Fmt ("%d planes", total)); #ifdef TERMC_VERSION ShowStringsInPager (strings, "List of planes"); #else /* TERMC_VERSION */ InitWMPager (strings, "List of all planes"); #endif /* TERMC_VERSION */ } xemp5.1-beta/lib/plane/mark.c100444 12266 2116 20031 6023771740 14416 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/plane/RCS/mark.c,v 5.2 1995/09/08 07:40:01 jpo Exp $ $Date: 1995/09/08 07:40:01 $ $Author: jpo $ $Id: mark.c,v 5.2 1995/09/08 07:40:01 jpo Exp $ $Locker: $ $Log: mark.c,v $ Revision 5.2 1995/09/08 07:40:01 jpo const * Revision 5.1 93/03/14 16:51:10 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:20 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:42:01 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "ship.h" #include "plane.h" #include "sector.h" #include "version.h" void UnmarkAllPlanes () { register Plane ptr; for ALL_PLANES (ptr) { clr_pl_20mob (ptr); clr_pl_marked (ptr); clr_pl_petrol (ptr); clr_pl_marked (ptr); } } void MarkPlanes (form) const char * form; { Plane ptr; int sx, sy, ex, ey; int nr; if (strcmp (form, "*") == 0) { for ALL_PLANES (ptr) set_pl_marked (ptr); return; } if (strlen (form) == 1 && (isalpha (* form) || * form == '~')) { for ALL_PLANES (ptr) if (pl_wing (ptr) == * form) set_pl_marked (ptr); return; } if (ConvRealmToCoord (form, & sx, & sy, & ex, & ey)) { for ALL_PLANES (ptr) if (pl_xcd (ptr) >= sx && pl_xcd (ptr) <= ex && pl_ycd (ptr) >= sy && pl_ycd (ptr) <= ey) set_pl_marked (ptr); return; } while (ScanDigit (& form, & nr)) { ptr = NrToPlane (nr); if (ptr != (Plane) 0) set_pl_marked (ptr); if (* form == '/') form ++; } } void DeleteMarkedPlanes () { Plane ptr; bool found; do { found = False; for ALL_PLANES (ptr) if (pl_marked (ptr)) { found = True; Error (Fmt ("%s (#%d) is lost", PlaneName (ptr), pl_nr (ptr))); DeletePlane (ptr); break; } } while (found); } int MaxRangeMarked (sct) Sector sct; { register Plane ptr; int dist; int max_range; max_range = 256; for ALL_PLANES (ptr) if (pl_marked (ptr)) { dist = Dist (s_xcd (sct), pl_xcd (ptr), s_ycd (sct), pl_ycd (ptr)); if (pl_range (ptr) - dist < max_range) max_range = pl_range (ptr) - dist; } return max_range; } int LoadMarked (bomb_mission) bool bomb_mission; { Plane ptr; int load; load = 0; for ALL_PLANES (ptr) if (pl_marked (ptr)) load += planetypes [pl_type (ptr)]. load; return load; } int NrMarkedPlanes () { Plane ptr; int i; i = 0; for ALL_PLANES (ptr) if (pl_marked (ptr)) i ++; return i; } void MoveMarkedPlanesTo (sct) Sector sct; { register Plane ptr; for ALL_PLANES (ptr) if (pl_marked (ptr)) MovePlaneTo (ptr, sct); } void UnchargePetrol () { register Plane ptr; Sector sct; Ship ship; for ALL_PLANES (ptr) if (pl_marked (ptr) && pl_petrol (ptr)) { clr_pl_petrol (ptr); if (pl_shipnr (ptr) >= 0) { ship = NrToShip (pl_shipnr (ptr)); if (ship == (Ship) 0) { Panic ("UnchargePetrol", "plane/mark.c", Fmt ("Can't find ship #%d", pl_shipnr (ptr))); continue; } set_sh_pet (ship, sh_pet (ship) + planetypes [pl_type (ptr)]. fuel); } else { sct = PlaneSector (ptr); set_q_pet (sct, q_pet (sct) + planetypes [pl_type (ptr)]. fuel); } } } bool ChargePetrol () { register Plane ptr; int pet; Sector sct; Ship ship; for ALL_PLANES (ptr) if (pl_marked (ptr)) { pet = planetypes [pl_type (ptr)]. fuel; if (pl_shipnr (ptr) >= 0) { ship = NrToShip (pl_shipnr (ptr)); if (ship == (Ship) 0) { Panic ("ChargePetrol", "plane/mark.c", Fmt ("Can't find ship #%d", pl_shipnr (ptr))); UnchargePetrol (); continue; } if (pet > sh_pet (ship)) { UnchargePetrol (); return False; } set_sh_pet (ship, sh_pet (ship) - pet); set_pl_petrol (ptr); } else { sct = PlaneSector (ptr); if (pet > q_pet (sct)) { UnchargePetrol (); return False; } set_q_pet (sct, q_pet (sct) - pet); set_pl_petrol (ptr); } } return True; } bool AllMarkedPlanesHave (flag) int flag; { register Plane ptr; for ALL_PLANES (ptr) if (pl_marked (ptr)) if (! PlaneHas (ptr, flag)) return False; return True; } void MarkAs20Mob () { register Plane ptr; for ALL_PLANES (ptr) if (pl_marked (ptr)) set_pl_20mob (ptr); } int PlaneMobCost (plane) Plane plane; { int cost; int cost1, cost2; if (KSUOption (MERC)) { cost = pl_20mob (plane) ? 20 : 12; cost1 = 32 + pl_mob (plane); cost2 = cost * 100 / pl_eff (plane); return (cost1 > cost2) ? cost2 : cost1; } else return pl_20mob (plane) ? 20 : 12; } void ChargeMobility () { register Plane ptr; for ALL_PLANES (ptr) if (pl_marked (ptr)) set_pl_mob (ptr, pl_mob (ptr) - PlaneMobCost (ptr)); } void MoveMarkedPlanes (design, carrier) Sector design; int carrier; { register Plane ptr; Plane next; ptr = first_plane; while (ptr != (Plane) 0) if (pl_marked (ptr)) { next = pl_next (ptr); set_pl_shipnr (ptr, carrier); MovePlaneTo (ptr, design); ptr = next; } else ptr = pl_next (ptr); } void FilterPlanesMob () { register Plane ptr; for ALL_PLANES (ptr) if (pl_marked (ptr) && pl_mob (ptr) <= 0) clr_pl_marked (ptr); } void FilterPlanesHaving (flag) int flag; { register Plane ptr; for ALL_PLANES (ptr) if (pl_marked (ptr) && PlaneHas (ptr, flag)) clr_pl_marked (ptr); } void FilterPlanesCantBomb () { register Plane ptr; for ALL_PLANES (ptr) if (pl_marked (ptr) && !( PlaneHas (ptr, P_B) || PlaneHas (ptr, P_T) || PlaneHas (ptr, P_C) )) clr_pl_marked (ptr); } void FilterPlanesNotHaving (flag) int flag; { register Plane ptr; for ALL_PLANES (ptr) if (pl_marked (ptr) && ! PlaneHas (ptr, flag)) clr_pl_marked (ptr); } char * MarkedPlanesId (mobcost) bool mobcost; { register Plane ptr; static char buffer [2] [BUFSIZ]; bool first; static int n = 0; first = True; n = (n + 1) % 2; buffer [n][0] = '\0'; for ALL_PLANES (ptr) if (pl_marked (ptr)) { if (mobcost == MOB20 && ! pl_20mob (ptr) || mobcost == MOB12 && pl_20mob (ptr)) continue; if (first) first = False; else strcat (buffer [n], "/"); strcat (buffer [n], Fmt ("%d", pl_nr (ptr))); } return first ? (char *) 0 : buffer [n]; } void UnloadMarkedPlanes (itemchar, mult) char itemchar; int mult; { Plane ptr; Sector sct; Ship ship; int quant; for ALL_PLANES (ptr) if (pl_marked (ptr) && pl_20mob (ptr) && pl_loaded (ptr)) { quant = mult * planetypes [pl_type (ptr)]. load; if (pl_shipnr (ptr) >= 0) { ship = NrToShip (pl_shipnr (ptr)); SetShipQuant (ship, itemchar, GiveShipQuant (ship, itemchar) + quant); } else { sct = PlaneSector (ptr); SetQuant (sct, itemchar, GiveQuant (sct, itemchar) + quant); } clr_pl_loaded (ptr); } } bool LoadMarkedPlanes (itemchar, mult) char itemchar; int mult; { Plane ptr; Ship ship; Sector sct; int quant, i; int weight; weight = ItemWeight (CharToItem (itemchar), NPKG); if (weight <= 0) return False; for ALL_PLANES (ptr) if (pl_marked (ptr) && pl_20mob (ptr)) { quant = (int) (mult * planetypes [pl_type (ptr)]. load / weight); if (pl_shipnr (ptr) >= 0) { ship = NrToShip (pl_shipnr (ptr)); i = GiveShipQuant (ship, itemchar); if (i < quant) { UnloadMarkedPlanes (itemchar, mult); return False; } SetShipQuant (ship, itemchar, i - quant); } else { sct = PlaneSector (ptr); i = GiveQuant (sct, itemchar); if (i < quant) { UnloadMarkedPlanes (itemchar, mult); return False; } SetQuant (sct, itemchar, i - quant); } set_pl_loaded (ptr); } return True; } void DropMarkedPlanes (item, mult, sct) char item; int mult; Sector sct; { Plane ptr; int quant; int weight; weight = ItemWeight (CharToItem (item), NPKG); if (weight <= 0) return; quant = GiveQuant (sct, item); for ALL_PLANES (ptr) if (pl_marked (ptr) && pl_loaded (ptr) && pl_20mob (ptr)) { quant += (int) (mult * planetypes [pl_type (ptr)]. load / weight); clr_pl_loaded (ptr); } SetQuant (sct, item, quant); } xemp5.1-beta/lib/plane/mission.c100444 12266 2116 10101 6023771740 15142 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/plane/RCS/mission.c,v 1.3 1995/09/08 07:40:06 jpo Exp $ $Date: 1995/09/08 07:40:06 $ $Author: jpo $ $Id: mission.c,v 1.3 1995/09/08 07:40:06 jpo Exp $ $Locker: $ $Log: mission.c,v $ Revision 1.3 1995/09/08 07:40:06 jpo const Revision 1.2 1995/08/15 08:05:26 jpo lots of mission changes * Revision 1.1 93/03/14 16:51:12 etienne * Initial revision * */ #include "main.h" #include "sector.h" #include "version.h" #include "plane.h" static const char *mission_types[] = { "Delete Mission", #define MIS_DELETE 0 "Interdict", #define MIS_INTERDICT 1 "Support", #define MIS_SUPPORT 2 "Offensive Support", #define MIS_OFFSUPP 3 "Defensive Support", #define MIS_DEFSUPP 4 "Escort", #define MIS_ESCORT 5 "Air Defense", #define MIS_AIRDEF 6 (char *)0 }; #define MISSION_MAX 7 static const char type2mission[] = "\0isodea"; void PMission (plane) Plane plane; { int i; Strings strings; Pager pager; Sector sct; char *answer; int range; strings = InitStrings (); AddStringsID (strings, mission_types, MISSION_MAX, 0); pager = InitPager (strings, "Mission Type?"); MapPagerFromTop (pager, map_win, 5, 5); i = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (i < 0 || interrupt) { interrupt = False; Message ("Set mission cancelled"); return; } if (i == 0) { set_pl_mission (plane, type2mission[i]); FeedCommand (Fmt ("mission plane %d c", pl_nr(plane)), PRINT); Message (Fmt ("Plane %d now has no mission", pl_nr(plane))); return; } if (pl_eff(plane) < 60) { Message ("Must be greater than 60% eff"); return; } switch (i) { case MIS_INTERDICT: case MIS_SUPPORT: case MIS_OFFSUPP: case MIS_DEFSUPP: if (PlaneHas (plane, P_T) == 0) { Message ( Fmt("Plane must be have %s capabilty", PlaneCapNames (P_T))); return; } break; case MIS_ESCORT: if (PlaneHas (plane, P_E) == 0 || PlaneHas (plane, P_F) == 0) { Message (Fmt ("Plane must have %s capability", PlaneCapNames (P_E|P_F))); } break; case MIS_AIRDEF: if (PlaneHas (plane, P_F) == 0) { Message (Fmt ("Plane must have %s capability", PlaneCapNames (P_F))); return; } break; } range = pl_range(plane); answer = InputAtMessage (Fmt ("Range [%d]: ",range), 3, GS_PNUMBER); if (interrupt || answer == (char *)0) { interrupt = False; Message ("Mission cancelled"); return; } if (*answer != '\0') range = atoi (answer); sct = PlaneSector (plane); set_pl_mission (plane, type2mission[i]); FeedCommand (Fmt ("mission plane %d %c %s %d", pl_nr (plane), pl_mission(plane), CrdStr(sct), range), PRINT); Message (Fmt ("Plane %d now on %s mission", pl_nr (plane), mission_types[i])); return; } void FScanPlaneMission (list, flag) const char *list; int flag; { int nr; FeedEmpire (Fmt ("mission plane %s q", list), flag); ScanPlaneMission (flag); (void) WaitForPrompt (flag); } void ScanPlaneMission (flag) int flag; { char *ptr, *ind; int mind, pno; Plane plane; if (EmpireStatus () != E_PRINTING) return; if (flag == PRINT) PrintAtEmpire ("Empiretool: scanning plane missions"); ptr = ReadEmpire (DONT_PRINT); if ((ind = StrStr (ptr, "mission")) == NULL) { PrintAtEmpire (Fmt ("Mission scan failed on %s", ptr)); return; } mind = ind - ptr; for (;;) { ptr = ReadEmpire (DONT_PRINT); if (EmpireStatus () != E_PRINTING) { if (flag == PRINT) PrintAtEmpire (ptr); return; } if ((ind = index (ptr, '#')) == NULL) continue; ind ++; if (!ScanDigit ((ConstVP)&ind, &pno) || (plane = NrToPlane (pno)) == (Plane)0) { PrintAtEmpire (Fmt ("#%d Unknown plane (rescan planes!)", pno)); Bell (); (void) EmpireMore (); continue; } switch (ptr[mind]) { case 'i': case 's': case 'o': case 'd': case 'e': case 'a': set_pl_mission (plane, ptr[mind]); break; case 'h': set_pl_mission (plane, '\0'); break; default: PrintAtEmpire (Fmt ("Unknown mission type %s", ptr + mind)); Bell (); break; } } } xemp5.1-beta/lib/plane/paradrop.c100444 12266 2116 5400 6023771740 15257 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/plane/RCS/paradrop.c,v 5.1 1993/03/14 16:51:12 etienne Exp $ $Date: 1993/03/14 16:51:12 $ $Author: etienne $ $Id: paradrop.c,v 5.1 1993/03/14 16:51:12 etienne Exp $ $Locker: $ $Log: paradrop.c,v $ Revision 5.1 1993/03/14 16:51:12 etienne *** empty log message *** * Revision 5.0 93/02/06 09:23:20 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:42:01 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "plane.h" #include "var.h" static char * last_planes = (char *) 0; static int last_x, last_y; static Sector last_sct = (Sector) 0; void RedoParadrop () { Paradrop (last_x, last_y, last_planes); /* if (cursct == last_sct) Paradrop (last_x, last_y, last_planes); else if (last_layout == PLANE_MODE) Paradrop (s_xcd(cursct), s_ycd(cursct), Fmt ("%d", pl_nr (curplane))); else if (last_layout == WING_MODE) Paradrop (s_xcd(cursct), s_ycd(cursct), WingId()); else DoParadrop (last_x, last_y); */ } void Paradrop (x, y, what) int x, y; char * what; { char * escort; char * path; Sector to; int max_range; UnmarkAllPlanes (); MarkPlanes (what); if (LoadMarked (False) > s_mil (cursct) / ItemWeight (V_MILIT, NPKG)) { Message ("Not enough mils"); Bell (); return; } if (NrMarkedPlanes () == 0) { Message ("No planes to paradrop !"); Bell (); return; } if (last_planes != (char *) 0) free (last_planes); last_planes = Str (what); escort = SelectPlanes (x, y, cursct, MIS_ESCORT, "Use as escort ?"); if (escort == (char *) 0) return; MarkPlanes (escort); max_range = MaxRangeMarked (cursct) / 2; SetAgain (RedoParadrop); last_x = x; last_y = y; last_sct = cursct; path = AskFlyRoute (cursct, max_range - 1, "paradrop"); if (path == (char *) 0) { Message ("paradrop cancelled"); return; } to = FollowPath (cursct, path); switch (s_des(to)) { case '^': case '.': case '\\': case 'c': case 'f': Message ("That would be pointless"); return; } FeedEmpire (Fmt ("paradrop %s %s %s %sh", what, escort, CrdStr (cursct), path), PRINT); ParseFlyOutput (-1); Message ("Redumping planes & sects"); FScanPlanes (what, PRINT); if (* escort != '.') FScanPlanes (escort, PRINT); RedumpSector (cursct, PRINT); RedumpSector (to, PRINT); CensusSct (cursct); DrawMap (); Message ("paradrop done"); } void DoParadrop (x, y) int x, y; { char * pl, * tmp; UnmarkAllPlanes (); pl = SelectPlanes (x, y, cursct, MIS_PARADROP, "Which planes to paradrop ?"); if (pl == (char *) 0) return; tmp = Str (pl); Paradrop (x + 2, y + 2, tmp); free (tmp); } xemp5.1-beta/lib/plane/path.c100444 12266 2116 41231 6023771741 14426 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/plane/RCS/path.c,v 5.2 1995/09/08 07:40:18 jpo Exp $ $Date: 1995/09/08 07:40:18 $ $Author: jpo $ $Id: path.c,v 5.2 1995/09/08 07:40:18 jpo Exp $ $Locker: $ $Log: path.c,v $ Revision 5.2 1995/09/08 07:40:18 jpo const * Revision 5.1 1993/03/14 16:51:13 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:20 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:42:01 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "plane.h" #include "var.h" #include "nation.h" #include "ship.h" char * BestFlyPath (sx, sy, ex, ey) int sx, sy, ex, ey; { int dx, dy; static char path [100]; path [0] = '\0'; dx = EX (sx - ex); dy = EY (sy - ey); while (dx != 0 || dy != 0) { if (dy == 0) { if (dx > 0) { strcat (path, "g"); dx -= 2; } else { strcat (path, "j"); dx += 2; } continue; } if (dy > 0) { if (dx < 0) { strcat (path, "u"); dx ++; dy --; } else { strcat (path, "y"); dx --; dy --; } } else { if (dx < 0) { strcat (path, "n"); dx ++; dy ++; } else { strcat (path, "b"); dx --; dy ++; } } } return path; } #define MAX_PARTS 50 char * AskFlyRoute (start, max_dist, comm) Sector start; int max_dist; char * comm; { char * path [MAX_PARTS]; Sector scts [MAX_PARTS]; static char buffer [200]; int nr, i; int dist; int x, y, button; Sector to; nr = 0; scts [0] = start; MarkSector (start); Message (Fmt ("Please select %s route (max_dist: %d)", comm, max_dist)); MesBut ("View", "Cancel", "Set"); dist = 0; for (;;) { if (! SelectSctCrd (& x, & y, & button)) { while (nr > 0) { nr --; UnmarkPath (scts [nr], path [nr]); free (path [nr]); } UnmarkSector (scts [nr]); Message ("Cancelled"); MesClearBut (); return (char *) 0; } if (button == MIDDLE_BUTTON) { if (nr == 0) { UnmarkSector (scts [0]); MesClearBut (); return (char *) 0; } nr --; UnmarkPath (scts [nr], path [nr]); dist -= strlen (path [nr]); free (path [nr]); Message (Fmt ("Select %s route (dist: %d, left: %d)", comm, dist, max_dist - dist)); continue; } to = World (x, y, S_DESIG); if (to == (Sector) 0) continue; if (button == LEFT_BUTTON) { CensusSct (to); continue; } if (button != RIGHT_BUTTON) continue; if (to == scts [nr]) { buffer [0] = '\0'; for (i = 0; i < nr; i ++) { UnmarkPath (scts [i], path [i]); strcat (buffer, path [i]); free (path [i]); } UnmarkSector (scts [0]); MesClearBut (); return buffer; } path [nr] = BestFlyPath (s_xcd (scts [nr]), s_ycd (scts [nr]), x, y); if (dist + strlen (path [nr]) > max_dist) { Message (Fmt ( "%d sectors too far away! (max dist: %d, now: %d)", dist + strlen (path [nr]) - max_dist, max_dist, dist)); Bell (); continue; } path [nr] = Str (path [nr]); MarkPath (scts [nr], path [nr]); dist += strlen (path [nr]); scts [++ nr] = to; Message (Fmt ("Select fly route (dist: %d, left: %d)", dist, max_dist - dist)); } } char * ConvEff (eff) char * eff; { /* see lib/global/misc.c */ if (strcmp (eff, "minimally") == 0) return "0-24%"; else if (strcmp (eff, "partly") == 0) return "24-49%"; else if (strcmp (eff, "moderately") == 0) return "49-74%"; else if (strcmp (eff, "completely") == 0) return "74-100%"; else return "???%"; } void ParseFlyOutput (carrier) int carrier; { char * line; char * answer; char * ptri; char buffer [100]; char word [50]; char des; #ifdef pipo char effic [20]; char ownername [50]; int owner; int nr; Strings strings; Pager pager; bool handled; #endif Sector sct; int nr_mines; int x, y; int o_hits, o_aborted, o_shotdown; int t_hits, t_aborted, t_shotdown; bool shotdown, aborted; WinInfo win; int taken, planenr, nr_interc; Plane plane; bool spy, recon; win = OpenWindow (census_win, 0, CENSUS_HEIGHT - 13, CENSUS_WIDTH - 1, 12, CHARS, MENU, 0); PrintB (win, 0, 0, "Aircombat report: "); PrintN (win, 0, 2, "# our planes:"); /* 2, 16 */ PrintN (win, 0, 3, "# their planes:"); /* 3, 16 */ PrintN (win, 0, 5, " Theirs Ours"); PrintN (win, 0, 6, "Hits"); /* 12 21 */ PrintN (win, 0, 7, "Aborted"); PrintN (win, 0, 8, "Shotdown"); PrintB (win, 16, 2, Fmt ("%d", NrMarkedPlanes ())); PrintB (win, 16, 3, "none"); FlushWindow (win); spy = False; recon = False; #ifdef pipo handled = True; strings = (Strings) 0; #endif o_hits = o_shotdown = o_aborted = t_hits = t_aborted = t_shotdown = 0; nr_interc = 0; while (line = ReadEmpire (PRINT)) { if (line == (char *) 0) return; if (EmpireStatus () == E_QUESTION) { PrintAtEmpire (line); if (StrEQ (line, "Carrier")) { FeedEmpire (Fmt ("%d", carrier), PRINT); continue; } /* if (strings == (Strings) 0) { Panic ("ParseFlyOutput", "plane/path.c", "strings can't be empty !"); FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); return; } if (StringsSize (strings) == 1) { InitStringList (strings); (void) GetNextStringID (strings, & nr); FeedEmpire (Fmt ("%d", nr), PRINT); continue; } pager = InitPager (strings, "Land on which carrier ?"); MapPagerFromTop (pager, map_win, px, py); nr = PagerMenu (pager); FreePager (pager); if (nr < 0) { FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); FreeStrings (strings); return; } FeedEmpire (Fmt ("%d", nr), PRINT); handled = True; continue; } */ Bell (); answer = InputAtMessage (line, 20, GS_TEXT); if (interrupt || answer == (char *) 0) { interrupt = False; Message ("Aborted"); do { FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); } while (EmpireStatus () != E_COMMAND); if (nr_interc || o_hits || t_hits) { Message ("More"); Pause (); } DestroyWindow (win); return; } FeedEmpire (answer, PRINT); continue; } if (EmpireStatus () == E_COMMAND) { PrintAtEmpire (line); if (nr_interc || o_hits || t_hits) { Message ("More"); Pause (); } DestroyWindow (win); return; } if (StrEQ (line, "flying over")) { ptri = line + 11; if (! ScanWord ((ConstVP)& ptri, buffer)) continue; while (ScanWord ((ConstVP)& ptri, word)) if (strcmp (word, "at") == 0) break; else { strcat (buffer, " "); strcat (buffer, word); } des = CharOfDesigName (buffer); if (des == '\0') continue; if (sscanf (ptri, " %d , %d", & x, & y) == 2) { sct = World (x, y, S_DESIG); if (s_des (sct) != des) { UpdateSectorDes (sct, des, True); DrawSector (sct); } } } Message(line); if (sscanf (line, "%d mines laid in %d,%d.", & nr_mines, & x, & y) == 3) { sct = World (x, y, S_DESIG); inc_mines(sct, nr_mines); } /* if (sscanf (line, "(# %hd) %s %s", & nr, ownername, effic) == 2) { if (CountryId (ownername) == UNKNOWN_CNUM) continue; if (handled && strings != (Strings) 0) { FreeStrings (strings); strings = (Strings) 0; } if (strings == (Strings) 0) strings = InitStrings (); AddStringID (strings, Fmt ("#%-4d %-10.10s %s eff %s", nr, ownername, ConvEff (effic), line + 33), nr); handled = False; } */ if (StrEQ (line, "SPY")) { spy = True; continue; } if (spy && ScanSpyLine (line, NULL)) continue; if (StrEQ (line, "Reconnaissance") || StrEQ (line,"Anti-Sub")) { line = ReadEmpire(PRINT); recon = True; continue; } if (recon && ScanReconLine (line)) continue; if (strlen (line) > 21 && strcmp (line + strlen (line) - 21, " rising to intercept!") == 0) { nr_interc += atoi (line); PrintB (win, 16, 3, Fmt ("%-4d", nr_interc)); FlushWindow (win); } ptri = index (line, '('); if (ptri != (char *) 0 && sscanf (ptri, "(#%d) takes %d", & planenr, & taken) == 2) { ptri = index (ptri, '-'); aborted = ptri != (char *) 0 && StrEQ (ptri, "-- aborted"); shotdown = ptri != (char *) 0 && StrEQ (ptri, "-- shot down"); plane = NrToPlane (planenr); if (plane == (Plane) 0) /* their plane */ { t_hits += taken; PrintB (win, 12, 6, Fmt ("%-4d", t_hits)); if (aborted) { t_aborted ++; PrintB (win, 12, 7, Fmt ("%-4d", t_aborted)); } else if (shotdown) { t_shotdown ++; PrintB (win, 12, 8, Fmt ("%-4d", t_shotdown)); } FlushWindow (win); continue; } else /* our plane */ { o_hits += taken; PrintB (win, 21, 6, Fmt ("%-4d", o_hits)); if (shotdown) { DeletePlane (plane); o_shotdown ++; PrintB (win, 21, 8, Fmt ("%-4d", o_shotdown)); } else if (aborted) { o_aborted ++; PrintB (win, 21, 7, Fmt ("%-4d", o_aborted)); set_pl_eff (plane, pl_eff (plane) - taken); } else { set_pl_eff (plane, pl_eff (plane) - taken); } FlushWindow (win); } } } } /* * Ask item to transport */ const char * AskFlyItem (x, y, max_load, mission) int x, y; int max_load; Mission mission; { bool ava [V_MAX]; Pager pager; Strings strings; Plane ptr; int i, j; for (i = 1; i < V_MAX; i ++) ava [i] = True; for (i = 1; i < V_MAX; i ++) for (ptr = first_plane; ptr != (Plane) 0 && ava [i]; ptr = pl_next (ptr)) if (pl_marked (ptr) && pl_20mob (ptr)) if (pl_shipnr (ptr) >= 0) { if (GiveShipQuant (NrToShip (pl_shipnr (ptr)), ItemChar (i)) <= 0) ava [i] = False; } else if (GiveQuant (PlaneSector (ptr), ItemChar (i)) <= 0) ava [i] = False; strings = InitStrings (); if (mission == MIS_FLY) AddStringID (strings, "nothing", 0); for (i = 1; i < V_MAX; i ++) if (ava [i]) { j = max_load / ItemWeight (i, NPKG); if (j <= 0) continue; AddStringID (strings, Fmt ("%-4d %s", j, ItemName (i)), i); } pager = InitPager (strings, mission == MIS_FLY ? "transport what:" : "drop off what:"); MapPagerFromTop (pager, map_win, x, y); i = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (i < 0) return (char *) 0; if (i == 0) return ""; return ItemName (i); } Sector FollowPath (sct, path) Sector sct; char * path; { int x, y; x = s_xcd (sct); y = s_ycd (sct); while (* path != '\0') switch (* path ++) { case 'y': x --; y --; break; case 'u': x ++; y --; break; case 'n': x ++; y ++; break; case 'b': x --; y ++; break; case 'g': x -= 2; break; case 'j': x += 2; break; } return World (x, y, S_DESIG); } Sector FollowOwnedPath (from, path, owned) Sector from; char * path; bool * owned; { int x, y; Sector sct; Ship ship; x = s_xcd (from); y = s_ycd (from); * owned = True; while (* path != '\0') { switch (* path ++) { case 'y': x --; y --; break; case 'u': x ++; y --; break; case 'n': x ++; y ++; break; case 'b': x --; y ++; break; case 'g': x -= 2; break; case 'j': x += 2; break; } if (* owned) { sct = World (x, y, S_EXIST); if (sct == (Sector) 0) { * owned = False; continue; } if (! s_owned (sct) && ! s_owner (sct) == 0) { * owned = False; continue; } for (ship = s_fship (sct); ship != (Ship) 0; ship = sh_nxtsct (ship)) if (! sh_owned (ship)) { * owned = False; break; } } } return World (x, y, S_EXIST); } /* * code straight from ScanLookout, maybe we shoud make this * ScanLookoutLine and use it in ScanLookout and Recon * mta Sat Dec 1 18:08:29 EET 1990 */ bool ScanReconLine(line) char *line; { char *ptri, *tmpptr, savechar, *name; int owner, num, x, y; char des; Sector sct; bool err; time_t tt, time (); tt = time ((time_t *) 0); ptri = line; SkipBlank ((ConstVP)&ptri); if (*ptri == '\n' || *ptri == '\0') return; if (!strncmp (line, "Your ", 5)) /* It's one of my own sectors, just skip it */ return True; if (!strncmp (line, "No ", 3)) /* No planes got through fighter defences */ return False; /* Skip this line for now. */ if (StrStr (line, "Evasion")) return True; /* check for flak guns */ if (!strncmp (line, "firing ", 7)) return False; /* check for possible interceptors */ if (StrStr (line, " rising to intercept!")) return False; if (StrStr (line, " intercepts ")) return False; if (StrStr (line, " takes ")) return False; name = ptri; ptri = index (ptri, '('); if (ptri == (char *) 0) { PrintAtEmpire ("Scan L/S/C : no country"); PrintAtEmpire ( Fmt ("Skipping \"%s\"", line)); Bell (); (void) EmpireMore (); return False; } tmpptr = ptri; ptri += 2; if (! ScanDigit ((ConstVP)&ptri, &owner)) { PrintAtEmpire ("Scan L/S/C : Bad country format"); PrintAtEmpire ( Fmt ("Skipping \"%s\"", line)); Bell (); (void) EmpireMore (); return False; } do tmpptr--; while (isspace (*tmpptr)); savechar = * ++tmpptr; * tmpptr = '\0'; AddCountry (owner, name); * tmpptr = savechar; if (*ptri != ')') ptri = index (ptri, ')'); if (ptri == (char *) 0) { PrintAtEmpire ("Scan L/S/C : Bad country format"); PrintAtEmpire ( Fmt ("Skipping \"%s\"", line)); Bell (); (void) EmpireMore (); return False; } ptri++; /* skip ')' */ SkipBlank ((ConstVP)&ptri); tmpptr = index (ptri, '#'); if (tmpptr == (char *) 0) { /* it's land */ int eff, civ, mil; des = CharOfDesigName (ptri); if (des == '\0') { PrintAtEmpire ( "Scan L/S/C : Unknown Designation ?"); PrintAtEmpire ( Fmt ("Skipping \"%s\"", line)); Bell (); (void) EmpireMore (); return False; } ptri += strlen (DesignName (des)); err = ! ScanDigit ((ConstVP)&ptri, &eff) || *ptri != '%'; ptri++; /* Skip '%' */ SkipBlank ((ConstVP)&ptri); if (err || (strncmp (ptri, "efficient", 9) != 0)) { PrintAtEmpire ("Scan L/S/C : Bad eff Format"); PrintAtEmpire ( Fmt ("Skipping \"%s\"", line)); Bell (); (void) EmpireMore (); return False; } ptri += 9; SkipBlank ((ConstVP)&ptri); civ = 0; mil = 0; for (;;) { if (strncmp (ptri, "with approx", 11) == 0) { ptri += 12; err = ! ScanDigit ((ConstVP)&ptri, &num); ptri++; if (!err && *ptri == 'c') civ = num == 0 ? 1 : num; else if (!err && *ptri == 'm') mil = num == 0 ? 1 : num; else { PrintAtEmpire ( "Scan L/S/C : Bad Lookout format"); PrintAtEmpire ( Fmt ("Skipping \"%s\"", line)); Bell (); (void) EmpireMore (); break; } ptri += 4; } else break; } SkipBlank ((ConstVP)&ptri); if (*ptri != '@' || sscanf (ptri, "@ %d,%d", &x, &y) != 2) { PrintAtEmpire ( "Scan L/S/C : Unknown @ format ?"); PrintAtEmpire (Fmt ( "Skipping \"%s\"", line)); Bell (); (void) EmpireMore (); return False; } sct = World (x, y, S_RESOU); if (s_time (sct) == tt) /* Already got it */ return True; if (s_owned (sct)) { /* Must have been captured */ PrintAtEmpireMode ( Fmt ("Your sector at %s has been captured", CrdStr (sct)), BOLD); Bell (); DEL_INFO (sct); SET_INFO_RES (sct); /* save resources */ set_owner (sct, UNKNOWN_CNUM); } /* This is most uptodate info overwrite anythin else */ set_des (sct, des); set_owner (sct, owner); set_eff (sct, eff); set_civ (sct, civ); set_mil (sct, mil); set_time (sct, tt); SET_INFO_LOO (sct); } else { /* it's a ship */ if (sscanf (tmpptr, "#%d @ %d,%d", &num, &x, &y) != 3) { PrintAtEmpire ( "Scan L/S/C : Unknown ship format ?"); PrintAtEmpire (Fmt ("Skipping \"%s\"", line)); Bell (); (void) EmpireMore (); return False; } do tmpptr--; while (isspace (*tmpptr)); savechar = * ++tmpptr; * tmpptr = '\0'; /* leave's in ptri shipname */ if (AddEnemyShip (x, y, num, owner, ptri)) { * tmpptr = savechar; } /* else ship already on list and at same position * don't tell player what he already knows */ } } xemp5.1-beta/lib/plane/plane.c100444 12266 2116 22531 6032273647 14575 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/plane/RCS/plane.c,v 5.3 1995/09/27 16:11:19 jpo Exp $ $Date: 1995/09/27 16:11:19 $ $Author: jpo $ $Id: plane.c,v 5.3 1995/09/27 16:11:19 jpo Exp $ $Locker: $ $Log: plane.c,v $ Revision 5.3 1995/09/27 16:11:19 jpo marine style missiles. Revision 5.2 1995/09/08 07:40:25 jpo const * Revision 5.1 93/03/14 16:51:17 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:20 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:42:01 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "plane.h" #include "sector.h" #include "nation.h" #include "version.h" Plane first_plane; Plane NrToPlane (nr) int nr; { Plane ptr; for (ptr = first_plane; ptr != (Plane) 0; ptr = pl_next (ptr)) if (pl_nr (ptr) == nr) return ptr; return (Plane) 0; } void AddPlaneToList (plane) Plane plane; { register Plane ptr; Plane prev; if (plane == (Plane) 0) return; if (NrToPlane (pl_nr (plane)) != (Plane) 0) { /* Yuck, exists already ? */ Panic ("AddPlaneToList", "plane.c", "duplicate plane ?"); return; } if (first_plane == (Plane) 0) { first_plane = plane; set_pl_next (plane, (Plane) 0); return; } ptr = first_plane; prev = (Plane) 0; while (ptr != (Plane) 0) { if (pl_nr (ptr) > pl_nr (plane)) { if (prev == (Plane) 0) first_plane = plane; else set_pl_next (prev, plane); set_pl_next (plane, ptr); return; } prev = ptr; ptr = pl_next (ptr); } set_pl_next (prev, plane); set_pl_next (plane, (Plane) 0); } void DeletePlaneFromSector (plane) Plane plane; { Sector sct; Plane ptr, prv; sct = PlaneSector (plane); if (sct == (Sector) 0) return; prv = (Plane) 0; for (ptr = s_fplane (sct); ptr != (Plane) 0; ptr = pl_nxtsct (ptr)) { if (ptr == plane) { if (prv == (Plane) 0) s_fplane (sct) = pl_nxtsct (ptr); else set_pl_nxtsct (prv, pl_nxtsct (ptr)); dec_pla (sct); return; } prv = ptr; } Panic ("DeletePlaneFromSector", "plane.c", "plane not at internal stored position"); } void DeletePlane (plane) Plane plane; { register Plane ptr, prv; if (plane == (Plane) 0) return; /* from sector list */ DeletePlaneFromSector (plane); /* from global list */ prv = (Plane) 0; for (ptr = first_plane; ptr != (Plane) 0; ptr = pl_next (ptr)) { if (ptr == plane) { if (prv == (Plane) 0) first_plane = pl_next (first_plane); else set_pl_next (prv, pl_next (plane)); if (plane == curplane) curplane = pl_nxtsct (curplane); free ((char *) plane); return; } prv = ptr; } Panic ("DeletePlane", "plane.c", "plane not on global list "); } void DeletePlanes () { Plane plane, nplane; for (plane = first_plane; plane != (Plane) 0; plane = nplane) { nplane = pl_next (plane); DeletePlane (plane); } } void AddPlaneToSector (plane, sct) Plane plane; Sector sct; { Plane prev; Plane ptr; Sector from; set_pl_xcd (plane, s_xcd (sct)); set_pl_ycd (plane, s_ycd (sct)); inc_pla (sct); if (s_fplane (sct) == (Plane) 0) { set_fplane (sct, plane); set_pl_nxtsct (plane, (Plane) 0); return; } prev = (Plane) 0; ptr = s_fplane (sct); while (ptr != (Plane) 0) { if (pl_nr (ptr) > pl_nr (plane)) { if (prev == (Plane) 0) set_fplane (sct, plane); else set_pl_nxtsct (prev, plane); set_pl_nxtsct (plane, ptr); return; } prev = ptr; ptr = pl_nxtsct (ptr); } set_pl_nxtsct (prev, plane); set_pl_nxtsct (plane, (Plane) 0); } const char *PlaneName (plane) Plane plane; { return (planetypes [pl_type (plane)]. nam); } int MaxPlaneLoad (plane) Plane plane; { PlType type; type = planetypes [pl_type (plane)]; if (! BIT_SET (type. flags, P_C)) return 0; else return type. load; } bool PortablePlane (plane) Plane plane; { PlType type; type = planetypes [pl_type (plane)]; if (! BIT_SET (type. flags, P_L) && ! BIT_SET (type. flags, P_M) && ! BIT_SET (type. flags, P_h) && ! BIT_SET (type. flags, P_G)) return False; else return True; } const char * PlaneCapNames (flags) long flags; { static char buffer [100]; buffer [0] = '\0'; if (BIT_SET (flags, P_B)) strcat (buffer, " bomber"); if (BIT_SET (flags, P_T)) strcat (buffer, " tactical"); if (BIT_SET (flags, P_F)) strcat (buffer, " intercept"); if (BIT_SET (flags, P_C)) strcat (buffer, " cargo"); if (BIT_SET (flags, P_V)) strcat (buffer, " VTOL"); if (BIT_SET (flags, P_M)) strcat (buffer, " missile"); if (BIT_SET (flags, P_L)) strcat (buffer, " light"); if (BIT_SET (flags, P_S)) strcat (buffer, " spy"); if (BIT_SET (flags, P_I)) strcat (buffer, " image"); if (BIT_SET (flags, P_O)) strcat (buffer, " satellite"); if (BIT_SET (flags, P_X)) strcat (buffer, " stealth"); if (BIT_SET (flags, P_D)) strcat (buffer, " SDI"); if (BIT_SET (flags, P_H)) strcat (buffer, " half-stealth"); if (BIT_SET (flags, P_A)) strcat (buffer, " ASW"); if (BIT_SET (flags, P_N)) strcat (buffer, " mine"); if (BIT_SET (flags, P_W)) strcat (buffer, " sweep"); if (BIT_SET (flags, P_h)) strcat (buffer, " helo"); if (BIT_SET (flags, P_E)) strcat (buffer, " escort"); if (BIT_SET (flags, P_P)) strcat (buffer, " para"); if (BIT_SET (flags, P_G)) strcat (buffer, " x-light"); if (BIT_SET (flags, P_MAR)) strcat (buffer, " marine"); if (flags == 0) strcat (buffer, " unknown"); return buffer; } static void ShowPlaneCBStrings (strings) Strings strings; { int i; int att, def, range; double maint; if(EMPOption (STEALTHV)) { AddString (strings, Fmt ("%s %s", "Name lcm hcm cost maint tech acc", "loa att def ran cre fue stlth ava flags")); } else { AddString (strings, Fmt ("%s %s", "Name lcm hcm cost maint tech acc", "loa att def ran cre fue ava flags")); } AddString (strings, ""); for (i = 0; planetypes [i]. nam != (char *) 0; i ++) { if (planetypes [i]. tech > n_tech (nation)) { att = planetypes [i]. att; def = planetypes [i]. def; range = planetypes [i]. range; } else { att = (int) (planetypes [i]. att * (0.75 + TechFact ((int) n_tech (nation) - planetypes [i]. tech, 2.0))); if (att > 127) att = 127; def = (int) (planetypes [i]. def * (0.75 + TechFact ((int) n_tech (nation) - planetypes [i]. tech, 2.0))); if (def > 127) def = 127; range = (int) (planetypes [i]. range * (0.75 + TechFact ((int) n_tech (nation) - planetypes [i]. tech, 2.0))); if (range > 127) range = 127; } maint = (etu_per_update * - dmin (planetypes [i]. cost * money_plane, -1.0)); maint -= 5 * planetypes [i]. crew * money_mil * etu_per_update; AddString (strings, Fmt ( "%-16.16s %-3d %-3d %-6s %-5s %-4d %-3d %-3d %-3d %-3d %-3d %-3d %-3d%s%-3d%s", planetypes [i]. nam, planetypes [i]. lcm, planetypes [i]. hcm, Fmt ("$%d", planetypes [i]. cost), Fmt ("$%d", (int) (0.5 + maint)), planetypes [i]. tech, planetypes [i]. acc, planetypes [i]. load, att, def, range, planetypes [i]. crew, planetypes [i]. fuel, EMPOption (STEALTHV) ? Fmt (" %-5d \% ", planetypes [i]. stlth) : "", planetypes [i]. ava, PlaneCapNames (planetypes [i]. flags))); } } void PageShowPlaneCBs () { Strings strings; strings = InitStrings (); ShowPlaneCBStrings (strings); if (StringsSize (strings) == 2) { Message ("You don't know about planes yet"); Bell (); FreeStrings (strings); return; } #ifdef TERMC_VERSION ShowStringsInPager (strings, "show plane c&b"); #else /* TERMC_VERSION */ InitWMPager (strings, "show plane c&b"); #endif /* TERMC_VERSION */ } bool PlaneHas (plane, flags) Plane plane; long flags; { return BIT_SET (planetypes [pl_type (plane)]. flags, flags); } void MovePlaneTo (plane, sct) Plane plane; Sector sct; { DeletePlaneFromSector (plane); AddPlaneToSector (plane, sct); } Sector PlaneSector (ptr) Plane ptr; { return World (pl_xcd (ptr), pl_ycd (ptr), S_DESIG); } bool AddEnemyPlane (x, y, nr, owner, ptr) int x, y, nr, owner; char *ptr; { return False; /* TMP ET */ #if NODEF Plane new; Sector to; to = World (x, y, S_DESIG); if ((new = NrToPlane (nr)) != (Plane) 0) { /* It's already on list just move it (Might not have moved) */ if (owner != pl_owner (new)) { PrintAtEmpire (Fmt ( "%s (#%d) changed hands from %s to %s", PlaneName (new), nr, CountryName (new-> owner), CountryName (owner))); set_pl_owner (new, owner); } if (pl_xcd (new) == x && pl_ycd (new) == y) return False; set_pl_oldpos (new, pl_xcd (new), pl_ycd (new)); set_pl_time (new, time ((time_t *) 0)); set_pl_marked (new, False); MovePlane (new, to); return True; } new = (Plane) doalloc ((unsigned) sizeof (struct s_plane)); bzero (new, sizeof (struct s_plane)); set_pl_owner (new, owner); set_pl_nr (new, nr); set_pl_fleet (new, '~'); set_pl_time (new, (time_t) 0); set_pl_marked (new, False); SetPlaneValues (new, ptr); AddPlaneToList (new); AddPlaneToSector (new, to); return True; #endif } xemp5.1-beta/lib/plane/recon.c100444 12266 2116 4530 6023771741 14561 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/plane/RCS/recon.c,v 5.1 1993/03/14 16:51:18 etienne Exp $ $Date: 1993/03/14 16:51:18 $ $Author: etienne $ $Id: recon.c,v 5.1 1993/03/14 16:51:18 etienne Exp $ $Locker: $ $Log: recon.c,v $ Revision 5.1 1993/03/14 16:51:18 etienne *** empty log message *** * Revision 5.0 93/02/06 09:23:20 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:42:01 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "plane.h" #include "var.h" void Recon (x, y, what) int x, y; char * what; { char * escort; char * path; Sector des; int max_range; UnmarkAllPlanes (); MarkPlanes (what); if (NrMarkedPlanes () == 0) { Message ("No planes available to recon"); return; } escort = SelectPlanes (x, y, cursct, MIS_ESCORT, "Use as escort ?"); if (escort == (char *) 0) return; MarkPlanes (escort); /* * Check petroleum. I didn't do it. */ max_range = MaxRangeMarked (cursct); path = AskFlyRoute (cursct, max_range - 1, "recon"); if (path == (char *) 0) { Message ("recon cancelled"); return; } des = FollowPath (cursct, path); /* * check of er een aircraft carrier staat */ if (des == (Sector) 0 || ! s_owned (des) && s_des (des) != '.') { Message ("end sector should be yours !"); return; } if (s_des (des) != '*' && s_des (des) != '.') Warning ("end sector is not an airport"); FeedEmpire (Fmt ("recon %s %s %s", what, escort, CrdStr (cursct)), PRINT); (void) WaitForPrompt (PRINT); if (EmpireStatus () == E_COMMAND) { Message ("recon failed"); Bell (); return; } FeedEmpire (Fmt ("%sh", path), PRINT); ParseFlyOutput (-1); DumpPlanes (what, DONT_PRINT); if (* escort != '.') DumpPlanes (escort, DONT_PRINT); RedumpSector (cursct, DONT_PRINT); if (des != cursct) RedumpSector (des, DONT_PRINT); CensusSct (cursct); Message ("recon done"); } /* * Bind key to recon ( item ) */ void BindRecon (x, y) int x, y; { DoRecon (x, y); } void DoRecon (x, y) int x, y; { char * pl, * tmp; pl = SelectPlanes (x, y, cursct, MIS_RECON, "Recon with which planes ?"); if (pl == (char *) 0) return; tmp = Str (pl); Recon (x + 2, y + 2, tmp); free (tmp); } xemp5.1-beta/lib/plane/scan.c100444 12266 2116 30213 6032273670 14412 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/plane/RCS/scan.c,v 5.3 1995/09/27 16:11:36 jpo Exp $ $Date: 1995/09/27 16:11:36 $ $Author: jpo $ $Id: scan.c,v 5.3 1995/09/27 16:11:36 jpo Exp $ $Locker: $ $Log: scan.c,v $ Revision 5.3 1995/09/27 16:11:36 jpo parse marine missiles Revision 5.2 1995/09/08 07:40:36 jpo const * Revision 5.1 93/03/14 16:51:19 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:20 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:42:01 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "plane.h" PlType planetypes [MAX_PLANETYPES]; static PlType nilplane = { (char *) 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }; int FindPlaneTypeByName (name, must_exist) const char *name; bool must_exist; { register int i; register char *ptr; register const char *nptr; for (i = 0; planetypes [i]. nam != (char *) 0; i ++) { nptr = name; ptr = planetypes [i]. nam; while (*ptr == *nptr && *ptr != '\0') { ptr ++; nptr ++; } if (*ptr != '\0' && *nptr != '\0') { continue; } if (*ptr == '\0' && *nptr == '\0') return i; if (*nptr != '\0') { /* Hmmm "escort" and "escort 2" */ if (ptr - planetypes [i]. nam < 13) continue; free (planetypes [i]. nam); planetypes [i]. nam = Str (name); return i; } else { if ((nptr - name) < 13) continue; else return i; } } if (! must_exist) return -1; PrintAtEmpire (Fmt ("Plane \"%s\" not found in 'plane-types' list", name)); Bell (); (void) EmpireMore (); planetypes [i] = nilplane; planetypes [i]. nam = Str (name); if (isupper (*planetypes [i]. nam)) *planetypes [i]. nam = tolower (*planetypes [i]. nam); return i; } void FScanShowPlaneBuild () { char *line; char *bptr, buffer [BUFSIZ]; int nr, how_much; PlType tmp; int i; FeedEmpire ("show plane build", PRINT); /* (void) SkipNLines (1, DONT_PRINT); */ /* read line: * lcm hcm crew avail tech $ * and get offset from it */ line = ReadEmpire (DONT_PRINT); how_much = index(line, 'l') - line -1; MessageAtEmpire ("scanning plane build data"); nr = 0; for (;;) { line = ReadEmpire (DONT_PRINT); if (StrStr(line, "lcm hcm crew avail tech $")) continue; /* last line ? */ if (EmpireStatus () != E_PRINTING) { PrintAtEmpire (""); PrintAtEmpire (line); planetypes [nr]. nam = (char *) 0; return; } strncpy (buffer, line, how_much); buffer [how_much] = '\0'; bptr = buffer + how_much; while ((! isalnum (* bptr)) && (*bptr != ')') ) bptr --; * ++bptr = '\0'; if (planetypes [nr]. nam != (char *) 0) free (planetypes [nr]. nam); planetypes [nr]. nam = Str (buffer); /* lcm hcm crew avail tech $ */ if (sscanf (line + how_much, " %d %d %d %d %d $%d", & (planetypes [nr]. lcm), & (planetypes [nr]. hcm), & (planetypes [nr]. crew), & (planetypes [nr]. ava), & (planetypes [nr]. tech), & (planetypes [nr]. cost)) != 6) { PrintAtEmpire (Fmt ("Scanning plane failed \"%s\"", line)); PrintAtEmpire (line+how_much); Bell (); (void) EmpireMore (); nr --; } /* sort the list by tech */ for( i=nr; i > 0; i-- ) { if (planetypes[i].tech < planetypes[i-1].tech) { bcopy(&planetypes[i-1], &tmp, sizeof(PlType)); bcopy(&planetypes[i], &planetypes[i-1],sizeof(PlType)); bcopy(&tmp, &planetypes[i], sizeof(PlType)); } } nr ++; } } void FScanShowPlaneStat () { char *line, *ptri; char *bptr, buffer [BUFSIZ]; char word [BUFSIZ]; int nr, how_much; if (land_units) { FeedEmpire ("show plane stat", PRINT); } else { FeedEmpire ("show plane capabilities", PRINT); } line = ReadEmpire (DONT_PRINT); how_much = index(line, 'a') - line -1; MessageAtEmpire ("scanning plane stats"); for (;;) { line = ReadEmpire (DONT_PRINT); if (EmpireStatus () != E_PRINTING) { PrintAtEmpire (""); PrintAtEmpire (line); return; } strncpy (buffer, line, how_much); buffer [how_much] = '\0'; bptr = buffer + how_much; while ((! isalnum (* bptr)) && (*bptr != ')') ) bptr --; * ++ bptr = '\0'; nr = FindPlaneTypeByName (buffer, True); /* acc load att def ran fuel abilites */ if(chainsaw_version) { if (sscanf (line + how_much, " %d %d %d %d %d %d %d", & (planetypes [nr]. acc), & (planetypes [nr]. load), & (planetypes [nr]. att), & (planetypes [nr]. def), & (planetypes [nr]. range), & (planetypes [nr]. fuel), & (planetypes [nr]. stlth)) != 7) { PrintAtEmpire(Fmt("Scanning plane failed \"%s\"", line)); PrintAtEmpire (line+how_much); Bell (); (void) EmpireMore (); } } else { if (sscanf (line + how_much, " %d %d %d %d %d %d", & (planetypes [nr]. acc), & (planetypes [nr]. load), & (planetypes [nr]. att), & (planetypes [nr]. def), & (planetypes [nr]. range), & (planetypes [nr]. fuel)) != 6) { PrintAtEmpire(Fmt("Scanning plane failed \"%s\"", line)); PrintAtEmpire (line+how_much); Bell (); (void) EmpireMore (); } } planetypes [nr]. flags = 0; } } void FScanShowPlaneCap () { char *line, *ptri; char *bptr, buffer [BUFSIZ]; char word [BUFSIZ]; int nr, how_much; FScanShowPlaneStat(); FeedEmpire ("show plane capabilities", PRINT); line = ReadEmpire (DONT_PRINT); if (land_units) { how_much = index(line, 'c') - line - 2; } else { how_much = index(line, 'a') - line -1; } MessageAtEmpire ("scanning plane capabilities"); for (;;) { line = ReadEmpire (DONT_PRINT); if (EmpireStatus () != E_PRINTING) { PrintAtEmpire (""); PrintAtEmpire (line); return; } strncpy (buffer, line, how_much); buffer [how_much] = '\0'; bptr = buffer + how_much; while ((! isalnum (* bptr)) && (*bptr != ')') ) bptr --; * ++ bptr = '\0'; nr = FindPlaneTypeByName (buffer, True); planetypes [nr]. flags = 0; /* Scan max cargoes */ if (land_units) { ptri = line + how_much; } else { ptri = line + how_much + 27; } if (chainsaw_version && !land_units) ptri = ptri + 5; for (;;) { if (! ScanWord ((ConstVP)&ptri, word)) break; if (strcmp (word, "bomber") == 0) planetypes [nr]. flags |= P_B; else if (strcmp (word, "tactical") == 0) planetypes [nr]. flags |= P_T; else if (strcmp (word, "intercept") == 0) planetypes [nr]. flags |= P_F; else if (strcmp (word, "cargo") == 0) planetypes [nr]. flags |= P_C; else if (strcmp (word, "VTOL") == 0) planetypes [nr]. flags |= P_V; else if (strcmp (word, "missile") == 0) planetypes [nr]. flags |= P_M; else if (strcmp (word, "light") == 0) planetypes [nr]. flags |= P_L; else if (strcmp (word, "spy") == 0) planetypes [nr]. flags |= P_S; else if (strcmp (word, "image") == 0) planetypes [nr]. flags |= P_I; else if (strcmp (word, "satellite") == 0) planetypes [nr]. flags |= P_O; else if (strcmp (word, "stealth") == 0) planetypes [nr]. flags |= P_X; else if (strcmp (word, "SDI") == 0) planetypes [nr]. flags |= P_D; else if (strcmp (word, "half-stealth") == 0) planetypes [nr]. flags |= P_H; else if (strcmp (word, "mine") == 0) planetypes [nr]. flags |= P_N; else if (strcmp (word, "helo") == 0) planetypes [nr]. flags |= P_h; else if (strcmp (word, "sweep") == 0) planetypes [nr]. flags |= P_W; else if (strcmp (word, "ASW") == 0) planetypes [nr]. flags |= P_A; else if (strcmp (word, "escort") == 0) planetypes [nr]. flags |= P_E; else if (strcmp (word, "para") == 0) planetypes [nr]. flags |= P_P; else if (strcmp (word, "x-light") == 0) planetypes [nr]. flags |= P_G; else if (strcmp (word, "marine") == 0) planetypes[nr].flags |= P_MAR; else { PrintAtEmpire (Fmt ( "Strange ability in show plane cab \"%s\"", word)); Bell (); (void) EmpireMore (); } } /* planetypes [nr]. flags |= P_KNOWN; */ } } int FScanPlanes (list, flag) const char *list; int flag; { bool nr; FeedEmpire (Fmt ("planes %s", list), flag); nr = ScanPlanes (flag); (void) WaitForPrompt (flag); return (nr); } int ScanPlanes (flag) int flag; { char *line, *ptri; Plane new; int nr, x, y, eff, mob, att, def, tech, ran, hard, shipnr, nuke, nuketype; int own; Sector to; extern WinInfo empire_win; int plane_type; char planename[100]; int i; int nr_of_planes; if (EmpireStatus () != E_PRINTING) return 0; if (flag == PRINT) PrintAtEmpire ("Empiretool: scanning planes"); (void) SkipNLines (1, DONT_PRINT); nr_of_planes = 0; for (;;) { line = ReadEmpire (DONT_PRINT); if (EmpireStatus () != E_PRINTING) { PrintAtEmpire (line); return (nr_of_planes); } if (strlen (line) < 45) return (nr_of_planes); if (deity) { own = atoi (line); line += 4; } else own = (int) my_cnum; for (i = 5; i <= 24; i++) planename [i - 5] = *(line + i); i -= 5; while (planename [-- i] == ' '); planename [i + 1] = '\0'; plane_type = FindPlaneTypeByName (planename, True); nr = atoi (line); if (sscanf (line + 26, "%d,%d", & x, & y) != 2) { PrintAtEmpire (Fmt ("Bad plane %s", line)); continue; } to = World (x, y, S_DESIG); if ((new = NrToPlane (nr)) == (Plane) 0) { new = (Plane) doalloc ((unsigned) sizeof (struct s_plane)); bzero (new, sizeof (struct s_plane)); set_pl_type (new, plane_type); set_pl_nr (new, nr); AddPlaneToList (new); AddPlaneToSector (new, to); } else { set_pl_type (new, plane_type); DeletePlaneFromSector (new); AddPlaneToSector (new, to); } clr_pl_marked (new); set_pl_owner (new, own); for (i = 5; i <= 26; i++) planename [i - 5] = *(line + i); i -= 5; while (planename [-- i] == ' '); planename [i + 1] = '\0'; if(chainsaw_version) { set_pl_wing (new, *(line + 35)); } else { set_pl_wing (new, *(line + 30)); } if (pl_wing (new) == ' ') set_pl_wing (new, '~'); if(chainsaw_version) { ptri = line + 36; } else { ptri = line + 31; } (void) ScanDigit ((ConstVP)& ptri, & eff); ptri ++; /* skip '%' */ (void) ScanDigit ((ConstVP)& ptri, & mob); (void) ScanDigit ((ConstVP)& ptri, & att); (void) ScanDigit ((ConstVP)& ptri, & def); (void) ScanDigit ((ConstVP)& ptri, & tech); (void) ScanDigit ((ConstVP)& ptri, & ran); (void) ScanDigit ((ConstVP)& ptri, & hard); if (strlen(line) > 74) { line[71] = 0; ptri = line + 72; nuke = 0; (void) ScanDigit ((ConstVP)& ptri, & nuke); ptri++; nuketype = FindNukeType(ptri); if (chainsaw_version) { ptri = line + 67; } else { ptri = line + 63; } } else { nuke = 0; nuketype = 0; } if (! ScanDigit ((ConstVP)& ptri, & shipnr)) { set_pl_shipnr (new, -1); set_pl_landnr (new, -1); } else { if (*(line + 72) == 'S' && land_units) set_pl_shipnr (new, shipnr); else set_pl_landnr (new, shipnr); } set_pl_eff (new, eff); set_pl_mob (new, mob); set_pl_att (new, att); set_pl_def (new, def); set_pl_tech (new, tech); set_pl_range (new, ran); set_pl_hard (new, hard); set_pl_nukeamt (new, nuke); set_pl_nuketype (new, nuketype); nr_of_planes ++; } } void DumpSctPlanes (sct, flag) Sector sct; int flag; { (void) DumpPlanes (CrdStr (sct), flag); } void DumpPlanes (form, flag) const char * form; int flag; { int nr; MarkPlanes (form); nr = FScanPlanes (form, flag); if (nr > 0 && land_units) FScanPlaneMission (form, flag); DeleteMarkedPlanes (); } xemp5.1-beta/lib/plane/scrap.c100444 12266 2116 4645 6023771741 14572 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/plane/RCS/scrap.c,v 5.2 1995/09/08 07:40:54 jpo Exp $ $Date: 1995/09/08 07:40:54 $ $Author: jpo $ $Id: scrap.c,v 5.2 1995/09/08 07:40:54 jpo Exp $ $Locker: $ $Log: scrap.c,v $ Revision 5.2 1995/09/08 07:40:54 jpo const * Revision 5.1 93/03/14 16:51:20 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:20 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:42:01 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "plane.h" void RedoScrapPlane () { Plane next; char nextwing; if (last_layout == PLANE_MODE) { next = pl_nxtsct (curplane); ScrapPlane (Fmt ("%d", pl_nr (curplane))); curplane = next; if (curplane != (Plane) 0) CensusPlane (curplane); else Census (); DrawSector (cursct); } else if (last_layout == WING_MODE) { nextwing = GiveNextWingInSct (cursct, curwing); ScrapPlane (WingId ()); if (nextwing != ' ' && nextwing != '\0') { curwing = '\0'; Census (); } else { curwing = nextwing; CensusWing (curwing); } DrawSector (cursct); } else { Message ("No current plane/wing selected"); Bell (); } } /* * There is no binding to scrap. */ void ScrapPlane (what) const char * what; { Plane ptr, next; int inc_lcm, inc_hcm; int nr; UnmarkAllPlanes (); MarkPlanes (what); if (! s_owned (cursct) || s_des (cursct) != '*' || s_eff (cursct) < 60) { Message ("Only scrapping in +60% airports"); Bell (); return; } Message (Fmt ("Scrapping %s", what)); if (! Confirm (Fmt ("Scrap %s", what), True)) { Message ("Scrap plane cancelled"); return; } FeedCommand (Fmt ("scrap plane %s", what), PRINT); SetAgain (RedoScrapPlane); ptr = first_plane; nr = inc_lcm = inc_hcm = 0; while (ptr != (Plane) 0) if (pl_marked (ptr)) { next = pl_next (ptr); inc_lcm += (planetypes [pl_type (ptr)]. lcm * 2) / 3; inc_hcm += (planetypes [pl_type (ptr)]. hcm * 2) / 3; nr ++; DeletePlane (ptr); ptr = next; } else ptr = pl_next (ptr); if (nr == 0) { Message ("No planes scrapped"); Bell (); return; } set_q_lcm (cursct, q_lcm (cursct) + inc_lcm); set_q_hcm (cursct, q_hcm (cursct) + inc_hcm); Message (Fmt ("%d planes scrapped", nr)); Census (); DrawSector (cursct); } xemp5.1-beta/lib/plane/select.c100444 12266 2116 14400 6023771741 14747 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/plane/RCS/select.c,v 5.2 1995/09/08 07:41:01 jpo Exp $ $Date: 1995/09/08 07:41:01 $ $Author: jpo $ $Id: select.c,v 5.2 1995/09/08 07:41:01 jpo Exp $ $Locker: $ $Log: select.c,v $ Revision 5.2 1995/09/08 07:41:01 jpo const * Revision 5.1 1993/03/14 16:51:20 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:20 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:42:01 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "xrc.h" #include "plane.h" #include "sector.h" #include "func.h" #define BOGUS_PLANENR 32123 char * SelectPlanes (x, y, sct, mission, quest) int x, y; Sector sct; Mission mission; const char * quest; { Strings strings; Sector from; Pager pager; Plane ptr, plane; int i; bool ok; bool first; int func; bool flag; int nr; int dist; static char buffer [200]; extern int last_layout; char * cptr; strings = InitStrings (); AddStringID (strings,"Plane Eff Ran Mob Tec Loa Att Def Dist", BOGUS_PLANENR); for ALL_PLANES (ptr) { if ((mission == MIS_WINGADD) || (mission==MIS_TRANSPORT) || (mission > MIS_TRANSPORT)) { if (s_xcd (sct) != pl_xcd (ptr) || s_ycd (sct) != pl_ycd (ptr)) continue; if (pl_shipnr (ptr) >= 0 || pl_landnr (ptr) >= 0) continue; if (mission == MIS_LOADPLANE && !(PlaneHas (ptr, P_L) || PlaneHas (ptr, P_M))) continue; if (mission == MIS_LOADXPLANE && !PlaneHas (ptr, P_G)) continue; if (mission == MIS_LOADHELI && !PlaneHas (ptr, P_h)) continue; AddStringID (strings, Fmt ( "%-4d %-16.16s %c %-3d %-3d %-3d %-4d %-3d %-3d %-3d -", pl_nr (ptr), PlaneName (ptr), pl_wing (ptr), pl_eff (ptr), pl_range (ptr), pl_mob (ptr), pl_tech (ptr), planetypes [pl_type (ptr)]. load, pl_att (ptr), pl_def (ptr)), pl_nr (ptr)); continue; } if (pl_mob (ptr) <= 0 || pl_marked (ptr)) continue; if (PlaneHas (ptr, P_M) || PlaneHas (ptr, P_O)) continue; ok = False; switch (mission) { case MIS_FLY: ok = True; break; case MIS_BOMB: ok = ! PlaneHas (ptr, P_C) && planetypes [pl_type (ptr)]. load > 0; break; case MIS_DROP: case MIS_PARADROP: ok = (MaxPlaneLoad (ptr) > 0) && PlaneHas (ptr, P_C); break; case MIS_DROPMINES: Message("Toooott"); ok = (MaxPlaneLoad (ptr) > 0) && PlaneHas (ptr, P_N); break; case MIS_ESCORT: ok = PlaneHas (ptr, P_F); break; case MIS_RECON: ok = True; /*PlaneHas (ptr, P_S);*/ break; } if (! ok) continue; dist = Dist (s_xcd (sct), pl_xcd (ptr), s_ycd (sct), pl_ycd (ptr)); if (dist > 3) continue; if (! xrc. dist_planes && dist > 0) continue; if (! PlaneHas (ptr, P_V)) { from = PlaneSector (ptr); if (s_des (from) == '.') continue; if (s_des (from) != '.' && (s_des (from) != '*' || s_eff (from) < 60)) continue; } AddStringID (strings, Fmt ( "%-4d %-16.16s %c %-3d %-3d %-3d %-4d %-3d %-3d %-3d %d", pl_nr (ptr), PlaneName (ptr), pl_wing (ptr), pl_eff (ptr), pl_range (ptr), pl_mob (ptr), pl_tech (ptr), MaxPlaneLoad (ptr), pl_att (ptr), pl_def (ptr), dist), pl_nr (ptr)); } if (StringsSize (strings) == 1) { if (mission == MIS_ESCORT) { FreeStrings (strings); return "."; } switch (mission) { case MIS_FLY: cptr = "flying"; break; case MIS_BOMB: cptr = "bombing"; break; case MIS_PARADROP: cptr = "paradrop"; break; case MIS_DROPMINES: cptr = "mining"; break; case MIS_DROP: cptr = "dropping"; break; case MIS_RECON: cptr = "recon"; break; case MIS_LOADPLANE: case MIS_LOADXPLANE: case MIS_LOADHELI: cptr = "loading"; break; default: cptr = "unrecognized"; break; } Message (Fmt ("No planes to select for this %s mission", cptr)); Bell (); return "."; } if (mission != MIS_ESCORT) { if (last_layout == WING_MODE) { for ALL_PLANES (ptr) if (pl_wing (ptr) == curwing) SetStringFlag (strings, pl_nr (ptr), True); } else if (last_layout == PLANE_MODE) SetStringFlag (strings, pl_nr (curplane), True); } pager = InitPager (strings, quest); AddPagerFunc (pager, "Cancel", CANCELFUNC); AddPagerFunc (pager, "Done", DONEFUNC); SetPagerButtons (pager, "Toggle", "Toggle Wing", "Done"); SetPagerButtonIDs (pager, TOGGLEFUNC, TOGGLEWINGFUNC, DONEFUNC); SetPagerSelect (pager); MapPagerFromTop (pager, map_win, x, y); for (;;) { i = PagerMenuFunc (pager, & func, (int *) 0); if (i < 0) { FreePager (pager); FreeStrings (strings); return (char * ) 0; } switch (func) { case TOGGLEFUNC: if (i == BOGUS_PLANENR) continue; ToggleStringFlag (strings, i); RemapPager (pager); continue; case TOGGLEWINGFUNC: if (i == BOGUS_PLANENR) continue; flag = ! GiveStringFlag (strings, i); plane = NrToPlane (i); for ALL_PLANES (ptr) if (pl_wing (ptr) == pl_wing (plane)) SetStringFlag (strings, pl_nr (ptr), flag); RemapPager (pager); continue; case DONEFUNC: FreePager (pager); InitStringList (strings); buffer [0] = '\0'; first = True; while ((nr = GetNextSelectedId (strings)) != -1) { if (first) first = False; else strcat (buffer, "/"); strcat (buffer, Fmt ("%d", nr)); } FreeStrings (strings); if (first) return "."; else return buffer; case CANCELFUNC: FreePager (pager); FreeStrings (strings); return (char * ) 0; } } } xemp5.1-beta/lib/plane/set.c100444 12266 2116 7225 6023771741 14252 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/plane/RCS/set.c,v 5.1 1993/03/14 16:51:21 etienne Exp $ $Date: 1993/03/14 16:51:21 $ $Author: etienne $ $Id: set.c,v 5.1 1993/03/14 16:51:21 etienne Exp $ $Locker: $ $Log: set.c,v $ Revision 5.1 1993/03/14 16:51:21 etienne *** empty log message *** * Revision 5.0 93/02/06 09:23:20 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:42:01 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "plane.h" bool SetPlane (plane, soldat) Plane plane; int * soldat; { char * ans; int price; double mult; price = planetypes [pl_type (plane)]. cost * pl_eff (plane) / 100; ans = InputAtMessage ( Fmt ("Set at what price [cost you $%d]: ", price), 7, "*.0-9"); if (ans == (char *) 0 || interrupt) { Message ("Set cancelled"); return False; } if (* ans == '*') { if (sscanf (ans + 1, "%lf", & mult) != 1) { Message ("Illegal entry, usage: '* mult'"); Bell (); return False; } price = (int) (price * mult); } else if (*ans == '\0') ; /* price is set to default already */ else price = atoi (ans); FeedCommand (Fmt ("set plane %d %d", pl_nr (plane), price), PRINT); if (soldat != (int *) 0) * soldat = price; if (price == 0) { Message (Fmt ("%s #%d removed from trading", PlaneName (plane), pl_nr (plane))); clr_pl_sell (plane); } else { Message (Fmt ("%s #%d set at $%d", PlaneName (plane), pl_nr (plane), price)); set_pl_sell (plane); } return True; } void SetWing (wing) char wing; { char * ans; double mult; int price; int soldat; Plane ptr; int total, n; for (ptr = s_fplane (cursct); ptr != (Plane) 0 && pl_wing (ptr) != wing; ptr = pl_nxtsct (ptr)) ; if (ptr == (Plane) 0) { Message ("No planes in this wing"); Bell (); return; } price = planetypes [pl_type (ptr)]. cost * pl_eff (ptr) / 100; ans = InputAtMessage (Fmt ("Set at what price [#%d cost you %d]: ", pl_nr (ptr), price), 7, ".*0-9"); if (ans == (char *) 0 || interrupt) { Message ("Set wing cancelled"); interrupt = False; return; } if (* ans == '\0') { mult = 0.0; price = -1; } else if (* ans == '*') { if (sscanf (ans + 1, "%lf", & mult) != 1) { Message ("Illegal entry, usage: '* mult'"); Bell (); return; } price = 0; } else { mult = 0.0; price = atoi (ans); if (price < 0) { Message ("Set wing cancelled"); Bell (); return; } } total = 0; n = 0; for (ptr = s_fplane (cursct); ptr != (Plane) 0; ptr = pl_nxtsct (ptr)) if (pl_wing (ptr) == wing) { if (mult != 0.0) { n ++; price = planetypes [pl_type (ptr)]. cost * pl_eff (ptr) / 100; price = (int) (mult * price); total += price; Message (Fmt ("%s #%d set at $%d -- more", PlaneName (ptr), pl_nr (ptr), price)); FeedCommand (Fmt ("set plane %d %d", pl_nr (ptr), price), PRINT); set_pl_sell (ptr); Pause (); if (interrupt) { interrupt = False; break; } } else if (price < 0) { if (SetPlane (ptr, & soldat)) { n ++; total += soldat; } } else { n ++; FeedCommand (Fmt ("set plane %d %d", pl_nr (ptr), price), PRINT); if (price > 0) { set_pl_sell (ptr); total += price; } else clr_pl_sell (ptr); } } if (n == 0) Message ("No planes affected"); else if (total == 0) Message (Fmt ("%d planes removed from trade", n)); else Message (Fmt ("%d plane set, will give $%d ($%d)", n, total, (int) (0.95 * total))); } xemp5.1-beta/lib/plane/transport.c100444 12266 2116 2443 6023771741 15510 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/plane/RCS/transport.c,v 5.1 1993/03/14 16:51:22 etienne Exp $ $Date: 1993/03/14 16:51:22 $ $Author: etienne $ $Id: transport.c,v 5.1 1993/03/14 16:51:22 etienne Exp $ $Locker: $ $Log: transport.c,v $ Revision 5.1 1993/03/14 16:51:22 etienne *** empty log message *** * Revision 5.0 93/02/06 09:23:20 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:42:01 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "var.h" #include "plane.h" void DoTransport (x, y) int x, y; { char * pl, * tmp; UnmarkAllPlanes (); pl = SelectPlanes (x, y, cursct, MIS_TRANSPORT, "Which planes to transport ?"); if (pl == (char *) 0) return; tmp = Str (pl); Transport (x + 2, y + 2, tmp); free (tmp); } void Transport (x, y, what) char * what; { Plane ptr; int weight; weight = 0; UnmarkAllPlanes (); MarkPlanes (what); for ALL_PLANES (ptr) if (pl_marked (ptr)) { weight += ItemWeight (V_LCM, NPKG) * planetypes [pl_type (ptr)]. lcm; weight += 2 * ItemWeight (V_HCM, NPKG) * planetypes [pl_type (ptr)]. hcm; } DoMove (x, y, 'P', weight, what); CensusSct (cursct); } xemp5.1-beta/lib/plane/wing.c100444 12266 2116 10102 6023771741 14427 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/plane/RCS/wing.c,v 5.2 1995/09/08 07:41:18 jpo Exp $ $Date: 1995/09/08 07:41:18 $ $Author: jpo $ $Id: wing.c,v 5.2 1995/09/08 07:41:18 jpo Exp $ $Locker: $ $Log: wing.c,v $ Revision 5.2 1995/09/08 07:41:18 jpo rework plane next stuff * Revision 5.1 93/03/14 16:51:23 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:20 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:42:01 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "plane.h" #include "sector.h" bool WingEmpty (wing) char wing; { Plane plane; for (plane = first_plane; plane != (Plane) 0; plane = pl_next (plane)) if (pl_wing (plane) == wing) return False; return True; } bool WingColocated (wing) char wing; { Plane plane; int x, y; bool found; #ifdef lint x = y = 0; #endif found = False; for (plane = first_plane; plane != (Plane) 0; plane = pl_next (plane)) if (pl_wing (plane) == wing) if (found) { if (pl_xcd (plane) != x || pl_ycd (plane) != y) return False; } else { found = True; x = pl_xcd (plane); y = pl_ycd (plane); } return True; } Sector WingSector (wing) char wing; { Plane plane; for (plane = first_plane; plane != (Plane) 0; plane = pl_next (plane)) if (pl_wing (plane) == wing) return World (pl_xcd (plane), pl_ycd (plane), S_DESIG); return (Sector) 0; } char NextWingInSct (sct, wing) Sector sct; char wing; { char next; Plane ptr; next = '\0'; for (ptr = s_fplane (sct); ptr != (Plane) 0; ptr = pl_nxtsct (ptr)) if (next == '\0') { if (pl_wing (ptr) > wing) next = pl_wing (ptr); } else if (next > pl_wing (ptr) && pl_wing (ptr) > wing) next = pl_wing (ptr); return next; } char FirstWingInSct (sct) Sector sct; { Plane ptr; char first; if (s_fplane (sct) == (Plane) 0) return '\0'; first = '~'; for (ptr = s_fplane (sct); ptr != (Plane) 0; ptr = pl_nxtsct (ptr)) if (pl_wing (ptr) < first) first = pl_wing (ptr); return first; } void WingJoin (from, to) char from, to; { Plane ptr; for (ptr = first_plane; ptr != (Plane) 0; ptr = pl_next (ptr)) if (pl_wing (ptr) == from) set_pl_wing (ptr, to); } char GiveEscortWing () { Plane ptr; for (ptr = s_fplane (cursct); ptr != (Plane) 0; ptr = pl_nxtsct (ptr)) if (BIT_SET (planetypes [pl_type (ptr)]. flags, P_F) && pl_wing (ptr) != '~') return pl_wing (ptr); return '\0'; } static void CalcFreeWings (upper, lower) bool upper [], lower []; { Plane ptr; register i; for (i = 0; i < 26; i ++) upper [i] = lower [i] = True; for ALL_PLANES (ptr) if (isupper (pl_wing (ptr))) upper [pl_wing (ptr) - 'A'] = False; else if (islower (pl_wing (ptr))) lower [pl_wing (ptr) - 'a'] = False; } void ShowFreeWings () { char * ptr; bool upper [26], lower [26]; CalcFreeWings (upper, lower); ptr = MakeFreeString (upper, lower); if (strlen (ptr) == 0) Message ("No free wings"); else Message (Fmt ("Free wings: %s", ptr)); } char FirstFreeWing () { int i; bool upper [26], lower [26]; CalcFreeWings (upper, lower); for (i = 0; i < 26; i ++) if (lower [i]) return 'a' + i; for (i = 0; i < 26; i ++) if (upper [i]) return 'A' + i; return '\0'; } char GiveNextWingInSct (sct, wing) Sector sct; char wing; { char next; Plane ptr; next = 0177; for (ptr = s_fplane (sct); ptr != (Plane) 0; ptr = pl_nxtsct (ptr)) if (pl_wing (ptr) < next && pl_wing (ptr) > wing) next = pl_wing (ptr); if (next < 0177) return next; return '\0'; } char * WingId () { bool first; static char buffer [1024]; Plane ptr; if (! WingColocated (curwing)) { buffer [0] = '\0'; first = True; for (ptr = s_fplane (cursct); ptr != (Plane) 0; ptr = pl_nxtsct (ptr)) if (pl_wing (ptr) == curwing) { if (first) first = False; else strcat (buffer, "/"); strcat (buffer, Fmt ("%d", pl_nr (ptr))); } return buffer; } else return Fmt ("%c", curwing); } xemp5.1-beta/lib/plane/wingadd.c100444 12266 2116 3172 6023771741 15071 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/plane/RCS/wingadd.c,v 5.2 1995/09/08 07:41:35 jpo Exp $ $Date: 1995/09/08 07:41:35 $ $Author: jpo $ $Id: wingadd.c,v 5.2 1995/09/08 07:41:35 jpo Exp $ $Locker: $ $Log: wingadd.c,v $ Revision 5.2 1995/09/08 07:41:35 jpo touch up * Revision 5.1 93/03/14 16:51:23 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:20 greyhelm * y * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:42:01 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "plane.h" void WingAdd (x, y) int x, y; { char first_free; char * quest; char * ans; char * planes; Plane ptr; char wi; first_free = FirstFreeWing (); if (first_free == '\0') quest = "Add to which wing [all used]: "; else quest = Fmt ("Add to which wing [%c]: ", first_free); Bell (); ans = InputAtMessage (quest, 1, "a-zA-Z~"); if (ans == (char *) 0 || interrupt) { interrupt = False; Message ("Wingadd cancelled"); return; } if (* ans == '\0' && first_free == '\0') { Message ("You must specify a wing !"); Bell (); return; } wi = * ans == '\0' ? first_free : * ans; UnmarkAllPlanes (); planes = SelectPlanes (x, y, cursct, MIS_WINGADD, "Select plane(s) to add"); if (planes == (char *) 0 || * planes == '\0' || * planes == '.') return; UnmarkAllPlanes (); MarkPlanes (planes); for ALL_PLANES (ptr) if (pl_marked (ptr)) set_pl_wing (ptr, wi); FeedCommand (Fmt ("wingadd %c %s", wi, planes), PRINT); UnmarkAllPlanes (); } xemp5.1-beta/lib/ship/ 40755 12266 2116 0 6043206336 13051 5ustar jponexorxemp5.1-beta/lib/ship/GNUdepend100644 12266 2116 33300 6015650231 14715 0ustar jponexorSRCS= assault.c \ board.c \ build.c \ fleet.c \ list.c \ mark.c \ mine.c \ mission.c \ navigate.c \ order.c \ path.c \ retreat.c \ scrap.c \ scuttle.c \ select.c \ selectone.c \ set.c \ ship.c \ shipscan.c \ tend.c \ upgrade.c OBJS= assault.o \ board.o \ build.o \ fleet.o \ list.o \ mark.o \ mine.o \ mission.o \ navigate.o \ order.o \ path.o \ retreat.o \ scrap.o \ scuttle.o \ select.o \ selectone.o \ set.o \ ship.o \ shipscan.o \ tend.o \ upgrade.o ### assault.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h board.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h build.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h fleet.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/census.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h list.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/census.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h mark.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h mine.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h mission.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h navigate.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h order.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h path.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/slist.h retreat.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/func.h scrap.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h scuttle.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h select.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/func.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h selectone.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h set.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h ship.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h shipscan.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h tend.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h upgrade.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/census.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h xemp5.1-beta/lib/ship/GNUmakefile100644 12266 2116 1000 6034224736 15213 0ustar jponexor# The following variables are configurable. #-----------------------------------# LOCALCFLAGS := LOCALIFLAGS := LOCALLFLAGS := LOCALSFLAGS := TOPDIR = ../.. LIB := ../libship.a LINTNAME := ship #-----------------------------------# # Productions: # depend: create the dependencies # all: make the library # saber: load things for saber # tags: make tags include $(TOPDIR)/make/GenMakefile include $(DEPENDENCIES) include $(TOPDIR)/make/LibMakefile tags: ../tags ln -s ../tags TAGS: ../TAGS ln -s ../TAGS xemp5.1-beta/lib/ship/assault.c100444 12266 2116 20602 6023772141 15004 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/ship/RCS/assault.c,v 5.2 1995/08/15 07:58:35 jpo Exp $ $Date: 1995/08/15 07:58:35 $ $Author: jpo $ $Id: assault.c,v 5.2 1995/08/15 07:58:35 jpo Exp $ $Locker: $ $Log: assault.c,v $ Revision 5.2 1995/08/15 07:58:35 jpo fixed a few spellings... * Revision 5.1 93/03/14 16:51:32 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:42 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:43:25 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "var.h" #include "ship.h" #include "land.h" #include "version.h" static Ship last_ship = (Ship) 0; static int last_mil; static int last_x, last_y; /* ARGSUSED */ void BindAssault (x, y, str) int x, y; char * str; { DoAssault (x, y, (Ship) 0, 0); } void RedoAssault () { DoAssault (last_x, last_y, last_ship, last_mil); } void Assault (x, y) int x, y; { DoAssault (x, y, (Ship) 0, 0); } void DoAssault (x, y, ship, amils) int x, y; Ship ship; int amils; { Strings strings; Pager pager; Sector nxt; int select, nr; Neighb neighb; int taken, def, mils, a_mils, units = 0, lnd; bool gotmils; bool rescan; bool won; bool ownassault = False; int i; char *line, *answer; char * ans; double needed; Sector sct; char * ptri; int left; nr = 0; gotmils = False; strings = InitStrings (); if (cursct == (Sector) 0 || (s_owned (cursct) && !EMPOption(OWNASSAULT)) || index ("s\\.", s_des (cursct)) != (char *) 0) { Message ("You cannot assault that."); Bell (); return; } if (ship == (Ship) 0) { InitNeighbours (cursct, & neighb); nxt = cursct; do { if (nxt == (Sector) 0 || NO_INFO (nxt)) continue; if (cursct != nxt && s_des (nxt) != '.') continue; for (ship = s_fship (nxt); ship != (Ship) 0; ship = sh_nxtsct (ship)) { if (! sh_owned (ship)) continue; nr++; mils = sh_mil (ship); if (land_units) units = sh_land (ship); if (mils <= 0 && units <= 0) continue; gotmils = True; AddStringID (strings, Fmt ("%s #%d @ %s (%d mils)%s", ShipName (ship), sh_nr (ship), CrdStr (nxt), mils, land_units ? Fmt (" (%d units)",units) : ""), sh_nr (ship)); } } while (NextNeighbour (& nxt, S_EXIST, neighb)); if (nr == 0) { Message ("No ships nearby the target sector"); Bell (); FreeStrings (strings); return; } if (! gotmils) { Message ( "None of the ships have military on board"); Bell (); FreeStrings (strings); return; } pager = InitPager (strings, "Assault from which ship ?"); MapPagerFromTop (pager, map_win, x, y); select = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (select < 0) { Message ("Assault cancelled"); return; } ship = NrToShip (select); } else { /* Hope we didn't loose the ship since last time */ if (sh_mil (ship) == 0 && sh_land (ship) == 0) { Message ("No military to assault with!"); Bell (); last_ship = (Ship) 0; last_mil = 0; return; } sct = ShipSector (ship); select = sh_nr (ship); if (cursct != sct) { if (! IsNeighbour (sct, cursct)) { Message ("Target too far away"); Bell (); return; } if (s_des (sct) != '.') { Message ("Too far inland"); Bell (); return; } } } FeedEmpire (Fmt ("assault %s %d", CrdStr (cursct), select), PRINT); SetAgain (RedoAssault); last_ship = ship; last_mil = 0; last_x = x; last_y = y; for (;;) { line = WaitForPrompt (PRINT); /* * Treaty check */ if (StrEQ (line, "Do you wish to go ahead")) { ans = InputAtMessage (line, 1, "yn"); if (ans == (char *) 0 || interrupt || * ans == '\0' || * ans == 'n') { FeedEmpire ("n", PRINT); (void) WaitForPrompt (PRINT); return; } FeedEmpire (ans, PRINT); continue; } if (EmpireStatus () != E_QUESTION) { Bell (); Message ("Assault failed"); (void) WaitForPrompt (PRINT); return; } ptri = index (line, '('); if (ptri == (char *) 0 || sscanf (ptri, "( max %d )", & def) == 0) def = sh_mil (ship); break; } rescan = False; /* rescan ship */ won = False; /* rescan sector */ if (def == sh_mil (ship) && sh_civ (ship) == 0 && def > 1) def --; for (;;) { if (amils == 0) { Bell (); answer = InputAtMessage (Fmt ( "Attack with [%d]: ", def), 3, GS_PNUMBER); /* answer = InputAtMessage (Fmt ("%s", line), 3, GS_PNUMBER); */ if (interrupt || answer == (char *) 0) { interrupt = False; Message ("Assault cancelled"); FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); return; } if (* answer == '\0') a_mils = def; else a_mils = atoi (answer); } else { a_mils = amils; amils = 0; } mils = sh_mil (ship); if (a_mils <= 0 && sh_land (ship) == 0) { Message ("No mils to attack"); Bell (); FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); return; } if (a_mils > mils) { Message (Fmt ("Only %d mils to assault", mils)); a_mils = mils; } else Message (Fmt ("Assaulting with %d military", a_mils)); if (a_mils == sh_mil (ship) && sh_civ (ship) == 0) if (! Confirm ( "Would leave ship unpopulated, continue?", True)) { Message ("Assault cancelled"); FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); return; } /* * Check if there will be enough food on the ship * * Changed on 920218 -> a_mils inst. off mils */ taken = (int) (sh_foo (ship) * a_mils / (sh_civ (ship) + sh_mil (ship)) + 0.5); left = sh_foo (ship) - taken; needed = (sh_civ (ship) + sh_mil (ship) - mils + sh_uw (ship)) * etu_per_update * eatrate; if (needed > (double) left) { if (no_food == False) if (! Confirm (Fmt ( "Will leave ship #%d with not enough food! (%d vs. %.1f)", sh_nr (ship), left, needed), False)) continue; } break; } FeedEmpire (Fmt ("%d", a_mils), PRINT); last_mil = a_mils; set_sh_mil (ship, sh_mil (ship) - a_mils); while (line = ReadEmpire (PRINT)) { if (line == (char *) 0 && !ownassault) return; if (EmpireStatus () == E_QUESTION) { PrintAtEmpire (line); Bell (); answer = InputAtMessage (line, 10, GS_YN); if (interrupt || answer == (char *) 0) { interrupt = False; Message ("Assault cancelled"); FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); return; } FeedEmpire (answer, PRINT); continue; } if (sscanf (line, "Yours%*[.] %d", & i) == 1) { set_sh_mil (ship, sh_mil (ship) - i); continue; } if (sscanf (line, "Theirs%*[.] %d", & i) == 1) { if (! KNOW_LOO (cursct) && ! KNOW_SPY (cursct)) break; set_civ (cursct, s_civ (cursct) - i); break; /* last message */ } if (sscanf (line, "You reinforce sector %*d,%*d with %d troops", &i) == 1) { set_mil (cursct, s_mil (cursct) + i); ownassault = True; continue; } ptri = index (line, '#'); if (ptri != (char *) 0) { (void) sscanf (ptri, "%d lands ", &lnd); MoveLand (NrToLand (lnd), cursct); RedumpLand (NrToLand (lnd), DONT_PRINT); ownassault = True; continue; } ptri = index (line, '%'); if (ptri != (char *) 0) if (StrEQ (ptri, "% damage")) /* incomming shells */ rescan = True; if (EmpireStatus () == E_COMMAND) { if (ownassault) break; Bell (); Message ("Bad answer from empire. Command Failed ?"); PrintAtEmpire (line); return; } if (StrEQ (line, "You have been defeated")) { Bell (); Message ("Sorry Boss, seems we've been defeated"); continue; } if (StrEQ (line, "You have taken sector")) { Bell (); Message ("Veni Vedi Vici !!!"); won = True; } } if (EmpireStatus () != E_COMMAND) (void) WaitForPrompt (PRINT); if (rescan) RedumpShip (ship, PRINT); if (won) { RedumpSector (cursct, DONT_PRINT); rescan = False; InitNeighbours (cursct, & neighb); while (NextNeighbour (& nxt, S_EXIST, neighb)) if (nxt == (Sector) 0 || NO_INFO (nxt)) { rescan = True; break; } if (rescan) { FScanMap (Fmt ("%d:%d,%d:%d", s_xcd (cursct) - 2, s_xcd (cursct) + 2, s_ycd (cursct) - 1, s_ycd (cursct) + 1), PRINT); DrawNeighbours (cursct); } } } xemp5.1-beta/lib/ship/board.c100444 12266 2116 10101 6023772141 14410 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/ship/RCS/board.c,v 5.2 1995/08/15 07:58:53 jpo Exp $ $Date: 1995/08/15 07:58:53 $ $Author: jpo $ $Id: board.c,v 5.2 1995/08/15 07:58:53 jpo Exp $ $Locker: $ $Log: board.c,v $ Revision 5.2 1995/08/15 07:58:53 jpo fixed up syntax to prototypes * Revision 5.1 93/03/14 16:51:34 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:42 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:43:25 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "var.h" #include "ship.h" static Ship last_ship; void BindBoard (x, y, str) int x, y; char * str; { if (str != (char *) 0) Warning ("You can't bind 'board' with arguments"); DoBoard (x, y, (Ship) 0); } void Board (x, y) int x, y; { DoBoard (x, y, (Ship) 0); } void RedoBoard () { DoBoard (s_xcd(cursct), s_ycd(cursct), last_ship); } void DoBoard (x, y, fromship) int x, y; Ship fromship; { Strings strings; Pager pager; Ship ship; int select, nr, mils; bool succes, gotmils, gotmob; char *ptri, *line; if (last_layout != SHIP_MODE || curship == (Ship) 0) return; if (sh_owned (curship)) { Message ("That's your own ship, use tend command !!"); Bell (); return; } gotmob = gotmils = False; if (fromship == (Ship) 0) { nr = 0; strings = InitStrings (); for (ship = s_fship (cursct); ship != (Ship) 0; ship = sh_nxtsct (ship)) { if (! sh_owned (ship)) continue; nr++; if ((mils = sh_mil (ship)) > 0 && sh_civ (ship) == 0) mils -= 2; if (mils <= 0) continue; gotmils = True; if (sh_mob (ship) <= 0) continue; gotmob = True; AddStringID (strings, Fmt ("%s #%d @ %s (%d mils)", ShipName (ship), sh_nr (ship), CrdStr (cursct), mils), sh_nr (ship)); } if (nr == 0) { Message ("No ships nearby the target sector"); Bell (); FreeStrings (strings); return; } if (! gotmils) { Message ( "None of the ships have (enough) militairs on board"); Bell (); FreeStrings (strings); return; } else if (! gotmob) { Message ("None of the ships have (enough) mobility"); Bell (); FreeStrings (strings); return; } pager = InitPager (strings, Fmt ("Board %s (owner %s) from which ship ?", ShipName (curship), CountryName (sh_owner (curship)))); MapPagerFromTop (pager, map_win, x, y); select = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (select < 0) { Message ("Chicken !!!"); return; } fromship = NrToShip (select); } else { if (sh_mob (fromship) <= 0) { Message (Fmt ("%s #%d doesn't have enough mobility", ShipName (fromship), sh_nr (fromship))); Bell (); last_ship = (Ship) 0; return; } if (sh_mil (fromship) < 2) { Message ("Need two mils to board"); Bell (); last_ship = (Ship) 0; return; } select = sh_nr (fromship); } SetAgain (RedoBoard); last_ship = fromship; FeedEmpire (Fmt ("board %d %d", sh_nr (curship), select), PRINT); succes = False; for (;;) { line = ReadEmpire (PRINT); if (line == (char *) 0) break; if (EmpireStatus () == E_COMMAND) { Bell (); Message ("Board failed"); PrintAtEmpire (line); break; } ptri = strchr (line, 'V'); if (ptri != (char *) 0 && StrEQ (ptri, "Victim ship moves faster than you do")) { Bell (); Message ("Sorry Boss, ship is too fast"); break; } ptri = strchr (line, 'Y'); if (ptri != (char *) 0 && StrEQ (ptri, "You have been repelled")) { Bell (); Message ("Sorry Boss, seems we've been defeated"); break; } ptri = strchr (line, 'B'); if (ptri != (char *) 0 && StrEQ (ptri, "Boarding successful")) { Bell (); succes = True; Message ("Veni Vedi Vici !!!"); break; } } (void) WaitForPrompt (PRINT); CheckShips ( succes ? Fmt ("%d/%d", sh_nr (fromship), sh_nr (curship)) : Fmt ("%d", fromship)); CensusShip (curship); } xemp5.1-beta/lib/ship/build.c100444 12266 2116 13101 6032455620 14423 0ustar jponexor/* $Header: /a/victor/nexor/user4/jpo/xemp/xemp5.0/lib/ship/RCS/build.c,v 5.4 1995/09/28 08:23:44 jpo Exp $ $Date: 1995/09/28 08:23:44 $ $Author: jpo $ $Id: build.c,v 5.4 1995/09/28 08:23:44 jpo Exp $ $Locker: $ $Log: build.c,v $ Revision 5.4 1995/09/28 08:23:44 jpo slightly new build format Revision 5.3 1995/09/08 07:42:44 jpo const Revision 5.2 1995/08/15 07:59:21 jpo fixed up redo * Revision 5.1 93/03/14 16:51:34 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:42 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:43:25 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "var.h" #include "ship.h" #include "nation.h" static int last_shipid, last_techn; void DoBuildShip (x, y, shipid, techn) int x, y; int shipid, techn; { Strings strings; Pager pager; char * ptri, * err; char * line, * answer; int newshipnr; int maint; int mult; if (! s_owned (cursct) || s_des (cursct) != 'h' || s_eff (cursct) < 60) { Message ("You can only build ships in +60% harbors !"); Bell (); return; } if (s_ava (cursct) < 1) { Message ("No available workers !"); Bell (); return; } if (shipid < 0) { strings = InitStrings (); for (shipid = 0; shiptypes [shipid]. nam != (char *) 0; shipid ++) if (shiptypes [shipid]. tec <= (int) n_tech (nation)) { /* Cost to maintain this ship */ /* Of course no multiplier */ maint = (int) (etu_per_update * - dmin (-1.0, shiptypes [shipid]. cos * money_ship)); AddStringID (strings, Fmt ( "%-18.18s %3d tech %3d lcm %3d hcm %3d ava $%-4d ($%d)", shiptypes [shipid]. nam, shiptypes [shipid]. tec, shiptypes [shipid]. lcm, shiptypes [shipid]. hcm, shiptypes [shipid]. ava, shiptypes [shipid]. cos, maint), shipid); } if (StringsSize (strings) == 0) { Message ("You can't build any ships"); Bell (); return; } pager = InitPager (strings, "Build which ship ?"); MapPagerFromTop (pager, map_win, x, y); shipid = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (shipid < 0 || interrupt) { interrupt = False; ClearMes (); return; } } err = (char *) 0; if (land_units) mult=5; else mult=1; if (shiptypes [shipid]. ava > (s_ava (cursct)*mult)) err = Fmt ("not enough available workers (need %d)", shiptypes [shipid]. ava); if (shiptypes [shipid]. lcm > (q_lcm (cursct)*mult)) err = Fmt ("not enough light constr. materials (need %d)", shiptypes [shipid]. lcm);; if (shiptypes [shipid]. hcm > (q_hcm (cursct)*mult)) err = Fmt ("not enough heavy constr. materials (need %d)", shiptypes [shipid]. hcm); if (shiptypes [shipid]. cos / 10 > (n_treas (nation)*mult)) err = Fmt ("not enough money (need $%d)", (int) shiptypes [shipid]. cos / 10); if (err != (char *) 0) { Message (err); Bell (); return; } FeedEmpire (Fmt ("build ship %s", CrdStr (cursct)), PRINT); (void) WaitForPrompt (PRINT); if (EmpireStatus () != E_QUESTION) { Message ("Build failed"); Bell (); return; } FeedEmpire (Fmt ("%s", shiptypes [shipid]. nam), PRINT); for (;;) { line = ReadEmpire (PRINT); if (EmpireStatus () == E_QUESTION) { PrintAtEmpire (line); Bell (); if (strncmp (line, "Build at what tech", 18) == 0) { if (techn < 0) { Bell (); answer = InputAtMessage (line, 5, GS_PNUMBER); if (answer == (char *) 0 || interrupt) { while (EmpireStatus () != E_COMMAND) { FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); } Message ("Build ship aborted"); return; } if (* answer == '\0' || atoi (answer) > (int) n_tech (nation)) answer = Fmt ("%d", (int) n_tech (nation)); techn = atoi (answer); } else answer = Fmt ("%d", techn); } else answer = InputAtMessage (line, 10, GS_NAME); if (interrupt || answer == (char *) 0) { interrupt = False; Message ("Build cancelled"); FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); return; } FeedEmpire (answer, PRINT); continue; } if (EmpireStatus () == E_COMMAND) { PrintAtEmpire (line); Message ("Build failed"); Bell (); return; } ptri = index (line, '#'); if (ptri != (char *) 0) { ptri++; if (!ScanDigit ((ConstVP)&ptri, &newshipnr)) /* No digit ignore it */ continue; if (*ptri == ')') ptri ++; SkipBlank ((ConstVP)&ptri); if (strncmp (ptri, "built in sector", 15) != 0) /* No build ignore it */ continue; break; } } /* Get new ship, just scan it */ (void) WaitForPrompt (PRINT); last_techn = techn; last_shipid = shipid; SetAgain (RedoBuildShip); if (FScanShips (Fmt ("%d", newshipnr), DONT_PRINT) == 0) { Bell (); PrintAtEmpire ("Can't find your new ship !!"); (void) WaitForPrompt (DONT_PRINT); return; } (void) WaitForPrompt (DONT_PRINT); curship = NrToShip (newshipnr); Message (Fmt ("A new %s is built (at tech %d)", shiptypes [shipid]. nam, sh_tech (curship))); /* Adjust materials & available workers */ RedumpSector (cursct, DONT_PRINT); CensusShip (curship); if ((shiptypes [shipid]. cos / 10) <= 100) n_treas (nation) -= (double) (shiptypes [shipid]. cos / 10); } void BuildShip (x, y) int x, y; { DoBuildShip (x, y, -1, -1); } void RedoBuildShip () { DoBuildShip (s_xcd(cursct), s_ycd(cursct), last_shipid, last_techn); } xemp5.1-beta/lib/ship/fleet.c100444 12266 2116 7765 6023772142 14427 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/ship/RCS/fleet.c,v 5.2 1995/09/08 07:42:55 jpo Exp $ $Date: 1995/09/08 07:42:55 $ $Author: jpo $ $Id: fleet.c,v 5.2 1995/09/08 07:42:55 jpo Exp $ $Locker: $ $Log: fleet.c,v $ Revision 5.2 1995/09/08 07:42:55 jpo ship ordering per sector Revision 5.1 1993/03/14 16:51:35 etienne *** empty log message *** * Revision 5.0 93/02/06 09:23:42 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:43:25 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "census.h" #include "var.h" #include "ship.h" #include "sector.h" /* * # maximum # of ships thta fits at the census screen */ #define MAX_CEN_SHIPS 50 char curfleet = '\0'; char GiveNextFleetInSct (sct, fleet) Sector sct; char fleet; { char next; Ship ship; next = 0177; for (ship = s_fship (sct); ship != (Ship) 0; ship = sh_nxtsct (ship)) if (sh_fleet (ship) < next && sh_fleet (ship) > fleet) next = sh_fleet (ship); if (next < 0177) return next; return '\0'; } int FleetMinMob (fleet) char fleet; { Ship ptr; int min_mob; min_mob = MAX_SHIPMOB; for (ptr = shiplist; ptr != (Ship) 0; ptr = ptr-> next) if (ptr-> fleet == fleet && ptr-> mob < min_mob) min_mob = ptr-> mob; return min_mob; } bool FleetEmpty (fleet) char fleet; { Ship ptr; for (ptr = shiplist; ptr != (Ship) 0; ptr = ptr-> next) if (ptr-> fleet == fleet) return False; return True; } bool FleetColocated (fleet) char fleet; { bool found; int x, y; Ship ptr; found = False; for (ptr = shiplist; ptr != (Ship) 0; ptr = ptr-> next) if (ptr-> fleet == fleet) if (! found) { x = ptr-> x; y = ptr-> y; found = True; } else { if (x != ptr-> x || y != ptr-> y) return False; } return True; } long ShipNrAbils (shipnr) int shipnr; { Ship ship; ship = NrToShip (shipnr); if (ship == (Ship) 0) return 0L; else return shiptypes [ship-> type]. flags; } long FleetAbils (fleet) char fleet; { long abils; Ship ptr; abils = 0L; for (ptr = shiplist; ptr != (Ship) 0; ptr = ptr-> next) if (ptr-> fleet == fleet) abils |= shiptypes [ptr-> type]. flags; return abils; } Sector FleetSector (fleet) char fleet; { Ship ptr; for (ptr = shiplist; ptr != (Ship) 0; ptr = ptr-> next) if (ptr-> fleet == fleet) return World (ptr-> x, ptr-> y, S_DESIG); return (Sector) 0; } void MoveFleet (fleet, sct) char fleet; Sector sct; { Ship ptr; for (ptr = shiplist; ptr != (Ship) 0; ptr = ptr-> next) if (ptr-> fleet == fleet) MoveShip (ptr, sct); } char FirstFleetInSct (sct) Sector sct; { if (s_fship (sct) == (Ship) 0) return '\0'; else return sh_fleet (s_fship (sct)); } char * FleetId () { bool first; static char buffer [1024]; Ship ptr; if (! FleetColocated (curfleet)) { buffer [0] = '\0'; first = True; for (ptr = s_fship (cursct); ptr != (Ship) 0; ptr = sh_nxtsct (ptr)) if (sh_fleet (ptr) == curfleet) { if (first) first = False; else strcat (buffer, "/"); strcat (buffer, Fmt ("%d", sh_nr (ptr))); } return buffer; } else return Fmt ("%c", curfleet); } static void CalcFreeFleets (upper, lower) bool upper [], lower []; { Ship ptr; register i; for (i = 0; i < 26; i ++) upper [i] = lower [i] = True; for ALL_SHIPS (ptr) if (isupper (sh_fleet (ptr))) upper [sh_fleet (ptr) - 'A'] = False; else if (islower (sh_fleet (ptr))) lower [sh_fleet (ptr) - 'a'] = False; } void ShowFreeFleets () { char * ptr; bool upper [26], lower [26]; CalcFreeFleets (upper, lower); ptr = MakeFreeString (upper, lower); if (strlen (ptr) == 0) Message ("No free fleets"); else Message (Fmt ("Free fleets: %s", ptr)); } char FirstFreeFleet () { int i; bool upper [26], lower [26]; for (i = 0; i < 26; i ++) if (lower [i]) return 'a' + i; for (i = 0; i < 26; i ++) if (upper [i]) return 'A' + i; return '\0'; } xemp5.1-beta/lib/ship/list.c100444 12266 2116 13611 6023772142 14306 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/ship/RCS/list.c,v 5.3 1995/09/08 07:43:03 jpo Exp $ $Date: 1995/09/08 07:43:03 $ $Author: jpo $ $Id: list.c,v 5.3 1995/09/08 07:43:03 jpo Exp $ $Locker: $ $Log: list.c,v $ Revision 5.3 1995/09/08 07:43:03 jpo const Revision 5.2 1995/08/15 08:00:15 jpo *** empty log message *** * Revision 5.1 93/03/14 16:51:35 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:42 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:43:25 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "census.h" #include "nation.h" #include "var.h" #include "ship.h" #include "sector.h" #define SORT_NR 0 #define SORT_SECTOR 1 #define SORT_TYPE 2 #define SORT_FLEET 3 #define SORT_OWNER 4 #define SORT_MAX_O 4 #define SORT_MAX_E 5 #define OWN 0 #define ENEMY 1 static const char *list_ships_how [] = { "sort by number", "sort by sector", "sort by ship-type", "sort by fleet", "sort by owner", (char *) 0 }; static char * fleet_chars = "~abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"; static int AddShipToStrings (strings, ship, enemy) Strings strings; Ship ship; { if ((sh_owned(ship)) && (enemy == OWN)) { AddString (strings, Fmt ( "%4d %-17.17s %4d,%-4d %c %3d%% %3d %3d %3d %3d %3d %3d %3d %s%s%s%s", sh_nr (ship), ShipName (ship), sh_xcd (ship), sh_ycd (ship), sh_fleet (ship), sh_eff (ship), sh_mob (ship), sh_moves (ship), sh_pln (ship), sh_mil (ship), sh_civ (ship), sh_foo (ship), sh_tech (ship), chainsaw_version ? Fmt (" %3d ", sh_heli (ship)) : "", chainsaw_version ? Fmt (" %3d ", sh_xpln (ship)) : "", land_units ? Fmt (" %3d ", sh_land (ship)) : "", chainsaw_version ? Fmt (" %3d ", sh_fuel (ship)) : "")); return 1; } else if ( !(sh_owned(ship)) && (enemy == ENEMY)) { AddString (strings, Fmt ( "%4d %-17.17s %-14.14s %4d,%-4d ", sh_nr (ship), ShipName (ship), (CountryName(sh_owner (ship))), sh_xcd (ship), sh_ycd (ship))); return 1; } else return 0; } void ListShips (x, y, enemy) int x, y, enemy; { Strings strings; Pager pager; int i, j; int total; Sector sct; Ship ptr; char * ch; bool empty_line; strings = InitStrings (); AddStringsID (strings, list_ships_how, enemy == OWN ? SORT_MAX_O : SORT_MAX_E, 0); pager = InitPager (strings, "Listing of ships"); MapPagerFromTop (pager, map_win, x, y); i = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (i < 0) { Message ("No listing"); return; } strings = InitStrings (); Message ("generating list"); if (enemy == OWN) if(chainsaw_version) { if(land_units) { AddString (strings, " # type x,y w eff mob muv pln mil civ food tech heli xpln land fuel"); } else { AddString (strings, " # type x,y w eff mob muv pln mil civ food tech heli xpln fuel"); } } else { AddString (strings, " # type x,y w eff mob muv pln mil civ food tech"); } else AddString (strings, " # type Owner x,y "); total = 0; switch (i) { case SORT_NR: for ALL_SHIPS (ptr) { if (AddShipToStrings (strings, ptr, enemy)) { empty_line = True; total ++; } } break; case SORT_SECTOR: for (x = - MAX_X / 2; x <= MAX_X / 2; x ++) for (y = - MAX_Y / 2; y <= MAX_Y / 2; y++) { sct = World (x, y, S_EXIST); if (sct == (Sector) 0) continue; empty_line = False; for (ptr = s_fship (sct); ptr != (Ship) 0; ptr = sh_nxtsct (ptr)) { if (AddShipToStrings (strings, ptr, enemy)) { empty_line = True; total ++; } } if (empty_line) AddString (strings, ""); } break; case SORT_TYPE: for (j = 0; shiptypes [j]. nam != (char *) 0; j ++) { empty_line = False; for ALL_SHIPS (ptr) { if (sh_type (ptr) == j) { if (AddShipToStrings (strings, ptr, enemy)) { empty_line = True; total ++; } } } if (empty_line) AddString (strings, ""); } break; case SORT_FLEET: for (ch = fleet_chars; * ch != '\0'; ch ++) { empty_line = False; for ALL_SHIPS (ptr) { if (sh_fleet (ptr) == * ch) { if (AddShipToStrings (strings, ptr, enemy)) { empty_line = True; total ++; } } } if (empty_line) AddString (strings, ""); } break; case SORT_OWNER: for (j = 0; j < MAX_NATIONS ; j ++) { empty_line = False; for ALL_SHIPS (ptr) { if (sh_owner (ptr) == j) { if (AddShipToStrings (strings, ptr, enemy)) { empty_line = True; total ++; } } } if (empty_line) AddString (strings, ""); } break; } if (total == 0) { Message ("No info on ships !"); FreeStrings (strings); Bell (); return; } AddString (strings, Fmt ("%d ships", total)); #ifdef X_VERSION InitWMPager (strings, "List of all ships"); #else /* TERMC_VERSION */ ShowStringsInPager (strings, "List of all ships"); #endif /* VERSION */ } xemp5.1-beta/lib/ship/mark.c100444 12266 2116 13202 6023772142 14261 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/ship/RCS/mark.c,v 5.2 1995/09/08 07:43:06 jpo Exp $ $Date: 1995/09/08 07:43:06 $ $Author: jpo $ $Id: mark.c,v 5.2 1995/09/08 07:43:06 jpo Exp $ $Locker: $ $Log: mark.c,v $ Revision 5.2 1995/09/08 07:43:06 jpo const Revision 5.1 1993/03/14 16:51:36 etienne *** empty log message *** * Revision 5.0 93/02/06 09:23:42 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:43:25 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "var.h" #include "ship.h" void UnmarkAllShips () { Ship ptr; for ALL_SHIPS (ptr) set_sh_marked (ptr, False); } void MarkShips (form) const char * form; { Ship ptr; int sx, sy, ex, ey; int nr; if (strcmp (form, "*") == 0) { for ALL_SHIPS (ptr) set_sh_marked (ptr, True); return; } if (strlen (form) == 1 && (isalpha (* form) || * form == '~')) { for ALL_SHIPS (ptr) if (sh_fleet (ptr) == * form) set_sh_marked (ptr, True); return; } if (ConvRealmToCoord (form, & sx, & sy, & ex, & ey)) { for ALL_SHIPS (ptr) if (sh_xcd (ptr) >= sx && sh_xcd (ptr) <= ex && sh_ycd (ptr) >= sy && sh_ycd (ptr) <= ey) set_sh_marked (ptr, True); return; } while (ScanDigit (& form, & nr)) { ptr = NrToShip (nr); if (ptr != (Ship) 0) set_sh_marked (ptr, True); if (* form == '/') form ++; } } int MinMobMarkedShips (ship) Ship * ship; { Ship ptr; bool found; int min; if (ship != (Ship *) 0) * ship = (Ship) 0; found = False; for ALL_SHIPS (ptr) if (sh_marked (ptr)) if (! found) { found = True; if (ship != (Ship *) 0) * ship = ptr; min = sh_mob (ptr); } else if (sh_mob (ptr) < min) { min = sh_mob (ptr); if (ship != (Ship *) 0) * ship = ptr; } if (! found) return -1; else return min; } bool CrewOnMarkedShips (ship) Ship * ship; { Ship ptr; for ALL_SHIPS (ptr) if (sh_marked (ptr)) if (sh_mil (ptr) == 0 && sh_civ (ptr) == 0) { if (ship != (Ship *) 0) * ship = ptr; return False; } if (ship != (Ship *) 0) * ship = (Ship) 0; return True; } bool MarkedColocated () { Ship ptr; bool found; int x, y; found = False; for ALL_SHIPS (ptr) if (sh_marked (ptr)) if (! found) { found = True; x = sh_xcd (ptr); y = sh_ycd (ptr); } else if (x != sh_xcd (ptr) || y != sh_ycd (ptr)) return False; return True; } bool LandLockedMarked (ship) Ship * ship; { Ship ptr; Sector sct; for ALL_SHIPS (ptr) if (sh_marked (ptr)) { sct = World (sh_xcd (ptr), sh_ycd (ptr), S_EXIST); if (sct == (Sector) 0 || ! AllowNavigate (sct)) { if (ship != (Ship *) 0) * ship = ptr; return True; } } return False; } Sector SctMarkedShips () { Ship ptr; for ALL_SHIPS (ptr) if (sh_marked (ptr)) return World (sh_xcd (ptr), sh_ycd (ptr), S_EXIST); return (Sector) 0; } void FScanResoMarked (sct) Sector sct; { bool oil, food; Ship ptr; food = False; oil = False; for ALL_SHIPS (ptr) if (sh_marked (ptr)) { if (ShipHas (ptr, M_FISH)) food = True; if (ShipHas (ptr, M_OIL)) oil = True; } if (oil || (food && ! KNOW_FER (sct))) FScanReso (); } void CheckShips (what) const char * what; { Ship ptr, next; char buffer [1024]; bool first; if (command_state == TEST_STATE) return; UnmarkAllShips (); MarkShips (what); (void) DumpShips (what, DONT_PRINT); buffer [0] = '\0'; first = True; for ALL_SHIPS (ptr) if (sh_marked (ptr)) { if (first) { first = False; strcat (buffer, Fmt ("%d", sh_nr (ptr))); } else strcat (buffer, Fmt ("/%d", sh_nr (ptr))); } if (first) return; DumpShips (buffer, DONT_PRINT); ptr = shiplist; while (ptr != (Ship) 0) if (sh_marked (ptr)) { Error (Fmt ("You seem to have lost %s #%d", ShipName (ptr), sh_nr (ptr))); next = sh_next (ptr); DeleteShip (ptr); ptr = next; } else ptr = sh_next (ptr); } int MaxSonarMarked (shnr) int * shnr; { Ship ptr; int max; int shipnr; max = -1; shipnr = -1; for ALL_SHIPS (ptr) if (sh_marked (ptr)) if (sh_sonar (ptr) > max) { max = sh_sonar (ptr); shipnr = sh_nr (ptr); } if (shnr != (int *) 0) * shnr = shipnr; return max; } int MaxRadarMarked (shnr) int * shnr; { Ship ptr; int max; int shipnr; max = -1; shipnr = -1; for ALL_SHIPS (ptr) if (sh_marked (ptr)) if (sh_radar (ptr) > max) { max = sh_radar (ptr); shipnr = sh_nr (ptr); } if (shnr != (int *) 0) * shnr = shipnr; return max; } void MoveMarkedTo (sct) Sector sct; { Ship ptr; for ALL_SHIPS (ptr) if (sh_marked (ptr)) MoveShip (ptr, sct); } int BestMarkedRadar () { int max; Ship ptr; int shipnr; max = -1; shipnr = -1; for ALL_SHIPS (ptr) if (sh_marked (ptr)) if (sh_radar (ptr) > max) { shipnr = sh_nr (ptr); max = sh_radar (ptr); } return shipnr; } int FirstMarkedShipnr () { register Ship ptr; for ALL_SHIPS (ptr) if (sh_marked (ptr)) return sh_nr (ptr); return -1; } void DeleteMarkedEnemyShips () { register Ship ptr; Ship next; int flag = 0; ptr = shiplist; while (ptr != (Ship) 0) if (sh_marked (ptr) && ! sh_owned (ptr)) { /* TARL - Speak up when ships are deleted */ PrintAtEmpire(Fmt( "%s #%d owned by %s last seen at %d,%d is off the radar screens", ShipName (ptr), sh_nr(ptr), CountryName (ptr->owner), ptr->x, ptr->y)); flag = 1; next = sh_next (ptr); DeleteShip (ptr); ptr = next; } else ptr = sh_next (ptr); if (flag) PrintAtEmpire (""); } xemp5.1-beta/lib/ship/mine.c100444 12266 2116 5602 6023772142 14244 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/ship/RCS/mine.c,v 5.2 1995/09/08 07:43:10 jpo Exp $ $Date: 1995/09/08 07:43:10 $ $Author: jpo $ $Id: mine.c,v 5.2 1995/09/08 07:43:10 jpo Exp $ $Locker: $ $Log: mine.c,v $ Revision 5.2 1995/09/08 07:43:10 jpo const Revision 5.1 1993/03/14 16:51:36 etienne *** empty log message *** * Revision 5.0 93/02/06 09:23:42 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:43:25 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "var.h" #include "ship.h" #define DEF_MINES 10 static int last_quant = 0; void Mine (what) const char * what; { DoMine (what, 0); } void RedoMine () { if (last_layout == SHIP_MODE) DoMine (Fmt ("%d", sh_nr (curship)), last_quant); else if (last_layout == FLEET_MODE) DoMine (Fmt ("%c", curfleet), last_quant); else { Message ("No current ship/fleet selected"); Bell (); return; } } /* ARGSUSED */ void BindMine (x, y, str) int x, y; char * str; { int quant; if (str != (char *) 0 && sscanf (str, " ( %d )", & quant) == 1) last_quant = quant; RedoMine (); } void DoMine (what, quant) const char * what; int quant; { char * ans; register Ship ptr; int nr, n; int total; if (s_des (cursct) != '.' && s_des (cursct) != '=') { Message ("You can't lay mines here!"); Bell (); return; } UnmarkAllShips (); MarkShips (what); nr = 0; for ALL_SHIPS (ptr) if (sh_marked (ptr)) { if (! sh_owned (ptr) || ! ShipHas (ptr, M_MINE) || sh_she (ptr) == 0) set_sh_marked (ptr, False); else nr ++; } if (nr == 0) { Message ("No selected ship with mine-capability / shells"); Bell (); return; } if (quant <= 0) { ans = InputAtMessage (Fmt ("How many mines%s %s:", nr == 1 ? "" : " from each ship", #ifndef lint DEF_MINES < 0 ? "" : #endif Fmt ("[%d]", DEF_MINES)), 3, GS_PNUMBER); if (ans == (char *) 0 || interrupt || (* ans == '\0' && DEF_MINES < 0)) { Message ("mine cancelled"); Bell (); return; } if (* ans == '\0') quant = DEF_MINES; else quant = atoi (ans); } SetAgain (RedoMine); last_quant = quant; if (quant == 0) { Message ("mine cancelled"); Bell (); return; } total = 0; for ALL_SHIPS (ptr) if (sh_marked (ptr)) { n = sh_she (ptr); if (n == 0) continue; if (n > quant) n = quant; total += n; } if (total == 0) { Message ("No mines layed"); Bell (); return; } inc_mines (cursct, total); if (command_state < FORCE_BUF_STATE) { FeedEmpire (Fmt ("mine %s %d", what, quant), PRINT); (void) WaitForPrompt (PRINT); } else if (command_state == FORCE_BUF_STATE) FeedCommand (Fmt ("mine %s %d", what, quant), PRINT); Message (Fmt ("%d mines layed", total)); Census (); } xemp5.1-beta/lib/ship/mission.c100444 12266 2116 11547 6024621755 15026 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/ship/RCS/mission.c,v 1.5 1995/09/10 17:44:13 jpo Exp $ $Date: 1995/09/10 17:44:13 $ $Author: jpo $ $Id: mission.c,v 1.5 1995/09/10 17:44:13 jpo Exp $ $Locker: $ $Log: mission.c,v $ Revision 1.5 1995/09/10 17:44:13 jpo Added prototype Revision 1.4 1995/09/10 16:22:46 jpo Changed missions to be more generic added support for fleet mode census and setting Revision 1.3 1995/09/08 07:43:14 jpo const Revision 1.2 1995/08/15 07:54:38 jpo Added lots of mission support * Revision 1.1 93/03/14 16:51:36 etienne * Initial revision * */ #include "main.h" #include "sector.h" #include "ship.h" static const char *mission_types[] = { "Delete Mission", "Interdict", (char *)0 }; #define MISSION_MAX 2 static const char type2mission[] = "\0i"; static bool ShipMission _PROTO((const char *ships, int range, Sector sct, char *missp, int *rangep)); static bool ShipMission (ships, range, sct, missp, rangep) const char *ships; int range; Sector sct; char *missp; int *rangep; { int i; Strings strings; Pager pager; char *answer; strings = InitStrings (); AddStringsID (strings, mission_types, MISSION_MAX, 0); pager = InitPager (strings, "Mission Type?"); MapPagerFromTop (pager, map_win, 5, 5); i = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (i < 0 || interrupt) { interrupt = False; Message ("Set mission cancelled"); return False; } if (i == 0) { *missp = type2mission[i]; *rangep = 0; FeedCommand (Fmt ("mission ship %s c", ships), PRINT); return True; } answer = InputAtMessage (Fmt ("Range [%d]: ",range), 3, GS_PNUMBER); if (interrupt || answer == (char *)0) { interrupt = False; Message ("Mission cancelled"); return False; } if (*answer != '\0') range = atoi (answer); *rangep = range; *missp = type2mission[i]; FeedCommand (Fmt ("mission ship %s %c %s %d", ships, *missp, CrdStr(sct), range), PRINT); return True; } void SMission (ship) Ship ship; { Sector sct; int range; char miss; if (!sh_owned (ship)) { Message ("Not your ship !!"); return; } range = ShipFireRange(ship); if (ShipMission (Fmt ("%d", sh_nr(ship)), range, ShipSector (ship), &miss, &range) == True) { set_sh_mission (ship, miss); ship -> radius = range; Message (Fmt ("Ship %d now on %c mission", sh_nr (ship), miss)); } return; } void FScanShipMission (list, flag) const char *list; int flag; { FeedEmpire (Fmt ("mission ship %s q", list), flag); ScanShipMission (flag); (void) WaitForPrompt (flag); } void ScanShipMission (flag) int flag; { char *ptr, *ind; int mind, sno; Ship ship; if (EmpireStatus () != E_PRINTING) return; if (flag == PRINT) PrintAtEmpire ("Empiretool: scanning ship missions"); ptr = ReadEmpire (DONT_PRINT); if ((ind = StrStr (ptr, "mission")) == NULL) { PrintAtEmpire (Fmt ("Mission scan failed on %s", ptr)); return; } mind = ind - ptr; for (;;) { ptr = ReadEmpire (DONT_PRINT); if (EmpireStatus () != E_PRINTING) { if (flag == PRINT) PrintAtEmpire (ptr); return; } if ((ind = index (ptr, '#')) == NULL) continue; ind ++; if (!ScanDigit ((ConstVP)&ind, &sno) || (ship = NrToShip (sno)) == (Ship)0) { PrintAtEmpire (Fmt ("#%d Unknown ship (rescan ships!)", sno)); Bell (); (void) EmpireMore (); continue; } switch (ptr[mind]) { case 'i': set_sh_mission (ship, 'i'); break; case 'h': set_sh_mission (ship, '\0'); break; default: PrintAtEmpire (Fmt ("Unknown mission type %s", ptr + mind)); Bell (); break; } } } const char *FleetHasMission (fleet) char fleet; { Ship ptr; char mistype = '~'; /* bogus */ const char *cp; for (ptr = shiplist; ptr != (Ship) 0; ptr = ptr-> next) if (ptr-> fleet == fleet && sh_mission(ptr) != mistype) { if (mistype == '~') mistype = sh_mission(ptr); else return "Mixed"; } if (mistype == '\0') return "None"; for (cp = type2mission + 1; *cp; cp++) if (*cp == mistype) return mission_types[cp - type2mission]; return "Unknown"; } void ChangeFleetMission (fleet) char fleet; { Ship ptr; int range = 0; char miss; if (FleetEmpty (fleet) == True) { Message ("No ships in fleet!"); return; } if (FleetColocated (fleet) != True) { Message ("Fleet not colocated"); return; } for (ptr = shiplist; ptr != (Ship) 0; ptr = ptr-> next) if (ptr-> fleet == fleet) { int r = ShipFireRange (ptr); if (r > range) range = r; } if (ShipMission (Fmt ("%c", fleet), range, FleetSector (fleet), &miss, &range) == True) { const char *cp; for (ptr = shiplist; ptr != (Ship) 0; ptr = ptr-> next) if (ptr-> fleet == fleet) { set_sh_mission (ptr, miss); ptr -> radius = range; } Message (Fmt ("Fleet %c now on %s mission", fleet, FleetHasMission (fleet))); CensusFleet (fleet); } } xemp5.1-beta/lib/ship/navigate.c100444 12266 2116 21130 6023772142 15124 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/ship/RCS/navigate.c,v 5.2 1995/09/08 07:43:17 jpo Exp $ $Date: 1995/09/08 07:43:17 $ $Author: jpo $ $Id: navigate.c,v 5.2 1995/09/08 07:43:17 jpo Exp $ $Locker: $ $Log: navigate.c,v $ Revision 5.2 1995/09/08 07:43:17 jpo const Revision 5.1 1993/03/14 16:51:37 etienne *** empty log message *** * Revision 5.0 93/02/06 09:23:42 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:43:25 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "var.h" #include "ship.h" #include "sector.h" #include "plane.h" #define HOW_SELECT 0 /* via menu */ #define HOW_CURRENT 1 /* via redo */ #define HOW_BOTH 2 /* via bind */ void DoNavigate (x, y, how) int x, y; int how; { char * ptr; if (last_layout == SHIP_MODE && how != HOW_SELECT) { if (! sh_owned (curship)) { Message ("Not your ship!"); Bell (); return; } Navigate (Fmt ("%d", sh_nr (curship))); } else if (last_layout == FLEET_MODE && how != HOW_SELECT) Navigate (Fmt ("%c", curfleet)); else { if (how == HOW_CURRENT) { Message ("No current ship/fleet"); Bell (); return; } ptr = SelectShips (x, y, ST_NAVIGATE, "Navigate which ships ?"); if (ptr == (char *) 0) return; Navigate (ptr); } } void RedoNavigate () { DoNavigate (10, 10, HOW_CURRENT); } void BindNavigate (x, y, str) int x, y; char * str; { static char buf [100]; if (sscanf (str, " ( %s ) ", buf) == 1) Navigate (buf); else DoNavigate (x, y, HOW_BOTH); } void Navig (x, y) int x, y; { DoNavigate (x, y, HOW_SELECT); } void Navigate (nav_what) char * nav_what; { int nx, ny; Ship ship; Sector sct, next; char * ptr, * ptri; int minmob; double newmob; int rad, son; int button; char * path; char * answer; int best_rad, best_son; UnmarkAllShips (); MarkShips (nav_what); SetAgain (RedoNavigate); minmob = MinMobMarkedShips (& ship); if (minmob < 0) { if (ship == (Ship) 0) { Message ("No ships selected to navigate !"); Bell (); return; } else /* if (! deity) */ { Message (Fmt ("%s #%d out of mobility", ShipName (ship), sh_nr (ship))); return; } } if (! CrewOnMarkedShips (& ship)) { Message (Fmt ("%s #%d is crewless", ShipName (ship), sh_nr (ship))); Bell (); return; } if (! MarkedColocated ()) { Message ("Selected ships are not colocated"); Bell (); return; } if (LandLockedMarked (& ship)) { Message (Fmt ("%s #%d is landlocked.", ShipName (ship), sh_nr (ship))); Bell (); return; } sct = SctMarkedShips (); if (sct == (Sector) 0) { Message ("You don't know anything about this sector"); Bell (); return; } UnmarkSector (cursct); MarkSector (sct); FeedEmpire (Fmt ("navigate %s", nav_what), PRINT); ptr = WaitForPrompt (PRINT); if ( EmpireStatus () == E_COMMAND || sscanf (ptr, "<%*f:%lf", & newmob) != 1) { PrintAtEmpire (ptr); Message ("Navigate failed"); Bell (); cursct = sct; return; } rad = MaxRadarMarked (& best_rad); if (best_rad == -1) best_rad = FirstMarkedShipnr (); son = MaxSonarMarked (& best_son); FScanResoMarked (sct); Message (Fmt ("navigate: now at %s (mob %.1f)", CrdStr (sct), newmob)); for (;;) { if (EmpireStatus () == E_COMMAND) { Message ("Navigate stopped"); MesClearBut (); CheckShips (nav_what); DoLookout (sct, best_rad, False, PRINT, False); cursct = sct; return; } MesBut ("View", "Extended Commands", "Move"); DoLookout (sct, best_rad, True, PRINT, False); FScanResoMarked (sct); (void) SelectSctCrd (& nx, & ny, & button); if (interrupt) { interrupt = False; FeedEmpire ("aborted", PRINT); continue; } if (button == RIGHT_BUTTON) next = World (nx, ny, S_DESIG); else next = World (nx, ny, S_EXIST); if (next == (Sector) 0) continue; if (button == LEFT_BUTTON) { CensusSct (next); continue; } if (button == MIDDLE_BUTTON) { MesBut ( (deity || rad > 0) ? Fmt ("Radar (%d)", rad) : "---", (deity || son > 0) ? Fmt ("Sonar (%d)", son) : "---", "Lookout"); WaitButtonPress (&button); if (interrupt) { interrupt = False; continue; } if (button == LEFT_BUTTON) { if (! deity && rad < 0) continue; if (land_units) FeedEmpire (Fmt ("r %d", best_rad), PRINT); else FeedEmpire ("r", PRINT); ScanRadar (); } else if (button == MIDDLE_BUTTON) { if (! deity && son < 1.0) continue; if (land_units) FeedEmpire (Fmt ("s %d", best_son), PRINT); else FeedEmpire ("s", PRINT); ScanLookout (); } else if (button == RIGHT_BUTTON) { if (land_units) FeedEmpire (Fmt("l %d", best_rad), PRINT); else FeedEmpire ("l", PRINT); ScanLookout (); /* you should always know your neighbours */ } (void) WaitForPrompt (PRINT); DrawMap (); continue; } if (button == RIGHT_BUTTON && sct == next) { FeedEmpire ("h", PRINT); (void) WaitForPrompt (PRINT); Message (Fmt ("Navigate stopped @ %s", CrdStr (sct))); MesClearBut (); CheckShips (nav_what); cursct = sct; return; } /* if (button == RIGHT_BUTTON) -> true */ if (s_mines (next) > 0 && s_des (next) != 'h' && s_des (next) != '=' && ! Confirm ( "Captain, mines here, still go there ?", False)) continue; path = BestSeaPath (sct, next); if (path == (char *) 0) { Message ("Couldn't find a sea-path !"); Bell (); continue; } MarkPath (sct, path); FeedEmpire (Fmt ("%s", path), PRINT); UnmarkPath (sct, path); for (;;) { ptr = ReadEmpire (DONT_PRINT); if (EmpireStatus () == E_QUESTION) { PrintAtEmpire (ptr); if (sscanf (ptr, "<%*lf:%lf: %d,%d", & newmob, & nx, & ny) != 3) { answer = InputAtMessage (ptr, 20, GS_NAME); if (interrupt || answer == (char *) 0) { FeedEmpire ("aborted", PRINT); Bell (); MesClearBut (); (void) WaitForPrompt (PRINT); CheckShips (nav_what); if (NO_INFO (next)) FreeSector (next); cursct = sct; DoLookout (sct, best_rad, False, PRINT, False); return; } FeedEmpire (answer, PRINT); continue; } else break; } if (EmpireStatus () == E_COMMAND) { PrintAtEmpire (ptr); Message ("Navigate failed"); Bell (); MesClearBut (); CheckShips (nav_what); if (NO_INFO (next)) FreeSector (next); cursct = sct; DoLookout (sct, best_rad, False, PRINT, False); return; } if (StrEQ (ptr, "Sweep")) { Message ("Sweeping mines... -- MORE --"); Bell (); Pause (); continue; } if (strncmp (ptr, "\007Kawhomp!", 9) == 0) { /* Mark sector mine was actually hit in, not originating sector */ Sector sct1; int x1, y1; PrintAtEmpire (ptr + 1); sscanf(ptr+1, "Kawhomp! Mine detected by %*[^(](#%*d) in %d,%d!",&x1,&y1); sct1 = World (x1, y1, S_DESIG); if (s_mines (sct1) == 0) set_mines (sct1, 128); else if (s_mines (sct1) < 127) set_mines (sct1, s_mines (sct1) - 1); else set_mines (sct1, s_mines (sct1) + 1); CensusSct (sct1); Message ("You hit a mine !!"); Bell (); Pause (); continue; } PrintAtEmpire (ptr); ptri = index (ptr, '#'); if (ptri == (char *) 0) continue; ScanFmt ((ConstVP)& ptri, (char *) 0, ")#0-9 \t"); if (StrEQ (ptri, "can't go to")) { if (NO_INFO (next)) (void) UpdateSectorDes (next, '?', False); Warning ("You can't go there"); Bell (); DrawSector (next); continue; } if (sscanf (ptri, "stopped at %d , %d", & nx, & ny) == 2) { (void) UpdateSectorDes (next, '.', False); Message ("Out of mobility"); Bell (); MesClearBut (); if (EmpireStatus () != E_COMMAND) { if (EmpireStatus () == E_PRINTING) (void) WaitForPrompt (PRINT); while (EmpireStatus () != E_COMMAND) { FeedEmpire ("aborted", PRINT); (void) WaitForPrompt (PRINT); } } next = World (nx, ny, S_DESIG); MoveMarkedTo (next); UnmarkSector (sct); MarkSector (next); CheckShips (nav_what); cursct = next; DoLookout (next, best_rad, False, PRINT, False); return; } } /* Move is oke */ next = World (nx, ny, S_DESIG); (void) UpdateSectorDes (next, '.', False); MoveMarkedTo (next); FScanResoMarked (sct); UnmarkSector (sct); sct = next; MarkSector (sct); Message (Fmt ("navigate: now at %s (mob %.1f)", CrdStr (sct), newmob)); } } xemp5.1-beta/lib/ship/order.c100444 12266 2116 36540 6024622100 14441 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/ship/RCS/order.c,v 1.4 1995/09/10 17:45:36 jpo Exp $ $Date: 1995/09/10 17:45:36 $ $Author: jpo $ $Id: order.c,v 1.4 1995/09/10 17:45:36 jpo Exp $ $Locker: $ $Log: order.c,v $ Revision 1.4 1995/09/10 17:45:36 jpo Added prototype Revision 1.3 1995/09/10 16:24:58 jpo Generic order setting support of fleet mode stuff Revision 1.2 1995/09/08 07:43:23 jpo holds and cargos etc Revision 1.1 1995/08/15 07:54:50 jpo Initial revision * Revision 1.1 93/03/14 16:51:36 etienne * Initial revision * */ #include "main.h" #include "sector.h" #include "ship.h" #include "func.h" static int CalcEta _PROTO((const char *path, Ship ship)); Sector ChooseSeaDest _PROTO((Sector sct, char **pathp)); static bool ShipChangeOrder _PROTO((const char *ships, Sector sct, int orders, int *orderp, short *d1xp, short *d1yp, short *d2xp, short *d2yp, char **pathp)); static const char *order_types[] = { "Clear Orders", #define ORD_CLEAR 0 "Set Destination", #define ORD_DEST 1 "Set Two-Way Path", #define ORD_TWOWAY 2 "Suspend Orders", #define ORD_SUSPEND 3 "Resume Orders", #define ORD_RESUME 4 (char *)0 }; #define ORDERS_MAX 5 static bool ShipChangeOrder (ships, sct, orders, orderp, d1xp, d1yp, d2xp, d2yp, pathp) const char *ships; Sector sct; int orders; int *orderp; short *d1xp, *d1yp, *d2xp, *d2yp; char **pathp; { Pager pager; char *ptr, *path, *path2; int i; Sector to, to2; Strings strings; *pathp = NULL; *d1xp = *d1yp = *d2xp = *d2yp = 0; *orderp = 0; strings = InitStrings (); AddStringsID (strings, order_types, ORDERS_MAX, 0); pager = InitPager (strings, "Set Orders"); MapPagerFromTop (pager, map_win, 5, 5); i = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (i < 0 || interrupt) { interrupt = False; Message ("Orders cancelled"); return False; } switch (i) { case ORD_CLEAR: *orderp = 0; FeedCommand (Fmt("order %s clear", ships), PRINT); return True; case ORD_RESUME: *orderp = (orders & (~ORDER_SUSPENDED)); FeedCommand (Fmt("order %s resume", ships), PRINT); return True; case ORD_SUSPEND: *orderp = orders | ORDER_SUSPENDED; FeedCommand (Fmt ("order %s suspend", ships), PRINT); return True; case ORD_DEST: Message (Fmt ("Order ship(s) %s to?", ships)); to = ChooseSeaDest(sct, &path); if (to == NULL) return False; *orderp = ORDER_ONEWAY; *pathp = path; *d1xp = s_xcd(to); *d1yp = s_ycd(to); FeedEmpire ( Fmt("order %s declare %s", ships, CrdStr(to)), PRINT); ptr = ReadEmpire (PRINT); if (ptr && StrEQ (ptr, "Second dest?")) FeedEmpire ("", PRINT); (void) WaitForPrompt (PRINT); DrawSector (sct); break; case ORD_TWOWAY: Message (Fmt ("Order ship(s) %s to?", ships)); if ((to = ChooseSeaDest (sct, &path)) == NULL) { DrawSector (sct); return False; } *pathp = Str (path); Message ("And then sail to?"); if ((to2 = ChooseSeaDest (to, &path2)) == NULL) { free (*pathp); DrawSector (sct); return False; } *orderp = ORDER_TWOWAY; *d1xp = s_xcd (to); *d1yp = s_ycd (to); *d2xp = s_xcd (to2); *d2yp = s_ycd (to2); FeedCommand (Fmt ("order %s declare %s %s", ships, CrdStr(to), CrdStr (to2)), PRINT); DrawSector (sct); break; default: Message ("Ehhh?"); return False; } return True; } void ChangeOrder (ship) Ship ship; { char *path; short d1x, d1y, d2x, d2y; int orders; if (!sh_owned(ship)) { Message ("Not your ship !!"); return; } if (ShipChangeOrder (Fmt ("%d", sh_nr(ship)), World (sh_xcd(ship), sh_ycd(ship), S_DESIG), ship -> orderflags, &orders, &d1x, &d1y, &d2x, &d2y, &path) == True) { ship -> orderflags = orders; ship -> d1x = d1x; ship -> d1y = d1y; ship -> d2x = d2x; ship -> d2y = d2y; if (orders & (ORDER_TWOWAY | ORDER_ONEWAY)) { ship -> lenpath = strlen(path) - 1; ship -> eta = CalcEta (path, ship); } if (path) free (path); } CensusShip (ship); return; } Sector ChooseSeaDest (sct, pathp) Sector sct; char **pathp; { int button; Sector to; MesBut ("View", "Cancel", "Set"); for (;;) { to = SelectSector (&button); if (interrupt || button == MIDDLE_BUTTON) { interrupt = False; Message ("Cancelled"); MesClearBut (); return NULL; } if (to == (Sector)0) continue; if (button == LEFT_BUTTON) { CensusSct (to); continue; } if (to == sct) continue; if (NavigOK (to) == False) { Message ("Not a good navigable sector!"); continue; } if ((*pathp = BestSeaPath (sct, to)) == NULL) { Message ( Fmt("I don't see a path from %s to %s", CrdStr(sct), CrdStr(to))); return NULL; } MesClearBut (); return to; } } static int CalcEta (path, ship) const char *path; Ship ship; { int speed; int mobcost; const char *cp; int mobil; int updates = 0; speed = shiptypes[sh_type(ship)].spd; mobcost = sh_eff(ship) * 0.01 * speed; mobcost = 480.0 / (mobcost + TechFact (sh_tech(ship), mobcost)); mobil = sh_mob(ship); while (*cp && *cp != 'h') { if (mobil > 0) { mobil -= mobcost; cp ++; } else { mobil += ship_mob_gain * etu_per_update; updates ++; } } return updates; } static const char *ShipOrders (oflags, d1x, d1y, d2x, d2y, eta) uchar oflags; short d1x, d1y, d2x, d2y; uchar eta; { char buf[200]; if (oflags == 0) return "No orders"; if (oflags & ORDER_TWOWAY) { (void) sprintf (buf, "Btwn %d,%d & %d,%d", d1x, d1y, d2x, d2y); } else if (oflags & ORDER_ONEWAY) { (void) sprintf (buf, "Sail %d,%d", d1x, d1y); } if (oflags & ORDER_SUSPENDED) return Fmt ("%s (Susp)", buf); else if (oflags & ORDER_LOADING) return Fmt ("%s (Load)", buf); else if (oflags & (ORDER_ONEWAY|ORDER_TWOWAY)) return Fmt ("%s (eta %d)", buf, eta); return Fmt ("%s", buf); } const char *ShipHasOrders (ship) Ship ship; { return ShipOrders (ship -> orderflags, ship -> d1x, ship -> d1y, ship -> d2x, ship -> d2y, ship -> eta); } void FScanShipOrders (list, flag) const char *list; int flag; { FeedEmpire (Fmt ("sorder %s", list), flag); ScanShipOrders (flag); (void) WaitForPrompt (flag); } void ScanShipOrders (flag) int flag; { char *ptr, *ind; Ship ship; int sno; int coff, soff, eoff, loff, etaoff; int x, y; struct offsets { char *str; int *offp; int add; } Offsets[] = { {"x,y", &coff, -2}, {"start", &soff, -1}, {"end", &eoff, -1}, {"len", &loff, -1}, {"eta", &etaoff, -1}, { NULL} }; struct offsets *op; if (EmpireStatus () != E_PRINTING) return; if (flag == PRINT) PrintAtEmpire ("Empiretool: scanning ship orders"); ptr = ReadEmpire (DONT_PRINT); if (StrStr(ptr, "No ship") != NULL) return; if ((ind = StrStr (ptr, "ship type")) == NULL) { PrintAtEmpire (Fmt ("Order scan failed on %s", ptr)); return; } for (op = Offsets; op -> str; op ++) { if ((ind = StrStr (ind, op -> str)) == NULL) { PrintAtEmpire (Fmt ("No %s in %s", op -> str, ptr)); return; } *op -> offp = ind - ptr; *op -> offp += op -> add; } for (;;) { ind = ptr = ReadEmpire (DONT_PRINT); if (EmpireStatus () != E_PRINTING) { if (flag == PRINT) PrintAtEmpire (ptr); return; } if (ScanDigit ((ConstVP)&ind, &sno) == False) /* ship name? */ continue; if (strncmp (ind, " ship", 4) == 0) /* %d ships */ break; if ((ship = NrToShip (sno)) == (Ship)0) { PrintAtEmpire (Fmt ("#%d Unknown ship (rescan ships!)", sno)); Bell (); (void) EmpireMore (); continue; } if (sscanf (&ptr[soff], "%d,%d", &x, &y) != 2) continue; ship -> d1x = x; ship -> d1y = y; ship -> orderflags = ORDER_ONEWAY; for (ind = &ptr[eoff]; ind < &ptr[loff]; ind ++) { if (isascii(*ind) && (isdigit(*ind) || *ind == '-')) { if (sscanf (&ptr[eoff], "%d,%d", &x, &y) == 2) { ship -> d2x = x; ship -> d2y = y; ship -> orderflags |= ORDER_TWOWAY; ship -> orderflags &= ~ORDER_ONEWAY; } break; } } if (StrStr (&ptr[loff], "suspended")) ship -> orderflags |= ORDER_SUSPENDED; else if(StrStr (&ptr[loff], "loading")) ship -> orderflags |= ORDER_LOADING; else { int len, eta; if (sscanf (&ptr[loff], "%d %d", &len, &eta) == 2) { ship -> eta = eta; ship -> lenpath = len; } } } } void FScanShipQOrders (list, flag) const char *list; int flag; { FeedEmpire (Fmt ("qorder %s", list), flag); ScanShipQOrders (flag); (void) WaitForPrompt (flag); } void ScanShipQOrders (flag) int flag; { char *ptr, *ind; Ship ship; int hold, amount, sno; char type; if (EmpireStatus () != E_PRINTING) return; if (flag == PRINT) PrintAtEmpire ("Empiretool: scanning ship cargo orders"); ptr = ReadEmpire (DONT_PRINT); if (StrStr(ptr, "No ship") != NULL) return; if ((ind = StrStr (ptr, "ship type")) == NULL) { PrintAtEmpire (Fmt ("Qorder scan failed on %s", ptr)); return; } for (;;) { ind = ptr = ReadEmpire (DONT_PRINT); if (EmpireStatus () != E_PRINTING) { if (flag == PRINT) PrintAtEmpire (ptr); return; } if (ScanDigit ((ConstVP)&ind, &sno) == False) /* ship name? */ continue; if (strncmp (ind, " ship", 4) == 0) /* %d ships */ break; if ((ship = NrToShip (sno)) == (Ship)0) { PrintAtEmpire (Fmt ("#%d Unknown ship (rescan ships!)", sno)); Bell (); (void) EmpireMore (); continue; } if ((ind = index (ptr, '[')) != NULL) { ind ++; while (*ind != ']') { while (*ind == ' ') ind ++; if (sscanf ("%d-%c:%d", &hold, &type, &amount) == 3) { ship -> holds[hold].stype = type; ship -> holds[hold].samount = amount; } while (*ind != ' ' && *ind != ']') ind ++; } } if ((ind = index (ptr, '(')) != NULL) { ind ++; while (*ind != ')') { while (*ind == ' ') ind ++; if (sscanf ("%d-%c:%d", &hold, &type, &amount) == 3) { ship -> holds[hold].etype = type; ship -> holds[hold].eamount = amount; } while (*ind != ' ' && *ind != ')') ind ++; } } } } const char *ShipHasCargo (ship) Ship ship; { static char cargobuf[16]; char *cp; int i; cp = cargobuf; for (i = 0; i < MAXHOLDS; i++) { if (ship -> holds[i].stype != '\0') *cp ++ = ship -> holds[i].stype; } *cp ++ = '/'; for (i = 0; i < MAXHOLDS; i++) { if (ship -> holds[i].etype != '\0') *cp ++ = ship -> holds[i].etype; } *cp = '\0'; if (strcmp (cargobuf, "/") == 0) return "None"; return cargobuf; } static void CargoLine (str, i, hold) char *str; int i; Holds *hold; { char *cp = str; sprintf (cp, "%4d ", i); cp += strlen(cp); if (hold -> samount == 0) hold -> stype = '\0'; sprintf (cp, "%4d %-7.7s", hold -> samount, hold -> stype ? ItemName (CharToItem(hold -> stype)) : ""); cp += strlen (cp); *cp ++ = ' '; if (hold -> eamount == 0) hold -> etype = '\0'; sprintf (cp, "%4d %-7.7s", hold -> eamount, hold -> etype ? ItemName(CharToItem(hold -> etype)) : ""); } static void NewHold (pager, y, xs, xe, sp, ip) Pager pager; int y; int xs, xe; short *sp; uchar *ip; { char *ptr = InputPager (pager, y, xs, xe, "0-9a-z"); int num; if (ptr == NULL || *ptr == '\0') return; if (ScanDigit ((ConstVP)&ptr, &num) == False) return; if (CharToItem (*ptr) == -1) return; *sp = num; *ip = *ptr; } /* work out whats changed and do the necessary - and update the ship */ static void HoldApply (ship, newhold) Ship ship; Holds newhold[]; { int i; for (i = 0; i < MAXHOLDS; i++) { if (ship -> holds[i].samount != newhold[i].samount || ship -> holds[i].stype != newhold[i].stype) FeedCommand (Fmt ("order %d load %d start %c %d", sh_nr (ship), i + 1, newhold[i].samount == 0 ? 'c' : newhold[i].stype, newhold[i].samount), PRINT); if (ship -> holds[i].eamount != newhold[i].eamount || ship -> holds[i].etype != newhold[i].etype) FeedCommand (Fmt("order %d load %d end %c %d", sh_nr (ship), i + 1, newhold[i].eamount == 0 ? 'c' : newhold[i].etype, newhold[i].eamount), PRINT); ship -> holds[i] = newhold[i]; } } void ChangeCargo (ship) Ship ship; { Strings strings; Pager pager; int i; char cargos[MAXHOLDS+1][80]; Holds holds[MAXHOLDS]; strings = InitStrings (); sprintf (cargos[0], "%-4s %-12s %-12s", "Hold", "Load Port 1", "Load Port 2"); AddStringID (strings, cargos[0], 0); for (i = 1; i <= MAXHOLDS; i++) { holds[i-1] = ship -> holds[i-1]; CargoLine (cargos[i], i, &holds[i-1]); AddStringID (strings, cargos[i], i); } pager = InitPager (strings, "Hold Dispostion"); AddPagerFunc (pager, "Cancel", CANCELFUNC); SetPagerButtons (pager, "Change", "Delete", "Done"); SetPagerButtonIDs (pager, TOGGLEFUNC, DELETEFUNC, DONEFUNC); SetPagerSelect (pager); MapPagerFromTop (pager, map_win, 5, 5); for (;;) { int func; int cols = MaxStringLen (strings); i = PagerMenuFunc (pager, &func, &cols); if (i < 0 || interrupt) { interrupt = False; break; } if (i == 0) continue; switch (func) { case TOGGLEFUNC: if (cols > 5 && cols <= 17) NewHold (pager, i, 6, 17, &holds[i-1].samount, &holds[i-1].stype); else if (cols > 18 && cols <= 30) NewHold (pager, i, 19, 31, &holds[i-1].eamount, &holds[i-1].etype); else continue; CargoLine (cargos[i], i, &holds[i-1]); ChangeString (strings, i, cargos[i]); RemapPager (pager); continue; case DELETEFUNC: holds[i-1].eamount = holds[i-1].samount = 0; CargoLine (cargos[i], i, &holds[i-1]); ChangeString (strings, i, cargos[i]); RemapPager (pager); continue; case DONEFUNC: HoldApply (ship, holds); break; } break; } FreePager (pager); FreeStrings (strings); return; } const char *FleetHasOrders (fleet) char fleet; { Ship ptr; int flags; int d1x, d2x, d1y, d2y; int eta; int first = 0; for (ptr = shiplist; ptr != (Ship) 0; ptr = ptr-> next) if (ptr-> fleet == fleet) { if (first++ == 0) { flags = ptr -> orderflags; d1x = ptr -> d1x; d2x = ptr -> d2x; d1y = ptr -> d1y; d2y = ptr -> d2y; eta = ptr -> eta; continue; } if (flags != ptr -> orderflags) return "Mixed"; switch (flags & (ORDER_ONEWAY|ORDER_TWOWAY)) { case ORDER_TWOWAY: if (ptr -> d1x != d1x || ptr -> d1y != d1y || ptr -> d2x != d2x || ptr -> d2y != d2y) return "Mixed"; if (ptr -> eta > eta) eta = ptr -> eta; break; case ORDER_ONEWAY: if (ptr -> d1x != d1x || ptr -> d1y != d1y) return "Mixed"; if (ptr -> eta > eta) eta = ptr -> eta; break; } } return ShipOrders (flags, d1x, d1y, d2x, d2y, eta); } void ChangeFleetOrder (fleet) char fleet; { int orders; char *path; short d1x, d1y, d2x, d2y; int len; Ship ptr; if (FleetEmpty(fleet) == True) { Message ("Fleet is empty"); return; } if (FleetColocated (fleet) == False) { Message ("Fleet not colocated"); return; } if (ShipChangeOrder (Fmt ("%c", fleet), FleetSector (fleet), 0, &orders, &d1x, &d1y, &d2x, &d2y, &path) == True) { len = strlen (path) - 1; for (ptr = shiplist; ptr != (Ship) 0; ptr = ptr-> next) if (ptr-> fleet == fleet) { ptr -> orderflags = orders; ptr -> d1x = d1x; ptr -> d1y = d1y; ptr -> d2x = d2x; ptr -> d2y = d2y; if (orders & (ORDER_TWOWAY | ORDER_ONEWAY)) { ptr -> lenpath = len; ptr -> eta = CalcEta (path, ptr); } } if (path) free (path); CensusFleet (fleet); } } xemp5.1-beta/lib/ship/path.c100444 12266 2116 10672 6023772142 14273 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/ship/RCS/path.c,v 5.2 1995/08/15 08:01:07 jpo Exp $ $Date: 1995/08/15 08:01:07 $ $Author: jpo $ $Id: path.c,v 5.2 1995/08/15 08:01:07 jpo Exp $ $Locker: $ $Log: path.c,v $ Revision 5.2 1995/08/15 08:01:07 jpo changes to NavigOK * Revision 5.1 93/03/14 16:51:37 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:42 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:43:25 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "slist.h" void FreeSList (list) SList * list; { SList next; while (* list != (SList) 0) { next = (* list)-> next; if ((* list)-> path != (char *) 0) free ((* list)-> path); free ((char *) * list); * list = next; } } bool InSList (list, sct) SList list; Sector sct; { while (list != (SList) 0) { if (list-> sct == sct) return True; list = list-> next; } return False; } /* * Add to the end of the list */ /* * \ / * y u uj \ / u y * g S j ujj|jj j E g * b n / \ n b */ void AddToSList (list, sct, from, forw) SList * list; Sector sct; SList from; bool forw; { SList new; SList ptr; new = (SList) doalloc ((unsigned) sizeof (struct s_slist)); new-> sct = sct; new-> marked = False; new-> next = (SList) 0; if (from == (SList) 0) new-> path = (char *) 0; else if (from-> path == (char *) 0) new-> path = Str (Fmt ("%c", forw ? GiveDirChar (from-> sct, sct) : GiveDirChar (sct, from-> sct))); else if (forw) new-> path = Str (Fmt ("%s%c", from-> path, GiveDirChar (from-> sct, sct))); else new-> path = Str (Fmt ("%c%s", GiveDirChar (sct, from-> sct), from-> path)); if (* list == (SList) 0) { * list = new; return; } else { for (ptr = * list; ptr-> next != (SList) 0; ptr = ptr-> next); ptr-> next = new; return; } } char * GivePath (list, sct) SList list; Sector sct; { for (; list != (SList) 0 && list-> sct != sct; list = list-> next); if (list == (SList) 0) { Panic ("GivePath", "ship/path.c", "Can't find sector"); return ""; } if (list-> path == (char *) 0) return ""; return list-> path; } SList FirstNotMarked (list) SList list; { SList ptr; for (ptr = list; ptr != (SList) 0; ptr = ptr-> next) if (! ptr-> marked) { ptr-> marked = True; return ptr; } return (SList) 0; } bool NavigOK (sct) Sector sct; { if (NO_INFO (sct)) return True; if (s_mines (sct) != 0) return False; if (s_des (sct) == '.') return True; if (s_des (sct) == 'h' || s_des (sct) == '=') return True; return False; } char * BestSeaPath (from, to) Sector from; Sector to; { SList start, end; int in_start, in_end; int i, j; SList tmp; Neighb neighb; Sector nxt; static char buffer [BUFSIZ]; InitNeighbours (from, & neighb); while (NextNeighbour (& nxt, S_EXIST, neighb)) if (nxt == to) return Fmt ("%c", GiveDirChar (from, to)); end = start = (SList) 0; AddToSList (& start, from, (SList) 0, True); AddToSList (& end, to, (SList) 0, False); in_start = in_end = 1; for (;;) { if (in_start == 0 || in_end == 0) { FreeSList (& start); FreeSList (& end); return (char *) 0; } j = 0; for (i = 1; i <= in_start; i ++) { tmp = FirstNotMarked (start); InitNeighbours (tmp-> sct, & neighb); while (NextNeighbour (& nxt, S_DESIG, neighb)) { if (NavigOK (nxt) && ! InSList (start, nxt)) { j ++; AddToSList (& start, nxt, tmp, True); } if (InSList (end, nxt)) /* found */ { strcpy (buffer, Fmt ("%s%s", GivePath (start, nxt), GivePath (end, nxt))); FreeSList (& start); FreeSList (& end); return buffer; } } } in_start = j; if (in_end == 0) { FreeSList (& start); FreeSList (& end); return (char *) 0; } j = 0; for (i = 1; i <= in_end; i ++) { tmp = FirstNotMarked (end); InitNeighbours (tmp-> sct, & neighb); while (NextNeighbour (& nxt, S_DESIG, neighb)) { if (NavigOK (nxt) && ! InSList (end, nxt)) { j ++; AddToSList (& end, nxt, tmp, False); } if (InSList (start, nxt)) /* found */ { strcpy (buffer, Fmt ("%s%s", GivePath (start, nxt), GivePath (end, nxt))); FreeSList (& start); FreeSList (& end); return buffer; } } } in_end = j; } } xemp5.1-beta/lib/ship/retreat.c100444 12266 2116 14076 6024621743 15010 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/ship/RCS/retreat.c,v 1.4 1995/09/10 17:44:03 jpo Exp $ $Date: 1995/09/10 17:44:03 $ $Author: jpo $ $Id: retreat.c,v 1.4 1995/09/10 17:44:03 jpo Exp $ $Locker: $ $Log: retreat.c,v $ Revision 1.4 1995/09/10 17:44:03 jpo added prototype and made conditions more generic Revision 1.3 1995/09/10 16:25:28 jpo Generic support added fleet mode settings Revision 1.2 1995/09/08 07:43:36 jpo retreat stuff Revision 1.1 1993/03/14 16:51:38 etienne Initial revision */ #include "main.h" #include "sector.h" #include "ship.h" #include "func.h" const char *retreatcond[] = { "When damaged", "When torpedoed", "When bombed", "When sonar is detected", "When depth-charged", "When helpless", (char *)0 }; const char retreat_n2cond[] = "ITBSDH"; static bool ShipsRetreat _PROTO((const char *ships, uchar cond, Sector sct, short *rtrxp, short *rtryp, uchar *condp)); static bool ShipsRetreat (ships, cond, sct, rtrxp, rtryp, condp) const char *ships; uchar cond; Sector sct; short *rtrxp, *rtryp; uchar *condp; { Strings strings; Pager pager; char buf[10]; char *cp; int nr; Sector to; int i; char *path; strings = InitStrings (); AddStringsID (strings, retreatcond, RETREAT_MAXSTR, 0); MakeStringIndex (strings); for (i = 0; i < RETREAT_MAX; i++) if (cond & (1 << i)) SetIthFlag (strings, i, 1); pager = InitPager (strings, "Retreat Conditions"); AddPagerFunc (pager, "Cancel", CANCELFUNC); SetPagerButtons (pager, "Toggle", "Delete", "Done"); SetPagerButtonIDs (pager, TOGGLEFUNC, DELETEFUNC, DONEFUNC); SetPagerSelect (pager); MapPagerFromTop (pager, map_win, 5, 5); for (;;) { int func; int i = PagerMenuFunc (pager, &func, (int *)0); if (i < 0 || interrupt || i == CANCELFUNC) { interrupt = False; FreePager (pager); FreeStrings (strings); return False; } switch (func) { case TOGGLEFUNC: ToggleStringFlag (strings, i); RemapPager (pager); continue; case DELETEFUNC: FreePager (pager); FreeStrings (strings); FeedCommand ( Fmt ("retreat %s h C", ships), PRINT); *condp = RETREAT_NONE; *rtrxp = *rtryp = 0; return True; case DONEFUNC: break; } break; } FreePager (pager); InitStringList (strings); cp = buf; cond = RETREAT_NONE; while ((nr = GetNextSelectedId (strings)) != -1) { *cp ++ = retreat_n2cond[nr]; cond |= (1 << nr); } *cp = '\0'; FreeStrings (strings); Message (Fmt ("Retreat %s to sector?", ships)); to = ChooseSeaDest (sct, &path); if (to == NULL) { return; } *condp = cond; *rtrxp = s_xcd (to); *rtryp = s_ycd (to); FeedCommand ( Fmt ("retreat %s %s %s", ships, path, buf), PRINT); return True; } void SRetreat (ship) Ship ship; { Strings strings; Pager pager; char buf[10]; char *cp; int nr; Sector sct, to; int i; char *path; uchar cond; if (!sh_owned (ship)) { Message ("Not your ship !!"); return; } sct = World (sh_xcd(ship), sh_ycd(ship), S_DESIG); (void) ShipsRetreat (Fmt ("%d", sh_nr(ship)), ship -> rtrcond, sct, &ship -> rtrtx, &ship -> rtrty, &ship -> rtrcond); } void FScanShipRetreat (list, flag) const char *list; int flag; { FeedEmpire (Fmt ("retreat %s", list), flag); ScanShipRetreat (flag); (void) WaitForPrompt (flag); } void ScanShipRetreat (flag) int flag; { char *ptr, *ind; Ship ship; int sno; int flagoff, pathoff; int x, y; if (EmpireStatus () != E_PRINTING) return; if (flag == PRINT) PrintAtEmpire ("Empiretool: scanning ship retreats"); ptr = ReadEmpire (DONT_PRINT); if ((ind = StrStr (ptr, "ship type")) == NULL) { PrintAtEmpire (Fmt ("Order scan failed on %s", ptr)); return; } if ((ind = StrStr (ptr, "path")) == NULL) { PrintAtEmpire (Fmt ("No path in %s", ptr)); return; } pathoff = ind - ptr; if ((ind = StrStr (ptr, "flags")) == NULL) { PrintAtEmpire (Fmt ("No flags in %s", ptr)); return; } flagoff = ind - ptr; for (;;) { Sector to; ind = ptr = ReadEmpire (DONT_PRINT); if (EmpireStatus () != E_PRINTING) { if (flag == PRINT) PrintAtEmpire (ptr); return; } if (ScanDigit ((ConstVP)&ind, &sno)) /* ship name? */ continue; if (strncmp (ind, "ship", 4) == 0) /* %d ships */ break; if (strlen(ptr) < flagoff) continue; if ((ship = NrToShip (sno)) == (Ship)0) { PrintAtEmpire (Fmt ("#%d Unknown ship (rescan ships!)", sno)); Bell (); (void) EmpireMore (); continue; } ship -> rtrcond = RETREAT_NONE; for (ind = &ptr[flagoff]; *ind; ind ++) { char *cp; if ((cp = index (retreat_n2cond, *ind)) == NULL) continue; ship -> rtrcond |= (1 << (cp - retreat_n2cond)); } ind = &ptr[pathoff]; to = FollowPath (World(sh_xcd(ship), sh_ycd(ship), S_DESIG), ind); ship -> rtrtx = s_xcd (to); ship -> rtrty = s_ycd (to); } } const char *RtrtList (cond) uchar cond; { static char buf[10], *cp; int i; for (cp = buf, i = 0; i < RETREAT_MAX; i++) if (cond & (1 << i)) *cp++ = retreat_n2cond[i]; *cp = '\0'; return buf; } const char *FleetHasRetreat (fleet) char fleet; { Ship ptr; uchar rcond = 0; int first = 0; for (ptr = shiplist; ptr != (Ship) 0; ptr = ptr-> next) if (ptr-> fleet == fleet) { if (first++ == 0) rcond = sh_retreat(ptr); else if (rcond != sh_retreat(ptr)) return "Mixed"; } if (rcond == RETREAT_NONE) return "No"; return RtrtList (rcond); } void ChangeFleetRetreat (fleet) char fleet; { Sector sct; uchar rcond, cond; short rx, ry; Ship ptr; int first = 0; if (FleetEmpty (fleet)) { Message ("Empty fleet"); return; } for (ptr = shiplist; ptr != (Ship) 0; ptr = ptr-> next) if (ptr-> fleet == fleet) { if (first++ == 0) rcond = sh_retreat(ptr); else if (rcond != sh_retreat(ptr)) { rcond = 0; break; } } if ((sct = FleetSector (fleet)) == NULL) return; if (ShipsRetreat (Fmt ("%c", fleet), rcond, sct, &rx, &ry, &cond) == True) { for (ptr = shiplist; ptr != (Ship) 0; ptr = ptr-> next) if (ptr-> fleet == fleet) { ptr -> rtrcond = cond; ptr -> rtrtx = rx; ptr -> rtrty = ry; } CensusFleet (fleet); } } xemp5.1-beta/lib/ship/scrap.c100444 12266 2116 5247 6023772142 14431 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/ship/RCS/scrap.c,v 5.2 1995/09/08 07:43:43 jpo Exp $ $Date: 1995/09/08 07:43:43 $ $Author: jpo $ $Id: scrap.c,v 5.2 1995/09/08 07:43:43 jpo Exp $ $Locker: $ $Log: scrap.c,v $ Revision 5.2 1995/09/08 07:43:43 jpo const Revision 5.1 1993/03/14 16:51:38 etienne *** empty log message *** * Revision 5.0 93/02/06 09:23:42 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:43:25 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "var.h" #include "ship.h" void RedoScrap () { Ship next; char nextfl; if (last_layout == SHIP_MODE) { next = sh_nxtsct (curship); ScrapShip (Fmt ("%d", sh_nr (curship))); curship = next; if (curship != (Ship) 0) CensusShip (curship); else Census (); DrawSector (cursct); } else if (last_layout == FLEET_MODE) { nextfl = GiveNextFleetInSct (cursct, curfleet); ScrapShip (FleetId ()); if (nextfl != ' ' && nextfl != '\0') { curfleet = '\0'; Census (); } else { curfleet = nextfl; CensusFleet (curfleet); } DrawSector (cursct); } else { Message ("No current ship/fleet selected"); Bell (); } } /* * There is no binding to scrap. * This routine should only be called with owned ships */ void ScrapShip (what) const char * what; { Ship ptr, next; int i, j; int inc_lcm, inc_hcm; int nr; char itemchar; UnmarkAllShips (); MarkShips (what); if (! s_owned (cursct) || s_des (cursct) != 'h' || s_eff (cursct) < 60) { Message ("Only scrapping in 60% harbors"); Bell (); return; } Message (Fmt ("Scrapping %s", what)); if (! Confirm (Fmt ("Scrap %s", what), True)) { Message ("Scrap ship cancelled"); return; } FeedCommand (Fmt ("scrap ship %s", what), PRINT); SetAgain (RedoScrap); ptr = shiplist; nr = inc_lcm = inc_hcm = 0; while (ptr != (Ship) 0) if (sh_marked (ptr)) { next = sh_next (ptr); for (i = 1; i < V_MAX; i ++) { itemchar = ItemChar (i); j = GiveShipQuant (ptr, itemchar); if (j > 0) SetQuant (cursct, itemchar, GiveQuant (cursct, itemchar) + j); } inc_lcm += (shiptypes [sh_type (ptr)]. lcm * 2) / 3; inc_hcm += (shiptypes [sh_type (ptr)]. hcm * 2) / 3; nr ++; DeleteShip (ptr); ptr = next; } else ptr = sh_next (ptr); if (nr == 0) { Message ("No ships scrapped"); Bell (); return; } set_q_lcm (cursct, q_lcm (cursct) + inc_lcm); set_q_hcm (cursct, q_hcm (cursct) + inc_hcm); Message (Fmt ("%d ships scrapped", nr)); Census (); DrawSector (cursct); } xemp5.1-beta/lib/ship/scuttle.c100444 12266 2116 5070 6037141130 14766 0ustar jponexor/* $Header: /a/victor/nexor/user4/jpo/xemp/xemp5.0/lib/ship/RCS/scuttle.c,v 5.3 1995/10/12 07:23:04 jpo Exp $ $Date: 1995/10/12 07:23:04 $ $Author: jpo $ $Id: scuttle.c,v 5.3 1995/10/12 07:23:04 jpo Exp $ $Locker: $ $Log: scuttle.c,v $ Revision 5.3 1995/10/12 07:23:04 jpo Attempt to work with new forms of scuttle Revision 5.2 1995/09/08 07:43:46 jpo const Revision 5.1 1993/03/14 16:51:39 etienne *** empty log message *** * Revision 5.0 93/02/12 19:38:45 etienne * initial rel. * */ #include "type.h" #include "main.h" #include "sector.h" #include "var.h" #include "ship.h" void RedoScuttle () { Ship next; char nextfl; if (last_layout == SHIP_MODE) { next = sh_nxtsct (curship); ScuttleShip (Fmt ("%d", sh_nr (curship))); curship = next; if (curship != (Ship) 0) CensusShip (curship); else Census (); DrawSector (cursct); } else if (last_layout == FLEET_MODE) { nextfl = GiveNextFleetInSct (cursct, curfleet); ScuttleShip (FleetId ()); if (nextfl != ' ' && nextfl != '\0') { curfleet = '\0'; Census (); } else { curfleet = nextfl; CensusFleet (curfleet); } DrawSector (cursct); } else { Message ("No current ship/fleet selected"); Bell (); } } /* * There is no binding to scuttle. * This routine should only be called with owned ships */ void ScuttleShip (what) const char * what; { Ship ptr, next; int i, j; int nr; char itemchar; char *cp; char *ans; UnmarkAllShips (); MarkShips (what); Message (Fmt ("Scuttleping %s", what)); if (! Confirm (Fmt ("Scuttle %s", what), True)) { Message ("Scuttle ship cancelled"); return; } FeedEmpire (Fmt ("scuttle ship %s", what), PRINT); cp = ReadEmpire (PRINT); switch (EmpireStatus()) { case E_COMMAND: PrintAtEmpire (cp); break; case E_QUESTION: PrintAtEmpire (cp); ans = InputAtMessage (cp, 10, GS_TEXT); if (ans == (char *)0 || interrupt) { interrupt = False; FeedEmpire ("n", PRINT); return; } FeedEmpire (ans, PRINT); break; default: break; } SetAgain (RedoScuttle); ptr = shiplist; while (ptr != (Ship) 0) if (sh_marked (ptr)) { next = sh_next (ptr); for (i = 1; i < V_MAX; i ++) { itemchar = ItemChar (i); j = GiveShipQuant (ptr, itemchar); if (j > 0) SetQuant (cursct, itemchar, GiveQuant (cursct, itemchar) + j); } nr ++; DeleteShip (ptr); ptr = next; } else ptr = sh_next (ptr); if (nr == 0) { Message ("No ships scuttled"); Bell (); return; } Message (Fmt ("%d ships scrapped", nr)); Census (); DrawSector (cursct); } xemp5.1-beta/lib/ship/select.c100444 12266 2116 10045 6023772142 14610 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/ship/RCS/select.c,v 5.2 1995/09/08 07:43:49 jpo Exp $ $Date: 1995/09/08 07:43:49 $ $Author: jpo $ $Id: select.c,v 5.2 1995/09/08 07:43:49 jpo Exp $ $Locker: $ $Log: select.c,v $ Revision 5.2 1995/09/08 07:43:49 jpo const Revision 5.1 1993/03/14 16:51:39 etienne *** empty log message *** * Revision 5.0 93/02/06 09:23:42 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:43:25 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "var.h" #include "ship.h" #include "sector.h" #include "func.h" #include "nation.h" char * SelectShips (x, y, shtask, quest) int x, y; ShTask shtask; const char * quest; { extern int last_layout; static char buffer [200]; Strings strings; Pager pager; Ship ptr, ship; bool flag, first; int func; int i; int nr; strings = InitStrings (); AddStringID (strings, "Ship Fl Eff Mob Civ Mil Foo Tec", -1); for (ptr = s_fship (cursct); ptr != (Ship) 0; ptr = sh_nxtsct (ptr)) { if (! sh_owned (ptr)) continue; if (shtask == ST_NAVIGATE && sh_mob (ptr) <= 0) continue; if (shtask == ST_UPGRADE && sh_tech (ptr) == (int) n_tech (nation)) continue; if (shtask == ST_TEND && ptr == curship) continue; if (shtask == ST_LOADXPLANE && (sh_xpln (ptr) <= shiptypes [sh_type (ptr)] .xpl)) continue; if (shtask == ST_LOADPLANE && (sh_pln (ptr) == shiptypes [sh_type (ptr)]. pla)) continue; if (shtask == ST_LOADHELI && (sh_heli (ptr) == shiptypes [sh_type (ptr)]. hel)) continue; if (shtask == ST_LOADLAND && !shiptypes [sh_type (ptr)]. land && (sh_land (ptr) == shiptypes [sh_type (ptr)] .land)) continue; AddStringID (strings, Fmt ( "%-4d %-16.16s %c %-3d%% %-3d %-3d %-3d %-3d %-4d", sh_nr (ptr), ShipName (ptr), sh_fleet (ptr), sh_eff (ptr), sh_mob (ptr), sh_civ (ptr), sh_mil (ptr), sh_foo (ptr), sh_tech (ptr)), sh_nr (ptr)); nr = sh_nr (ptr); } if (StringsSize (strings) == 1) { FreeStrings (strings); Message ("No available ships."); Bell (); return (char *) 0; } else if (StringsSize (strings) == 2) { FreeStrings (strings); return Fmt ("%d", nr); } if (last_layout == SHIP_MODE) SetStringFlag (strings, sh_nr (curship), True); else if (last_layout == FLEET_MODE) for (ptr = s_fship (cursct); ptr != (Ship) 0; ptr = sh_nxtsct (ptr)) if (sh_fleet (ptr) == curfleet) SetStringFlag (strings, sh_nr (ptr), True); pager = InitPager (strings, quest); AddPagerFunc (pager, "Cancel", CANCELFUNC); AddPagerFunc (pager, "Done", DONEFUNC); SetPagerButtons (pager, "Toggle", "Toggle Fleet", "Done"); SetPagerButtonIDs (pager, TOGGLEFUNC, TOGGLEFLEETFUNC, DONEFUNC); SetPagerSelect (pager); MapPagerFromTop (pager, map_win, x, y); for (;;) { i = PagerMenuFunc (pager, & func, (int *) 0); if (i < 0) { FreePager (pager); FreeStrings (strings); return (char * ) 0; } switch (func) { case TOGGLEFUNC: if (i < 0) continue; ToggleStringFlag (strings, i); RemapPager (pager); continue; case TOGGLEWINGFUNC: if (i < 0) continue; flag = ! GiveStringFlag (strings, i); ship = NrToShip (i); for (ptr = s_fship (cursct); ptr != (Ship) 0; ptr = sh_nxtsct (ptr)) if (sh_fleet (ptr) == sh_fleet (ship)) SetStringFlag (strings, sh_nr (ptr), flag); RemapPager (pager); continue; case DONEFUNC: FreePager (pager); InitStringList (strings); buffer [0] = '\0'; first = True; while ((nr = GetNextSelectedId (strings)) != -1) { if (first) first = False; else strcat (buffer, "/"); strcat (buffer, Fmt ("%d", nr)); } FreeStrings (strings); if (first) { Message ("No ships selected"); return (char *) 0; } else return buffer; case CANCELFUNC: FreePager (pager); FreeStrings (strings); return (char * ) 0; } } } xemp5.1-beta/lib/ship/selectone.c100444 12266 2116 4361 6023772143 15277 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/ship/RCS/selectone.c,v 1.3 1995/09/08 07:43:51 jpo Exp $ $Date: 1995/09/08 07:43:51 $ $Author: jpo $ $Id: selectone.c,v 1.3 1995/09/08 07:43:51 jpo Exp $ $Locker: $ $Log: selectone.c,v $ Revision 1.3 1995/09/08 07:43:51 jpo const Revision 1.2 1995/08/15 08:01:58 jpo fixed up prototype * Revision 1.1 93/03/14 16:51:42 etienne * Initial revision * */ #include "type.h" #include "main.h" #include "var.h" #include "ship.h" #include "land.h" #include "sector.h" #include "nation.h" Ship SelectOneShip (x, y, shtask, quest) int x, y; ShTask shtask; const char * quest; { static char buffer [200]; Strings strings; Pager pager; Ship ptr, ship; int func; int i; int nr, select; strings = InitStrings (); AddStringID (strings, Fmt ("Ship Fl Eff Mob Civ Mil Pln%s%s Foo Tec", chainsaw_version ? " Hel Xpl" : "", land_units ? " Lnd" : ""), -1); for (ptr = s_fship (cursct); ptr != (Ship) 0; ptr = sh_nxtsct (ptr)) { if (! sh_owned (ptr)) continue; if (shtask == ST_LOADXPLANE && (sh_xpln (ptr) <= shiptypes [sh_type (ptr)] .xpl)) continue; if (shtask == ST_LOADPLANE && (sh_pln (ptr) == shiptypes [sh_type (ptr)]. pla)) continue; if (shtask == ST_LOADHELI && (sh_heli (ptr) == shiptypes [sh_type (ptr)]. hel)) continue; if (shtask == ST_LOADLAND && (sh_land (ptr) == shiptypes [sh_type (ptr)] .land)) continue; AddStringID (strings, Fmt ( "%-4d %-16.16s %c %-3d%% %-3d %-3d %-3d %-3d%s%s %-3d %-4d", sh_nr (ptr), ShipName (ptr), sh_fleet (ptr), sh_eff (ptr), sh_mob (ptr), sh_civ (ptr), sh_mil (ptr), sh_pln (ptr), chainsaw_version ? Fmt (" %-3d %-3d", sh_xpln (ptr), sh_heli (ptr)) : "", land_units? Fmt (" %-3d", sh_land (ptr)) : "", sh_foo (ptr), sh_tech (ptr)), sh_nr (ptr)); nr = sh_nr (ptr); } if (StringsSize (strings) == 1) { FreeStrings (strings); Message ("No available ships."); Bell (); return NULL; } pager = InitPager (strings, quest); MapPagerFromTop (pager, map_win, x, y); select = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (select < 0) { Message ("No Ship selected"); Bell (); return; } return NrToShip (select); } xemp5.1-beta/lib/ship/set.c100444 12266 2116 3162 6023772143 14107 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/ship/RCS/set.c,v 5.1 1993/03/14 16:51:43 etienne Exp $ $Date: 1993/03/14 16:51:43 $ $Author: etienne $ $Id: set.c,v 5.1 1993/03/14 16:51:43 etienne Exp $ $Locker: $ $Log: set.c,v $ Revision 5.1 1993/03/14 16:51:43 etienne *** empty log message *** * Revision 5.0 93/02/06 09:23:42 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:43:25 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "var.h" #include "ship.h" void SetShip (ship) Ship ship; { char * ans; int price; double mult; int i; if (! s_owned (ship)) { Message ( "For some strange reason you can only sell your own ships"); Bell (); return; } price = shiptypes [sh_type (ship)]. cos * sh_eff (ship) / 100; for (i = 1; i < V_MAX; i ++) price += ProdCost (i) * GiveShipQuant (ship, ItemChar (i)); Bell (); ans = InputAtMessage ( Fmt ("Set at what price [cost you $%d]: ", price), 5, "*.0-9"); if (ans == (char *) 0 || interrupt) { Message ("Set cancelled"); return; } if (* ans == '*') { if (sscanf (ans + 1, "%lf", & mult) != 1) { Message ("Illegal entry, usage: '* mult'"); Bell (); return; } price = (int) (price * mult); } else if (*ans == '\0') ; /* price is set to default already */ else price = atoi (ans); FeedCommand (Fmt ("set ship %d %d", sh_nr (ship), price), PRINT); Message (Fmt ("%s #%d set at $%d", ShipName (ship), sh_nr (ship), price)); } xemp5.1-beta/lib/ship/ship.c100644 12266 2116 53417 6042644645 14317 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/ship/RCS/ship.c,v 5.6 1995/10/10 06:49:12 jpo Exp jpo $ $Date: 1995/10/10 06:49:12 $ $Author: jpo $ $Id: ship.c,v 5.6 1995/10/10 06:49:12 jpo Exp jpo $ $Locker: jpo $ $Log: ship.c,v $ Revision 5.6 1995/10/10 06:49:12 jpo A little more protective. Revision 5.5 1995/09/29 07:55:34 jpo Allow temp ships Revision 5.4 1995/09/27 16:12:17 jpo anti-missile Revision 5.3 1995/09/08 07:43:54 jpo const Revision 5.2 1995/08/15 08:02:25 jpo *** empty log message *** * Revision 5.1 93/03/14 16:51:43 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:42 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:43:25 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "nation.h" #include "var.h" #include "ship.h" #include "plane.h" #include "land.h" #include "version.h" ShType shiptypes [MAX_SHIPTYPES]; ShType nilship = { 0, 0, 0, 0, 0, 1,0,0,0,0, 0, 0, 0, 0, (char *) 0, 0, 0, 0, (long) 0, { 0, 0, 0 , 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }, }; Ship shiplist = (Ship) 0; int FindShipTypeByName (name, must_exist) const char *name; bool must_exist; { register int i; register char *ptr; register const char *nptr; if(land_units) { if (strncmp (name, "fishing ves", 11) == 0) name = "fishing boat"; } for (i = 0; shiptypes [i]. nam != (char *) 0; i ++) { nptr = name; ptr = shiptypes [i]. nam; while (*ptr == *nptr && *ptr != '\0') { ptr ++; nptr ++; } if (*ptr != '\0' && *nptr != '\0') { continue; } /* Longer name */ if (must_exist && *nptr != '\0') { if (ptr - shiptypes [i]. nam < 18) continue; free ((char *) shiptypes [i]. nam); shiptypes [i]. nam = Str (name); } return i; } if (! must_exist) return -1; PrintAtEmpire (Fmt ("Ship \"%s\" not found in 'ship-types' list", name)); Bell (); (void) EmpireMore (); shiptypes [i] = nilship; shiptypes [i]. nam = Str (name); if (isupper (*shiptypes [i]. nam)) *shiptypes [i]. nam = tolower (*shiptypes [i]. nam); return i; } /* * Set all values for the current ship. (radar range, * sonar range, id of the ship (to lookup into shiptypes). * * I don't know why, but empire names a fishing boat and * a fishing trawler a fishing vessel. Since we don't know * what ship, we'll assume a fishing boat. */ const char *ShipName (ship) Ship ship; { if (! sh_owned (ship) && shiptypes [sh_type (ship)]. nam && StrEQ (shiptypes [sh_type (ship)]. nam, "fishing")) return ("fishing vessel"); if (shiptypes [sh_type (ship)]. nam) return (shiptypes [sh_type (ship)]. nam); else return "Unknown"; } void SetShipValues (ship, ship_name) Ship ship; char *ship_name; { int tf; set_sh_type (ship, FindShipTypeByName (ship_name, True)); /* set radar/sonar range of the ship */ if (! sh_owned (ship)) { /* No way to tell which values */ set_sh_radar (ship, 0); set_sh_sonar (ship, 0); return; } tf = (int) TechFact (sh_tech (ship), (double) shiptypes [sh_type (ship)]. spy); set_sh_radar (ship, 0.01 * (double) tf * (double) sh_eff (ship)); if ((shiptypes [sh_type (ship)]. flags & M_SONAR) == M_SONAR) set_sh_sonar (ship, sh_radar (ship)); else set_sh_sonar (ship, 0); } bool KnowsResoShip (ship) Ship ship; { if ((shiptypes [sh_type (ship)]. flags & M_FISH) == M_FISH) return True; if ((shiptypes [sh_type (ship)]. flags & M_OIL) == M_OIL) return True; return False; } bool ShipOnList (ship) Ship ship; { Ship ptr; for (ptr = shiplist; ptr != (Ship) 0; ptr = sh_next (ptr)) if (ptr == ship) return True; return False; } Ship NrToShip (nr) int nr; { Ship ptr; for (ptr = shiplist; ptr != (Ship) 0; ptr = sh_next (ptr)) if (sh_nr (ptr) == nr) return ptr; return (Ship) 0; } void SetSectorShipsNr (sct) Sector sct; { Ship ptr; set_shi (sct, 0); for (ptr = s_fship (sct); ptr != (Ship) 0; ptr = sh_nxtsct (ptr)) inc_shi (sct); } void AddShipToSector (ship, to) Ship ship; Sector to; { Ship ptr; if (! ShipOnList (ship)) { fprintf (stderr, "AddShipToSector : ship not on global list ??\n"); leave (); } set_sh_xcd (ship, s_xcd (to)); set_sh_ycd (ship, s_ycd (to)); (void) UpdateSectorDes (to, '.', False); for (ptr = s_fship (to); ptr != (Ship) 0; ptr = sh_nxtsct (ptr)) { if (sh_nr (ptr) == sh_nr (ship)) { if (ptr != ship) { /* impossible */ DeleteShip (ptr); /* Restart Chain */ ptr = s_fship (to); } else { /* Obviously ship is already in sector */ SetSectorShipsNr (to); return; } } } set_sh_nxtsct (ship, s_fship (to)); s_fship (to) = ship; SetSectorShipsNr (to); } void DeleteShipFromSector (ship) Ship ship; { register Ship ptr, prv; Sector from; from = World (sh_xcd (ship), sh_ycd (ship), S_DESIG); prv = (Ship) 0; for (ptr = s_fship (from); ptr != (Ship) 0; ptr = sh_nxtsct (ptr)) { if (ptr == ship) { /* delete ship from sector */ SetSectorShipsNr (from); s_shi (from) --; if (prv == (Ship) 0) s_fship (from) = sh_nxtsct (ptr); else set_sh_nxtsct (prv, sh_nxtsct (ptr)); return; } prv = ptr; } fprintf (stderr, "Internal error (DeleteShipFromSector): ship not found at it's pos.\n"); leave (); } void MoveShip (ship, to) Ship ship; Sector to; { Plane ptr, next; Land ptr2, next2; Sector old; if (ship == (Ship) 0) return; if (ShipHas (ship, M_PLANE) || ShipHas (ship, M_MISS) || land_units) { old = ShipSector (ship); ptr = s_fplane (old); if (land_units) ptr2 = s_fland (old); while (ptr != (Plane) 0) if (pl_shipnr (ptr) == sh_nr (ship)) { next = pl_nxtsct (ptr); MovePlaneTo (ptr, to); ptr = next; } else ptr = pl_nxtsct (ptr); if (land_units) { while (ptr2 != (Land) 0) if (ld_shipnr (ptr2) == sh_nr (ship)) { next2 = ld_nxtsct (ptr2); MoveLandTo (ptr2, to); ptr2 = next2; } else ptr2 = ld_nxtsct (ptr2); } } DeleteShipFromSector (ship); AddShipToSector (ship, to); } void DeleteShip (ship) Ship ship; { register Ship ptr, prv; if (ship == (Ship) 0) return; /* from sector list */ DeleteShipFromSector (ship); /* from global list */ prv = (Ship) 0; for (ptr = shiplist; ptr != (Ship) 0; ptr = sh_next (ptr)) { if (ptr == ship) { if (prv == (Ship) 0) shiplist = sh_next (shiplist); else set_sh_next (prv, sh_next (ship)); if (ship == curship) curship = sh_nxtsct (curship); free ((char *) ship); return; } prv = ptr; } fprintf (stderr, "DeleteShip : ship not on global list ??\n"); leave (); } void AddShipToList (ship) Ship ship; { Ship ptr; if (ship == (Ship) 0) return; if ((ptr = NrToShip (sh_nr (ship))) != (Ship) 0) { if (ptr == ship) /* obviously already there */ return; else { if (ptr == curship) curship = ship; DeleteShip (ptr); } } set_sh_next (ship, shiplist); shiplist = ship; } char ShipCharInSector (sct) Sector sct; { Ship ship; char let; if ((ship = s_fship (sct)) == (Ship) 0) return s_des (sct); else { const char *name = ShipName (ship); if (name == NULL) return s_des (sct); let = * name; return toupper (let); } } bool ShipAtSect (sct, let) Sector sct; char let; { Ship ship; char slet; for (ship = s_fship (sct); ship != (Ship) 0; ship = sh_nxtsct (ship)) { const char *name = ShipName (ship); if (name == NULL) continue; slet = *name; if (toupper (slet) == let) return True; } return False; } bool AddEnemyShip (x, y, nr, owner, ptr) int x, y, nr, owner; char *ptr; { Ship new; Sector to; to = World (x, y, S_DESIG); if (nr != -1 && (new = NrToShip (nr)) != (Ship) 0) { /* It's already on list just move it (Might not have moved) */ if (owner != sh_owner (new)) { PrintAtEmpire (Fmt ( "%s (#%d) changed hands from %s to %s", ShipName (new), nr, CountryName (new-> owner), CountryName (owner))); set_sh_owner (new, owner); } if (sh_xcd (new) == x && sh_ycd (new) == y) return False; set_sh_oldpos (new, sh_xcd (new), sh_ycd (new)); set_sh_time (new, time ((time_t *) 0)); set_sh_marked (new, False); MoveShip (new, to); return True; } new = (Ship) doalloc ((unsigned) sizeof (struct s_ship)); bzero (new, sizeof (struct s_ship)); set_sh_owner (new, owner); set_sh_nr (new, nr); set_sh_fleet (new, '~'); set_sh_time (new, (time_t) 0); set_sh_marked (new, False); SetShipValues (new, ptr); AddShipToList (new); AddShipToSector (new, to); return True; } int GiveShipQuant (ship, item) Ship ship; char item; { if (ship == (Ship) 0) { fprintf (stderr, "GiveShipQuant : NIL ship ??\n"); leave (); } switch (item) { case 'O': return sh_owner (ship); case 'F': return (int) sh_fleet (ship); /* Ugly !! */ case 'R': return sh_radar (ship); case 'S': return sh_sonar (ship); case 'N': return sh_nr (ship); case 'x': return sh_xcd(ship); case 'y': return sh_ycd (ship); case 't': return sh_type (ship); } if (! deity && ! sh_owned (ship)) return 0; switch (item) { case 'E': return sh_eff (ship); case 'T': return sh_tech (ship); case 'M': return sh_mob (ship); case 'P': return sh_pln (ship); case 'c': return sh_civ (ship); case 'm': return sh_mil (ship); case 'u': return sh_uw (ship); case 'f': return sh_foo (ship); case 's': return sh_she (ship); case 'g': return sh_gun (ship); case 'p': return sh_pet (ship); case 'i': return sh_iron (ship); case 'd': return sh_dust (ship); case 'b': return sh_bar (ship); case 'o': return sh_oil (ship); case 'l': return sh_lcm (ship); case 'h': return sh_hcm (ship); case 'r': return sh_rad (ship); case 'w': return sh_xpln (ship); case 'z': return sh_heli (ship); case 'e': return sh_fuel (ship); case 'L': return sh_land (ship); default: return 0; } } /* * int MaxShipCargo (ship, item) * Returns the maximum number of item that can be * loaded onto the ship. I also added the 'P' for * planes. (doesn't belong here I think). */ int MaxShipCargo (ship, itemchar) Ship ship; char itemchar; { int item; if (ship == (Ship) 0) { fprintf (stderr, "MaxShipCargo : NIL ship ??\n"); leave (); } if (itemchar == 'P') { if ((shiptypes [sh_type (ship)]. flags & M_PLANE) == M_PLANE) return ksu_version ? shiptypes [sh_type (ship)]. pla : 8; else return 0; } if(itemchar == 'e') { return (shiptypes [sh_type (ship)]. fcar); } if(itemchar == 'L') { return (shiptypes [sh_type (ship)]. land); } if(itemchar == 'z') { return (shiptypes [sh_type (ship)]. hel); } if(itemchar == 'w') { return (shiptypes [sh_type (ship)]. xpl); } item = CharToItem (itemchar); return shiptypes [sh_type (ship)]. car [item]; } /* * char *GiveShipQuantStr (ship, id) * Returns a string containing the value of the id-field * Whenever the id is not supported on the ship (eg * radar, sonar or #lcm when the ship can't carry lcm's) * an empty string (" ") is returned. * * The string will be four characters long and by * efficiency the %-character is also added. * * One exception is made for the fleets in which case * a string of only one character is returned. */ const char * GiveShipQuantStr (ship, id) Ship ship; char id; { int i; char *ptr; if (ship == (Ship) 0) { fprintf (stderr, "GiveShipQuantStr : NIL ship ??\n"); leave (); } i = GiveShipQuant (ship, id); ptr = Fmt ("%-4d", i); switch (id) { case 'E': return Fmt ("%-3d%%", sh_eff (ship)); case 'O': case 'N': case 'T': case 'M': return ptr; case 'S': if (sh_sonar (ship) > 0) return ptr; else return "-- "; case 'R': if (sh_radar (ship) > 0) return ptr; else return "-- "; case 'F': return Fmt (" %c ", sh_fleet (ship)); case 'P': case 'c': case 'm': case 'u': case 'f': case 's': case 'g': case 'p': case 'i': case 'd': case 'b': case 'o': case 'l': case 'h': case 'r': case 'e': case 'w': case 'z': case 'L': if (i > 0) return ptr; if (MaxShipCargo (ship, id) == 0) return "-- "; break; default: return "?? "; } return " "; } void SetShipQuant (ship, item, value) Ship ship; char item; int value; { if (ship == (Ship) 0) { fprintf (stderr, "SetShipQuant : NIL ship ??\n"); leave (); } if (!deity && ! sh_owned (ship)) return; switch (item) { case 'c': { set_sh_civ (ship, value); break; } case 'm': { set_sh_mil (ship, value); break; } case 'u': { set_sh_uw (ship, value); break; } case 'f': { set_sh_foo (ship, value); break; } case 's': { set_sh_she (ship, value); break; } case 'g': { set_sh_gun (ship, value); break; } case 'p': { set_sh_pet (ship, value); break; } case 'i': { set_sh_iron (ship, value); break; } case 'd': { set_sh_dust (ship, value); break; } case 'b': { set_sh_bar (ship, value); break; } case 'o': { set_sh_oil (ship, value); break; } case 'l': { set_sh_lcm (ship, value); break; } case 'h': { set_sh_hcm (ship, value); break; } case 'r': { set_sh_rad (ship, value); break; } case 'F': { set_sh_fleet (ship, value); break; } case 'e': { set_sh_fuel (ship, value); break; } case 'L': { set_sh_land (ship, value); break; } case 'w': { set_sh_xpln (ship, value); break; } case 'z': { set_sh_heli (ship, value); break; } default: if (! deity) return; switch (item) { case 'O': { set_sh_owner (ship, value); break; } case 'T': { set_sh_tech (ship, value); break; } case 'E': { set_sh_eff (ship, value); break; } case 'M': { set_sh_mob (ship, value); break; } case 'P': { set_sh_pln (ship, value); break; } default: return; } } } bool ShipHasRadar (ship) Ship ship; { return (sh_radar (ship) >= 1); } bool ShipHasSonar (ship) Ship ship; { return (sh_sonar (ship) >= 1); } bool ShipHas (ship, flags) Ship ship; long flags; { return BIT_SET (shiptypes [sh_type (ship)]. flags, flags); } void DeleteEnemyShips () { Ship ship, nship; for (ship = shiplist; ship != (Ship) 0; ship = nship) { nship = sh_next (ship); if (sh_owner (ship) != my_cnum) DeleteShip (ship); } } Ship AskShip (x, y, quest, allow_others) int x, y; const char *quest; bool allow_others; { Strings strings; Pager pager; Ship ship; int select; strings = InitStrings (); for (ship = shiplist; ship != (Ship) 0; ship = sh_next (ship)) { if (! allow_others && ! deity && sh_owner (ship) != my_cnum) continue; AddStringID (strings, Fmt ("#%d @%d,%d %-18s%s", sh_nr (ship), sh_xcd (ship), sh_ycd (ship), ShipName (ship), deity ? Fmt (" owner %s", CountryName (sh_owner (ship))) : ""), sh_nr (ship)); } if (StringsSize (strings) == 0) { FreeStrings (strings); Message ("No Ships !!"); Bell (); return ((Ship) 0); } pager = InitPager (strings, quest); MapPagerFromTop (pager, map_win, x, y); select = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (select < 0) return ((Ship) 0); return NrToShip (select); } void FleetAdd (x, y) int x, y; { char first_free; char * quest; char * ans; char * ships; Ship ptr; char fl; first_free = FirstFreeFleet (); if (first_free == '\0') quest = "Add to which fleet [all used]: "; else quest = Fmt ("Add to which fleet [%c]: ", first_free); Bell (); ans = InputAtMessage (quest, 1, "a-zA-Z~"); if (ans == (char *) 0 || interrupt) { interrupt = False; Message ("Fleetadd cancelled"); return; } if (* ans == '\0' && first_free == '\0') { Message ("You must specify a fleet !"); Bell (); return; } fl = * ans == '\0' ? first_free : * ans; ships = SelectShips (x, y, ST_FLEETADD, "Select ship(s) to add"); if (ships == (char *) 0) return; MarkShips (ships); for ALL_SHIPS (ptr) if (sh_marked (ptr)) set_sh_fleet (ptr, fl); FeedCommand (Fmt ("fleetadd %c %s", fl, ships), PRINT); UnmarkAllShips (); } const char * ShipCargoNames (cargo) int cargo[]; { int i; static char buffer [100]; buffer [0] = '\0'; for (i = 1; i < V_MAX; i++) if (cargo [i] > 0) strcat (buffer, Fmt (" %d%c", cargo [i], ItemChar (i))); return buffer; } const char * ShipCapNames (flags) long flags; { static char buffer [100]; buffer [0] = '\0'; if (BIT_SET (flags, M_FISH)) strcat (buffer, " fish"); if (BIT_SET (flags, M_OIL)) strcat (buffer, " oil"); if (BIT_SET (flags, M_SWEEP)) strcat (buffer, " sweep"); if (BIT_SET (flags, M_MISS)) strcat (buffer, " missile"); if (BIT_SET (flags, M_PLANE)) strcat (buffer, " plane"); if (BIT_SET (flags, M_SUB)) strcat (buffer, " submarine"); if (BIT_SET (flags, M_SONAR)) strcat (buffer, " sonar"); if (BIT_SET (flags, M_MINE)) strcat (buffer, " mine"); if (BIT_SET (flags, M_DCHRG)) strcat (buffer, " dept_charge"); if (BIT_SET (flags, M_TORP)) strcat (buffer, " torpedo"); if (BIT_SET (flags, M_SPY)) strcat (buffer, " spy"); if (BIT_SET (flags, M_LAND)) strcat (buffer, " land"); if (BIT_SET (flags, M_SUBT)) strcat (buffer, " sub-torp"); if (BIT_SET (flags, M_TRADE)) strcat (buffer, " trade"); if (BIT_SET (flags, M_OILER)) strcat (buffer, " oiler"); if (BIT_SET (flags, M_SEMILAND)) strcat (buffer, " semi-land"); if (BIT_SET (flags, M_SUPPLY)) strcat (buffer, " supply"); if (BIT_SET (flags, M_ANTIMISS)) strcat (buffer, " anti-missile"); if (!BIT_SET (flags, M_KNOWN)) strcat (buffer, " unknown"); return buffer; } void ShowShipCBStrings (strings) Strings strings; { int i; int maint; if(!chainsaw_version) { AddString (strings, Fmt ("%s %s", "Name lcm hcm cost maint tech def", ksu_version ? "spd vis spy rng fir pla ava flags" : "spd vis spy rng fir ava flags")); } else { if(land_units) { AddString (strings, Fmt ("%s %s", "Name lcm hcm cost maint tech def", "spd vis spy rng fir hel xpl lnd pla fuse fcar ava flags")); } else { AddString (strings, Fmt ("%s %s", "Name lcm hcm cost maint tech def", "spd vis spy rng fir hel xpl pla fuse fcar ava flags")); } } AddString (strings, ""); for (i = 0; shiptypes [i]. nam != (char *) 0; i ++) { maint = (int) (etu_per_update * - dmin (0.0, shiptypes [i]. cos * money_ship)); AddString (strings, Fmt ( "%-16.16s %-3d %-3d %-6s %-5s %-4d %-3d %-3d %-3d %-3d %-3d %-3d %s%s%s%s%s%s %-3d%s%s", shiptypes [i]. nam, shiptypes [i]. lcm, shiptypes [i]. hcm, Fmt ("$%d", shiptypes [i]. cos), Fmt ("$%d", maint), shiptypes [i]. tec, shiptypes [i]. def, shiptypes [i]. spd, shiptypes [i]. vis, shiptypes [i]. spy, shiptypes [i]. rng, shiptypes [i]. fir, ksu_version ? Fmt ("%-3d ", shiptypes [i]. hel) : "", chainsaw_version ? Fmt ("%-3d ", shiptypes [i]. xpl) : "", land_units ? Fmt ("%-3d ", shiptypes [i]. land) : "", chainsaw_version ? Fmt ("%-3d ", shiptypes [i]. pla) : "", chainsaw_version ? Fmt ("%-3d ", shiptypes [i]. fuse) : "", chainsaw_version ? Fmt (" %-3d ", shiptypes [i]. fcar) : "", shiptypes [i]. ava, ShipCargoNames (shiptypes [i]. car), ShipCapNames (shiptypes [i]. flags))); } } void PageShowShipCBs () { Strings strings; strings = InitStrings (); ShowShipCBStrings (strings); if (StringsSize (strings) == 2) { Message ("You don't know about ships yet"); Bell (); FreeStrings (strings); return; } #ifdef TERMC_VERSION ShowStringsInPager (strings, "show ship c&b"); #else /* TERMC_VERSION */ InitWMPager (strings, "show ship c&b"); #endif /* TERMC_VERSION */ } double ShipFireRange (ship) Ship ship; { if(chainsaw_version) { return (shiptypes [sh_type (ship)].rng); } else { return TechFact(sh_tech (ship), (double) shiptypes [sh_type (ship)].rng / 2.0); } } int ShipMaxGuns (ship) Ship ship; { return shiptypes [sh_type (ship)]. fir; } Sector ShipSector (ship) Ship ship; { return World (sh_xcd (ship), sh_ycd (ship), S_EXIST); } bool SectorHasOwnedShips (sct, n) Sector sct; int n; { int i; Ship ptr; i = 0; for (ptr = s_fship (sct); ptr != (Ship) 0; ptr = sh_nxtsct (ptr)) if (sh_owned (ptr)) if (++ i == n) return True; return False; } void DoLookout (sct, shipnr, in_navigate, print, force) Sector sct; int shipnr; bool in_navigate; int print; bool force; { Sector nxt; Neighb neighb; bool do_lookout; do_lookout = False; if (! force) { InitNeighbours (sct, & neighb); for (nxt = sct; NextNeighbour (& nxt, S_DESIG, neighb); ) if (NO_INFO (nxt)) do_lookout = True; } if (do_lookout || force) { if (in_navigate) { FeedEmpire ("l", print); if (!chainsaw_version) { (void) WaitForPrompt (print); FeedEmpire (Fmt ("%d", shipnr), print); } } else FeedEmpire (Fmt ("lookout %d", shipnr), print); ScanLookout (); InitNeighbours (sct, & neighb); while (NextNeighbour (& nxt, S_DESIG, neighb)) (void) UpdateSectorDes (nxt, '.', False); DrawNeighbours (sct); (void) WaitForPrompt (print); } } bool ShipAtWith (sct, flag) Sector sct; long flag; { register Ship ptr; for (ptr = s_fship (sct); ptr != (Ship) 0; ptr = sh_nxtsct (ptr)) if (ShipHas (ptr, flag)) return True; return False; } int AskCarrier (x, y, sct, heli) int x, y; Sector sct; bool heli; { Strings strings; Pager pager; Ship ptr; int last_id; int i; strings = InitStrings (); last_id = -1; for (ptr = s_fship (sct); ptr != (Ship) 0; ptr = sh_nxtsct (ptr)) if ((ShipHas (ptr, M_PLANE) && heli == False) || (MaxShipCargo (ptr, 'z') && heli == True)) { AddStringID (strings, Fmt ( "%-18.18s #%-4d (%d planes, %d petrol)", ShipName (ptr), sh_pln (ptr), sh_pet (ptr)), sh_nr (ptr)); last_id = sh_nr (ptr); } if (StringsSize (strings) <= 1) { FreeStrings (strings); return last_id; } pager = InitPager (strings, "Land at which aircraft ?"); MapPagerFromTop (pager, map_win, x, y); i = PagerMenu (pager); FreePager (pager); FreeStrings (strings); return i < 0 ? -1 : i; } xemp5.1-beta/lib/ship/shipscan.c100444 12266 2116 54701 6032273723 15151 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/ship/RCS/shipscan.c,v 5.4 1995/09/27 16:12:02 jpo Exp $ $Date: 1995/09/27 16:12:02 $ $Author: jpo $ $Id: shipscan.c,v 5.4 1995/09/27 16:12:02 jpo Exp $ $Locker: $ $Log: shipscan.c,v $ Revision 5.4 1995/09/27 16:12:02 jpo anti-missile Revision 5.3 1995/09/08 07:43:58 jpo scan all relevant things etc. Revision 5.2 1995/08/15 08:02:42 jpo various changes for the new empire * Revision 5.1 93/03/14 16:51:44 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:42 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:43:25 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "nation.h" #include "var.h" #include "ship.h" #include "version.h" void FScanShowShipBuild () { char *line; char *bptr, buffer [BUFSIZ]; int nrt = 0; int dataoff; int i; ShType tmp; FeedEmpire ("show ship build", PRINT); MessageAtEmpire ("scanning ship build data"); line = ReadEmpire (DONT_PRINT); if ((bptr = StrStr (line, "lcm")) == NULL) { PrintAtEmpire (Fmt ("Unknown format line \"%s\"", line)); Bell (); EmpireMore (); dataoff = chainsaw_version ? 22 : 17; } else { dataoff = bptr - line; } for (;;) { line = ReadEmpire (DONT_PRINT); if (StrStr(line, "lcm hcm avail tech $")) continue; /* last line ? */ if (EmpireStatus () != E_PRINTING) { PrintAtEmpire (""); PrintAtEmpire (line); shiptypes [nrt]. nam = (char *) 0; return; } strncpy (buffer, line, dataoff - 1); buffer [dataoff - 1] = '\0'; bptr = buffer + dataoff - 2; if (!ksu_version) { while (*bptr < 'a' || *bptr > 'z') bptr --; } else { while (*bptr == ' ') bptr --; } * ++bptr = '\0'; if (shiptypes [nrt]. nam != (char *) 0) free (shiptypes [nrt]. nam); shiptypes [nrt]. nam = Str (buffer); if (sscanf (line + dataoff, " %d %d %d %d $%d", & (shiptypes [nrt]. lcm), & (shiptypes [nrt]. hcm), & (shiptypes [nrt]. ava), & (shiptypes [nrt]. tec), & (shiptypes [nrt]. cos)) != 5) { PrintAtEmpire(Fmt("Scanning ship failed \"%s\"", line)); Bell (); (void) EmpireMore (); nrt --; } nrt ++; } } void FScanShowShipStats () { char *line, *ptri; char *bptr, buffer [BUFSIZ]; char word [BUFSIZ]; int dataoff; int nr = 0; int quant; char itemchar; int item; int i; ShType tmp; if (land_units) { FeedEmpire ("show ship stats", PRINT); MessageAtEmpire ("scanning ship stats"); } else { FeedEmpire ("show ship cap", PRINT); MessageAtEmpire ("scanning ship capabilities"); } if (chainsaw_version) { (void) SkipNLines (2, DONT_PRINT); } line = ReadEmpire (DONT_PRINT); if ((bptr = StrStr (line, "def")) != NULL) dataoff = bptr - line; else { PrintAtEmpire (Fmt ("Unknown format line \"%s\"", line)); Bell (); EmpireMore (); dataoff = 17; } for (;;) { line = ReadEmpire (DONT_PRINT); if (StrStr(line, "def")) continue; /* last line ? */ if (EmpireStatus () != E_PRINTING) { PrintAtEmpire (""); PrintAtEmpire (line); return; } if ((!ksu_version && sscanf (line + dataoff, " %d %d %d %d %d %d", & (shiptypes [nr]. def), & (shiptypes [nr]. spd), & (shiptypes [nr]. vis), & (shiptypes [nr]. spy), & (shiptypes [nr]. rng), & (shiptypes [nr]. fir)) != 6) || (ksu_version && !chainsaw_version && sscanf (line + dataoff, " %d %d %d %d %d %d %d", & (shiptypes [nr]. def), & (shiptypes [nr]. spd), & (shiptypes [nr]. vis), & (shiptypes [nr]. spy), & (shiptypes [nr]. rng), & (shiptypes [nr]. fir), & (shiptypes [nr]. pla)) != 7) || (chainsaw_version && !land_units && sscanf (line + dataoff, " %d %d %d %d %d %d %d %d %d %d/%d", & (shiptypes [nr]. def), & (shiptypes [nr]. spd), & (shiptypes [nr]. vis), & (shiptypes [nr]. spy), & (shiptypes [nr]. rng), & (shiptypes [nr]. fir), & (shiptypes [nr]. hel), & (shiptypes [nr]. xpl), & (shiptypes [nr]. pla), & (shiptypes [nr]. fcar), & (shiptypes [nr]. fuse)) != 11) || (chainsaw_version && land_units && sscanf (line + dataoff, " %d %d %d %d %d %d %d %d %d %d %d/%d", & (shiptypes [nr]. def), & (shiptypes [nr]. spd), & (shiptypes [nr]. vis), & (shiptypes [nr]. spy), & (shiptypes [nr]. rng), & (shiptypes [nr]. fir), & (shiptypes [nr]. land), & (shiptypes [nr]. pla), & (shiptypes [nr]. hel), & (shiptypes [nr]. xpl), & (shiptypes [nr]. fcar), & (shiptypes [nr]. fuse)) != 12)) { PrintAtEmpire (Fmt ("Scanning ship failed \"%s\"", line)); Bell (); (void) EmpireMore (); } /* Clear max cargoes */ for (item = 0; item < V_MAX; item++) shiptypes [nr]. car [item] = 0; shiptypes [nr]. flags = 0L; /* Scan max cargoes */ nr++; } } void FScanShowShipCap() { char *line, *ptri; char *bptr, buffer [BUFSIZ]; char word [BUFSIZ]; int nr = 0; int quant; char itemchar; int item; int i; ShType tmp; (void) FScanShowShipStats(); FeedEmpire ("show ship cap", PRINT); MessageAtEmpire ("scanning ship capabilities"); if (!chainsaw_version && !land_units) { (void) SkipNLines (1, DONT_PRINT); } else if (chainsaw_version && !land_units) { (void) SkipNLines (3, DONT_PRINT); } else if (chainsaw_version && land_units) { (void) SkipNLines (1, DONT_PRINT); } for (;;) { line = ReadEmpire (DONT_PRINT); /* last line ? */ if (EmpireStatus () != E_PRINTING) { PrintAtEmpire (""); PrintAtEmpire (line); return; } if (chainsaw_version && land_units) { ptri = line + 25; } else if (chainsaw_version && !land_units) { ptri = line + 47; } else if (!chainsaw_version && !land_units) { ptri = line + 45; } for (;;) { if (! ScanWord ((ConstVP)&ptri, word)) break; if (sscanf (word, "%d%c", &quant, &itemchar) == 2) { item = CharToItem (itemchar); shiptypes [nr]. car [item] = quant; } else if (strcmp (word, "fish") == 0) shiptypes [nr]. flags |= M_FISH; else if (strcmp (word, "oil") == 0) shiptypes [nr]. flags |= M_OIL; else if (strcmp (word, "sweep") == 0) shiptypes [nr]. flags |= M_SWEEP; else if (strcmp (word, "miss") == 0) shiptypes [nr]. flags |= M_MISS; else if (strcmp (word, "plane") == 0) shiptypes [nr]. flags |= M_PLANE; else if (strcmp (word, "sub") == 0) shiptypes [nr]. flags |= M_SUB; else if (strcmp (word, "sonar") == 0) shiptypes [nr]. flags |= M_SONAR; else if (strcmp (word, "mine") == 0) shiptypes [nr]. flags |= M_MINE; else if (strcmp (word, "dchrg") == 0) shiptypes [nr]. flags |= M_DCHRG; else if (strcmp (word, "torp") == 0) shiptypes [nr]. flags |= M_TORP; else if (strcmp (word, "spy") == 0) shiptypes [nr]. flags |= M_SPY; else if (strcmp (word, "land") == 0) shiptypes [nr]. flags |= M_LAND; else if (strcmp (word, "sub-torp") == 0) shiptypes [nr]. flags |= M_SUBT; else if (strcmp (word, "trade") == 0) shiptypes [nr]. flags |= M_TRADE; else if (strcmp (word, "oiler") == 0) shiptypes [nr]. flags |= M_OILER; else if (strcmp (word, "semi-land") == 0) shiptypes [nr]. flags |= M_SEMILAND; else if (strcmp (word, "supply") == 0) shiptypes [nr]. flags |= M_SUPPLY; else if (strcmp (word, "anti-missile") == 0) shiptypes [nr]. flags |= M_ANTIMISS; else { PrintAtEmpire (Fmt ( "Strange format in cargo \"%s\"", word)); Bell (); } shiptypes [nr]. flags |= M_KNOWN; } for( i=nr; i > 0; i-- ) { if (shiptypes[i].tec < shiptypes[i-1].tec) { bcopy(&shiptypes[i-1], &tmp, sizeof(ShType)); bcopy(&shiptypes[i], &shiptypes[i-1], sizeof(ShType)); bcopy(&tmp, &shiptypes[i], sizeof(ShType)); } } nr++; } } void RestoreShowShip (fp) FILE *fp; { int nr; register int j; char buffer [BUFSIZ]; char name [BUFSIZ]; register char *ptri; nr = 0; while (fgets (buffer, BUFSIZ, fp) != (char *) 0) { if (strncmp (buffer, "END OF SHOW SHIP LIST", 21) == 0) { shiptypes [nr]. nam = (char *) 0; break; } buffer [strlen (buffer) - 1] = '\0'; /* no newline */ if(chainsaw_version) { if (land_units) { if (sscanf (buffer,"%d %d %d %d %d %d %d %d %d %s %d %d %d %ld %d %d %d %d %d", & (shiptypes [nr]. lcm), & (shiptypes [nr]. hcm), & (shiptypes [nr]. def), & (shiptypes [nr]. spd), & (shiptypes [nr]. vis), & (shiptypes [nr]. spy), & (shiptypes [nr]. rng), & (shiptypes [nr]. fir), & (shiptypes [nr]. pla), name , & (shiptypes [nr]. tec), & (shiptypes [nr]. cos), & (shiptypes [nr]. ava), & (shiptypes [nr]. flags), & (shiptypes [nr]. xpl), & (shiptypes [nr]. hel), & (shiptypes [nr]. fuse), & (shiptypes [nr]. fcar), & (shiptypes [nr]. land)) != 19) { PrintAtEmpire ("Bad Ship info in datafile"); Bell (); continue; } } else { if (sscanf (buffer,"%d %d %d %d %d %d %d %d %d %s %d %d %d %ld %d %d %d %d", & (shiptypes [nr]. lcm), & (shiptypes [nr]. hcm), & (shiptypes [nr]. def), & (shiptypes [nr]. spd), & (shiptypes [nr]. vis), & (shiptypes [nr]. spy), & (shiptypes [nr]. rng), & (shiptypes [nr]. fir), & (shiptypes [nr]. pla), name , & (shiptypes [nr]. tec), & (shiptypes [nr]. cos), & (shiptypes [nr]. ava), & (shiptypes [nr]. flags), & (shiptypes [nr]. xpl), & (shiptypes [nr]. hel), & (shiptypes [nr]. fuse), & (shiptypes [nr]. fcar)) != 18) { PrintAtEmpire ("Bad Ship info in datafile"); Bell (); continue; } } } else { if (sscanf (buffer,"%d %d %d %d %d %d %d %d %d %s %d %d %d %ld", & (shiptypes [nr]. lcm), & (shiptypes [nr]. hcm), & (shiptypes [nr]. def), & (shiptypes [nr]. spd), & (shiptypes [nr]. vis), & (shiptypes [nr]. spy), & (shiptypes [nr]. rng), & (shiptypes [nr]. fir), & (shiptypes [nr]. pla), name , & (shiptypes [nr]. tec), & (shiptypes [nr]. cos), & (shiptypes [nr]. ava), & (shiptypes [nr]. flags)) != 14) { PrintAtEmpire ("Bad Ship info in datafile"); Bell (); continue; } } for (ptri = name; *ptri != '\0'; ptri ++) if (*ptri == '_') *ptri = ' '; shiptypes [nr]. nam = Str (name); for (j = 1; j < V_MAX; j++) fscanf (fp, " %d ", & (shiptypes [nr]. car [j])); fscanf (fp, "\n"); nr ++; } } void SaveShowShip (fp) FILE *fp; { register int i, j; register char *ptri, *name;; for (i = 0; shiptypes [i]. nam != (char *) 0; i ++) { name = Str (shiptypes [i]. nam); for (ptri = name; *ptri != '\0'; ptri ++) if (*ptri == ' ') *ptri = '_'; if(chainsaw_version) { if(land_units) { fprintf (fp, "%d %d %d %d %d %d %d %d %d %s %d %d %d %ld %d %d %d %d %d\n", shiptypes [i]. lcm, shiptypes [i]. hcm, shiptypes [i]. def, shiptypes [i]. spd, shiptypes [i]. vis, shiptypes [i]. spy, shiptypes [i]. rng, shiptypes [i]. fir, shiptypes [i]. pla, name, shiptypes [i]. tec, shiptypes [i]. cos, shiptypes [i]. ava, shiptypes [i]. flags, shiptypes [i]. xpl, shiptypes [i]. hel, shiptypes [i]. fuse, shiptypes [i]. fcar, shiptypes [i]. land); } else { fprintf (fp, "%d %d %d %d %d %d %d %d %d %s %d %d %d %ld %d %d %d %d\n", shiptypes [i]. lcm, shiptypes [i]. hcm, shiptypes [i]. def, shiptypes [i]. spd, shiptypes [i]. vis, shiptypes [i]. spy, shiptypes [i]. rng, shiptypes [i]. fir, shiptypes [i]. pla, name, shiptypes [i]. tec, shiptypes [i]. cos, shiptypes [i]. ava, shiptypes [i]. flags, shiptypes [i]. xpl, shiptypes [i]. hel, shiptypes [i]. fuse, shiptypes [i]. fcar); } } else { fprintf (fp, "%d %d %d %d %d %d %d %d %d %s %d %d %d %ld\n", shiptypes [i]. lcm, shiptypes [i]. hcm, shiptypes [i]. def, shiptypes [i]. spd, shiptypes [i]. vis, shiptypes [i]. spy, shiptypes [i]. rng, shiptypes [i]. fir, shiptypes [i]. pla, name, shiptypes [i]. tec, shiptypes [i]. cos, shiptypes [i]. ava, shiptypes [i]. flags); } for (j = 1; j < V_MAX; j++) fprintf (fp, "%d ", shiptypes [i]. car [j]); fprintf (fp, "\n"); free (name); } fprintf (fp, "END OF SHOW SHIP LIST\n"); } int DumpShips (list, flag) const char *list; int flag; { int nr; nr = FScanShips (list, flag); if (nr > 0) { FScanCargo (list, flag); if (land_units || emp3server) { FScanShipMission (list, flag); FScanShipRetreat (list, flag); } if (emp3server) { FScanShipOrders (list, flag); FScanShipQOrders (list, flag); } } return (nr); } int FScanShips (list, flag) const char *list; int flag; { bool nr; FeedEmpire (Fmt ("ships %s", list), flag); nr = ScanShips (flag); (void) WaitForPrompt (flag); return nr; } int ScanShips (flag) int flag; { char *line; int sx, sy, nr, owner, i, nr_of_ships; int eff, civ, mil, uw, food, pln, mob, tech, xpln, fuel, heli, land; Ship new, last_ship; Sector to; bool rescan; char shipname[100]; double mobcost; int ships; if (EmpireStatus () != E_PRINTING) return 0; if (flag == PRINT) PrintAtEmpire ("Empiretool: scanning ships"); (void) SkipNLines (1, DONT_PRINT); nr_of_ships = 0; last_ship = (Ship) 0; for (;;) { line = ReadEmpire (DONT_PRINT); if (EmpireStatus () != E_PRINTING) { PrintAtEmpire (line); return (nr_of_ships); } if (strlen (line) < 45) { if (sscanf (line, "%d ship", & ships) == 1) { if (ships != nr_of_ships) PrintAtEmpire (Fmt ("%s%d%s%d%s", "Strange, ", ships, " ships is not ", nr_of_ships, " ships!")); return (nr_of_ships); } else if (strncmp (line, "command failed", 13) == 0) continue; else if (ksu_version) { if (strlen (line) > 7 && last_ship != (Ship) 0) { set_sh_name (last_ship, line + 7); continue; } } else { PrintAtEmpire (Fmt ("Skipping: %s", line)); continue; } } if (deity) { owner = atoi (line); line += 4; } else owner = my_cnum; /* read ship# */ nr = atoi (line); if ((new = NrToShip (nr)) == (Ship) 0) { new = (Ship) doalloc ((unsigned) sizeof (struct s_ship)); bzero (new, sizeof (struct s_ship)); set_sh_nr (new, nr); rescan = False; } else rescan = True; set_sh_marked (new, False); set_sh_owner (new, owner); /* read shipname */ for (i = 5; i <= 18; i++) shipname [i - 5] = *(line + i); i -= 5; while (shipname [-- i] == ' '); shipname [i + 1] = '\0'; /* read position */ if (sscanf (line + 22, "%d,%d", & sx, &sy) != 2) { if (! rescan) free ((char *) new); PrintAtEmpire (Fmt ("Bad ship %s", line)); continue; } set_sh_fleet (new, *(line + 32)); if (sh_fleet (new) == ' ') set_sh_fleet (new, '~'); if(chainsaw_version) { if(!land_units) { sscanf (line + 34, " %d%% %d %d %d %d %d %d %d %d %d %d", & (eff), & (civ), & (mil), & (uw), & (food), & (pln), & (heli), & (xpln), & (mob), & (fuel), & (tech)); } else { sscanf (line + 34, " %d%% %d %d %d %d %d %d %d %d %d %d %d %d", & (eff), & (civ), & (mil), & (uw), & (food), & (pln), & (heli), & (xpln), & (land), & (mob), & (fuel), & (tech)); } } else { (void) sscanf (line + 34, " %d%% %d %d %d %d %d %d %d %d %d %d", & (eff), & (civ), & (mil), & (uw), & (food), & (pln), & (mob), & (tech)); } set_sh_eff (new, eff); set_sh_civ (new, civ); set_sh_mil (new, mil); set_sh_uw (new, uw); set_sh_foo (new, food); set_sh_pln (new, pln); if(chainsaw_version) { set_sh_xpln (new, xpln); set_sh_heli (new, heli); set_sh_fuel (new, fuel); if(land_units) { set_sh_land (new, land); } } set_sh_mob (new, mob); set_sh_tech (new, tech); mobcost = sh_eff (new) * 0.01 * shiptypes [sh_type (new)]. spd; mobcost = 480.0 / (mobcost + TechFact (sh_tech (new), mobcost)); set_sh_moves (new, mob / mobcost + 0.99); SetShipValues (new, shipname); if (rescan) { MoveShip (new, World (sx, sy, S_DESIG)); } else { to = World (sx, sy, S_DESIG); UpdateSectorDes (to, '.', False); AddShipToList (new); AddShipToSector (new, to); } last_ship = new; nr_of_ships++; } } void FScanCargo (list, flag) const char *list; int flag; { FeedEmpire (Fmt ("cargo %s", list), flag); ScanCargo (flag); (void) WaitForPrompt (flag); } void ScanCargo (flag) int flag; { char *line, *ptri, *tmp, *s, savechar; int nr; Ship ship; extern WinInfo empire_win; if (EmpireStatus () != E_PRINTING) return; if (flag == PRINT) PrintAtEmpire ("Empiretool: scanning cargo"); (void) SkipNLines (1, DONT_PRINT); for (;;) { line = ptri = ReadEmpire (DONT_PRINT); if (EmpireStatus () != E_PRINTING) { if (flag == PRINT) PrintAtEmpire (line); return; } if (strlen (line) < 70) { if (sscanf (line, "%d ships", & nr) == 1) return; else continue; } if (!ScanDigit ((ConstVP)&ptri, &nr) || (ship = NrToShip (nr)) == (Ship) 0) { PrintAtEmpire ( Fmt ("#%d Unknown ship ? (rescan ships !)", nr)); PrintAtEmpire (Fmt ("Skipping line \"%s\"", line)); if (! deity) { Bell (); (void) EmpireMore (); } else PrintAtEmpire ("Ship sunk, cargo found :-)"); continue; } SkipBlank ((ConstVP)&ptri); /* * Doesn't work error in empire prints > 999 wrongly * ptri += 16; skip shipname * nr = sscanf (ptri, * " %*d,%*d%*[a-zA-Z~ ]%*d%% %4hd %4hd %4hd \ * %4hd %4hd %4hd %4hd %4hd %4hd %4hd", * & (sh_shell (ship)), * & (sh_gun (ship)), * & (sh_pet (ship)), * & (sh_iron (ship)), * & (sh_dust (ship)), * & (sh_bar (ship)), * & (sh_oil (ship)), * & (sh_lcm (ship)), * & (sh_hcm (ship)), * & (sh_rad (ship))); * */ ptri = index (ptri, '%'); if (ptri != (char *) 0) { ptri++; for (s = "sgpidbolhr"; *s; s++) { SkipBlank ((ConstVP)&ptri); tmp = ptri; if (!ScanDigit ((ConstVP)&tmp, &nr)) break; if (tmp - ptri > 4) { savechar = *(tmp - 4); * (tmp - 4) = '\0'; (void) ScanDigit ((ConstVP)&ptri, &nr); * (tmp - 4) = savechar; } else (void) ScanDigit ((ConstVP)&ptri, &nr); SetShipQuant (ship, *s, nr); } } if (ptri == (char *) 0 || *s != '\0') { PrintAtEmpire ("Bad cargo format"); PrintAtEmpire (Fmt ("Skipping line \"%s\"", line)); Bell (); (void) EmpireMore (); continue; } } } void FeedRadarShips () { char buffer [BUFSIZ]; register char *bptr; register Ship sptr; register int num; bptr = buffer; num = 0; for (sptr = shiplist; sptr != (Ship) 0; sptr = sh_next (sptr)) { if (!deity && ! sh_owned (sptr)) continue; if (GiveShipQuant (sptr, 'R') <= 1) continue; sprintf (bptr, "%d", sptr-> nr); while (*bptr) bptr++; * bptr++ = '/'; num ++; } if (!num) return; *--bptr = '\0'; FScanRadar (buffer); } void FScanReso () { Sector sct; int oil, fert, x, y; char *ptr; oil = fert = -1; FeedEmpire ("v", PRINT); for (;;) { ptr = ReadEmpire (PRINT); if (EmpireStatus () != E_PRINTING) { PrintAtEmpire (ptr); return; } SkipBlank ((ConstVP)&ptr); if (strncmp (ptr, "[fert:", 6) == 0) { fert = atoi (ptr + 6); ptr = strchr (ptr, ']'); ptr ++; SkipBlank ((ConstVP)&ptr); } if (strncmp (ptr, "[oil:", 5) == 0) { oil = atoi (ptr + 5); ptr = strchr (ptr, ']'); ptr ++; SkipBlank ((ConstVP)&ptr); } if ((ptr = strchr (ptr, '@')) != (char *) 0) if (sscanf (++ptr, " %d, %d", &x, &y) == 2) { sct = World (x, y, S_DESIG); if (fert != -1) { set_fer (sct, fert); SET_INFO_FER (sct); } if (oil != -1) { set_oil (sct, oil); SET_INFO_OIL (sct); } } } } void CheckMarkedShips () { Ship sptr; for (sptr = shiplist; sptr != (Ship) 0; sptr = sh_next (sptr)) { if (!deity && ! sh_owned (sptr)) continue; if (sh_marked (sptr)) { Error (Fmt ("Your %s @ %d,%d has sunk/lost !", ShipName (sptr), sh_xcd (sptr), sh_ycd (sptr))); DeleteShip (sptr); } } } void SearchMarkedShips (flag) int flag; { char buffer [BUFSIZ]; register char *bptr; register Ship sptr; register int num; bptr = buffer; num = 0; for (sptr = shiplist; sptr != (Ship) 0; sptr = sh_next (sptr)) { if (! sh_owned (sptr) || ! sh_marked (sptr)) continue; sprintf (bptr, "%d", sptr-> nr); while (*bptr) bptr++; * bptr++ = '/'; num ++; } if (!num) return; *--bptr = '\0'; DumpShips (buffer, flag); CheckMarkedShips (); } void MarkShipsInSct (sct) Sector sct; { Ship sptr; for (sptr = s_fship (sct); sptr != (Ship) 0; sptr = sh_nxtsct (sptr)) set_sh_marked (sptr, True); } void MarkShip (ship) Ship ship; { set_sh_marked (ship, True); } void MarkAllShips () { Ship sptr; for (sptr = shiplist; sptr != (Ship) 0; sptr = sh_next (sptr)) set_sh_marked (sptr, True); } void RedumpShip (ship, flag) Ship ship; int flag; { char *aship; MarkShip (ship); aship = Fmt ("%d", sh_nr (ship)); DumpShips (aship, flag); CheckMarkedShips (); } void RedumpFleet (fleet, flag) char fleet; int flag; { char *afleet; Ship sptr; for (sptr = shiplist; sptr != (Ship) 0; sptr = sh_next (sptr)) if (sh_fleet (sptr) == fleet) MarkShip (sptr); afleet = Fmt ("%c", fleet); DumpShips (afleet, flag); SearchMarkedShips (flag); } void DumpSctShips (sct, flag) Sector sct; int flag; { MarkShipsInSct (sct); (void) DumpShips (CrdStr (sct), flag); SearchMarkedShips (flag); } void DumpRealmShips (realm, flag) const char *realm; int flag; { int sx, sy, ex, ey; Ship sptr; if (realm == (char *) 0) return; if (ConvRealmToCoord (realm, &sx, &ex, &sy, &ey)) for (sptr = shiplist; sptr != (Ship) 0; sptr = sh_next (sptr)) if (sh_xcd (sptr) >= sx && sh_xcd (sptr) <= ex && sh_ycd (sptr) >= sy && sh_ycd (sptr) <= ey) MarkShip (sptr); (void) DumpShips (realm, flag); SearchMarkedShips (flag); } xemp5.1-beta/lib/ship/tend.c100444 12266 2116 12172 6023772143 14267 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/ship/RCS/tend.c,v 5.1 1993/03/14 16:51:44 etienne Exp $ $Date: 1993/03/14 16:51:44 $ $Author: etienne $ $Id: tend.c,v 5.1 1993/03/14 16:51:44 etienne Exp $ $Locker: $ $Log: tend.c,v $ Revision 5.1 1993/03/14 16:51:44 etienne *** empty log message *** * Revision 5.0 93/02/06 09:23:42 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:43:25 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "var.h" #include "ship.h" static int last_amount; static int last_item; static Ship last_ship; static int last_x; static int last_y; void BindTend (x, y, args) int x, y; char * args; { char buffer [40]; int amount; int i; if (last_layout != SHIP_MODE) { Message ("No current ship !"); Bell (); return; } if (args == (char *) 0) { DoTend (x, y, curship, -1, 0); return; } if (sscanf (args, " ( %[^,] , %d )", buffer, & amount) == 2) i = CharToItem (buffer [0]); else if (sscanf (args, " ( %[^)] )", buffer) == 1) { i = CharToItem (buffer [0]); amount = 0; } else { Message ("Illegal binding, usage: Tend (item, #)"); Bell (); return; } if (i < 0) { Message (Fmt ("Unrecognized item in tend binding (%c)", buffer [0])); Bell (); return; } DoTend (x, y, curship, i, amount); } void RedoTend () { /* * I'm not sure about this. Same ship means other * commodity? */ if (last_layout == SHIP_MODE) { if (last_ship == curship) DoTend (last_x, last_y, curship, last_item, 0); else DoTend (last_x, last_y, curship, last_item, last_amount); } else { Message ("No current ship !"); Bell (); } } void Tend (x, y, ship) int x, y; Ship ship; { DoTend (x, y, ship, -1, 0); } void DoTend (x, y, ship, item, amount) int x, y; Ship ship; int item; int amount; { char itemchar; int atship, max; char * ans, * ships; Ship ptr; int at_ptr, max_ptr; int i; if (item == -1) { item = SelectItem (x, y, "Which item to tend ?"); if (item < 0) { Message ("Tend cancelled"); Bell (); return; } } SetAgain (RedoTend); last_ship = ship; last_item = item; last_amount = 0; last_x = x; last_y = y; itemchar = ItemChar (item); if (amount == 0) { ans = InputAtMessage (Fmt ("# of %s to transfer: ", ItemName (item)), 4, GS_NUMBER); if (ans == (char *) 0 || interrupt || * ans == '\0') { Message ("Tend cancelled"); Bell (); return; } } amount = atoi (ans); if (amount == 0) { Message ("That won't work !"); Bell (); return; } last_amount = amount; max = MaxShipCargo (ship, itemchar); atship = GiveShipQuant (ship, itemchar); if (amount < 0) { if (max == 0) { Message (Fmt ("%s #%d cannot hold %s !", ShipName (ship), sh_nr (ship), ItemName (item))); Bell (); return; } else if (max == atship) { Message (Fmt ("%s #%d cannot hold any more %ss !", ShipName (ship), sh_nr (ship), ItemName (item))); Bell (); return; } } else { if (atship == 0) { Message (Fmt ("no %s on %s #%d", ItemName (item), ShipName (ship), sh_nr (ship))); Bell (); return; } } ships = SelectShips (x, y, ST_TEND, "Tend which ships ?"); if (ships == (char *) 0) { Message ("Tend cancelled"); return; } UnmarkAllShips (); MarkShips (ships); if (command_state > BUFFER_STATE) { if (command_state < TEST_STATE) FeedCommand (Fmt ("tend %d %c %d %s", sh_nr (ship), itemchar, amount, ships), PRINT); for ALL_SHIPS (ptr) if (sh_marked (ptr)) { if ((amount > 0 && atship == 0) || (amount < 0 && atship == max)) break; at_ptr = GiveShipQuant (ptr, itemchar); max_ptr = MaxShipCargo (ptr, itemchar); if (max_ptr == 0) { Warning (Fmt ("%s #%d cannot hold %s", ShipName (ptr), sh_nr (ptr), ItemName (item))); continue; } if (amount > 0) { if (at_ptr == max_ptr) { Message (Fmt ( "%s #%d cannot hold any more %s", ShipName (ptr), sh_nr (ptr), ItemName (item))); continue; } i = amount; if (i > max_ptr - at_ptr) { i = max_ptr - at_ptr; Warning (Fmt ( "Only %d %s tended to %s #%d", i, ItemName (item), ShipName (ptr), sh_nr (ptr))); } if (i > atship) { Warning (Fmt ("Tender run out of %s", ItemName (item))); i = atship; } atship -= i; SetShipQuant (ptr, itemchar, at_ptr + i); } else { i = amount; if (i > at_ptr) i = at_ptr; if (max > atship + i) { Warning (Fmt ( "Tender can't hold any more %s", ItemName (item))); i = max - atship; } SetShipQuant (ptr, itemchar, at_ptr - i); } } SetShipQuant (ship, itemchar, atship); CensusShip (ship); return; } FeedEmpire (Fmt ("tend %d %c %d %s", sh_nr (ship), itemchar, amount, ships), PRINT); (void) WaitForPrompt (PRINT); Message (Fmt ("Dumping ships: %d/%s", sh_nr (ship), ships)); CheckShips (Fmt ("%d/%s", sh_nr (ship), ships)); Message ("Tend done"); } xemp5.1-beta/lib/ship/upgrade.c100444 12266 2116 5631 6023772143 14746 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/ship/RCS/upgrade.c,v 5.2 1995/09/08 07:44:20 jpo Exp $ $Date: 1995/09/08 07:44:20 $ $Author: jpo $ $Id: upgrade.c,v 5.2 1995/09/08 07:44:20 jpo Exp $ $Locker: $ $Log: upgrade.c,v $ Revision 5.2 1995/09/08 07:44:20 jpo const Revision 5.1 1993/03/14 16:51:46 etienne *** empty log message *** * Revision 5.0 93/02/06 09:23:42 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:43:25 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "var.h" #include "ship.h" #include "census.h" #include "nation.h" void RedoUpgrade () { Ship next; char nextfl; if (last_layout == SHIP_MODE) { next = sh_nxtsct (curship); UpgradeShip (Fmt ("%d", sh_nr (curship))); curship = next; CensusShip (curship); DrawSector (cursct); } else if (last_layout == FLEET_MODE) { nextfl = GiveNextFleetInSct (cursct, curfleet); UpgradeShip (FleetId ()); curfleet = nextfl; CensusFleet (nextfl); DrawSector (cursct); } else { Message ("No current ship/fleet selected"); Bell (); } } /* * There is no binding to upgrade. * This routine should only be called with owned ships */ void UpgradeShip (what) const char * what; { int points; int w_p_eff; Ship ptr, next; int n; char buffer [1024]; if (! s_owned (cursct) || s_des (cursct) != 'h' || s_eff (cursct) < 60) { Message ("Only upgrades in 60% harbors"); Bell (); return; } if (! Confirm (Fmt ("Upgrade %s", what), True)) { Message ("Upgrade cancelled"); return; } UnmarkAllShips (); MarkShips (what); SetAgain (RedoUpgrade); n = 0; ptr = shiplist; while (ptr != (Ship) 0) if (sh_marked (ptr)) { next = sh_next (ptr); w_p_eff = (shiptypes [sh_type (ptr)]. lcm / 2) + shiptypes [sh_type (ptr)]. hcm ; points = s_ava (cursct) * 100 / w_p_eff; if (points < 20) { Message (Fmt ( "Not enough available work (need %d)", 1 + (w_p_eff * 20) / 100)); Bell (); break; } if (sh_eff (ptr) < 60) { Warning (Fmt ("%s #%d not efficient enough", ShipName (ptr), sh_nr (ptr))); ptr = next; continue; } if (sh_tech (ptr) >= (int) n_tech (nation)) { Warning (Fmt ("%s #%d has already tech %d", ShipName (ptr), sh_nr (ptr), sh_tech (ptr))); ptr = next; continue; } if (n ++ == 0) buffer [0] = '\0'; else strcat (buffer, "/"); strcat (buffer, Fmt ("%d", sh_nr (ptr))); set_ava (cursct, (s_ava (cursct) * 100 - w_p_eff * 20) / 100); inc_sh_eff (ptr, -35); set_sh_tech (ptr, n_tech (nation)); ptr = next; } else ptr = sh_next (ptr); if (n == 0) { Message ("No ships upgraded"); Bell (); return; } FeedCommand (Fmt ("upgrade %s", buffer), PRINT); Census (); DrawSector (cursct); } xemp5.1-beta/lib/update/ 40755 12266 2116 0 6043206336 13370 5ustar jponexorxemp5.1-beta/lib/update/GNUdepend100644 12266 2116 20640 6015617335 15247 0ustar jponexorSRCS= census.c \ deliver.c \ distribute.c \ human.c \ land.c \ main.c \ mobility.c \ plane.c \ populace.c \ produce.c \ revolt.c \ sect.c \ ship.c OBJS= census.o \ deliver.o \ distribute.o \ human.o \ land.o \ main.o \ mobility.o \ plane.o \ populace.o \ produce.o \ revolt.o \ sect.o \ ship.o ### census.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/census.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h deliver.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h distribute.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h human.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h land.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h main.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nuke.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h mobility.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/land.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h plane.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/plane.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h populace.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/census.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h produce.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h sect.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h ship.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h xemp5.1-beta/lib/update/GNUmakefile100644 12266 2116 1004 6034224752 15534 0ustar jponexor# The following variables are configurable. #-----------------------------------# LOCALCFLAGS := LOCALIFLAGS := LOCALLFLAGS := LOCALSFLAGS := TOPDIR = ../.. LIB := ../libupdate.a LINTNAME := update #-----------------------------------# # Productions: # depend: create the dependencies # all: make the library # saber: load things for saber # tags: make tags include $(TOPDIR)/make/GenMakefile include $(DEPENDENCIES) include $(TOPDIR)/make/LibMakefile tags: ../tags ln -s ../tags TAGS: ../TAGS ln -s ../TAGS xemp5.1-beta/lib/update/census.c100444 12266 2116 21510 6023772454 15155 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/update/RCS/census.c,v 5.2 1995/09/08 07:44:51 jpo Exp $ $Date: 1995/09/08 07:44:51 $ $Author: jpo $ $Id: census.c,v 5.2 1995/09/08 07:44:51 jpo Exp $ $Locker: $ $Log: census.c,v $ Revision 5.2 1995/09/08 07:44:51 jpo reworked to show fractional stuff for reserach/tech also shows costs. * Revision 5.1 93/03/14 16:51:55 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:58 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:44:42 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "nation.h" #include "var.h" #include "census.h" #include "version.h" #define STORE 0 #define RESET 1 extern char * levelnames []; static void SaveSct (sct, mode) Sector sct; int mode; { static int eff; static char nds, des; static int foo; if (mode == STORE) { eff = s_eff (sct); nds = s_nds (sct); des = s_des (sct); foo = q_foo (sct); } else { set_eff (sct, eff); set_nds (sct, nds); set_des (sct, des); set_q_foo (sct, foo); } } #ifdef TERMC_VERSION #define ADDIT_MODE NORMAL #else #define ADDIT_MODE BOLD #endif void CensusProduce (sct, line) Sector sct; int line; { int work; int starved; double range; bool can_convert; register struct pchrstr * product; register u_char *vp; register u_int *ap; register u_char *endp; register int item; register char itemchar; register int n; char buffer [60]; int output, max; double intr; double p_e; double level_p_e; int resource; int unit_work; double depend; int worker_limit; int material_limit; int material_consume; double PopulaceSct2(); ClearLine (census_win, line); ClearLine (census_win, line + 1); ClearLine (census_win, line + 2); ClearLine (census_win, line + 3); if (s_off (sct)) { Print (census_win, 0, line ++, Fmt ("Stopped, will not produce"), ADDIT_MODE); Print (census_win, 0, line ++, Fmt ("or gain efficiency"), ADDIT_MODE); return; } if (s_des (sct) == ')') { range = 2.0 * TechFact ((int) n_tech (nation), 8.0); range = (range * s_eff (sct) / 100.0); Print (census_win, 0, line ++, Fmt ("Can see %.2f sectors far", range), ADDIT_MODE); } else if (s_des (sct) == 'f') { range = TechFact ((int) n_tech (nation), q_gun (sct) > 7 ? 7.0 : (double) q_gun (sct)); if (range > 7.0) range = 7.0; Print (census_win, 0, line ++, Fmt ("Will shoot %.2f sects far", range), ADDIT_MODE); } else if (s_des (sct) == '\\' || s_des (sct) == 's' || s_des (sct) == '.') return; SaveSct (sct, STORE); if(chainsaw_version) { work = roundavg((etu_per_update * PopulaceSct2(sct,etu_per_update,&line)) / 100.0); } else { work = roundavg (etu_per_update * PopulaceSct (sct) / 100.0); } if (s_eff (sct) < 100 || s_nds (sct) != s_des (sct)) { can_convert = s_des (sct) != s_nds (sct); n = BuildEff (sct, work/2); work -= n; if (can_convert) Print (census_win, 0, line ++, Fmt ("Will be a %d%% '%c'", s_eff (sct), s_des (sct)), ADDIT_MODE); else Print (census_win, 0, line ++, Fmt ("Will be %d%%", s_eff (sct)), ADDIT_MODE); } if (q_foo (sct) < 1 + etu_per_update * eatrate * (s_civ (sct) + s_mil (sct) + q_uw (sct))) work -= GrowFood(sct, work, etu_per_update); starved = FeedSctPeople(sct, etu_per_update, False); if (starved > 0) Print (census_win, 0, line ++, Fmt ("%d will starve (no food)", starved), ADDIT_MODE); if (s_des (sct) == 'e' && s_eff (sct) > 60) { if (s_occ (sct) == '*') Print (census_win, 0, line, "No enlistm. in occ. scts", ADDIT_MODE); else if (starved == 0) Print (census_win, 0, line, Fmt ("Will enlist %d mils", UpdEnlist (sct, etu_per_update, False)), ADDIT_MODE); else Print (census_win, 0, line, "Will enlist some military", ADDIT_MODE); } else if (s_des (sct) == 'b' && s_eff (sct) > 60) { intr = bankint * etu_per_update * q_bar (sct); if (intr != 0.0) Print (census_win, 0, line ++, Fmt ("Will collect $%.2f", intr), ADDIT_MODE); } product = ProdChr (s_des (sct)); if (product == (struct pchrstr *) 0 || product-> p_vtype == 0) { SaveSct (sct, RESET); return; } if (s_eff (sct) < 60) { Print (census_win, 0, line, "Not effic. enough (<60)", ADDIT_MODE); SaveSct (sct, RESET); return; } if (starved > 0) { SaveSct (sct, RESET); return; } item = product->p_type; itemchar = ItemChar (item); if (GiveQuant (sct, itemchar) >= max_comm) { SaveSct (sct, RESET); Print (census_win, 0, line, Fmt ("Backlog of %s", ItemName (item)), ADDIT_MODE); SaveSct (sct, RESET); return; } material_limit = materials_cost (product, sct, & unit_work); /* * calculate production efficiency. */ p_e = s_eff (sct) / 100.0; if (product->p_nrndx != 0) { unit_work ++; resource = GiveProdResource (sct, product-> p_nrndx); p_e = (resource * p_e) / 100.0; if (product->p_nrdep > 0) { /* XXX this looks way wrong */ depend = (resource * 100.0) / product->p_nrdep; if (p_e > depend) p_e = depend; } } /* * determine number that can be made with * the available workforce */ material_consume = material_limit; worker_limit = roundavg (work * p_e / unit_work); if (material_consume > worker_limit) material_consume = worker_limit; level_p_e = 1.0; if (product->p_nlndx >= 0) { level_p_e = (int) GiveNatLevel (product->p_nlndx) - product->p_nlmin; if (level_p_e < 0.0) { Print (census_win, 0, line, Fmt ("%s lvl < %d)", levelnames [product-> p_nlndx], product-> p_nlmin), ADDIT_MODE); SaveSct (sct, RESET); return; } level_p_e = level_p_e / (level_p_e + product->p_nllag); } /* * Adjust produced amount by commodity production ratio */ output = roundavg (product->p_effic * 0.01 * material_consume); max = roundavg (product->p_effic * 0.01 * worker_limit); if (max > max_comm) max = max_comm; if (output > max_comm) output = max_comm; if (item == 0) { if (product->p_nlndx >= 0) Print (census_win, 0, line ++, Fmt ("%-4s:%.2f %-7.7s max %.2f", Fmt ("%.0f%%", 100.0 * level_p_e), output * level_p_e, product -> p_sname, max * level_p_e), ADDIT_MODE); else Print (census_win, 0, line ++, Fmt ("%-4s:%-3d %-7.7s max %d", Fmt ("%.0f%%", 100.0 * level_p_e), roundavg(output * level_p_e), product-> p_sname, roundavg(max * level_p_e)), ADDIT_MODE); } else Print (census_win, 0, line ++, Fmt ("%-4s: %-3d %-7.7s max %d", Fmt ("%.0f%%", 100.0 * level_p_e), roundavg(output * level_p_e), product-> p_sname, roundavg(max * level_p_e)), ADDIT_MODE); /* * Reset produced amount by commodity production ratio */ strcpy (buffer, "uses: "); ap = product->p_vamt; endp = product->p_vtype + product->p_nv; for (vp = product->p_vtype; vp < endp; vp++, ap++) { itemchar = ItemChar (*vp); strcat (buffer, Fmt ("%3d %c ", *ap * material_consume, itemchar)); } if (product-> p_nv != 0 && output > 0) Print (census_win, 0, line++, buffer, ADDIT_MODE); if (product -> p_cost) Print (census_win, 0, line++, Fmt ("Cost: $%d", (int) (material_consume * product -> p_cost)), ADDIT_MODE); SaveSct (sct, RESET); } void CensusPlanProduce (win, y, des, civ_eff, civ_work, sct) WinInfo win; int y; char des; int civ_eff, civ_work; Sector sct; { int work; int effb; struct pchrstr * product; int item; char itemchar; register int n; char buffer [60]; int output, max; double intr; double p_e; double level_p_e; int resource; int unit_work; double depend; int worker_limit; int material_limit; int material_consume; work = roundavg (etu_per_update * civ_eff / 100.0); effb = (int) work / 2; if (effb > 100) effb = 100; PrintN (win, 0, y, Fmt ("%d civs build %d eff.", civ_eff, effb)); work = roundavg (etu_per_update * civ_work / 100.0); product = ProdChr (des); if (product == (struct pchrstr *) 0 || product-> p_vtype == 0) return; item = product->p_type; itemchar = ItemChar (item); (void) materials_cost (product, sct, & unit_work); p_e = 1.0; if (product->p_nrndx != 0) { unit_work ++; resource = GiveProdResource (sct, product-> p_nrndx); p_e = (resource * p_e) / 100.0; } worker_limit = roundavg (work * p_e / unit_work); max = (int) ((product->p_effic * 0.01 * worker_limit + 0.5)); if (max > max_comm) max = max_comm; PrintN (win, 0, y + 1, Fmt ("%d civs: %d %-7.7s", civ_work, max, product-> p_sname)); } xemp5.1-beta/lib/update/deliver.c100444 12266 2116 4716 6023772454 15300 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/update/RCS/deliver.c,v 5.1 1993/03/14 16:51:58 etienne Exp $ $Date: 1993/03/14 16:51:58 $ $Author: etienne $ $Id: deliver.c,v 5.1 1993/03/14 16:51:58 etienne Exp $ $Locker: $ $Log: deliver.c,v $ Revision 5.1 1993/03/14 16:51:58 etienne *** empty log message *** * Revision 5.0 93/02/06 09:23:58 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:44:42 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" void UpdDeliver (from, item, strings) Sector from; int item; Strings strings; { Sector to; char itemchar; char dir; int amt_scr, cutoff, amt_moved, amt_dst; int packing; double mcost; int mobility; int n; /* * Calculate amount to move */ itemchar = ItemChar (item); dir = GetDelDir (from, itemchar); if (dir == '\0' || dir == '.') return; amt_scr = GiveQuant (from, itemchar); cutoff = GetCutoff (from, itemchar); amt_moved = amt_scr - cutoff; if (amt_moved <= 0) return; /* * make sure delivery looks ok. Check where its going, * where its coming from, and see if there is more than * the threshold amount */ to = MoveInDirection (from, dir, S_EXIST); if (to == (Sector) 0 || ! s_owned (to)) { AddString (strings, Fmt ("%s delivery walkout at %s", ItemName (item), CrdStr (from))); return; } packing = SectorPacking (s_des (from)); mobility = s_mob (from) / 2; mcost = MoveCost (s_des (to), s_eff (to)) * ItemWeight (item, packing); if (mobility < (int) (mcost * amt_moved)) { amt_moved = (int) (mobility / mcost); if (amt_moved <= 0) return; } amt_dst = GiveQuant (to, itemchar); if (amt_moved + amt_dst > 9990) { /* delivery backlog */ if ((amt_moved = 9990 - amt_dst) <= 0) return; } /* * XXX: ???, didn't understand this part of the code */ /* * if (putvar(vtype, amt_moved + amt_dst, (char *)to, EF_SECTOR) < 0) * { * "No room to deliver commodities * wu(0, from->sct_own, fmt("no room for %s in %s\n", * ip->i_name, ownxy(to))); * return; * } */ /* * XXX: Xemp doesn't handle plague (yet) */ n = s_mob (from) - (int) (mcost * amt_moved); if (n < 0) n = 0; set_mob (from, n); /* adjust quantities */ SetQuant (from, itemchar, GiveQuant (from, itemchar) - amt_moved); SetQuant (to, itemchar, GiveQuant (to, itemchar) + amt_moved); } xemp5.1-beta/lib/update/distribute.c100444 12266 2116 6502 6023772454 16017 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/update/RCS/distribute.c,v 5.2 1995/09/08 07:45:29 jpo Exp $ $Date: 1995/09/08 07:45:29 $ $Author: jpo $ $Id: distribute.c,v 5.2 1995/09/08 07:45:29 jpo Exp $ $Locker: $ $Log: distribute.c,v $ Revision 5.2 1995/09/08 07:45:29 jpo touch ups * Revision 5.1 93/03/14 16:51:59 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:23:58 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:44:42 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "var.h" #include "version.h" void UpdDistribute (from, strings, what) Sector from; Strings strings; int what; { double pathcost; Sector ware; int amt; int thresh; int amt_ware ; int amt_from; int packing; double imcost; double excost; int wh_packing; int diff; int item; char itemchar; if ((land_units && (s_dxc (from) == s_xcd (from) && s_dyc (from) == s_ycd (from))) || (!land_units && (s_pat (from) == (char *) 0 || * s_pat (from) == '_'))) return; if (land_units) { ware = World ( s_dxc (from) , s_dyc (from) , S_DESIG); pathcost = RealPathCost (from, BestTmpDistPath (from, ware)); } else { ware = FollowPath (from, s_pat (from)); pathcost = RealPathCost (from, s_pat (from)); } if (pathcost < 0.0 || ware == (Sector) 0 || ! s_owned (ware)) { AddString (strings, Fmt ("Bad dist path in %s", CrdStr (from))); return; } wh_packing = SectorPacking (s_des (ware)); packing = SectorPacking (s_des (from)); for (item = 1; item < V_MAX; item ++) { if ((item == V_CIVIL) || (item == V_MILIT)) continue; itemchar = ItemChar (item); thresh = GetThreshold (from, itemchar); if (thresh == 0) continue; /* * calculate costs for importing and exporting. * the div 2.0 is because delivering straight through * ware the dist sect is cheaper than stopping at each * sector along the way (processor-timewise) */ excost = (pathcost * ItemWeight (item, packing)) / 2.0; imcost = (pathcost * ItemWeight (item, wh_packing)) / 4.0; amt_from = GiveQuant (from, itemchar); amt_ware = GiveQuant (ware, itemchar); diff = amt_from - thresh; if (diff < 0 && (what == DBOTH || what == DIMPORT)) { /* * ware-> from (import) */ if (s_mob (ware) <= 0) continue; amt = - diff; if (amt > amt_ware) amt = amt_ware; if (s_mob (ware) < (int) (imcost * amt)) amt = (int) (s_mob (ware) / imcost); if (amt + amt_from > 9999) amt = 9999 - amt_from; if (amt == 0) continue; SetQuant (from, itemchar, amt_from + amt); SetQuant (ware, itemchar, amt_ware - amt); set_mob (ware, s_mob (ware) - (int) (imcost * amt)); } else { if (diff > 0 && (what == DBOTH || what == DEXPORT)) { /* * from-> ware (export) */ if (s_mob (from) <= 0) continue; amt = diff; if (amt_from < amt) /* should be impossible */ { amt = amt_from; if (amt_from == 0) continue; } if (s_mob (from) < excost * amt) amt = (int) (s_mob (from) / excost); SetQuant (from, itemchar, amt_from - amt); SetQuant (ware, itemchar, amt_ware + amt); set_mob (from, s_mob (from) - (int) (excost * amt)); } } } } xemp5.1-beta/lib/update/human.c100444 12266 2116 11627 6023772454 14775 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/update/RCS/human.c,v 5.2 1995/09/08 07:45:45 jpo Exp $ $Date: 1995/09/08 07:45:45 $ $Author: jpo $ $Id: human.c,v 5.2 1995/09/08 07:45:45 jpo Exp $ $Locker: $ $Log: human.c,v $ Revision 5.2 1995/09/08 07:45:45 jpo touch up * Revision 5.1 93/03/14 16:52:01 etienne * added RES_POP * * Revision 5.0 93/02/06 09:23:58 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:44:42 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "var.h" #include "ship.h" #include "land.h" #include "nation.h" #include "version.h" /* * From empire */ int chance(d) double d; { double roll; roll = (random() & 0x7fff); if (d >= roll/32768.0) return 1; return 0; } int roundavg(val) double val; { int flr; flr = (int) val; if (val < 0) flr -= chance(flr - val); else flr += chance(val - flr); return flr; } /* * returns the number who starved, if any. */ int FeedSctPeople (sct, etus, upd) Sector sct; int etus; bool upd; { double food_eaten; double people_left; int starved; food_eaten = etus * eatrate * (s_civ (sct) + s_mil (sct) + q_uw (sct)); starved = 0; if (food_eaten > q_foo (sct)) { people_left = (q_foo (sct) + 0.01) / (food_eaten + 0.01); starved = s_mil (sct) + s_civ (sct) + q_uw (sct); /* only want to starve off at most 1/2 the populace. */ if (people_left < 0.5) people_left = 0.5; if (upd) { set_civ (sct, (int) s_civ (sct) * people_left); set_mil (sct, (int) s_mil (sct) * people_left); set_q_uw (sct, (int) q_uw (sct) * people_left); set_q_foo (sct, 0); starved -= s_civ (sct) + s_mil (sct) + q_uw (sct); } else starved = (1 - people_left) * starved; } else { if (upd) set_q_foo (sct, q_foo (sct) - roundavg (food_eaten)); } return starved; } int FeedShipPeople (ship, etus, upd) Ship ship; int etus; bool upd; { double food_eaten; double people_left; int starved; /* mta Sun Jan 6 19:24:29 EET 1991 * no food on blitz games, see how it works */ if (EMPOption(NOFOOD)) return 0; food_eaten = etus * eatrate * (sh_civ (ship) + sh_mil (ship) + sh_uw (ship)); starved = 0; if (food_eaten > sh_foo (ship)) { people_left = (sh_foo (ship) + 0.01) / (food_eaten + 0.01); starved = sh_mil (ship) + sh_civ (ship) + sh_uw (ship); /* only want to starve off at most 1/2 the populace. */ if (people_left < 0.5) people_left = 0.5; if (upd) { set_sh_civ (ship, (int) sh_civ (ship) * people_left); set_sh_mil (ship, (int) sh_mil (ship) * people_left); set_sh_uw (ship, (int) sh_uw (ship) * people_left); set_sh_foo (ship, 0); } starved -= sh_civ (ship) + sh_mil (ship) + sh_uw (ship); } else { if (upd) set_sh_foo (ship, sh_foo (ship) - roundavg (food_eaten)); } return starved; } int FeedLandPeople (land, etus, upd) Land land; int etus; bool upd; { return 0; } int GrowPeople(sct, etus, upd, strings) Sector sct; int etus; bool upd; Strings strings; { int newciv; int newuw; int new_birth; int new_food; newciv = 0; newuw = 0; /* if (EMPOption(RES_POP)) max_civ_uw = CalcMaxPop (); */ if(upd && s_civ(sct) >= max_civ_uw) { AddString(strings, Fmt("Civilians in %s at %d will not grow.", CrdStr(sct), s_civ(sct))); } if(upd && q_uw(sct) >= max_civ_uw) { AddString(strings, Fmt("Slaves in %s at %d will not grow.", CrdStr(sct), q_uw(sct))); } if (s_civ (sct) < max_civ_uw) { new_birth = roundavg (obrate * (double) (etus * s_civ (sct))); new_food = (int) (0.5 + q_foo (sct) / (2.0 * babyeat)); newciv = new_birth; if (newciv > new_food) newciv = new_food; if (upd) set_civ (sct, s_civ (sct) + newciv); } if (q_uw (sct) < max_civ_uw) { new_birth = roundavg (uwbrate * (double) (etus * q_uw (sct))); new_food = (int) (0.5 + q_foo (sct) / (2.0 * babyeat)); newuw = new_birth; if (newuw > new_food) newuw = new_food; if (upd) set_q_uw (sct, q_uw (sct) + newuw); } if (upd) { if (s_civ (sct) > max_civ_uw) { AddString(strings, Fmt("Over Civilian Population by %d in %s.", (s_civ(sct) - max_civ_uw), CrdStr(sct))); set_civ (sct, max_civ_uw); } if (q_uw (sct) > max_civ_uw) { AddString(strings, Fmt("Over Slave Population by %d in %s.", (q_uw(sct) - max_civ_uw), CrdStr(sct))); set_q_uw (sct, max_civ_uw); } if (newciv || newuw) set_q_foo (sct, q_foo (sct) - roundavg((newciv + newuw) * babyeat)); } return newciv + newuw; } int CalcMaxPop () { float research; int maxpop; research = n_research (nation); maxpop = (((50.0+research)/(200.0+research))*600.0) + 400; return maxpop; } /* * XXX: Xemp doesn't handle plague (yet) * * --- infect_people * --- plague_people */ xemp5.1-beta/lib/update/land.c100444 12266 2116 5513 6023772454 14560 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/update/RCS/land.c,v 1.2 1995/09/08 07:46:00 jpo Exp $ $Date: 1995/09/08 07:46:00 $ $Author: jpo $ $Id: land.c,v 1.2 1995/09/08 07:46:00 jpo Exp $ $Locker: $ $Log: land.c,v $ Revision 1.2 1995/09/08 07:46:00 jpo touch up * Revision 1.1 93/03/14 16:52:07 etienne * Initial revision * */ #include "type.h" #include "main.h" #include "var.h" #include "land.h" #include "sector.h" #include "nation.h" extern double upd_land_eff; extern double upd_land_main; extern double upd_landmilcost; bool UpdLandRepair(land, etus) register Land land; int etus; { Sector sct; register int delta; int wf; int left; int avail; int w_p_eff; int mult; mult = 1; if (n_tech (nation) < ld_tech (land) * 0.85) mult = 2; upd_land_main += mult * etus * dmin (0.0, money_land * landtypes [ld_type (land)]. cos); if (ld_eff (land) == 100) return True; sct = LandSector (land); left = 100 - ld_eff (land); wf = 0; if (s_des (sct) == '!' || s_des (sct) == 'f') { if (! s_owned (sct)) return True; avail = wf + s_ava (sct) * 100; } else { if (! s_owned (sct)) return True; avail = s_ava (sct) * 33; } w_p_eff = 20 + (landtypes [ld_type (land)]. lcm + 2 * landtypes [ld_type (land)]. hcm); delta = roundavg ((double) avail / w_p_eff); if (delta <= 0) return True; if (delta > land_eff_gain) delta = land_eff_gain; if (delta > left) delta = left; wf -= delta * w_p_eff; if (wf < 0) { avail = (s_owned (sct) ? s_ava (sct) * 100 : 0 + wf) / 100; if (avail < 0) avail = 0; if (s_owned (sct)) set_ava (sct, avail); } upd_land_eff -= mult * landtypes [ld_type (land)]. cos * delta / 100.0; inc_ld_eff (land, delta); return True; } static void UpdLand (land, landno, etus, strings) register Land land; int landno; int etus; Strings strings; { Sector sct; int max_food; struct pchrstr *product; int n; (void) UpdLandRepair (land, etus); if (ld_eff (land) < 10) { AddString (strings, Fmt ("Lost %s #%d (eff < 20)", LandName (land), landno)); DeleteLand (land); return; } upd_landmilcost += (landtypes [ld_type (land)] .mil * 100 / ld_eff (land)) * etus * money_mil; if ((n = FeedLandPeople (land, etus, True)) > 0) AddString (strings, Fmt ("%d starved on %s #%d", n, LandName (land), landno)); max_food = MaxLandCargo (land, 'f'); if (ld_foo (land) > max_food) set_ld_foo (land, max_food); /* * XXX: Xemp doesn't handle plagues */ } void UpdProdLand (realm, etus, strings) char * realm; int etus; Strings strings; { Land ptr; int sx, sy, ex, ey; (void) ConvRealmToCoord (realm, & sx, & sy, & ex, & ey); for ALL_LANDS (ptr) { if (! ld_owned (ptr) || ld_xcd (ptr) < sx || ld_xcd (ptr) > ex || ld_ycd (ptr) < sy || ld_ycd (ptr) > ey) continue; UpdLand(ptr, ld_nr (ptr), etus, strings); } } xemp5.1-beta/lib/update/main.c100444 12266 2116 23703 6023772454 14607 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/update/RCS/main.c,v 5.2 1995/09/08 07:46:09 jpo Exp $ $Date: 1995/09/08 07:46:09 $ $Author: jpo $ $Id: main.c,v 5.2 1995/09/08 07:46:09 jpo Exp $ $Locker: $ $Log: main.c,v $ Revision 5.2 1995/09/08 07:46:09 jpo touch ups * Revision 5.1 93/03/14 16:52:25 etienne * * * Revision 5.0 93/02/06 09:23:58 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:44:42 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "nation.h" #include "var.h" #include "ship.h" #include "sector.h" #include "plane.h" #include "nuke.h" #include "land.h" #include "version.h" long upd_buildeff; long upd_totalciv; long upd_totalmil; long upd_totaluw; long upd_enlist; long upd_prodcost [V_MAX + 4]; double upd_ship_eff; double upd_ship_main; double upd_ship_crew; double upd_plane_eff; double upd_plane_main; double upd_milcost; double upd_land_eff; double upd_land_main; double upd_landmilcost; double upd_bankint; double upd_civ_taxes; extern char * levelnames []; static Sector **s_world; static Plane s_plane; static Ship s_ship; static Land l_land; static void relink_ships (slist, olist) Ship *slist, olist; { Ship sp; for (;olist != (Ship)0; olist = sh_nxtsct(olist)) { for ALL_SHIPS (sp) { if (sh_nr(sp) == sh_nr(olist)) break; } if (sp) { *slist = sp; slist = &(*slist) -> nextsct; } } } static void relink_lands (llist, olist) Land *llist, olist; { Land lp; for (;olist != (Land)0; olist = ld_nxtsct(olist)) { for ALL_LANDS (lp) { if (ld_nr(lp) == ld_nr(olist)) break; } if (lp) { *llist = lp; llist = &(*llist) -> nextsct; } } } static void relink_plane (plist, olist) Plane *plist, olist; { Plane pp; for (; olist != (Plane)0; olist = pl_nxtsct(olist)) { for ALL_PLANES (pp) { if (pl_nr(pp) == pl_nr(olist)) break; } if (pp) { *plist = pp; plist = &(*plist)->nxtsct; } } } static void relink_nuke (nlist, olist) Stockp *nlist, olist; { Stockp sp; for (; olist; olist = sp_next(olist)) { *nlist = (Stockp) doalloc (sizeof *sp); **nlist = *olist; nlist = &(*nlist) -> next; *nlist = NULL; } } static void push_world () { Sector sct, osct; Plane plane, *pp; Ship ship, *sp; Land land, *lp; int ix, iy; /* push planes */ pp = &s_plane; for ALL_PLANES(plane) { *pp = (Plane) doalloc(sizeof *plane); **pp = *plane; (*pp) -> next = (Plane)0; pp = &(*pp) -> next; } /* now swap */ plane = first_plane; first_plane = s_plane; s_plane = plane; /* push ships */ sp = &s_ship; for ALL_SHIPS(ship) { *sp = (Ship) doalloc (sizeof *ship); **sp = *ship; (*sp)->next = (Ship)0; sp = &(*sp) -> next; } ship = shiplist; shiplist = s_ship; s_ship = ship; if (land_units) { /* push lands */ lp = &l_land; for ALL_LANDS(land) { *lp = (Land) doalloc (sizeof *land); **lp = *land; (*lp)->next = (Land)0; lp = &(*lp) -> next; } land = landlist; landlist = l_land; l_land = land; } /* push world */ s_world = world; world = MallocWorld (); for (ix = 0; ix < MAX_X; ix++) for (iy = 0; iy < MAX_Y/2; iy++) { if ((osct = s_world[ix][iy]) == (Sector) 0) continue; sct = (Sector) doalloc ((unsigned) sizeof (struct s_sector1)); world [ix][iy] = sct; *sct = *osct; if (osct -> sct2 != (Sct2)0) { sct->sct2 = (Sct2) doalloc ((unsigned) sizeof (struct s_sector2)); *sct -> sct2 = *osct -> sct2; } if (osct -> sct2 && osct -> sct2 -> sct3 != (Sct3)0) { sct -> sct2 -> sct3 = (Sct3) doalloc ((unsigned) sizeof (struct s_sector3)); *sct -> sct2 -> sct3 = *osct -> sct2 -> sct3; } if (osct -> fship) relink_ships(&sct -> fship, osct -> fship); if (osct -> fland && land_units) relink_lands(&sct -> fland, osct -> fland); if (osct -> fplane) relink_plane (&sct -> fplane, osct -> fplane); if (osct -> stock) relink_nuke(&sct -> stock, osct -> stock); } } static void pop_world () { Sector sct; Plane pp, p2; Ship sp, s2; Land lp, l2; int ix, iy; /* pop planes */ for (pp = first_plane; (p2 = pp) != (Plane)0;) { pp = pl_next(pp); free ((char *)p2); } first_plane = s_plane; s_plane = (Plane)0; /* pop ships */ for (sp = shiplist; (s2 = sp) != (Ship)0;) { sp = sh_next(sp); free ((char *)s2); } shiplist = s_ship; s_ship = (Ship)0; if (land_units) { /* pop lands */ for (lp = landlist; (l2 = lp) != (Land)0;) { lp = ld_next(lp); free ((char *)l2); } landlist = l_land; l_land = (Land)0; } /* pop sectors */ for (ix = 0; ix < MAX_X; ix++) { for (iy = 0; iy < MAX_Y/2; iy++) { if ((sct = world[ix][iy]) == (Sector)0) continue; if (sct -> sct2) { if (sct -> sct2 -> sct3) free ((char *)sct -> sct2 -> sct3); free ((char *)sct -> sct2); } if (sct -> stock) { Stockp sp, sp2; for (sp = sct -> stock; sp; sp = sp2) { sp2 = sp_next(sp); free ((char *)sp); } } free ((char *)sct); } free ((char *)world[ix]); } free ((char *)world); world = s_world; s_world = 0; } void SimulateUpdate (realm) char * realm; { Strings strings; double update_delta; register int i; static bool world_pushed = False; long upd_enlcost = 3; upd_buildeff = upd_enlist = upd_totalciv = upd_totalmil = upd_totaluw = 0L; upd_ship_eff = upd_ship_main = upd_plane_eff = upd_plane_main = upd_land_eff = upd_land_main = upd_landmilcost = upd_ship_crew = upd_bankint = upd_milcost = upd_civ_taxes = (double) 0; for (i = 1; i < V_MAX + 4; i ++) upd_prodcost [i] = 0L; if (! world_pushed) { push_world (); world_pushed = True; } strings = InitStrings (); Message ("updating ships"); UpdProdShip (realm, etu_per_update, strings); Message ("updating planes"); UpdProdPlane (realm, etu_per_update, strings); if (land_units) { Message ("updating lands"); UpdProdLand (realm, etu_per_update, strings); } Message ("updating sectors"); UpdProdSect (realm, etu_per_update, strings); /* prod_nat(etu); */ /* age_levels(etu); */ Message ("updating mobility"); UpdMobShip (realm, etu_per_update); UpdMobSect (realm, etu_per_update); UpdMobPlane (realm, etu_per_update); if (land_units) UpdMobLand (realm, etu_per_update); Message ("Update simulated"); AddString (strings, ""); AddString (strings, "Financial report"); AddString (strings, "----------------"); AddString (strings, Fmt ("Income: %-18.18s $%.2lf", Fmt ("%ld civilians:", upd_totalciv), upd_civ_taxes)); if (EMPOption(MERC)) { AddString (strings, Fmt (" %-18.18s $%.2lf", Fmt ("%ld unc. workers:", upd_totaluw), etu_per_update * upd_totaluw * money_uw)); } AddString (strings, Fmt (" bank interest: $%.2lf", upd_bankint)); AddString (strings, ""); AddString (strings, Fmt ("Costs: %-18.18s $%.2lf", Fmt ("%ld mils:", upd_totalmil), - upd_totalmil * etu_per_update * money_mil)); AddString (strings, Fmt (" national reserve: $%.2lf", - n_mil_res (nation) * etu_per_update * money_res)); AddString (strings, Fmt (" building efficiency: $%d", - upd_buildeff)); AddString (strings, ""); AddString (strings, Fmt (" ship build efficiency: $%.2lf", - upd_ship_eff)); AddString (strings, Fmt (" ship maintainance: $%.2lf", - upd_ship_main)); AddString (strings, Fmt (" ship crew: $%.2lf", - upd_ship_crew)); AddString (strings, Fmt (" Total navy delta: $%.2lf", - upd_ship_eff - upd_ship_main - upd_ship_crew)); AddString (strings, ""); AddString (strings, Fmt (" plane build efficiency: $%.2lf", - upd_plane_eff)); AddString (strings, Fmt (" plane maintainance: $%.2lf", - upd_plane_main)); AddString (strings, Fmt (" plane crew: $%.2lf", - upd_milcost)); AddString (strings, Fmt (" Total airforce delta: $%.2lf", - upd_plane_eff - upd_plane_main - upd_milcost)); if (land_units) { AddString (strings, ""); AddString (strings, Fmt (" land build efficiency: $%.2lf", - upd_land_eff)); AddString (strings, Fmt (" land maintainance: $%.2lf", - upd_land_main)); AddString (strings, Fmt (" land crew: $%.2lf", - upd_landmilcost)); AddString (strings, Fmt (" Total landforce delta: $%.2lf", - upd_land_eff - upd_land_main - upd_landmilcost)); } AddString (strings, ""); AddString (strings, "Production costs:"); for (i = 1; i < V_MAX; i ++) if (upd_prodcost [i] > 0L) AddString (strings, Fmt (" %-16.16s $%ld", ItemName (i), upd_prodcost [i])); for (i = 0; i <=3 ; i++) if (upd_prodcost [V_MAX + i] > 0L) AddString (strings, Fmt (" %-16.16s $%ld", levelnames [i], upd_prodcost [V_MAX + i])); if (upd_enlist != 0L) AddString (strings, Fmt (" enlistment: $%ld", - upd_enlist * upd_enlcost)); AddString (strings, ""); update_delta = upd_civ_taxes + upd_bankint + etu_per_update * upd_totalmil * money_mil + etu_per_update * n_mil_res (nation) * money_res + upd_buildeff + upd_ship_eff + upd_ship_main + upd_ship_crew + upd_plane_eff + upd_plane_main + upd_enlist * upd_enlcost + upd_milcost; if (EMPOption (MERC)) update_delta += etu_per_update * upd_totaluw * money_uw; if (land_units) update_delta += upd_land_eff + upd_land_main + upd_landmilcost; for (i = 1; i <= V_MAX + 3; i ++) if (upd_prodcost [i] > 0L) update_delta -= (double) upd_prodcost [i]; AddString (strings, Fmt ("Total money delta: $%.2f", update_delta)); #ifdef TERMC_VERSION ShowStringsInPager (strings, "Simulated update"); #else /* TERMC_VERSION */ InitWMPager (strings, "Simulated update"); #endif /* TERMC_VERSION */ if (Confirm ("Reset world", True)) { world_pushed = False; pop_world (); } } xemp5.1-beta/lib/update/mobility.c100444 12266 2116 5427 6023772454 15476 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/update/RCS/mobility.c,v 5.2 1995/09/08 07:46:39 jpo Exp $ $Date: 1995/09/08 07:46:39 $ $Author: jpo $ $Id: mobility.c,v 5.2 1995/09/08 07:46:39 jpo Exp $ $Locker: $ $Log: mobility.c,v $ Revision 5.2 1995/09/08 07:46:39 jpo touch ups * Revision 5.1 93/03/14 16:52:29 etienne * * * Revision 5.0 93/02/06 09:23:58 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:44:42 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "var.h" #include "ship.h" #include "plane.h" #include "land.h" #include "version.h" void UpdMobSect (realm, etus) char * realm; int etus; { register int x; register int y; Sector sct; int value; int sx, sy, ex, ey; (void) ConvRealmToCoord (realm, & sx, & sy, & ex, & ey); for (x = - MAX_X / 2; x < MAX_X / 2; x ++) for (y = - MAX_Y / 2 + (x % 2); y < MAX_Y / 2; y += 2) { if (x < sx || x > ex || y < sy || y > ey) continue; sct = World (x, y, S_EXIST); if (sct == (Sector) 0 || ! s_owned (sct)) continue; value = s_mob (sct) + sect_mob_gain; if (value > sect_mob_max) value = sect_mob_max; set_mob (sct, value); } } void UpdMobShip (realm, etus) char * realm; int etus; { Ship ptr; int value; int sx, sy, ex, ey; (void) ConvRealmToCoord (realm, & sx, & sy, & ex, & ey); for (ptr = shiplist; ptr != (Ship) 0; ptr = sh_next (ptr)) { if (! sh_owned (ptr)) continue; if (sh_xcd (ptr) < sx || sh_xcd (ptr) > ex || sh_ycd (ptr) < sy || sh_ycd (ptr) > ey) continue; value = sh_mob (ptr) + ship_mob_gain; if (value > ship_mob_max) value = ship_mob_max; /* TODO add fuel */ set_sh_mob (ptr, value); } } void UpdMobLand (realm, etus) char * realm; int etus; { Land ptr; int value; int sx, sy, ex, ey; (void) ConvRealmToCoord (realm, & sx, & sy, & ex, & ey); for (ptr = landlist; ptr != (Land) 0; ptr = ld_next (ptr)) { if (! ld_owned (ptr)) continue; if (ld_xcd (ptr) < sx || ld_xcd (ptr) > ex || ld_ycd (ptr) < sy || ld_ycd (ptr) > ey) continue; value = ld_mob (ptr) + land_mob_gain; if (value > land_mob_max) value = land_mob_max; /* TODO add fuel */ set_ld_mob (ptr, value); } } void UpdMobPlane (realm, etus) char * realm; int etus; { Plane ptr; int value; int sx, sy, ex, ey; (void) ConvRealmToCoord (realm, & sx, & sy, & ex, & ey); for ALL_PLANES (ptr) { if (! pl_owned (ptr)) continue; if (pl_xcd (ptr) < sx || pl_xcd (ptr) > ex || pl_ycd (ptr) < sy || pl_ycd (ptr) > ey) continue; value = pl_mob (ptr) + plane_mob_gain; if (value > plane_mob_max) value = plane_mob_max; set_pl_mob (ptr, value); } } xemp5.1-beta/lib/update/plane.c100444 12266 2116 5024 6023772455 14737 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/update/RCS/plane.c,v 5.2 1995/09/08 07:46:44 jpo Exp $ $Date: 1995/09/08 07:46:44 $ $Author: jpo $ $Id: plane.c,v 5.2 1995/09/08 07:46:44 jpo Exp $ $Locker: $ $Log: plane.c,v $ Revision 5.2 1995/09/08 07:46:44 jpo touch ups * Revision 5.1 93/03/14 16:52:31 etienne * * * Revision 5.0 93/02/06 09:23:58 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:44:42 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "plane.h" #include "nation.h" #include "ship.h" #include "version.h" extern double upd_plane_eff; extern double upd_plane_main; extern double upd_milcost; /* ARGSUSED */ int UpdProdPlane(realm, etus, strings) char * realm; int etus; Strings strings; { Plane ptr; Sector sct; int delta; int mult; int avail; int w_p_eff; int left; int used; int sx, sy, ex, ey; (void) ConvRealmToCoord (realm, & sx, & sy, & ex, & ey); for ALL_PLANES (ptr) { if (! pl_owned (ptr) || pl_xcd (ptr) < sx || pl_xcd (ptr) > ex || pl_ycd (ptr) < sy || pl_ycd (ptr) > ey) continue; /* * Some checks deleted: * * --- eff < 10 * --- aircraft carrier still exists? */ upd_milcost += etus * (planetypes [pl_type (ptr)]. crew * money_mil * 5); mult = 1; if (n_tech (nation) < 0.85 * pl_tech (ptr)) mult = 2; upd_plane_main += (double) mult * etus * dmin (-1.0, planetypes [pl_type (ptr)]. cost * money_plane); if (pl_launc (ptr)) continue; left = 100 - pl_eff (ptr); if (left <= 0) continue; sct = PlaneSector (ptr); if (sct == (Sector) 0 || ! s_owned (sct)) if (!(EMPOption (CARRIER_WORK) && s_des (sct) == '.')) continue; avail = s_ava (sct) * 100; if (EMPOption (CARRIER_WORK) && pl_shipnr (ptr) >= 0) avail += (etus * sh_mil (NrToShip (pl_shipnr (ptr)))/2); w_p_eff = 20 + planetypes [pl_type (ptr)]. lcm + 2 * planetypes [pl_type (ptr)]. hcm; delta = roundavg((double) avail / w_p_eff); if (delta <= 0) continue; if (delta > plane_eff_gain) delta = plane_eff_gain; if (delta > left) delta = left; used = delta * w_p_eff; avail = (s_ava (sct) * 100 - used) / 100; if (avail < 0) avail = 0; set_ava (sct, avail); if (s_des (sct) != '*') delta /= 3; upd_plane_eff -= (double) mult * delta * planetypes [pl_type (ptr)]. cost / 100.0; set_pl_eff (ptr, pl_eff (ptr) + delta); } } xemp5.1-beta/lib/update/populace.c100444 12266 2116 5135 6030213427 15436 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/update/RCS/populace.c,v 5.3 1995/09/21 07:41:11 jpo Exp $ $Date: 1995/09/21 07:41:11 $ $Author: jpo $ $Id: populace.c,v 5.3 1995/09/21 07:41:11 jpo Exp $ $Locker: $ $Log: populace.c,v $ Revision 5.3 1995/09/21 07:41:11 jpo Calc max pop stuff Revision 5.2 1995/09/08 07:46:54 jpo touch ups * Revision 5.1 93/03/14 16:52:32 etienne * * * Revision 5.0 93/02/06 09:23:58 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:44:42 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "nation.h" #include "var.h" #include "census.h" #include "version.h" double PopulaceSct (sct) Sector sct; { return (s_civ (sct) * s_wor (sct)) / 100.0 + (s_mil (sct) * 2 / 5.0) + q_uw (sct); } void Starvation (sct) Sector sct; { set_wor (sct, 0); } #ifdef TERMC_VERSION #define ADDIT_MODE NORMAL #else #define ADDIT_MODE BOLD #endif double PopulaceSct2 (sct, etus,line) Sector sct; int etus; int *line; { int newciv; int newuw; int new_birth; int new_food; int maxpop; newciv = 0; newuw = 0; /* if (EMPOption(RES_POP)) max_civ_uw = CalcMaxPop (); else max_civ_uw = 999; */ maxpop = max_civ_uw; if (SectorPacking(s_des(sct)) == UPKG) maxpop = (maxpop * (9.0 * s_eff(sct))/100 + 1); if (s_civ(sct) >= maxpop) { Print (census_win, 0, (*line) ++, Fmt ("WARNING: Civs at %d", s_civ(sct)), ADDIT_MODE); } if (q_uw(sct) >= maxpop) { Print (census_win, 0, (*line) ++, Fmt ("WARNING: Slaves at %d", q_uw(sct)), ADDIT_MODE); } if (s_civ (sct) < maxpop) { new_birth = roundavg (obrate * (double) (etus * s_civ (sct))); new_food = (int) (0.5 + q_foo (sct) / (2.0 * babyeat)); newciv = new_birth; if (newciv > new_food) newciv = new_food; if((s_civ(sct) + newciv) > maxpop) { Print (census_win, 0, (*line) ++, Fmt ("WARNING: Civs %d", (s_civ(sct) + newciv)), ADDIT_MODE); newciv = maxpop - s_civ (sct); } } if (q_uw (sct) < maxpop) { new_birth = roundavg (uwbrate * (double) (etus * q_uw (sct))); new_food = (int) (0.5 + q_foo (sct) / (2.0 * babyeat)); newuw = new_birth; if (newuw > new_food) newuw = new_food; if((q_uw(sct) + newuw) > maxpop) { Print (census_win, 0, (*line) ++, Fmt ("WARNING: UWs %d", (q_uw(sct) + newuw)), ADDIT_MODE); newuw = maxpop - q_uw (sct); } } return ((newciv+s_civ(sct)) * s_wor (sct)) / 100.0 + (s_mil (sct) * 2 / 5.0) + (newuw+q_uw(sct)); } xemp5.1-beta/lib/update/produce.c100444 12266 2116 12126 6023772455 15322 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/update/RCS/produce.c,v 5.1 1993/03/14 16:52:34 etienne Exp $ $Date: 1993/03/14 16:52:34 $ $Author: etienne $ $Id: produce.c,v 5.1 1993/03/14 16:52:34 etienne Exp $ $Locker: $ $Log: produce.c,v $ Revision 5.1 1993/03/14 16:52:34 etienne * Revision 5.0 93/02/06 09:23:58 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:44:42 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "var.h" #include "sector.h" #include "nation.h" extern long upd_prodcost []; char *levelnames[] = { "Technology", "Research", "Education", "Happiness" }; int UpdProduce(sct, work, strings) Sector sct; int work; Strings strings; { extern struct pchrstr pchr []; register struct pchrstr *product; int item; char itemchar; double p_e; double level_p_e; int resource; int output; int actual; int unit_work; double depend; int worker_limit; int material_limit; int material_consume; int val; int quant; product = ProdChr (s_des (sct)); if (product == (struct pchrstr *) 0 || product == & pchr[0]) return 0; item = product->p_type; itemchar = ItemChar (item); if (GiveQuant (sct, itemchar) >= max_comm) { if (item != V_FOOD) AddString (strings, Fmt("%s production backlog in %s", product->p_name, CrdStr (sct))); return 0; } if ((material_limit = materials_cost (product, sct, & unit_work)) <= 0) return 0; /* * calculate production efficiency. */ p_e = s_eff (sct) / 100.0; if (product->p_nrndx != 0) { unit_work++; resource = GiveProdResource (sct, product-> p_nrndx); p_e = (resource * p_e) / 100.0; if (product->p_nrdep > 0) { /* XXX this looks way wrong */ depend = (resource * 100.0) / product->p_nrdep; if (p_e > depend) p_e = depend; } } /* * determine number that can be made with * the available workforce */ material_consume = material_limit; worker_limit = roundavg (work * p_e / unit_work); if (material_consume > worker_limit) material_consume = worker_limit; if (material_consume == 0) return 0; level_p_e = 1.0; if (product->p_nlndx >= 0) { level_p_e = (int) GiveNatLevel (product->p_nlndx) - product->p_nlmin; if (level_p_e < 0.0) { AddString (strings, Fmt("%s level too low to produce in %s (need %d)", levelnames[product->p_nlndx], CrdStr (sct), product->p_nlmin)); return 0; } level_p_e = level_p_e / (level_p_e + product->p_nllag); } /* * Adjust produced amount by commodity production ratio */ output = roundavg (product->p_effic * 0.01 * material_consume); if (item == 0) { /* * levels[sp->sct_own][product->p_level] += output * level_p_e; */ AddString (strings, Fmt("%s (%.2f) produced in %s", product->p_name, output * level_p_e, CrdStr (sct))); } else { if ((actual = roundavg(level_p_e * output)) <= 0) return 0; SetQuant (sct, itemchar, GiveQuant (sct, itemchar) + actual); quant = GiveQuant (sct, itemchar); if (quant > max_comm) { material_consume = roundavg((max_comm - quant + actual) * material_consume / actual); SetQuant (sct, itemchar, max_comm); if (item != V_FOOD) AddString (strings, Fmt("%s production backlog in %s", product->p_name, CrdStr (sct))); } } /* * Reset produced amount by commodity production ratio */ materials_charge (product, sct, material_consume); if (product->p_nrdep != 0) { /* * lower natural resource in sector depending on * amount produced */ val = resource - roundavg(product->p_nrdep * material_consume / 100.0); if (val < 0) val = 0; SetProdResource (sct, product-> p_nrndx, val); } if (item == 0) upd_prodcost [V_MAX + product-> p_level] += (long) product-> p_cost * material_consume; else upd_prodcost [item] += (long) product-> p_cost * material_consume; return (int) (unit_work * material_consume / p_e); } int materials_cost(product, sct, costp) struct pchrstr *product; Sector sct; int *costp; { register u_char *vp; register u_int *ap; register int count; register int cost; register int n; register u_char *endp; count = 9999; cost = 0; ap = product-> p_vamt; endp = product-> p_vtype + product-> p_nv; for (vp = product->p_vtype; vp < endp; vp ++, ap ++) { n = GiveQuant (sct, ItemChar (* vp)) / * ap; if (n < count) count = n; cost += *ap; } * costp = cost; return count; } int materials_charge(product, sct, count) struct pchrstr *product; Sector sct; register int count; { register u_char *vp; register u_int *ap; register u_char *endp; register char itemchar; register int n; int quant; ap = product->p_vamt; endp = product->p_vtype + product->p_nv; for (vp = product->p_vtype; vp < endp; vp++, ap++) { itemchar = ItemChar (*vp); quant = GiveQuant (sct, itemchar); if ((n = (quant - *ap * count)) < 0) { Panic ( "materials_charge", "update/produce", Fmt ("%d > %d %s", n, quant, ItemName (*vp))); n = 0; } SetQuant (sct, itemchar, n); } } xemp5.1-beta/lib/update/revolt.c100444 12266 2116 1152 6023772455 15151 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/update/RCS/revolt.c,v 5.1 1993/03/14 16:52:36 etienne Exp $ $Date: 1993/03/14 16:52:36 $ $Author: etienne $ $Id: revolt.c,v 5.1 1993/03/14 16:52:36 etienne Exp $ $Locker: $ $Log: revolt.c,v $ Revision 5.1 1993/03/14 16:52:36 etienne * Revision 5.0 93/02/06 09:23:58 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:44:42 greyhelm * Added RCS headers - Karl Hagen * */ /* * Nothing in this file needed for a xemp update * simulation */ xemp5.1-beta/lib/update/sect.c100444 12266 2116 15423 6023772455 14622 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/update/RCS/sect.c,v 5.2 1995/09/08 07:47:04 jpo Exp $ $Date: 1995/09/08 07:47:04 $ $Author: jpo $ $Id: sect.c,v 5.2 1995/09/08 07:47:04 jpo Exp $ $Locker: $ $Log: sect.c,v $ Revision 5.2 1995/09/08 07:47:04 jpo bits and pieces * Revision 5.1 93/03/14 16:52:37 etienne * * * Revision 5.0 93/02/06 09:23:58 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:44:42 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "var.h" #include "sector.h" #include "nation.h" #include "version.h" extern long upd_enlist; extern long upd_totalciv; extern long upd_totalmil; extern long upd_totaluw; extern double upd_bankint; extern long upd_buildeff; extern double upd_civ_taxes; static void UpdDoDeliver(sct, strings) Sector sct; Strings strings; { register int i; if (s_mob (sct) <= 0) return; for (i = 1; i <= V_MAX; i++) { if ((i == V_CIVIL) || (i == V_MILIT)) continue; UpdDeliver (sct, i, strings); if (s_mob (sct) <= 0) break; } } static void UpdateSector (sct, etus, strings) Sector sct; int etus; Strings strings; { extern double eatrate; extern double bankint; int people; int work, wor; int n; int starved; if (s_civ (sct) == 0 && s_mil (sct) == 0 && s_land (sct) == 0) { AddString (strings, Fmt ("You lost sector %d (no population)", CrdStr (sct))); set_owner (sct, 0); /* changed from unknow to deity ET */ return; } if (!(land_units && EMPOption (BUDGET))) { work = roundavg((etus * PopulaceSct (sct)) / 100.0); if (s_eff (sct) < 100 || s_nds (sct) != s_des (sct)) { n = BuildEff (sct, work/2); upd_buildeff -= (long) n; work -= n; } } people = s_civ (sct) + s_mil (sct) + q_uw (sct); if (s_des (sct) != 's') { if (land_units) { if (s_occ (sct) != '*') upd_totalciv += s_civ (sct); upd_totalmil += s_mil (sct); upd_totaluw += q_uw (sct); } if (!EMPOption (NOFOOD)) { if (q_foo (sct) < 1 + etus * people * eatrate) work -= GrowFood(sct, work, etus); starved = FeedSctPeople(sct, etus, True); if (starved > 0) AddString (strings, Fmt ("%d starved in %s.\n", starved, CrdStr (sct))); } if (starved > 0) Starvation(sct); else { wor = s_wor (sct); if (wor < 100) wor += 8 + (random () % 15); if (wor > 100) wor = 100; set_wor (sct, wor); (void) GrowPeople (sct, etus, True, strings); } if (land_units && EMPOption (BUDGET)) { work = roundavg((etus * PopulaceSct (sct)) / 100.0); if (s_eff (sct) < 100 || s_nds (sct) != s_des (sct)) { n = BuildEff (sct, work/2); upd_buildeff -= (long) n; work -= n; } } } /* * XXX: Xemp doesn't handle plague (yet) */ if (s_des (sct) == 'e' && s_eff (sct) > 60 && s_occ (sct) != '*') upd_enlist -= UpdEnlist (sct, etus, True); if (s_des (sct) == 'b' && s_eff (sct) > 60) upd_bankint += q_bar (sct) * etus * bankint; if (s_eff (sct) > 60) { /* * Xemp doesn't update money (bank & capital) */ if (ProdChr (s_des (sct)) != (struct pchrstr *) 0) work -= UpdProduce (sct, work, strings); } if (s_civ (sct) == 0 && s_mil (sct) == 0) { AddString (strings, Fmt ("You lost sector %d (no population)", CrdStr (sct))); set_owner (sct, 0); /* changed from unknow to deity ET */ return; } if (! land_units) { if (s_occ (sct) != '*') upd_totalciv += s_civ (sct); upd_totalmil += s_mil (sct); upd_totaluw += q_uw (sct); } set_ava (sct, work); } void UpdProdSect(realm, etus, strings) char * realm; int etus; Strings strings; { int x, y; Sector sct; extern int pops[]; int sx, sy, ex, ey; (void) ConvRealmToCoord (realm, & sx, & sy, & ex, & ey); /* * first produce everything, then do deliveries * and distributes */ for (y = sy; y <= ey; y ++) for (x = sx; x <= ex; x ++) { sct = World (x, y, S_EXIST); if (sct == (Sector) 0 || ! s_owned (sct)) continue; /* * XXX: Xemp doesn't handle guerrilla (yet) */ /* taxes based on sector efficiency -- krf 19/02/92 */ upd_civ_taxes += s_civ(sct)*s_eff(sct)/100.0*etus*money_civ; UpdateSector (sct, etus, strings); } for (y = sy; y <= ey; y ++) for (x = sx; x <= ex; x ++) { sct = World (x, y, S_EXIST); if (sct == (Sector) 0 || ! s_owned (sct)) continue; UpdDoDeliver (sct, strings); if (!(land_units && EMPOption(BUDGET))) UpdDistribute (sct, strings, DBOTH); } if (land_units && EMPOption (BUDGET)) { for (y = sy; y <= ey; y ++) for (x = sx; x <= ex; x ++) { sct = World (x, y, S_EXIST); if (sct == (Sector) 0 || ! s_owned (sct)) continue; UpdDistribute (sct, strings, DEXPORT); } for (y = sy; y <= ey; y ++) for (x = sx; x <= ex; x ++) { sct = World (x, y, S_EXIST); if (sct == (Sector) 0 || ! s_owned (sct)) continue; UpdDistribute (sct, strings, DIMPORT); } } } int BuildEff (sct, work) Sector sct; int work; { register int work_cost; int total_cost; int n; work_cost = 0; total_cost = 0; if (s_off (sct)) return; if (s_des (sct) != s_nds (sct)) { /* * Tear down existing sector. * Easier to destroy than to build. */ work_cost = (s_eff (sct) + 3) / 4; if (work_cost > work) work_cost = work; n = s_eff (sct) - work_cost * 4; if (n <= 0) { n = 0; set_des (sct, s_nds (sct)); } set_eff (sct, n); work -= work_cost; total_cost += work_cost; } if (s_des (sct) == s_nds (sct)) { work_cost = 100 - s_eff (sct); if (work_cost > work) work_cost = work; set_eff (sct, s_eff (sct) + work_cost); total_cost += work_cost; } return total_cost; } int GrowFood(sct, work, etus) Sector sct; int work; int etus; { double food_fertil; double food_workers; double food; int work_used; /* I'm being very nice and commenting out this so players * won't whine about starvation if (sp->sct_fertil == 0 || work == 0) return 0; */ food_workers = work * fcrate; food_fertil = etus * s_fer (sct) * fgrate; food = food_fertil; if (food > food_workers) food = food_workers; /* * be nice; grow minimum one food unit. * This makes life simpler for the player. */ set_q_foo (sct, q_foo (sct) + food); if (q_foo (sct) == 0) set_q_foo (sct, 1); if (q_foo (sct) > max_comm) set_q_foo (sct, max_comm); work_used = (int) food / fcrate; return work_used; } int UpdEnlist (sct, etus, upd) Sector sct; int etus; bool upd; { int maxmil; int enlisted; enlisted = 0; maxmil = (s_civ (sct) / 2) - s_mil (sct); if (maxmil > 0) { enlisted = (etus * (10 + s_mil (sct)) * 0.05); if (enlisted > maxmil) enlisted = maxmil; if (upd) { set_civ (sct, s_civ (sct) - enlisted); set_mil (sct, s_mil (sct) + enlisted); } } return enlisted; } xemp5.1-beta/lib/update/ship.c100444 12266 2116 12027 6023772455 14624 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/update/RCS/ship.c,v 5.2 1995/09/08 07:47:36 jpo Exp $ $Date: 1995/09/08 07:47:36 $ $Author: jpo $ $Id: ship.c,v 5.2 1995/09/08 07:47:36 jpo Exp $ $Locker: $ $Log: ship.c,v $ Revision 5.2 1995/09/08 07:47:36 jpo more land stuff * Revision 5.1 93/03/14 16:52:39 etienne * * * Revision 5.0 93/02/06 09:23:58 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:44:42 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "var.h" #include "ship.h" #include "sector.h" #include "nation.h" #include "version.h" extern double upd_ship_eff; extern double upd_ship_main; extern double upd_ship_crew; extern long upd_totalmil; extern long upd_totalciv; extern long upd_totaluw; extern int ship_eff_gain; bool UpdShipRepair(ship, etus) register Ship ship; int etus; { Sector sct; register int delta; int wf; int left; int avail; int w_p_eff; int mult; int nlcm, nhcm; mult = 1; if (n_tech (nation) < sh_tech (ship) * 0.85) mult = 2; upd_ship_main += mult * etus * dmin (0.0,money_ship * shiptypes [sh_type (ship)]. cos); if (sh_eff (ship) == 100) return True; sct = ShipSector (ship); if (land_units && s_des (sct) == '.' && sh_eff (ship) > 79) return True; /* * Testing for some-one elses harbor: below */ if (land_units && s_des (sct) == '.') left = 80 - sh_eff (ship); /* can only go to 80% eff at sea */ else left = 100 - sh_eff (ship); wf = 0; /* only military can work on a military boat */ if (ShipMaxGuns (ship) > 0) wf = etus * sh_mil (ship) / 2; else wf = etus * (sh_civ (ship) / 2 + sh_mil (ship) / 5); if (s_des (sct) != 'h') { wf /= 3; avail = wf; } else { if (! s_owned (sct) && (s_des (sct) == 'h' && !EMPOption (ALLYHARBORWORK))) return True; avail = wf + s_ava (sct) * 100; } w_p_eff = 20 + (shiptypes [sh_type (ship)]. lcm + 2 * shiptypes [sh_type (ship)]. hcm); delta = roundavg ((double) avail / w_p_eff); if (delta <= 0) return True; if (delta > ship_eff_gain) delta = ship_eff_gain; if (delta > left) delta = left; if (land_units && s_des (sct) != '.') { nlcm = shiptypes [sh_type (ship)]. lcm * left / 100; nhcm = shiptypes [sh_type (ship)]. hcm * left / 100; if (nlcm > q_lcm (sct)) { delta = q_lcm (sct) * 100 / left; nhcm = shiptypes [sh_type (ship)]. hcm * left / 100; nlcm = q_lcm (sct); } if (nhcm > q_hcm (sct)) { delta = q_hcm (sct) * 100 / left; nhcm = shiptypes [sh_type (ship)]. lcm * left / 100; nhcm = q_hcm (sct); } set_q_lcm (sct, nlcm); set_q_hcm (sct, nhcm); } wf -= delta * w_p_eff; if (wf < 0) { avail = (s_owned (sct) ? s_ava (sct) * 100 : 0 + wf) / 100; if (avail < 0) avail = 0; if (s_owned (sct)) set_ava (sct, avail); } upd_ship_eff -= mult * shiptypes [sh_type (ship)]. cos * delta / 100.0; inc_sh_eff (ship, delta); return True; } static void UpdShip (ship, shipno, etus, strings) register Ship ship; int shipno; int etus; Strings strings; { Sector sct; int oil_gained; int max_oil; int max_food; struct pchrstr *product; int resource; int n; (void) UpdShipRepair (ship, etus); if (sh_eff (ship) < 20) { AddString (strings, Fmt ("Lost %s #%d (eff < 20)", ShipName (ship), shipno)); DeleteShip (ship); return; } if (ShipHas (ship, M_OIL)) { /* * take care of oil production */ sct = ShipSector (ship); oil_gained = (int) ((sh_civ (ship) * etus / 10000.0) * s_oil (sct)); inc_sh_oil (ship, oil_gained); max_oil = MaxShipCargo (ship, 'o'); if (sh_oil (ship) > max_oil) { /* empire doesn't do this */ AddString (strings, Fmt ("production backlog on %s #%d", ShipName (ship), shipno)); set_sh_oil (ship, max_oil); } product = ProdChr ('o'); /* JAKKES */ if (product->p_nrdep != 0 && oil_gained > 0) { resource = GiveProdResource (sct, product->p_nrndx); SetProdResource (sct, product->p_nrndx, resource - roundavg(oil_gained * product->p_nrdep / 100.0)); } } else if (ShipHas (ship, M_FISH)) { sct = ShipSector (ship); inc_sh_foo (ship, ((sh_civ (ship) * etus) / 10000.0) * s_fer (sct)); } upd_ship_crew += (long) sh_mil (ship) * etus * money_mil; upd_totalciv += (long) sh_civ (ship); upd_totaluw += (long) sh_uw (ship); if ((n = FeedShipPeople (ship, etus, True)) > 0) AddString (strings, Fmt ("%d starved on %s #%d", n, ShipName (ship), shipno)); max_food = MaxShipCargo (ship, 'f'); if (sh_foo (ship) > max_food) set_sh_foo (ship, max_food); /* * XXX: Xemp doesn't handle plagues */ } void UpdProdShip (realm, etus, strings) char * realm; int etus; Strings strings; { Ship ptr; int sx, sy, ex, ey; (void) ConvRealmToCoord (realm, & sx, & sy, & ex, & ey); for ALL_SHIPS (ptr) { if (! sh_owned (ptr) || sh_xcd (ptr) < sx || sh_xcd (ptr) > ex || sh_ycd (ptr) < sy || sh_ycd (ptr) > ey) continue; UpdShip(ptr, sh_nr (ptr), etus, strings); } } xemp5.1-beta/lib/util/ 40755 12266 2116 0 6043206336 13063 5ustar jponexorxemp5.1-beta/lib/util/GNUdepend100644 12266 2116 14731 6015617335 14746 0ustar jponexorSRCS= f_cargo.c \ f_goto.c \ ferry.c \ mail.c \ natinfo.c \ plan.c \ power.c \ production.c \ prog.c \ relat.c \ report.c \ strstr.c \ ve.c OBJS= f_cargo.o \ f_goto.o \ ferry.o \ mail.o \ natinfo.o \ plan.o \ power.o \ production.o \ prog.o \ relat.o \ report.o \ strstr.o \ ve.o ### f_cargo.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ferry.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h f_goto.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ferry.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h ferry.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/census.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/func.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ferry.h mail.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xrc.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/func.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h plan.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/census.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/dlist.h power.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h production.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/production.h prog.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ ../parse/parser.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xrc.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/func.h relat.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/version.h report.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h ve.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h xemp5.1-beta/lib/util/GNUmakefile100644 12266 2116 1012 6034224767 15234 0ustar jponexor# The following variables are configurable. #-----------------------------------# LOCALCFLAGS := LOCALIFLAGS := -I../parse LOCALLFLAGS := LOCALSFLAGS := TOPDIR = ../.. LIB := ../libutil.a LINTNAME := util #-----------------------------------# # Productions: # depend: create the dependencies # all: make the library # saber: load things for saber # tags: make tags include $(TOPDIR)/make/GenMakefile include $(DEPENDENCIES) include $(TOPDIR)/make/LibMakefile tags: ../tags ln -s ../tags TAGS: ../TAGS ln -s ../TAGS xemp5.1-beta/lib/util/f_cargo.c100444 12266 2116 45170 6032510601 14740 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/util/RCS/f_cargo.c,v 5.3 1995/09/28 12:13:53 jpo Exp $ $Date: 1995/09/28 12:13:53 $ $Author: jpo $ $Id: f_cargo.c,v 5.3 1995/09/28 12:13:53 jpo Exp $ $Locker: $ $Log: f_cargo.c,v $ Revision 5.3 1995/09/28 12:13:53 jpo Change load syntax - just in case. Revision 5.2 1995/09/08 07:48:13 jpo touch up * Revision 5.1 93/03/14 16:52:53 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:24:11 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:45:54 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "ferry.h" #include "sector.h" #include "ship.h" static void PrintCargoLine (win, ferry, item) WinInfo win; Ferry ferry; int item; { bool used; used = IS_A_TO_B (ferry-> dir [item]) | IS_B_TO_A (ferry-> dir [item]); PrintN (win, 1, #ifdef X_VERSION LINE_ITEMS + item, #else LINE_ITEMS + item - 1, #endif Fmt ("%-16s %-6s %-5s %-6s %-6s %-6s", ItemName (item), IS_A_TO_B (ferry-> dir [item]) ? "A to B" : IS_B_TO_A (ferry-> dir [item]) ? "B to A" : " --", used ? Fmt ("%d", ferry-> thr_ship [item]) : "", used ? Fmt ("%c:%d", IS_A_TO_B (ferry-> dir [item]) ? 'A' : 'B', ferry-> thr_sct [item]) : "", used ? Fmt ("%d", ferry-> max_ship [item]) : "", used ? Fmt ("%c:%s", IS_A_TO_B (ferry-> dir [item]) ? 'A' : 'B', IMPORT (ferry-> dir [item]) ? "Yes" : "No") : "")); FlushWindow (win); Refresh (); } int EditCargo (win, ferry, init) WinInfo win; Ferry ferry; bool init; { int item; char * ptr, * ans; int x, y; int i; char ch; bool first_pass; bool err; bool cont; ClearWindow (win); #ifdef TERMC_VERSION PrintN (win, 1, 0, Centered (Fmt ( "-=[ Ferry Utility : Cargo ferry #%d ]=-", ferry-> id), F_MAX_X)); Refresh (); #else /* X_VERSION */ PrintB (win, 1, 1, Centered ("-=[ Ferry Utility : Cargo ]=-", F_MAX_X)); PrintB (win, 1, 3, Fmt ("Ferry# %d", ferry-> id)); #endif /* VERSION */ #ifdef lint x = y = 0; #endif /* * Initialize ferry */ if (init) { ferry-> goto_a = False; for (i = 1; i < V_MAX; i ++) { ferry-> dir [i] = 0; SET_NOMOVE (ferry-> dir [i]); if (i == V_CIVIL) { SET_IMPORT (ferry-> dir [i]); ferry-> thr_ship [i] = 1; ferry-> thr_sct [i] = 200; ferry-> max_ship [i] = 9999; } else if (i == V_FOOD) { SET_IMPORT (ferry-> dir [i]); ferry-> thr_ship [i] = 50; ferry-> max_ship [i] = 200; ferry-> thr_sct [i] = 200; } else { SET_NOIMP (ferry-> dir [i]); ferry-> thr_ship [i] = 0; ferry-> thr_sct [i] = 0; ferry-> max_ship [i] = 9999; } } } y = 0; first_pass = True; err = False; cont = True; do { item = y - LINE_ITEMS; #ifdef TERMC_VERSION item ++; #endif /* * Fleet / Ship */ if (first_pass || y == LINE_FLEET) { ClearLine (win, LINE_FLEET); if (y == LINE_FLEET || init) { if (! SelectFlSh (win, LINE_FLEET, ferry)) { Bell (); if (init) { Message ("Add Ferry cancelled"); DeleteFerry (ferry-> id); return RET_DONE; } } } if ((ptr = CheckFlSh (ferry)) != (char *) 0) { if (first_pass && ! init) err = True; else Bell (); } PrintN (win, 1, LINE_FLEET, Fmt ("%-10s %-40s", ferry-> fleet == '\0' ? Fmt ("Ship %d", ferry-> shipnr) : Fmt ("Fleet %c", ferry-> fleet), ptr == (char *) 0 ? Fmt ("[now @ %s]", FerryPos (ferry)) : Fmt ("[Warning: %s !]", ptr))); } /* * Sector A */ if (first_pass || y == LINE_SECTA) { ClearLine (win, LINE_SECTA); if (y == LINE_SECTA || init) { if (! SelSector (win, LINE_SECTA, "Sector A", True, & (ferry-> ax), & (ferry-> ay))) { Bell (); if (init) { Message ("Add Ferry cancelled"); DeleteFerry (ferry-> id); return RET_DONE; } } } ptr = CheckSector (ferry-> ax, ferry-> ay, TASK_CARGO); if (ptr == (char *) 0 && s_pat (World (ferry-> ax, ferry-> ay, S_EXIST)) == (char *) 0) ptr = "No warehouse"; if (ptr != (char *) 0) if (first_pass && ! init) err = True; else Bell (); PrintN (win, 1, LINE_SECTA, Fmt ("%-20s %-35s", Fmt ("Sector A: %d,%d", ferry-> ax, ferry-> ay), ptr == (char *) 0 ? "[OK]" : Fmt ("[Warning: %s !]", ptr))); } /* * Sector B */ if (first_pass || y == LINE_SECTB) { ClearLine (win, LINE_SECTB); if (y == LINE_SECTB || init) { if (! SelSector (win, LINE_SECTB, "Sector B", False, & (ferry-> bx), & (ferry-> by))) { Bell (); if (init) { Message ("Add Ferry cancelled"); DeleteFerry (ferry-> id); return RET_DONE; } } } ptr = CheckSector (ferry-> bx, ferry-> by, TASK_CARGO); if (ptr == (char *) 0 && s_pat (World (ferry-> bx, ferry-> by, S_EXIST)) == (char *) 0) ptr = "No warehouse"; if (ptr != (char *) 0) if (first_pass && ! init) err = True; else Bell (); PrintN (win, 1, LINE_SECTB, Fmt ("%-20s %-35s", Fmt ("Sector B: %d,%d", ferry-> bx, ferry-> by), ptr == (char *) 0 ? "[OK]" : Fmt ("[Warning: %s !]", ptr))); } /* * Mobility warehouse */ if (first_pass || y == LINE_WAREH) { PrintN (win, 0, LINE_WAREH, Fmt ("%-32s", "")); if (y == LINE_WAREH || init) { ans = GetQuest (win, LINE_WAREH, "Threshold mob warehouse [50]: ", 3, GS_PNUMBER); if (ans == (char *) 0 || interrupt) { interrupt = False; Bell (); if (init) { Message ("Add Ferry cancelled"); DeleteFerry (ferry-> id); return RET_DONE; } } if (ans == (char *) 0); else if (* ans == '\0') ferry-> waremob = 50; else { ferry-> waremob = atoi (ans); if (ferry-> waremob > MAX_SECTMOB) { Bell (); ferry-> waremob = MAX_SECTMOB; } } } PrintN (win, 1, LINE_WAREH, Fmt ("Threshold mob warehouse: %-10d", ferry-> waremob)); } if (y == LINE_ACTIVE || first_pass) { if (! init && y == LINE_ACTIVE) ferry-> active = ! ferry-> active; ClearLine (win, LINE_ACTIVE); PrintN (win, 1, LINE_ACTIVE, Fmt ("Ferry is %sactive", ferry-> active ? "": "NOT ")); } if (y == LINE_DIR || first_pass) { if (! init && y == LINE_DIR) ferry-> goto_a = ! ferry-> goto_a; PrintN (win, 1, LINE_DIR, Fmt ("Now moving to %c", ferry-> goto_a ? 'A' : 'B')); } if (item >= 1 && item < V_MAX && ! first_pass) { if (x > 18 && x < 28) /* direction */ { if (IS_A_TO_B (ferry-> dir [item])) SET_B_TO_A (ferry-> dir [item]); else if (IS_B_TO_A (ferry-> dir [item])) SET_NOMOVE (ferry-> dir [item]); else SET_A_TO_B (ferry-> dir [item]); PrintCargoLine (win, ferry, item); } else if (IS_NOMOVE (ferry-> dir [item])) { Bell (); } else if (x > 33 && x < 38) { PrintN (win, 34, y, " "); ans = GetString (win, 34, y, 4, GS_PNUMBER); if (interrupt) interrupt = False; if (ans != (char *) 0 && * ans != '\0') ferry-> thr_ship [item] = atoi (ans); } else if (x > 39 && x < 46) /* threshold sct */ { PrintN (win, 42, y, " "); ans = GetString (win, 42, y, 4, GS_PNUMBER); if (interrupt) interrupt = False; if (ans != (char *) 0 && * ans != '\0') ferry-> thr_sct [item] = atoi (ans); } else if (x > 47 && x < 52) /* max ship quant */ { PrintN (win, 48, y, " "); ans = GetString (win, 48, y, 4, GS_PNUMBER); if (interrupt) interrupt = False; if (ans != (char *) 0 && * ans != '\0') ferry-> max_ship [item] = atoi (ans); } else if (x > 55 && x < 60) /* import */ { if (IMPORT (ferry-> dir [item])) SET_NOIMP (ferry-> dir [item]); else SET_IMPORT (ferry-> dir [item]); } PrintCargoLine (win, ferry, item); } /* XXX */ if (! first_pass && y == LINE_LOW) { if (FerButPressed (x, F_SX_DONE, 4)) return RET_DONE; else if (FerButPressed (x, F_SX_PREV, 4)) return RET_PREV; else if (FerButPressed (x, F_SX_RUN, 3)) { DoFerry (ferry-> id); return RET_DONE; } else if (FerButPressed (x, F_SX_NEXT, 4)) return RET_NEXT; else if (FerButPressed (x, F_SX_DELETE, 6)) if (Confirm ("Delete this ferry ?", True)) return RET_DELE; } if (first_pass) { if (err && ! init) Bell (); first_pass = False; PrintN (win, 36, LINE_HEADER -1, "Threshold"); PrintN (win, 1, LINE_HEADER, "Item Direction Ship Sector Max Import"); for (item = 1; item < V_MAX; item ++) PrintCargoLine (win, ferry, item); FerButton (win, F_SX_DONE, LINE_LOW, "Done"); FerButton (win, F_SX_PREV, LINE_LOW, "Prev"); FerButton (win, F_SX_RUN, LINE_LOW, "Run"); FerButton (win, F_SX_NEXT, LINE_LOW, "Next"); FerButton (win, F_SX_DELETE, LINE_LOW, "Delete"); if (init) init = False; } FlushWindow (win); Refresh (); #ifdef X_VERSION cont = SelButtonAtWin (win, & x, & y, (int *) 0); #else SelectButtonChar ((int *) 0, & ch, & x, & y, "DPNRP\033"); if (interrupt || ch != '\0') { if (interrupt) { interrupt = False; cont = False; } else { y = LINE_LOW; SetXAtButton (& x, ch); } } #endif } while (cont); return RET_DONE; } static void CargoLoad (ship, item, sct, ferry) Ship ship; int item; Sector sct; Ferry ferry; { char itemchar; char * ptr; int quant, in_sect, in_ship, imp_quant; int in_ware = 0; int max; char * path; Sector wareh = (Sector) 0; double move_cost, item_cost; int ware_mob; bool tomuch; int thresh, thr_mob; bool import; int flag; thresh = ferry-> thr_sct [item]; thr_mob = ferry-> waremob; import = IMPORT (ferry-> dir [item]); itemchar = ItemChar(item); flag = util_mode ? DONT_PRINT : PRINT; if (s_pat (sct) != (char *) 0) { wareh = World (s_dxc (sct), s_dyc (sct), S_EXIST); in_ware = GiveQuant (wareh, itemchar); if ((itemchar == 'c' && GiveQuant (wareh, 'm') == 0) || (itemchar == 'm' && GiveQuant (wareh, 'c') == 0)) in_ware--; ware_mob = s_mob (wareh); } in_ship = GiveShipQuant (ship, itemchar); in_sect = GiveQuant (sct, itemchar); max = MaxShipCargo (ship, itemchar); if (max > ferry-> max_ship [item]) max = ferry-> max_ship [item]; quant = max - in_ship; if (quant > (in_sect - thresh) && wareh != (Sector) 0 && in_ware > 0 && ware_mob > thr_mob && import) { /* move goods from warehouse to harbor */ imp_quant = quant - (in_sect - thresh); if (imp_quant > in_ware) imp_quant = in_ware; path = ReversePath (s_pat (sct)); move_cost = RealPathCost (wareh, path); item_cost = ItemWeight (item, WPKG); tomuch = False; if (((double) (ware_mob - thr_mob)) < imp_quant * move_cost * item_cost) { imp_quant = (int) (((double) (ware_mob - thr_mob)) / (move_cost * item_cost)); tomuch = True; } FeedEmpire (Fmt ("move %c %s %d %s", itemchar, CrdStr (wareh), imp_quant, path), flag); ptr = ReadEmpire (flag); if (sscanf (ptr, "<%d.%*d", & ware_mob) == 1) { (void) WaitForPrompt (flag); FeedEmpire ("h", flag); (void) WaitForPrompt (flag); ShowText (Fmt ( "Imported %s%d %s from warehouse @ %s", tomuch ? "(only) " : "", imp_quant, ItemName (item), CrdStr (wareh))); set_mob (wareh, ware_mob); SetQuant (wareh, itemchar, in_ware - imp_quant); SetQuant (sct, itemchar, in_sect + imp_quant); in_sect += imp_quant; } else { ShowText ( Fmt ( "Importing %d %s from %s (via \"%s\") failed !", imp_quant, ItemName (item), CrdStr (wareh), path)); (void) WaitForPrompt (flag); FeedEmpire ("h", flag); (void) WaitForPrompt (flag); } } if (quant > (in_sect - thresh)) quant = (in_sect - thresh); if (quant <= 0) return; if (emp3server == 2) FeedEmpire (Fmt ("load %c %d %d", itemchar, ship -> nr, quant), flag); else FeedEmpire (Fmt ("load %d %d %c", ship-> nr, quant, itemchar), flag); ShowText (Fmt ("%s #%d loaded %s%d %s in %s", ShipName (ship), ship-> nr, tomuch ? "(only) " : "", quant, ItemName (item), CrdStr (sct))); while (EmpireStatus () != E_COMMAND) { ptr = ReadEmpire (flag); if (EmpireStatus () == E_COMMAND && flag == PRINT) PrintAtEmpire (ptr); if (StrEQ (ptr, "No ships affected") || EmpireStatus () == E_QUESTION) { ShowText ("Something went wrong while loading ship !!"); (void) WaitForPrompt (flag); while (EmpireStatus () != E_COMMAND) { FeedEmpire ("aborted", flag); (void) WaitForPrompt (flag); } return; } } SetQuant (sct, itemchar, in_sect - quant); SetShipQuant (ship, itemchar, in_ship + quant); } static void CargoUnload (ship, item, sct, ferry) Ship ship; int item; Sector sct; Ferry ferry; { char * ptr; int quant; char itemchar; int in_sect, in_ship; bool tomuch; int flag; itemchar = ItemChar (item); flag = util_mode ? DONT_PRINT : PRINT; in_ship = GiveShipQuant (ship, itemchar); if (in_ship <= ferry-> thr_ship [item]) return; in_sect = GiveQuant (sct, itemchar); quant = in_ship - ferry-> thr_ship [item]; if (in_sect == MAX_TO_LOAD) ShowText (Fmt ( "%s #%d: unable to unload %s, sector %s already full", ShipName (ship), ship-> nr, ItemName (item), CrdStr (sct))); tomuch = False; if (quant + in_sect > MAX_TO_LOAD) { tomuch = True; quant = MAX_TO_LOAD - in_sect; } if (quant <= 0) return; if (emp3server == 2) FeedEmpire (Fmt ("unload %c %d %d", itemchar, ship-> nr, quant), flag); else FeedEmpire (Fmt ("unload %d %d %c", ship-> nr, quant, itemchar), flag); ShowText (Fmt ("%s #%d: unloaded %s%d %s in %s", ShipName (ship), ship-> nr, tomuch ? "(only) " : "", quant, ItemName (item), CrdStr (sct))); while (EmpireStatus () != E_COMMAND) { ptr = ReadEmpire (flag); if (EmpireStatus () == E_COMMAND && flag == PRINT) PrintAtEmpire (ptr); if (StrEQ (ptr, "No ships affected") || EmpireStatus () == E_QUESTION) { ShowText ("Something went wrong while unloading ship!"); (void) WaitForPrompt (flag); while (EmpireStatus () != E_COMMAND) { FeedEmpire ("aborted", flag); (void) WaitForPrompt (flag); } return; } } SetQuant (sct, itemchar, in_sect + quant); SetShipQuant (ship, itemchar, in_ship - quant); } /* * Checks if the ferry is moving in the right * direction. Returns True when moving the wrong way */ static bool CheckCargo (ship, ferry, i) Ship ship; Ferry ferry; int i; { int in_ship, max_ship; char itemchar; /* * geretourneerd wordt indien er voor dit item * een positief getal uit komt, dan moet de ferry * naar A. */ if (IS_NOMOVE (ferry-> dir [i])) return False; itemchar = ItemChar (i); in_ship = GiveShipQuant (ship, itemchar); max_ship = MaxShipCargo (ship, itemchar); if (max_ship > ferry-> max_ship [i]) max_ship = ferry-> max_ship [i]; if (ferry-> goto_a == (IS_A_TO_B (ferry-> dir [i]) ? True : False)) return (in_ship < max_ship) ? True : False; else return (in_ship - ferry-> thr_ship [i]) > 0; } static bool CheckCargoDir (ferry) Ferry ferry; { int i; Ship ship; if (ferry-> fleet == '\0') { ship = NrToShip (ferry-> shipnr); for (i = 1; i < V_MAX; i ++) if (CheckCargo (ship, ferry, i)) return True; } else { for (ship = shiplist; ship != (Ship) 0; ship = ship-> next) if (ship-> fleet == ferry-> fleet) for (i = 1; i < V_MAX; i ++) if (CheckCargo (ship, ferry, i)) return True; } return False; } void RunCargoFerry (ferry) Ferry ferry; { char * ptr; Ship ship; Sector csct, old_sct; bool is_at_a, is_at_b; bool mob_left; int x, y; Sector to; int i; old_sct = csct = FerrySector (ferry); mob_left = True; for (;;) { is_at_a = (s_xcd (csct) == ferry-> ax && s_ycd (csct) == ferry-> ay); is_at_b = (s_xcd (csct) == ferry-> bx && s_ycd (csct) == ferry-> by); if (is_at_a && is_at_b) { ShowText ("Internal error ?? sect a == sect b"); ShowText ("Aborted"); if (! util_mode) { DrawSector (old_sct); if (old_sct != csct) DrawSector (csct); } return; } if (is_at_a || is_at_b) { ptr = CheckSector (s_xcd (csct), s_ycd (csct), TASK_CARGO); if (ptr != (char *) 0) { ShowText (Fmt ("Error, sct %d,%d: %s !", s_xcd (csct), s_ycd (csct), ptr)); ShowText ("Aborted"); if (! util_mode) { DrawSector (old_sct); if (old_sct != csct) DrawSector (csct); } return; } ShowText (Fmt ("(Un)loading in sector %c (%s)", is_at_a ? 'A' : 'B', CrdStr (csct))); for (i = 1; i < V_MAX; i ++) { if ((is_at_a && IS_B_TO_A (ferry-> dir [i])) || (is_at_b && IS_A_TO_B (ferry-> dir [i]))) { /* unloading */ if (ferry-> fleet == '\0') CargoUnload (NrToShip (ferry-> shipnr), i, csct, ferry); else for (ship = shiplist; ship != (Ship) 0; ship = ship-> next) if (ship-> fleet == ferry-> fleet) CargoUnload (ship, i, csct, ferry); } else if ((is_at_a && IS_A_TO_B (ferry-> dir [i])) || (is_at_b && IS_B_TO_A (ferry-> dir [i]))) { /* loading */ if (ferry-> fleet == '\0') CargoLoad (NrToShip (ferry-> shipnr), i, csct, ferry); else for (ship = shiplist; ship != (Ship) 0; ship = ship-> next) if (ship-> fleet == ferry-> fleet) CargoLoad (ship, i, csct, ferry); } } if (is_at_a) ferry-> goto_a = False; else ferry-> goto_a = True; } if (! mob_left) { ShowText ("Done"); if (! util_mode) { DrawSector (old_sct); if (old_sct != csct) DrawSector (csct); } return; } if (! CheckCargoDir (ferry)) { ShowText ("Turning ferry around"); ferry-> goto_a = ! ferry-> goto_a; } x = ferry-> goto_a ? ferry-> ax : ferry-> bx; y = ferry-> goto_a ? ferry-> ay : ferry-> by; to = World (x, y, S_DESIG); if (to == FerrySector (ferry)) { ShowText (Fmt ("Nothing to do. Staying @ %s", CrdStr (to))); ShowText ("Aborted"); if (! util_mode) { DrawSector (old_sct); if (old_sct != csct) DrawSector (csct); } return; } ShowText (Fmt ("Moving to sector %c (%s)", ferry-> goto_a ? 'A' : 'B', CrdStr (to))); x = s_xcd (csct); y = s_ycd (csct); mob_left = NavigPath ( ferry-> fleet, ferry-> shipnr, & x, & y, to); csct = World (x, y, S_DESIG); if (! mob_left) if (csct == to) ShowText ("Just made it"); else if (csct == to) ShowText ("Got there."); } } xemp5.1-beta/lib/util/f_goto.c100444 12266 2116 10735 6023772661 14634 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/util/RCS/f_goto.c,v 5.2 1995/09/08 07:48:31 jpo Exp $ $Date: 1995/09/08 07:48:31 $ $Author: jpo $ $Id: f_goto.c,v 5.2 1995/09/08 07:48:31 jpo Exp $ $Locker: $ $Log: f_goto.c,v $ Revision 5.2 1995/09/08 07:48:31 jpo touch up * Revision 5.1 93/03/14 16:52:54 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:24:11 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:45:54 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "var.h" #include "ferry.h" #include "sector.h" int EditGoto (win, ferry, init) WinInfo win; Ferry ferry; bool init; { char * ptr, ch; int x, y; bool first_pass, err, cont; ClearWindow (win); PrintN (win, 1, 1, Centered ("-=[ Ferry Utility : GOTO ]=-", F_MAX_X)); PrintN (win, 1, 3, Fmt ("Ferry# %d", ferry-> id)); y = 0; first_pass = True; err = False; cont = True; do { /* Ship / Fleet */ if (first_pass || y == 5) { ClearLine (win, 5); if (y == 5 || init) { if (! SelectFlSh (win, 5, ferry)) { Bell (); if (init) { Message ("Add Ferry cancelled"); DeleteFerry (ferry-> id); return RET_DONE; } } } if ((ptr = CheckFlSh (ferry)) != (char *) 0) { if (first_pass && ! init) err = True; else Bell (); } PrintN (win, 1, 5, Fmt ("%-20s %-35s", ferry-> fleet == '\0' ? Fmt ("Ship %d", ferry-> shipnr) : Fmt ("Fleet %c", ferry-> fleet), ptr == (char *) 0 ? Fmt ("[now @ %s]", FerryPos (ferry)) : Fmt ("[Warning: %s !]", ptr))); } if (y == 6 || first_pass) { if (! init && y == 6) ferry-> active = ! ferry-> active; ClearLine (win, 6); PrintN (win, 1, 6, Fmt ("Ferry is %sactive", ferry-> active ? "": " NOT")); } /* Goto which sector ? */ if (first_pass || y == 8) { ClearLine (win, 8); if (y == 8 || init) { if (! SelSector (win, 8, "Goto", True, & (ferry-> ax), & (ferry-> ay))) { Bell (); if (init) { Message ("Add Ferry cancelled"); DeleteFerry (ferry-> id); return RET_DONE; } } } ptr = CheckSector (ferry-> ax, ferry-> ay, TASK_GOTO); if (ptr != (char *) 0) if (first_pass && ! init) err = True; else Bell (); PrintN (win, 1, 8, Fmt ("%-20s %-35s", Fmt ("Goto: %d,%d", ferry-> ax, ferry-> ay), ptr == (char *) 0 ? "[OK]" : Fmt ("[Warning: %s !]", ptr))); } if (y == 12 && ! first_pass) { if (FerButPressed (x, F_SX_DONE, 4)) return RET_DONE; else if (FerButPressed (x, F_SX_PREV, 4)) return RET_PREV; else if (FerButPressed (x, F_SX_RUN, 3)) { DoFerry (ferry-> id); return RET_DONE; } else if (FerButPressed (x, F_SX_NEXT, 4)) return RET_NEXT; else if (FerButPressed (x, F_SX_DELETE, 6)) if (Confirm ("Delete this ferry ?", True)) return RET_DELE; } if (first_pass) { PrintN (win, 1, 9, ferry-> complet ? "Status: Completed" : "Status: Not completed"); FerButton (win, F_SX_DONE, 12, "Done"); FerButton (win, F_SX_PREV, 12, "Prev"); FerButton (win, F_SX_RUN, 12, "Run"); FerButton (win, F_SX_NEXT, 12, "Next"); FerButton (win, F_SX_DELETE, 12, "Delete"); if (err) Bell (); if (init) init = False; first_pass = False; } FlushWindow (win); Refresh (); #ifdef X_VERSION cont = SelButtonAtWin (win, & x, & y, (int *) 0); #else SelectButtonChar ((int *) 0, & ch, & x, & y, "DPNRP\033"); if (interrupt || ch != '\0') { if (interrupt) { interrupt = False; cont = False; } else { y = 12; SetXAtButton (& x, ch); } } #endif } while (cont); return RET_DONE; } void RunGotoFerry (ferry) Ferry ferry; { Sector from, to; int x, y; if (ferry-> complet) { ShowText ("This task is already completed"); ShowText ("Done"); return; } ShowText (Fmt ("Moving to %d, %d", ferry-> ax, ferry-> ay)); ShowText (""); to = World (ferry-> ax, ferry-> ay, S_DESIG); from = FerrySector (ferry); x = s_xcd (from); y = s_ycd (from); (void) NavigPath (ferry-> fleet, ferry-> shipnr, & x, & y, to); if (World (x, y, S_EXIST) == to) { ferry-> complet = True; ShowText ("Got There, task COMPLETED"); } if (! util_mode) { DrawSector (from); DrawSector (World (x, y, S_DESIG)); } ShowText ("Done"); } xemp5.1-beta/lib/util/ferry.c100444 12266 2116 110724 6023772661 14525 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/util/RCS/ferry.c,v 5.2 1995/09/08 07:48:38 jpo Exp $ $Date: 1995/09/08 07:48:38 $ $Author: jpo $ $Id: ferry.c,v 5.2 1995/09/08 07:48:38 jpo Exp $ $Locker: $ $Log: ferry.c,v $ Revision 5.2 1995/09/08 07:48:38 jpo const * Revision 5.1 93/03/14 16:52:55 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:24:11 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:45:54 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "census.h" #include "sector.h" #include "ship.h" #include "func.h" #include "ferry.h" static void ShowFerry (); static void RunFerry (); static void DoAllFerries (); Ferry ferry_head = (Ferry) 0; #ifdef X_VERSION void FerButton (win, x, y, str) WinInfo win; int x, y; char * str; { PrintMarked (win, x - 1, y, Fmt (" %s ", str), BOLD); } bool FerButPressed (x, sx, len) int x, sx, len; { return ((x >= (sx - 1)) && (x < sx + len)); } #else /* TERMC_VERSION */ void FerButton (win, x, y, str) WinInfo win; int x, y; char * str; { PrintMarked (win, x, y, str, NORMAL); } bool FerButPressed (x, sx, len) int x, sx, len; { return ((x >= sx) && (x <= sx + len - 1)); } #endif /* VERSION */ /***************************************************************************** * Fleet commands (to be moved to ship.c) * ****************************************************************************** * int FleetMinMob (fleet) * * int FerryMinMob (ferry) * * bool FleetEmpty (fleet) * * bool FleetColocated (fleet) * * Sector FleetSector (fleet) * ************************************************/ Sector FerrySector (ferry) Ferry ferry; { Ship ship; if (ferry-> fleet == '\0') { ship = NrToShip (ferry-> shipnr); return World (ship-> x, ship-> y, S_DESIG); } else return FleetSector (ferry-> fleet); } int NrShipsInFerry (ferry) Ferry ferry; { Ship ptr; int nr = 0; for (ptr = shiplist; ptr != (Ship) 0; ptr = ptr-> next) if (sh_fleet (ptr) == ferry-> fleet) nr++; return nr; } static void AbortNavigPath (fleet, shipnr, x, y, flag) char fleet; int shipnr; int x, y; int flag; { Sector sct; (void) WaitForPrompt (flag); while (EmpireStatus () != E_COMMAND) { FeedEmpire ("aborted", flag); (void) WaitForPrompt (flag); } sct = World (x, y, S_DESIG); if (fleet == '\0') MoveShip (NrToShip (shipnr), sct); else MoveFleet (shipnr, sct); } bool NavigPath (fleet, shipnr, x, y, to) char fleet; int shipnr; int * x, * y; Sector to; { Sector cur, sct, from; char * ptr, * ptr2; int flag; long scan_res; bool done; char *path, *newpath; int i = 0; bool do_lookout; Neighb neighb; flag = util_mode ? DONT_PRINT : PRINT; from = cur = World (*x, *y, S_DESIG); path = BestSeaPath (from, to); if (path == (char *) 0) { ShowText (Fmt ( "Error: couldn't find a sea-path between %s & %s", CrdStr (from), CrdStr (to))); ShowText ("Aborted"); if (! util_mode) DrawSector (from); return False; } if (! util_mode) { if (! AtScreen (*x, *y)) CenterMap (*x, *y); MarkPath (from, path); } path = Str (path); ShowText (Fmt ("Moving from %s to %s via %s", CrdStr (cur), CrdStr (to), path)); FeedEmpire (Fmt ("navigate %s", (fleet == '\0') ? Fmt ("%d", shipnr) : Fmt ("%c", fleet)), flag); scan_res = (fleet == '\0') ? ShipNrAbils (shipnr) : FleetAbils (fleet); done = False; for (;;) { if (path [i] == '\0') done = True; ptr = ReadEmpire (DONT_PRINT); if (flag == PRINT) PrintAtEmpire (ptr); ptr2 = index (ptr, '&'); if (ptr2 != (char *) 0) { if (sscanf (ptr2, "& stays in %d,%d", x, y) == 2) { ShowText (ptr); AbortNavigPath (fleet, shipnr, * x, * y, flag); if (! util_mode) UnmarkPath (cur, path); free (path); return False; } } ptr2 = index (ptr, '#'); if (ptr2 != (char *) 0) { if (sscanf (ptr2, "#%*d stopped at %d,%d", x, y) == 2) { ShowText (ptr); AbortNavigPath (fleet, shipnr, * x, * y, flag); sct = cur; cur = World (*x, *y, S_DESIG); if (fleet == '\0') MoveShip (NrToShip (shipnr), cur); else MoveFleet (fleet, cur); if (! util_mode) { DrawSector (sct); UnmarkPath (cur, path + i); } free (path); return False; } } if (StrEQ (ptr, "Sweep...")) { ShowText (ptr); continue; } if (StrEQ (ptr, "\007Kawhomp! Mine ")) { ShowText (ptr); AbortNavigPath (fleet, shipnr, * x, * y, flag); if (! util_mode) { MarkSector (cur); UnmarkPath (cur, path + i); } free (path); return False; } if (sscanf (ptr, "<%*f:%*f: %d, %d> ", x, y) != 2) { ShowText (ptr); AbortNavigPath (fleet, shipnr, * x, * y, flag); if (! util_mode) { MarkSector (cur); UnmarkPath (cur, path + i); } free (path); return False; } if ((scan_res & M_FISH) == M_FISH || (scan_res & M_OIL) == M_OIL) FScanReso (); do_lookout = False; sct = cur; cur = World (*x, *y, S_DESIG); if (fleet == '\0') MoveShip (NrToShip (shipnr), cur); else MoveFleet (fleet, cur); if (! util_mode) { DrawSector (sct); UnmarkSector (cur); } if (done) { FeedEmpire ("h", flag); (void) WaitForPrompt (flag); free (path); return True; } (void) UpdateSectorDes (cur, '.', False); InitNeighbours (cur, & neighb); for (sct = cur; NextNeighbour (&sct, S_DESIG, neighb); ) if (NO_INFO (sct)) do_lookout = True; if (do_lookout) { ShowText ("Exploring sea......"); FeedEmpire ("l", flag); (void) WaitForPrompt (flag); FeedEmpire (((fleet == '\0') ? Fmt ("%d", shipnr) : Fmt ("%c", fleet)), flag); if (! util_mode) { MarkSector (cur); /* kludge */ UnmarkPath (cur, path + i); } ScanLookout (); InitNeighbours (cur, & neighb); while (NextNeighbour (&sct, S_DESIG, neighb)) (void) UpdateSectorDes (sct, '.', False); newpath = BestSeaPath (cur, to); if (newpath != (char *) 0) if (strcmp (newpath, path + i) != 0) { ShowText (Fmt ("Ajusted path at %d,%d (was %s now moving via %s)", *x, *y, path + i, newpath)); free (path); from = cur; path = Str (newpath); i = 0; } if (! util_mode) { MarkPath (cur, path + i); UnmarkSector (cur); DrawNeighbours (cur); } } FeedEmpire (Fmt ("%c", path [i ++]), flag); } } /***************************************************************************** * Miscellaneous Text Functions * ****************************************************************************** * char * DirectionName (dir) * * char * TaskName (task) * * char * CheckFlSh (ferry) * * char * CheckCargoSct (sct) * * char * FerryPos (ferry) * ************************************************/ static char * DirectionName (ch) char ch; { switch (ch) { case 'n': return "North"; case 'e': return "East"; case 's': return "South"; case 'w': return "WEST"; default: return Fmt ("Unknown dir (%c)", ch); } } static char * TaskName (i) int i; { switch (i) { case TASK_OIL: return "Oil"; case TASK_GOTO: return "Goto"; case TASK_EXPLORE: return "Explore"; case TASK_CARGO: return "Cargo"; default: return "! ERROR !"; } } static char * NameOfFerry (ferry) Ferry ferry; { switch (ferry-> task) { case TASK_GOTO: return Fmt ("#%d) Goto %d,%d%s", ferry-> id, ferry-> ax, ferry-> ay, ferry-> complet ? " " : ""); case TASK_CARGO: return Fmt ("#%d) Cargo %d,%d/%d,%d", ferry-> id, ferry-> ax, ferry-> ay, ferry-> bx, ferry-> by); case TASK_OIL: return Fmt ("#%d) Oil seek", ferry-> id); case TASK_EXPLORE: return Fmt ("#%d) Expl to the %s", ferry-> id, DirectionName (ferry-> expl_dir)); default: return Fmt ("#%d) Unknown task", ferry-> id); } } char * HasFerry (fleet, ship) char fleet; Ship ship; { Ferry ptr; for (ptr = ferry_head; ptr != (Ferry) 0; ptr = ptr-> next) if ((ptr-> fleet == fleet && fleet != '\0') || (ship != (Ship) 0 && (sh_fleet (ship) == ptr-> fleet || ptr-> shipnr == sh_nr (ship)))) return NameOfFerry (ptr); return "No Ferry"; } char * CheckFlSh (ferry) Ferry ferry; { if (ferry-> fleet == '\0') { if (NrToShip (ferry-> shipnr) == (Ship) 0) return "no such ship#"; else return (char *) 0; } else { if (! FleetColocated (ferry-> fleet)) return "not colocated"; else if (FleetEmpty (ferry-> fleet)) return "fleet empty"; else return (char *) 0; } } char * CheckSector (x, y, task) int x, y; int task; { Sector sct; sct = World (x, y, S_EXIST); if (sct == (Sector) 0) return "not known"; if (task == TASK_GOTO) { if (KNOW_ALL (sct)) { if (s_nds (sct) != 'h') return "No harbour"; else return (char *) 0; } else if (s_des (sct) != '.') return "No sea"; return (char *) 0; } if (! s_owned (sct)) return "not yours"; if (s_nds (sct) != 'h' && task == TASK_CARGO) return "not an harbour"; return (char *) 0; } char * FerryPos (ferry) Ferry ferry; { Ship ship; Sector sct; if (ferry-> fleet == '\0') { ship = NrToShip (ferry-> shipnr); if (ship == (Ship) 0) return "??"; else return Fmt ("%d,%d", ship-> x, ship-> y); } else { sct = FleetSector (ferry-> fleet); if (sct == (Sector) 0) return "??"; else return Fmt ("%-3d,%3d", s_xcd (sct), s_ycd (sct)); } } /***************************************************************************** * Data manipulation for ferries * ****************************************************************************** * Ferry FindFerry (id) * * Ferry NewFerry () * * void DeleteFerry (id) * ****************************************/ static Ferry FindFerry (id) int id; { Ferry ptr; for (ptr = ferry_head; ptr != (Ferry) 0; ptr = ptr-> next) if (ptr-> id == id) return ptr; return (Ferry) 0; } static Ferry NewFerry () { int not_used; Ferry ptr, new, prev; /* * Find next ferry# & tail * * Take the highest number which isn't used. * I don't think (hope) more than 32767 ferries * will be used. */ not_used = 1; prev = (Ferry) 0; for (ptr = ferry_head; ptr != (Ferry) 0; ptr= ptr-> next) { if (ptr-> id >= not_used) not_used = ptr-> id + 1; prev = ptr; } new = (Ferry) doalloc ((unsigned) sizeof (struct s_ferry)); new-> next = (Ferry) 0; new-> active = True; new-> id = not_used; if (prev == (Ferry) 0) /* first */ { ferry_head = new; new-> prev = (Ferry) 0; } else { prev-> next = new; new-> prev = prev; } return new; } void DeleteFerry (id) int id; { Ferry ptr; for (ptr = ferry_head; ptr != (Ferry) 0; ptr = ptr-> next) if (ptr-> id == id) { if (ptr-> next != (Ferry) 0) ptr-> next-> prev = ptr-> prev; if (ptr-> prev != (Ferry) 0) ptr-> prev-> next = ptr-> next; else ferry_head = ptr-> next; free ((char *) ptr); return; } } /***************************************************************************** * Helpfunctions to select sectors / fleets * ****************************************************************************** * bool SelectFlSh (win, y, ferry) * * bool SelSector (win, lin, s, def, x, y) * ************************************************/ bool SelectFlSh (win, y, ferry) WinInfo win; int y; Ferry ferry; { char * ques, * ans; extern int last_layout; if (last_layout == FLEET_MODE) ques = Fmt ("Which fleet/ship [%c]: ", curfleet); else if (curship != (Ship) 0) ques = Fmt ("Which fleet/ship [%d]: ", curship-> nr); else ques = "Which fleet/ship: "; ans = GetQuest (win, y, ques, 3, "a-zA-Z0-9"); if (ans == (char *) 0 || interrupt) { Message ("Add Ferry aborted"); interrupt = False; return False; } if (* ans == '\0') { if (curship == (Ship) 0 && curfleet == '\0') { Message ("No current ship to select"); Bell (); return False; } else { if (last_layout == FLEET_MODE) { ferry-> fleet = curfleet; ferry-> shipnr = 0; } else { ferry-> fleet = '\0'; ferry-> shipnr = curship-> nr; } return True; } } else { if (* ans >= '0' && * ans <= '9') { ferry-> fleet = '\0'; ferry-> shipnr = atoi (ans); return True; } else { if (* (ans + 1) != '\0') { Message ("Illegal fleet/ship"); Bell (); return False; } else { ferry-> fleet = * ans; return True; } } } } bool SelSector (win, line, str, def, x, y) WinInfo win; int line; char * str; bool def; int * x, * y; { char * ans, * quest; if (def) quest = Fmt ("%s [%s]: ", str, CrdStr (cursct)); else quest = Fmt ("%s: ", str); ans = GetQuest (win, line, quest, 9, GS_SECTOR); if (ans == (char *) 0 || interrupt) { interrupt = False; Message ("Cancelled"); return False; } if (* ans == '\0') { if (def) { * x = s_xcd (cursct); * y = s_ycd (cursct); return True; } else { Message ("No sector selected"); return False; } } else { if (sscanf (ans, "%d,%d", x, y) != 2) { Message ("Illegal sector specification"); Bell (); return False; } else return True; } } int FerryMinMob (ferry) Ferry ferry; { Ship ship; if (ferry-> fleet == '\0') { ship = NrToShip (ferry-> shipnr); return ship-> mob; } else return FleetMinMob (ferry-> fleet); } /***************************************************************************** * Status of all ferries * ****************************************************************************** * void FerryStat (x, y) * ********************************/ void ListComplFerries () { Strings strings; Ferry ferry; char * pos; strings = InitStrings (); AddString (strings, "Ferry# Ship(s) Position"); for (ferry = ferry_head; ferry != (Ferry) 0; ferry = ferry-> next) if (ferry-> task == TASK_GOTO && ferry-> complet) { pos = CheckFlSh (ferry); if (pos != (char *) 0) pos = Fmt ("[ Error: %s ]", pos); else pos = Fmt ("@ %s", FerryPos (ferry)); AddString (strings, Fmt ("#%-3d %-20s %s", ferry-> id, ferry-> fleet == '\0' ? Fmt ("Ship #%-4d", ferry-> shipnr) : Fmt ("Fleet %c ", ferry-> fleet), pos)); } if (StringsSize (strings) == 1) { Bell (); FreeStrings (strings); Message ("No completed ferries"); return; } #ifdef TERMC_VERSION ShowStringsInPager (strings, "Completed goto ferries"); #else /* TERMC_VERSION */ InitWMPager (strings, "completed goto ferries"); #endif /* TERMC_VERSION */ } void FerryStat (x, y, towm) int x, y; bool towm; { Pager pager; Strings strings; Ferry ferry; Ship ship; char * pos, * stat, * task; Sector sct; int i; int func; if (ferry_head == (Ferry) 0) { Message ("No ferries initialized"); Bell (); return; } /* * Buttons: [DONE] [RUN] [CHANGE] * * Ferry# Flt/Shp Pos Status Task * * 1 A -120,-120 OK Cargo (10,10 -> 20,20) * 2 12 10,10 OK Explore (North-East) * 3 5 30,20 OK Move to (20,10) * 4 B 23,54 DONE Move to (15,5) * 5 A not colocated ERROR Cargo (10,10 -> 20,20) * 6 B empty fleet ERROR Move to (23,45) * 7 56 no such ship# ERROR Explore (East) */ strings = InitStrings (); AddStringID (strings, "Ferry# Ship(s) Position Status Task", -1); for (ferry = ferry_head; ferry != (Ferry) 0; ferry = ferry-> next) { pos = CheckFlSh (ferry); if (pos == (char *) 0) { stat = "OK"; if (ferry-> task == TASK_GOTO && ferry-> complet) stat = "COMPL"; if (ferry-> fleet == '\0') { ship = NrToShip (ferry-> shipnr); pos = Fmt ("%6d,%-4d", ship-> x, ship-> y); } else { sct = FleetSector (ferry-> fleet); pos = Fmt ("%6d,%-4d", s_xcd (sct), s_ycd (sct)); } } else stat = "ERROR"; switch (ferry-> task) { case TASK_CARGO: if (ferry-> goto_a) task = Fmt ("Cargo (%4d,%-4d -> %4d,%-4d)", ferry-> ax, ferry-> ay, ferry-> bx, ferry-> by); else task = Fmt ("Cargo (%4d,%-4d -> %4d,%-4d)", ferry-> bx, ferry-> by, ferry-> ax, ferry-> ay); break; case TASK_GOTO: task = Fmt ("Goto (%4d,%4d)", ferry-> ax, ferry-> ay); break; case TASK_OIL: task = "Oil Seek"; break; case TASK_EXPLORE: task = Fmt ("Explore (%s)", DirectionName (ferry-> expl_dir)); break; } /* * 01234567890123456789012345678901234567890123456789 * * Ferry# Flt/Shp Pos Status Task * * 1..6.. A..7... ..-120,-120.. OK Cargo (10,10 -> 20,20) * 5 A not colocated ERROR Cargo (10,10 -> 20,20) */ AddStringID (strings, Fmt ("%-6d %-7s %-13s %5s %s", ferry-> id, ferry-> fleet != '\0' ? Fmt ("%c (%d)", ferry-> fleet, NrShipsInFerry (ferry)) : Fmt ("%d", ferry-> shipnr), pos, stat, task), ferry-> id); } if (towm) { #ifdef X_VERSION InitWMPager (strings, "List of all ferries"); return; #endif } pager = InitPager (strings, "List of all ferries"); AddPagerFunc (pager, "Write", WRITEFUNC); AddPagerFunc (pager, "Done", DONEFUNC); SetPagerButtons (pager, "Change", "Run", "Done"); SetPagerButtonIDs (pager, NEWFUNC, RUNFUNC, DONEFUNC); MapPagerFromTop (pager, map_win, x, y); for (;;) { i = PagerMenuFunc (pager, & func, (int *) 0); if (func == CANCEL || func == CANCELALL || func == DONEFUNC || i < 0) break; ferry = FindFerry (i); if (func == RUNFUNC) { RaiseWindow (map_win); DoFerry (ferry-> id); LowerWindow (map_win); } else if (func == NEWFUNC) { ShowFerry (ferry, x + 3, y + 3, False); break; } } FreePager (pager); FreeStrings (strings); } /***************************************************************************** * Show & Edit Oil Ferry * *****************************************************************************/ static int EditOil (win, ferry, init) WinInfo win; Ferry ferry; bool init; { /* 0 1 -=[ Ferry Utility : OIL ]=- 2 3 Ferry# 8 4 5 Fleet: A (currently @ -12,23) 6 ferry Active/NOT Active 7 8 Min oil to drill for: 1 9 10 [DONE] [PREV] [RUN] [NEXT] [DELETE] */ char * ptr; bool first_pass; int x, y; char * ans; #ifdef lint x = y = 0; #endif ClearWindow (win); PrintN (win, 1, 1, Centered ("-=[ Ferry Utility : OIL ]=-", 80)); PrintN (win, 1, 3, Fmt ("Ferry# %d", ferry-> id)); first_pass = True; y = 0; do { /* Ship / Fleet */ if (first_pass || y == 5) { ClearLine (win, 5); if (y == 5 || init) { if (! SelectFlSh (win, 5, ferry)) { Bell (); if (init) { Message ("Add Ferry cancelled"); DeleteFerry (ferry-> id); return RET_DONE; } } } if ((ptr = CheckFlSh (ferry)) != (char *) 0) Bell (); PrintN (win, 1, 5, Fmt ("%-30s %-40s", ferry-> fleet == '\0' ? Fmt ("Ship %d", ferry-> shipnr) : Fmt ("Fleet %c", ferry-> fleet), ptr == (char *) 0 ? Fmt ("[now @ %s]", FerryPos (ferry)) : Fmt ("[Warning: %s !]", ptr))); } if (y == 6 || first_pass) { if (! init && y == LINE_ACTIVE) ferry-> active = ! ferry-> active; ClearLine (win, 6); PrintN (win, 1, 6, Fmt ("Ferry is %sactive", ferry-> active ? "": " NOT")); } if (first_pass | y == 8) { ClearLine (win, 8); if (y == 8 || init) { ans = GetQuest (win, 8, "Min oil do drill for [1]: ", 3, GS_PNUMBER); if (ans == (char *) 0 || interrupt) { interrupt = False; Bell (); if (init) { Message ("Add Ferry Cancelled"); return RET_DONE; } } if (* ans == '\0') ferry-> oil_min = 1; else { ferry-> oil_min = atoi (ans); if (ferry-> oil_min > MAX_OILCONT) ferry-> oil_min = MAX_OILCONT; } } PrintN (win, 1, 8, Fmt ("Minimum oil to drill for: %d", ferry-> oil_min)); } if (! first_pass && y == 10) { if (FerButPressed (x, F_SX_DONE, 4)) return RET_DONE; else if (FerButPressed (x, F_SX_PREV, 4)) return RET_PREV; else if (FerButPressed (x, F_SX_RUN, 3)) { DoFerry (ferry-> id); return RET_DONE; } else if (FerButPressed (x, F_SX_NEXT, 4)) return RET_NEXT; else if (FerButPressed (x, F_SX_DELETE, 6)) if (Confirm ("Delete this ferry ?", True)) return RET_DELE; } if (first_pass) { FerButton (win, F_SX_DONE, 10, "Done"); FerButton (win, F_SX_PREV, 10, "Prev"); FerButton (win, F_SX_RUN, 10, "Run"); FerButton (win, F_SX_NEXT, 10, "Next"); FerButton (win, F_SX_DELETE, 10, "Delete"); if (init) init = False; first_pass = False; } FlushWindow (win); } while (SelButtonAtWin (win, & x, & y, (int *) 0)); return RET_DONE; } static int EditExplore (win, ferry, init) WinInfo win; Ferry ferry; bool init; { /* 0 1 -=[ Ferry Utility : Explore ]=- 2 3 Ferry# 8 4 5 Fleet: A (currently @ -12,23) 6 Ferry is Active/NOT Active 7 8 Explore to the south. 9 10 [DONE] [PREV] [RUN] [NEXT] [DELETE] */ char * ans, * ptr; int x, y; bool first_pass; #ifdef lint x = y = 0; #endif ClearWindow (win); PrintN (win, 1, 1, Centered ("-=[ Ferry Utility : Explore ]=-", 80)); PrintN (win, 1, 3, Fmt ("Ferry# %d", ferry-> id)); first_pass = True; y = 0; do { /* Ship / Fleet */ if (first_pass || y == 5) { ClearLine (win, 5); if (y == 5 || init) { if (! SelectFlSh (win, 5, ferry)) { Bell (); if (init) { Message ("Add Ferry cancelled"); DeleteFerry (ferry-> id); return RET_DONE; } } } if ((ptr = CheckFlSh (ferry)) != (char *) 0) Bell (); PrintN (win, 1, 5, Fmt ("%-30s %-40s", ferry-> fleet == '\0' ? Fmt ("Ship %d", ferry-> shipnr) : Fmt ("Fleet %c", ferry-> fleet), ptr == (char *) 0 ? Fmt ("[now @ %s]", FerryPos (ferry)) : Fmt ("[Warning: %s !]", ptr))); } if (first_pass || y == 6) { if (! init && y == 6) ferry-> active = ! ferry-> active; ClearLine (win, 6); PrintN (win, 1, 6, Fmt ("Ferry is %sactive", ferry-> active ? "": " NOT")); } if (first_pass || y == 8) { ClearLine (win, 8); if (y == 8 || init) { ans = GetQuest (win, 8, "Explore to the [nesw]: ", 1, "nesw"); if (ans == (char *) 0 || interrupt || * ans == '\0') { interrupt = False; if (init) { Message ("Add Ferry Cancelled"); DeleteFerry (ferry-> id); return RET_DONE; } } else ferry-> expl_dir = * ans; } PrintN (win, 1, 8, Fmt ("Explore to the %s. ", DirectionName (ferry-> expl_dir))); } if (! first_pass && y == 10) { if (FerButPressed (x, F_SX_DONE, 4)) return RET_DONE; else if (FerButPressed (x, F_SX_PREV, 4)) return RET_PREV; else if (FerButPressed (x, F_SX_RUN, 3)) { DoFerry (ferry-> id); return RET_DONE; } else if (FerButPressed (x, F_SX_NEXT, 4)) return RET_NEXT; else if (FerButPressed (x, F_SX_DELETE, 6)) if (Confirm ("Delete this ferry ?", True)) return RET_DELE; } if (first_pass) { FerButton (win, F_SX_DONE, 10, "Done"); FerButton (win, F_SX_PREV, 10, "Prev"); FerButton (win, F_SX_RUN, 10, "Run"); FerButton (win, F_SX_NEXT, 10, "Next"); FerButton (win, F_SX_DELETE, 10, "Delete"); if (init) init = False; first_pass = False; } FlushWindow (win); } while (SelButtonAtWin (win, & x, & y, (int *) 0)); return RET_DONE; } static WinInfo OpenFerryWin (task, x, y) int task; { #ifdef TERMC_VERSION return OpenRelToRoot (census_win, x, y, F_MAX_X, task == TASK_CARGO ? LINE_LOW + 1 : task == TASK_GOTO ? 14 : 12, (task == TASK_CARGO) ? LEFT_BOX | RIGHT_BOX : FULL_BOX, 0); #else /* X_VERSION */ return OpenRelToRoot (map_win, x, y, F_MAX_X, (task == TASK_CARGO) ? LINE_LOW + 2 : (task == TASK_GOTO) ? 14 : 12, CHARS, 0); #endif /* VERSION */ } static int EditFerry (win, ferry, init) WinInfo win; Ferry ferry; bool init; { switch (ferry-> task) { case TASK_CARGO: return EditCargo (win, ferry, init); case TASK_EXPLORE: return EditExplore (win, ferry, init); case TASK_GOTO: return EditGoto (win, ferry, init); case TASK_OIL: return EditOil (win, ferry, init); } /* NOTREACHED */ } static void ShowFerry (ferry, x, y, init) Ferry ferry; int x, y; bool init; { WinInfo win; int stat; Ferry last; win = OpenFerryWin (ferry-> task, 5, 0); SetDefaultCursor (win, CR_MENU); do { stat = EditFerry (win, ferry, init); init = False; last = ferry; if (stat == RET_NEXT) { for (ferry = ferry-> next; ferry != (Ferry) 0 && ferry-> task != last-> task; ferry = ferry-> next); if (ferry == (Ferry) 0) { Message (Fmt ("No next (%s) ferry !", TaskName (last-> task))); Bell (); ferry = last; } } else if (stat == RET_PREV) { for (ferry = ferry-> prev; ferry != (Ferry) 0 && ferry-> task != last-> task; ferry = ferry-> prev); if (ferry == (Ferry) 0) { Message (Fmt ("No previous (%s) ferry !", TaskName (last-> task))); Bell (); ferry = last; } } else if (stat == RET_DELE) { DeleteFerry (last-> id); stat = RET_DONE; break; } } while (stat != RET_DONE); DestroyWindow (win); } static const char *tasks_names [] = { "Cargo", "Goto", "Explore", "Seek Oil", (char *) 0 }; static void AddFerry (x, y) int x, y; { Strings strings; Pager pager; Ferry ferry; int i; strings = InitStrings (); AddStringsID (strings, tasks_names, TASK_MAX, 0); pager = InitPager (strings, "Which Task ?"); MapPagerFromTop (pager, map_win, x, y); i = PagerMenu (pager); if (i < 0 || interrupt) { interrupt = False; FreePager (pager); FreeStrings (strings); Message ("Add ferry cancelled"); return; } ferry = NewFerry (); ferry-> task = i; if (i == TASK_GOTO) ferry-> complet = False; ShowFerry (ferry, x + 2, y + 2, True); FreePager (pager); FreeStrings (strings); return; } #define FERRY_STAT 0 #define FERRY_LCOM 1 #define FERRY_LALL 2 #define FERRY_ADD 3 #define FERRY_DEL 4 #define FERRY_RUN 5 #define FERRY_MAX 6 static const char *ferry_commands [] = { "Change/Run of all ferries", "List of completed goto ferries", "List of all ferries", "Add new ferry", "Delete all compeleted trips", "Run ferries", (char *) 0 }; void FerryUtil (x, y) int x, y; { Strings strings; Pager pager; Ferry ptr, next; int i, nr; strings = InitStrings (); AddStringsID (strings, ferry_commands, FERRY_MAX, 0); pager = InitPager (strings, "Ferry command ?"); MapPagerFromTop (pager, map_win, x, y); i = PagerMenu (pager); if (i < 0 || interrupt) { interrupt = False; FreePager (pager); FreeStrings (strings); return; } switch (i) { case FERRY_STAT: case FERRY_LALL: FerryStat (x + 2, y + 2, i == FERRY_LALL); break; case FERRY_LCOM: ListComplFerries (); break; case FERRY_ADD: AddFerry (x + 2, y + 2); break; case FERRY_DEL: ptr = ferry_head; nr = 0; while (ptr != (Ferry) 0) { next = ptr-> next; if (ptr-> task == TASK_GOTO && ptr-> complet) { nr ++; DeleteFerry (ptr-> id); } ptr = next; } if (nr == 0) { Bell (); Message ("No ferries deleted !"); break; } else if (nr == 1) Message ("One completed ferry deleted"); else Message (Fmt ("%d completed ferries deleted", nr)); break; case FERRY_RUN: DoAllFerries (); break; } FreePager (pager); FreeStrings (strings); return; } /***************************************************************************** * Datafile functions * *****************************************************************************/ void SaveFerries (fp) FILE *fp ; { Ferry ptr; int i; for (ptr = ferry_head; ptr != (Ferry) 0; ptr = ptr-> next) { fprintf (fp, "%d %d %s\n", ptr-> id, ptr-> task, ptr-> fleet == '\0' ? Fmt ("S%d", ptr-> shipnr) : Fmt ("F%c", ptr-> fleet)); switch (ptr-> task) { case TASK_CARGO: fprintf (fp, "%d %d %d %d %d %d\n", ptr-> ax, ptr-> ay, ptr-> bx, ptr-> by, ptr-> waremob, ptr-> goto_a); for (i = 1; i < V_MAX; i ++) fprintf (fp, "%c %d %d %d %d\n", ItemChar (i), ptr-> dir [i], ptr-> thr_ship [i], ptr-> thr_sct [i], ptr-> max_ship [i]); break; case TASK_GOTO: fprintf (fp, "%d %d %d\n", ptr-> ax, ptr-> ay, ptr-> complet); break; case TASK_EXPLORE: fprintf (fp, "%c\n", ptr-> expl_dir); break; case TASK_OIL: fprintf (fp, "%d\n", ptr-> oil_min); break; } } fprintf (fp, "END OF FERRY LIST\n"); } void ReadFerries (fp) FILE * fp; { char buffer [BUFSIZ]; Ferry ferry; int i, nr, err = 0; int id, task, shipnr; char fleet; while (fgets (buffer, BUFSIZ, fp) != (char *) 0) { if (strncmp (buffer, "END OF FERRY LIST", 17) == 0) return; /* * Look for F, because you can have * FS (fleet S) */ if (index (buffer, 'F') == (char *) 0) { nr = sscanf (buffer, "%hd %hd S%hd", & id, & task, & shipnr); fleet = '\0'; } else { nr = sscanf (buffer, "%hd %hd F%c", & id, & task, & fleet); shipnr = -1; } if (nr != 3 || fgets (buffer, BUFSIZ, fp) == (char *) 0) { PrintAtEmpire ("Bad ferry in data file line ignored"); Bell (); continue; } ferry = NewFerry (); ferry-> id = id; ferry-> task = task; ferry-> shipnr = shipnr; ferry-> fleet = fleet; switch (task) { case TASK_CARGO: if (sscanf (buffer, "%hd %hd %hd %hd %hd %hd", & (ferry-> ax), & (ferry-> ay), & (ferry-> bx), & (ferry-> by), & (ferry-> waremob), & (ferry-> goto_a)) == 6) { for (i = 1; i < V_MAX; i ++) { if (fgets (buffer, BUFSIZ, fp) == (char *) 0) { err++; break; } else if (sscanf (buffer, "%*c %hd %hd %hd %hd\n", & (ferry-> dir [i]), & (ferry-> thr_ship [i]), & (ferry-> thr_sct [i]), & (ferry-> max_ship [i])) != 4) { err++; break; } } } else err++; break; case TASK_OIL: if (sscanf (buffer, "%hd\n", & (ferry-> oil_min)) != 1) err++; break; case TASK_EXPLORE: if (sscanf (buffer, "%c\n", & (ferry-> expl_dir)) != 1) err++; break; case TASK_GOTO: if (sscanf (buffer, "%hd %hd %hd", & (ferry-> ax), & (ferry-> ay), & (ferry-> complet)) != 3) err++; break; } if (err) { err = 0; PrintAtEmpire ("Bad ferry in data file line ignored"); Bell (); DeleteFerry (id); } } } static void RunFerry (id, dump) int id; bool dump; { Ferry ferry; char * ptr; Ship ship; int min_mob; ferry = FindFerry (id); ClearText (); ShowText (Fmt( "Ferry# %d", id)); if (ferry == (Ferry) 0) { ShowText ("No such ferry# exists"); ShowText ("Aborted"); ShowDone (); } ShowText (Fmt ("Task: %s", TaskName (ferry-> task))); if (! ferry-> active) { ShowText ("Ferry not active"); ShowText ("Aborted"); ShowDone (); return; } if ((ptr = CheckFlSh (ferry)) != (char *) 0) { ShowText (Fmt ("Error: %s", ptr)); ShowText ("Aborted"); ShowDone (); return; } if ((min_mob = FerryMinMob (ferry)) <= 0) { ShowText ("No more mobility"); ShowText ("Aborted"); ShowDone (); return; } ShowText (Fmt ("%s @ %s (mob = %d)", ferry-> fleet == '\0' ? Fmt ("Ship %d", ferry-> shipnr) : Fmt ("Fleet %c", ferry-> fleet), FerryPos (ferry), min_mob)); switch (ferry-> task) { case TASK_GOTO: RunGotoFerry (ferry); break; case TASK_CARGO: RunCargoFerry (ferry); break; case TASK_OIL: case TASK_EXPLORE: ShowText ("Not (yet) implemented"); } ShowDone (); if (dump) if (ferry-> fleet != '\0') RedumpFleet (ferry-> fleet, DONT_PRINT); else { ship = NrToShip (ferry-> shipnr); if (ship != (Ship) 0) RedumpShip (ship, DONT_PRINT); } if (! util_mode) Census (); return; } void DoFerry (id) int id; { UnmarkSector (cursct); RaiseAll (); OpenTextWindow (10, 10, "Output of ferry"); #ifdef X_VERSION ShowText ( "Place window & press any key to start, press to abort"); Pause (); if (! interrupt) #endif X_VERSION RunFerry (id, True); CloseTextWindow (); LowerAll (); MarkSector (cursct); } static void RunAllFerries () { Ferry ptr; for (ptr = ferry_head; ptr != (Ferry) 0; ptr = ptr-> next) { if (util_mode) FreeFmts (); RunFerry (ptr-> id, False); if (interrupt) break; } MarkAllShips (); (void) DumpShips ("*", DONT_PRINT); CheckMarkedShips (); } static void DoAllFerries () { UnmarkSector (cursct); RaiseAll (); OpenTextWindow (100, 100, "Output of ferry"); ShowText ("Place window & press any key to start"); Pause (); RunAllFerries (); CloseTextWindow (); LowerAll (); MarkSector (cursct); } void DoFerryUtil (args) char * args; { int nr; if (* args == '\0' || strcmp (args, ":all") == 0 || strcmp (args, ":@") == 0) RunAllFerries (); else { while (* args ++ == ':') { if (! ScanDigit ((ConstVP)& args, & nr)) { fprintf (stderr, "bad syntax in ferry opts\n"); return; } RunFerry (nr, True); } } } void ChangeFerry (fleet, ship) char fleet; Ship ship; { Ferry ptr; for (ptr = ferry_head; ptr != (Ferry) 0; ptr = ptr-> next) if ((ptr-> fleet == fleet && fleet != '\0') || (ship != (Ship) 0 && (sh_fleet (ship) == ptr-> fleet || ptr-> shipnr == sh_nr (ship)))) break; if (ptr == (Ferry) 0) AddFerry (5, 5); else ShowFerry (ptr, 5, 5, False); } void ListSectorFerries () { Ship ship; Ferry ferry; extern int last_layout; char civ_dir, mil_dir; int civ_cap, mil_cap; bool isa, isb; int y; y = FL_SY_FLEET; last_layout = FERRY_LIST; ClearWindow (census_win); CensusLayTop (); DrawHorizontal (census_win, y ++); for (ferry = ferry_head; ferry != (Ferry) 0; ferry = ferry-> next) { if (ferry-> task != TASK_CARGO && ferry-> task != TASK_GOTO) continue; #define MICHIEL_MOD /* Added Goto ferries in ferry list */ #ifdef MICHIEL_MOD if (ferry-> task == TASK_CARGO) { isa = False; isb = False; if (ferry-> ax == s_xcd (cursct) && ferry-> ay == s_ycd (cursct)) isa = True; if (ferry-> bx == s_xcd (cursct) && ferry-> by == s_ycd (cursct)) isb = True; if (! isa && ! isb) continue; if (IS_A_TO_B (ferry-> dir [V_MILIT])) { if (isa) mil_dir = 'E'; else mil_dir = 'I'; } else if (IS_B_TO_A (ferry-> dir [V_MILIT])) { if (isa) mil_dir = 'I'; else mil_dir = 'E'; } else mil_dir = '-'; if (IS_A_TO_B (ferry-> dir [V_CIVIL])) { if (isa) civ_dir = 'E'; else civ_dir = 'I'; } else if (IS_B_TO_A (ferry-> dir [V_CIVIL])) { if (isa) civ_dir = 'I'; else civ_dir = 'E'; } else civ_dir = '*'; } else { if (ferry-> ax != s_xcd (cursct) || ferry-> ay != s_ycd (cursct)) continue; civ_dir = mil_dir = ' '; } #endif civ_cap = 0; mil_cap = 0; if (ferry-> fleet == '\0') { ship = NrToShip (ferry-> shipnr); civ_cap = MaxShipCargo (ship, 'c'); mil_cap = MaxShipCargo (ship, 'm'); } else { for (ship = shiplist; ship != (Ship) 0; ship = sh_next (ship)) if (sh_fleet (ship) == ferry-> fleet) { civ_cap += MaxShipCargo (ship, 'c'); mil_cap += MaxShipCargo (ship, 'm'); } } #ifdef MICHIEL_MOD if (ferry-> task == TASK_CARGO) PrintN (census_win, 0, y ++, Fmt ("#%d: %s (%c%dc, %c%dm)", ferry-> id, ferry-> fleet == '\0' ? Fmt ("sh %d", ferry-> shipnr): Fmt ("flt %c", ferry-> fleet), civ_dir, civ_cap, mil_dir, mil_cap)); else PrintN (census_win, 0, y ++, Fmt ("#%d: %s (%dc, %dm)GOTO", ferry-> id, ferry-> fleet == '\0' ? Fmt ("sh %d", ferry-> shipnr): Fmt ("flt %c", ferry-> fleet), civ_cap, mil_cap)); #endif } FlushWindow (census_win); } void GotoFerry () { char * ans; Ferry ferry; int x, y; Sector sct; int i; bool found_ferry = False; ans = InputAtMessage ("Ferry# ", 3, GS_PNUMBER); if (ans == (char *) 0 || interrupt || * ans == 0) { interrupt = False; ClearMes (); return; } i = atoi (ans); for (ferry = ferry_head; ferry != (Ferry) 0; ferry = ferry-> next) { if (ferry-> id == i) { (void) sscanf (FerryPos (ferry), "%d,%d", & x, & y); sct = World (x, y, S_EXIST); if (sct != (Sector) 0) { found_ferry = True; Goto (sct); } } } if (! found_ferry) { Message ("Ferry not found"); Bell (); } } void SetXAtButton (x, ch) int * x; char ch; { switch (ch) { case '\033': * x = F_SX_DONE; break; case 'N': * x = F_SX_NEXT; break; case 'P': * x = F_SX_PREV; break; case 'D': * x = F_SX_DELETE; break; case 'R': * x = F_SX_RUN; break; default: * x = 0; } } xemp5.1-beta/lib/util/mail.c100444 12266 2116 61450 6023772661 14301 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/util/RCS/mail.c,v 5.2 1995/09/08 07:48:44 jpo Exp $ $Date: 1995/09/08 07:48:44 $ $Author: jpo $ $Id: mail.c,v 5.2 1995/09/08 07:48:44 jpo Exp $ $Locker: $ $Log: mail.c,v $ Revision 5.2 1995/09/08 07:48:44 jpo const * Revision 5.1 93/03/14 16:52:56 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:24:11 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:45:54 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "xrc.h" #include "func.h" #include "nation.h" #include #define DELET 0x01 #define READ 0x02 #define KEEP 0x04 #define ANSWER 0x08 void MailMenu(); void InfoMailMenu(); #define MA_ANNOUNCEMENT 0x01 #define MA_TELEGRAM 0x02 #define MA_BULLETIN 0x04 #define MA_OWNTELE 0x08 #define MA_OWNANN 0x10 #define MA_OUTPUT 0x20 #define MA_PRODUCT 0x40 #define MA_UNKNOWN 0x80 #define MA_ALL 0xff #define MA_MAX 7 char * mail_str [] = { "announcements", "telegrams", "bulletins", "own telegrams", "own announcements", "ouput of programs", "production reports", (char *) 0 }; typedef struct s_mail *Mail; struct s_mail { char * header; Strings strings; int flags; Mail next; int type; }; static Mail head = (Mail) 0; static void SetMailType (new) Mail new; { if (StrEQ (new-> header, "> Anno")) new-> type = MA_ANNOUNCEMENT; else if (StrEQ (new-> header, "> Telegram")) new-> type = MA_TELEGRAM; else if (StrEQ (new-> header, "> BULL")) new-> type = MA_BULLETIN; else if (StrEQ (new-> header, ">>> Te")) new-> type = MA_OWNTELE; else if (StrEQ (new-> header, ">>> Ann")) new-> type = MA_OWNANN; else if (StrEQ (new-> header, "> Production")) new-> type = MA_PRODUCT; else if (StrEQ (new-> header, "===")) new-> type = MA_OUTPUT; else new-> type = MA_UNKNOWN; } static char * Author (ptr) Mail ptr; { static char buf [100]; char * author, * ptri; author = (char *) 0; if (StrEQ (ptr-> header, "> Telegram from")) { ptri = ptr-> header + 15; if (ScanFmt ((ConstVP)& ptri, buf, "-a-zA-Z _0-9")) author = buf; } else if (StrEQ (ptr-> header, "> Announcement from")) { ptri = ptr-> header + 19; if (ScanFmt ((ConstVP)& ptri, buf, "-a-zA-Z _0-9")) author = buf; } return author; } static void ConcatMail (types) int types; { Mail ptr, prev, next; bool concat; char * author; if (head == (Mail) 0) return; prev = head; ptr = head-> next; while (ptr != (Mail) 0) { if (ptr-> type == prev-> type && ptr-> type & types) { concat = False; switch (ptr-> type) { case MA_BULLETIN: concat = True; break; case MA_ANNOUNCEMENT: case MA_TELEGRAM: author = Str (Author (ptr)); concat = strcmp (author, Author (prev)) == 0; free (author); break; default: break; } if (concat) { JoinStrings (prev-> strings, ptr-> strings); prev-> next = ptr-> next; next = ptr-> next; FreeStrings (ptr-> strings); free (ptr-> header); free ((char *) ptr); ptr = next; } else { prev = ptr; ptr = ptr-> next; } } else { prev = ptr; ptr = ptr-> next; } } } void SaveMail (fp) FILE *fp; { Mail ptr; const char *line; for (ptr = head; ptr != (Mail) 0; ptr = ptr-> next) { if (((ptr-> flags & READ) != READ) || ((ptr-> flags & KEEP) == KEEP)) { fprintf (fp, "%d %d %s\n", StringsSize (ptr-> strings), ptr-> flags, ptr-> header); InitStringList (ptr-> strings); while ((line = GetNextString (ptr-> strings)) != (char *) 0) fprintf (fp, "%s\n", line); } } fprintf (fp, "END OF MAILBOX\n"); } void RestoreMail (fp) FILE *fp; { Mail tail, new; char buffer [BUFSIZ]; char *ptr; int lines; tail = head; if (head != (Mail) 0) while (head-> next != (Mail) 0) head = head-> next; for (;;) { (void) fgets (buffer, BUFSIZ, fp); if (strncmp (buffer, "END OF MAILBOX", 14) == 0) return; new = (Mail) doalloc ((unsigned) sizeof (struct s_mail)); new-> next = (Mail) 0; if (head == (Mail) 0) { head = new; tail = new; } else { tail-> next = new; tail = new; } ptr = buffer; (void) ScanDigit ((ConstVP)& ptr, & lines); (void) ScanDigit ((ConstVP)& ptr, & (new-> flags)); SkipBlank ((ConstVP)& ptr); ptr [strlen (ptr) - 1] = '\0'; new-> header = Str (ptr); new-> strings = InitStrings (); SetMailType (new); while ((lines --) > 0) { (void) fgets (buffer, BUFSIZ, fp); buffer [strlen (buffer) - 1] = '\0'; AddString (new-> strings, buffer); } } } void AddMail (strings, header) Strings strings; const char * header; { Mail ptr, tail, new; new = (Mail) doalloc ((unsigned) sizeof (struct s_mail)); new-> header = Str (header); new-> strings = InitStrings (); new-> next = (Mail) 0; new-> flags = 0; SetMailType (new); JoinStrings (new-> strings, strings); if (head == (Mail) 0) head = new; else { for (ptr = head; ptr != (Mail) 0; ptr = ptr-> next) tail = ptr; tail-> next = new; } return; } static bool FindTel (header) char *header; { Mail ptr; for (ptr = head; ptr != (Mail) 0; ptr = ptr-> next) if (! strcmp (ptr-> header, header)) return True; return False; } bool FScanReadTels () { char *header; char *ptr; char *ans; Mail tail, new; bool dubble, lasttel, lastline; FeedEmpire ("read", PRINT); header = ReadEmpire (DONT_PRINT); if (StrEQ (header, "No messages")) { (void) WaitForPrompt (PRINT); return False; } if (StrEQ (header, "No telegrams")) { (void) WaitForPrompt (PRINT); return False; } PrintAtEmpire ("Empiretool: scanning read"); while (*header != '>') { header = ReadEmpire (DONT_PRINT); if (EmpireStatus () == E_COMMAND) return True; } tail = head; if (tail != (Mail) 0) while (tail-> next != (Mail) 0) tail = tail-> next; lasttel = False; while (! lasttel) { if (FindTel (header)) dubble = True; else { new = (Mail) doalloc ((unsigned) sizeof (struct s_mail)); new-> header = Str (header); new-> strings = InitStrings (); new-> next = (Mail) 0; new-> flags = 0; SetMailType (new); dubble = False; } lastline = False; while (! lastline) { ptr = ReadEmpire (DONT_PRINT); if (EmpireStatus () != E_PRINTING) { if (EmpireStatus () == E_COMMAND) { Message ("read tels out of sync"); Bell (); free ((char *) new); return True; } lastline = True; lasttel = True; } else if (*ptr == '>') { lastline = True; header = ptr; } else if (! dubble) AddString (new-> strings, ptr); } if (dubble) continue; if (tail == (Mail) 0) { tail = new; head = new; } else { tail-> next = new; tail = new; } } switch (xrc. delete_mail) { case DO_YES: ans = "yes"; break; case DO_NO: ans = "no"; break; case DO_CONFIRM: default: if (Confirm ("Delete empire mailbox ?", True)) ans = "yes"; else ans = "no"; break; } FeedEmpire (ans, DONT_PRINT); (void) WaitForPrompt (PRINT); return True; } bool FScanReadWirs () { char *header; char *ptr; char *ans; Mail tail, new; bool dubble, lasttel, lastline; FeedEmpire ("wire", PRINT); header = ReadEmpire (DONT_PRINT); if (StrEQ (header, "No messages")) { (void) WaitForPrompt (PRINT); return False; } if (StrEQ (header, "No telegrams")) { (void) WaitForPrompt (PRINT); return False; } PrintAtEmpire ("Empiretool: scanning wire"); while (*header != '>') { header = ReadEmpire (DONT_PRINT); if (EmpireStatus () == E_COMMAND) return True; } tail = head; if (tail != (Mail) 0) while (tail-> next != (Mail) 0) tail = tail-> next; lasttel = False; while (! lasttel) { if (FindTel (header)) dubble = True; else { new = (Mail) doalloc ((unsigned) sizeof (struct s_mail)); new-> header = Str (header); new-> strings = InitStrings (); new-> next = (Mail) 0; new-> flags = 0; SetMailType (new); dubble = False; } lastline = False; while (! lastline) { ptr = ReadEmpire (DONT_PRINT); if (EmpireStatus () != E_PRINTING) { if (EmpireStatus () == E_COMMAND) { Message ("wire tels out of sync"); Bell (); free ((char *) new); return True; } lastline = True; lasttel = True; } else if (*ptr == '>') { lastline = True; header = ptr; } else if (! dubble) AddString (new-> strings, ptr); } if (dubble) continue; if (tail == (Mail) 0) { tail = new; head = new; } else { tail-> next = new; tail = new; } } switch (xrc. delete_mail) { case DO_YES: ans = "yes"; break; case DO_NO: ans = "no"; break; case DO_CONFIRM: default: if (Confirm ("Delete empire mailbox ?", True)) ans = "yes"; else ans = "no"; break; } FeedEmpire (ans, DONT_PRINT); (void) WaitForPrompt (PRINT); return True; } static char *Entry (ptr) Mail ptr; { return Fmt ("%c%c%c %-3d %s", ((ptr-> flags & DELET) == DELET) ? 'D' : (((ptr-> flags & KEEP) == KEEP) ? 'K' : ' '), ((ptr-> flags & READ) == READ) ? 'R' : ' ', ((ptr-> flags & ANSWER) == ANSWER) ? 'A' : ' ', StringsSize (ptr-> strings), ptr-> header); } void ShowMail (x, y, types) int x, y, types; { Strings strings; Pager pager, pager2; register Mail ptr; Mail prev, next; int i, j; int func; bool rescan, cont; char * reply; if (head == (Mail) 0) { Message ("No messages for you at the moment"); return; } strings = (Strings) 0; rescan = True; while (rescan) { strings = InitStrings (); for (ptr = head, i = 0; ptr != (Mail) 0; ptr = ptr-> next) if (ptr-> type & types) AddStringID (strings, Entry (ptr), i ++); if (StringsSize (strings) == 0) { Message ("No messages in this group"); Bell (); FreeStrings (strings); return; } pager = InitPager (strings, (char *) 0); AddPagerFunc (pager, "Done", DONEFUNC); AddPagerFunc (pager, "Concat", CONCATFUNC); AddPagerFunc (pager, "Read new mail", NEWFUNC); SetPagerButtons (pager, "Read", "Delete", "Keep"); SetPagerButtonIDs (pager, DEFAULTFUNC, DELETEFUNC, KEEPFUNC); MapPagerFromBot (pager, map_win, x, y); rescan = False; cont = True; while (cont) { i = PagerMenuFunc (pager, & func, (int *) 0); if (i >= 0) { ptr = head; while ((ptr-> type & types) == 0) ptr = ptr-> next; j = i; while (j -- > 0) { ptr = ptr-> next; while ((ptr-> type & types) == 0) ptr = ptr-> next; } } switch (func) { case SELECT: if (i < 0) { cont = False; break; } reply = Author (ptr); pager2 = InitPager (ptr-> strings, ptr-> header); AddPagerFunc (pager2, "Write", WRITEFUNC); #ifdef X_VERSION AddPagerFunc (pager2, "To WM", TOWMFUNC); #endif /* X_VERSION */ if (reply != (char *) 0) AddPagerFunc (pager2, "Answer", ANSWERFUNC); AddPagerFunc (pager2, "Done", DONEFUNC); MapPagerFromTop (pager2, map_win, x + 2, y + 2); func = ShowPager (pager2); if (func == ANSWERFUNC) { #ifdef X_VERSION RemapPagerToWM (pager2); FreePager (pager2); #endif /* X_VERSION */ if (SendTelegram (x + 2, y + 2, reply)) { ptr-> flags |= ANSWER; if ((types & (MA_OWNTELE | MA_OWNANN)) != 0) { rescan = True; cont = False; } } #ifndef X_VERSION FreePager (pager2); #endif /* X_VERSION */ } else FreePager (pager2); ptr-> flags |= READ; if (func == CANCELALL) { cont = False; continue; } ChangeString (strings, i, Entry (ptr)); ShowPagerLine (pager, i); break; case DELETEFUNC: if (i < 0) { cont = False; break; } if ((ptr-> flags & KEEP) == KEEP) { ptr-> flags &= ~KEEP; ptr-> flags |= DELET; } else if ((ptr-> flags & DELET) == DELET) ptr-> flags &= ~DELET; else ptr-> flags |= DELET; ChangeString (strings, i, Entry (ptr)); ShowPagerLine (pager, i); break; case KEEPFUNC: if (i < 0) { cont = False; break; } if ((ptr-> flags & DELET) == DELET) { ptr-> flags &= ~DELET; ptr-> flags |= KEEP; } else if ((ptr-> flags & KEEP) == KEEP) ptr-> flags &= ~KEEP; else ptr-> flags |= KEEP; ChangeString (strings, i, Entry (ptr)); ShowPagerLine (pager, i); break; case CONCATFUNC: ConcatMail (types); cont = False; rescan = True; break; case DONEFUNC: case CANCEL: cont = False; break; case NEWFUNC: if (FScanReadTels () || FScanReadWirs ()) { cont = False; rescan = True; } break; } } FreePager (pager); FreeStrings (strings); } /* delete messages */ ptr = head; prev = (Mail) 0; while (ptr != (Mail) 0) { if ((ptr-> flags & DELET) == DELET) { next = ptr-> next; if (prev == (Mail) 0) head = ptr-> next; else prev-> next = ptr-> next; FreeStrings (ptr-> strings); free (ptr-> header); free ((char *) ptr); ptr = next; } else { prev = ptr; ptr = ptr-> next; } } } void ShowHeadLines (x, y) int x, y; { Strings strings; Pager pager; FeedEmpire ("headlines", DONT_PRINT); strings = InitStrings (); ReadEmpireStrings (strings); pager = InitPager (strings, (char *) 0); AddPagerFunc (pager, "Write", WRITEFUNC); AddPagerFunc (pager, "Done", DONEFUNC); MapPagerFromTop (pager, map_win, x, y); (void) ShowPager (pager); FreePager (pager); FreeStrings (strings); } static void Telegram (strings, command) Strings strings; char *command; { int chars, i; Strings stripped; const char * ptr; stripped = StripStrings (strings); FeedEmpire (command, PRINT); (void) WaitForPrompt (PRINT); chars = 0; InitStringList (stripped); while ((ptr = GetNextString (stripped)) != (char *) 0) { i = strlen (ptr) + 1; if (chars + i > (510 * (land_units +1 ))) { FeedEmpire (".", PRINT); (void) WaitForPrompt (PRINT); FeedEmpire (command, PRINT); (void) WaitForPrompt (PRINT); FeedEmpire (ptr, PRINT); chars = i; } else { FeedEmpire (ptr, PRINT); (void) WaitForPrompt (PRINT); chars += i; } } FreeStrings (stripped); FeedEmpire (".", PRINT); (void) WaitForPrompt (PRINT); } bool SendTelegram (x, y, country) int x, y; char *country; { Strings strings, stripped; Pager pager; bool keep; int i; #ifdef X_VERSION strings = EditStrings (80, 25); pager = InitPager (strings, Fmt ("Telegram for %s", country)); AddPagerFunc (pager, "Write", WRITEFUNC); AddPagerFunc (pager, "Read", READFUNC); AddPagerFunc (pager, "Send", DONEFUNC); AddPagerFunc (pager, "Cancel", CANCEL); SetEditPager (pager); MapPagerFromTop (pager, map_win, x, y); i = EditPager (pager); if (i == CANCEL || i == CANCELALL) { FreePager (pager); FreeStrings (strings); Message ("Telegram not send"); return; } #else /* TERMC_VERSION */ strings = InitStrings (); AddString (strings, "Subject:"); AddString (strings, Fmt ("Date: %s", DateFmt (time ((time_t *) 0)))); AppendSignature (strings); pager = InitPager (strings, "Telegram"); SetEditPager (pager); (void) EditPager (pager); if (! Confirm (Fmt ("Send this telegram (%s)", country), True)) { FreePager (pager); FreeStrings (strings); Message ("Telegram not send"); return; } strings = PagerStrings (pager); #endif /* VERSION */ Telegram (strings, Fmt ("telegram %s", country)); switch (xrc. keep_send) { case DO_YES: keep = True; break; case DO_NO: keep = False; break; case DO_CONFIRM: default: keep = Confirm ("Keep a copy of this message ?", True); break; } if (keep) { stripped = StripStrings (strings); AddMail (stripped, Fmt (">>> Telegram to %s (%s)", country, DateFmt (time ((time_t *) 0)))); FreeStrings (stripped); } FreePager (pager); FreeStrings (strings); Message ("Telegram send"); return True; } void Announce (x, y) int x, y; { Strings strings, stripped; bool keep; Pager pager; int i; #ifdef X_VERSION strings = EditStrings (80, 25); pager = InitPager (strings, "-=[ Announcement ]=-"); AddPagerFunc (pager, "Write", WRITEFUNC); AddPagerFunc (pager, "Read", READFUNC); AddPagerFunc (pager, "Send", DONEFUNC); AddPagerFunc (pager, "Cancel", CANCEL); SetEditPager (pager); MapPagerFromTop (pager, map_win, x, y); i = EditPager (pager); if (i == CANCEL || i == CANCELALL) { FreePager (pager); FreeStrings (strings); Message ("Announcement not send"); return; } #else /* TERMC_VERSION */ strings = InitStrings (); AddString (strings, "Subject:"); AddString (strings, Fmt ("Date: %s", DateFmt (time ((time_t *) 0)))); AppendSignature (strings); pager = InitPager (strings, "-=[ Announcement ]=-"); SetEditPager (pager); (void) EditPager (pager); if (! Confirm ("Send this announcement", True)) { FreePager (pager); FreeStrings (strings); Message ("Announcement not send"); return; } strings = PagerStrings (pager); #endif /* VERSION */ switch (xrc. keep_announce) { case DO_YES: keep = True; break; case DO_NO: keep = False; break; case DO_CONFIRM: default: keep = Confirm ("Keep a copy of this announcement ?", True); break; } if (keep) { stripped = StripStrings (strings); AddMail (stripped, Fmt (">>> Announcement (%s)", DateFmt (time ((time_t *) 0)))); FreeStrings (stripped); } FreePager (pager); Telegram (strings, "announce"); FreeStrings (strings); Message ("announcement send"); return; } static const char *news_menu [] = { "new news", "one day", "two days", "three days", "four days", (char *) 0 }; void News (x, y) int x, y; { Strings strings, strings2; Pager pager, pager2; int r; char *command; strings = InitStrings (); AddStringsID (strings, news_menu, 5, 0); pager = InitPager (strings, "News"); MapPagerFromTop (pager, map_win, x, y); r = PagerMenu (pager); if (r < 0) { FreePager (pager); FreeStrings (strings); return; } if (r == 0) command = "news"; else command = Fmt ("news %d", r); FeedEmpire (command, PRINT); PrintAtEmpire ("Empiretool: scanning news"); strings2 = InitStrings (); ReadEmpireStrings (strings2); pager2 = InitPager (strings2, (char *) 0); AddPagerFunc (pager2, "Write", WRITEFUNC); #ifdef X_VERSION AddPagerFunc (pager2, "To WM", TOWMFUNC); #endif X_VERSION AddPagerFunc (pager2, "Done", DONEFUNC); MapPagerFromTop (pager2, map_win, x + 2, y + 2); (void) ShowPager (pager2); FreePager (pager2); FreeStrings (strings2); FreePager (pager); FreeStrings (strings); (void) WaitForPrompt (PRINT); return; } #define CM_READ 0 #define CM_NEWS 1 #define CM_HEADL 2 #define CM_SEND 3 #define CM_ANNOUNCE 4 #define CM_REREAD 5 #define CM_SORTMAIL 6 #define CM_NR 7 static const char *comm_menu [] = { "read telegrams", "news", "headlines", "send telegram", "announce", "reread telegrams", "mail commands", (char *) 0 }; void Commun (x, y) int x, y; { int i; Pager pager; Strings strings; char *country_name; bool cont; bool reread; strings = InitStrings (); AddStringsID (strings, comm_menu, CM_NR, 0); pager = InitPager (strings, "Operator"); MapPagerFromTop (pager, map_win, x, y); reread = False; cont = True; while (cont) { i = PagerMenu (pager); switch (i) { case CM_READ: ShowMail (x + 2, y + 2, MA_ALL); cont = False; break; case CM_NEWS: News (x + 2, y + 2); break; case CM_HEADL: ShowHeadLines (x + 2, y + 2); cont = False; break; case CM_SEND: country_name = AskCountry (x + 2, y + 2, "Send to which country ?", True); if (country_name == (char *) 0) break; SendTelegram (x + 2, y + 2, country_name); cont = False; break; case CM_ANNOUNCE: Announce (x + 2, y + 2); break; case CM_REREAD: if (reread) break; if (FScanReadTels () || FScanReadWirs ()) { ShowMail (x + 2, y + 2, MA_ANNOUNCEMENT | MA_TELEGRAM); cont = False; break; } ChangePagerString (pager, CM_REREAD, "------"); ShowPagerLine (pager, CM_REREAD); reread = True; cont = True; break; case CM_SORTMAIL: MailMenu (x + 2, y + 2); break; default: cont = False; break; } } FreePager (pager); FreeStrings (strings); } /****************************************************************************** * Show mail command * *****************************************************************************/ /* should have MA_ here.... */ void InfoMailMenu (x, y, i) int x, y, i; { switch (i) { case MA_ANNOUNCEMENT: Help (x, y, "Announcement"); break; case MA_TELEGRAM: Help (x, y, "Telegram"); break; case MA_BULLETIN: Help (x, y, "Bulletin"); break; case MA_OWNTELE: Help (x, y, "Own telegrams"); break; default: Help (x, y, "No Help"); break; } } /* * Left: toggle on/off * Middle: select * Right: done */ void MailMenu (x, y) int x, y; { Strings strings; Pager pager; bool cont; int i, j; int ret; bool flag; strings = InitStrings (); j = 1; for (i = 0; i < MA_MAX; i++) { AddStringID (strings, mail_str [i], j); j *= 2; } pager = InitPager (strings, "Mail messages"); SetInfoOnPager (pager, InfoMailMenu); SetPagerButtons (pager, "toggle", "select", "done"); SetPagerButtonIDs (pager, TOGGLEFUNC, SELECTFUNC, DONEFUNC); SetPagerSelect (pager); MapPagerFromTop (pager, map_win, x, y); j = 0; cont = True; while (cont) { i = PagerMenuFunc (pager, & ret, (int *) 0); switch (ret) { case CANCEL: case CANCELALL: cont = False; break; case DONEFUNC: if (j == 0) { Message ("No groups selected"); Bell (); } else ShowMail (x + 2, y + 2, j); cont = False; break; case TOGGLEFUNC: flag = GiveStringFlag (strings, i); if (flag) j &= ~i; else j |= i; SetStringFlag (strings, i, ! flag); RemapPager (pager); break; case SELECTFUNC: j |= i; SetStringFlag (strings, i, True); RemapPager (pager); break; } } FreePager (pager); FreeStrings (strings); } /* * no arg means all mail * * B: Bulletins * A: Anouncements * T: Telegrams * R: Replies * P: Production reports * O: Output of programs */ int ParseReadArg (str) char * str; { int i; if (str == (char *) 0) return MA_ALL; i = 0; if (index (str, 'B') != (char *) 0) i |= MA_BULLETIN; if (index (str, 'A') != (char *) 0) i |= MA_ANNOUNCEMENT; if (index (str, 'T') != (char *) 0) i |= MA_TELEGRAM; if (index (str, 'O') != (char *) 0) i |= MA_OUTPUT; if (index (str, 'P') != (char *) 0) i |= MA_PRODUCT; if (index (str, 'R') != (char *) 0) i |= (MA_OWNTELE | MA_OWNANN); return i; } void BindRead (x, y, str) int x, y; char * str; { int i; i = ParseReadArg (str); if (i == 0) { Message ("Bind: Nothing selected to read (BATOPR)"); Bell (); return; } ShowMail (x, y, i); } void BindReRead (x, y, str) int x, y; char * str; { int i; i = ParseReadArg (str); if (i == 0) { Message ("Bind: Nothing selected to read (BATOPR)"); Bell (); return; } if (FScanReadTels () || FScanReadWirs ()) ShowMail (x, y, i); else Message ("No messages for you at the moment"); } void BindSend (x, y, str) int x, y; char * str; { char buf [50]; char * country_name; if (str != (char *) 0 && sscanf (str, "( %[^)]*", buf) == 1) { if (CountryId (buf) == UNKNOWN_CNUM) { Message ("Illegal usage: bind send ( country-name )"); Bell (); return; } SendTelegram (x, y, buf); } else { country_name = AskCountry (x, y, "Send to which country ?", True); if (country_name == (char *) 0) { Message ("Send cancelled"); return; } SendTelegram (x + 2, y + 2, country_name); } } /* * return last production tele, if none found first char of it is \0 * needed in reading production */ struct s_str_ent { char *str; int id; bool flag; struct s_str_ent *next; }; typedef struct s_str_ent *StrEnt; struct s_strings { StrEnt *index; int nelems; int lastid; StrEnt head, tail, current; }; char *LastProduction() { Mail ptr = NULL; Strings value = NULL; StrEnt strptr = NULL; char *return_value; return_value = (char *) malloc(20*1024); return_value[0] = '\0'; for ( ptr = head; ptr != (Mail) 0; ptr = ptr -> next) if ( ptr -> type == MA_PRODUCT ) value = ptr -> strings; if ( value != NULL ) { strptr = value -> head; while ( strptr ) { strcat( return_value, strptr -> str); strcat( return_value, "\n"); strptr = strptr -> next; } } return return_value; } void AppendSignature (strings) Strings strings; { char buffer [BUFSIZ]; FILE * fp; if (xrc. signature != (char *) 0) { fp = fopen (xrc. signature, "r"); if (fp == (FILE *) 0) { Error (Fmt ("Can't open signature file: %s", xrc. signature)); return; } while (fgets (buffer, BUFSIZ, fp) != (char *) 0) { buffer [strlen (buffer) - 1] = '\0'; AddString (strings, buffer); } fclose (fp); } } xemp5.1-beta/lib/util/natinfo.c100444 12266 2116 2762 6025354335 14772 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/util/RCS/natinfo.c,v 5.3 1995/09/12 19:00:45 jpo Exp $ $Date: 1995/09/12 19:00:45 $ $Author: jpo $ $Id: natinfo.c,v 5.3 1995/09/12 19:00:45 jpo Exp $ $Locker: $ $Log: natinfo.c,v $ Revision 5.3 1995/09/12 19:00:45 jpo Make space a little neater Revision 5.2 1995/09/12 18:51:44 jpo Change to use strings Revision 5.1 1993/03/14 16:52:57 etienne *** empty log message *** * Revision 5.0 93/02/06 09:24:11 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:45:54 greyhelm * Added RCS headers - Karl Hagen * */ #include void UtilNatInfo (x, y) int x, y; { char * ptr; RepInfo repinfo; RelInfo relinfo; int c, lines; WinInfo win; Strings strings; ptr = AskCountry (x, y, "About which country?", False); if (ptr == (char *) 0) return; c = CountryId (ptr); if (c < 0) { Panic ("UtilNatInfo", __FILE__, "Couldn't find country"); return; } if (c == 0) { Message ("No country info on the deity"); Bell (); return; } relinfo = ScanRelationsAs (c); repinfo = ScanReportAs (c); ScanPower (); strings = InitStrings (); PrintPowerString (strings, c); AddString (strings, ""); PrintRepInfo (strings, repinfo); AddString (strings, ""); PrintRelations (strings, relinfo); FreeReportInfo (repinfo); FreeRelInfo (relinfo); InitWMPager (strings, Fmt("Info about %s", ptr)); } xemp5.1-beta/lib/util/plan.c100444 12266 2116 106514 6023772662 14333 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/util/RCS/plan.c,v 5.2 1995/09/08 07:48:58 jpo Exp $ $Date: 1995/09/08 07:48:58 $ $Author: jpo $ $Id: plan.c,v 5.2 1995/09/08 07:48:58 jpo Exp $ $Locker: $ $Log: plan.c,v $ Revision 5.2 1995/09/08 07:48:58 jpo const * Revision 5.1 93/03/14 16:52:57 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:24:11 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:45:54 greyhelm * Added RCS headers - Karl Hagen * */ /* * civmin - civilians that must be move in to activate the sct * civmax - try to move in civmax civilians * civaft - civaft < civmax == 100% -> move all but civaft out * of this sector * otherwise -> move all civilians above "civaft" out * of this sector. */ #include "main.h" #include "var.h" #include "census.h" #include "sector.h" #define PLAN_MIL_NONE 0 #define PLAN_MIL_ENLIST 1 #define PLAN_MIL_IMPORT 2 #define PLAN_MODE_SILENT 0 #define PLAN_MODE_TERSE 1 #define PLAN_MODE_VERBOSE 2 #define PLAN_NR_DESIGN 25 #define PLAN_CIV_MIN 0 #define PLAN_CIV_MAX 1 #define PLAN_CIV_AFT 2 #define PLAN_CIV_N 3 #define PLAN_NR_THRESH 12 #define PLAN_THR_UW 0 #define PLAN_THR_FOO 1 #define PLAN_THR_SHE 2 #define PLAN_THR_GUN 3 #define PLAN_THR_PET 4 #define PLAN_THR_IRO 5 #define PLAN_THR_BAR 6 #define PLAN_THR_DUS 7 #define PLAN_THR_OIL 8 #define PLAN_THR_LCM 9 #define PLAN_THR_HCM 10 #define PLAN_THR_RAD 11 static char plan_thresh [] = "ufsgpibdolhr"; static char plan_design [] = "cupdimghw*aojkftrnl+)#b%e"; /* 0123456789012345678901234 */ static char plan_edit_thresh [] = "mogaujkdi%ltrp*hnfb?"; static int PlanDesToIndex _PROTO((char des)); #define PLAN_IND_MINE 5 #define PLAN_IND_OIL 11 #define PLAN_IND_GOLD 6 #define PLAN_IND_AGRI 10 #define PLAN_IND_URAN 1 #define PLAN_IND_LCM 12 #define PLAN_IND_HCM 13 #define PLAN_IND_DEF 3 #define PLAN_IND_SHEL 4 #define PLAN_IND_PET 23 #define PLAN_IND_LIBR 18 #define PLAN_IND_TECH 15 #define PLAN_IND_RESE 16 #define PLAN_IND_PARK 2 #define PLAN_IND_AIRF 9 #define PLAN_IND_HARB 7 #define PLAN_IND_NUCL 17 #define PLAN_IND_FORT 14 #define PLAN_IND_BANK 22 struct s_planentry { int plan_x, plan_y; char plandes; bool active; bool done; int priority; int civmin, civmax, civaft; int mil_how; int miln, milx, mily; int thresh [PLAN_NR_THRESH]; }; struct s_planoptions { char done_file [100]; int mode; int min_to_move; bool set_thresholds; int def_thresh [PLAN_NR_DESIGN] [PLAN_NR_THRESH]; int def_civ [PLAN_NR_DESIGN] [PLAN_CIV_N]; }; static struct s_planoptions plan_options; static void PlanSetThresholds (plan) PlanEntry plan; { int i, ind; if (! plan_options. set_thresholds) { for (i = 0; i < PLAN_NR_THRESH; i ++) plan-> thresh [i] = 0; plan-> civmax = plan-> civmin = plan-> civaft = 300; } else { ind = PlanDesToIndex (plan-> plandes); for (i = 0; i < PLAN_NR_THRESH ; i ++) plan-> thresh [i] = plan_options. def_thresh [ind] [i]; plan-> civmin = plan_options. def_civ [ind] [PLAN_CIV_MIN]; plan-> civmax = plan_options. def_civ [ind] [PLAN_CIV_MAX]; plan-> civaft = plan_options. def_civ [ind] [PLAN_CIV_AFT]; } } PlanEntry NewPlanEntry (x, y, des) int x, y; char des; { PlanEntry new; int i; new = (PlanEntry) doalloc (sizeof (struct s_planentry)); new-> plan_x = x; new-> plan_y = y; new-> plandes = des; PlanSetThresholds (new); new-> active = False; new-> priority = 100; new-> mil_how = PLAN_MIL_NONE; new-> miln = new-> milx = new-> mily = 0; return new; } /***************************************************************************** * CENSUS * *****************************************************************************/ void CensusLayPlan () { CenLine (SL_PLAN_START - 1); CenPuts (0, SL_PLAN_START, "Plan:"); CenPuts (0, SL_PLAN_START + 1, "Des:"); CenPuts (0, SL_PLAN_START + 2, "Active:"); CenPuts (0, SL_PLAN_START + 3, "Priority:"); CenLine (SL_PLAN_CIVS - 1); CenPuts (0, SL_PLAN_CIVS, "Civ min:"); CenPuts (0, SL_PLAN_CIVS + 1, " max:"); CenPuts (0, SL_PLAN_CIVS + 2, " aft:"); CenPuts (0, SL_PLAN_CIVS + 3, "Mils:"); CenLine (SL_PLAN_THRESH - 1); CenPuts (0, SL_PLAN_THRESH, "Thresholds:"); CenPuts (0, SL_PLAN_THRESH + 1, "uw foo she"); CenPuts (0, SL_PLAN_THRESH + 2, "gun pet iro"); CenPuts (0, SL_PLAN_THRESH + 3, "bar dus oil"); CenPuts (0, SL_PLAN_THRESH + 4, "lcm hcm rad"); CenLine (SL_PLAN_THRESH + 5); } static void ClearCensusPlan () { CenPuts (0, SL_PLAN_START, " "); CenPuts (4, SL_PLAN_START + 1, " "); CenPuts (7, SL_PLAN_START + 2, " "); CenPuts (9, SL_PLAN_START + 3, " "); CenPuts (8, SL_PLAN_CIVS, " "); CenPuts (8, SL_PLAN_CIVS + 1, " "); CenPuts (8, SL_PLAN_CIVS + 2, " "); CenPuts (5, SL_PLAN_CIVS + 3, " "); ClearCols (SL_PLAN_THRESH + 1, 4); CenClr (SL_PLAN_THRESH + 6); CenClr (SL_PLAN_THRESH + 7); } void PlanCensus (sct) Sector sct; { PlanEntry plan; int x, y, i; ClearCensusPlan (); plan = s_owned (sct) ? s_plan (sct) : (PlanEntry) 0; if (plan == (PlanEntry) 0) { CenPuts (9, SL_PLAN_START, "No plan"); return; } CenPuts (0, SL_PLAN_START, " * P L A N *"); CenPutVal (5, SL_PLAN_START + 1, DesignName (plan-> plandes)); CenPutVal (8, SL_PLAN_START + 2, plan-> active ? "Yes" : "No"); CenPutVal (10, SL_PLAN_START + 3, Fmt ("%d/%d", (int) plan-> priority / 100, plan-> priority % 100)); CenPutInt (9, SL_PLAN_CIVS, plan-> civmin); CenPutInt (9, SL_PLAN_CIVS + 1, plan-> civmax); CenPutInt (9, SL_PLAN_CIVS + 2, plan-> civaft); CenPuts (0, SL_PLAN_CIVS + 3, "Mils: "); switch (plan-> mil_how) { case PLAN_MIL_NONE: CenPutVal (6, SL_PLAN_CIVS + 3, "None"); break; case PLAN_MIL_ENLIST: CenPutVal (6, SL_PLAN_CIVS + 3, Fmt ("Enlist %d", plan-> miln)); break; case PLAN_MIL_IMPORT: CenPutVal (6, SL_PLAN_CIVS + 3, Fmt ("Import from %d,%d", plan-> milx, plan-> mily)); break; } i = 0; for (y = 0; y <= 3; y ++) for (x = 4; x <= 22; x += 9) if (plan-> thresh [i ++] > 0) CenPutInt (x, SL_PLAN_THRESH + y + 1, plan-> thresh [i - 1]); CensusPlanProduce (census_win, SL_PLAN_THRESH + 6, plan-> plandes, plan-> civmin, plan-> civmax, sct); } void PlanCensusButton (x, y) int x, y; { PlanEntry plan; char * ans, * ptr; int i, j; plan = s_owned (cursct) ? s_plan (cursct) : (PlanEntry) 0; if (plan == (PlanEntry) 0 && y == SL_PLAN_START) { if (! s_owned (cursct)) { Message ("You can only plan owned sectors!"); Bell (); return; } if (s_pat (cursct) == (char *) 0 || * s_pat (cursct) == '_') { Message ("This sector doesn't have a warehouse!"); Bell (); } plan = NewPlanEntry (s_xcd (cursct), s_ycd (cursct), s_nds (cursct)); set_plan (cursct, plan); PlanCensus (cursct); return; } if (plan == (PlanEntry) 0) return; if (y == SL_PLAN_START) { if (! Confirm ("Delete plan", True)) return; (void) free ((char *) s_plan (cursct)); set_plan (cursct, (PlanEntry) 0); PlanCensus (cursct); return; } if (y == SL_PLAN_START + 1) { CenPuts (5, y, " "); ans = GetString (census_win, 5, y, 1, plan_design); if (ans == (char *) 0 || interrupt || * ans == '\0') { PlanCensus (cursct); return; } plan-> plandes = * ans; PlanSetThresholds (plan); PlanCensus (cursct); return; } if (y == SL_PLAN_START + 2) { plan-> active = ! plan-> active; PlanCensus (cursct); return; } if (y == SL_PLAN_START + 3) { CenPuts (10, y, " "); ans = GetString (census_win, 10, y, 5, "0-9/"); if (ans == (char *) 0 || interrupt || * ans == '\0') { PlanCensus (cursct); return; } ptr = index (ans, '/'); if (ptr == (char *) 0) plan-> priority = 100 * atoi (ans); else plan-> priority = atoi (ans) * 100 + atoi (ptr + 1); PlanCensus (cursct); return; } if (y >= SL_PLAN_CIVS && y <= SL_PLAN_CIVS + 2) { CenPuts (9, y, " "); ans = GetString (census_win, 9, y, 3, "0-9"); if (ans == (char *) 0 || interrupt || * ans == '\0') { PlanCensus (cursct); return; } switch (y - SL_PLAN_CIVS) { case 0: plan-> civmin = atoi (ans); break; case 1: plan-> civmax = atoi (ans); break; case 2: plan-> civaft = atoi (ans); break; } PlanCensus (cursct); return; } if (y == SL_PLAN_CIVS + 3) { CenPutVal (0, y, "[e]nl, [i]mp, [n]one: "); ans = GetString (census_win, 22, y, 1, "ein"); if (ans == (char *) 0 || interrupt || * ans == '\0') { PlanCensus (cursct); return; } switch (* ans) { case 'n': plan-> mil_how = PLAN_MIL_NONE; break; case 'e': CenPutVal (0, y, "# mils to enlist: "); ans = GetString (census_win, 18, y, 5, "0-9"); if (ans == (char *) 0 || interrupt || * ans == '\0') { PlanCensus (cursct); return; } plan-> mil_how = PLAN_MIL_ENLIST; plan-> miln = atoi (ans); break; case 'i': CenPutVal (0, y, "# mils to import: "); ans = GetString (census_win, 18, y, 5, "0-9"); if (ans == (char *) 0 || interrupt || * ans == '\0') { PlanCensus (cursct); return; } plan-> miln = atoi (ans); CenPutVal (0, y, "Import from: "); ans = GetString (census_win, 12, y, 9, GS_SECTOR); if (ans == (char *) 0 || interrupt || * ans == '\0') { PlanCensus (cursct); return; } if (sscanf (ans, "%d,%d", & i, & j) != 2) { Message ("Illegal sector format"); Bell (); PlanCensus (cursct); return; } plan-> milx = i; plan-> mily = j; plan-> mil_how = PLAN_MIL_IMPORT; } PlanCensus (cursct); return; } if (y >= SL_PLAN_THRESH + 1 && y <= SL_PLAN_THRESH + 4) { i = y - (SL_PLAN_THRESH + 1); if (x < 9) j = 0; else if (x < 18) j = 1; else j = 2; x = 4 + 9 * j; i = 3 * i + j; CenPuts (x, y, " "); ans = GetString (census_win, x, y, 4, "0-9"); if (ans == (char *) 0 || interrupt || * ans == '\0') { PlanCensus (cursct); return; } plan-> thresh [i] = atoi (ans); PlanCensus (cursct); return; } } /***************************************************************************** * DATA FILES * *****************************************************************************/ void SavePlanInfo (sct, fp) Sector sct; FILE * fp; { if (fwrite ((char *) s_plan (sct), sizeof (struct s_planentry), 1, fp) != 1) perror ("fwrite"); } void LoadPlanInfo (sct, fp) Sector sct; FILE * fp; { PlanEntry plan; plan = NewPlanEntry (s_xcd (sct), s_ycd (sct), s_des (sct)); set_plan (sct, plan); if (fread ((char *) plan, sizeof (struct s_planentry), 1, fp) != 1) perror ("fread"); } /***************************************************************************** * OPTIONS * *****************************************************************************/ void InitPlanOptions () { int i, j; plan_options. mode = PLAN_MODE_TERSE; plan_options. min_to_move = 5; plan_options. set_thresholds = False; plan_options. done_file [0] = '\0'; for (i = 0; i < PLAN_NR_DESIGN; i ++) { for (j = 0; j < PLAN_NR_THRESH; j ++) plan_options. def_thresh [i] [j] = 0; plan_options. def_thresh [i] [PLAN_THR_FOO] = 50; for (j = 0; j < PLAN_CIV_N; j ++) plan_options. def_civ [i] [j] = 100; } plan_options. def_thresh [PLAN_IND_MINE] [PLAN_THR_IRO] = 1; plan_options. def_thresh [PLAN_IND_OIL] [PLAN_THR_OIL] = 1; plan_options. def_thresh [PLAN_IND_GOLD] [PLAN_THR_DUS] = 1; plan_options. def_thresh [PLAN_IND_URAN] [PLAN_THR_RAD] = 1; plan_options. def_thresh [PLAN_IND_LCM] [PLAN_THR_LCM] = 1; plan_options. def_thresh [PLAN_IND_LCM] [PLAN_THR_IRO] = 250; plan_options. def_thresh [PLAN_IND_HCM] [PLAN_THR_HCM] = 1; plan_options. def_thresh [PLAN_IND_HCM] [PLAN_THR_IRO] = 250; plan_options. def_thresh [PLAN_IND_DEF] [PLAN_THR_HCM] = 100; plan_options. def_thresh [PLAN_IND_DEF] [PLAN_THR_LCM] = 50; plan_options. def_thresh [PLAN_IND_DEF] [PLAN_THR_OIL] = 10; plan_options. def_thresh [PLAN_IND_DEF] [PLAN_THR_GUN] = 1; plan_options. def_thresh [PLAN_IND_SHEL] [PLAN_THR_LCM] = 200; plan_options. def_thresh [PLAN_IND_SHEL] [PLAN_THR_HCM] = 100; plan_options. def_thresh [PLAN_IND_SHEL] [PLAN_THR_SHE] = 1; plan_options. def_thresh [PLAN_IND_PET] [PLAN_THR_OIL] = 50; plan_options. def_thresh [PLAN_IND_PET] [PLAN_THR_PET] = 1; plan_options. def_thresh [PLAN_IND_LIBR] [PLAN_THR_LCM] = 250; plan_options. def_thresh [PLAN_IND_TECH] [PLAN_THR_LCM] = 200; plan_options. def_thresh [PLAN_IND_TECH] [PLAN_THR_OIL] = 100; plan_options. def_thresh [PLAN_IND_TECH] [PLAN_THR_DUS] = 20; plan_options. def_thresh [PLAN_IND_RESE] [PLAN_THR_LCM] = 200; plan_options. def_thresh [PLAN_IND_RESE] [PLAN_THR_OIL] = 100; plan_options. def_thresh [PLAN_IND_RESE] [PLAN_THR_DUS] = 20; plan_options. def_thresh [PLAN_IND_PARK] [PLAN_THR_LCM] = 250; plan_options. def_thresh [PLAN_IND_AIRF] [PLAN_THR_LCM] = 200; plan_options. def_thresh [PLAN_IND_AIRF] [PLAN_THR_HCM] = 100; plan_options. def_thresh [PLAN_IND_AIRF] [PLAN_THR_PET] = 500; plan_options. def_thresh [PLAN_IND_AIRF] [PLAN_THR_SHE] = 100; plan_options. def_thresh [PLAN_IND_HARB] [PLAN_THR_LCM] = 200; plan_options. def_thresh [PLAN_IND_HARB] [PLAN_THR_HCM] = 100; plan_options. def_thresh [PLAN_IND_HARB] [PLAN_THR_SHE] = 100; plan_options. def_thresh [PLAN_IND_HARB] [PLAN_THR_GUN] = 20; plan_options. def_thresh [PLAN_IND_NUCL] [PLAN_THR_LCM] = 200; plan_options. def_thresh [PLAN_IND_NUCL] [PLAN_THR_HCM] = 200; plan_options. def_thresh [PLAN_IND_NUCL] [PLAN_THR_OIL] = 100; plan_options. def_thresh [PLAN_IND_NUCL] [PLAN_THR_RAD] = 100; plan_options. def_thresh [PLAN_IND_FORT] [PLAN_THR_SHE] = 100; plan_options. def_thresh [PLAN_IND_FORT] [PLAN_THR_GUN] = 10; plan_options. def_thresh [PLAN_IND_BANK] [PLAN_THR_DUS] = 25; } void SavePlanOptions (fp) FILE * fp; { int i, j; fprintf (fp, "%d %d %d '%s'\n", plan_options. mode, plan_options. min_to_move, plan_options. set_thresholds, plan_options. done_file); for (i = 0; i < PLAN_NR_DESIGN; i ++) { for (j = 0; j < PLAN_NR_THRESH; j ++) fprintf (fp, "%d ", plan_options. def_thresh [i] [j]); for (j = 0; j < PLAN_CIV_N; j ++) fprintf (fp, "%d ", plan_options. def_civ [i] [j]); fprintf (fp, "\n"); } fprintf (fp, "END OF PLAN OPTIONS\n"); } void LoadPlanOptions (fp) FILE * fp; { int i, j; char buffer [200]; char * ptr; (void) fgets (buffer, 200, fp); sscanf (buffer, "%d %d %d '%[^']'\n", & plan_options. mode, & plan_options. min_to_move, & plan_options. set_thresholds, plan_options. done_file); for (i = 0; i < PLAN_NR_DESIGN; i ++) { if (fgets (buffer, 200, fp) == (char *) 0) return; ptr = buffer; for (j = 0; j < PLAN_NR_THRESH; j ++) ScanDigit ((ConstVP)& ptr, & plan_options. def_thresh [i] [j]); for (j = 0; j < PLAN_CIV_N; j ++) ScanDigit ((ConstVP)& ptr, & plan_options. def_civ [i] [j]); } (void) fgets (buffer, 200, fp); } static char PlanYToDes (y) int y; { if (y < 1 || y > strlen (plan_edit_thresh)) return '\0'; return plan_edit_thresh [y - 1]; } static int PlanDesToIndex (des) char des; { char * ptr; ptr = index (plan_design, des); if (ptr == (char *) 0) return 0; else return (int) (ptr - plan_design); } static void EditPlanThreshold () { WinInfo win; char * ptr; int x, y; int ind, i; char * ans, des; int button; #ifdef TERMC_VERSION win = OpenWindow (map_win, 2, 2, 77, 22, 0, FULL_BOX, 0); #else win = OpenRelToRoot (census_win, 12, 10, 70, 22, CHARS, 0); #endif PrintN (win, 0, 0, " uw foo she gun pet iro bar dus oil lcm hcm rad min max aft"); y = 0; for (ptr = plan_edit_thresh; * ptr != '\0'; ptr ++) { PrintN (win, 0, ++ y, Fmt ("%c", * ptr)); PrintN (win, 53, y, Fmt ("%c", * ptr)); PrintN (win, 68, y, Fmt ("%c", * ptr)); } y = 0; for (ptr = plan_edit_thresh; * ptr != '\0'; ptr ++, y ++) { ind = PlanDesToIndex (* ptr); for (i = 0; i < PLAN_NR_THRESH; i ++) if (plan_options. def_thresh [ind] [i] > 0) PrintB (win, (1 + i) * 4, y + 1, Fmt ("%d", plan_options. def_thresh [ind] [i])); for (i = 0; i < PLAN_CIV_N; i ++) if (plan_options. def_civ [ind] [i] > 0) PrintB (win, 55 + i * 4, y + 1, Fmt ("%d", plan_options. def_civ [ind] [i])); } for (;;) { FlushWindow (win); if (! SelButtonAtWin (win, & x, & y, & button)) break; if (button == MIDDLE_BUTTON) break; des = PlanYToDes (y); if (des == '\0') continue; ind = PlanDesToIndex (des); if (x >= 4 && x <= 50) { i = (int) (x - 4) / 4; x = 4 + i * 4; PrintN (win, x, y, " "); ans = GetString (win, x, y, 3, "0-9"); if (ans == (char *) 0 || interrupt || * ans == '\0') { PrintN (win, x, y, " "); if (plan_options. def_thresh [ind] [i] > 0) PrintB (win, x, y, Fmt ("%d", plan_options. def_thresh [ind] [i])); continue; } plan_options. def_thresh [ind] [i] = atoi (ans); if (atoi (ans) == 0) PrintN (win, x, y, " "); if (button == RIGHT_BUTTON) { for (y = 1, ptr = plan_edit_thresh; * ptr != '\0'; ptr ++, y ++) { ind = PlanDesToIndex (* ptr); plan_options. def_thresh [ind] [i] = atoi (ans); if (atoi (ans) > 0) PrintB (win, 4 * i + 4, y, Fmt ("%-3d", atoi (ans))); } } continue; } if (x >= 55 && x <= 65) { i = (int) (x - 55) / 4; x = 55 + i * 4; PrintN (win, x, y, " "); ans = GetString (win, x, y, 3, "0-9"); if (ans == (char *) 0 || interrupt || * ans == '\0') { PrintB (win, x, y, Fmt ("%-3d", plan_options. def_civ [ind] [i])); continue; } plan_options. def_civ [ind] [i] = atoi (ans); continue; } } DestroyWindow (win); } #define PLAN_NO_FUNC -1 #define PLAN_RUN_FUNC 0 #define PLAN_CHANGE_FUNC 1 #define PLAN_OUTPUT_FUNC 2 #define PLAN_DONE_FUNC 3 #define PLAN_MINCIV_FUNC 4 #define PLAN_THRESH_FUNC 5 #define PLAN_EXIT_FUNC 6 #define PLAN_RUN_Y 3 #define PLAN_CHANGE_Y 4 #define PLAN_OUTPUT_Y 6 #define PLAN_DONE_Y 7 #define PLAN_MINCIV_Y 8 #define PLAN_THRESH_Y 9 #define PLAN_EXIT_Y 11 void PlanUtil (wx, wy) int wx, wy; { WinInfo win; bool cont; int button; int func; int x, y; char * ans, ch; int i; #ifdef TERMC_VERSION win = OpenWindow (map_win, 2, 8, 70, 12, 0, FULL_BOX, 0); #else win = OpenRelToRoot (census_win, 10, 2, 70, 15, MENU, 0); #endif PrintB (win, 1, 1, "Plan utility"); #ifdef X_VERSION PrintB (win, 1, 3, "* Run plan utility"); PrintB (win, 1, 4, "* Change default thresholds"); PrintB (win, 1, 6, Fmt ("* Plan output mode: %s", plan_options. mode == PLAN_MODE_SILENT ? "Silent" : plan_options. mode == PLAN_MODE_TERSE ? "Terse" : "Verbose")); PrintB (win, 1, 7, Fmt ("* Done file: %s", plan_options. done_file [0] == '\0' ? "None" : plan_options. done_file)); PrintB (win, 1, 8, Fmt ("* Min civs to move: %d", plan_options. min_to_move)); PrintB (win, 1, 9, Fmt ("* Set defaults: %s", plan_options. set_thresholds ? "Yes" : "No")); PrintB (win, 1, 11, "* Exit"); #else /* TERMC_VERSION */ PrintB (win, 1, 3, "[R] Run plan utility"); PrintB (win, 1, 4, "[C] Change default thresholds"); PrintB (win, 1, 6, Fmt ("[O] Plan output mode: %s", plan_options. mode == PLAN_MODE_SILENT ? "Silent" : plan_options. mode == PLAN_MODE_TERSE ? "Terse" : "Verbose")); PrintB (win, 1, 7, Fmt ("[D] Done file: %s", plan_options. done_file [0] == '\0' ? "None" : plan_options. done_file)); PrintB (win, 1, 8, Fmt ("[M] Min civs to move: %d", plan_options. min_to_move)); PrintB (win, 1, 9, Fmt ("[S] Set defaults: %s", plan_options. set_thresholds ? "Yes" : "No")); PrintB (win, 1, 11, "[X] Exit"); #endif cont = True; while (cont) { FlushWindow (win); #ifdef X_VERSION if (! SelButtonAtWin (win, & x, & y, & button) || button == MIDDLE_BUTTON) { cont = False; break; } func = PLAN_NO_FUNC; #else SelectButtonChar (& button, & ch, & x, & y, "RCODMSX\033"); if (interrupt || ch != '\0') { if (interrupt) { interrupt = False; cont = False; break; } else { if (ch == '\033') { cont = False; break; } switch (ch) { case 'R': func = PLAN_RUN_FUNC; y = PLAN_RUN_Y; break; case 'C': func = PLAN_CHANGE_FUNC; break; case 'O': func = PLAN_OUTPUT_FUNC; y = PLAN_OUTPUT_Y; x = 21; break; case 'D': func = PLAN_DONE_FUNC; y = PLAN_DONE_Y; x = 14; break; case 'M': func = PLAN_MINCIV_FUNC; y = PLAN_MINCIV_Y; x = 21; break; case 'S': func = PLAN_THRESH_FUNC; y = PLAN_THRESH_Y; x = 17; break; case 'X': func = PLAN_EXIT_FUNC; break; default: func = PLAN_NO_FUNC; break; } } } else if (button == MIDDLE_BUTTON) { cont = False; break; } #endif /* TERMC_VERSION */ if (func == PLAN_NO_FUNC) switch (y) { case PLAN_RUN_Y: func = PLAN_RUN_FUNC; break; case PLAN_CHANGE_Y: func = PLAN_CHANGE_FUNC; break; case PLAN_OUTPUT_Y: func = PLAN_OUTPUT_FUNC; x = 21; break; case PLAN_DONE_Y: func = PLAN_DONE_FUNC; x = 14; break; case PLAN_MINCIV_Y: func = PLAN_MINCIV_FUNC; x = 21; break; case PLAN_THRESH_Y: func = PLAN_THRESH_FUNC; x = 17; break; case PLAN_EXIT_Y: func = PLAN_EXIT_FUNC; break; default: func = PLAN_NO_FUNC; break; } #ifdef TERMC_VERSION x += 2; #endif switch (func) { case PLAN_RUN_FUNC: Message ("Running plan"); RunPlan (); break; case PLAN_CHANGE_FUNC: EditPlanThreshold (); break; case PLAN_OUTPUT_FUNC: switch (plan_options. mode) { case PLAN_MODE_SILENT: i = PLAN_MODE_TERSE; ans = "Terse "; break; case PLAN_MODE_TERSE: i = PLAN_MODE_VERBOSE; ans = "Verbose"; break; case PLAN_MODE_VERBOSE: i = PLAN_MODE_SILENT; ans = "Silent "; break; } PrintB (win, x, y, ans); plan_options. mode = i; break; case PLAN_DONE_FUNC: PrintB (win, x, y, " "); ans = GetString (win, x, y, 40, GS_TEXT); if (ans == (char *) 0 || interrupt) { PrintB (win, x, y, plan_options. done_file [0] == '\0' ? "None" : plan_options. done_file); continue; } if (* ans == '\0') { plan_options. done_file [0] = '\0'; PrintB (win, x, y, "None"); } else (void) strcpy (plan_options. done_file, ans); continue; case PLAN_MINCIV_FUNC: PrintB (win, x, y, " "); ans = GetString (win, x, y, 3, "0-9"); if (ans != (char *) 0 && ! interrupt && * ans != '\0') plan_options. min_to_move = atoi (ans); PrintB (win, x, y, Fmt ("%d", plan_options. min_to_move)); continue; case PLAN_THRESH_FUNC: plan_options. set_thresholds = plan_options. set_thresholds ? False : True; PrintB (win, x, y, plan_options. set_thresholds ? "Yes " : "No "); break; case PLAN_EXIT_FUNC: cont = False; break; } } DestroyWindow (win); } /***************************************************************************** * RUN PLAN * *****************************************************************************/ struct s_sctinfo { int x, y; int civs; int priority; Sector sct; PlanEntry plan; }; typedef struct s_sctinfo * SctInfo; #undef DLISTPTR #undef ENTRYPTR #define DLISTPTR DSList #define ENTRYPTR SctInfo #include "dlist.h" /* * Returns (char *) 0 if everything went ok. * Otherwise an error message */ static void PlanCheckMils (sct, strings) Sector sct; Strings strings; { PlanEntry plan; int quant; Sector mils; plan = s_plan (sct); if (s_mil (sct) >= plan-> miln) return; switch (plan-> mil_how) { case PLAN_MIL_NONE: return; case PLAN_MIL_ENLIST: if (s_occ (sct) == '*') { AddString (strings, Fmt ("Couldn't enlist mil in %s", CrdStr (sct))); AddString (strings, "-> sector is occupied."); return; } FeedCommand (Fmt ("enlist %s -%d", CrdStr (sct), plan-> miln), PRINT); set_mil (sct, plan-> miln); if (plan_options. mode == PLAN_MODE_VERBOSE) AddString (strings, Fmt ("%d enlisted in %s", plan-> miln, CrdStr (sct))); return; case PLAN_MIL_IMPORT: mils = World (plan-> milx, plan-> mily, S_EXIST); if (mils == (Sector) 0 || ! s_owned (mils)) { AddString (strings, Fmt ("Couldn't import %d mil to %s.", plan-> miln, CrdStr (sct))); AddString (strings, Fmt ("-> You don't own %d,%d", plan-> milx, plan-> mily)); return; } quant = plan-> miln - s_mil (sct); if (! ExecMove (mils, sct, quant, 'm')) { AddString (strings, Fmt ("Couldn't import %d mil to %s.", plan-> miln, CrdStr (sct))); AddString (strings, "-> move failed."); return; } if (plan_options. mode == PLAN_MODE_VERBOSE) AddString (strings, Fmt ("%d mil moved from %s to %s", quant, CrdStr (mils), CrdStr (sct))); } } static bool PlanActivateSector (sct, strings) Sector sct; Strings strings; { PlanEntry plan; Sector wareh; int wx, wy; int quant; int i, j, k; char item; plan = s_plan (sct); /* 1 - Import food */ wareh = (Sector) 0; if (s_pat (sct) != (char *) 0 && * s_pat (sct) != '_') { wx = s_dxc (sct); wy = s_dyc (sct); wareh = World (wx, wy, S_EXIST); if (! s_owned (wareh)) wareh = (Sector) 0; } quant = (plan-> civmax + plan-> miln + q_uw (sct)) * etu_per_update * eatrate; /* hope 5 is enough for the new babies */ quant += 5; quant -= q_foo (sct); if (quant > 0) { if (wareh == (Sector) 0) { AddString (strings, Fmt ("Couldn't activate sector %d,%d", s_xcd (sct), s_ycd (sct))); AddString (strings, "-> Doesn't have a warehouse. Needs food"); return False; } if (! ExecMove (wareh, sct, quant, 'f')) { AddString (strings, Fmt ("Couldn't activate sector %s", CrdStr (sct))); AddString (strings, Fmt ("-> Couldn't import %d food from %s", quant, CrdStr (wareh))); return False; } if (plan_options. mode == PLAN_MODE_VERBOSE) AddString (strings, Fmt ("Moved %d food to %s (from %s)", quant, CrdStr (sct), CrdStr (wareh))); } /* 2 - Set Thresholds */ for (i = 0; i < PLAN_NR_THRESH; i ++) { item = plan_thresh [i]; j = GetThreshold (sct, item); k = plan-> thresh [i]; if (j != k) { FeedCommand (Fmt ("threshold %c %s %d", item, CrdStr (sct), k), PRINT); SetThreshold (sct, item, k); if (plan_options. mode != PLAN_MODE_SILENT) AddString (strings, Fmt ("Set threshold %s to %d in %s", ItemName (CharToItem (item)), k, CrdStr (sct))); } } /* 3 - Check mils */ PlanCheckMils (sct, strings); return True; } void RunPlanRec (sct, from, to, civ_from, civ_to, strings) Sector sct; DSList from, to; int * civ_from, * civ_to; Strings strings; { SctInfo sinfo, ptr; Sector sect; PlanEntry plan; Neighb neighb; int civs; plan = s_plan (sct); plan-> done = True; /* Check if sct is active */ if (! plan-> active && s_civ (sct) > 10) { if (s_nds (sct) == plan-> plandes) { if (PlanActivateSector (sct, strings)) { if (plan_options. mode == PLAN_MODE_VERBOSE) AddString (strings, Fmt ("Activated %s [no civ move]", CrdStr (sct))); plan-> active = True; } } } civs = 0; if (plan-> active) { if (plan-> civaft < plan-> civmax) { if (s_eff (sct) == 100) { civs = s_civ (sct) - plan-> civaft; if (civs >= plan_options. min_to_move) { sinfo = DLAddElem (from, TAIL); sinfo-> civs = civs; sinfo-> sct = sct; sinfo-> plan = plan; * civ_from += civs; } } else if (plan-> civmax > s_civ (sct)) { civs = s_civ (sct) - plan-> civmax; } } else { civs = s_civ (sct) - plan-> civaft; if (civs > plan_options. min_to_move) { sinfo = DLAddElem (from, TAIL); sinfo-> civs = civs; sinfo-> sct = sct; sinfo-> plan = plan; * civ_from += civs; } civs = s_civ (sct) - plan-> civmax; } } if (civs < 0 || ! plan-> active) { if (! plan-> active) civs = plan-> civmax - s_civ (sct); else civs = - civs; sinfo = (SctInfo) 0; for (ptr = DLGet (to, HEAD); ptr != (SctInfo) 0; ptr = DLGet (to, NEXT)) { if (ptr-> priority > plan-> priority) { sinfo = DLInsElem (to, CURRENT); break; } } if (sinfo == (SctInfo) 0) sinfo = DLAddElem (to, TAIL); sinfo-> priority = plan-> priority; sinfo-> plan = plan; sinfo-> sct = sct; sinfo-> civs = civs; * civ_to += civs; } InitNeighbours (sct, & neighb); while (NextNeighbour (& sect, S_EXIST, neighb)) if (sect != (Sector) 0 && s_owned (sect)) { plan = s_plan (sect); if (plan != (PlanEntry) 0) if (! plan-> done) RunPlanRec (sect, from , to, civ_from, civ_to, strings); } } static int PlanMove (from, tsct, i, strings) DSList from; Sector tsct; /* read as to sct */ int i; Strings strings; { Sector best_from, fsct; SctInfo sinfo, best, ptr; double cost, best_cost; int mob_allows, quant; char * path; best_cost = 9999.9; best_from = (Sector) 0; fsct = (Sector) 0; for (sinfo = DLGet (from, HEAD); sinfo != (SctInfo) 0; sinfo = DLGet (from, NEXT)) { fsct = sinfo-> sct; path = BestLandPath (fsct, tsct); if (path == (char *) 0) /* can not happen, but .. */ continue; cost = RealPathCost (fsct, path); if (strlen (path) == 1 || cost == 0.0) break; if (cost < best_cost) { best_cost = cost; best_from = fsct; best = sinfo; } } if (sinfo == (SctInfo) 0) { cost = best_cost; fsct = best_from; sinfo = best; } if (fsct == (Sector) 0) return 0; /* Error ? */ if (cost == 0.0) mob_allows = 99999; else mob_allows = (int) (s_mob (fsct) / (cost * ItemWeight (V_CIVIL, NPKG))); if (mob_allows == 0) return 0; quant = i; if (quant > sinfo-> civs) quant = sinfo-> civs; if (quant > mob_allows) quant = mob_allows; if (! ExecMove (fsct, tsct, quant, 'c')) { AddString (strings, Fmt ( "Move (%d civ from %s to %s) failed", quant, CrdStr (fsct), CrdStr (tsct))); return 0; } if (plan_options. mode != PLAN_MODE_TERSE) AddString (strings, Fmt ("Moved %d civilians from %s to %s", quant, CrdStr (fsct), CrdStr (tsct))); if (quant == sinfo-> civs) { if (plan_options. mode == PLAN_MODE_VERBOSE) AddString (strings, Fmt ("Sector %s exhausted", CrdStr (sinfo-> sct))); for (ptr = DLGet (from, HEAD); ptr != (SctInfo) 0; ptr = DLGet (from, NEXT)) if (ptr == sinfo) DLDelete (from, CURRENT, FREE); } else sinfo-> civs -= quant; if (quant < i) return quant + PlanMove (from, tsct, i - quant, strings); else return quant; } Strings DoRunPlan (sct) Sector sct; { PlanEntry plan; DSList from, to; int civ_from, civ_to; int x, y, i, j; Sector sect; Strings strings; SctInfo sinfo; from = DLNew (0, sizeof (struct s_sctinfo)); to = DLNew (0, sizeof (struct s_sctinfo)); civ_from = 0; civ_to = 0; for (x = 0; x < MAX_X; x ++) for (y = 0; y < MAX_Y; y++) { sect = World (x, y, S_EXIST); if (sect == (Sector) 0 || ! s_owned (sect)) continue; plan = s_plan (sect); if (plan == (PlanEntry) 0) continue; plan-> done = False; } strings = InitStrings (); RunPlanRec (sct, from, to, & civ_from, & civ_to, strings); if (plan_options. mode == PLAN_MODE_VERBOSE) { AddString (strings, Fmt ("Civilians to distribute: %d", civ_from)); AddString (strings, Fmt ("Civilians needed: %d", civ_to)); AddString (strings, ""); AddString (strings, Fmt ("To sector list (%d sectors):", DLElems (to))); for (sinfo = DLGet (to, HEAD); sinfo != (SctInfo) 0; sinfo = DLGet (to, NEXT)) AddString (strings, Fmt ("%-10s %c needs %-3d civs", CrdStr (sinfo-> sct), sinfo-> plan-> plandes, sinfo-> civs)); AddString (strings, ""); AddString (strings, Fmt ("From sector list (%d sectors):", DLElems (from))); for (sinfo = DLGet (from, HEAD); sinfo != (SctInfo) 0; sinfo = DLGet (from, NEXT)) AddString (strings, Fmt ("%-10s %c spends %-3d civs", CrdStr (sinfo-> sct), sinfo-> plan-> plandes, sinfo-> civs)); AddString (strings, ""); } for (sinfo = DLGet (to, HEAD); sinfo != (SctInfo) 0 && civ_from > 0 && DLElems (from) > 0; sinfo = DLGet (to, NEXT)) { plan = sinfo-> plan; sct = sinfo-> sct; if (civ_from < plan-> civmin && ! plan-> active) continue; i = plan-> civmax; if (i > civ_from) i = civ_from; if (! PlanActivateSector (sct, strings)) { AddString (strings, Fmt ("Sector %s skipped", CrdStr (sct))); continue; } if (plan_options. mode != PLAN_MODE_SILENT) AddString (strings, Fmt ("Activated %s", CrdStr (sct))); plan-> active = True; j = PlanMove (from, sct, sinfo-> civs , strings); if (plan-> plandes != s_nds (sct)) { DoDesignate (CrdStr (sct), plan-> plandes); if (plan_options. mode == PLAN_MODE_VERBOSE) AddString (strings, Fmt ("Redesignated %s to a %s", CrdStr (sct), DesignName (plan-> plandes))); } civ_from -= j; } return strings; } void RunPlan () { Sector sct; int x, y; Strings strings; SctInfo sinfo; char * ans; ans = InputAtMessage ("Start at which sector: ", 9, GS_SECTOR); if (ans == (char *) 0 || interrupt || * ans == '\0') { Message ("Run plan cancelled."); return; } if (sscanf (ans, "%d,%d", & x, & y) != 2) { Bell (); Message ("Illegal sector format !"); return; } sct = World (x, y, S_EXIST); if (sct == (Sector) 0 || ! s_owned (sct)) { Message ("You can only run plan from a sector you own!"); Bell (); return; } if (s_plan (sct) == (PlanEntry) 0) { Message ("This sector doesn't have a plan!"); Bell (); return; } strings = DoRunPlan (sct); Message ("plan run completed"); #ifdef X_VERSION InitWMPager (strings, "Output of running plan"); #else ShowStringsInPager (strings, "Output of running plan"); #endif } /***************************************************************************** * PARSER FUNCTIONS * *****************************************************************************/ bool HasPlan (sct) Sector sct; { return (sct != (Sector) 0 && s_owned (sct) && s_plan (sct) != (PlanEntry) 0); } bool IsActive (sct) Sector sct; { PlanEntry plan; if (sct == (Sector) 0 || ! s_owned (sct)) return False; plan = s_plan (sct); if (s_plan (sct) == (PlanEntry) 0) return False; return plan-> active; } void UtilPlan (arg) char * arg; { int x, y; Sector sct; PlanEntry plan; Strings strings; if (* arg == '\0' || sscanf (arg, ":%d,%d", & x, & y) != 2) x = y = 0; printf ("Running plan utility [start = %d,%d]\n", x, y); sct = World (x, y, S_EXIST); if (sct == (Sector) 0) { printf ("No information about %d,%d\n", x, y); return; } if (! s_owned (sct)) { printf ("You don't own %d,%d\n", x, y); return; } plan = s_plan (sct); if (plan == (PlanEntry) 0) { printf ("Sector %d,%d doesn't have a a plan.\n", x, y); return; } strings = DoRunPlan (sct); DumpStrings (strings); if (plan_options. done_file [0] != '\0') (void) creat (plan_options, 0644); } char PlanDesign (plan) PlanEntry plan; { return plan-> plandes; } xemp5.1-beta/lib/util/power.c100444 12266 2116 17071 6030532062 14476 0ustar jponexor/* $Header: /a/victor/nexor/user4/jpo/xemp/xemp5.0/lib/util/RCS/power.c,v 5.5 1995/09/22 13:03:46 jpo Exp $ $Date: 1995/09/22 13:03:46 $ $Author: jpo $ $Id: power.c,v 5.5 1995/09/22 13:03:46 jpo Exp $ $Locker: $ $Log: power.c,v $ Revision 5.5 1995/09/22 13:03:46 jpo Added worlwide power and date Revision 5.4 1995/09/12 18:51:13 jpo Change to use strings Revision 5.3 1995/09/12 18:11:37 jpo Add power display window Revision 5.2 1995/09/08 07:49:05 jpo const * Revision 5.1 93/03/14 16:52:58 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:24:11 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:45:54 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #define POWER_WW 9999 typedef char SBuf [10]; typedef struct s_power * PowerEntry; typedef struct s_powerl * PowerList; struct s_power { int ranking; int nat; SBuf nr_sects; SBuf eff; SBuf civ; SBuf mil; SBuf shells; SBuf guns; SBuf pet; SBuf iron; SBuf dust; SBuf food; SBuf oil; SBuf pln; SBuf ship; SBuf unit; SBuf money; }; struct s_powerl { PowerEntry entry; PowerList next, prev; }; static int sects_start = 0; static int eff_start; static char *power_date; static PowerList power_head, power_tail; static PowerEntry NewPowerEntry () { PowerEntry new_entry; PowerList new_list; new_entry = (PowerEntry) doalloc ((unsigned) sizeof (struct s_power)); new_list = (PowerList) doalloc ((unsigned) sizeof (struct s_powerl)); new_list-> entry = new_entry; new_list-> next = (PowerList) 0; new_list-> prev = power_tail; if (power_head == (PowerList) 0) { power_head = power_tail = new_list; } else { power_tail-> next = new_list; power_tail = new_list; } return new_entry; } static void FreeLastPowerEntry (entry) PowerEntry entry; { if (power_tail == (PowerList) 0) Panic ("FreeLastPowerEntry", __FILE__, "power_tail is NULL"); (void) free ((char *) (power_tail-> entry)); if (power_tail == power_head) { (void) free ((char *) power_head); power_head = power_tail = (PowerList) 0; } else { power_tail = power_tail-> prev; (void) free ((char *) power_tail-> next); power_tail -> next = NULL; } } static bool ScanPowerLine (entry, line) PowerEntry entry; char * line; { char buf [100]; char * ptr; int len, i; if (StrStr (line, "---") != (char *) 0) return False; if ((ptr = StrStr (line, "as of ")) != (char *)0) { if (power_date) free (power_date); power_date = Str(ptr + 5); return False; } ptr = StrStr (line, "sects"); if (ptr != (char *) 0) { sects_start = (ptr - line); ptr = StrStr (line, "eff"); eff_start = (ptr - line); return False; } if (eff_start == 0) return False; if (strlen (line) < eff_start + 2) return False; if (line [eff_start + 2] != '%') return False; /* find nation */ i = 0; while (line [i] == ' ') i ++; strncpy (buf, line + i, sects_start - i); buf [sects_start - i] = '\0'; if (strcmp (buf, "worldwide") == 0) { i = POWER_WW; } else { i = CountryId (buf); if (i < 0) { Message (Fmt ("Unknown country (%s) in power report", buf)); Bell (); Pause (); return False; } } entry-> nat = i; ptr = line + sects_start; ScanFmt ((ConstVP)& ptr, entry-> nr_sects, "0-9KM."); ScanFmt ((ConstVP)& ptr, entry-> eff, "0-9%"); ScanFmt ((ConstVP)& ptr, entry-> civ, "0-9KM."); ScanFmt ((ConstVP)& ptr, entry-> mil, "0-9KM."); ScanFmt ((ConstVP)& ptr, entry-> shells, "0-9KM."); ScanFmt ((ConstVP)& ptr, entry-> guns, "0-9KM."); ScanFmt ((ConstVP)& ptr, entry-> pet, "0-9KM."); ScanFmt ((ConstVP)& ptr, entry-> iron, "0-9KM."); ScanFmt ((ConstVP)& ptr, entry-> dust, "0-9KM."); if (!land_units) ScanFmt ((ConstVP)& ptr, entry-> food, "0-9KM."); else strcpy (entry -> food, "---"); ScanFmt ((ConstVP)& ptr, entry-> oil, "0-9KM."); ScanFmt ((ConstVP)& ptr, entry-> pln, "0-9KM."); ScanFmt ((ConstVP)& ptr, entry-> ship, "0-9KM."); if (land_units) ScanFmt ((ConstVP)& ptr, entry-> unit, "0-9KM."); else strcpy (entry->unit, "---"); ScanFmt ((ConstVP)& ptr, entry-> money, "0-9KM."); return True; } void FreePowerList () { if (power_date) free (power_date); power_date = NULL; while (power_tail != (PowerList) 0) FreeLastPowerEntry (); } static void DoScanPower (force) bool force; { int ranking; char * line; PowerEntry entry; if (power_tail == (PowerList) 0 || force) { if (power_tail != (PowerList) 0) FreePowerList (); FeedEmpire ("power", PRINT); PrintAtEmpire ("xemp: scanning power output"); ranking = 0; eff_start = sects_start = 0; entry = NewPowerEntry (); entry-> ranking = ++ ranking; for (;;) { line = ReadEmpire (DONT_PRINT); if (EmpireStatus () == E_COMMAND) { FreeLastPowerEntry (); PrintAtEmpire (line); return; } if (EmpireStatus () != E_PRINTING) { Message ("Sync error"); Bell (); continue; } if (ScanPowerLine (entry, line)) { entry = NewPowerEntry (); entry-> ranking = ++ ranking; } } } } void ScanNewPower () { DoScanPower (True); } void ScanPower () { DoScanPower (False); } static PowerEntry FindNationPowerEntry (natid) int natid; { PowerList ptr; if (power_head == (PowerList) 0) return (PowerEntry) 0; for (ptr = power_head; ptr != (PowerList) 0; ptr = ptr-> next) if (ptr-> entry-> nat == natid) return ptr-> entry; return (PowerEntry) 0; } void PrintPowerString (strings, natid) Strings strings; int natid; { PowerEntry entry; entry = FindNationPowerEntry (natid); if (entry == (PowerEntry) 0) { AddString (strings, "No power information found"); return; } AddString (strings, Fmt ("Power report (ranking #%d)", entry-> ranking)); AddString (strings, ""); AddString (strings, Fmt ("Sects: %4s Shells: %4s Food: %4s Planes: %4s", entry-> nr_sects, entry -> shells, entry -> food, entry -> pln)); AddString (strings, Fmt ("Eff: %4s Guns: %4s Oil: %4s Ships: %4s", entry -> eff, entry -> guns, entry -> oil, entry -> ship)); AddString (strings, Fmt ("Civ: %4s Petrol: %4s Money: %4s", entry -> civ, entry -> pet, entry -> money)); AddString (strings, Fmt ("Mil: %4s Dust: %4s Units: %4s", entry -> mil, entry -> dust, entry -> unit)); } void DisplayPower () { Strings strings; PowerList ptr; /* name sect eff civ mil she gun pet iro dus oil pln shp unt mon */ static const char *fmtstring = "%10s %4s %4s %4s %4s %4s %4s %4s %4s %4s %4s %4s %4s %4s %4s"; PowerEntry entry; ScanPower (); strings = InitStrings (); if (power_date) { AddString (strings, Fmt ("Power Report as of %s", power_date)); AddString (strings, ""); } AddString (strings, Fmt (fmtstring, "who", "sect", "eff", "civ", "mil", "shel", "gun", "pet", "iron", "dust", "oil", "pln", "ship", "unit", "money")); for (ptr = power_head; ptr != (PowerList) 0; ptr = ptr-> next) { entry = ptr -> entry; if (entry -> nat == POWER_WW) AddString (strings, ""); AddString (strings, Fmt (fmtstring, entry -> nat == POWER_WW ? "Worldwide" : CountryName(entry -> nat), entry -> nr_sects, entry -> eff, entry -> civ, entry -> mil, entry -> shells, entry -> guns, entry -> pet, entry -> iron, entry -> dust, entry -> oil, entry -> pln, entry -> ship, entry -> unit, entry -> money)); } InitWMPager (strings, "power listing"); } void SavePowerData (fp) FILE *fp; { fprintf (fp, "END OF POWER DATA\n"); } void LoadPowerData (fp) FILE *fp; { } xemp5.1-beta/lib/util/production.c100444 12266 2116 14016 6043205761 15533 0ustar jponexor/* $Header: /a/victor/nexor/user4/jpo/xemp/xemp5.0/lib/util/RCS/production.c,v 5.3 1995/10/24 15:53:20 jpo Exp $ $Date: 1995/10/24 15:53:20 $ $Author: jpo $ $Id: production.c,v 5.3 1995/10/24 15:53:20 jpo Exp $ $Locker: $ $Log: production.c,v $ Revision 5.3 1995/10/24 15:53:20 jpo unistd stuff Revision 5.2 1995/09/08 07:49:08 jpo types * Revision 5.1 93/03/14 16:52:58 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:24:11 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:45:54 greyhelm * Added RCS headers - Karl Hagen * */ /* * Plague code * mta Sun Dec 2 23:43:20 EET 1990 */ #include "type.h" #include "main.h" #include "sector.h" #include #include #include "production.h" #ifdef HAVE_UNISTD_H #include #endif char * LastProduction(); S_PRODUCTION *production; void ReadProduction(file) const char *file; { int fd; off_t size; char *buf; if (strcmp (file, "-")) { if ((fd = open(file, O_RDONLY)) == -1) { Error("Production: could not open file"); return; } size = lseek(fd, (off_t)0, SEEK_END); (void) lseek(fd, (off_t)0, SEEK_SET); buf = (char *) malloc(size+1); read (fd, buf, size); close (fd); } else buf = LastProduction(); UpdateProduction(buf); free(buf); } /* * gets production report as parameter, * constructs production list */ void UpdateProduction(string) char *string; { char *ps, *pn, *po, *pp; S_PRODUCTION *np; /* dispose of known production info */ if (production != NULL) { S_PRODUCTION *now; now = production; while ( p_next(production) ) { production = p_next(production); free (now); now = production; } free (now); production = NULL; } ps = (char *)malloc(strlen(string)+1); (void) strcpy(ps, string); po = ps; while (pn= index(po, '\n')) { pp = pn+1; np = NULL; *pn = '\0'; np = (S_PRODUCTION *)alloc_production(); if (pn = (char *)StrStr(po, "battling PLAGUE")) { p_plague_stage(np) = PLG_INFECT; p_xcd(np) = atoi(po); p_ycd(np) = atoi(index(po, ',')+1); } else if (pn = (char *)StrStr(po, "Outbreak of PLAGUE in ")) { p_plague_stage(np) = PLG_INFECT; p_xcd(np) = atoi(pn+22); p_ycd(np) = atoi(index(pn+22, ',')+1); } else if (pn = (char *)StrStr(po, "PLAGUE deaths reported in ")) { p_plague_stage(np) = PLG_DYING; p_xcd(np) = atoi(pn+26); p_ycd(np) = atoi(index(pn+26, ',')+1); } else if (pn = (char *)StrStr(po, "Civil unrest in ")) { p_happines(np) = HP_UNREST; p_xcd(np) = atoi(pn+16); p_ycd(np) = atoi(index(pn+16, ',')+1); } else if (pn = (char *)StrStr(po, "Revolutionary subversion reported in ")) { p_happines(np) = HP_REVOLUTIONARIES; p_xcd(np) = atoi(pn+37); p_ycd(np) = atoi(index(pn+37, ',')+1); } else if (pn = (char *)StrStr(po, "Production minimally disrupted by terrorists in ")) { p_happines(np) = HP_TERRORISTS; p_xcd(np) = atoi(pn+48); p_ycd(np) = atoi(index(pn+48, ',')+1); } else if (pn = (char *)StrStr(po, "Production partially disrupted by terrorists in ")) { p_happines(np) = HP_TERRORISTS; p_xcd(np) = atoi(pn+48); p_ycd(np) = atoi(index(pn+48, ',')+1); } else if (pn = (char *)StrStr(po, "Production moderately disrupted by terrorists in ")) { p_happines(np) = HP_TERRORISTS; p_xcd(np) = atoi(pn+49); p_ycd(np) = atoi(index(pn+49, ',')+1); } else if (pn = (char *)StrStr(po, "Production completely disrupted by terrorists in ")) { p_happines(np) = HP_TERRORISTS; p_xcd(np) = atoi(pn+49); p_ycd(np) = atoi(index(pn+49, ',')+1); } else if (pn = (char *)StrStr(po, "Guerrilla warfare in ")) { p_happines(np) = HP_GUERRILLAS; p_xcd(np) = atoi(pn+21); p_ycd(np) = atoi(index(pn+21, ',')+1); } else if (pn = (char *)StrStr(po, "Bad dist path in ")) { p_bad_dist(np) = True; p_xcd(np) = atoi(pn+17); p_ycd(np) = atoi(index(pn+17, ',')+1); } else { free(np); np = NULL; } if (np) { p_next(np) = production; production = np; } po = pp; } free(ps); } /* * gets x and y and returns plague-stage */ int PlagueStage(sct) Sector sct; { S_PRODUCTION *pp = production; int x, y; x = s_xcd(sct); y = s_ycd(sct); while (pp) { if ( (p_xcd(pp) == x) && (p_ycd(pp) == y) ) if (p_plague_stage(pp) != -1) return p_plague_stage(pp); pp = p_next(pp); } return PLG_HEALTHY; } bool IsPlague(sct) Sector sct; { int stage; stage = PlagueStage(sct); if (stage == PLG_INFECT) return True; return False; } void DumpPlague() { S_PRODUCTION *pp = production; while (pp) { fprintf(stderr, "(%d, %d) %d\n", p_xcd(pp), p_ycd(pp), p_plague_stage(pp)); pp = p_next(pp); } } /* * gets x and y and returns happines */ int HappinesState(sct) Sector sct; { S_PRODUCTION *pp = production; int x, y; x = s_xcd(sct); y = s_ycd(sct); while (pp) { if ( (p_xcd(pp) == x) && (p_ycd(pp) == y) ) if (p_happines(pp) != -1) return p_happines(pp); pp = p_next(pp); } return HP_LOYAL; } bool IsHappy(sct) Sector sct; { int state; state = HappinesState(sct); if (state <= HP_LOYAL) return True; return False; } void DumpHappines() { S_PRODUCTION *pp = production; while (pp) { fprintf(stderr, "(%d, %d) %d\n", p_xcd(pp), p_ycd(pp), p_happines(pp)); pp = p_next(pp); } } char *alloc_production() { S_PRODUCTION *new; new = (S_PRODUCTION *)malloc(sizeof(S_PRODUCTION)); p_plague_stage(new) = -1; p_happines(new) = -1; p_bad_dist(new) = -1; p_next(new) = NULL; return (char *)new; } bool IsBadDistr(sct) Sector sct; { S_PRODUCTION *pp = production; int x, y; x = s_xcd(sct); y = s_ycd(sct); while (pp) { if ( (p_xcd(pp) == x) && (p_ycd(pp) == y) ) if (p_bad_dist(pp) != -1) return True; pp = p_next(pp); } return False; } xemp5.1-beta/lib/util/prog.c100444 12266 2116 20456 6023772662 14330 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/util/RCS/prog.c,v 5.2 1995/09/08 07:49:15 jpo Exp $ $Date: 1995/09/08 07:49:15 $ $Author: jpo $ $Id: prog.c,v 5.2 1995/09/08 07:49:15 jpo Exp $ $Locker: $ $Log: prog.c,v $ Revision 5.2 1995/09/08 07:49:15 jpo const * Revision 5.1 93/03/14 16:52:59 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:24:11 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:45:54 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" #include "parser.h" #include "xrc.h" #include "func.h" /* * usage: xemp -u prog:land.p:#1 */ void UtilRunProg (arg) char * arg; { char * ptr, * progf, * realm; int sx, sy, ex, ey; register int x; register int y; Strings prog_str, outp_str, send_str; Program program; Sector sct; ptr = index (arg, ':'); if (ptr == (char *) 0) { realm = "#"; progf = arg; } else { realm = ptr + 1; progf = Str (arg); ptr = index (progf, ':'); * ptr = '\0'; } if (! ConvRealmToCoord (realm, & sx, & sy, & ex, & ey)) { fprintf (stderr, "xemp run prog: Illegal realm specified\n"); return; } prog_str = InitStrings (); if (! LoadStrings (prog_str, progf)) { fprintf (stderr, "xemp run prog: Can't open %s\n", progf); return; } program = ParseProgram (prog_str); if (program == (Program) 0) { fprintf (stderr, "xemp run prog: Program '%s' contains errors\n", progf); FreeStrings (prog_str); return; } printf ("Running program\n"); send_str = InitStrings (); outp_str = InitStrings (); for (y = sy; y <= ey; y ++) for (x = sx; x <= ex; x ++) { sct = World (x, y, S_EXIST); if (sct == (Sector) 0) continue; if (RunProgram (sct, program, outp_str, send_str) == P_ABORTED) { fprintf (stderr, "xemp run prog: program aborted"); printf ("\nOutput of program:\n\n"); DumpStrings (outp_str); printf ("\nEnd output\n"); printf ("\nSend of program:\n\n"); DumpStrings (send_str); printf ("\nSend output\n"); FreeStrings (outp_str); FreeStrings (send_str); FreeStrings (prog_str); return; } } if (StringsSize (outp_str) == 0) { printf ("No output"); } else { printf ("\nOutput of program:\n\n"); DumpStrings (outp_str); printf ("\nEnd output\n"); } if (StringsSize (send_str) > 0) AddMail (send_str, Fmt ("=== Output of '%s' (%s)", progf, DateFmt (time ((time_t *) 0)))); FreeStrings (outp_str); FreeStrings (send_str); FreeStrings (prog_str); return; } static const char *selprog_strs [] = { "Run from program directory", "Edit program", "Edit new" }; #define SP_RUNDIR 0 #define SP_EDITDIR 1 #define SP_EDITNEW 2 #define SP_MAX 3 #define PC_RUN 0 #define PC_EDIT 1 #define PC_SAVE 2 #define PC_CANCEL 3 #define PC_MAX 4 static const char *prog_choices [] = { "Run program", "Edit program", "Save program", "Cancel" }; int ProgChoice (x, y) int x, y; { Pager pager; Strings strings; int i; strings = InitStrings (); AddStringsID (strings, prog_choices, PC_MAX, 0); pager = InitPager (strings, "What next?"); MapPagerFromTop (pager, map_win, x, y); i = PagerMenu (pager); FreePager (pager); FreeStrings (strings); return (int) (i < 0 ? PC_CANCEL : i); } const char * ProgFile (file) const char * file; { if (* file == '/') return file; if (xrc. progdir == (char *) 0) return file; else return Fmt ("%s/%s", xrc. progdir, file); } bool FileExists (file) const char * file; { return (access (file, 0) == 0); } char * SelectProgramFromDir (x, y) int x, y; { Strings strings; char * ret; int i; Pager pager; strings = PopenStrings (Fmt ("ls -1 %s", xrc. progdir)); pager = InitPager (strings, "Which program?"); MapPagerFromTop (pager, map_win, x, y); i = PagerMenu (pager); FreePager (pager); if (i < 0) { FreeStrings (strings); return (char *) 0; } ret = Fmt ("%s", GiveIdString (strings, i)); FreeStrings (strings); return ret; } Program SelectProgram (x, y) int x, y; { Strings strings, prog_strings, stripped; Pager pager; Program program; bool cont; char * ans, * file; int i, choice; strings = InitStrings (); AddStringsID (strings, selprog_strs, SP_MAX, 0); pager = InitPager (strings, "Which?"); MapPagerFromTop (pager, map_win, x, y); i = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (i < 0) return (Program) 0; switch (i) { case SP_RUNDIR: file = SelectProgramFromDir (x + 2, y + 2); if (file == (char *) 0) return (Program) 0; prog_strings = InitStrings (); if (! LoadStrings (prog_strings, ProgFile (file))) { Message ("Load failed"); Bell (); return (Program) 0; } program = ParseProgram (prog_strings); FreeStrings (prog_strings); return program; case SP_EDITDIR: file = SelectProgramFromDir (x + 2, y + 2); if (file == (char *) 0) return (Program) 0; prog_strings = InitStrings (); #ifdef TERMC_VERSION if (! LoadStrings (prog_strings, ProgFile (file))) #else if (! LoadEditStrings (prog_strings, ProgFile (file))) #endif { Message ("Load failed"); Bell (); FreeStrings (prog_strings); return (Program) 0; } break; case SP_EDITNEW: file = InputAtMessage ("Filename: ", 16, GS_TEXT); if (file == (char *) 0 || interrupt) { Message ("Edit Cancelled"); return (Program) 0; } if (* file != '\0' && FileExists (ProgFile (file))) { Message ("This file already exists"); Bell (); return (Program) 0; } #ifdef TERMC_VERSION prog_strings = InitStrings (); #else /* X_VERSION */ prog_strings = EditStrings (80, 25); #endif break; } #ifdef X_VERSION pager = InitPager (prog_strings, "Enter your program"); AddPagerFunc (pager, "Save", SAVEFUNC); /* AddPagerFunc (pager, "Read", READFUNC); */ AddPagerFunc (pager, "Run", DONEFUNC); AddPagerFunc (pager, "Compile", COMPILEFUNC); AddPagerFunc (pager, "Cancel", CANCEL); MapPagerFromTop (pager, map_win, x, y); for (;;) { i = EditPager (pager); if (i == COMPILEFUNC || i == DONEFUNC || i == SAVEFUNC) { program = ParseProgram (prog_strings); if (program != (Program) 0) { Message ("Program OK"); if (i == DONEFUNC) break; if (i == SAVEFUNC) { ans = InputAtMessage ( Fmt ("Filename%s: ", file == (char *) 0 ? "" : Fmt (" [%s]", file)), 16, GS_TEXT); if (ans == (char *) 0 || interrupt || (* ans == '\0' && file == (char *) 0)) { Message ("Save cancelled"); continue; } if (* ans == '\0') ans = file; stripped = StripStrings (prog_strings); WriteStrings (stripped, Fmt ("!%s", ProgFile (ans))); Message (Fmt ( "%s saved in your progdir", ans)); FreeStrings (stripped); file = ans; } DestroyProgram (& program); } continue; } if (i == CANCELFUNC || i == CANCEL || i == CANCELALL) { FreePager (pager); FreeStrings (prog_strings); Message ("Edit Cancelled"); return (Program) 0; } break; } FreePager (pager); return program; #else /* TERMC_VERSION */ pager = InitPager (prog_strings, "Program"); SetEditPager (pager); for (;;) { (void) EditPager (pager); prog_strings = PagerStrings (pager); program = ParseProgram (prog_strings); for (;;) { choice = ProgChoice (x, y); if (choice == PC_CANCEL) { if (program != (Program) 0) DestroyProgram (& program); FreePager (pager); FreeStrings (prog_strings); return (Program) 0; } if (choice == PC_EDIT) break; if (program == (Program) 0) { Message ("Write a correct program first"); continue; } if (choice == PC_SAVE) { ans = InputAtMessage ( Fmt ("Filename%s: ", file == (char *) 0 ? "" : Fmt (" [%s]", file)), 16, GS_TEXT); if (ans == (char *) 0 || interrupt || (* ans == '\0' && file == (char *) 0)) { Message ("Save cancelled"); continue; } if (* ans == '\0') ans = file; WriteStrings (prog_strings, Fmt ("!%s", ProgFile (ans))); Message (Fmt ( "%s saved in your progdir", ans)); continue; } /* else choice = PC_RUN */ FreePager (pager); FreeStrings (prog_strings); return program; } } #endif } xemp5.1-beta/lib/util/relat.c100444 12266 2116 12504 6025353261 14453 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/util/RCS/relat.c,v 5.5 1995/09/12 18:51:29 jpo Exp $ $Date: 1995/09/12 18:51:29 $ $Author: jpo $ $Id: relat.c,v 5.5 1995/09/12 18:51:29 jpo Exp $ $Locker: $ $Log: relat.c,v $ Revision 5.5 1995/09/12 18:51:29 jpo Change to use strings Revision 5.4 1995/09/12 18:14:24 jpo Fix up a buglet Revision 5.3 1995/09/12 18:12:31 jpo Add freindly and better parsing Revision 5.2 1993/03/14 16:52:59 etienne *** empty log message *** * Revision 5.1 93/02/06 11:09:12 greyhelm * Fixed minor bug in relation scan for Chainsaw * * Revision 5.0 1993/02/06 09:24:11 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:45:54 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "nation.h" #include "version.h" #define UNKNOWN -1 #define ALLIED 0 #define NEUTRAL 1 #define HOSTILE 2 #define ATWAR 3 #define MOBILIZING 4 #define SITZKRIEG 5 #define FRIENDLY 6 typedef struct s_relinfo RELINFO; struct s_relinfo { int as; int his [MAX_NATIONS]; int theirs [MAX_NATIONS]; int allied, hostile, atwar, mobilizing, sitzkrieg, friendly; }; static int FindRelStatus (stat) char * stat; { char buf[128]; if (ScanWord ((ConstVP)&stat, buf) == False) buf[0] = 0; if (strncmp (buf, "Allied", 6) == 0) return ALLIED; else if (strncmp (buf, "Neutral", 7) == 0) return NEUTRAL; else if (strncmp (buf, "Hostile", 7) == 0) return HOSTILE; else if (strncmp (buf, "At War", 6) == 0) return ATWAR; else if (strncmp (buf, "Sitzkrieg", 9) == 0) return SITZKRIEG; else if (strncmp (buf, "Mobilizing", 10) == 0) return MOBILIZING; else if (strncmp (buf, "Friendly", 8) == 0) return FRIENDLY; else { PrintAtEmpire (Fmt ("Unknown status found (%7.7s)", stat)); Bell (); return UNKNOWN; } } RelInfo ScanRelationsAs (country) int country; { RelInfo info; char * ptr; int i; info = (RelInfo) doalloc ((unsigned) sizeof (RELINFO)); for (i = 0; i < MAX_NATIONS; i ++) info-> his [i] = info-> theirs [i] = UNKNOWN; info-> allied = 0; info-> hostile = 0; info-> atwar = 0; info-> sitzkrieg = 0; info-> mobilizing = 0; info-> as = country; FeedEmpire (Fmt ("relations %s", CountryName (country)), PRINT); PrintAtEmpire ("xemp: scanning relations"); for (;;) { ptr = ReadEmpire (DONT_PRINT); if(chainsaw_version) { (void) SkipNLines (3, DONT_PRINT); } if (EmpireStatus () == E_COMMAND) { PrintAtEmpire (ptr); break; } if (EmpireStatus () == E_QUESTION) { if (! HandleQuestion (ptr)) { Message ("Relations aborted"); FreeRelInfo (info); return (RelInfo) 0; } } i = atoi (ptr); if (i == 0) continue; if (chainsaw_version) { info-> his [i] = FindRelStatus (ptr + 27); info-> theirs [i] = FindRelStatus (ptr + 37); } else { info-> his [i] = FindRelStatus (ptr + 27); info-> theirs [i] = FindRelStatus (ptr + 37); } if (info-> theirs [i] == info-> his [i]) { switch (info-> theirs [i]) { case ALLIED: info-> allied ++; break; case HOSTILE: info-> hostile ++; break; case ATWAR: info-> atwar ++; break; case SITZKRIEG: info-> sitzkrieg ++; break; case MOBILIZING: info-> mobilizing ++; break; case FRIENDLY: info-> friendly ++; break; } } else if (info-> theirs [i] == HOSTILE && info-> his [i] == ATWAR) info-> atwar ++; else if (info-> theirs [i] == ATWAR && info-> his [i] == HOSTILE) info-> hostile ++; else if (info-> theirs [i] == MOBILIZING && info-> his [i] == HOSTILE) info-> mobilizing ++; else if (info-> theirs [i] == HOSTILE && info-> his [i] == MOBILIZING) info-> mobilizing ++; } return info; } void FreeRelInfo (rel) RelInfo rel; { (void) free ((char *) rel); } int RelLines (rel) RelInfo rel; { int lines; lines = 2 + rel-> allied + rel-> hostile + rel-> atwar; if (lines == 2) lines = 3; return lines; } void PrintRelations (strings, rel) Strings strings; RelInfo rel; { int i; AddString (strings, "Relation info: "); AddString (strings, ""); if (rel-> allied + rel-> hostile + rel-> atwar == 0) { AddString (strings, "No relations."); return; } if (rel-> allied > 0) { AddString (strings, "Allied:"); for (i = 0; i < MAX_NATIONS; i ++) if (rel-> his [i] == ALLIED && rel-> theirs [i] == ALLIED) AddString (strings, CountryName (i)); } if (rel-> friendly > 0) { AddString (strings, "Friendly:"); for (i = 0; i < MAX_NATIONS; i ++) if (rel-> his [i] == FRIENDLY && rel-> theirs [i] == FRIENDLY) AddString (strings, CountryName (i)); } if (rel-> hostile > 0) { AddString (strings, "Hostile:"); for (i = 0; i < MAX_NATIONS; i ++) if (rel-> his [i] == HOSTILE && (rel-> theirs [i] == ATWAR || rel-> theirs [i] == HOSTILE)) AddString (strings, Fmt ("%s%s", CountryName (i), rel-> theirs [i] == ATWAR ? " (*)" : "")); } if (rel-> atwar > 0) { AddString (strings, "At War:"); for (i = 0; i < MAX_NATIONS; i ++) if (rel-> his [i] == ATWAR && (rel-> theirs [i] == ATWAR || rel-> theirs [i] == HOSTILE)) AddString (strings, Fmt ("%s%s", CountryName (i), rel-> theirs [i] == HOSTILE ? " (*)" : "")); } } xemp5.1-beta/lib/util/report.c100444 12266 2116 7140 6025353155 14641 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/util/RCS/report.c,v 5.2 1995/09/12 18:50:20 jpo Exp $ $Date: 1995/09/12 18:50:20 $ $Author: jpo $ $Id: report.c,v 5.2 1995/09/12 18:50:20 jpo Exp $ $Locker: $ $Log: report.c,v $ Revision 5.2 1995/09/12 18:50:20 jpo Change to use strings Revision 5.1 1993/03/14 16:52:59 etienne *** empty log message *** * Revision 5.0 93/02/06 09:24:11 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:45:54 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "nation.h" #define UNKNOWN -1 #define PRIMITIVE 0 #define BACKWARD 1 #define SIMILAR 2 #define ADVANCED 3 #define SUPERIOR 4 typedef struct s_repinfo REPINFO; struct s_repinfo { int tech; int research; int education; }; static int ScanRepStatus (str) char * str; { if (strncmp (str, "superior", 8) == 0) return SUPERIOR; else if (strncmp (str, "advanced", 8) == 0) return ADVANCED; else if (strncmp (str, "similar", 7) == 0) return SIMILAR; else if (strncmp (str, "backward", 8) == 0) return BACKWARD; else if (strncmp (str, "primitive", 9) == 0) return PRIMITIVE; else { Bell (); PrintAtEmpire (Fmt ("Unknown status found in report (%9.9s)", str)); return UNKNOWN; } } RepInfo ScanReportAs (country) int country; { RepInfo info; char * ptr; info = (RepInfo) doalloc ((unsigned) sizeof (REPINFO)); FeedEmpire (Fmt ("report %d", country), PRINT); PrintAtEmpire ("xemp: scanning report"); for (;;) { ptr = ReadEmpire (DONT_PRINT); if (EmpireStatus () == E_COMMAND) { Message ("Something went wrong..."); Bell (); FreeReportInfo (info); return (RepInfo) 0; } if (EmpireStatus () == E_QUESTION) { if (! HandleQuestion (ptr)) { Message ("Report cancellled"); FreeReportInfo (info); return (RepInfo) 0; } } if (atoi (ptr) == 0) continue; info-> tech = ScanRepStatus (ptr + 22); info-> research = ScanRepStatus (ptr + 34); info-> education = ScanRepStatus (ptr + 46); ptr = WaitForPrompt (DONT_PRINT); PrintAtEmpire (ptr); return info; } } void FreeReportInfo (info) RepInfo info; { (void) free ((char *) info); } static void PrintRepStat (strings, stat, str, yours) Strings strings; int stat; char * str; double yours; { char * strstat; char *fmtd; switch (stat) { case PRIMITIVE: strstat = "Primitive"; fmtd = Fmt ("(X =< %.0f)", dmax (yours * 0.1 - 0.9, yours - 50.0)); break; case BACKWARD: strstat = "Backward"; fmtd = Fmt ("(%.0f =< X < %.0f)", dmax (yours * 0.1 - 0.9, yours - 50.0), 0.5 * yours); break; case SIMILAR: strstat = "Similar"; fmtd = Fmt ("(%.0f =< X < %.0f)", 0.5 * yours, dmin (yours * 2.0 + 1.0, yours + 50.0)); break; case ADVANCED: strstat = "Advanced"; fmtd = Fmt ("(%.0f =< X < %.0f)", dmin (yours * 2.0 + 1.0, yours + 50.0), dmin (yours * 10.0 + 9.0, yours + 300.0)); break; case SUPERIOR: strstat = "Superior"; fmtd = Fmt ("(X >= %.0f)", dmin (yours * 10.0 + 9.0, yours + 300.0)); break; default: strstat = "Unknown"; fmtd = "??"; break; } AddString (strings, Fmt ("%-12s %-10s %s", str, strstat, fmtd)); } void PrintRepInfo (strings, info) Strings strings; RepInfo info; { AddString(strings, "Report info:"); AddString(strings, ""); PrintRepStat (strings, info-> tech, "Technology", n_tech (nation)); PrintRepStat (strings, info-> research, "Research", n_research (nation)); PrintRepStat (strings, info-> education, "Education", n_educ (nation)); } xemp5.1-beta/lib/util/ve.c100444 12266 2116 5622 6023772663 13752 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/util/RCS/ve.c,v 5.1 1993/03/14 16:53:01 etienne Exp $ $Date: 1993/03/14 16:53:01 $ $Author: etienne $ $Id: ve.c,v 5.1 1993/03/14 16:53:01 etienne Exp $ $Locker: $ $Log: ve.c,v $ Revision 5.1 1993/03/14 16:53:01 etienne *** empty log message *** * Revision 5.0 93/02/06 09:24:11 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:45:54 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "sector.h" static VeDump () { int x, y; int nr; Sector sct; long t; FILE * fp; fp = fopen ("dump", "w"); if (fp == (FILE *) 0) { perror ("fopen"); return; } fprintf (fp, "dump # >! dump\n"); localtime (& t); fprintf (fp, ctime (& t)); fprintf (fp, "DUMP SECTOR\n"); fprintf (fp, "x y des sdes eff mob * min gold fert ocontent uran work avail terr civ mil uw food shell gun pet iron dust bar oil lcm hcm rad u_del f_del s_del g_del p_del i_del d_del b_del o_del l_del h_del r_del u_cut f_cut s_cut g_cut p_cut i_cut d_cut b_cut o_cut l_cut h_cut r_cut dist_path dist_x dist_y u_dist f_dist s_dist g_dist p_dist i_dist d_dist b_dist o_dist l_dist h_dist r_dist\n"); nr = 0; for (x = 0; x < MAX_X; x ++) for (y = x % 2; y < MAX_Y; y += 2) { sct = World (x, y, S_EXIST); if (sct == (Sector) 0 || ! s_owned (sct)) continue; fprintf (fp, "%d %d %c %c %d %d %c ", s_xcd (sct), s_ycd (sct), s_des (sct), s_nds (sct) == s_des (sct) ? '_' : s_nds (sct), s_eff (sct), s_mob (sct), s_occ (sct)); fprintf (fp, "%d %d %d %d %d %d %d %d %d %d ", s_min (sct), s_gol (sct), s_fer (sct), s_oil (sct), s_ura (sct), s_wor (sct), s_ava (sct), s_ter (sct), s_civ (sct), s_mil (sct)); fprintf (fp, "%d %d %d %d %d %d %d %d %d %d %d %d ", q_uw (sct), q_foo (sct), q_she (sct), q_gun (sct), q_pet (sct), q_iro (sct), q_dus (sct), q_bar (sct), q_oil (sct), q_lcm (sct), q_hcm (sct), q_rad (sct)); fprintf (fp, "%c %c %c %c %c %c %c %c %c %c %c %c ", d_uw (sct), d_foo (sct), d_she (sct), d_gun (sct), d_pet (sct), d_iro (sct), d_dus (sct), d_bar (sct), d_oil (sct), d_lcm (sct), d_hcm (sct), d_rad (sct)); fprintf (fp, "%d %d %d %d %d %d %d %d %d %d %d %d ", c_uw (sct), c_foo (sct), c_she (sct), c_gun (sct), c_pet (sct), c_iro (sct), c_dus (sct), c_bar (sct), c_oil (sct), c_lcm (sct), c_hcm (sct), c_rad (sct)); fprintf (fp, "%s %d %d ", s_pat (sct) == (char *) 0 ? "_" : s_pat (sct), s_dxc (sct), s_dyc (sct)); fprintf (fp, "%d %d %d %d %d %d %d %d %d %d %d %d\n", t_uw (sct), t_foo (sct), t_she (sct), t_gun (sct), t_pet (sct), t_iro (sct), t_dus (sct), t_bar (sct), t_oil (sct), t_lcm (sct), t_hcm (sct), t_rad (sct)); nr ++; } fprintf (fp, " %d sectors\n", nr); fclose (fp); } /* ARGSUSED */ void VeUtil (args) char * args; { VeDump (); } xemp5.1-beta/lib/util/strstr.c100444 12266 2116 2700 6023772662 14672 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/lib/util/RCS/strstr.c,v 5.2 1995/09/08 07:49:19 jpo Exp $ $Date: 1995/09/08 07:49:19 $ $Author: jpo $ $Id: strstr.c,v 5.2 1995/09/08 07:49:19 jpo Exp $ $Locker: $ $Log: strstr.c,v $ Revision 5.2 1995/09/08 07:49:19 jpo optimise a bit and be more careful * Revision 5.1 93/03/14 16:53:00 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:24:11 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:45:54 greyhelm * Added RCS headers - Karl Hagen * */ /* * StrStr module * mta Mon Dec 3 17:56:14 EET 1990 * * char *StrStr (s1, s2) * char *s1, *s2; * * StrStr locates the first occurrence in the string pointed to * by s2 of the sequence of characters (excluding the terminat- * ing null character) in the string pointed to by s1. It * returns a pointer to the located string, or a null pointer * if the string is not found. * * - heinola 11/4/91. changed order of the argument to correspond * the order of Sun. */ #define NULL 0 char *StrStr(string, sub) char *sub, *string; { int i, len; int tlen = strlen(string); len = strlen(sub); tlen -= len; tlen ++; for (i = 0; i < tlen; ++i) if (!strncmp(&string[i], sub, len)) return(&string[i]); /* we are supposed to return start of match! */ return(NULL); } xemp5.1-beta/lib/regex/ 40755 12266 2116 0 6043206165 13220 5ustar jponexorxemp5.1-beta/lib/regex/fake/ 40755 12266 2116 0 6043206163 14124 5ustar jponexorxemp5.1-beta/lib/regex/fake/limits.h100644 12266 2116 137 6033707441 15660 0ustar jponexor#define _POSIX2_RE_DUP_MAX 255 #define CHAR_MIN (-128) #define CHAR_MAX 127 #define CHAR_BIT 8 xemp5.1-beta/lib/regex/fake/memmove.c100644 12266 2116 633 6033707441 16020 0ustar jponexor#include #include #include /* - memmove - fake ANSI C routine */ char * memmove(dst, src, count) char *dst; char *src; size_t count; { register char *s; register char *d; register size_t n; if (dst > src) for (d = dst+count, s = src+count, n = count; n > 0; n--) *--d = *--s; else for (d = dst, s = src, n = count; n > 0; n--) *d++ = *s++; return(dst); } xemp5.1-beta/lib/regex/fake/stdlib.h100644 12266 2116 57 6033707441 15621 0ustar jponexorextern char *malloc(); extern char *realloc(); xemp5.1-beta/lib/regex/COPYRIGHT100644 12266 2116 1666 6033707437 14630 0ustar jponexorCopyright 1992, 1993, 1994 Henry Spencer. All rights reserved. This software is not subject to any license of the American Telephone and Telegraph Company or of the Regents of the University of California. Permission is granted to anyone to use this software for any purpose on any computer system, and to alter it and redistribute it, subject to the following restrictions: 1. The author is not responsible for the consequences of use of this software, no matter how awful, even if they arise from flaws in it. 2. The origin of this software must not be misrepresented, either by explicit claim or by omission. Since few users ever read sources, credits must appear in the documentation. 3. Altered versions must be plainly marked as such, and must not be misrepresented as being the original software. Since few users ever read sources, credits must appear in the documentation. 4. This notice may not be removed or altered. xemp5.1-beta/lib/regex/README100644 12266 2116 2303 6033707437 14202 0ustar jponexoralpha3.4 release. Thu Mar 17 23:17:18 EST 1994 henry@zoo.toronto.edu See WHATSNEW for change listing. installation notes: -------- Read the comments at the beginning of Makefile before running. Utils.h contains some things that just might have to be modified on some systems, as well as a nested include (ugh) of . The "fake" directory contains quick-and-dirty fakes for some header files and routines that old systems may not have. Note also that -DUSEBCOPY will make utils.h substitute bcopy() for memmove(). After that, "make r" will build regcomp.o, regexec.o, regfree.o, and regerror.o (the actual routines), bundle them together into a test program, and run regression tests on them. No output is good output. "make lib" builds just the .o files for the actual routines (when you're happy with testing and have adjusted CFLAGS for production), and puts them together into libregex.a. You can pick up either the library or *.o ("make lib" makes sure there are no other .o files left around to confuse things). Main.c, debug.c, split.c are used for regression testing but are not part of the RE routines themselves. Regex.h goes in /usr/include. All other .h files are internal only. -------- xemp5.1-beta/lib/regex/WHATSNEW100644 12266 2116 12260 6033707437 14530 0ustar jponexorNew in alpha3.4: The complex bug alluded to below has been fixed (in a slightly kludgey temporary way that may hurt efficiency a bit; this is another "get it out the door for 4.4" release). The tests at the end of the tests file have accordingly been uncommented. The primary sign of the bug was that something like a?b matching ab matched b rather than ab. (The bug was essentially specific to this exact situation, else it would have shown up earlier.) New in alpha3.3: The definition of word boundaries has been altered slightly, to more closely match the usual programming notion that "_" is an alphabetic. Stuff used for pre-ANSI systems is now in a subdir, and the makefile no longer alludes to it in mysterious ways. The makefile has generally been cleaned up some. Fixes have been made (again!) so that the regression test will run without -DREDEBUG, at the cost of weaker checking. A workaround for a bug in some folks' has been added. And some more things have been added to tests, including a couple right at the end which are commented out because the code currently flunks them (complex bug; fix coming). Plus the usual minor cleanup. New in alpha3.2: Assorted bits of cleanup and portability improvement (the development base is now a BSDI system using GCC instead of an ancient Sun system, and the newer compiler exposed some glitches). Fix for a serious bug that affected REs using many [] (including REG_ICASE REs because of the way they are implemented), *sometimes*, depending on memory-allocation patterns. The header-file prototypes no longer name the parameters, avoiding possible name conflicts. The possibility that some clot has defined CHAR_MIN as (say) `-128' instead of `(-128)' is now handled gracefully. "uchar" is no longer used as an internal type name (too many people have the same idea). Still the same old lousy performance, alas. New in alpha3.1: Basically nothing, this release is just a bookkeeping convenience. Stay tuned. New in alpha3.0: Performance is no better, alas, but some fixes have been made and some functionality has been added. (This is basically the "get it out the door in time for 4.4" release.) One bug fix: regfree() didn't free the main internal structure (how embarrassing). It is now possible to put NULs in either the RE or the target string, using (resp.) a new REG_PEND flag and the old REG_STARTEND flag. The REG_NOSPEC flag to regcomp() makes all characters ordinary, so you can match a literal string easily (this will become more useful when performance improves!). There are now primitives to match beginnings and ends of words, although the syntax is disgusting and so is the implementation. The REG_ATOI debugging interface has changed a bit. And there has been considerable internal cleanup of various kinds. New in alpha2.3: Split change list out of README, and moved flags notes into Makefile. Macro-ized the name of regex(7) in regex(3), since it has to change for 4.4BSD. Cleanup work in engine.c, and some new regression tests to catch tricky cases thereof. New in alpha2.2: Out-of-date manpages updated. Regerror() acquires two small extensions -- REG_ITOA and REG_ATOI -- which avoid debugging kludges in my own test program and might be useful to others for similar purposes. The regression test will now compile (and run) without REDEBUG. The BRE \$ bug is fixed. Most uses of "uchar" are gone; it's all chars now. Char/uchar parameters are now written int/unsigned, to avoid possible portability problems with unpromoted parameters. Some unsigned casts have been introduced to minimize portability problems with shifting into sign bits. New in alpha2.1: Lots of little stuff, cleanup and fixes. The one big thing is that regex.h is now generated, using mkh, rather than being supplied in the distribution; due to circularities in dependencies, you have to build regex.h explicitly by "make h". The two known bugs have been fixed (and the regression test now checks for them), as has a problem with assertions not being suppressed in the absence of REDEBUG. No performance work yet. New in alpha2: Backslash-anything is an ordinary character, not an error (except, of course, for the handful of backslashed metacharacters in BREs), which should reduce script breakage. The regression test checks *where* null strings are supposed to match, and has generally been tightened up somewhat. Small bug fixes in parameter passing (not harmful, but technically errors) and some other areas. Debugging invoked by defining REDEBUG rather than not defining NDEBUG. New in alpha+3: full prototyping for internal routines, using a little helper program, mkh, which extracts prototypes given in stylized comments. More minor cleanup. Buglet fix: it's CHAR_BIT, not CHAR_BITS. Simple pre-screening of input when a literal string is known to be part of the RE; this does wonders for performance. New in alpha+2: minor bits of cleanup. Notably, the number "32" for the word width isn't hardwired into regexec.c any more, the public header file prototypes the functions if __STDC__ is defined, and some small typos in the manpages have been fixed. New in alpha+1: improvements to the manual pages, and an important extension, the REG_STARTEND option to regexec(). xemp5.1-beta/lib/regex/Makefile100644 12266 2116 6067 6033707437 14775 0ustar jponexor# You probably want to take -DREDEBUG out of CFLAGS, and put something like # -O in, *after* testing (-DREDEBUG strengthens testing by enabling a lot of # internal assertion checking and some debugging facilities). # Put -Dconst= in for a pre-ANSI compiler. # Do not take -DPOSIX_MISTAKE out. # REGCFLAGS isn't important to you (it's for my use in some special contexts). CFLAGS=-I. -DPOSIX_MISTAKE -DREDEBUG $(REGCFLAGS) # If you have a pre-ANSI compiler, put -o into MKHFLAGS. If you want # the Berkeley __P macro, put -b in. MKHFLAGS= # Flags for linking but not compiling, if any. LDFLAGS= # Extra libraries for linking, if any. LIBS= # Internal stuff, should not need changing. OBJPRODN=regcomp.o regexec.o regerror.o regfree.o OBJS=$(OBJPRODN) split.o debug.o main.o H=cclass.h cname.h regex2.h utils.h REGSRC=regcomp.c regerror.c regexec.c regfree.c ALLSRC=$(REGSRC) engine.c debug.c main.c split.c # Stuff that matters only if you're trying to lint the package. LINTFLAGS=-I. -Dstatic= -Dconst= -DREDEBUG LINTC=regcomp.c regexec.c regerror.c regfree.c debug.c main.c JUNKLINT=possible pointer alignment|null effect # arrangements to build forward-reference header files .SUFFIXES: .ih .h .c.ih: sh ./mkh $(MKHFLAGS) -p $< >$@ default: r lib: purge $(OBJPRODN) rm -f libregex.a ar crv libregex.a $(OBJPRODN) purge: rm -f *.o # stuff to build regex.h REGEXH=regex.h REGEXHSRC=regex2.h $(REGSRC) $(REGEXH): $(REGEXHSRC) mkh sh ./mkh $(MKHFLAGS) -i _REGEX_H_ $(REGEXHSRC) >regex.tmp cmp -s regex.tmp regex.h 2>/dev/null || cp regex.tmp regex.h rm -f regex.tmp # dependencies $(OBJPRODN) debug.o: utils.h regex.h regex2.h regcomp.o: cclass.h cname.h regcomp.ih regexec.o: engine.c engine.ih regerror.o: regerror.ih debug.o: debug.ih main.o: main.ih # tester re: $(OBJS) $(CC) $(CFLAGS) $(LDFLAGS) $(OBJS) $(LIBS) -o $@ # regression test r: re tests ./re &1 | egrep -v '$(JUNKLINT)' | tee lint fullprint: ti README WHATSNEW notes todo | list ti *.h | list list *.c list regex.3 regex.7 print: ti README WHATSNEW notes todo | list ti *.h | list list reg*.c engine.c mf.tmp: Makefile sed '/^REGEXH=/s/=.*/=regex.h/' Makefile | sed '/#DEL$$/d' >$@ DTRH=cclass.h cname.h regex2.h utils.h PRE=COPYRIGHT README WHATSNEW POST=mkh regex.3 regex.7 tests $(DTRH) $(ALLSRC) fake/*.[ch] FILES=$(PRE) Makefile $(POST) DTR=$(PRE) Makefile=mf.tmp $(POST) dtr: $(FILES) mf.tmp makedtr $(DTR) >$@ rm mf.tmp cio: $(FILES) cio $(FILES) rdf: $(FILES) rcsdiff -c $(FILES) 2>&1 | p # various forms of cleanup tidy: rm -f junk* core core.* *.core dtr *.tmp lint clean: tidy rm -f *.o *.s *.ih re libregex.a # don't do this one unless you know what you're doing spotless: clean rm -f mkh regex.h xemp5.1-beta/lib/regex/mkh100644 12266 2116 3441 6033707437 14030 0ustar jponexor#! /bin/sh # mkh - pull headers out of C source PATH=/bin:/usr/bin ; export PATH # egrep pattern to pick out marked lines egrep='^ =([ ]|$)' # Sed program to process marked lines into lines for the header file. # The markers have already been removed. Two things are done here: removal # of backslashed newlines, and some fudging of comments. The first is done # because -o needs to have prototypes on one line to strip them down. # Getting comments into the output is tricky; we turn C++-style // comments # into /* */ comments, after altering any existing */'s to avoid trouble. peel=' /\\$/N /\\\n[ ]*/s///g /\/\//s;\*/;* /;g /\/\//s;//\(.*\);/*\1 */;' for a do case "$a" in -o) # old (pre-function-prototype) compiler # add code to comment out argument lists peel="$peel "'/^\([^#\/][^\/]*[a-zA-Z0-9_)]\)(\(.*\))/s;;\1(/*\2*/);' shift ;; -b) # funny Berkeley __P macro peel="$peel "'/^\([^#\/][^\/]*[a-zA-Z0-9_)]\)(\(.*\))/s;;\1 __P((\2));' shift ;; -s) # compiler doesn't like `static foo();' # add code to get rid of the `static' peel="$peel "'/^static[ ][^\/]*[a-zA-Z0-9_)](.*)/s;static.;;' shift ;; -p) # private declarations egrep='^ ==([ ]|$)' shift ;; -i) # wrap in #ifndef, argument is name ifndef="$2" shift ; shift ;; *) break ;; esac done if test " $ifndef" != " " then echo "#ifndef $ifndef" echo "#define $ifndef /* never again */" fi echo "/* ========= begin header generated by $0 ========= */" echo '#ifdef __cplusplus' echo 'extern "C" {' echo '#endif' for f do echo echo "/* === $f === */" egrep "$egrep" $f | sed 's/^ ==*[ ]//;s/^ ==*$//' | sed "$peel" echo done echo '#ifdef __cplusplus' echo '}' echo '#endif' echo "/* ========= end header generated by $0 ========= */" if test " $ifndef" != " " then echo "#endif" fi exit 0 xemp5.1-beta/lib/regex/regex.3100644 12266 2116 34570 6033707437 14553 0ustar jponexor.TH REGEX 3 "17 May 1993" .BY "Henry Spencer" .de ZR .\" one other place knows this name: the SEE ALSO section .IR regex (7) \\$1 .. .SH NAME regcomp, regexec, regerror, regfree \- regular-expression library .SH SYNOPSIS .ft B .\".na #include .br #include .HP 10 int regcomp(regex_t\ *preg, const\ char\ *pattern, int\ cflags); .HP int\ regexec(const\ regex_t\ *preg, const\ char\ *string, size_t\ nmatch, regmatch_t\ pmatch[], int\ eflags); .HP size_t\ regerror(int\ errcode, const\ regex_t\ *preg, char\ *errbuf, size_t\ errbuf_size); .HP void\ regfree(regex_t\ *preg); .\".ad .ft .SH DESCRIPTION These routines implement POSIX 1003.2 regular expressions (``RE''s); see .ZR . .I Regcomp compiles an RE written as a string into an internal form, .I regexec matches that internal form against a string and reports results, .I regerror transforms error codes from either into human-readable messages, and .I regfree frees any dynamically-allocated storage used by the internal form of an RE. .PP The header .I declares two structure types, .I regex_t and .IR regmatch_t , the former for compiled internal forms and the latter for match reporting. It also declares the four functions, a type .IR regoff_t , and a number of constants with names starting with ``REG_''. .PP .I Regcomp compiles the regular expression contained in the .I pattern string, subject to the flags in .IR cflags , and places the results in the .I regex_t structure pointed to by .IR preg . .I Cflags is the bitwise OR of zero or more of the following flags: .IP REG_EXTENDED \w'REG_EXTENDED'u+2n Compile modern (``extended'') REs, rather than the obsolete (``basic'') REs that are the default. .IP REG_BASIC This is a synonym for 0, provided as a counterpart to REG_EXTENDED to improve readability. .IP REG_NOSPEC Compile with recognition of all special characters turned off. All characters are thus considered ordinary, so the ``RE'' is a literal string. This is an extension, compatible with but not specified by POSIX 1003.2, and should be used with caution in software intended to be portable to other systems. REG_EXTENDED and REG_NOSPEC may not be used in the same call to .IR regcomp . .IP REG_ICASE Compile for matching that ignores upper/lower case distinctions. See .ZR . .IP REG_NOSUB Compile for matching that need only report success or failure, not what was matched. .IP REG_NEWLINE Compile for newline-sensitive matching. By default, newline is a completely ordinary character with no special meaning in either REs or strings. With this flag, `[^' bracket expressions and `.' never match newline, a `^' anchor matches the null string after any newline in the string in addition to its normal function, and the `$' anchor matches the null string before any newline in the string in addition to its normal function. .IP REG_PEND The regular expression ends, not at the first NUL, but just before the character pointed to by the .I re_endp member of the structure pointed to by .IR preg . The .I re_endp member is of type .IR const\ char\ * . This flag permits inclusion of NULs in the RE; they are considered ordinary characters. This is an extension, compatible with but not specified by POSIX 1003.2, and should be used with caution in software intended to be portable to other systems. .PP When successful, .I regcomp returns 0 and fills in the structure pointed to by .IR preg . One member of that structure (other than .IR re_endp ) is publicized: .IR re_nsub , of type .IR size_t , contains the number of parenthesized subexpressions within the RE (except that the value of this member is undefined if the REG_NOSUB flag was used). If .I regcomp fails, it returns a non-zero error code; see DIAGNOSTICS. .PP .I Regexec matches the compiled RE pointed to by .I preg against the .IR string , subject to the flags in .IR eflags , and reports results using .IR nmatch , .IR pmatch , and the returned value. The RE must have been compiled by a previous invocation of .IR regcomp . The compiled form is not altered during execution of .IR regexec , so a single compiled RE can be used simultaneously by multiple threads. .PP By default, the NUL-terminated string pointed to by .I string is considered to be the text of an entire line, minus any terminating newline. The .I eflags argument is the bitwise OR of zero or more of the following flags: .IP REG_NOTBOL \w'REG_STARTEND'u+2n The first character of the string is not the beginning of a line, so the `^' anchor should not match before it. This does not affect the behavior of newlines under REG_NEWLINE. .IP REG_NOTEOL The NUL terminating the string does not end a line, so the `$' anchor should not match before it. This does not affect the behavior of newlines under REG_NEWLINE. .IP REG_STARTEND The string is considered to start at \fIstring\fR\ + \fIpmatch\fR[0].\fIrm_so\fR and to have a terminating NUL located at \fIstring\fR\ + \fIpmatch\fR[0].\fIrm_eo\fR (there need not actually be a NUL at that location), regardless of the value of .IR nmatch . See below for the definition of .IR pmatch and .IR nmatch . This is an extension, compatible with but not specified by POSIX 1003.2, and should be used with caution in software intended to be portable to other systems. Note that a non-zero \fIrm_so\fR does not imply REG_NOTBOL; REG_STARTEND affects only the location of the string, not how it is matched. .PP See .ZR for a discussion of what is matched in situations where an RE or a portion thereof could match any of several substrings of .IR string . .PP Normally, .I regexec returns 0 for success and the non-zero code REG_NOMATCH for failure. Other non-zero error codes may be returned in exceptional situations; see DIAGNOSTICS. .PP If REG_NOSUB was specified in the compilation of the RE, or if .I nmatch is 0, .I regexec ignores the .I pmatch argument (but see below for the case where REG_STARTEND is specified). Otherwise, .I pmatch points to an array of .I nmatch structures of type .IR regmatch_t . Such a structure has at least the members .I rm_so and .IR rm_eo , both of type .I regoff_t (a signed arithmetic type at least as large as an .I off_t and a .IR ssize_t ), containing respectively the offset of the first character of a substring and the offset of the first character after the end of the substring. Offsets are measured from the beginning of the .I string argument given to .IR regexec . An empty substring is denoted by equal offsets, both indicating the character following the empty substring. .PP The 0th member of the .I pmatch array is filled in to indicate what substring of .I string was matched by the entire RE. Remaining members report what substring was matched by parenthesized subexpressions within the RE; member .I i reports subexpression .IR i , with subexpressions counted (starting at 1) by the order of their opening parentheses in the RE, left to right. Unused entries in the array\(emcorresponding either to subexpressions that did not participate in the match at all, or to subexpressions that do not exist in the RE (that is, \fIi\fR\ > \fIpreg\fR\->\fIre_nsub\fR)\(emhave both .I rm_so and .I rm_eo set to \-1. If a subexpression participated in the match several times, the reported substring is the last one it matched. (Note, as an example in particular, that when the RE `(b*)+' matches `bbb', the parenthesized subexpression matches each of the three `b's and then an infinite number of empty strings following the last `b', so the reported substring is one of the empties.) .PP If REG_STARTEND is specified, .I pmatch must point to at least one .I regmatch_t (even if .I nmatch is 0 or REG_NOSUB was specified), to hold the input offsets for REG_STARTEND. Use for output is still entirely controlled by .IR nmatch ; if .I nmatch is 0 or REG_NOSUB was specified, the value of .IR pmatch [0] will not be changed by a successful .IR regexec . .PP .I Regerror maps a non-zero .I errcode from either .I regcomp or .I regexec to a human-readable, printable message. If .I preg is non-NULL, the error code should have arisen from use of the .I regex_t pointed to by .IR preg , and if the error code came from .IR regcomp , it should have been the result from the most recent .I regcomp using that .IR regex_t . .RI ( Regerror may be able to supply a more detailed message using information from the .IR regex_t .) .I Regerror places the NUL-terminated message into the buffer pointed to by .IR errbuf , limiting the length (including the NUL) to at most .I errbuf_size bytes. If the whole message won't fit, as much of it as will fit before the terminating NUL is supplied. In any case, the returned value is the size of buffer needed to hold the whole message (including terminating NUL). If .I errbuf_size is 0, .I errbuf is ignored but the return value is still correct. .PP If the .I errcode given to .I regerror is first ORed with REG_ITOA, the ``message'' that results is the printable name of the error code, e.g. ``REG_NOMATCH'', rather than an explanation thereof. If .I errcode is REG_ATOI, then .I preg shall be non-NULL and the .I re_endp member of the structure it points to must point to the printable name of an error code; in this case, the result in .I errbuf is the decimal digits of the numeric value of the error code (0 if the name is not recognized). REG_ITOA and REG_ATOI are intended primarily as debugging facilities; they are extensions, compatible with but not specified by POSIX 1003.2, and should be used with caution in software intended to be portable to other systems. Be warned also that they are considered experimental and changes are possible. .PP .I Regfree frees any dynamically-allocated storage associated with the compiled RE pointed to by .IR preg . The remaining .I regex_t is no longer a valid compiled RE and the effect of supplying it to .I regexec or .I regerror is undefined. .PP None of these functions references global variables except for tables of constants; all are safe for use from multiple threads if the arguments are safe. .SH IMPLEMENTATION CHOICES There are a number of decisions that 1003.2 leaves up to the implementor, either by explicitly saying ``undefined'' or by virtue of them being forbidden by the RE grammar. This implementation treats them as follows. .PP See .ZR for a discussion of the definition of case-independent matching. .PP There is no particular limit on the length of REs, except insofar as memory is limited. Memory usage is approximately linear in RE size, and largely insensitive to RE complexity, except for bounded repetitions. See BUGS for one short RE using them that will run almost any system out of memory. .PP A backslashed character other than one specifically given a magic meaning by 1003.2 (such magic meanings occur only in obsolete [``basic''] REs) is taken as an ordinary character. .PP Any unmatched [ is a REG_EBRACK error. .PP Equivalence classes cannot begin or end bracket-expression ranges. The endpoint of one range cannot begin another. .PP RE_DUP_MAX, the limit on repetition counts in bounded repetitions, is 255. .PP A repetition operator (?, *, +, or bounds) cannot follow another repetition operator. A repetition operator cannot begin an expression or subexpression or follow `^' or `|'. .PP `|' cannot appear first or last in a (sub)expression or after another `|', i.e. an operand of `|' cannot be an empty subexpression. An empty parenthesized subexpression, `()', is legal and matches an empty (sub)string. An empty string is not a legal RE. .PP A `{' followed by a digit is considered the beginning of bounds for a bounded repetition, which must then follow the syntax for bounds. A `{' \fInot\fR followed by a digit is considered an ordinary character. .PP `^' and `$' beginning and ending subexpressions in obsolete (``basic'') REs are anchors, not ordinary characters. .SH SEE ALSO grep(1), regex(7) .PP POSIX 1003.2, sections 2.8 (Regular Expression Notation) and B.5 (C Binding for Regular Expression Matching). .SH DIAGNOSTICS Non-zero error codes from .I regcomp and .I regexec include the following: .PP .nf .ta \w'REG_ECOLLATE'u+3n REG_NOMATCH regexec() failed to match REG_BADPAT invalid regular expression REG_ECOLLATE invalid collating element REG_ECTYPE invalid character class REG_EESCAPE \e applied to unescapable character REG_ESUBREG invalid backreference number REG_EBRACK brackets [ ] not balanced REG_EPAREN parentheses ( ) not balanced REG_EBRACE braces { } not balanced REG_BADBR invalid repetition count(s) in { } REG_ERANGE invalid character range in [ ] REG_ESPACE ran out of memory REG_BADRPT ?, *, or + operand invalid REG_EMPTY empty (sub)expression REG_ASSERT ``can't happen''\(emyou found a bug REG_INVARG invalid argument, e.g. negative-length string .fi .SH HISTORY Written by Henry Spencer at University of Toronto, henry@zoo.toronto.edu. .SH BUGS This is an alpha release with known defects. Please report problems. .PP There is one known functionality bug. The implementation of internationalization is incomplete: the locale is always assumed to be the default one of 1003.2, and only the collating elements etc. of that locale are available. .PP The back-reference code is subtle and doubts linger about its correctness in complex cases. .PP .I Regexec performance is poor. This will improve with later releases. .I Nmatch exceeding 0 is expensive; .I nmatch exceeding 1 is worse. .I Regexec is largely insensitive to RE complexity \fIexcept\fR that back references are massively expensive. RE length does matter; in particular, there is a strong speed bonus for keeping RE length under about 30 characters, with most special characters counting roughly double. .PP .I Regcomp implements bounded repetitions by macro expansion, which is costly in time and space if counts are large or bounded repetitions are nested. An RE like, say, `((((a{1,100}){1,100}){1,100}){1,100}){1,100}' will (eventually) run almost any existing machine out of swap space. .PP There are suspected problems with response to obscure error conditions. Notably, certain kinds of internal overflow, produced only by truly enormous REs or by multiply nested bounded repetitions, are probably not handled well. .PP Due to a mistake in 1003.2, things like `a)b' are legal REs because `)' is a special character only in the presence of a previous unmatched `('. This can't be fixed until the spec is fixed. .PP The standard's definition of back references is vague. For example, does `a\e(\e(b\e)*\e2\e)*d' match `abbbd'? Until the standard is clarified, behavior in such cases should not be relied on. .PP The implementation of word-boundary matching is a bit of a kludge, and bugs may lurk in combinations of word-boundary matching and anchoring. xemp5.1-beta/lib/regex/regex.7100644 12266 2116 22740 6033707440 14545 0ustar jponexor.TH REGEX 7 "7 Feb 1994" .BY "Henry Spencer" .SH NAME regex \- POSIX 1003.2 regular expressions .SH DESCRIPTION Regular expressions (``RE''s), as defined in POSIX 1003.2, come in two forms: modern REs (roughly those of .IR egrep ; 1003.2 calls these ``extended'' REs) and obsolete REs (roughly those of .IR ed ; 1003.2 ``basic'' REs). Obsolete REs mostly exist for backward compatibility in some old programs; they will be discussed at the end. 1003.2 leaves some aspects of RE syntax and semantics open; `\(dg' marks decisions on these aspects that may not be fully portable to other 1003.2 implementations. .PP A (modern) RE is one\(dg or more non-empty\(dg \fIbranches\fR, separated by `|'. It matches anything that matches one of the branches. .PP A branch is one\(dg or more \fIpieces\fR, concatenated. It matches a match for the first, followed by a match for the second, etc. .PP A piece is an \fIatom\fR possibly followed by a single\(dg `*', `+', `?', or \fIbound\fR. An atom followed by `*' matches a sequence of 0 or more matches of the atom. An atom followed by `+' matches a sequence of 1 or more matches of the atom. An atom followed by `?' matches a sequence of 0 or 1 matches of the atom. .PP A \fIbound\fR is `{' followed by an unsigned decimal integer, possibly followed by `,' possibly followed by another unsigned decimal integer, always followed by `}'. The integers must lie between 0 and RE_DUP_MAX (255\(dg) inclusive, and if there are two of them, the first may not exceed the second. An atom followed by a bound containing one integer \fIi\fR and no comma matches a sequence of exactly \fIi\fR matches of the atom. An atom followed by a bound containing one integer \fIi\fR and a comma matches a sequence of \fIi\fR or more matches of the atom. An atom followed by a bound containing two integers \fIi\fR and \fIj\fR matches a sequence of \fIi\fR through \fIj\fR (inclusive) matches of the atom. .PP An atom is a regular expression enclosed in `()' (matching a match for the regular expression), an empty set of `()' (matching the null string)\(dg, a \fIbracket expression\fR (see below), `.' (matching any single character), `^' (matching the null string at the beginning of a line), `$' (matching the null string at the end of a line), a `\e' followed by one of the characters `^.[$()|*+?{\e' (matching that character taken as an ordinary character), a `\e' followed by any other character\(dg (matching that character taken as an ordinary character, as if the `\e' had not been present\(dg), or a single character with no other significance (matching that character). A `{' followed by a character other than a digit is an ordinary character, not the beginning of a bound\(dg. It is illegal to end an RE with `\e'. .PP A \fIbracket expression\fR is a list of characters enclosed in `[]'. It normally matches any single character from the list (but see below). If the list begins with `^', it matches any single character (but see below) \fInot\fR from the rest of the list. If two characters in the list are separated by `\-', this is shorthand for the full \fIrange\fR of characters between those two (inclusive) in the collating sequence, e.g. `[0-9]' in ASCII matches any decimal digit. It is illegal\(dg for two ranges to share an endpoint, e.g. `a-c-e'. Ranges are very collating-sequence-dependent, and portable programs should avoid relying on them. .PP To include a literal `]' in the list, make it the first character (following a possible `^'). To include a literal `\-', make it the first or last character, or the second endpoint of a range. To use a literal `\-' as the first endpoint of a range, enclose it in `[.' and `.]' to make it a collating element (see below). With the exception of these and some combinations using `[' (see next paragraphs), all other special characters, including `\e', lose their special significance within a bracket expression. .PP Within a bracket expression, a collating element (a character, a multi-character sequence that collates as if it were a single character, or a collating-sequence name for either) enclosed in `[.' and `.]' stands for the sequence of characters of that collating element. The sequence is a single element of the bracket expression's list. A bracket expression containing a multi-character collating element can thus match more than one character, e.g. if the collating sequence includes a `ch' collating element, then the RE `[[.ch.]]*c' matches the first five characters of `chchcc'. .PP Within a bracket expression, a collating element enclosed in `[=' and `=]' is an equivalence class, standing for the sequences of characters of all collating elements equivalent to that one, including itself. (If there are no other equivalent collating elements, the treatment is as if the enclosing delimiters were `[.' and `.]'.) For example, if o and \o'o^' are the members of an equivalence class, then `[[=o=]]', `[[=\o'o^'=]]', and `[o\o'o^']' are all synonymous. An equivalence class may not\(dg be an endpoint of a range. .PP Within a bracket expression, the name of a \fIcharacter class\fR enclosed in `[:' and `:]' stands for the list of all characters belonging to that class. Standard character class names are: .PP .RS .nf .ta 3c 6c 9c alnum digit punct alpha graph space blank lower upper cntrl print xdigit .fi .RE .PP These stand for the character classes defined in .IR ctype (3). A locale may provide others. A character class may not be used as an endpoint of a range. .PP There are two special cases\(dg of bracket expressions: the bracket expressions `[[:<:]]' and `[[:>:]]' match the null string at the beginning and end of a word respectively. A word is defined as a sequence of word characters which is neither preceded nor followed by word characters. A word character is an .I alnum character (as defined by .IR ctype (3)) or an underscore. This is an extension, compatible with but not specified by POSIX 1003.2, and should be used with caution in software intended to be portable to other systems. .PP In the event that an RE could match more than one substring of a given string, the RE matches the one starting earliest in the string. If the RE could match more than one substring starting at that point, it matches the longest. Subexpressions also match the longest possible substrings, subject to the constraint that the whole match be as long as possible, with subexpressions starting earlier in the RE taking priority over ones starting later. Note that higher-level subexpressions thus take priority over their lower-level component subexpressions. .PP Match lengths are measured in characters, not collating elements. A null string is considered longer than no match at all. For example, `bb*' matches the three middle characters of `abbbc', `(wee|week)(knights|nights)' matches all ten characters of `weeknights', when `(.*).*' is matched against `abc' the parenthesized subexpression matches all three characters, and when `(a*)*' is matched against `bc' both the whole RE and the parenthesized subexpression match the null string. .PP If case-independent matching is specified, the effect is much as if all case distinctions had vanished from the alphabet. When an alphabetic that exists in multiple cases appears as an ordinary character outside a bracket expression, it is effectively transformed into a bracket expression containing both cases, e.g. `x' becomes `[xX]'. When it appears inside a bracket expression, all case counterparts of it are added to the bracket expression, so that (e.g.) `[x]' becomes `[xX]' and `[^x]' becomes `[^xX]'. .PP No particular limit is imposed on the length of REs\(dg. Programs intended to be portable should not employ REs longer than 256 bytes, as an implementation can refuse to accept such REs and remain POSIX-compliant. .PP Obsolete (``basic'') regular expressions differ in several respects. `|', `+', and `?' are ordinary characters and there is no equivalent for their functionality. The delimiters for bounds are `\e{' and `\e}', with `{' and `}' by themselves ordinary characters. The parentheses for nested subexpressions are `\e(' and `\e)', with `(' and `)' by themselves ordinary characters. `^' is an ordinary character except at the beginning of the RE or\(dg the beginning of a parenthesized subexpression, `$' is an ordinary character except at the end of the RE or\(dg the end of a parenthesized subexpression, and `*' is an ordinary character if it appears at the beginning of the RE or the beginning of a parenthesized subexpression (after a possible leading `^'). Finally, there is one new type of atom, a \fIback reference\fR: `\e' followed by a non-zero decimal digit \fId\fR matches the same sequence of characters matched by the \fId\fRth parenthesized subexpression (numbering subexpressions by the positions of their opening parentheses, left to right), so that (e.g.) `\e([bc]\e)\e1' matches `bb' or `cc' but not `bc'. .SH SEE ALSO regex(3) .PP POSIX 1003.2, section 2.8 (Regular Expression Notation). .SH BUGS Having two kinds of REs is a botch. .PP The current 1003.2 spec says that `)' is an ordinary character in the absence of an unmatched `('; this was an unintentional result of a wording error, and change is likely. Avoid relying on it. .PP Back references are a dreadful botch, posing major problems for efficient implementations. They are also somewhat vaguely defined (does `a\e(\e(b\e)*\e2\e)*d' match `abbbd'?). Avoid using them. .PP 1003.2's specification of case-independent matching is vague. The ``one case implies all cases'' definition given above is current consensus among implementors as to the right interpretation. .PP The syntax for word boundaries is incredibly ugly. xemp5.1-beta/lib/regex/tests100644 12266 2116 27737 6033707440 14443 0ustar jponexor# regular expression test set # Lines are at least three fields, separated by one or more tabs. "" stands # for an empty field. First field is an RE. Second field is flags. If # C flag given, regcomp() is expected to fail, and the third field is the # error name (minus the leading REG_). # # Otherwise it is expected to succeed, and the third field is the string to # try matching it against. If there is no fourth field, the match is # expected to fail. If there is a fourth field, it is the substring that # the RE is expected to match. If there is a fifth field, it is a comma- # separated list of what the subexpressions should match, with - indicating # no match for that one. In both the fourth and fifth fields, a (sub)field # starting with @ indicates that the (sub)expression is expected to match # a null string followed by the stuff after the @; this provides a way to # test where null strings match. The character `N' in REs and strings # is newline, `S' is space, `T' is tab, `Z' is NUL. # # The full list of flags: # - placeholder, does nothing # b RE is a BRE, not an ERE # & try it as both an ERE and a BRE # C regcomp() error expected, third field is error name # i REG_ICASE # m ("mundane") REG_NOSPEC # s REG_NOSUB (not really testable) # n REG_NEWLINE # ^ REG_NOTBOL # $ REG_NOTEOL # # REG_STARTEND (see below) # p REG_PEND # # For REG_STARTEND, the start/end offsets are those of the substring # enclosed in (). # basics a & a a abc & abc abc abc|de - abc abc a|b|c - abc a # parentheses and perversions thereof a(b)c - abc abc a\(b\)c b abc abc a( C EPAREN a( b a( a( a\( - a( a( a\( bC EPAREN a\(b bC EPAREN a(b C EPAREN a(b b a(b a(b # gag me with a right parenthesis -- 1003.2 goofed here (my fault, partly) a) - a) a) ) - ) ) # end gagging (in a just world, those *should* give EPAREN) a) b a) a) a\) bC EPAREN \) bC EPAREN a()b - ab ab a\(\)b b ab ab # anchoring and REG_NEWLINE ^abc$ & abc abc a^b - a^b a^b b a^b a^b a$b - a$b a$b b a$b a$b ^ & abc @abc $ & abc @ ^$ & "" @ $^ - "" @ \($\)\(^\) b "" @ # stop retching, those are legitimate (although disgusting) ^^ - "" @ $$ - "" @ b$ & abNc b$ &n abNc b ^b$ & aNbNc ^b$ &n aNbNc b ^$ &n aNNb @Nb ^$ n abc ^$ n abcN @ $^ n aNNb @Nb \($\)\(^\) bn aNNb @Nb ^^ n^ aNNb @Nb $$ n aNNb @NN ^a ^ a a$ $ a ^a ^n aNb ^b ^n aNb b a$ $n bNa b$ $n bNa b a*(^b$)c* - b b a*\(^b$\)c* b b b # certain syntax errors and non-errors | C EMPTY | b | | * C BADRPT * b * * + C BADRPT ? C BADRPT "" &C EMPTY () - abc @abc \(\) b abc @abc a||b C EMPTY |ab C EMPTY ab| C EMPTY (|a)b C EMPTY (a|)b C EMPTY (*a) C BADRPT (+a) C BADRPT (?a) C BADRPT ({1}a) C BADRPT \(\{1\}a\) bC BADRPT (a|*b) C BADRPT (a|+b) C BADRPT (a|?b) C BADRPT (a|{1}b) C BADRPT ^* C BADRPT ^* b * * ^+ C BADRPT ^? C BADRPT ^{1} C BADRPT ^\{1\} bC BADRPT # metacharacters, backslashes a.c & abc abc a[bc]d & abd abd a\*c & a*c a*c a\\b & a\b a\b a\\\*b & a\*b a\*b a\bc & abc abc a\ &C EESCAPE a\\bc & a\bc a\bc \{ bC BADRPT a\[b & a[b a[b a[b &C EBRACK # trailing $ is a peculiar special case for the BRE code a$ & a a a$ & a$ a\$ & a a\$ & a$ a$ a\\$ & a a\\$ & a$ a\\$ & a\$ a\\$ & a\ a\ # back references, ugh a\(b\)\2c bC ESUBREG a\(b\1\)c bC ESUBREG a\(b*\)c\1d b abbcbbd abbcbbd bb a\(b*\)c\1d b abbcbd a\(b*\)c\1d b abbcbbbd ^\(.\)\1 b abc a\([bc]\)\1d b abcdabbd abbd b a\(\([bc]\)\2\)*d b abbccd abbccd a\(\([bc]\)\2\)*d b abbcbd # actually, this next one probably ought to fail, but the spec is unclear a\(\(b\)*\2\)*d b abbbd abbbd # here is a case that no NFA implementation does right \(ab*\)[ab]*\1 b ababaaa ababaaa a # check out normal matching in the presence of back refs \(a\)\1bcd b aabcd aabcd \(a\)\1bc*d b aabcd aabcd \(a\)\1bc*d b aabd aabd \(a\)\1bc*d b aabcccd aabcccd \(a\)\1bc*[ce]d b aabcccd aabcccd ^\(a\)\1b\(c\)*cd$ b aabcccd aabcccd # ordinary repetitions ab*c & abc abc ab+c - abc abc ab?c - abc abc a\(*\)b b a*b a*b a\(**\)b b ab ab a\(***\)b bC BADRPT *a b *a *a **a b a a ***a bC BADRPT # the dreaded bounded repetitions { & { { {abc & {abc {abc {1 C BADRPT {1} C BADRPT a{b & a{b a{b a{1}b - ab ab a\{1\}b b ab ab a{1,}b - ab ab a\{1,\}b b ab ab a{1,2}b - aab aab a\{1,2\}b b aab aab a{1 C EBRACE a\{1 bC EBRACE a{1a C EBRACE a\{1a bC EBRACE a{1a} C BADBR a\{1a\} bC BADBR a{,2} - a{,2} a{,2} a\{,2\} bC BADBR a{,} - a{,} a{,} a\{,\} bC BADBR a{1,x} C BADBR a\{1,x\} bC BADBR a{1,x C EBRACE a\{1,x bC EBRACE a{300} C BADBR a\{300\} bC BADBR a{1,0} C BADBR a\{1,0\} bC BADBR ab{0,0}c - abcac ac ab\{0,0\}c b abcac ac ab{0,1}c - abcac abc ab\{0,1\}c b abcac abc ab{0,3}c - abbcac abbc ab\{0,3\}c b abbcac abbc ab{1,1}c - acabc abc ab\{1,1\}c b acabc abc ab{1,3}c - acabc abc ab\{1,3\}c b acabc abc ab{2,2}c - abcabbc abbc ab\{2,2\}c b abcabbc abbc ab{2,4}c - abcabbc abbc ab\{2,4\}c b abcabbc abbc ((a{1,10}){1,10}){1,10} - a a a,a # multiple repetitions a** &C BADRPT a++ C BADRPT a?? C BADRPT a*+ C BADRPT a*? C BADRPT a+* C BADRPT a+? C BADRPT a?* C BADRPT a?+ C BADRPT a{1}{1} C BADRPT a*{1} C BADRPT a+{1} C BADRPT a?{1} C BADRPT a{1}* C BADRPT a{1}+ C BADRPT a{1}? C BADRPT a*{b} - a{b} a{b} a\{1\}\{1\} bC BADRPT a*\{1\} bC BADRPT a\{1\}* bC BADRPT # brackets, and numerous perversions thereof a[b]c & abc abc a[ab]c & abc abc a[^ab]c & adc adc a[]b]c & a]c a]c a[[b]c & a[c a[c a[-b]c & a-c a-c a[^]b]c & adc adc a[^-b]c & adc adc a[b-]c & a-c a-c a[b &C EBRACK a[] &C EBRACK a[1-3]c & a2c a2c a[3-1]c &C ERANGE a[1-3-5]c &C ERANGE a[[.-.]--]c & a-c a-c a[1- &C ERANGE a[[. &C EBRACK a[[.x &C EBRACK a[[.x. &C EBRACK a[[.x.] &C EBRACK a[[.x.]] & ax ax a[[.x,.]] &C ECOLLATE a[[.one.]]b & a1b a1b a[[.notdef.]]b &C ECOLLATE a[[.].]]b & a]b a]b a[[:alpha:]]c & abc abc a[[:notdef:]]c &C ECTYPE a[[: &C EBRACK a[[:alpha &C EBRACK a[[:alpha:] &C EBRACK a[[:alpha,:] &C ECTYPE a[[:]:]]b &C ECTYPE a[[:-:]]b &C ECTYPE a[[:alph:]] &C ECTYPE a[[:alphabet:]] &C ECTYPE [[:alnum:]]+ - -%@a0X- a0X [[:alpha:]]+ - -%@aX0- aX [[:blank:]]+ - aSSTb SST [[:cntrl:]]+ - aNTb NT [[:digit:]]+ - a019b 019 [[:graph:]]+ - Sa%bS a%b [[:lower:]]+ - AabC ab [[:print:]]+ - NaSbN aSb [[:punct:]]+ - S%-&T %-& [[:space:]]+ - aSNTb SNT [[:upper:]]+ - aBCd BC [[:xdigit:]]+ - p0f3Cq 0f3C a[[=b=]]c & abc abc a[[= &C EBRACK a[[=b &C EBRACK a[[=b= &C EBRACK a[[=b=] &C EBRACK a[[=b,=]] &C ECOLLATE a[[=one=]]b & a1b a1b # complexities a(((b)))c - abc abc a(b|(c))d - abd abd a(b*|c)d - abbd abbd # just gotta have one DFA-buster, of course a[ab]{20} - aaaaabaaaabaaaabaaaab aaaaabaaaabaaaabaaaab # and an inline expansion in case somebody gets tricky a[ab][ab][ab][ab][ab][ab][ab][ab][ab][ab][ab][ab][ab][ab][ab][ab][ab][ab][ab][ab] - aaaaabaaaabaaaabaaaab aaaaabaaaabaaaabaaaab # and in case somebody just slips in an NFA... a[ab][ab][ab][ab][ab][ab][ab][ab][ab][ab][ab][ab][ab][ab][ab][ab][ab][ab][ab][ab](wee|week)(knights|night) - aaaaabaaaabaaaabaaaabweeknights aaaaabaaaabaaaabaaaabweeknights # fish for anomalies as the number of states passes 32 12345678901234567890123456789 - a12345678901234567890123456789b 12345678901234567890123456789 123456789012345678901234567890 - a123456789012345678901234567890b 123456789012345678901234567890 1234567890123456789012345678901 - a1234567890123456789012345678901b 1234567890123456789012345678901 12345678901234567890123456789012 - a12345678901234567890123456789012b 12345678901234567890123456789012 123456789012345678901234567890123 - a123456789012345678901234567890123b 123456789012345678901234567890123 # and one really big one, beyond any plausible word width 1234567890123456789012345678901234567890123456789012345678901234567890 - a1234567890123456789012345678901234567890123456789012345678901234567890b 1234567890123456789012345678901234567890123456789012345678901234567890 # fish for problems as brackets go past 8 [ab][cd][ef][gh][ij][kl][mn] - xacegikmoq acegikm [ab][cd][ef][gh][ij][kl][mn][op] - xacegikmoq acegikmo [ab][cd][ef][gh][ij][kl][mn][op][qr] - xacegikmoqy acegikmoq [ab][cd][ef][gh][ij][kl][mn][op][q] - xacegikmoqy acegikmoq # subtleties of matching abc & xabcy abc a\(b\)?c\1d b acd aBc i Abc Abc a[Bc]*d i abBCcd abBCcd 0[[:upper:]]1 &i 0a1 0a1 0[[:lower:]]1 &i 0A1 0A1 a[^b]c &i abc a[^b]c &i aBc a[^b]c &i adc adc [a]b[c] - abc abc [a]b[a] - aba aba [abc]b[abc] - abc abc [abc]b[abd] - abd abd a(b?c)+d - accd accd (wee|week)(knights|night) - weeknights weeknights (we|wee|week|frob)(knights|night|day) - weeknights weeknights a[bc]d - xyzaaabcaababdacd abd a[ab]c - aaabc abc abc s abc abc a* & b @b # Let's have some fun -- try to match a C comment. # first the obvious, which looks okay at first glance... /\*.*\*/ - /*x*/ /*x*/ # but... /\*.*\*/ - /*x*/y/*z*/ /*x*/y/*z*/ # okay, we must not match */ inside; try to do that... /\*([^*]|\*[^/])*\*/ - /*x*/ /*x*/ /\*([^*]|\*[^/])*\*/ - /*x*/y/*z*/ /*x*/ # but... /\*([^*]|\*[^/])*\*/ - /*x**/y/*z*/ /*x**/y/*z*/ # and a still fancier version, which does it right (I think)... /\*([^*]|\*+[^*/])*\*+/ - /*x*/ /*x*/ /\*([^*]|\*+[^*/])*\*+/ - /*x*/y/*z*/ /*x*/ /\*([^*]|\*+[^*/])*\*+/ - /*x**/y/*z*/ /*x**/ /\*([^*]|\*+[^*/])*\*+/ - /*x****/y/*z*/ /*x****/ /\*([^*]|\*+[^*/])*\*+/ - /*x**x*/y/*z*/ /*x**x*/ /\*([^*]|\*+[^*/])*\*+/ - /*x***x/y/*z*/ /*x***x/y/*z*/ # subexpressions a(b)(c)d - abcd abcd b,c a(((b)))c - abc abc b,b,b a(b|(c))d - abd abd b,- a(b*|c|e)d - abbd abbd bb a(b*|c|e)d - acd acd c a(b*|c|e)d - ad ad @d a(b?)c - abc abc b a(b?)c - ac ac @c a(b+)c - abc abc b a(b+)c - abbbc abbbc bbb a(b*)c - ac ac @c (a|ab)(bc([de]+)f|cde) - abcdef abcdef a,bcdef,de # the regression tester only asks for 9 subexpressions a(b)(c)(d)(e)(f)(g)(h)(i)(j)k - abcdefghijk abcdefghijk b,c,d,e,f,g,h,i,j a(b)(c)(d)(e)(f)(g)(h)(i)(j)(k)l - abcdefghijkl abcdefghijkl b,c,d,e,f,g,h,i,j,k a([bc]?)c - abc abc b a([bc]?)c - ac ac @c a([bc]+)c - abc abc b a([bc]+)c - abcc abcc bc a([bc]+)bc - abcbc abcbc bc a(bb+|b)b - abb abb b a(bbb+|bb+|b)b - abb abb b a(bbb+|bb+|b)b - abbb abbb bb a(bbb+|bb+|b)bb - abbb abbb b (.*).* - abcdef abcdef abcdef (a*)* - bc @b @b # do we get the right subexpression when it is used more than once? a(b|c)*d - ad ad - a(b|c)*d - abcd abcd c a(b|c)+d - abd abd b a(b|c)+d - abcd abcd c a(b|c?)+d - ad ad @d a(b|c?)+d - abcd abcd @d a(b|c){0,0}d - ad ad - a(b|c){0,1}d - ad ad - a(b|c){0,1}d - abd abd b a(b|c){0,2}d - ad ad - a(b|c){0,2}d - abcd abcd c a(b|c){0,}d - ad ad - a(b|c){0,}d - abcd abcd c a(b|c){1,1}d - abd abd b a(b|c){1,1}d - acd acd c a(b|c){1,2}d - abd abd b a(b|c){1,2}d - abcd abcd c a(b|c){1,}d - abd abd b a(b|c){1,}d - abcd abcd c a(b|c){2,2}d - acbd acbd b a(b|c){2,2}d - abcd abcd c a(b|c){2,4}d - abcd abcd c a(b|c){2,4}d - abcbd abcbd b a(b|c){2,4}d - abcbcd abcbcd c a(b|c){2,}d - abcd abcd c a(b|c){2,}d - abcbd abcbd b a(b+|((c)*))+d - abd abd @d,@d,- a(b+|((c)*))+d - abcd abcd @d,@d,- # check out the STARTEND option [abc] &# a(b)c b [abc] &# a(d)c [abc] &# a(bc)d b [abc] &# a(dc)d c . &# a()c b.*c &# b(bc)c bc b.* &# b(bc)c bc .*c &# b(bc)c bc # plain strings, with the NOSPEC flag abc m abc abc abc m xabcy abc abc m xyz a*b m aba*b a*b a*b m ab "" mC EMPTY # cases involving NULs aZb & a a aZb &p a aZb &p# (aZb) aZb aZ*b &p# (ab) ab a.b &# (aZb) aZb a.* &# (aZb)c aZb # word boundaries (ick) [[:<:]]a & a a [[:<:]]a & ba [[:<:]]a & -a a a[[:>:]] & a a a[[:>:]] & ab a[[:>:]] & a- a [[:<:]]a.c[[:>:]] & axcd-dayc-dazce-abc abc [[:<:]]a.c[[:>:]] & axcd-dayc-dazce-abc-q abc [[:<:]]a.c[[:>:]] & axc-dayc-dazce-abc axc [[:<:]]b.c[[:>:]] & a_bxc-byc_d-bzc-q bzc [[:<:]].x..[[:>:]] & y_xa_-_xb_y-_xc_-axdc _xc_ [[:<:]]a_b[[:>:]] & x_a_b # past problems, and suspected problems (A[1])|(A[2])|(A[3])|(A[4])|(A[5])|(A[6])|(A[7])|(A[8])|(A[9])|(A[A]) - A1 A1 abcdefghijklmnop i abcdefghijklmnop abcdefghijklmnop abcdefghijklmnopqrstuv i abcdefghijklmnopqrstuv abcdefghijklmnopqrstuv (ALAK)|(ALT[AB])|(CC[123]1)|(CM[123]1)|(GAMC)|(LC[23][EO ])|(SEM[1234])|(SL[ES][12])|(SLWW)|(SLF )|(SLDT)|(VWH[12])|(WH[34][EW])|(WP1[ESN]) - CC11 CC11 CC[13]1|a{21}[23][EO][123][Es][12]a{15}aa[34][EW]aaaaaaa[X]a - CC11 CC11 Char \([a-z0-9_]*\)\[.* b Char xyz[k Char xyz[k xyz a?b - ab ab -\{0,1\}[0-9]*$ b -5 -5 xemp5.1-beta/lib/regex/cclass.h100644 12266 2116 2257 6034433243 14743 0ustar jponexor/* character-class table */ static struct cclass { char *name; char *chars; char *multis; } cclasses[] = { #define CCLASS_ALNUM 0 "alnum", "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz\ 0123456789", "", #define CCLASS_ALPHA 1 "alpha", "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz", "", #define CCLASS_BLANK 2 "blank", " \t", "", #define CCLASS_CNTRL 3 "cntrl", "\007\b\t\n\v\f\r\1\2\3\4\5\6\16\17\20\21\22\23\24\ \25\26\27\30\31\32\33\34\35\36\37\177", "", #define CCLASS_DIGIT 4 "digit", "0123456789", "", #define CCLASS_GRAPHIC 5 "graph", "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz\ 0123456789!\"#$%&'()*+,-./:;<=>?@[\\]^_`{|}~", "", #define CCLASS_LOWER 6 "lower", "abcdefghijklmnopqrstuvwxyz", "", #define CCLASS_PRINT 7 "print", "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz\ 0123456789!\"#$%&'()*+,-./:;<=>?@[\\]^_`{|}~ ", "", #define CCLASS_PUNCT 8 "punct", "!\"#$%&'()*+,-./:;<=>?@[\\]^_`{|}~", "", #define CCLASS_SPACE 9 "space", "\t\n\v\f\r ", "", #define CCLASS_UPPER 10 "upper", "ABCDEFGHIJKLMNOPQRSTUVWXYZ", "", #define CCLASS_XDIGIT 11 "xdigit", "0123456789ABCDEFabcdef", "", NULL, 0, "" }; xemp5.1-beta/lib/regex/cname.h100644 12266 2116 3512 6033707440 14553 0ustar jponexor/* character-name table */ static struct cname { char *name; char code; } cnames[] = { "NUL", '\0', "SOH", '\001', "STX", '\002', "ETX", '\003', "EOT", '\004', "ENQ", '\005', "ACK", '\006', "BEL", '\007', "alert", '\007', "BS", '\010', "backspace", '\b', "HT", '\011', "tab", '\t', "LF", '\012', "newline", '\n', "VT", '\013', "vertical-tab", '\v', "FF", '\014', "form-feed", '\f', "CR", '\015', "carriage-return", '\r', "SO", '\016', "SI", '\017', "DLE", '\020', "DC1", '\021', "DC2", '\022', "DC3", '\023', "DC4", '\024', "NAK", '\025', "SYN", '\026', "ETB", '\027', "CAN", '\030', "EM", '\031', "SUB", '\032', "ESC", '\033', "IS4", '\034', "FS", '\034', "IS3", '\035', "GS", '\035', "IS2", '\036', "RS", '\036', "IS1", '\037', "US", '\037', "space", ' ', "exclamation-mark", '!', "quotation-mark", '"', "number-sign", '#', "dollar-sign", '$', "percent-sign", '%', "ampersand", '&', "apostrophe", '\'', "left-parenthesis", '(', "right-parenthesis", ')', "asterisk", '*', "plus-sign", '+', "comma", ',', "hyphen", '-', "hyphen-minus", '-', "period", '.', "full-stop", '.', "slash", '/', "solidus", '/', "zero", '0', "one", '1', "two", '2', "three", '3', "four", '4', "five", '5', "six", '6', "seven", '7', "eight", '8', "nine", '9', "colon", ':', "semicolon", ';', "less-than-sign", '<', "equals-sign", '=', "greater-than-sign", '>', "question-mark", '?', "commercial-at", '@', "left-square-bracket", '[', "backslash", '\\', "reverse-solidus", '\\', "right-square-bracket", ']', "circumflex", '^', "circumflex-accent", '^', "underscore", '_', "low-line", '_', "grave-accent", '`', "left-brace", '{', "left-curly-bracket", '{', "vertical-line", '|', "right-brace", '}', "right-curly-bracket", '}', "tilde", '~', "DEL", '\177', NULL, 0, }; xemp5.1-beta/lib/regex/regex2.h100644 12266 2116 12407 6033707440 14707 0ustar jponexor/* * First, the stuff that ends up in the outside-world include file = typedef off_t regoff_t; = typedef struct { = int re_magic; = size_t re_nsub; // number of parenthesized subexpressions = const char *re_endp; // end pointer for REG_PEND = struct re_guts *re_g; // none of your business :-) = } regex_t; = typedef struct { = regoff_t rm_so; // start of match = regoff_t rm_eo; // end of match = } regmatch_t; */ /* * internals of regex_t */ #define MAGIC1 ((('r'^0200)<<8) | 'e') /* * The internal representation is a *strip*, a sequence of * operators ending with an endmarker. (Some terminology etc. is a * historical relic of earlier versions which used multiple strips.) * Certain oddities in the representation are there to permit running * the machinery backwards; in particular, any deviation from sequential * flow must be marked at both its source and its destination. Some * fine points: * * - OPLUS_ and O_PLUS are *inside* the loop they create. * - OQUEST_ and O_QUEST are *outside* the bypass they create. * - OCH_ and O_CH are *outside* the multi-way branch they create, while * OOR1 and OOR2 are respectively the end and the beginning of one of * the branches. Note that there is an implicit OOR2 following OCH_ * and an implicit OOR1 preceding O_CH. * * In state representations, an operator's bit is on to signify a state * immediately *preceding* "execution" of that operator. */ typedef unsigned long sop; /* strip operator */ typedef long sopno; #define OPRMASK 0xf8000000 #define OPDMASK 0x07ffffff #define OPSHIFT ((unsigned)27) #define OP(n) ((n)&OPRMASK) #define OPND(n) ((n)&OPDMASK) #define SOP(op, opnd) ((op)|(opnd)) /* operators meaning operand */ /* (back, fwd are offsets) */ #define OEND (1< uch [csetsize] */ uch mask; /* bit within array */ uch hash; /* hash code */ size_t smultis; char *multis; /* -> char[smulti] ab\0cd\0ef\0\0 */ } cset; /* note that CHadd and CHsub are unsafe, and CHIN doesn't yield 0/1 */ #define CHadd(cs, c) ((cs)->ptr[(uch)(c)] |= (cs)->mask, (cs)->hash += (c)) #define CHsub(cs, c) ((cs)->ptr[(uch)(c)] &= ~(cs)->mask, (cs)->hash -= (c)) #define CHIN(cs, c) ((cs)->ptr[(uch)(c)] & (cs)->mask) #define MCadd(p, cs, cp) mcadd(p, cs, cp) /* regcomp() internal fns */ #define MCsub(p, cs, cp) mcsub(p, cs, cp) #define MCin(p, cs, cp) mcin(p, cs, cp) /* stuff for character categories */ typedef unsigned char cat_t; /* * main compiled-expression structure */ struct re_guts { int magic; # define MAGIC2 ((('R'^0200)<<8)|'E') sop *strip; /* malloced area for strip */ int csetsize; /* number of bits in a cset vector */ int ncsets; /* number of csets in use */ cset *sets; /* -> cset [ncsets] */ uch *setbits; /* -> uch[csetsize][ncsets/CHAR_BIT] */ int cflags; /* copy of regcomp() cflags argument */ sopno nstates; /* = number of sops */ sopno firststate; /* the initial OEND (normally 0) */ sopno laststate; /* the final OEND */ int iflags; /* internal flags */ # define USEBOL 01 /* used ^ */ # define USEEOL 02 /* used $ */ # define BAD 04 /* something wrong */ int nbol; /* number of ^ used */ int neol; /* number of $ used */ int ncategories; /* how many character categories */ cat_t *categories; /* ->catspace[-CHAR_MIN] */ char *must; /* match must contain this string */ int mlen; /* length of must */ size_t nsub; /* copy of re_nsub */ int backrefs; /* does it use back references? */ sopno nplus; /* how deep does it nest +s? */ /* catspace must be last */ cat_t catspace[1]; /* actually [NC] */ }; /* misc utilities */ #define OUT (CHAR_MAX+1) /* a non-character value */ #define ISWORD(c) (isalnum(c) || (c) == '_') xemp5.1-beta/lib/regex/utils.h100644 12266 2116 1026 6043120343 14616 0ustar jponexor/* utility definitions */ #ifndef _POSIX2_RE_DUP_MAX #define _POSIX2_RE_DUP_MAX 255 #endif #define DUPMAX _POSIX2_RE_DUP_MAX /* xxx is this right? */ #define INFINITY (DUPMAX + 1) #define NC (CHAR_MAX - CHAR_MIN + 1) typedef unsigned char uch; /* switch off assertions (if not already off) if no REDEBUG */ #ifndef REDEBUG #ifndef NDEBUG #define NDEBUG /* no assertions please */ #endif #endif #include /* for old systems with bcopy() but no memmove() */ #ifdef USEBCOPY #define memmove(d, s, c) bcopy(s, d, c) #endif xemp5.1-beta/lib/regex/match_str.c100444 12266 2116 713 6036421336 15425 0ustar jponexor#include "regex.h" int match_str (str, pattern, matches, nmat) const char *str; const char *pattern; regmatch_t matches[]; int nmat; { regex_t re; int n; char buf[100]; if ((n = regcomp (&re, pattern, REG_EXTENDED|REG_ICASE)) != 0) { regerror (n, &re, buf, sizeof buf); fprintf (stderr, "regex error: %s\n", buf); return -1; } n = regexec (&re, str, nmat, matches, 0); regfree (&re); return n; } xemp5.1-beta/lib/regex/regerror.c100444 12266 2116 6201 6036421336 15306 0ustar jponexor/* based on Henry Spencers regex posix package */ #include #include #include #include #include #include #include #include "utils.h" #include "regerror.ih" /* = #define REG_NOMATCH 1 = #define REG_BADPAT 2 = #define REG_ECOLLATE 3 = #define REG_ECTYPE 4 = #define REG_EESCAPE 5 = #define REG_ESUBREG 6 = #define REG_EBRACK 7 = #define REG_EPAREN 8 = #define REG_EBRACE 9 = #define REG_BADBR 10 = #define REG_ERANGE 11 = #define REG_ESPACE 12 = #define REG_BADRPT 13 = #define REG_EMPTY 14 = #define REG_ASSERT 15 = #define REG_INVARG 16 = #define REG_ATOI 255 // convert name to number (!) = #define REG_ITOA 0400 // convert number to name (!) */ static struct rerr { int code; char *name; char *explain; } rerrs[] = { REG_NOMATCH, "REG_NOMATCH", "regexec() failed to match", REG_BADPAT, "REG_BADPAT", "invalid regular expression", REG_ECOLLATE, "REG_ECOLLATE", "invalid collating element", REG_ECTYPE, "REG_ECTYPE", "invalid character class", REG_EESCAPE, "REG_EESCAPE", "trailing backslash (\\)", REG_ESUBREG, "REG_ESUBREG", "invalid backreference number", REG_EBRACK, "REG_EBRACK", "brackets ([ ]) not balanced", REG_EPAREN, "REG_EPAREN", "parentheses not balanced", REG_EBRACE, "REG_EBRACE", "braces not balanced", REG_BADBR, "REG_BADBR", "invalid repetition count(s)", REG_ERANGE, "REG_ERANGE", "invalid character range", REG_ESPACE, "REG_ESPACE", "out of memory", REG_BADRPT, "REG_BADRPT", "repetition-operator operand invalid", REG_EMPTY, "REG_EMPTY", "empty (sub)expression", REG_ASSERT, "REG_ASSERT", "\"can't happen\" -- you found a bug", REG_INVARG, "REG_INVARG", "invalid argument to regex routine", 0, "", "*** unknown regexp error code ***", }; /* - regerror - the interface to error numbers = extern size_t regerror(int, const regex_t *, char *, size_t); */ /* ARGSUSED */ size_t regerror(errcode, preg, errbuf, errbuf_size) int errcode; const regex_t *preg; char *errbuf; size_t errbuf_size; { register struct rerr *r; register size_t len; register int target = errcode &~ REG_ITOA; register char *s; char convbuf[50]; if (errcode == REG_ATOI) s = regatoi(preg, convbuf); else { for (r = rerrs; r->code != 0; r++) if (r->code == target) break; if (errcode®_ITOA) { if (r->code != 0) (void) strcpy(convbuf, r->name); else sprintf(convbuf, "REG_0x%x", target); assert(strlen(convbuf) < sizeof(convbuf)); s = convbuf; } else s = r->explain; } len = strlen(s) + 1; if (errbuf_size > 0) { if (errbuf_size > len) (void) strcpy(errbuf, s); else { (void) strncpy(errbuf, s, errbuf_size-1); errbuf[errbuf_size-1] = '\0'; } } return(len); } /* - regatoi - internal routine to implement REG_ATOI == static char *regatoi(const regex_t *preg, char *localbuf); */ static char * regatoi(preg, localbuf) const regex_t *preg; char *localbuf; { register struct rerr *r; register size_t siz; register char *p; for (r = rerrs; r->code != 0; r++) if (strcmp(r->name, preg->re_endp) == 0) break; if (r->code == 0) return("0"); sprintf(localbuf, "%d", r->code); return(localbuf); } xemp5.1-beta/lib/regex/regexec.c100444 12266 2116 10232 6036421336 15120 0ustar jponexor/* based on Henry Spencers posix regex package */ /* * the outer shell of pregexec() * * This file includes engine.c *twice*, after muchos fiddling with the * macros that code uses. This lets the same code operate on two different * representations for state sets. */ #include #include #include #include #include #include #include #include "utils.h" #include "regex2.h" static int nope = 0; /* for use in asserts; shuts lint up */ /* macros for manipulating states, small version */ #define states long #define states1 states /* for later use in regexec() decision */ #define CLEAR(v) ((v) = 0) #define SET0(v, n) ((v) &= ~(1 << (n))) #define SET1(v, n) ((v) |= 1 << (n)) #define ISSET(v, n) ((v) & (1 << (n))) #define ASSIGN(d, s) ((d) = (s)) #define EQ(a, b) ((a) == (b)) #define STATEVARS int dummy /* dummy version */ #define STATESETUP(m, n) /* nothing */ #define STATETEARDOWN(m) /* nothing */ #define SETUP(v) ((v) = 0) #define onestate int #define INIT(o, n) ((o) = (unsigned)1 << (n)) #define INC(o) ((o) <<= 1) #define ISSTATEIN(v, o) ((v) & (o)) /* some abbreviations; note that some of these know variable names! */ /* do "if I'm here, I can also be there" etc without branches */ #define FWD(dst, src, n) ((dst) |= ((unsigned)(src)&(here)) << (n)) #define BACK(dst, src, n) ((dst) |= ((unsigned)(src)&(here)) >> (n)) #define ISSETBACK(v, n) ((v) & ((unsigned)here >> (n))) /* function names */ #define SNAMES /* engine.c looks after details */ #include "engine.c" /* now undo things */ #undef states #undef CLEAR #undef SET0 #undef SET1 #undef ISSET #undef ASSIGN #undef EQ #undef STATEVARS #undef STATESETUP #undef STATETEARDOWN #undef SETUP #undef onestate #undef INIT #undef INC #undef ISSTATEIN #undef FWD #undef BACK #undef ISSETBACK #undef SNAMES /* macros for manipulating states, large version */ #define states char * #define CLEAR(v) memset(v, 0, m->g->nstates) #define SET0(v, n) ((v)[n] = 0) #define SET1(v, n) ((v)[n] = 1) #define ISSET(v, n) ((v)[n]) #define ASSIGN(d, s) memcpy(d, s, m->g->nstates) #define EQ(a, b) (memcmp(a, b, m->g->nstates) == 0) #define STATEVARS int vn; char *space #define STATESETUP(m, nv) { (m)->space = malloc((nv)*(m)->g->nstates); \ if ((m)->space == NULL) return(REG_ESPACE); \ (m)->vn = 0; } #define STATETEARDOWN(m) { free((m)->space); } #define SETUP(v) ((v) = &m->space[m->vn++ * m->g->nstates]) #define onestate int #define INIT(o, n) ((o) = (n)) #define INC(o) ((o)++) #define ISSTATEIN(v, o) ((v)[o]) /* some abbreviations; note that some of these know variable names! */ /* do "if I'm here, I can also be there" etc without branches */ #define FWD(dst, src, n) ((dst)[here+(n)] |= (src)[here]) #define BACK(dst, src, n) ((dst)[here-(n)] |= (src)[here]) #define ISSETBACK(v, n) ((v)[here - (n)]) /* function names */ #define LNAMES /* flag */ #include "engine.c" /* - regexec - interface for matching = extern int regexec(const regex_t *, const char *, size_t, \ = regmatch_t [], int); = #define REG_NOTBOL 00001 = #define REG_NOTEOL 00002 = #define REG_STARTEND 00004 = #define REG_TRACE 00400 // tracing of execution = #define REG_LARGE 01000 // force large representation = #define REG_BACKR 02000 // force use of backref code * * We put this here so we can exploit knowledge of the state representation * when choosing which matcher to call. Also, by this point the matchers * have been prototyped. */ int /* 0 success, REG_NOMATCH failure */ regexec(preg, string, nmatch, pmatch, eflags) const regex_t *preg; const char *string; size_t nmatch; regmatch_t pmatch[]; int eflags; { register struct re_guts *g = preg->re_g; #ifdef REDEBUG # define GOODFLAGS(f) (f) #else # define GOODFLAGS(f) ((f)&(REG_NOTBOL|REG_NOTEOL|REG_STARTEND)) #endif if (preg->re_magic != MAGIC1 || g->magic != MAGIC2) return(REG_BADPAT); assert(!(g->iflags&BAD)); if (g->iflags&BAD) /* backstop for no-debug case */ return(REG_BADPAT); eflags = GOODFLAGS(eflags); if (g->nstates <= CHAR_BIT*sizeof(states1) && !(eflags®_LARGE)) return(smatcher(g, (char *)string, nmatch, pmatch, eflags)); else return(lmatcher(g, (char *)string, nmatch, pmatch, eflags)); } xemp5.1-beta/lib/regex/engine.c100644 12266 2116 61646 6033707441 14765 0ustar jponexor/* * The matching engine and friends. This file is #included by regexec.c * after suitable #defines of a variety of macros used herein, so that * different state representations can be used without duplicating masses * of code. */ #ifdef SNAMES #define matcher smatcher #define fast sfast #define slow sslow #define dissect sdissect #define backref sbackref #define step sstep #define print sprint #define at sat #define match smat #endif #ifdef LNAMES #define matcher lmatcher #define fast lfast #define slow lslow #define dissect ldissect #define backref lbackref #define step lstep #define print lprint #define at lat #define match lmat #endif /* another structure passed up and down to avoid zillions of parameters */ struct match { struct re_guts *g; int eflags; regmatch_t *pmatch; /* [nsub+1] (0 element unused) */ char *offp; /* offsets work from here */ char *beginp; /* start of string -- virtual NUL precedes */ char *endp; /* end of string -- virtual NUL here */ char *coldp; /* can be no match starting before here */ char **lastpos; /* [nplus+1] */ STATEVARS; states st; /* current states */ states fresh; /* states for a fresh start */ states tmp; /* temporary */ states empty; /* empty set of states */ }; #include "engine.ih" #ifdef REDEBUG #define SP(t, s, c) print(m, t, s, c, stdout) #define AT(t, p1, p2, s1, s2) at(m, t, p1, p2, s1, s2) #define NOTE(str) { if (m->eflags®_TRACE) printf("=%s\n", (str)); } #else #define SP(t, s, c) /* nothing */ #define AT(t, p1, p2, s1, s2) /* nothing */ #define NOTE(s) /* nothing */ #endif /* - matcher - the actual matching engine == static int matcher(register struct re_guts *g, char *string, \ == size_t nmatch, regmatch_t pmatch[], int eflags); */ static int /* 0 success, REG_NOMATCH failure */ matcher(g, string, nmatch, pmatch, eflags) register struct re_guts *g; char *string; size_t nmatch; regmatch_t pmatch[]; int eflags; { register char *endp; register int i; struct match mv; register struct match *m = &mv; register char *dp; const register sopno gf = g->firststate+1; /* +1 for OEND */ const register sopno gl = g->laststate; char *start; char *stop; /* simplify the situation where possible */ if (g->cflags®_NOSUB) nmatch = 0; if (eflags®_STARTEND) { start = string + pmatch[0].rm_so; stop = string + pmatch[0].rm_eo; } else { start = string; stop = start + strlen(start); } if (stop < start) return(REG_INVARG); /* prescreening; this does wonders for this rather slow code */ if (g->must != NULL) { for (dp = start; dp < stop; dp++) if (*dp == g->must[0] && stop - dp >= g->mlen && memcmp(dp, g->must, (size_t)g->mlen) == 0) break; if (dp == stop) /* we didn't find g->must */ return(REG_NOMATCH); } /* match struct setup */ m->g = g; m->eflags = eflags; m->pmatch = NULL; m->lastpos = NULL; m->offp = string; m->beginp = start; m->endp = stop; STATESETUP(m, 4); SETUP(m->st); SETUP(m->fresh); SETUP(m->tmp); SETUP(m->empty); CLEAR(m->empty); /* this loop does only one repetition except for backrefs */ for (;;) { endp = fast(m, start, stop, gf, gl); if (endp == NULL) { /* a miss */ STATETEARDOWN(m); return(REG_NOMATCH); } if (nmatch == 0 && !g->backrefs) break; /* no further info needed */ /* where? */ assert(m->coldp != NULL); for (;;) { NOTE("finding start"); endp = slow(m, m->coldp, stop, gf, gl); if (endp != NULL) break; assert(m->coldp < m->endp); m->coldp++; } if (nmatch == 1 && !g->backrefs) break; /* no further info needed */ /* oh my, he wants the subexpressions... */ if (m->pmatch == NULL) m->pmatch = (regmatch_t *)malloc((m->g->nsub + 1) * sizeof(regmatch_t)); if (m->pmatch == NULL) { STATETEARDOWN(m); return(REG_ESPACE); } for (i = 1; i <= m->g->nsub; i++) m->pmatch[i].rm_so = m->pmatch[i].rm_eo = -1; if (!g->backrefs && !(m->eflags®_BACKR)) { NOTE("dissecting"); dp = dissect(m, m->coldp, endp, gf, gl); } else { if (g->nplus > 0 && m->lastpos == NULL) m->lastpos = (char **)malloc((g->nplus+1) * sizeof(char *)); if (g->nplus > 0 && m->lastpos == NULL) { free(m->pmatch); STATETEARDOWN(m); return(REG_ESPACE); } NOTE("backref dissect"); dp = backref(m, m->coldp, endp, gf, gl, (sopno)0); } if (dp != NULL) break; /* uh-oh... we couldn't find a subexpression-level match */ assert(g->backrefs); /* must be back references doing it */ assert(g->nplus == 0 || m->lastpos != NULL); for (;;) { if (dp != NULL || endp <= m->coldp) break; /* defeat */ NOTE("backoff"); endp = slow(m, m->coldp, endp-1, gf, gl); if (endp == NULL) break; /* defeat */ /* try it on a shorter possibility */ #ifndef NDEBUG for (i = 1; i <= m->g->nsub; i++) { assert(m->pmatch[i].rm_so == -1); assert(m->pmatch[i].rm_eo == -1); } #endif NOTE("backoff dissect"); dp = backref(m, m->coldp, endp, gf, gl, (sopno)0); } assert(dp == NULL || dp == endp); if (dp != NULL) /* found a shorter one */ break; /* despite initial appearances, there is no match here */ NOTE("false alarm"); start = m->coldp + 1; /* recycle starting later */ assert(start <= stop); } /* fill in the details if requested */ if (nmatch > 0) { pmatch[0].rm_so = m->coldp - m->offp; pmatch[0].rm_eo = endp - m->offp; } if (nmatch > 1) { assert(m->pmatch != NULL); for (i = 1; i < nmatch; i++) if (i <= m->g->nsub) pmatch[i] = m->pmatch[i]; else { pmatch[i].rm_so = -1; pmatch[i].rm_eo = -1; } } if (m->pmatch != NULL) free((char *)m->pmatch); if (m->lastpos != NULL) free((char *)m->lastpos); STATETEARDOWN(m); return(0); } /* - dissect - figure out what matched what, no back references == static char *dissect(register struct match *m, char *start, \ == char *stop, sopno startst, sopno stopst); */ static char * /* == stop (success) always */ dissect(m, start, stop, startst, stopst) register struct match *m; char *start; char *stop; sopno startst; sopno stopst; { register int i; register sopno ss; /* start sop of current subRE */ register sopno es; /* end sop of current subRE */ register char *sp; /* start of string matched by it */ register char *stp; /* string matched by it cannot pass here */ register char *rest; /* start of rest of string */ register char *tail; /* string unmatched by rest of RE */ register sopno ssub; /* start sop of subsubRE */ register sopno esub; /* end sop of subsubRE */ register char *ssp; /* start of string matched by subsubRE */ register char *sep; /* end of string matched by subsubRE */ register char *oldssp; /* previous ssp */ register char *dp; AT("diss", start, stop, startst, stopst); sp = start; for (ss = startst; ss < stopst; ss = es) { /* identify end of subRE */ es = ss; switch (OP(m->g->strip[es])) { case OPLUS_: case OQUEST_: es += OPND(m->g->strip[es]); break; case OCH_: while (OP(m->g->strip[es]) != O_CH) es += OPND(m->g->strip[es]); break; } es++; /* figure out what it matched */ switch (OP(m->g->strip[ss])) { case OEND: assert(nope); break; case OCHAR: sp++; break; case OBOL: case OEOL: case OBOW: case OEOW: break; case OANY: case OANYOF: sp++; break; case OBACK_: case O_BACK: assert(nope); break; /* cases where length of match is hard to find */ case OQUEST_: stp = stop; for (;;) { /* how long could this one be? */ rest = slow(m, sp, stp, ss, es); assert(rest != NULL); /* it did match */ /* could the rest match the rest? */ tail = slow(m, rest, stop, es, stopst); if (tail == stop) break; /* yes! */ /* no -- try a shorter match for this one */ stp = rest - 1; assert(stp >= sp); /* it did work */ } ssub = ss + 1; esub = es - 1; /* did innards match? */ if (slow(m, sp, rest, ssub, esub) != NULL) { dp = dissect(m, sp, rest, ssub, esub); assert(dp == rest); } else /* no */ assert(sp == rest); sp = rest; break; case OPLUS_: stp = stop; for (;;) { /* how long could this one be? */ rest = slow(m, sp, stp, ss, es); assert(rest != NULL); /* it did match */ /* could the rest match the rest? */ tail = slow(m, rest, stop, es, stopst); if (tail == stop) break; /* yes! */ /* no -- try a shorter match for this one */ stp = rest - 1; assert(stp >= sp); /* it did work */ } ssub = ss + 1; esub = es - 1; ssp = sp; oldssp = ssp; for (;;) { /* find last match of innards */ sep = slow(m, ssp, rest, ssub, esub); if (sep == NULL || sep == ssp) break; /* failed or matched null */ oldssp = ssp; /* on to next try */ ssp = sep; } if (sep == NULL) { /* last successful match */ sep = ssp; ssp = oldssp; } assert(sep == rest); /* must exhaust substring */ assert(slow(m, ssp, sep, ssub, esub) == rest); dp = dissect(m, ssp, sep, ssub, esub); assert(dp == sep); sp = rest; break; case OCH_: stp = stop; for (;;) { /* how long could this one be? */ rest = slow(m, sp, stp, ss, es); assert(rest != NULL); /* it did match */ /* could the rest match the rest? */ tail = slow(m, rest, stop, es, stopst); if (tail == stop) break; /* yes! */ /* no -- try a shorter match for this one */ stp = rest - 1; assert(stp >= sp); /* it did work */ } ssub = ss + 1; esub = ss + OPND(m->g->strip[ss]) - 1; assert(OP(m->g->strip[esub]) == OOR1); for (;;) { /* find first matching branch */ if (slow(m, sp, rest, ssub, esub) == rest) break; /* it matched all of it */ /* that one missed, try next one */ assert(OP(m->g->strip[esub]) == OOR1); esub++; assert(OP(m->g->strip[esub]) == OOR2); ssub = esub + 1; esub += OPND(m->g->strip[esub]); if (OP(m->g->strip[esub]) == OOR2) esub--; else assert(OP(m->g->strip[esub]) == O_CH); } dp = dissect(m, sp, rest, ssub, esub); assert(dp == rest); sp = rest; break; case O_PLUS: case O_QUEST: case OOR1: case OOR2: case O_CH: assert(nope); break; case OLPAREN: i = OPND(m->g->strip[ss]); assert(0 < i && i <= m->g->nsub); m->pmatch[i].rm_so = sp - m->offp; break; case ORPAREN: i = OPND(m->g->strip[ss]); assert(0 < i && i <= m->g->nsub); m->pmatch[i].rm_eo = sp - m->offp; break; default: /* uh oh */ assert(nope); break; } } assert(sp == stop); return(sp); } /* - backref - figure out what matched what, figuring in back references == static char *backref(register struct match *m, char *start, \ == char *stop, sopno startst, sopno stopst, sopno lev); */ static char * /* == stop (success) or NULL (failure) */ backref(m, start, stop, startst, stopst, lev) register struct match *m; char *start; char *stop; sopno startst; sopno stopst; sopno lev; /* PLUS nesting level */ { register int i; register sopno ss; /* start sop of current subRE */ register char *sp; /* start of string matched by it */ register sopno ssub; /* start sop of subsubRE */ register sopno esub; /* end sop of subsubRE */ register char *ssp; /* start of string matched by subsubRE */ register char *dp; register size_t len; register int hard; register sop s; register regoff_t offsave; register cset *cs; AT("back", start, stop, startst, stopst); sp = start; /* get as far as we can with easy stuff */ hard = 0; for (ss = startst; !hard && ss < stopst; ss++) switch (OP(s = m->g->strip[ss])) { case OCHAR: if (sp == stop || *sp++ != (char)OPND(s)) return(NULL); break; case OANY: if (sp == stop) return(NULL); sp++; break; case OANYOF: cs = &m->g->sets[OPND(s)]; if (sp == stop || !CHIN(cs, *sp++)) return(NULL); break; case OBOL: if ( (sp == m->beginp && !(m->eflags®_NOTBOL)) || (sp < m->endp && *(sp-1) == '\n' && (m->g->cflags®_NEWLINE)) ) { /* yes */ } else return(NULL); break; case OEOL: if ( (sp == m->endp && !(m->eflags®_NOTEOL)) || (sp < m->endp && *sp == '\n' && (m->g->cflags®_NEWLINE)) ) { /* yes */ } else return(NULL); break; case OBOW: if (( (sp == m->beginp && !(m->eflags®_NOTBOL)) || (sp < m->endp && *(sp-1) == '\n' && (m->g->cflags®_NEWLINE)) || (sp > m->beginp && !ISWORD(*(sp-1))) ) && (sp < m->endp && ISWORD(*sp)) ) { /* yes */ } else return(NULL); break; case OEOW: if (( (sp == m->endp && !(m->eflags®_NOTEOL)) || (sp < m->endp && *sp == '\n' && (m->g->cflags®_NEWLINE)) || (sp < m->endp && !ISWORD(*sp)) ) && (sp > m->beginp && ISWORD(*(sp-1))) ) { /* yes */ } else return(NULL); break; case O_QUEST: break; case OOR1: /* matches null but needs to skip */ ss++; s = m->g->strip[ss]; do { assert(OP(s) == OOR2); ss += OPND(s); } while (OP(s = m->g->strip[ss]) != O_CH); /* note that the ss++ gets us past the O_CH */ break; default: /* have to make a choice */ hard = 1; break; } if (!hard) { /* that was it! */ if (sp != stop) return(NULL); return(sp); } ss--; /* adjust for the for's final increment */ /* the hard stuff */ AT("hard", sp, stop, ss, stopst); s = m->g->strip[ss]; switch (OP(s)) { case OBACK_: /* the vilest depths */ i = OPND(s); assert(0 < i && i <= m->g->nsub); if (m->pmatch[i].rm_eo == -1) return(NULL); assert(m->pmatch[i].rm_so != -1); len = m->pmatch[i].rm_eo - m->pmatch[i].rm_so; assert(stop - m->beginp >= len); if (sp > stop - len) return(NULL); /* not enough left to match */ ssp = m->offp + m->pmatch[i].rm_so; if (memcmp(sp, ssp, len) != 0) return(NULL); while (m->g->strip[ss] != SOP(O_BACK, i)) ss++; return(backref(m, sp+len, stop, ss+1, stopst, lev)); break; case OQUEST_: /* to null or not */ dp = backref(m, sp, stop, ss+1, stopst, lev); if (dp != NULL) return(dp); /* not */ return(backref(m, sp, stop, ss+OPND(s)+1, stopst, lev)); break; case OPLUS_: assert(m->lastpos != NULL); assert(lev+1 <= m->g->nplus); m->lastpos[lev+1] = sp; return(backref(m, sp, stop, ss+1, stopst, lev+1)); break; case O_PLUS: if (sp == m->lastpos[lev]) /* last pass matched null */ return(backref(m, sp, stop, ss+1, stopst, lev-1)); /* try another pass */ m->lastpos[lev] = sp; dp = backref(m, sp, stop, ss-OPND(s)+1, stopst, lev); if (dp == NULL) return(backref(m, sp, stop, ss+1, stopst, lev-1)); else return(dp); break; case OCH_: /* find the right one, if any */ ssub = ss + 1; esub = ss + OPND(s) - 1; assert(OP(m->g->strip[esub]) == OOR1); for (;;) { /* find first matching branch */ dp = backref(m, sp, stop, ssub, esub, lev); if (dp != NULL) return(dp); /* that one missed, try next one */ if (OP(m->g->strip[esub]) == O_CH) return(NULL); /* there is none */ esub++; assert(OP(m->g->strip[esub]) == OOR2); ssub = esub + 1; esub += OPND(m->g->strip[esub]); if (OP(m->g->strip[esub]) == OOR2) esub--; else assert(OP(m->g->strip[esub]) == O_CH); } break; case OLPAREN: /* must undo assignment if rest fails */ i = OPND(s); assert(0 < i && i <= m->g->nsub); offsave = m->pmatch[i].rm_so; m->pmatch[i].rm_so = sp - m->offp; dp = backref(m, sp, stop, ss+1, stopst, lev); if (dp != NULL) return(dp); m->pmatch[i].rm_so = offsave; return(NULL); break; case ORPAREN: /* must undo assignment if rest fails */ i = OPND(s); assert(0 < i && i <= m->g->nsub); offsave = m->pmatch[i].rm_eo; m->pmatch[i].rm_eo = sp - m->offp; dp = backref(m, sp, stop, ss+1, stopst, lev); if (dp != NULL) return(dp); m->pmatch[i].rm_eo = offsave; return(NULL); break; default: /* uh oh */ assert(nope); break; } /* "can't happen" */ assert(nope); /* NOTREACHED */ } /* - fast - step through the string at top speed == static char *fast(register struct match *m, char *start, \ == char *stop, sopno startst, sopno stopst); */ static char * /* where tentative match ended, or NULL */ fast(m, start, stop, startst, stopst) register struct match *m; char *start; char *stop; sopno startst; sopno stopst; { register states st = m->st; register states fresh = m->fresh; register states tmp = m->tmp; register char *p = start; register int c = (start == m->beginp) ? OUT : *(start-1); register int lastc; /* previous c */ register int flagch; register int i; register char *coldp; /* last p after which no match was underway */ CLEAR(st); SET1(st, startst); st = step(m->g, startst, stopst, st, NOTHING, st); ASSIGN(fresh, st); SP("start", st, *p); coldp = NULL; for (;;) { /* next character */ lastc = c; c = (p == m->endp) ? OUT : *p; if (EQ(st, fresh)) coldp = p; /* is there an EOL and/or BOL between lastc and c? */ flagch = '\0'; i = 0; if ( (lastc == '\n' && m->g->cflags®_NEWLINE) || (lastc == OUT && !(m->eflags®_NOTBOL)) ) { flagch = BOL; i = m->g->nbol; } if ( (c == '\n' && m->g->cflags®_NEWLINE) || (c == OUT && !(m->eflags®_NOTEOL)) ) { flagch = (flagch == BOL) ? BOLEOL : EOL; i += m->g->neol; } if (i != 0) { for (; i > 0; i--) st = step(m->g, startst, stopst, st, flagch, st); SP("boleol", st, c); } /* how about a word boundary? */ if ( (flagch == BOL || (lastc != OUT && !ISWORD(lastc))) && (c != OUT && ISWORD(c)) ) { flagch = BOW; } if ( (lastc != OUT && ISWORD(lastc)) && (flagch == EOL || (c != OUT && !ISWORD(c))) ) { flagch = EOW; } if (flagch == BOW || flagch == EOW) { st = step(m->g, startst, stopst, st, flagch, st); SP("boweow", st, c); } /* are we done? */ if (ISSET(st, stopst) || p == stop) break; /* NOTE BREAK OUT */ /* no, we must deal with this character */ ASSIGN(tmp, st); ASSIGN(st, fresh); assert(c != OUT); st = step(m->g, startst, stopst, tmp, c, st); SP("aft", st, c); assert(EQ(step(m->g, startst, stopst, st, NOTHING, st), st)); p++; } assert(coldp != NULL); m->coldp = coldp; if (ISSET(st, stopst)) return(p+1); else return(NULL); } /* - slow - step through the string more deliberately == static char *slow(register struct match *m, char *start, \ == char *stop, sopno startst, sopno stopst); */ static char * /* where it ended */ slow(m, start, stop, startst, stopst) register struct match *m; char *start; char *stop; sopno startst; sopno stopst; { register states st = m->st; register states empty = m->empty; register states tmp = m->tmp; register char *p = start; register int c = (start == m->beginp) ? OUT : *(start-1); register int lastc; /* previous c */ register int flagch; register int i; register char *matchp; /* last p at which a match ended */ AT("slow", start, stop, startst, stopst); CLEAR(st); SET1(st, startst); SP("sstart", st, *p); st = step(m->g, startst, stopst, st, NOTHING, st); matchp = NULL; for (;;) { /* next character */ lastc = c; c = (p == m->endp) ? OUT : *p; /* is there an EOL and/or BOL between lastc and c? */ flagch = '\0'; i = 0; if ( (lastc == '\n' && m->g->cflags®_NEWLINE) || (lastc == OUT && !(m->eflags®_NOTBOL)) ) { flagch = BOL; i = m->g->nbol; } if ( (c == '\n' && m->g->cflags®_NEWLINE) || (c == OUT && !(m->eflags®_NOTEOL)) ) { flagch = (flagch == BOL) ? BOLEOL : EOL; i += m->g->neol; } if (i != 0) { for (; i > 0; i--) st = step(m->g, startst, stopst, st, flagch, st); SP("sboleol", st, c); } /* how about a word boundary? */ if ( (flagch == BOL || (lastc != OUT && !ISWORD(lastc))) && (c != OUT && ISWORD(c)) ) { flagch = BOW; } if ( (lastc != OUT && ISWORD(lastc)) && (flagch == EOL || (c != OUT && !ISWORD(c))) ) { flagch = EOW; } if (flagch == BOW || flagch == EOW) { st = step(m->g, startst, stopst, st, flagch, st); SP("sboweow", st, c); } /* are we done? */ if (ISSET(st, stopst)) matchp = p; if (EQ(st, empty) || p == stop) break; /* NOTE BREAK OUT */ /* no, we must deal with this character */ ASSIGN(tmp, st); ASSIGN(st, empty); assert(c != OUT); st = step(m->g, startst, stopst, tmp, c, st); SP("saft", st, c); assert(EQ(step(m->g, startst, stopst, st, NOTHING, st), st)); p++; } return(matchp); } /* - step - map set of states reachable before char to set reachable after == static states step(register struct re_guts *g, sopno start, sopno stop, \ == register states bef, int ch, register states aft); == #define BOL (OUT+1) == #define EOL (BOL+1) == #define BOLEOL (BOL+2) == #define NOTHING (BOL+3) == #define BOW (BOL+4) == #define EOW (BOL+5) == #define CODEMAX (BOL+5) // highest code used == #define NONCHAR(c) ((c) > CHAR_MAX) == #define NNONCHAR (CODEMAX-CHAR_MAX) */ static states step(g, start, stop, bef, ch, aft) register struct re_guts *g; sopno start; /* start state within strip */ sopno stop; /* state after stop state within strip */ register states bef; /* states reachable before */ int ch; /* character or NONCHAR code */ register states aft; /* states already known reachable after */ { register cset *cs; register sop s; register sopno pc; register onestate here; /* note, macros know this name */ register sopno look; register int i; for (pc = start, INIT(here, pc); pc != stop; pc++, INC(here)) { s = g->strip[pc]; switch (OP(s)) { case OEND: assert(pc == stop-1); break; case OCHAR: /* only characters can match */ assert(!NONCHAR(ch) || ch != (char)OPND(s)); if (ch == (char)OPND(s)) FWD(aft, bef, 1); break; case OBOL: if (ch == BOL || ch == BOLEOL) FWD(aft, bef, 1); break; case OEOL: if (ch == EOL || ch == BOLEOL) FWD(aft, bef, 1); break; case OBOW: if (ch == BOW) FWD(aft, bef, 1); break; case OEOW: if (ch == EOW) FWD(aft, bef, 1); break; case OANY: if (!NONCHAR(ch)) FWD(aft, bef, 1); break; case OANYOF: cs = &g->sets[OPND(s)]; if (!NONCHAR(ch) && CHIN(cs, ch)) FWD(aft, bef, 1); break; case OBACK_: /* ignored here */ case O_BACK: FWD(aft, aft, 1); break; case OPLUS_: /* forward, this is just an empty */ FWD(aft, aft, 1); break; case O_PLUS: /* both forward and back */ FWD(aft, aft, 1); i = ISSETBACK(aft, OPND(s)); BACK(aft, aft, OPND(s)); if (!i && ISSETBACK(aft, OPND(s))) { /* oho, must reconsider loop body */ pc -= OPND(s) + 1; INIT(here, pc); } break; case OQUEST_: /* two branches, both forward */ FWD(aft, aft, 1); FWD(aft, aft, OPND(s)); break; case O_QUEST: /* just an empty */ FWD(aft, aft, 1); break; case OLPAREN: /* not significant here */ case ORPAREN: FWD(aft, aft, 1); break; case OCH_: /* mark the first two branches */ FWD(aft, aft, 1); assert(OP(g->strip[pc+OPND(s)]) == OOR2); FWD(aft, aft, OPND(s)); break; case OOR1: /* done a branch, find the O_CH */ if (ISSTATEIN(aft, here)) { for (look = 1; OP(s = g->strip[pc+look]) != O_CH; look += OPND(s)) assert(OP(s) == OOR2); FWD(aft, aft, look); } break; case OOR2: /* propagate OCH_'s marking */ FWD(aft, aft, 1); if (OP(g->strip[pc+OPND(s)]) != O_CH) { assert(OP(g->strip[pc+OPND(s)]) == OOR2); FWD(aft, aft, OPND(s)); } break; case O_CH: /* just empty */ FWD(aft, aft, 1); break; default: /* ooooops... */ assert(nope); break; } } return(aft); } #ifdef REDEBUG /* - print - print a set of states == #ifdef REDEBUG == static void print(struct match *m, char *caption, states st, \ == int ch, FILE *d); == #endif */ static void print(m, caption, st, ch, d) struct match *m; char *caption; states st; int ch; FILE *d; { register struct re_guts *g = m->g; register int i; register int first = 1; if (!(m->eflags®_TRACE)) return; fprintf(d, "%s", caption); if (ch != '\0') fprintf(d, " %s", pchar(ch)); for (i = 0; i < g->nstates; i++) if (ISSET(st, i)) { fprintf(d, "%s%d", (first) ? "\t" : ", ", i); first = 0; } fprintf(d, "\n"); } /* - at - print current situation == #ifdef REDEBUG == static void at(struct match *m, char *title, char *start, char *stop, \ == sopno startst, sopno stopst); == #endif */ static void at(m, title, start, stop, startst, stopst) struct match *m; char *title; char *start; char *stop; sopno startst; sopno stopst; { if (!(m->eflags®_TRACE)) return; printf("%s %s-", title, pchar(*start)); printf("%s ", pchar(*stop)); printf("%ld-%ld\n", (long)startst, (long)stopst); } #ifndef PCHARDONE #define PCHARDONE /* never again */ /* - pchar - make a character printable == #ifdef REDEBUG == static char *pchar(int ch); == #endif * * Is this identical to regchar() over in debug.c? Well, yes. But a * duplicate here avoids having a debugging-capable regexec.o tied to * a matching debug.o, and this is convenient. It all disappears in * the non-debug compilation anyway, so it doesn't matter much. */ static char * /* -> representation */ pchar(ch) int ch; { static char pbuf[10]; if (isprint(ch) || ch == ' ') sprintf(pbuf, "%c", ch); else sprintf(pbuf, "\\%o", ch); return(pbuf); } #endif #endif #undef matcher #undef fast #undef slow #undef dissect #undef backref #undef step #undef print #undef at #undef match xemp5.1-beta/lib/regex/debug.c100644 12266 2116 11744 6033707441 14600 0ustar jponexor#include #include #include #include #include #include #include #include "utils.h" #include "regex2.h" #include "debug.ih" /* - regprint - print a regexp for debugging == void regprint(regex_t *r, FILE *d); */ void regprint(r, d) regex_t *r; FILE *d; { register struct re_guts *g = r->re_g; register int i; register int c; register int last; int nincat[NC]; fprintf(d, "%ld states, %d categories", (long)g->nstates, g->ncategories); fprintf(d, ", first %ld last %ld", (long)g->firststate, (long)g->laststate); if (g->iflags&USEBOL) fprintf(d, ", USEBOL"); if (g->iflags&USEEOL) fprintf(d, ", USEEOL"); if (g->iflags&BAD) fprintf(d, ", BAD"); if (g->nsub > 0) fprintf(d, ", nsub=%ld", (long)g->nsub); if (g->must != NULL) fprintf(d, ", must(%ld) `%*s'", (long)g->mlen, (int)g->mlen, g->must); if (g->backrefs) fprintf(d, ", backrefs"); if (g->nplus > 0) fprintf(d, ", nplus %ld", (long)g->nplus); fprintf(d, "\n"); s_print(g, d); for (i = 0; i < g->ncategories; i++) { nincat[i] = 0; for (c = CHAR_MIN; c <= CHAR_MAX; c++) if (g->categories[c] == i) nincat[i]++; } fprintf(d, "cc0#%d", nincat[0]); for (i = 1; i < g->ncategories; i++) if (nincat[i] == 1) { for (c = CHAR_MIN; c <= CHAR_MAX; c++) if (g->categories[c] == i) break; fprintf(d, ", %d=%s", i, regchar(c)); } fprintf(d, "\n"); for (i = 1; i < g->ncategories; i++) if (nincat[i] != 1) { fprintf(d, "cc%d\t", i); last = -1; for (c = CHAR_MIN; c <= CHAR_MAX+1; c++) /* +1 does flush */ if (c <= CHAR_MAX && g->categories[c] == i) { if (last < 0) { fprintf(d, "%s", regchar(c)); last = c; } } else { if (last >= 0) { if (last != c-1) fprintf(d, "-%s", regchar(c-1)); last = -1; } } fprintf(d, "\n"); } } /* - s_print - print the strip for debugging == static void s_print(register struct re_guts *g, FILE *d); */ static void s_print(g, d) register struct re_guts *g; FILE *d; { register sop *s; register cset *cs; register int i; register int done = 0; register sop opnd; register int col = 0; register int last; register sopno offset = 2; # define GAP() { if (offset % 5 == 0) { \ if (col > 40) { \ fprintf(d, "\n\t"); \ col = 0; \ } else { \ fprintf(d, " "); \ col++; \ } \ } else \ col++; \ offset++; \ } if (OP(g->strip[0]) != OEND) fprintf(d, "missing initial OEND!\n"); for (s = &g->strip[1]; !done; s++) { opnd = OPND(*s); switch (OP(*s)) { case OEND: fprintf(d, "\n"); done = 1; break; case OCHAR: if (strchr("\\|()^$.[+*?{}!<> ", (char)opnd) != NULL) fprintf(d, "\\%c", (char)opnd); else fprintf(d, "%s", regchar((char)opnd)); break; case OBOL: fprintf(d, "^"); break; case OEOL: fprintf(d, "$"); break; case OBOW: fprintf(d, "\\{"); break; case OEOW: fprintf(d, "\\}"); break; case OANY: fprintf(d, "."); break; case OANYOF: fprintf(d, "[(%ld)", (long)opnd); cs = &g->sets[opnd]; last = -1; for (i = 0; i < g->csetsize+1; i++) /* +1 flushes */ if (CHIN(cs, i) && i < g->csetsize) { if (last < 0) { fprintf(d, "%s", regchar(i)); last = i; } } else { if (last >= 0) { if (last != i-1) fprintf(d, "-%s", regchar(i-1)); last = -1; } } fprintf(d, "]"); break; case OBACK_: fprintf(d, "(\\<%ld>", (long)opnd); break; case O_BACK: fprintf(d, "<%ld>\\)", (long)opnd); break; case OPLUS_: fprintf(d, "(+"); if (OP(*(s+opnd)) != O_PLUS) fprintf(d, "<%ld>", (long)opnd); break; case O_PLUS: if (OP(*(s-opnd)) != OPLUS_) fprintf(d, "<%ld>", (long)opnd); fprintf(d, "+)"); break; case OQUEST_: fprintf(d, "(?"); if (OP(*(s+opnd)) != O_QUEST) fprintf(d, "<%ld>", (long)opnd); break; case O_QUEST: if (OP(*(s-opnd)) != OQUEST_) fprintf(d, "<%ld>", (long)opnd); fprintf(d, "?)"); break; case OLPAREN: fprintf(d, "((<%ld>", (long)opnd); break; case ORPAREN: fprintf(d, "<%ld>))", (long)opnd); break; case OCH_: fprintf(d, "<"); if (OP(*(s+opnd)) != OOR2) fprintf(d, "<%ld>", (long)opnd); break; case OOR1: if (OP(*(s-opnd)) != OOR1 && OP(*(s-opnd)) != OCH_) fprintf(d, "<%ld>", (long)opnd); fprintf(d, "|"); break; case OOR2: fprintf(d, "|"); if (OP(*(s+opnd)) != OOR2 && OP(*(s+opnd)) != O_CH) fprintf(d, "<%ld>", (long)opnd); break; case O_CH: if (OP(*(s-opnd)) != OOR1) fprintf(d, "<%ld>", (long)opnd); fprintf(d, ">"); break; default: fprintf(d, "!%d(%d)!", OP(*s), opnd); break; } if (!done) GAP(); } } /* - regchar - make a character printable == static char *regchar(int ch); */ static char * /* -> representation */ regchar(ch) int ch; { static char buf[10]; if (isprint(ch) || ch == ' ') sprintf(buf, "%c", ch); else sprintf(buf, "\\%o", ch); return(buf); } xemp5.1-beta/lib/regex/main.c100644 12266 2116 25621 6033707441 14435 0ustar jponexor#include #include #include #include #include #include "main.ih" char *progname; int debug = 0; int line = 0; int status = 0; int copts = REG_EXTENDED; int eopts = 0; regoff_t startoff = 0; regoff_t endoff = 0; extern int split(); extern void regprint(); /* - main - do the simple case, hand off to regress() for regression */ main(argc, argv) int argc; char *argv[]; { regex_t re; # define NS 10 regmatch_t subs[NS]; char erbuf[100]; int err; size_t len; int c; int errflg = 0; register int i; extern int optind; extern char *optarg; progname = argv[0]; while ((c = getopt(argc, argv, "c:e:S:E:x")) != EOF) switch (c) { case 'c': /* compile options */ copts = options('c', optarg); break; case 'e': /* execute options */ eopts = options('e', optarg); break; case 'S': /* start offset */ startoff = (regoff_t)atoi(optarg); break; case 'E': /* end offset */ endoff = (regoff_t)atoi(optarg); break; case 'x': /* Debugging. */ debug++; break; case '?': default: errflg++; break; } if (errflg) { fprintf(stderr, "usage: %s ", progname); fprintf(stderr, "[-c copt][-C][-d] [re]\n"); exit(2); } if (optind >= argc) { regress(stdin); exit(status); } err = regcomp(&re, argv[optind++], copts); if (err) { len = regerror(err, &re, erbuf, sizeof(erbuf)); fprintf(stderr, "error %s, %d/%d `%s'\n", eprint(err), len, sizeof(erbuf), erbuf); exit(status); } regprint(&re, stdout); if (optind >= argc) { regfree(&re); exit(status); } if (eopts®_STARTEND) { subs[0].rm_so = startoff; subs[0].rm_eo = strlen(argv[optind]) - endoff; } err = regexec(&re, argv[optind], (size_t)NS, subs, eopts); if (err) { len = regerror(err, &re, erbuf, sizeof(erbuf)); fprintf(stderr, "error %s, %d/%d `%s'\n", eprint(err), len, sizeof(erbuf), erbuf); exit(status); } if (!(copts®_NOSUB)) { len = (int)(subs[0].rm_eo - subs[0].rm_so); if (subs[0].rm_so != -1) { if (len != 0) printf("match `%.*s'\n", len, argv[optind] + subs[0].rm_so); else printf("match `'@%.1s\n", argv[optind] + subs[0].rm_so); } for (i = 1; i < NS; i++) if (subs[i].rm_so != -1) printf("(%d) `%.*s'\n", i, (int)(subs[i].rm_eo - subs[i].rm_so), argv[optind] + subs[i].rm_so); } exit(status); } /* - regress - main loop of regression test == void regress(FILE *in); */ void regress(in) FILE *in; { char inbuf[1000]; # define MAXF 10 char *f[MAXF]; int nf; int i; char erbuf[100]; size_t ne; char *badpat = "invalid regular expression"; # define SHORT 10 char *bpname = "REG_BADPAT"; regex_t re; while (fgets(inbuf, sizeof(inbuf), in) != NULL) { line++; if (inbuf[0] == '#' || inbuf[0] == '\n') continue; /* NOTE CONTINUE */ inbuf[strlen(inbuf)-1] = '\0'; /* get rid of stupid \n */ if (debug) fprintf(stdout, "%d:\n", line); nf = split(inbuf, f, MAXF, "\t\t"); if (nf < 3) { fprintf(stderr, "bad input, line %d\n", line); exit(1); } for (i = 0; i < nf; i++) if (strcmp(f[i], "\"\"") == 0) f[i] = ""; if (nf <= 3) f[3] = NULL; if (nf <= 4) f[4] = NULL; try(f[0], f[1], f[2], f[3], f[4], options('c', f[1])); if (opt('&', f[1])) /* try with either type of RE */ try(f[0], f[1], f[2], f[3], f[4], options('c', f[1]) &~ REG_EXTENDED); } ne = regerror(REG_BADPAT, (regex_t *)NULL, erbuf, sizeof(erbuf)); if (strcmp(erbuf, badpat) != 0 || ne != strlen(badpat)+1) { fprintf(stderr, "end: regerror() test gave `%s' not `%s'\n", erbuf, badpat); status = 1; } ne = regerror(REG_BADPAT, (regex_t *)NULL, erbuf, (size_t)SHORT); if (strncmp(erbuf, badpat, SHORT-1) != 0 || erbuf[SHORT-1] != '\0' || ne != strlen(badpat)+1) { fprintf(stderr, "end: regerror() short test gave `%s' not `%.*s'\n", erbuf, SHORT-1, badpat); status = 1; } ne = regerror(REG_ITOA|REG_BADPAT, (regex_t *)NULL, erbuf, sizeof(erbuf)); if (strcmp(erbuf, bpname) != 0 || ne != strlen(bpname)+1) { fprintf(stderr, "end: regerror() ITOA test gave `%s' not `%s'\n", erbuf, bpname); status = 1; } re.re_endp = bpname; ne = regerror(REG_ATOI, &re, erbuf, sizeof(erbuf)); if (atoi(erbuf) != (int)REG_BADPAT) { fprintf(stderr, "end: regerror() ATOI test gave `%s' not `%ld'\n", erbuf, (long)REG_BADPAT); status = 1; } else if (ne != strlen(erbuf)+1) { fprintf(stderr, "end: regerror() ATOI test len(`%s') = %ld\n", erbuf, (long)REG_BADPAT); status = 1; } } /* - try - try it, and report on problems == void try(char *f0, char *f1, char *f2, char *f3, char *f4, int opts); */ void try(f0, f1, f2, f3, f4, opts) char *f0; char *f1; char *f2; char *f3; char *f4; int opts; /* may not match f1 */ { regex_t re; # define NSUBS 10 regmatch_t subs[NSUBS]; # define NSHOULD 15 char *should[NSHOULD]; int nshould; char erbuf[100]; int err; int len; char *type = (opts & REG_EXTENDED) ? "ERE" : "BRE"; register int i; char *grump; char f0copy[1000]; char f2copy[1000]; strcpy(f0copy, f0); re.re_endp = (opts®_PEND) ? f0copy + strlen(f0copy) : NULL; fixstr(f0copy); err = regcomp(&re, f0copy, opts); if (err != 0 && (!opt('C', f1) || err != efind(f2))) { /* unexpected error or wrong error */ len = regerror(err, &re, erbuf, sizeof(erbuf)); fprintf(stderr, "%d: %s error %s, %d/%d `%s'\n", line, type, eprint(err), len, sizeof(erbuf), erbuf); status = 1; } else if (err == 0 && opt('C', f1)) { /* unexpected success */ fprintf(stderr, "%d: %s should have given REG_%s\n", line, type, f2); status = 1; err = 1; /* so we won't try regexec */ } if (err != 0) { regfree(&re); return; } strcpy(f2copy, f2); fixstr(f2copy); if (options('e', f1)®_STARTEND) { if (strchr(f2, '(') == NULL || strchr(f2, ')') == NULL) fprintf(stderr, "%d: bad STARTEND syntax\n", line); subs[0].rm_so = strchr(f2, '(') - f2 + 1; subs[0].rm_eo = strchr(f2, ')') - f2; } err = regexec(&re, f2copy, NSUBS, subs, options('e', f1)); if (err != 0 && (f3 != NULL || err != REG_NOMATCH)) { /* unexpected error or wrong error */ len = regerror(err, &re, erbuf, sizeof(erbuf)); fprintf(stderr, "%d: %s exec error %s, %d/%d `%s'\n", line, type, eprint(err), len, sizeof(erbuf), erbuf); status = 1; } else if (err != 0) { /* nothing more to check */ } else if (f3 == NULL) { /* unexpected success */ fprintf(stderr, "%d: %s exec should have failed\n", line, type); status = 1; err = 1; /* just on principle */ } else if (opts®_NOSUB) { /* nothing more to check */ } else if ((grump = check(f2, subs[0], f3)) != NULL) { fprintf(stderr, "%d: %s %s\n", line, type, grump); status = 1; err = 1; } if (err != 0 || f4 == NULL) { regfree(&re); return; } for (i = 1; i < NSHOULD; i++) should[i] = NULL; nshould = split(f4, should+1, NSHOULD-1, ","); if (nshould == 0) { nshould = 1; should[1] = ""; } for (i = 1; i < NSUBS; i++) { grump = check(f2, subs[i], should[i]); if (grump != NULL) { fprintf(stderr, "%d: %s $%d %s\n", line, type, i, grump); status = 1; err = 1; } } regfree(&re); } /* - options - pick options out of a regression-test string == int options(int type, char *s); */ int options(type, s) int type; /* 'c' compile, 'e' exec */ char *s; { register char *p; register int o = (type == 'c') ? copts : eopts; register char *legal = (type == 'c') ? "bisnmp" : "^$#tl"; for (p = s; *p != '\0'; p++) if (strchr(legal, *p) != NULL) switch (*p) { case 'b': o &= ~REG_EXTENDED; break; case 'i': o |= REG_ICASE; break; case 's': o |= REG_NOSUB; break; case 'n': o |= REG_NEWLINE; break; case 'm': o &= ~REG_EXTENDED; o |= REG_NOSPEC; break; case 'p': o |= REG_PEND; break; case '^': o |= REG_NOTBOL; break; case '$': o |= REG_NOTEOL; break; case '#': o |= REG_STARTEND; break; case 't': /* trace */ o |= REG_TRACE; break; case 'l': /* force long representation */ o |= REG_LARGE; break; case 'r': /* force backref use */ o |= REG_BACKR; break; } return(o); } /* - opt - is a particular option in a regression string? == int opt(int c, char *s); */ int /* predicate */ opt(c, s) int c; char *s; { return(strchr(s, c) != NULL); } /* - fixstr - transform magic characters in strings == void fixstr(register char *p); */ void fixstr(p) register char *p; { if (p == NULL) return; for (; *p != '\0'; p++) if (*p == 'N') *p = '\n'; else if (*p == 'T') *p = '\t'; else if (*p == 'S') *p = ' '; else if (*p == 'Z') *p = '\0'; } /* - check - check a substring match == char *check(char *str, regmatch_t sub, char *should); */ char * /* NULL or complaint */ check(str, sub, should) char *str; regmatch_t sub; char *should; { register int len; register int shlen; register char *p; static char grump[500]; register char *at = NULL; if (should != NULL && strcmp(should, "-") == 0) should = NULL; if (should != NULL && should[0] == '@') { at = should + 1; should = ""; } /* check rm_so and rm_eo for consistency */ if (sub.rm_so > sub.rm_eo || (sub.rm_so == -1 && sub.rm_eo != -1) || (sub.rm_so != -1 && sub.rm_eo == -1) || (sub.rm_so != -1 && sub.rm_so < 0) || (sub.rm_eo != -1 && sub.rm_eo < 0) ) { sprintf(grump, "start %ld end %ld", (long)sub.rm_so, (long)sub.rm_eo); return(grump); } /* check for no match */ if (sub.rm_so == -1 && should == NULL) return(NULL); if (sub.rm_so == -1) return("did not match"); /* check for in range */ if (sub.rm_eo > strlen(str)) { sprintf(grump, "start %ld end %ld, past end of string", (long)sub.rm_so, (long)sub.rm_eo); return(grump); } len = (int)(sub.rm_eo - sub.rm_so); shlen = (int)strlen(should); p = str + sub.rm_so; /* check for not supposed to match */ if (should == NULL) { sprintf(grump, "matched `%.*s'", len, p); return(grump); } /* check for wrong match */ if (len != shlen || strncmp(p, should, (size_t)shlen) != 0) { sprintf(grump, "matched `%.*s' instead", len, p); return(grump); } if (shlen > 0) return(NULL); /* check null match in right place */ if (at == NULL) return(NULL); shlen = strlen(at); if (shlen == 0) shlen = 1; /* force check for end-of-string */ if (strncmp(p, at, shlen) != 0) { sprintf(grump, "matched null at `%.20s'", p); return(grump); } return(NULL); } /* - eprint - convert error number to name == static char *eprint(int err); */ static char * eprint(err) int err; { static char epbuf[100]; size_t len; len = regerror(REG_ITOA|err, (regex_t *)NULL, epbuf, sizeof(epbuf)); assert(len <= sizeof(epbuf)); return(epbuf); } /* - efind - convert error name to number == static int efind(char *name); */ static int efind(name) char *name; { static char efbuf[100]; size_t n; regex_t re; sprintf(efbuf, "REG_%s", name); assert(strlen(efbuf) < sizeof(efbuf)); re.re_endp = efbuf; (void) regerror(REG_ATOI, &re, efbuf, sizeof(efbuf)); return(atoi(efbuf)); } xemp5.1-beta/lib/regex/split.c100644 12266 2116 15625 6033707441 14647 0ustar jponexor#include #include /* - split - divide a string into fields, like awk split() = int split(char *string, char *fields[], int nfields, char *sep); */ int /* number of fields, including overflow */ split(string, fields, nfields, sep) char *string; char *fields[]; /* list is not NULL-terminated */ int nfields; /* number of entries available in fields[] */ char *sep; /* "" white, "c" single char, "ab" [ab]+ */ { register char *p = string; register char c; /* latest character */ register char sepc = sep[0]; register char sepc2; register int fn; register char **fp = fields; register char *sepp; register int trimtrail; /* white space */ if (sepc == '\0') { while ((c = *p++) == ' ' || c == '\t') continue; p--; trimtrail = 1; sep = " \t"; /* note, code below knows this is 2 long */ sepc = ' '; } else trimtrail = 0; sepc2 = sep[1]; /* now we can safely pick this up */ /* catch empties */ if (*p == '\0') return(0); /* single separator */ if (sepc2 == '\0') { fn = nfields; for (;;) { *fp++ = p; fn--; if (fn == 0) break; while ((c = *p++) != sepc) if (c == '\0') return(nfields - fn); *(p-1) = '\0'; } /* we have overflowed the fields vector -- just count them */ fn = nfields; for (;;) { while ((c = *p++) != sepc) if (c == '\0') return(fn); fn++; } /* not reached */ } /* two separators */ if (sep[2] == '\0') { fn = nfields; for (;;) { *fp++ = p; fn--; while ((c = *p++) != sepc && c != sepc2) if (c == '\0') { if (trimtrail && **(fp-1) == '\0') fn++; return(nfields - fn); } if (fn == 0) break; *(p-1) = '\0'; while ((c = *p++) == sepc || c == sepc2) continue; p--; } /* we have overflowed the fields vector -- just count them */ fn = nfields; while (c != '\0') { while ((c = *p++) == sepc || c == sepc2) continue; p--; fn++; while ((c = *p++) != '\0' && c != sepc && c != sepc2) continue; } /* might have to trim trailing white space */ if (trimtrail) { p--; while ((c = *--p) == sepc || c == sepc2) continue; p++; if (*p != '\0') { if (fn == nfields+1) *p = '\0'; fn--; } } return(fn); } /* n separators */ fn = 0; for (;;) { if (fn < nfields) *fp++ = p; fn++; for (;;) { c = *p++; if (c == '\0') return(fn); sepp = sep; while ((sepc = *sepp++) != '\0' && sepc != c) continue; if (sepc != '\0') /* it was a separator */ break; } if (fn < nfields) *(p-1) = '\0'; for (;;) { c = *p++; sepp = sep; while ((sepc = *sepp++) != '\0' && sepc != c) continue; if (sepc == '\0') /* it wasn't a separator */ break; } p--; } /* not reached */ } #ifdef TEST_SPLIT /* * test program * pgm runs regression * pgm sep splits stdin lines by sep * pgm str sep splits str by sep * pgm str sep n splits str by sep n times */ int main(argc, argv) int argc; char *argv[]; { char buf[512]; register int n; # define MNF 10 char *fields[MNF]; if (argc > 4) for (n = atoi(argv[3]); n > 0; n--) { (void) strcpy(buf, argv[1]); } else if (argc > 3) for (n = atoi(argv[3]); n > 0; n--) { (void) strcpy(buf, argv[1]); (void) split(buf, fields, MNF, argv[2]); } else if (argc > 2) dosplit(argv[1], argv[2]); else if (argc > 1) while (fgets(buf, sizeof(buf), stdin) != NULL) { buf[strlen(buf)-1] = '\0'; /* stomp newline */ dosplit(buf, argv[1]); } else regress(); exit(0); } dosplit(string, seps) char *string; char *seps; { # define NF 5 char *fields[NF]; register int nf; nf = split(string, fields, NF, seps); print(nf, NF, fields); } print(nf, nfp, fields) int nf; int nfp; char *fields[]; { register int fn; register int bound; bound = (nf > nfp) ? nfp : nf; printf("%d:\t", nf); for (fn = 0; fn < bound; fn++) printf("\"%s\"%s", fields[fn], (fn+1 < nf) ? ", " : "\n"); } #define RNF 5 /* some table entries know this */ struct { char *str; char *seps; int nf; char *fi[RNF]; } tests[] = { "", " ", 0, { "" }, " ", " ", 2, { "", "" }, "x", " ", 1, { "x" }, "xy", " ", 1, { "xy" }, "x y", " ", 2, { "x", "y" }, "abc def g ", " ", 5, { "abc", "def", "", "g", "" }, " a bcd", " ", 4, { "", "", "a", "bcd" }, "a b c d e f", " ", 6, { "a", "b", "c", "d", "e f" }, " a b c d ", " ", 6, { "", "a", "b", "c", "d " }, "", " _", 0, { "" }, " ", " _", 2, { "", "" }, "x", " _", 1, { "x" }, "x y", " _", 2, { "x", "y" }, "ab _ cd", " _", 2, { "ab", "cd" }, " a_b c ", " _", 5, { "", "a", "b", "c", "" }, "a b c_d e f", " _", 6, { "a", "b", "c", "d", "e f" }, " a b c d ", " _", 6, { "", "a", "b", "c", "d " }, "", " _~", 0, { "" }, " ", " _~", 2, { "", "" }, "x", " _~", 1, { "x" }, "x y", " _~", 2, { "x", "y" }, "ab _~ cd", " _~", 2, { "ab", "cd" }, " a_b c~", " _~", 5, { "", "a", "b", "c", "" }, "a b_c d~e f", " _~", 6, { "a", "b", "c", "d", "e f" }, "~a b c d ", " _~", 6, { "", "a", "b", "c", "d " }, "", " _~-", 0, { "" }, " ", " _~-", 2, { "", "" }, "x", " _~-", 1, { "x" }, "x y", " _~-", 2, { "x", "y" }, "ab _~- cd", " _~-", 2, { "ab", "cd" }, " a_b c~", " _~-", 5, { "", "a", "b", "c", "" }, "a b_c-d~e f", " _~-", 6, { "a", "b", "c", "d", "e f" }, "~a-b c d ", " _~-", 6, { "", "a", "b", "c", "d " }, "", " ", 0, { "" }, " ", " ", 2, { "", "" }, "x", " ", 1, { "x" }, "xy", " ", 1, { "xy" }, "x y", " ", 2, { "x", "y" }, "abc def g ", " ", 4, { "abc", "def", "g", "" }, " a bcd", " ", 3, { "", "a", "bcd" }, "a b c d e f", " ", 6, { "a", "b", "c", "d", "e f" }, " a b c d ", " ", 6, { "", "a", "b", "c", "d " }, "", "", 0, { "" }, " ", "", 0, { "" }, "x", "", 1, { "x" }, "xy", "", 1, { "xy" }, "x y", "", 2, { "x", "y" }, "abc def g ", "", 3, { "abc", "def", "g" }, "\t a bcd", "", 2, { "a", "bcd" }, " a \tb\t c ", "", 3, { "a", "b", "c" }, "a b c d e ", "", 5, { "a", "b", "c", "d", "e" }, "a b\tc d e f", "", 6, { "a", "b", "c", "d", "e f" }, " a b c d e f ", "", 6, { "a", "b", "c", "d", "e f " }, NULL, NULL, 0, { NULL }, }; regress() { char buf[512]; register int n; char *fields[RNF+1]; register int nf; register int i; register int printit; register char *f; for (n = 0; tests[n].str != NULL; n++) { (void) strcpy(buf, tests[n].str); fields[RNF] = NULL; nf = split(buf, fields, RNF, tests[n].seps); printit = 0; if (nf != tests[n].nf) { printf("split `%s' by `%s' gave %d fields, not %d\n", tests[n].str, tests[n].seps, nf, tests[n].nf); printit = 1; } else if (fields[RNF] != NULL) { printf("split() went beyond array end\n"); printit = 1; } else { for (i = 0; i < nf && i < RNF; i++) { f = fields[i]; if (f == NULL) f = "(NULL)"; if (strcmp(f, tests[n].fi[i]) != 0) { printf("split `%s' by `%s', field %d is `%s', not `%s'\n", tests[n].str, tests[n].seps, i, fields[i], tests[n].fi[i]); printit = 1; } } } if (printit) print(nf, RNF, fields); } } #endif xemp5.1-beta/lib/regex/GNUmakefile100644 12266 2116 1123 6034224720 15361 0ustar jponexor# The following variables are configurable. #-----------------------------------# LOCALCFLAGS := LOCALIFLAGS := LOCALLFLAGS := LOCALSFLAGS := TOPDIR = ../.. LIB := ../libregex.a LINTNAME := regex SRCS = regcomp.c regerror.c regexec.c regfree.c match_str.c OBJS = $(SRCS:.c=.o) #-----------------------------------# # Productions: # depend: create the dependencies # all: make the library # saber: load things for saber # tags: make tags include $(TOPDIR)/make/GenMakefile include $(DEPENDENCIES) include $(TOPDIR)/make/LibMakefile tags: ../tags ln -s ../tags TAGS: ../TAGS ln -s ../TAGS xemp5.1-beta/lib/regex/GNUdepend100644 12266 2116 427 6034225350 15031 0ustar jponexor### debug.o: utils.h regex2.h debug.ih main.o: main.ih match_str.o: ../../include/regex.h ../../include/prototype.h regcomp.o: utils.h regex2.h cclass.h cname.h regcomp.ih regerror.o: utils.h regerror.ih regexec.o: utils.h regex2.h engine.c engine.ih regfree.o: utils.h regex2.h xemp5.1-beta/lib/regex/regcomp.ih100644 12266 2116 5404 6036421207 15274 0ustar jponexor/* ========= begin header generated by ./mkh ========= */ #ifdef __cplusplus extern "C" { #endif /* === regcomp.c === */ static void p_ere(register struct parse *p, int stop); static void p_ere_exp(register struct parse *p); static void p_str(register struct parse *p); static void p_bre(register struct parse *p, register int end1, register int end2); static int p_simp_re(register struct parse *p, int starordinary); static int p_count(register struct parse *p); static void p_bracket(register struct parse *p); static void p_b_term(register struct parse *p, register cset *cs); static void p_b_cclass(register struct parse *p, register cset *cs); static void p_b_eclass(register struct parse *p, register cset *cs); static char p_b_symbol(register struct parse *p); static char p_b_coll_elem(register struct parse *p, int endc); static char othercase(int ch); static void bothcases(register struct parse *p, int ch); static void ordinary(register struct parse *p, register int ch); static void nonnewline(register struct parse *p); static void repeat(register struct parse *p, sopno start, int from, int to); static int seterr(register struct parse *p, int e); static cset *allocset(register struct parse *p); static void freeset(register struct parse *p, register cset *cs); static int freezeset(register struct parse *p, register cset *cs); static int firstch(register struct parse *p, register cset *cs); static int nch(register struct parse *p, register cset *cs); static void mcadd(register struct parse *p, register cset *cs, register char *cp); static void mcsub(register cset *cs, register char *cp); static int mcin(register cset *cs, register char *cp); static char *mcfind(register cset *cs, register char *cp); static void mcinvert(register struct parse *p, register cset *cs); static void mccase(register struct parse *p, register cset *cs); static int isinsets(register struct re_guts *g, int c); static int samesets(register struct re_guts *g, int c1, int c2); static void categorize(struct parse *p, register struct re_guts *g); static sopno dupl(register struct parse *p, sopno start, sopno finish); static void doemit(register struct parse *p, sop op, size_t opnd); static void doinsert(register struct parse *p, sop op, size_t opnd, sopno pos); static void dofwd(register struct parse *p, sopno pos, sop value); static void enlarge(register struct parse *p, sopno size); static void stripsnug(register struct parse *p, register struct re_guts *g); static void findmust(register struct parse *p, register struct re_guts *g); static sopno pluscount(register struct parse *p, register struct re_guts *g); static void p_quoted(struct parse *p, int c); static void mk_cclass(struct parse *p, int indx, int inverted); #ifdef __cplusplus } #endif /* ========= end header generated by ./mkh ========= */ xemp5.1-beta/lib/regex/regfree.c100444 12266 2116 1376 6036421336 15106 0ustar jponexor/* based on Henry Spencers regex package */ #include #include #include #include #include "utils.h" #include "regex2.h" /* - regfree - free everything = extern void regfree(regex_t *); */ void regfree(preg) regex_t *preg; { register struct re_guts *g; if (preg->re_magic != MAGIC1) /* oops */ return; /* nice to complain, but hard */ g = preg->re_g; if (g == NULL || g->magic != MAGIC2) /* oops again */ return; preg->re_magic = 0; /* mark it invalid */ g->magic = 0; /* mark it invalid */ if (g->strip != NULL) free((char *)g->strip); if (g->sets != NULL) free((char *)g->sets); if (g->setbits != NULL) free((char *)g->setbits); if (g->must != NULL) free(g->must); free((char *)g); } xemp5.1-beta/lib/regex/engine.ih100644 12266 2116 2535 6033707737 15123 0ustar jponexor/* ========= begin header generated by ./mkh ========= */ #ifdef __cplusplus extern "C" { #endif /* === engine.c === */ static int matcher(register struct re_guts *g, char *string, size_t nmatch, regmatch_t pmatch[], int eflags); static char *dissect(register struct match *m, char *start, char *stop, sopno startst, sopno stopst); static char *backref(register struct match *m, char *start, char *stop, sopno startst, sopno stopst, sopno lev); static char *fast(register struct match *m, char *start, char *stop, sopno startst, sopno stopst); static char *slow(register struct match *m, char *start, char *stop, sopno startst, sopno stopst); static states step(register struct re_guts *g, sopno start, sopno stop, register states bef, int ch, register states aft); #define BOL (OUT+1) #define EOL (BOL+1) #define BOLEOL (BOL+2) #define NOTHING (BOL+3) #define BOW (BOL+4) #define EOW (BOL+5) #define CODEMAX (BOL+5) /* highest code used */ #define NONCHAR(c) ((c) > CHAR_MAX) #define NNONCHAR (CODEMAX-CHAR_MAX) #ifdef REDEBUG static void print(struct match *m, char *caption, states st, int ch, FILE *d); #endif #ifdef REDEBUG static void at(struct match *m, char *title, char *start, char *stop, sopno startst, sopno stopst); #endif #ifdef REDEBUG static char *pchar(int ch); #endif #ifdef __cplusplus } #endif /* ========= end header generated by ./mkh ========= */ xemp5.1-beta/lib/regex/regerror.ih100644 12266 2116 413 6036421225 15442 0ustar jponexor/* ========= begin header generated by ./mkh ========= */ #ifdef __cplusplus extern "C" { #endif /* === regerror.c === */ static char *regatoi(const regex_t *preg, char *localbuf); #ifdef __cplusplus } #endif /* ========= end header generated by ./mkh ========= */ xemp5.1-beta/lib/regex/main.ih100644 12266 2116 764 6033707746 14564 0ustar jponexor/* ========= begin header generated by ./mkh ========= */ #ifdef __cplusplus extern "C" { #endif /* === main.c === */ void regress(FILE *in); void try(char *f0, char *f1, char *f2, char *f3, char *f4, int opts); int options(int type, char *s); int opt(int c, char *s); void fixstr(register char *p); char *check(char *str, regmatch_t sub, char *should); static char *eprint(int err); static int efind(char *name); #ifdef __cplusplus } #endif /* ========= end header generated by ./mkh ========= */ xemp5.1-beta/lib/regex/debug.ih100644 12266 2116 511 6033707745 14713 0ustar jponexor/* ========= begin header generated by ./mkh ========= */ #ifdef __cplusplus extern "C" { #endif /* === debug.c === */ void regprint(regex_t *r, FILE *d); static void s_print(register struct re_guts *g, FILE *d); static char *regchar(int ch); #ifdef __cplusplus } #endif /* ========= end header generated by ./mkh ========= */ xemp5.1-beta/lib/regex/regex-orig.h100644 12266 2116 3451 6033707721 15544 0ustar jponexor#ifndef _REGEX_H_ #define _REGEX_H_ /* never again */ /* ========= begin header generated by ./mkh ========= */ #ifdef __cplusplus extern "C" { #endif /* === regex2.h === */ typedef off_t regoff_t; typedef struct { int re_magic; size_t re_nsub; /* number of parenthesized subexpressions */ const char *re_endp; /* end pointer for REG_PEND */ struct re_guts *re_g; /* none of your business :-) */ } regex_t; typedef struct { regoff_t rm_so; /* start of match */ regoff_t rm_eo; /* end of match */ } regmatch_t; /* === regcomp.c === */ extern int regcomp(regex_t *, const char *, int); #define REG_BASIC 0000 #define REG_EXTENDED 0001 #define REG_ICASE 0002 #define REG_NOSUB 0004 #define REG_NEWLINE 0010 #define REG_NOSPEC 0020 #define REG_PEND 0040 #define REG_DUMP 0200 /* === regerror.c === */ #define REG_NOMATCH 1 #define REG_BADPAT 2 #define REG_ECOLLATE 3 #define REG_ECTYPE 4 #define REG_EESCAPE 5 #define REG_ESUBREG 6 #define REG_EBRACK 7 #define REG_EPAREN 8 #define REG_EBRACE 9 #define REG_BADBR 10 #define REG_ERANGE 11 #define REG_ESPACE 12 #define REG_BADRPT 13 #define REG_EMPTY 14 #define REG_ASSERT 15 #define REG_INVARG 16 #define REG_ATOI 255 /* convert name to number (!) */ #define REG_ITOA 0400 /* convert number to name (!) */ extern size_t regerror(int, const regex_t *, char *, size_t); /* === regexec.c === */ extern int regexec(const regex_t *, const char *, size_t, regmatch_t [], int); #define REG_NOTBOL 00001 #define REG_NOTEOL 00002 #define REG_STARTEND 00004 #define REG_TRACE 00400 /* tracing of execution */ #define REG_LARGE 01000 /* force large representation */ #define REG_BACKR 02000 /* force use of backref code */ /* === regfree.c === */ extern void regfree(regex_t *); #ifdef __cplusplus } #endif /* ========= end header generated by ./mkh ========= */ #endif xemp5.1-beta/lib/regex/README.jpo100644 12266 2116 775 6036420477 14763 0ustar jponexorThis is basically Henry Spencers POSIX regex matching stuff. I've enhanced it (well I think so) so that the perl like escapes can be recognised. These don't work inside character classes though, so you can't do [\d\w]. The following are supported: \d digits \D non digits \w word (alphanumerics - but not _) \W non-word \s spaces \S non-spaces \< start of word \> end of word \t tab \n newline \r return \f form feed \e escape All changes are in regcomp.c Julian Onions Oct 10th 1995 xemp5.1-beta/lib/regex/regcomp.c100444 12266 2116 115601 6043134147 15157 0ustar jponexor/* based on Henry Spencers regex posix implementation * Some convenience extensions have been made. */ #include "config.h" #include #include #include #include #include #include #include #include "utils.h" #include "regex2.h" #include "cclass.h" #include "cname.h" #ifndef HAVE_MEMMOVE #ifdef HAVE_BCOPY #define memmove(a,b,c) bcopy((b),(a),(c)) #else #define memmove(a,b,c) memcpy((a),(b),(c)) #endif #endif /* * parse structure, passed up and down to avoid global variables and * other clumsinesses */ struct parse { char *next; /* next character in RE */ char *end; /* end of string (-> NUL normally) */ int error; /* has an error been seen? */ sop *strip; /* malloced strip */ sopno ssize; /* malloced strip size (allocated) */ sopno slen; /* malloced strip length (used) */ int ncsalloc; /* number of csets allocated */ struct re_guts *g; # define NPAREN 10 /* we need to remember () 1-9 for back refs */ sopno pbegin[NPAREN]; /* -> ( ([0] unused) */ sopno pend[NPAREN]; /* -> ) ([0] unused) */ }; #include "regcomp.ih" static char nuls[10]; /* place to point scanner in event of error */ /* * macros for use with parse structure * BEWARE: these know that the parse structure is named `p' !!! */ #define PEEK() (*p->next) #define PEEK2() (*(p->next+1)) #define MORE() (p->next < p->end) #define MORE2() (p->next+1 < p->end) #define SEE(c) (MORE() && PEEK() == (c)) #define SEETWO(a, b) (MORE() && MORE2() && PEEK() == (a) && PEEK2() == (b)) #define EAT(c) ((SEE(c)) ? (NEXT(), 1) : 0) #define EATTWO(a, b) ((SEETWO(a, b)) ? (NEXT2(), 1) : 0) #define NEXT() (p->next++) #define NEXT2() (p->next += 2) #define NEXTn(n) (p->next += (n)) #define GETNEXT() (*p->next++) #define SETERROR(e) seterr(p, (e)) #define REQUIRE(co, e) ((co) || SETERROR(e)) #define MUSTSEE(c, e) (REQUIRE(MORE() && PEEK() == (c), e)) #define MUSTEAT(c, e) (REQUIRE(MORE() && GETNEXT() == (c), e)) #define MUSTNOTSEE(c, e) (REQUIRE(!MORE() || PEEK() != (c), e)) #define EMIT(op, sopnd) doemit(p, (sop)(op), (size_t)(sopnd)) #define INSERT(op, pos) doinsert(p, (sop)(op), HERE()-(pos)+1, pos) #define AHEAD(pos) dofwd(p, pos, HERE()-(pos)) #define ASTERN(sop, pos) EMIT(sop, HERE()-pos) #define HERE() (p->slen) #define THERE() (p->slen - 1) #define THERETHERE() (p->slen - 2) #define DROP(n) (p->slen -= (n)) #ifndef NDEBUG static int never = 0; /* for use in asserts; shuts lint up */ #else #define never 0 /* some s have bugs too */ #endif /* - regcomp - interface for parser and compilation = extern int regcomp(regex_t *, const char *, int); = #define REG_BASIC 0000 = #define REG_EXTENDED 0001 = #define REG_ICASE 0002 = #define REG_NOSUB 0004 = #define REG_NEWLINE 0010 = #define REG_NOSPEC 0020 = #define REG_PEND 0040 = #define REG_DUMP 0200 */ int /* 0 success, otherwise REG_something */ regcomp(preg, pattern, cflags) regex_t *preg; const char *pattern; int cflags; { struct parse pa; register struct re_guts *g; register struct parse *p = &pa; register int i; register size_t len; #ifdef REDEBUG # define GOODFLAGS(f) (f) #else # define GOODFLAGS(f) ((f)&~REG_DUMP) #endif cflags = GOODFLAGS(cflags); if ((cflags®_EXTENDED) && (cflags®_NOSPEC)) return(REG_INVARG); if (cflags®_PEND) { if (preg->re_endp < pattern) return(REG_INVARG); len = preg->re_endp - pattern; } else len = strlen((char *)pattern); /* do the mallocs early so failure handling is easy */ g = (struct re_guts *)malloc(sizeof(struct re_guts) + (NC-1)*sizeof(cat_t)); if (g == NULL) return(REG_ESPACE); p->ssize = len/(size_t)2*(size_t)3 + (size_t)1; /* ugh */ p->strip = (sop *)malloc(p->ssize * sizeof(sop)); p->slen = 0; if (p->strip == NULL) { free((char *)g); return(REG_ESPACE); } /* set things up */ p->g = g; p->next = (char *)pattern; /* convenience; we do not modify it */ p->end = p->next + len; p->error = 0; p->ncsalloc = 0; for (i = 0; i < NPAREN; i++) { p->pbegin[i] = 0; p->pend[i] = 0; } g->csetsize = NC; g->sets = NULL; g->setbits = NULL; g->ncsets = 0; g->cflags = cflags; g->iflags = 0; g->nbol = 0; g->neol = 0; g->must = NULL; g->mlen = 0; g->nsub = 0; g->ncategories = 1; /* category 0 is "everything else" */ g->categories = &g->catspace[-(CHAR_MIN)]; (void) memset((char *)g->catspace, 0, NC*sizeof(cat_t)); g->backrefs = 0; /* do it */ EMIT(OEND, 0); g->firststate = THERE(); if (cflags®_EXTENDED) p_ere(p, OUT); else if (cflags®_NOSPEC) p_str(p); else p_bre(p, OUT, OUT); EMIT(OEND, 0); g->laststate = THERE(); /* tidy up loose ends and fill things in */ categorize(p, g); stripsnug(p, g); findmust(p, g); g->nplus = pluscount(p, g); g->magic = MAGIC2; preg->re_nsub = g->nsub; preg->re_g = g; preg->re_magic = MAGIC1; #ifndef REDEBUG /* not debugging, so can't rely on the assert() in regexec() */ if (g->iflags&BAD) SETERROR(REG_ASSERT); #endif /* win or lose, we're done */ if (p->error != 0) /* lose */ regfree(preg); return(p->error); } /* - p_ere - ERE parser top level, concatenation and alternation == static void p_ere(register struct parse *p, int stop); */ static void p_ere(p, stop) register struct parse *p; int stop; /* character this ERE should end at */ { register char c; register sopno prevback; register sopno prevfwd; register sopno conc; register int first = 1; /* is this the first alternative? */ for (;;) { /* do a bunch of concatenated expressions */ conc = HERE(); while (MORE() && (c = PEEK()) != '|' && c != stop) p_ere_exp(p); REQUIRE(HERE() != conc, REG_EMPTY); /* require nonempty */ if (!EAT('|')) break; /* NOTE BREAK OUT */ if (first) { INSERT(OCH_, conc); /* offset is wrong */ prevfwd = conc; prevback = conc; first = 0; } ASTERN(OOR1, prevback); prevback = THERE(); AHEAD(prevfwd); /* fix previous offset */ prevfwd = HERE(); EMIT(OOR2, 0); /* offset is very wrong */ } if (!first) { /* tail-end fixups */ AHEAD(prevfwd); ASTERN(O_CH, prevback); } assert(!MORE() || SEE(stop)); } /* - p_ere_exp - parse one subERE, an atom possibly followed by a repetition op == static void p_ere_exp(register struct parse *p); */ static void p_ere_exp(p) register struct parse *p; { register char c; register sopno pos; register int count; register int count2; register sopno subno; int wascaret = 0; assert(MORE()); /* caller should have ensured this */ c = GETNEXT(); pos = HERE(); switch (c) { case '(': REQUIRE(MORE(), REG_EPAREN); p->g->nsub++; subno = p->g->nsub; if (subno < NPAREN) p->pbegin[subno] = HERE(); EMIT(OLPAREN, subno); if (!SEE(')')) p_ere(p, ')'); if (subno < NPAREN) { p->pend[subno] = HERE(); assert(p->pend[subno] != 0); } EMIT(ORPAREN, subno); MUSTEAT(')', REG_EPAREN); break; #ifndef POSIX_MISTAKE case ')': /* happens only if no current unmatched ( */ /* * You may ask, why the ifndef? Because I didn't notice * this until slightly too late for 1003.2, and none of the * other 1003.2 regular-expression reviewers noticed it at * all. So an unmatched ) is legal POSIX, at least until * we can get it fixed. */ SETERROR(REG_EPAREN); break; #endif case '^': EMIT(OBOL, 0); p->g->iflags |= USEBOL; p->g->nbol++; wascaret = 1; break; case '$': EMIT(OEOL, 0); p->g->iflags |= USEEOL; p->g->neol++; break; case '|': SETERROR(REG_EMPTY); break; case '*': case '+': case '?': SETERROR(REG_BADRPT); break; case '.': if (p->g->cflags®_NEWLINE) nonnewline(p); else EMIT(OANY, 0); break; case '[': p_bracket(p); break; case '\\': REQUIRE(MORE(), REG_EESCAPE); c = GETNEXT(); p_quoted(p, c); /* JPO extension */ break; case '{': /* okay as ordinary except if digit follows */ REQUIRE(!MORE() || !isdigit(PEEK()), REG_BADRPT); /* FALLTHROUGH */ default: ordinary(p, c); break; } if (!MORE()) return; c = PEEK(); /* we call { a repetition if followed by a digit */ if (!( c == '*' || c == '+' || c == '?' || (c == '{' && MORE2() && isdigit(PEEK2())) )) return; /* no repetition, we're done */ NEXT(); REQUIRE(!wascaret, REG_BADRPT); switch (c) { case '*': /* implemented as +? */ /* this case does not require the (y|) trick, noKLUDGE */ INSERT(OPLUS_, pos); ASTERN(O_PLUS, pos); INSERT(OQUEST_, pos); ASTERN(O_QUEST, pos); break; case '+': INSERT(OPLUS_, pos); ASTERN(O_PLUS, pos); break; case '?': /* KLUDGE: emit y? as (y|) until subtle bug gets fixed */ INSERT(OCH_, pos); /* offset slightly wrong */ ASTERN(OOR1, pos); /* this one's right */ AHEAD(pos); /* fix the OCH_ */ EMIT(OOR2, 0); /* offset very wrong... */ AHEAD(THERE()); /* ...so fix it */ ASTERN(O_CH, THERETHERE()); break; case '{': count = p_count(p); if (EAT(',')) { if (isdigit(PEEK())) { count2 = p_count(p); REQUIRE(count <= count2, REG_BADBR); } else /* single number with comma */ count2 = INFINITY; } else /* just a single number */ count2 = count; repeat(p, pos, count, count2); if (!EAT('}')) { /* error heuristics */ while (MORE() && PEEK() != '}') NEXT(); REQUIRE(MORE(), REG_EBRACE); SETERROR(REG_BADBR); } break; } if (!MORE()) return; c = PEEK(); if (!( c == '*' || c == '+' || c == '?' || (c == '{' && MORE2() && isdigit(PEEK2())) ) ) return; SETERROR(REG_BADRPT); } /* - p_str - string (no metacharacters) "parser" == static void p_str(register struct parse *p); */ static void p_str(p) register struct parse *p; { REQUIRE(MORE(), REG_EMPTY); while (MORE()) ordinary(p, GETNEXT()); } /* - p_bre - BRE parser top level, anchoring and concatenation == static void p_bre(register struct parse *p, register int end1, \ == register int end2); * Giving end1 as OUT essentially eliminates the end1/end2 check. * * This implementation is a bit of a kludge, in that a trailing $ is first * taken as an ordinary character and then revised to be an anchor. The * only undesirable side effect is that '$' gets included as a character * category in such cases. This is fairly harmless; not worth fixing. * The amount of lookahead needed to avoid this kludge is excessive. */ static void p_bre(p, end1, end2) register struct parse *p; register int end1; /* first terminating character */ register int end2; /* second terminating character */ { register sopno start = HERE(); register int first = 1; /* first subexpression? */ register int wasdollar = 0; if (EAT('^')) { EMIT(OBOL, 0); p->g->iflags |= USEBOL; p->g->nbol++; } while (MORE() && !SEETWO(end1, end2)) { wasdollar = p_simp_re(p, first); first = 0; } if (wasdollar) { /* oops, that was a trailing anchor */ DROP(1); EMIT(OEOL, 0); p->g->iflags |= USEEOL; p->g->neol++; } REQUIRE(HERE() != start, REG_EMPTY); /* require nonempty */ } /* - p_simp_re - parse a simple RE, an atom possibly followed by a repetition == static int p_simp_re(register struct parse *p, int starordinary); */ static int /* was the simple RE an unbackslashed $? */ p_simp_re(p, starordinary) register struct parse *p; int starordinary; /* is a leading * an ordinary character? */ { register int c; register int count; register int count2; register sopno pos; register int i; register sopno subno; # define BACKSL (1<g->cflags®_NEWLINE) nonnewline(p); else EMIT(OANY, 0); break; case '[': p_bracket(p); break; case BACKSL|'{': SETERROR(REG_BADRPT); break; case BACKSL|'(': p->g->nsub++; subno = p->g->nsub; if (subno < NPAREN) p->pbegin[subno] = HERE(); EMIT(OLPAREN, subno); /* the MORE here is an error heuristic */ if (MORE() && !SEETWO('\\', ')')) p_bre(p, '\\', ')'); if (subno < NPAREN) { p->pend[subno] = HERE(); assert(p->pend[subno] != 0); } EMIT(ORPAREN, subno); REQUIRE(EATTWO('\\', ')'), REG_EPAREN); break; case BACKSL|')': /* should not get here -- must be user */ case BACKSL|'}': SETERROR(REG_EPAREN); break; case BACKSL|'1': case BACKSL|'2': case BACKSL|'3': case BACKSL|'4': case BACKSL|'5': case BACKSL|'6': case BACKSL|'7': case BACKSL|'8': case BACKSL|'9': i = (c&~BACKSL) - '0'; assert(i < NPAREN); if (p->pend[i] != 0) { assert(i <= p->g->nsub); EMIT(OBACK_, i); assert(p->pbegin[i] != 0); assert(OP(p->strip[p->pbegin[i]]) == OLPAREN); assert(OP(p->strip[p->pend[i]]) == ORPAREN); (void) dupl(p, p->pbegin[i]+1, p->pend[i]); EMIT(O_BACK, i); } else SETERROR(REG_ESUBREG); p->g->backrefs = 1; break; case '*': REQUIRE(starordinary, REG_BADRPT); /* FALLTHROUGH */ default: ordinary(p, c &~ BACKSL); break; } if (EAT('*')) { /* implemented as +? */ /* this case does not require the (y|) trick, noKLUDGE */ INSERT(OPLUS_, pos); ASTERN(O_PLUS, pos); INSERT(OQUEST_, pos); ASTERN(O_QUEST, pos); } else if (EATTWO('\\', '{')) { count = p_count(p); if (EAT(',')) { if (MORE() && isdigit(PEEK())) { count2 = p_count(p); REQUIRE(count <= count2, REG_BADBR); } else /* single number with comma */ count2 = INFINITY; } else /* just a single number */ count2 = count; repeat(p, pos, count, count2); if (!EATTWO('\\', '}')) { /* error heuristics */ while (MORE() && !SEETWO('\\', '}')) NEXT(); REQUIRE(MORE(), REG_EBRACE); SETERROR(REG_BADBR); } } else if (c == (unsigned char)'$') /* $ (but not \$) ends it */ return(1); return(0); } /* - p_count - parse a repetition count == static int p_count(register struct parse *p); */ static int /* the value */ p_count(p) register struct parse *p; { register int count = 0; register int ndigits = 0; while (MORE() && isdigit(PEEK()) && count <= DUPMAX) { count = count*10 + (GETNEXT() - '0'); ndigits++; } REQUIRE(ndigits > 0 && count <= DUPMAX, REG_BADBR); return(count); } /* - p_bracket - parse a bracketed character list == static void p_bracket(register struct parse *p); * * Note a significant property of this code: if the allocset() did SETERROR, * no set operations are done. */ static void p_bracket(p) register struct parse *p; { register char c; register cset *cs = allocset(p); register int invert = 0; /* Dept of Truly Sickening Special-Case Kludges */ if (p->next + 5 < p->end && strncmp(p->next, "[:<:]]", 6) == 0) { EMIT(OBOW, 0); NEXTn(6); return; } if (p->next + 5 < p->end && strncmp(p->next, "[:>:]]", 6) == 0) { EMIT(OEOW, 0); NEXTn(6); return; } if (EAT('^')) invert++; /* make note to invert set at end */ if (EAT(']')) CHadd(cs, ']'); else if (EAT('-')) CHadd(cs, '-'); while (MORE() && PEEK() != ']' && !SEETWO('-', ']')) p_b_term(p, cs); if (EAT('-')) CHadd(cs, '-'); MUSTEAT(']', REG_EBRACK); if (p->error != 0) /* don't mess things up further */ return; if (p->g->cflags®_ICASE) { register int i; register int ci; for (i = p->g->csetsize - 1; i >= 0; i--) if (CHIN(cs, i) && isalpha(i)) { ci = othercase(i); if (ci != i) CHadd(cs, ci); } if (cs->multis != NULL) mccase(p, cs); } if (invert) { register int i; for (i = p->g->csetsize - 1; i >= 0; i--) if (CHIN(cs, i)) CHsub(cs, i); else CHadd(cs, i); if (p->g->cflags®_NEWLINE) CHsub(cs, '\n'); if (cs->multis != NULL) mcinvert(p, cs); } assert(cs->multis == NULL); /* xxx */ if (nch(p, cs) == 1) { /* optimize singleton sets */ ordinary(p, firstch(p, cs)); freeset(p, cs); } else EMIT(OANYOF, freezeset(p, cs)); } /* - p_b_term - parse one term of a bracketed character list == static void p_b_term(register struct parse *p, register cset *cs); */ static void p_b_term(p, cs) register struct parse *p; register cset *cs; { register char c; register char start, finish; register int i; /* classify what we've got */ switch ((MORE()) ? PEEK() : '\0') { case '[': c = (MORE2()) ? PEEK2() : '\0'; break; case '-': SETERROR(REG_ERANGE); return; /* NOTE RETURN */ break; default: c = '\0'; break; } switch (c) { case ':': /* character class */ NEXT2(); REQUIRE(MORE(), REG_EBRACK); c = PEEK(); REQUIRE(c != '-' && c != ']', REG_ECTYPE); p_b_cclass(p, cs); REQUIRE(MORE(), REG_EBRACK); REQUIRE(EATTWO(':', ']'), REG_ECTYPE); break; case '=': /* equivalence class */ NEXT2(); REQUIRE(MORE(), REG_EBRACK); c = PEEK(); REQUIRE(c != '-' && c != ']', REG_ECOLLATE); p_b_eclass(p, cs); REQUIRE(MORE(), REG_EBRACK); REQUIRE(EATTWO('=', ']'), REG_ECOLLATE); break; case '\\': default: /* symbol, ordinary character, or range */ /* xxx revision needed for multichar stuff */ start = p_b_symbol(p); if (SEE('-') && MORE2() && PEEK2() != ']') { /* range */ NEXT(); if (EAT('-')) finish = '-'; else finish = p_b_symbol(p); } else finish = start; /* xxx what about signed chars here... */ REQUIRE(start <= finish, REG_ERANGE); for (i = start; i <= finish; i++) CHadd(cs, i); break; } } /* - p_b_cclass - parse a character-class name and deal with it == static void p_b_cclass(register struct parse *p, register cset *cs); */ static void p_b_cclass(p, cs) register struct parse *p; register cset *cs; { register char *sp = p->next; register struct cclass *cp; register size_t len; register char *u; register char c; while (MORE() && isalpha(PEEK())) NEXT(); len = p->next - sp; for (cp = cclasses; cp->name != NULL; cp++) if (strncmp(cp->name, sp, len) == 0 && cp->name[len] == '\0') break; if (cp->name == NULL) { /* oops, didn't find it */ SETERROR(REG_ECTYPE); return; } u = cp->chars; while ((c = *u++) != '\0') CHadd(cs, c); for (u = cp->multis; *u != '\0'; u += strlen(u) + 1) MCadd(p, cs, u); } /* - p_b_eclass - parse an equivalence-class name and deal with it == static void p_b_eclass(register struct parse *p, register cset *cs); * * This implementation is incomplete. xxx */ static void p_b_eclass(p, cs) register struct parse *p; register cset *cs; { register char c; c = p_b_coll_elem(p, '='); CHadd(cs, c); } /* - p_b_symbol - parse a character or [..]ed multicharacter collating symbol == static char p_b_symbol(register struct parse *p); */ static char /* value of symbol */ p_b_symbol(p) register struct parse *p; { register char value; REQUIRE(MORE(), REG_EBRACK); if (!EATTWO('[', '.')) return(GETNEXT()); /* collating symbol */ value = p_b_coll_elem(p, '.'); REQUIRE(EATTWO('.', ']'), REG_ECOLLATE); return(value); } /* - p_b_coll_elem - parse a collating-element name and look it up == static char p_b_coll_elem(register struct parse *p, int endc); */ static char /* value of collating element */ p_b_coll_elem(p, endc) register struct parse *p; int endc; /* name ended by endc,']' */ { register char *sp = p->next; register struct cname *cp; register int len; register char c; while (MORE() && !SEETWO(endc, ']')) NEXT(); if (!MORE()) { SETERROR(REG_EBRACK); return(0); } len = p->next - sp; for (cp = cnames; cp->name != NULL; cp++) if (strncmp(cp->name, sp, len) == 0 && cp->name[len] == '\0') return(cp->code); /* known name */ if (len == 1) return(*sp); /* single character */ SETERROR(REG_ECOLLATE); /* neither */ return(0); } /* - othercase - return the case counterpart of an alphabetic == static char othercase(int ch); */ static char /* if no counterpart, return ch */ othercase(ch) int ch; { assert(isalpha(ch)); if (isupper(ch)) return(tolower(ch)); else if (islower(ch)) return(toupper(ch)); else /* peculiar, but could happen */ return(ch); } /* - bothcases - emit a dualcase version of a two-case character == static void bothcases(register struct parse *p, int ch); * * Boy, is this implementation ever a kludge... */ static void bothcases(p, ch) register struct parse *p; int ch; { register char *oldnext = p->next; register char *oldend = p->end; char bracket[3]; assert(othercase(ch) != ch); /* p_bracket() would recurse */ p->next = bracket; p->end = bracket+2; bracket[0] = ch; bracket[1] = ']'; bracket[2] = '\0'; p_bracket(p); assert(p->next == bracket+2); p->next = oldnext; p->end = oldend; } /* - ordinary - emit an ordinary character == static void ordinary(register struct parse *p, register int ch); */ static void ordinary(p, ch) register struct parse *p; register int ch; { register cat_t *cap = p->g->categories; if ((p->g->cflags®_ICASE) && isalpha(ch) && othercase(ch) != ch) bothcases(p, ch); else { EMIT(OCHAR, (unsigned char)ch); if (cap[ch] == 0) cap[ch] = p->g->ncategories++; } } /* - nonnewline - emit REG_NEWLINE version of OANY == static void nonnewline(register struct parse *p); * * Boy, is this implementation ever a kludge... */ static void nonnewline(p) register struct parse *p; { register char *oldnext = p->next; register char *oldend = p->end; char bracket[4]; p->next = bracket; p->end = bracket+3; bracket[0] = '^'; bracket[1] = '\n'; bracket[2] = ']'; bracket[3] = '\0'; p_bracket(p); assert(p->next == bracket+3); p->next = oldnext; p->end = oldend; } /* - repeat - generate code for a bounded repetition, recursively if needed == static void repeat(register struct parse *p, sopno start, int from, int to); */ static void repeat(p, start, from, to) register struct parse *p; sopno start; /* operand from here to end of strip */ int from; /* repeated from this number */ int to; /* to this number of times (maybe INFINITY) */ { register sopno finish = HERE(); # define N 2 # define INF 3 # define REP(f, t) ((f)*8 + (t)) # define MAP(n) (((n) <= 1) ? (n) : ((n) == INFINITY) ? INF : N) register sopno copy; if (p->error != 0) /* head off possible runaway recursion */ return; assert(from <= to); switch (REP(MAP(from), MAP(to))) { case REP(0, 0): /* must be user doing this */ DROP(finish-start); /* drop the operand */ break; case REP(0, 1): /* as x{1,1}? */ case REP(0, N): /* as x{1,n}? */ case REP(0, INF): /* as x{1,}? */ /* KLUDGE: emit y? as (y|) until subtle bug gets fixed */ INSERT(OCH_, start); /* offset is wrong... */ repeat(p, start+1, 1, to); ASTERN(OOR1, start); AHEAD(start); /* ... fix it */ EMIT(OOR2, 0); AHEAD(THERE()); ASTERN(O_CH, THERETHERE()); break; case REP(1, 1): /* trivial case */ /* done */ break; case REP(1, N): /* as x?x{1,n-1} */ /* KLUDGE: emit y? as (y|) until subtle bug gets fixed */ INSERT(OCH_, start); ASTERN(OOR1, start); AHEAD(start); EMIT(OOR2, 0); /* offset very wrong... */ AHEAD(THERE()); /* ...so fix it */ ASTERN(O_CH, THERETHERE()); copy = dupl(p, start+1, finish+1); assert(copy == finish+4); repeat(p, copy, 1, to-1); break; case REP(1, INF): /* as x+ */ INSERT(OPLUS_, start); ASTERN(O_PLUS, start); break; case REP(N, N): /* as xx{m-1,n-1} */ copy = dupl(p, start, finish); repeat(p, copy, from-1, to-1); break; case REP(N, INF): /* as xx{n-1,INF} */ copy = dupl(p, start, finish); repeat(p, copy, from-1, to); break; default: /* "can't happen" */ SETERROR(REG_ASSERT); /* just in case */ break; } } /* - seterr - set an error condition == static int seterr(register struct parse *p, int e); */ static int /* useless but makes type checking happy */ seterr(p, e) register struct parse *p; int e; { if (p->error == 0) /* keep earliest error condition */ p->error = e; p->next = nuls; /* try to bring things to a halt */ p->end = nuls; return(0); /* make the return value well-defined */ } /* - allocset - allocate a set of characters for [] == static cset *allocset(register struct parse *p); */ static cset * allocset(p) register struct parse *p; { register int no = p->g->ncsets++; register size_t nc; register size_t nbytes; register cset *cs; register size_t css = (size_t)p->g->csetsize; register int i; if (no >= p->ncsalloc) { /* need another column of space */ p->ncsalloc += CHAR_BIT; nc = p->ncsalloc; assert(nc % CHAR_BIT == 0); nbytes = nc / CHAR_BIT * css; if (p->g->sets == NULL) p->g->sets = (cset *)malloc(nc * sizeof(cset)); else p->g->sets = (cset *)realloc((char *)p->g->sets, nc * sizeof(cset)); if (p->g->setbits == NULL) p->g->setbits = (uch *)malloc(nbytes); else { p->g->setbits = (uch *)realloc((char *)p->g->setbits, nbytes); /* xxx this isn't right if setbits is now NULL */ for (i = 0; i < no; i++) p->g->sets[i].ptr = p->g->setbits + css*(i/CHAR_BIT); } if (p->g->sets != NULL && p->g->setbits != NULL) (void) memset((char *)p->g->setbits + (nbytes - css), 0, css); else { no = 0; SETERROR(REG_ESPACE); /* caller's responsibility not to do set ops */ } } assert(p->g->sets != NULL); /* xxx */ cs = &p->g->sets[no]; cs->ptr = p->g->setbits + css*((no)/CHAR_BIT); cs->mask = 1 << ((no) % CHAR_BIT); cs->hash = 0; cs->smultis = 0; cs->multis = NULL; return(cs); } /* - freeset - free a now-unused set == static void freeset(register struct parse *p, register cset *cs); */ static void freeset(p, cs) register struct parse *p; register cset *cs; { register int i; register cset *top = &p->g->sets[p->g->ncsets]; register size_t css = (size_t)p->g->csetsize; for (i = 0; i < css; i++) CHsub(cs, i); if (cs == top-1) /* recover only the easy case */ p->g->ncsets--; } /* - freezeset - final processing on a set of characters == static int freezeset(register struct parse *p, register cset *cs); * * The main task here is merging identical sets. This is usually a waste * of time (although the hash code minimizes the overhead), but can win * big if REG_ICASE is being used. REG_ICASE, by the way, is why the hash * is done using addition rather than xor -- all ASCII [aA] sets xor to * the same value! */ static int /* set number */ freezeset(p, cs) register struct parse *p; register cset *cs; { register uch h = cs->hash; register int i; register cset *top = &p->g->sets[p->g->ncsets]; register cset *cs2; register size_t css = (size_t)p->g->csetsize; /* look for an earlier one which is the same */ for (cs2 = &p->g->sets[0]; cs2 < top; cs2++) if (cs2->hash == h && cs2 != cs) { /* maybe */ for (i = 0; i < css; i++) if (!!CHIN(cs2, i) != !!CHIN(cs, i)) break; /* no */ if (i == css) break; /* yes */ } if (cs2 < top) { /* found one */ freeset(p, cs); cs = cs2; } return((int)(cs - p->g->sets)); } /* - firstch - return first character in a set (which must have at least one) == static int firstch(register struct parse *p, register cset *cs); */ static int /* character; there is no "none" value */ firstch(p, cs) register struct parse *p; register cset *cs; { register int i; register size_t css = (size_t)p->g->csetsize; for (i = 0; i < css; i++) if (CHIN(cs, i)) return((char)i); assert(never); return(0); /* arbitrary */ } /* - nch - number of characters in a set == static int nch(register struct parse *p, register cset *cs); */ static int nch(p, cs) register struct parse *p; register cset *cs; { register int i; register size_t css = (size_t)p->g->csetsize; register int n = 0; for (i = 0; i < css; i++) if (CHIN(cs, i)) n++; return(n); } /* - mcadd - add a collating element to a cset == static void mcadd(register struct parse *p, register cset *cs, \ == register char *cp); */ static void mcadd(p, cs, cp) register struct parse *p; register cset *cs; register char *cp; { register size_t oldend = cs->smultis; cs->smultis += strlen(cp) + 1; if (cs->multis == NULL) cs->multis = malloc(cs->smultis); else cs->multis = realloc(cs->multis, cs->smultis); if (cs->multis == NULL) { SETERROR(REG_ESPACE); return; } (void) strcpy(cs->multis + oldend - 1, cp); cs->multis[cs->smultis - 1] = '\0'; } /* - mcsub - subtract a collating element from a cset == static void mcsub(register cset *cs, register char *cp); */ static void mcsub(cs, cp) register cset *cs; register char *cp; { register char *fp = mcfind(cs, cp); register size_t len = strlen(fp); assert(fp != NULL); (void) memmove(fp, fp + len + 1, cs->smultis - (fp + len + 1 - cs->multis)); cs->smultis -= len; if (cs->smultis == 0) { free(cs->multis); cs->multis = NULL; return; } cs->multis = realloc(cs->multis, cs->smultis); assert(cs->multis != NULL); } /* - mcin - is a collating element in a cset? == static int mcin(register cset *cs, register char *cp); */ static int mcin(cs, cp) register cset *cs; register char *cp; { return(mcfind(cs, cp) != NULL); } /* - mcfind - find a collating element in a cset == static char *mcfind(register cset *cs, register char *cp); */ static char * mcfind(cs, cp) register cset *cs; register char *cp; { register char *p; if (cs->multis == NULL) return(NULL); for (p = cs->multis; *p != '\0'; p += strlen(p) + 1) if (strcmp(cp, p) == 0) return(p); return(NULL); } /* - mcinvert - invert the list of collating elements in a cset == static void mcinvert(register struct parse *p, register cset *cs); * * This would have to know the set of possibilities. Implementation * is deferred. */ static void mcinvert(p, cs) register struct parse *p; register cset *cs; { assert(cs->multis == NULL); /* xxx */ } /* - mccase - add case counterparts of the list of collating elements in a cset == static void mccase(register struct parse *p, register cset *cs); * * This would have to know the set of possibilities. Implementation * is deferred. */ static void mccase(p, cs) register struct parse *p; register cset *cs; { assert(cs->multis == NULL); /* xxx */ } /* - isinsets - is this character in any sets? == static int isinsets(register struct re_guts *g, int c); */ static int /* predicate */ isinsets(g, c) register struct re_guts *g; int c; { register uch *col; register int i; register int ncols = (g->ncsets+(CHAR_BIT-1)) / CHAR_BIT; register unsigned uc = (unsigned char)c; for (i = 0, col = g->setbits; i < ncols; i++, col += g->csetsize) if (col[uc] != 0) return(1); return(0); } /* - samesets - are these two characters in exactly the same sets? == static int samesets(register struct re_guts *g, int c1, int c2); */ static int /* predicate */ samesets(g, c1, c2) register struct re_guts *g; int c1; int c2; { register uch *col; register int i; register int ncols = (g->ncsets+(CHAR_BIT-1)) / CHAR_BIT; register unsigned uc1 = (unsigned char)c1; register unsigned uc2 = (unsigned char)c2; for (i = 0, col = g->setbits; i < ncols; i++, col += g->csetsize) if (col[uc1] != col[uc2]) return(0); return(1); } /* - categorize - sort out character categories == static void categorize(struct parse *p, register struct re_guts *g); */ static void categorize(p, g) struct parse *p; register struct re_guts *g; { register cat_t *cats = g->categories; register int c; register int c2; register cat_t cat; /* avoid making error situations worse */ if (p->error != 0) return; for (c = CHAR_MIN; c <= CHAR_MAX; c++) if (cats[c] == 0 && isinsets(g, c)) { cat = g->ncategories++; cats[c] = cat; for (c2 = c+1; c2 <= CHAR_MAX; c2++) if (cats[c2] == 0 && samesets(g, c, c2)) cats[c2] = cat; } } /* - dupl - emit a duplicate of a bunch of sops == static sopno dupl(register struct parse *p, sopno start, sopno finish); */ static sopno /* start of duplicate */ dupl(p, start, finish) register struct parse *p; sopno start; /* from here */ sopno finish; /* to this less one */ { register sopno ret = HERE(); register sopno len = finish - start; assert(finish >= start); if (len == 0) return(ret); enlarge(p, p->ssize + len); /* this many unexpected additions */ assert(p->ssize >= p->slen + len); (void) memcpy((char *)(p->strip + p->slen), (char *)(p->strip + start), (size_t)len*sizeof(sop)); p->slen += len; return(ret); } /* - doemit - emit a strip operator == static void doemit(register struct parse *p, sop op, size_t opnd); * * It might seem better to implement this as a macro with a function as * hard-case backup, but it's just too big and messy unless there are * some changes to the data structures. Maybe later. */ static void doemit(p, op, opnd) register struct parse *p; sop op; size_t opnd; { /* avoid making error situations worse */ if (p->error != 0) return; /* deal with oversize operands ("can't happen", more or less) */ assert(opnd < 1<slen >= p->ssize) enlarge(p, (p->ssize+1) / 2 * 3); /* +50% */ assert(p->slen < p->ssize); /* finally, it's all reduced to the easy case */ p->strip[p->slen++] = SOP(op, opnd); } /* - doinsert - insert a sop into the strip == static void doinsert(register struct parse *p, sop op, size_t opnd, sopno pos); */ static void doinsert(p, op, opnd, pos) register struct parse *p; sop op; size_t opnd; sopno pos; { register sopno sn; register sop s; register int i; /* avoid making error situations worse */ if (p->error != 0) return; sn = HERE(); EMIT(op, opnd); /* do checks, ensure space */ assert(HERE() == sn+1); s = p->strip[sn]; /* adjust paren pointers */ assert(pos > 0); for (i = 1; i < NPAREN; i++) { if (p->pbegin[i] >= pos) { p->pbegin[i]++; } if (p->pend[i] >= pos) { p->pend[i]++; } } memmove((char *)&p->strip[pos+1], (char *)&p->strip[pos], (HERE()-pos-1)*sizeof(sop)); p->strip[pos] = s; } /* - dofwd - complete a forward reference == static void dofwd(register struct parse *p, sopno pos, sop value); */ static void dofwd(p, pos, value) register struct parse *p; register sopno pos; sop value; { /* avoid making error situations worse */ if (p->error != 0) return; assert(value < 1<strip[pos] = OP(p->strip[pos]) | value; } /* - enlarge - enlarge the strip == static void enlarge(register struct parse *p, sopno size); */ static void enlarge(p, size) register struct parse *p; register sopno size; { register sop *sp; if (p->ssize >= size) return; sp = (sop *)realloc(p->strip, size*sizeof(sop)); if (sp == NULL) { SETERROR(REG_ESPACE); return; } p->strip = sp; p->ssize = size; } /* - stripsnug - compact the strip == static void stripsnug(register struct parse *p, register struct re_guts *g); */ static void stripsnug(p, g) register struct parse *p; register struct re_guts *g; { g->nstates = p->slen; g->strip = (sop *)realloc((char *)p->strip, p->slen * sizeof(sop)); if (g->strip == NULL) { SETERROR(REG_ESPACE); g->strip = p->strip; } } /* - findmust - fill in must and mlen with longest mandatory literal string == static void findmust(register struct parse *p, register struct re_guts *g); * * This algorithm could do fancy things like analyzing the operands of | * for common subsequences. Someday. This code is simple and finds most * of the interesting cases. * * Note that must and mlen got initialized during setup. */ static void findmust(p, g) struct parse *p; register struct re_guts *g; { register sop *scan; sop *start; register sop *newstart; register sopno newlen; register sop s; register char *cp; register sopno i; /* avoid making error situations worse */ if (p->error != 0) return; /* find the longest OCHAR sequence in strip */ newlen = 0; scan = g->strip + 1; do { s = *scan++; switch (OP(s)) { case OCHAR: /* sequence member */ if (newlen == 0) /* new sequence */ newstart = scan - 1; newlen++; break; case OPLUS_: /* things that don't break one */ case OLPAREN: case ORPAREN: break; case OQUEST_: /* things that must be skipped */ case OCH_: scan--; do { scan += OPND(s); s = *scan; /* assert() interferes w debug printouts */ if (OP(s) != O_QUEST && OP(s) != O_CH && OP(s) != OOR2) { g->iflags |= BAD; return; } } while (OP(s) != O_QUEST && OP(s) != O_CH); /* fallthrough */ default: /* things that break a sequence */ if (newlen > g->mlen) { /* ends one */ start = newstart; g->mlen = newlen; } newlen = 0; break; } } while (OP(s) != OEND); if (g->mlen == 0) /* there isn't one */ return; /* turn it into a character string */ g->must = malloc((size_t)g->mlen + 1); if (g->must == NULL) { /* argh; just forget it */ g->mlen = 0; return; } cp = g->must; scan = start; for (i = g->mlen; i > 0; i--) { while (OP(s = *scan++) != OCHAR) continue; assert(cp < g->must + g->mlen); *cp++ = (char)OPND(s); } assert(cp == g->must + g->mlen); *cp++ = '\0'; /* just on general principles */ } /* - pluscount - count + nesting == static sopno pluscount(register struct parse *p, register struct re_guts *g); */ static sopno /* nesting depth */ pluscount(p, g) struct parse *p; register struct re_guts *g; { register sop *scan; register sop s; register sopno plusnest = 0; register sopno maxnest = 0; if (p->error != 0) return(0); /* there may not be an OEND */ scan = g->strip + 1; do { s = *scan++; switch (OP(s)) { case OPLUS_: plusnest++; break; case O_PLUS: if (plusnest > maxnest) maxnest = plusnest; plusnest--; break; } } while (OP(s) != OEND); if (plusnest != 0) g->iflags |= BAD; return(maxnest); } /* JPO extensions from here */ /* - p_quoted - handle a quoted (backslashed) character. == static void p_quoted(struct parse *p, int c); */ static void p_quoted (p, c) struct parse *p; int c; { switch (c) { case 'd': /* digit class */ mk_cclass(p, CCLASS_DIGIT, 0); break; case 'D': /* inverted digit class */ mk_cclass(p, CCLASS_DIGIT, 1); break; case 'w': /* word */ mk_cclass(p, CCLASS_ALNUM, 0); break; case 'W': /* inverted word */ mk_cclass(p, CCLASS_ALNUM, 1); break; case 's': /* space */ mk_cclass(p, CCLASS_SPACE, 0); break; case 'S': /* inverted space */ mk_cclass(p, CCLASS_SPACE, 1); break; case '<': EMIT(OBOW, 0); break; case '>': EMIT(OEOW, 0); break; case 't': /* tab */ ordinary (p, '\t'); break; case 'n': /* newline */ ordinary (p, '\n'); break; case 'r': /* return */ ordinary (p, '\r'); break; case 'f': /* form feed */ ordinary (p, '\f'); break; case 'e': /* escape */ ordinary (p, '\033'); break; default: ordinary(p, c); break; } } /* - mk_cclass - make up a character class - or an inverted one == static void mk_cclass(struct parse *p, int indx, int inverted); */ static void mk_cclass(p, indx, inverted) struct parse *p; int indx; int inverted; { struct cclass *cp; register cset *cs = allocset(p); register char *u; register char c; cp = &cclasses[indx]; u = cp -> chars; while ((c = *u++) != '\0') CHadd(cs, c); for (u = cp->multis; *u != '\0'; u += strlen(u) + 1) MCadd(p, cs, u); if (p->g->cflags®_ICASE) { register int i; register int ci; for (i = p->g->csetsize - 1; i >= 0; i--) if (CHIN(cs, i) && isalpha(i)) { ci = othercase(i); if (ci != i) CHadd(cs, ci); } if (cs->multis != NULL) mccase(p, cs); } if (inverted) { register int i; for (i = p->g->csetsize - 1; i >= 0; i--) if (CHIN(cs, i)) CHsub(cs, i); else CHadd(cs, i); if (p->g->cflags®_NEWLINE) CHsub(cs, '\n'); if (cs->multis != NULL) mcinvert(p, cs); } assert(cs->multis == NULL); /* xxx */ if (nch(p, cs) == 1) { /* optimize singleton sets */ ordinary(p, firstch(p, cs)); freeset(p, cs); } else EMIT(OANYOF, freezeset(p, cs)); } xemp5.1-beta/lib/.pure100644 12266 2116 0 6011604621 13057 0ustar jponexorxemp5.1-beta/make/ 40755 12266 2116 0 6043206215 12251 5ustar jponexorxemp5.1-beta/make/BinMakefile100644 12266 2116 2624 5750202014 14440 0ustar jponexor# Makefile for binaries. .PHONY: all dirs saber tags TAGS ifdef ARCH ARCHBIN := $(ARCH)/$(BIN) ARCHOBJS := $(addprefix $(ARCH)/,$(OBJS)) # Nasty bit of hackery to stick the architecture in all the libraries, ie: # foo.a -lm ../bar.a # becomes # sun3/foo.a ../sun3/bar.a -lm # # NOTE -- the order of the libraries is not retained ("-l"s are put at # the end). If someone can figure out how to do this right, please # do. RLIBS := $(filter-out -l%,$(LIBS)) OLIBS := $(filter -l%,$(LIBS)) XX1 := $(addsuffix $(ARCH)/,$(dir $(RLIBS))) XX2 := $(notdir $(RLIBS)) ARCHLIBS := $(join $(XX1),$(XX2)) $(OLIBS) all: dirs $(ARCHBIN) $(ARCHBIN): $(ARCHOBJS) FRC $(CC) $(LFLAGS) $(ARCHOBJS) $(ARCHLIBS) $(TAILLIBS) -o $@ FRC:: clean: -rm -f $(ARCHOBJS) $(ARCHBIN) .PHONY: $(BIN) $(BIN): $(ARCH)/$(BIN) install: rm -f $(BINDIR)/$(BIN) cp $(ARCH)/$(BIN) $(BINDIR)/$(BIN) else RLIBS := $(filter-out -l%,$(LIBS)) all: dirs $(BIN) $(BIN): $(OBJS) $(RLIBS) $(CC) $(LFLAGS) $(OBJS) $(LIBS) $(TAILLIBS) -o $@ clean: -rm -f $(OBJS) $(BIN) install: rm -f $(BINDIR)/$(BIN) cp $(BIN) $(BINDIR)/$(BIN) endif saber: %load $(CFLAGS) $(SRCS) $(SFLAGS) TAGSRCS := $(SRCDIR)/h/*.h *.c $(patsubst %,$(SRCDIR)/empmain/%/*.c,$(DIRS)) tags: @echo "Making tags in $(SRCDIR)/h . $(DIRS)..." @ctags $(TAGSRCS) @echo "done." TAGS: @echo "Making tags in $(SRCDIR)/h . $(DIRS)..." @etags $(TAGSRCS) @echo "done." xemp5.1-beta/make/DependTmpl100644 12266 2116 15 5334624360 14270 0ustar jponexorSRCS= OBJS= xemp5.1-beta/make/GenMakefile100644 12266 2116 4465 6034225147 14456 0ustar jponexor# Generic makefile stuff. This file is included by all # the makefiles in the distribution. # The following variable is automatically filled on by "make depend". SRCDIR= $(TOPDIR) GAMEDIR= $(SRCDIR) NROFF := nroff TROFF := troff LIBDIR := $(SRCDIR)/lib MAKEDIR := $(SRCDIR)/make RANLIB := ranlib AR := ar include $(MAKEDIR)/ConfigMakefile include $(MAKEDIR)/UtilMakefile ifdef SYSTYPE include $(MAKEDIR)/Systems/$(SYSTYPE) endif # The following variables are configurable. #-----------------------------------# ifdef XEMP GLOBALCFLAGS := -g -O -DX_VERSION GLOBALIFLAGS := -I$(SRCDIR)/include $(XINCLUDES) GLOBALLFLAGS := $(XLIBS) GLOBALSFLAGS := endif ifdef TCEMP GLOBALCFLAGS := -O -DTERMC_VERSION GLOBALIFLAGS := -I$(SRCDIR)/include GLOBALLFLAGS := $(OTHERLIBS) GLOBALSFLAGS := endif LINTFLAGS := -bhuz -I$(SRCDIR)/include BSD := 4.3 BINDIR := $(GAMEDIR)/bin DEPENDFILE := GNUdepend #-----------------------------------# # Other variables CFLAGS := $(LOCALCFLAGS) $(GLOBALCFLAGS) IFLAGS := $(LOCALIFLAGS) $(GLOBALIFLAGS) LFLAGS := $(LOCALLFLAGS) $(GLOBALLFLAGS) SFLAGS := $(LOCALSFLAGS) $(GLOBALSFLAGS) ifdef ARCH DEPENDENCIES := $(ARCH)/$(DEPENDFILE) else DEPENDENCIES := $(DEPENDFILE) endif # Rules $(DEPENDFILE): cp $(MAKEDIR)/DependTmpl $@ @echo "Remember to run $(MAKE) depend!" ifdef ARCH $(ARCH)/%.o: %.c $(CC) -c $(IFLAGS) $(CFLAGS) $< @mv $*.o $@ $(ARCH)/$(DEPENDFILE): $(DEPENDFILE) @-if [ ! -d $(ARCH) ]; then mkdir $(ARCH); fi @echo "Updating $@..." @awk '{ if ($$1 ~ /\.o:/) print "$(ARCH)/"$$0; else print; }' $< > $@ endif # ARCH %.o: %.c $(CC) -c $(IFLAGS) $(CFLAGS) $< # Productions # depend: create dependencies file for thie directory. # lintlib: create a lint library (LINTNAME must be set). # lint: run lint on the srcs (LINTLIBS may be set). .PHONY: depend lintlib lint editin: ci -f -l *.c *.h checkin: ci -f *.c *.h checkout: co -q -f RCS/*.c,v RCS/*.h,v editout: co -q -l RCS/*.c,v RCS/*.h,v depend: @echo "Making depend. The errors can be ignored." @mkmf -f $(DEPENDFILE) 'CFLAGS=$(IFLAGS)' ifeq "$(origin LINTNAME)" "file" LINTLIB := llib-l$(LINTNAME).ln lintlib: $(LINTLIB) $(LINTLIB): $(SRCS) lint -I$(SRCDIR)/h -C$(LINTNAME) $(SRCS) @rm -f $(LIBDIR)/$@ @ln $@ $(LIBDIR)/$@ endif lint: $(SRCS) lint $(LINTFLAGS) $(SRCS) \ $(patsubst %,$(LIBDIR)/llib-l%.ln,$(LINTLIBS)) ### xemp5.1-beta/make/LibMakefile100644 12266 2116 1032 6013430120 14420 0ustar jponexor.PHONY: all saber tags ifdef ARCH XX1 := $(addsuffix $(ARCH)/,$(dir $(LIB))) XX2 := $(notdir $(LIB)) ARCHLIB := $(join $(XX1),$(XX2)) ARCHOBJS := $(addprefix $(ARCH)/,$(OBJS)) all: $(ARCHLIB) $(ARCHLIB): $(ARCHOBJS) /bin/rm -f $(ARCHLIB) $(AR) cq $(ARCHLIB) $(ARCHOBJS) @$(RANLIB) $(ARCHLIB) clean: -rm -f $(ARCHOBJS) $(ARCHLIB) else all: $(LIB) $(LIB): $(OBJS) /bin/rm -f $(LIB) $(AR) cq $(LIB) $(OBJS) @$(RANLIB) $(LIB) clean: -rm -f $(OBJS) $(LIB) endif # ARCH install: saber: %load $(CFLAGS) $(SRCS) $(SFLAGS) xemp5.1-beta/make/Systems/ 40755 12266 2116 0 6043206167 13726 5ustar jponexorxemp5.1-beta/make/Systems/Template100644 12266 2116 364 5334624354 15510 0ustar jponexor# The following architecture-dependent variables may be configured. # Any of them may be excluded if they are not needed. LOCALCFLAGS := $(LOCALCFLAGS) LOCALIFLAGS := $(LOCALIFLAGS) LOCALLFLAGS := $(LOCALLFLAGS) LOCALSFLAGS := $(LOCALSFLAGS) xemp5.1-beta/make/Systems/aix100644 12266 2116 247 5334624356 14520 0ustar jponexor# Flags for AIX 3.1.5. # LOCALCFLAGS := -Daix -Dsys5 $(LOCALCFLAGS) -DNOFLOCK -D_BSD_INCLUDES -D_BSD -D_NO_PROTO -D_NONSTD_TYPES -U__STR__ LIBS := -lbsd $(LIBS) xemp5.1-beta/make/Systems/apollo100644 12266 2116 76 5334624355 15204 0ustar jponexor# Apollo Domain/OS SR10.1 # LOCALCFLAGS := $(LOCALCFLAGS) -g xemp5.1-beta/make/Systems/hpux100644 12266 2116 152 5334624355 14715 0ustar jponexor# HP9000/HP-UX 7.0 # LOCALCFLAGS := $(LOCALCFLAGS) -Dsys5 -DNOFLOCK -O RANLIB := true #GLOBALLFLAGS := -g xemp5.1-beta/make/Systems/irix100644 12266 2116 366 5347612776 14723 0ustar jponexor# Iris Indigo Irix 4.0.5 # LOCALCFLAGS := $(LOCALCFLAGS) -g -O -cckr #LOCALCFLAGS := $(LOCALCFLAGS) -g -O -fsigned-chars -fwritable-strings LOCALIFLAGS := $(LOCALIFLAGS) LOCALLFLAGS := $(LOCALLFLAGS) LOCALSFLAGS := $(LOCALSFLAGS) RANLIB = echo xemp5.1-beta/make/Systems/isi100644 12266 2116 257 5334624354 14522 0ustar jponexor# # ISI 68k 5.1 # no -g because, believe it or not static RCSid's are turned # into externs by the compiler, and cause problems at link time. # LOCALCFLAGS := $(LOCALCFLAGS) xemp5.1-beta/make/Systems/mach2.5100644 12266 2116 57 5334624356 15053 0ustar jponexor# Mach 2.5 # LOCALCFLAGS := $(LOCALCFLAGS) -O xemp5.1-beta/make/Systems/mips-43100644 12266 2116 137 5334624354 15127 0ustar jponexor# MIPS 4.3bsd LOCALCFLAGS := $(LOCALCFLAGS) -G 50 -signed LOCALLFLAGS := $(LOCALLFLAGS) -G 50 xemp5.1-beta/make/Systems/profiled100644 12266 2116 135 5334624353 15534 0ustar jponexor# profiled arguments # LOCALCFLAGS := $(LOCALCFLAGS) -pg LOCALCFLAGS := $(LOCALLFLAGS) -pg xemp5.1-beta/make/Systems/rtpc100644 12266 2116 234 5334624355 14702 0ustar jponexor# PC/RT 135 (AIX 2.2.1) # (no -g because of excessive symbol table size; trust me) # LOCALCFLAGS := -DBSD_INCLUDES -Daix -Dsys5 $(LOCALCFLAGS) -DNOFLOCK -a xemp5.1-beta/make/Systems/sequent100644 12266 2116 620 5334624353 15413 0ustar jponexor# Sequent Symmetry (Dynix 3.0) # TAILLIBS := $(TAILLIBS) /usr/att/lib/libc.a -lresolv LOCALCFLAGS := $(LOCALCFLAGS) -O -DALLYHARBOR -DSHOWPLANE -DDROPANY -DREJECTS -DBMAP -DAUTONAV -DSCUTTLE -DCONVASAT -DORBIT -DABM -DGRIND -DPINPOINTMISSILE -DFALLOUT -DSAIL -DLOWSTARTMOB -DFIXREALMS -DBUYTAX -DNUKEFAILDETONATE -DMISSINGMISSILES LOCALIFLAGS := $(LOCALIFLAGS) -I/usr/include -I/usr/att/usr/include xemp5.1-beta/make/Systems/sequent.fpa100644 12266 2116 313 5334624355 16161 0ustar jponexor# Sequent Symmetry (Dynix 3.0) with weitek FPA # TAILLIBS := $(TAILLIBS) /usr/att/lib/libfpac.a LOCALCFLAGS := $(LOCALCFLAGS) -g LOCALIFLAGS := $(LOCALIFLAGS) -I/usr/include -I/usr/att/usr/include -fpa xemp5.1-beta/make/Systems/sun3cross100644 12266 2116 437 5334624357 15703 0ustar jponexor# Sun 3/XX (SunOs 4.0.3), with floating point coprocessor # (Use -fpa instead of -f68881 if weitek chipset is present) # CC = gcc -b sun3-sunos4.1.1 LOCALCFLAGS := $(LOCALCFLAGS) -g -m68881 LOCALLFLAGS := $(LOCALLFLAGS) -v RANLIB = /usr/local/lib/gcc-lib/sun3-sunos4.1.1/2.3.3/ranlib xemp5.1-beta/make/Systems/sun3gcc100644 12266 2116 246 5334624356 15303 0ustar jponexor# Sun 3/XX (SunOs 4.0.3), with floating point coprocessor # (Use -fpa instead of -f68881 if weitek chipset is present) # LOCALCFLAGS := $(LOCALCFLAGS) -O -g -m68881 xemp5.1-beta/make/Systems/sun4100644 12266 2116 247 5757663700 14635 0ustar jponexor# Sun 4/XX, (SunOs 4.1) # LOCALCFLAGS := $(LOCALCFLAGS) \ -DXEMPINFO='"/nexor/users/jpo/games/empire/xempinfo"' \ -DEMPINFO='"/nexor/users/jpo/games/empire/info"' xemp5.1-beta/make/Systems/ultrix-4.2100644 12266 2116 120 5334624356 15555 0ustar jponexorLOCALCFLAGS := $(LOCALCFLAGS) -G 42 -signed LOCALLFLAGS := $(LOCALLFLAGS) -G 42 xemp5.1-beta/make/Systems/vax-43100644 12266 2116 71 5334624356 14734 0ustar jponexor# 4.3 BSD vax 11/780 # LOCALCFLAGS := $(LOCALCFLAGS) -g xemp5.1-beta/make/Systems/vax-ultrix100644 12266 2116 100 5334624354 16044 0ustar jponexor# DEC Vax 8XXX (Ultrix 3.1) # LOCALCFLAGS := $(LOCALCFLAGS) -g xemp5.1-beta/make/Systems/solaris100644 12266 2116 504 6013573356 15405 0ustar jponexor# Sun 4/XX, (SunOs 4.1) LOCALCFLAGS := $(LOCALCFLAGS) -DSVR4 \ -DXEMPINFO='"/nexor/users/jpo/games/empire/xempinfo"' \ -DEMPINFO='"/nexor/users/jpo/games/empire/info"' \ -I/usr/openwin/include LOCALLFLAGS = -L/usr/openwin/lib -lsocket -lnsl -L/usr/ucblib -lucb -R/usr/lib:/usr/ucblib AR = /usr/ccs/bin/ar RANLIB = true xemp5.1-beta/make/UtilMakefile100644 12266 2116 1406 6024573635 14661 0ustar jponexor# Productions: # ALL: Put here so it will be the default production. # dirs: make in the subdirectories # recursive: recursively execute a command. Call with # $(MAKE) COMMAND=[command to execute] recursive .PHONY: ALL dirs recursive # If the "DIRS" variable is set by the file itself (as opposed to being # passed in the environment from a higher make), then do sub-level makes. ALL: all dirs: ifeq "$(origin DIRS)" "file" @for i in $(DIRS); do \ echo "Making $$i.."; \ $(MAKE) -C $$i && \ echo "done with $$i."; \ done endif recursive: $(COMMAND) ifeq "$(origin DIRS)" "file" @for i in $(DIRS); do \ echo "Making $(COMMAND) in $$i.."; \ $(MAKE) -C $$i recursive && \ echo "done with $$i."; \ done endif ifdef ARCH arch: -mkdir $(ARCH) endif xemp5.1-beta/make/ConfigMakefile.in100644 12266 2116 315 6016301306 15515 0ustar jponexorCC = @CC@ AR = @AR@ RANLIB = @RANLIB@ XINCLUDES := @X_CFLAGS@ XLIBS := @X_LIBS@ @X_EXTRA_LIBS@ CFLAGS = @CFLAGS@ LDFLAGS = @LDFLAGS@ OTHERLIBS = @LIBS@ ifndef XEMP ifndef TCEMP XEMP := xemp endif endif xemp5.1-beta/progs/ 40755 12266 2116 0 6043206170 12466 5ustar jponexorxemp5.1-beta/progs/census.p100644 12266 2116 113 5334624361 14227 0ustar jponexor{ if (not owned) then stop print "Sector " @:7 " is a " des end } xemp5.1-beta/progs/food.p100644 12266 2116 607 5334624361 13666 0ustar jponexor{ if (! owned) then stop if (starvation) then { print "Moving " (food_used - food) " food to " @ "("des")" end move (food_used - food) food from @ to where des = 'w' where des = 'a' } if (starvation) then print "move food FAILED" end } xemp5.1-beta/progs/inc_food.p100644 12266 2116 267 5334624362 14522 0ustar jponexor{ if (! owned) then stop if (t (food) > 0 and warehouse = [3,3]) then { set_threshold food (100 + food) print "threshold in " @ " increased to " t (food) end } } xemp5.1-beta/progs/moveciv.p100644 12266 2116 372 5334624362 14407 0ustar jponexor{ if (not owned) then stop if (civ + epu * cbrate * civ + civ > 999) then { print "moving civs out of " @ end move (civ + civ * epu * cbrate - 999) civ to where civ < 500 where civ < 600 where civ < 700 } } xemp5.1-beta/progs/movemil.p100644 12266 2116 1012 5334624362 14417 0ustar jponexor{ if (not owned) then stop if (! occupied && happy) then stop if (mil < (civ / 18)) then { print "Sector " @ : 9 " needs " round (round (civ / 18) - mil) " militairs." end move round (round (civ / 18) - mil) mil from where (des = 'e' && mob > 100 && mil > 100) where (des = 'e' && mob > 80 && mil > 100) where (des = 'e' && mob > 50 && mil > 100) to @ on_fail abort } } xemp5.1-beta/progs/movemil2.p100644 12266 2116 470 5334624362 14470 0ustar jponexor{ if (not owned) then stop if (! occupied && happy) then stop if (mil < (civ / 18)) then { print "Sector " @ : 9 " needs " round (round (civ / 18) - mil) " militairs." end move round (round (civ / 18) - mil) mil from [8,2] to @ } } xemp5.1-beta/progs/p.p100644 12266 2116 121 5334624361 13165 0ustar jponexor{ if (owned) then print "Sector " current_sector:5 " is a " designation end } xemp5.1-beta/progs/resources.p100644 12266 2116 1422 5334624362 14766 0ustar jponexor{ ; Check resources if (not owned) then stop if (des == 'o') then { if (r (oil) == 0) then print "oil field at " @:7 " empty!" end else if (r (oil) <= 9) then print "oil field at " @:7 " has only " r(oil) " left." end } if (des == 'g') then { if (r (dust) == 0) then print "gold mine at " @:7 " empty!" end else if (r (dust) <= 9) then print "gold mine at " @:7 " has only " r (dust) " left." end } if (des == 'u') then { if (r (ura) == 0) then print "uranium mine at " @:7 "empty!" end else if (r (ura) <= 9) then print "uranium mine at " @:7 " has only " r (ura) " left." end } } xemp5.1-beta/progs/starvation.p100644 12266 2116 443 5334624362 15130 0ustar jponexor{ if (not owned) then stop; if (not starvation) then stop; move ((food_used - food) + 5) food from where des='=' && mob > 100 && food > 200 to @; if (starvation) then print "still starvation in " @ end else print "starvation solved in " @ end } xemp5.1-beta/progs/x.p100644 12266 2116 411 5334624361 13177 0ustar jponexor{ if (! owned || starvation) then stop; if (des != '=') then stop; if (food < 200) then stop; print "Sector " @ " distributing ... " end while (mob > 60 && food > 200) { print "..." end; move 50 food to where owned && starvation; } } xemp5.1-beta/termc/ 40755 12266 2116 0 6043206336 12452 5ustar jponexorxemp5.1-beta/termc/GNUdepend100644 12266 2116 4650 5334624346 14317 0ustar jponexorSRCS= bind.c \ chars.c \ dummy.c \ event.c \ misc.c \ pager.c \ realm.c \ tinit.c \ window.c OBJS= bind.o \ chars.o \ dummy.o \ event.o \ misc.o \ pager.o \ realm.o \ tinit.o \ window.o ### bind.o: /home/mattd/greyhelm/xemp/include/type.h include_tc/tc_type.h \ /home/mattd/greyhelm/xemp/include/main.h \ /home/mattd/greyhelm/xemp/include/proto.h \ /home/mattd/greyhelm/xemp/include/options.h \ /home/mattd/greyhelm/xemp/include/sector.h \ /home/mattd/greyhelm/xemp/include/var.h \ /home/mattd/greyhelm/xemp/include/ship.h dummy.o: /home/mattd/greyhelm/xemp/include/type.h \ /home/mattd/greyhelm/xemp/include/main.h \ /home/mattd/greyhelm/xemp/include/proto.h \ /home/mattd/greyhelm/xemp/include/options.h event.o: /home/mattd/greyhelm/xemp/include/type.h \ /home/mattd/greyhelm/xemp/include/main.h \ /home/mattd/greyhelm/xemp/include/proto.h \ /home/mattd/greyhelm/xemp/include/options.h include_tc/tc_type.h \ include_tc/event.h include_tc/window.h include_tc/char.h \ /home/mattd/greyhelm/xemp/include/sector.h misc.o: /home/mattd/greyhelm/xemp/include/type.h \ /home/mattd/greyhelm/xemp/include/main.h \ /home/mattd/greyhelm/xemp/include/proto.h \ /home/mattd/greyhelm/xemp/include/options.h include_tc/tc_type.h \ include_tc/event.h include_tc/char.h include_tc/window.h pager.o: /home/mattd/greyhelm/xemp/include/main.h \ /home/mattd/greyhelm/xemp/include/type.h \ /home/mattd/greyhelm/xemp/include/proto.h \ /home/mattd/greyhelm/xemp/include/options.h include_tc/tc_type.h \ /home/mattd/greyhelm/xemp/include/func.h include_tc/event.h \ include_tc/char.h include_tc/window.h \ /home/mattd/greyhelm/xemp/include/xrc.h realm.o: /home/mattd/greyhelm/xemp/include/type.h \ /home/mattd/greyhelm/xemp/include/main.h \ /home/mattd/greyhelm/xemp/include/proto.h \ /home/mattd/greyhelm/xemp/include/options.h include_tc/event.h \ /home/mattd/greyhelm/xemp/include/sector.h tinit.o: /home/mattd/greyhelm/xemp/include/type.h \ /home/mattd/greyhelm/xemp/include/main.h \ /home/mattd/greyhelm/xemp/include/proto.h \ /home/mattd/greyhelm/xemp/include/options.h include_tc/tc_type.h \ include_tc/event.h include_tc/char.h \ /home/mattd/greyhelm/xemp/include/func.h window.o: /home/mattd/greyhelm/xemp/include/main.h \ /home/mattd/greyhelm/xemp/include/type.h \ /home/mattd/greyhelm/xemp/include/proto.h \ /home/mattd/greyhelm/xemp/include/options.h include_tc/tc_type.h \ include_tc/char.h include_tc/window.h xemp5.1-beta/termc/GNUmakefile100644 12266 2116 1100 5334624343 14615 0ustar jponexor# The following variables are configurable. #-----------------------------------# LOCALCFLAGS := LOCALIFLAGS := -I./include_tc LOCALLFLAGS := -L../lib/$(ARCH) LOCALSFLAGS := LIBS := -lmisc -lcensus -lclients -lcommands -ldata -ldeity -lnuke -lparse -lupdate -lutil -lmisc -lplane -lship -lland -ltermlib -lm BIN := ../../bin/tcemp #-----------------------------------# # Productions: # depend: create the dependencies # all: make the binary # saber: load things for saber # tags: make tags include ../make/GenMakefile include $(DEPENDENCIES) include ../make/BinMakefile xemp5.1-beta/termc/bind.c100444 12266 2116 17416 6032522773 13662 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/termc/RCS/bind.c,v 5.1 1993/03/14 16:37:12 etienne Exp $ $Date: 1993/03/14 16:37:12 $ $Author: etienne $ $Id: bind.c,v 5.1 1993/03/14 16:37:12 etienne Exp $ $Locker: $ $Log: bind.c,v $ Revision 5.1 1993/03/14 16:37:12 etienne *** empty log message *** * Revision 5.0 93/02/06 09:28:03 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:11:33 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "tc_type.h" #include "main.h" #include "sector.h" #include "var.h" #include "ship.h" #define MAX_BINDINGS 100 typedef enum { OK, OWNED, /* you should own that sector */ OCC, /* occupied sector */ ENEM_NEXT, /* next to enemy sector */ SHIP, /* You should have a current ship (owned) */ SHIPS, /* Should be ships in this sector */ ENEM_SHIP, PLANE } Condition; static int nr_bindings = 0; struct s_funclist { char * name; void (* proc) (); Condition cond; }; struct s_binding { struct s_funclist * fptr; char * args; char ch; }; struct s_funclist flist [] = { { "assault", BindAssault, OK }, { "board", BindBoard, ENEM_SHIP }, { "attack", Attack, ENEM_NEXT }, { "connections", Connections, OK }, { "reconnect", Reconnect, OK }, { "global commands", GlobalCommands, OK }, { "census mode", BindCensusMode, OK }, { "deliver", Deliver, OWNED }, { "designate", BindDesignate, OWNED }, { "distribute", Distribute, OWNED }, { "drop off", BindDropOff, PLANE }, { "distribute utility", UtilDist, OWNED }, { "expression", BindExpression, OK }, { "ferry utility", FerryUtil, OK }, { "info", InfoCommands, OK }, { "fly", BindFly, PLANE }, { "disconnect", Disconnect, OK }, { "announce", Announce, OK }, { "center map", DoCenterMap, OK }, { "news", News, OK }, { "headlines", ShowHeadLines, OK }, { "read", BindRead, OK }, { "change display", ChangeDisplay, OK }, { "goto", GotoSct, OK }, { "explore", Explore, OWNED }, { "explore util", ExploreUtil, OK }, { "build ship", BuildShip, OWNED }, { "navigate", BindNavigate, SHIPS }, { "store data", StoreData, OK }, { "highlight", SetHighlight, OK }, { "quit", DoQuit, OK }, { "move", BindMove, OWNED }, { "reread", BindReRead, OK }, { "raise empire win", RaiseEmpWin, OK }, { "lower empire win", LowerEmpWin, OK }, { "bind key", BindKeys, OK }, { "enlist", BindEnlist, OWNED }, { "send", BindSend, OK }, { "demobilize", BindDemob, OWNED }, { "convert", BindConvert, OCC }, { "bomb", BindBomb, PLANE }, { "run program", MultiProg, OK }, { "shoot", BindShoot, OWNED }, { "multi enlist", MultiEnlist, OK }, { "multi demob", MultiDemob, OK }, { "multi convert", MultiConvert, OK }, { "check", Check, OK }, { "tend", BindTend, SHIP }, { "fast quit", FastQuit, OK }, { "page command", WMPageCommand, OK }, { "sector ferries", ListSectorFerries, OWNED }, { "goto ferry", GotoFerry, OK }, { "nation", ShowNation, OK }, { "normal display", BindNormalDisplay, OK }, { "again", DoAgain, OK }, { "mine", BindMine, SHIP }, /* DEBUG */ { "where", TestWhere, OWNED }, { (char *) 0, (void (*)())0, (Condition) 0 } }; struct s_binding bindings [MAX_BINDINGS]; static char NameToKey (name) char * name; { if (strcmp (name, "Space") == 0) return ' '; else if (strcmp (name, "Tab") == 0) return '\t'; else if (strcmp (name, "Return") == 0) return '\n'; else if (strcmp (name, "Backspace") == 0) return '\b'; return '\0'; } char * AddBindingKey (key, bind) char * key, * bind; { char ch; int nr, i; char * ptri; ch = NameToKey (key); if (ch == '\0') { if (strlen (key) > 2) return "Strange key!"; if (strlen (key) == 2) { if (* key != '^') return "Strange key!"; ch = key [1]; if (ch >= 'a' && ch <= 'z') ch += 'A' - 'a'; if (ch < 'A' || ch > 'Z') return "Strange control key"; ch -= '@'; } else ch = key [0]; } for (nr = 0; nr < nr_bindings; nr ++) if (ch == bindings [nr]. ch) break; if (nr >= MAX_BINDINGS) return "binding table exhausted"; bindings [nr]. ch = ch; ptri = index (bind, '('); if (ptri != (char *) 0) { bindings [nr]. args = Str (ptri); bind = Str (bind); ptri = index (bind, '('); * ptri = '\0'; while (* -- ptri == ' ') * ptri = '\0'; } else { bind = Str (bind); /* just to keep things simple */ bindings [nr]. args = (char *) 0; } for (i = 0; flist [i]. name != (char *) 0; i++) if (strcmp (bind, flist [i]. name) == 0) { bindings [nr]. fptr = & flist [i]; if (nr >= nr_bindings) { nr_bindings ++; return (char *) 0; } else return "Key rebound"; } free (bind); return "No such function"; } void BindKeys (x, y) int x, y; { char * key, * ptr; int i; Strings strings; Pager pager; key = InputAtMessage ("Which key to bind: ", 10, GS_TEXT); if (key == (char *) 0 || interrupt || * key == '\0') { interrupt = False; Message ("Bind key cancelled"); Bell (); return; } strings = InitStrings (); for (i = 0; flist [i]. name != (char *) 0; i++) AddSortStringID (strings, flist [i]. name, i); pager = InitPager (strings, "Which command?"); MapPagerFromTop (pager, map_win, x, y); i = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (i < 0) return; ptr = AddBindingKey (key, flist [i]. name); if (ptr != (char *) 0) { Message (ptr); Bell (); } else Message ("Key bound"); } static bool CheckBinding (cond) Condition cond; { Sector nxt; Neighb neighb; switch (cond) { case OK: return True; case OCC: case OWNED: if (cursct == (Sector) 0) return False; if (! KNOW_ALL (cursct)) { Message ("You don't own that sector !"); Bell (); return False; } if (cond == OCC && s_occ (cursct) != '*') { Message ("Sector not occupied !"); Bell (); return False; } return True; case ENEM_NEXT: if (cursct == (Sector) 0) return False; if (KNOW_ALL (cursct)) { Message ("That's yours !"); Bell (); return False; } if (s_des (cursct) == '.' || s_des (cursct) == 's' || s_des (cursct) == '\\') { Message ("Sector is invulnerable"); Bell (); return False; } InitNeighbours (cursct, & neighb); while (NextNeighbour (& nxt, S_EXIST, neighb)) if (nxt != (Sector) 0 && KNOW_ALL (nxt)) return True; Message ("No owned sectors there"); Bell (); return False; case PLANE: if (s_pla (cursct) == 0) { Message ("There are no planes here !"); Bell (); return False; } return True; case SHIP: if (curship == (Ship) 0) { Message ("No current ship !"); Bell (); return False; } else if (! sh_owned (curship)) { Message ("Hee, you don't own that ship !"); Bell (); return False; } return True; case SHIPS: if (s_shi (cursct) == 0) { Message ("Should be ships in this sector !"); Bell (); return False; } return True; case ENEM_SHIP: if (last_layout != SHIP_MODE) { Message ("Current census ain't that of a ship"); Bell (); return False; } if (sh_owned (curship)) { Message ("That is your ship !"); Bell (); return False; } return True; default: Panic ("CheckBinding", "x/xbind.c", Fmt ("No such condition (%d)", (int) cond)); return False; } } void GlobalKey (ch) char ch; { char buffer [BUFSIZ]; int nr; for (nr = 0; nr < nr_bindings; nr ++) { if (bindings [nr]. ch == ch) { if (! CheckBinding (bindings [nr]. fptr-> cond)) break; (* bindings [nr]. fptr-> proc) ( current_x, current_y, bindings [nr]. args); DrawSector (cursct); Census (); return; } } switch (ch) { case 'Q': DoQuit (); break; case 'B': BindKeys (current_x, current_y); break; } } xemp5.1-beta/termc/chars.c100444 12266 2116 1654 6032522773 14023 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/termc/RCS/chars.c,v 5.1 1993/03/14 16:37:13 etienne Exp $ $Date: 1993/03/14 16:37:13 $ $Author: etienne $ $Id: chars.c,v 5.1 1993/03/14 16:37:13 etienne Exp $ $Locker: $ $Log: chars.c,v $ Revision 5.1 1993/03/14 16:37:13 etienne *** empty log message *** * Revision 5.0 93/02/06 09:28:03 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:11:33 greyhelm * Added RCS headers - Karl Hagen * */ char ch_upper_left = '.'; char ch_upper_right = '.'; char ch_lower_left = '.'; char ch_lower_right = '.'; char ch_hor = '.'; char ch_ver = '.'; char move_chars [] = "hlkjHLKJ"; char button_chars [] = " \t\n"; char scroll_chars [] = "AZSX"; char move_prefix = 'z'; char move_to_map = 'm'; char move_to_empire = 'e'; char move_to_census = 'c'; char move_to_lower_left = 'b'; xemp5.1-beta/termc/include_tc/ 40755 12266 2116 0 5350650473 14570 5ustar jponexorxemp5.1-beta/termc/dummy.c100444 12266 2116 1300 6032522773 14042 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/termc/RCS/dummy.c,v 5.1 1993/03/14 16:37:13 etienne Exp $ $Date: 1993/03/14 16:37:13 $ $Author: etienne $ $Id: dummy.c,v 5.1 1993/03/14 16:37:13 etienne Exp $ $Locker: $ $Log: dummy.c,v $ Revision 5.1 1993/03/14 16:37:13 etienne *** empty log message *** * Revision 5.0 93/02/06 09:28:03 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:11:33 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" void SetDefaultCursor (win, curses_type) WinInfo win; int curses_type; { } void ReverseCursor () { } xemp5.1-beta/termc/event.c100444 12266 2116 23023 6032522773 14056 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/termc/RCS/event.c,v 5.2 1995/09/28 13:40:59 jpo Exp $ $Date: 1995/09/28 13:40:59 $ $Author: jpo $ $Id: event.c,v 5.2 1995/09/28 13:40:59 jpo Exp $ $Locker: $ $Log: event.c,v $ Revision 5.2 1995/09/28 13:40:59 jpo sync * Revision 5.1 93/03/14 16:37:14 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:28:03 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:11:33 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "tc_type.h" #include "event.h" #include "window.h" #include "char.h" #include "sector.h" extern IPixel ** screen_image; extern char intrchar; WinInfo EventWindow (event) Event event; { return event-> win; } void NextEvent (event) Event event; { char ch; char * ptr; int i; bool cont; Refresh (); for (;;) { ShowCursor (); ch = getchar (); HideCursor (); ptr = index (button_chars, ch); if (ptr != (char *) 0) { event-> type = ButtonPress; event-> button = ptr - button_chars; event-> win = screen_image [current_y] [current_x]-> parent; event-> x = current_x - event-> win-> offset_x - event-> win-> si_start_x; event-> y = current_y - event-> win-> offset_y - event-> win-> si_start_y; return; } ptr = index (move_chars, ch); if (ptr != (char *) 0) /* Move cursor */ { i = ptr - move_chars; switch (i) { case CH_LEFT: current_x --; break; case CH_RIGHT: current_x ++; break; case CH_UP: current_y --; break; case CH_DOWN: current_y ++; break; case CH_SH_LEFT: current_x -= 6; break; case CH_SH_RIGHT: current_x += 6; break; case CH_SH_UP: current_y -= 4; break; case CH_SH_DOWN: current_y += 4; break; } if (current_x < 0) current_x += screen_cols; else if (current_x >= screen_cols) current_x -= screen_cols; if (current_y < 0) current_y += screen_rows; else if (current_y >= screen_rows) current_y -= screen_rows; continue; } if (ch == move_prefix) { cont = True; while (cont) { ch = getchar (); if (StandardChar (ch, E_INTR | E_REDRAW)) { if (interrupt) { interrupt = False; cont = False; } continue; } ptr = index (move_chars, ch); if (ptr != (char *) 0) { switch (ptr - move_chars) { case CH_LEFT: ShiftField (- 1, 0); break; case CH_RIGHT: ShiftField (1, 0); break; case CH_UP: ShiftField (0, - 1); break; case CH_DOWN: ShiftField (0, 1); break; } FlushWindow (map_win); Refresh (); cont = False; continue; } if (ch == move_to_map) { current_x = CENSUS_WIDTH + (screen_cols - CENSUS_WIDTH) / 2; current_y = screen_rows / 2; cont = False; continue; } if (ch == move_to_census) { current_x = CENSUS_WIDTH / 2; current_y = screen_rows / 2; cont = False; continue; } if (ch == move_to_empire) { current_x = CENSUS_WIDTH + (screen_cols - CENSUS_WIDTH) / 2; current_y = screen_rows - 2; cont = False; continue; } if (ch == move_to_lower_left) { current_x = 3; current_y = screen_rows - 2; cont = False; continue; } if (ch == ESCAPE) { cont = False; continue; } Bell (); } continue; } event-> type = KeyPress; event-> ch = ch; event-> win = screen_image [current_y][current_x]-> parent; event-> x = current_x - event-> win-> offset_x - event-> win-> si_start_x; event-> y = current_y - event-> win-> offset_y - - event-> win-> si_start_y; return; } } bool StandardEvent (event) Event event; { char * ptr; if (event-> type == KeyPress) { if (event-> ch == CNTR ('L')) { Redraw (); return True; } if (event-> ch == intrchar) { interrupt = True; return True; } #ifdef DEBUG if (event-> ch == '\004') /* ^D: Dump window */ { DumpWindow (event-> win); return True; } #endif /* DEBUG */ /* Scroll window ? */ if (event-> win-> scrollbar) { ptr = index (scroll_chars, event-> ch); if (ptr != (char *) 0) { WinInfo win; int dy; dy = 0; win = event-> win; switch (ptr - scroll_chars) { case CH_SCROLL_1U: dy = -1; break; case CH_SCROLL_1D: dy = 1; break; case CH_SCROLL_5U: dy = -5; break; case CH_SCROLL_5D: dy = 5; break; } win-> wd_start_y += dy; if (win-> wd_start_y > win-> savelines) win-> wd_start_y = win-> savelines; else if (win-> wd_start_y < 0) win-> wd_start_y = 0; DrawScrollBar (win); RefreshWindow (win); return True; } } } return False; } bool StandardChar (ch, which_events) char ch; int which_events; { char * ptr; WinInfo win; int dy; if (which_events & E_REDRAW) { if (ch == CNTR ('L') || ch == CNTR ('R')) { Redraw (); return True; } } if (which_events & E_SCROLL) { ptr = index (scroll_chars, ch); win = screen_image [current_y][current_x]-> parent; if ((ptr != (char *) 0) && win-> scrollbar) { dy = 0; switch (ptr - scroll_chars) { case CH_SCROLL_1U: dy = -1; break; case CH_SCROLL_1D: dy = 1; break; case CH_SCROLL_5U: dy = -5; break; case CH_SCROLL_5D: dy = 5; break; } win-> wd_start_y += dy; if (win-> wd_start_y > win-> savelines) win-> wd_start_y = win-> savelines; else if (win-> wd_start_y < 0) win-> wd_start_y = 0; DrawScrollBar (win); RefreshWindow (win); return True; } } if (which_events & E_INTR) { if (ch == intrchar) { interrupt = True; return True; } } return False; } int CharToButton (ch) char ch; { char * ptr; ptr = index (button_chars, ch); if (ptr != (char *) 0) return ptr - button_chars; return -1; } /* * Using termcap, just wait for a [Return] * or a [Space]. */ void WaitButtonPress () { char ch; do { ch = getchar (); } while (ch != ' ' & ch != '\n'); } Sector SelectSector (button) int * button; { Sector sct; int x, y; sct = (Sector) 0; for (;;) { if (SelectSctCrd (& x, & y, button)) { return World (x, y, S_EXIST); } else return (Sector) 0; } } void CheckRefreshEvents () /* dummy */ { } bool SelectSctCrd (x, y, button) int * x, * y, * button; { EVENT event; for (;;) { NextEvent (& event); if (StandardEvent (& event)) { if (interrupt) { interrupt = False; * x = 0; * y = 0; if (button != (int *) 0) * button = MIDDLE_BUTTON; return False; } continue; } if (event. type == ButtonPress) { if (event. win != map_win) continue; * x = event. x; * y = event. y; if (button != (int *) 0) * button = event. button; if (! ConvertToSctCrd (x, y)) continue; return True; } } } static void MapButton (pevent) Event pevent; { int button; Sector sct; int x, y; button = pevent-> button; x = pevent-> x; y = pevent-> y; if (button == LEFT_BUTTON) { sct = FindSector (x, y); if (sct == (Sector) 0 || NO_INFO (sct)) return; SetCurrent (sct); return; } else if (button == MIDDLE_BUTTON) { GlobalCommands (x, y); return; } else if (button == RIGHT_BUTTON) { sct = FindSector (x, y); if (sct == (Sector) 0 || NO_INFO (sct)) return; if (sct != cursct) { SetCurrent (sct); Census (); Refresh (); } SectorCommands (x, y); return; } } static void EmpireButton (pevent) Event pevent; { if (pevent-> button == LEFT_BUTTON) InputToEmpire (); Census (); } void MainLoop () { EVENT event; WinInfo win; for (;;) { FreeFmts (); NextEvent (& event); /* since interrupt is a standard event nothing will happen * when interrupted at this level */ if (! StandardEvent (& event)) { win = event. win; switch (event. type) { case ButtonPress: if (win == map_win) MapButton (& event); else if (win == empire_win) EmpireButton (& event); else if (win == census_win) { if (event. button == MIDDLE_BUTTON) GlobalCommands (event. x, event. y); else CensusButton (event. x, event. y); } break; case KeyPress: GlobalKey (event. ch); } } interrupt = False; } } bool SelButtonAtWin (win, x, y, button) WinInfo win; int * x, * y, * button; { EVENT event; for (;;) { NextEvent (& event); if (StandardEvent (& event)) { if (interrupt) { interrupt = False; return False; } continue; } switch (event. type) { case ButtonPress: if (event. win != win) return False; if (button != (int *) 0) * button = event. button; if (x != (int *) 0) * x = event. x; if (y != (int *) 0) * y = event. y; return True; } } } void SelectButtonChar (button, ch, x, y, fmt) int * button, * x, * y; char * ch, * fmt; { EVENT event; for (;;) { NextEvent (& event); if (StandardEvent (& event)) { if (interrupt) return; continue; } if (event. type == ButtonPress) { * ch = '\0'; * x = event. x; * y = event. y; if (button != (int *) 0) * button = event. button; return; } if (event. type == KeyPress) { if (CharInFormat (event. ch, fmt)) { * ch = event. ch; return; } } } } xemp5.1-beta/termc/misc.c100444 12266 2116 6610 6032522773 13653 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/termc/RCS/misc.c,v 5.1 1993/03/14 16:37:14 etienne Exp $ $Date: 1993/03/14 16:37:14 $ $Author: etienne $ $Id: misc.c,v 5.1 1993/03/14 16:37:14 etienne Exp $ $Locker: $ $Log: misc.c,v $ Revision 5.1 1993/03/14 16:37:14 etienne *** empty log message *** * Revision 5.0 93/02/06 09:28:03 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:11:33 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "tc_type.h" #include #include "event.h" #include "char.h" #include "window.h" static WinInfo busy_win; /* * Too expensive (imagine working at 1200 baud) */ void BusyCursor () { /* int x; if (! xstarted) return; x = (int) (screen_cols - 48) / 2 + 24; busy_win = OpenWindow (root_win, x, 1, 21, 1, 0, FULL_BOX, 0); PrintB (busy_win, 1, 0, "Reading from server"); Refresh (); HideCursor (); */ } void ResetCursor () { /* if (xstarted & busy_win != (WinInfo) 0) { DestroyWindow (busy_win); busy_win = (WinInfo) 0; } */ } char * GetString (win, x, y, maxlen, form) WinInfo win; int x, y, maxlen; char * form; { extern char erasechar, eraseword, eraseline, intrchar; int len = 0; static char ret [BUFSIZ]; char * ptr; int cont; char ch; char buffer [BUFSIZ]; if (maxlen + x >= win-> si_width) maxlen = win-> si_width - x - 1; cont = True; PrintN (win, x, y, "_"); Refresh (); *ret = '\0'; while (cont) { Refresh (); ch = getchar (); if (ch == intrchar) { * ret = '\0'; interrupt = True; cont = False; break; } else if (ch == REDRAW) { Redraw (); continue; } else if (ch == erasechar) { if (len != 0) { len --; ret [ len ] = '\0'; PrintN (win, x, y, Fmt ("%s_ ", ret)); } } else if (ch == '\n' || ch == ESCAPE) { cont = False; break; } else if (ch == eraseword) { int j; j = len; while (j > 0 && isspace (ret [--j])) ret [j] = '\0'; while (j > 0 && !isspace (ret [--j])) ret [j] = '\0'; if (j > 0) j++; if (j != len) { PrintN (win, x, y, Fmt ("%*s ", maxlen, "")); len = j; } } else if (ch == eraseline) { len = 0; ret [len] = '\0'; PrintN (win, x, y, Fmt ("%*s ", maxlen, "")); } else if (ch == '\007') { ptr = /* CrdStr (sct); */ "10,2"; if (len > 0 && ret [len - 1] != ' ') ret [len ++] = ' '; while (*ptr != '\0') ret [len ++] = *ptr ++; ret [len ++] = ' '; ret [len] = '\0'; } else if (CharInFormat (ch, form) && len < maxlen) { ret [len] = ch; ret [++ len] = '\0'; } if (cont) { PrintN (win, x, y, Fmt ("%s_", ret)); RefreshWindow (win); } } if (interrupt || ch == ESCAPE) { PrintN (win, x, y, Fmt ("%*s ", maxlen, "")); RefreshWindow (win); return (char *) 0; } else { PrintN (win, x, y, Fmt ("%s ", ret)); RefreshWindow (win); return ret; } } void DrawArrow (win, x, y, dir) WinInfo win; int x, y; char dir; { char buf [2]; buf [0] = dir; buf [1] = '\0'; PrintN (win, x, y, buf); } void DrawHorizontal (win, pos) WinInfo win; int pos; { PrintN (win, 0, pos, Fmt ("%*.*s", win-> wd_max_x, win-> wd_max_x, "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=" )); } xemp5.1-beta/termc/pager.c100444 12266 2116 50102 6032522773 14031 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/termc/RCS/pager.c,v 5.2 1995/09/28 13:40:59 jpo Exp $ $Date: 1995/09/28 13:40:59 $ $Author: jpo $ $Id: pager.c,v 5.2 1995/09/28 13:40:59 jpo Exp $ $Locker: $ $Log: pager.c,v $ Revision 5.2 1995/09/28 13:40:59 jpo sync * Revision 5.1 93/03/14 16:37:15 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:28:03 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:11:33 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "tc_type.h" #include "func.h" #include "event.h" #include "func.h" #include "char.h" #include "window.h" #include "xrc.h" #include #include #define MAX_BUTTONS 3 #define MAX_FUNC 6 #define HELP_STRLEN 4 typedef struct s_pager { char * header; Strings strings; int win1_width, win1_height; int win2_width, win2_height; int win2_start_y; int button_start_y; int func_start_y; int nr_lines; bool scrollbar; int scrolllines; WinInfo win1; WinInfo win2; int box; InfoFunc proc; bool buttonsset; char * left_but, * middle_but, * right_but; bool select; bool edit; bool buttons_defined; int buttonIDs [MAX_BUTTONS]; int nr_funcs; int * func_start_x; int func_ids [MAX_FUNC]; char * func_names [MAX_FUNC]; int last_x, last_y; int cols, col_width; } PAGER; Pager InitPager (strings, header) Strings strings; char * header; { Pager new_pager; new_pager = (Pager) doalloc ((unsigned) sizeof (PAGER)); bzero ((char *) new_pager, sizeof (struct s_pager)); new_pager-> strings = strings; new_pager-> header = header; new_pager-> buttonIDs [0] = SELECT; new_pager-> buttonIDs [1] = CANCEL; new_pager-> buttonIDs [2] = CANCELALL; new_pager-> last_x = 0; new_pager-> last_y = 0; return new_pager; } void FreePager (pager) Pager pager; { int i; if (pager-> win2 != (WinInfo) 0) DestroyWindow (pager-> win2); if (pager-> win1 != (WinInfo) 0) DestroyWindow (pager-> win1); for (i = 0; i < pager-> nr_funcs; i++) if (pager-> func_names [i] != (char *) 0) free ((char *) pager-> func_names [i]); if (pager-> buttonsset) { if (pager-> left_but != (char *) 0) free ((char *) pager-> left_but); if (pager-> middle_but != (char *) 0) free ((char *) pager-> middle_but); if (pager-> right_but != (char *) 0) free ((char *) pager-> right_but); } if (pager-> func_start_x != (int *) 0) free ((char *) pager-> func_start_x); free ((char *) pager); } void SetPagerSelect (pager) Pager pager; { pager-> select = True; } void SetPagerButtonIDs (pager, left, middle, right) Pager pager; int left, middle, right; { pager-> buttonIDs [0] = (left == DEFAULTFUNC) ? SELECT : left; pager-> buttonIDs [1] = (middle == DEFAULTFUNC) ? CANCEL : middle; pager-> buttonIDs [2] = (right == DEFAULTFUNC) ? CANCELALL : right; } void SetPagerButtons (pager, left, middle, right) Pager pager; char *left, *middle, *right; { if (right == (char *) 0) { right = middle; middle = (char *) 0; } pager-> left_but = Str (left); if (middle != (char *) 0) pager-> middle_but = Str (middle); pager-> right_but = Str (right); pager-> buttonsset = True; } void AddPagerFunc (pager, name, id) Pager pager; char *name; int id; { pager-> func_names [pager-> nr_funcs] = Str (Fmt ("%s", name)); pager-> func_ids [pager-> nr_funcs ++ ] = id; } void SetInfoOnPager (pager, proc) Pager pager; InfoProc proc; { pager-> proc = proc; } static void ShowPagerFuncs (pager) Pager pager; { int i; if (pager-> nr_funcs > 0) { PrintMarkedN (pager-> win1, 0, pager-> func_start_y, Fmt ("%*s", pager-> win1_width, "")); for (i = 0; i < pager-> nr_funcs; i++) PrintMarkedB (pager-> win1, pager-> func_start_x [i], pager-> func_start_y, pager-> func_names [i]); } } void RemapPager (pager) Pager pager; { int i; bool flag; char * ptr; WinInfo win; win = pager-> win2; i = 0; /* InitStringList (pager-> strings); while ((ptr = GetNextStringFlag (pager-> strings, & flag))!= (char *) 0) */ while ( i < win-> si_height ) { ptr = GiveIthString( pager-> strings, i + win-> wd_start_y); flag = GiveIthFlag( pager-> strings, i + win-> wd_start_y); Print (pager-> win2, 0, i ++, Fmt ("%-*.*s", pager-> win2_width, pager-> win2_width, ptr), flag ? BOLD : NORMAL); } DrawScrollBar (pager-> win2); RefreshWindow (pager-> win2); } void MapPager (pager, win, x, y, fromtop, towm) Pager pager; WinInfo win; int x, y; bool fromtop; bool towm; { int i, j, k, l, m; int min; int width; int id; char * ptr; int oldwidth; if (StringsSize (pager-> strings) == 0) AddString (pager-> strings, "(xemp: empty)"); pager-> win1_width = MaxStringLen (pager-> strings); if (pager-> win1_width > screen_cols - 4) pager-> win1_width = screen_cols - 4; pager-> win2_width = pager-> win1_width; pager-> win2_start_y = 0; pager-> button_start_y = 0; pager-> box = LEFT_BOX | RIGHT_BOX; MakeStringIndex (pager-> strings); if (pager-> proc != NULL) { oldwidth = pager-> win1_width; pager-> win2_width += HELP_STRLEN; pager-> win1_width += HELP_STRLEN; } /* calculate height of window */ pager-> nr_lines = StringsSize (pager-> strings); if (pager-> nr_lines > map_height - 5) { pager-> scrollbar = True; pager-> win2_height = map_height - 5; pager-> scrolllines = pager-> nr_lines - (map_height - 5); pager-> win1_width ++; } else { pager-> win2_height = pager-> nr_lines; pager-> scrollbar = False; pager-> scrolllines = 0; } pager-> win1_height = pager-> win2_height; if (pager-> header != (char *) 0) { pager-> win1_height ++; pager-> win2_start_y ++; pager-> button_start_y ++; } else pager-> box |= UPPER_BOX; if (pager-> buttonsset) { pager-> win2_start_y ++; pager-> win1_height ++; } if (pager-> nr_funcs > 0) { pager-> func_start_y = pager-> win1_height; pager-> win1_height ++; } else pager-> box |= LOWER_BOX; /* * calculate min width */ width = pager-> win2_width; if (pager-> header != (char *) 0) { l = strlen (pager-> header) + 2; if (width < l) width = l; } if (pager-> nr_funcs > 0) { l = 0; for (i = 0; i < pager-> nr_funcs; i++) l += strlen (pager-> func_names [i]); l += (pager-> nr_funcs - 1); /* times 2 */ if (width < l) width = l; } if (pager-> buttonsset) { l = strlen (pager-> right_but) + strlen (pager-> left_but) + 5; if (pager-> middle_but != (char *) 0) l += strlen (pager-> middle_but) + 3; if (width < l) width = l; } pager-> win1_width += (width - pager-> win2_width); pager-> win2_width = width; pager-> win1 = OpenRelToRoot ( win, x, y, pager-> win1_width, pager-> win1_height, pager-> box, 0); pager-> win2 = OpenWindow ( pager-> win1, 0, pager-> win2_start_y, pager-> win2_width, pager-> win2_height, 0, NO_BOX, pager-> scrolllines); /* * draw buttons */ if (pager-> buttonsset) { i = strlen (pager-> left_but); j = strlen (pager-> right_but); l = pager-> win1_width; if (pager-> middle_but == (char *) 0) PrintMarkedN (pager-> win1, 0, pager-> button_start_y, Fmt ("[%s]%*s[%s]", pager-> left_but, l - i - j - 4, "", pager-> right_but)); else { k = l - i - j - 6 - strlen (pager-> middle_but); m = k / 2; PrintMarkedN (pager-> win1, 0, pager-> button_start_y, Fmt ("[%s]%*s[%s]%*s[%s]", pager-> left_but, m, "", pager-> middle_but, k - m, "", pager-> right_but)); } } /* header */ if (pager-> header != (char *) 0) { l = strlen (pager-> header); i = (pager-> win1_width - l) / 2; PrintMarkedN (pager-> win1, 0, 0, Fmt ("%*s%s%*s", i, "", pager-> header, pager-> win1_width - l - i, "")); } if (pager-> nr_funcs > 0) /* set starting coordinates of nr_funcs */ { pager-> func_start_x = (int *) doalloc ( pager-> nr_funcs * sizeof (int)); l = pager-> win1_width; for (i = 0; i < pager-> nr_funcs; i ++) l -= strlen (pager-> func_names [i]); if (pager-> nr_funcs == 1) pager-> func_start_x [0] = (int) (l / 2); else { pager-> func_start_x [0] = 0; m = strlen (pager-> func_names [0]); for (i = 1; i < pager-> nr_funcs; i ++) { j = (int) (l / (pager-> nr_funcs - i)); m += j; l -= j; pager-> func_start_x [i] = m; m += strlen (pager-> func_names [i]); } } } if (pager-> proc != NULL) { /* adjust strings */ InitStringList (pager-> strings); while ((ptr = GetNextStringID (pager-> strings, & id)) != (char *) 0) ChangeString (pager-> strings, id, Fmt ("%-*.*s [?]", pager-> win2_width - HELP_STRLEN, pager-> win2_width - HELP_STRLEN, ptr )); } ShowPagerFuncs (pager); if (fromtop) SetToTop (pager-> win2); else { SetToBot (pager-> win2); pager-> last_y = pager-> win2 -> savelines; } RefreshWindow (pager-> win1); RemapPager (pager); Refresh (); } void MapPagerFromTop (pager, win, x, y) Pager pager; WinInfo win; int x, y; { if (! pager-> edit) MapPager (pager, win, x, y, True, False); } void MapPagerFromBot (pager, win, x, y) Pager pager; WinInfo win; int x, y; { MapPager (pager, win, x, y, False, False); } static int FuncAtBottom (pager, ch) Pager pager; char ch; { int i; char func_ch; if (pager-> nr_funcs == 0) return NOFUNC; if (ch > 'Z' || ch < 'A') return NOFUNC; for (i = 0; i < pager-> nr_funcs; i ++) { func_ch = pager-> func_names [i][0]; if (func_ch >= 'a' && func_ch <= 'z') func_ch = func_ch - 'a' + 'A'; if (func_ch == ch) return pager-> func_ids [i]; } return NOFUNC; } static void SavePagerText (pager) Pager pager; { char * file; Strings stripped; PrintB (pager-> win1, 0, pager-> func_start_y, Fmt ("%*s", pager-> win1_width, "")); PrintMarked (pager-> win1, 0, pager-> func_start_y, "Filename: "); file = GetString (pager-> win1, 10, pager-> func_start_y, 30, GS_TEXT); if (file != (char *) 0 && * file != '\0') { stripped = StripStrings (pager-> strings); /* * XXX: Message: text saved */ (void) WriteStrings (stripped, file); FreeStrings (stripped); } ShowPagerFuncs (pager); RefreshWindow (pager-> win2); Refresh (); } static void ChangeMenuLine (pager, oldx, oldy, newx, newy) Pager pager; int oldx, oldy, newx, newy; { WinInfo win; bool redraw; char * pch; int mode; win = pager-> win2; if (oldx != -1) { pch = GiveIthString( pager-> strings, oldy); mode = GiveIthFlag (pager-> strings, oldy) ? BOLD : NORMAL; Print (win, oldx * pager-> col_width, oldy - win-> wd_start_y, Fmt ("%-*.*s", pager-> col_width, pager-> col_width, & pch [oldx * pager-> col_width]), mode); } /* pch = GiveIthString ( pager-> strings, newy); PrintB (win, newx * pager-> col_width, newy - win-> wd_start_y, Fmt ("%-*.*s", pager-> col_width, pager-> col_width, & pch [newx * pager-> col_width])); */ redraw = False; if (win-> wd_start_y + win-> si_height <= newy) { win-> wd_start_y += win-> si_height / 2; redraw = True; } if (win-> wd_start_y > newy) { win-> wd_start_y -= win-> si_height; redraw = True; } if (redraw) { if (win-> wd_start_y < 0) win-> wd_start_y = 0; else if (win-> wd_start_y > win-> savelines) win-> wd_start_y = win-> savelines; RemapPager (pager); /* RefreshWindow (win); DrawScrollBar (win); */ } pch = GiveIthString ( pager-> strings, newy); PrintB (win, newx * pager-> col_width, newy - win-> wd_start_y, Fmt ("%-*.*s", pager-> col_width, pager-> col_width, & pch [newx * pager-> col_width])); Refresh (); } int PagerMenuFunc (pager, ret, pcols) Pager pager; int * ret, * pcols; { int cx, cy, ny; int cols, col_width; int choice; int button; char ch; col_width = pager-> win2_width; cols = (pcols == (int *) 0) ? 1 : * pcols; MakeStringIndex (pager-> strings); if (cols > 1) { char * ptr1, * ptr2; ptr1 = GiveIthString (pager-> strings, 1); ptr2 = ptr1; ScanWord (& ptr2, (char *) 0); SkipBlank (& ptr2); col_width = ptr2 - ptr1; /* col_width = (col_width + cols - 1) / cols; */ } pager-> cols = cols; pager-> col_width = col_width; cx = pager-> last_x; cy = pager-> last_y; ChangeMenuLine (pager, -1, -1, cx, cy); for (;;) { ch = getchar (); if (StandardChar (ch, E_SCROLL | E_REDRAW)) continue; if (ch == ESCAPE) { * ret = CANCELALL; return; } if (ch == move_chars [CH_UP]) { if (cy == 0) Bell (); else { ChangeMenuLine (pager, cx, cy, cx, cy - 1); cy --; } } if (ch == move_chars [CH_DOWN]) { if (cy == pager-> nr_lines - 1) Bell (); else { ChangeMenuLine (pager, cx, cy, cx, cy + 1); cy ++; } } if (ch == move_chars [CH_SH_UP]) { if (cy == 0) { Bell (); continue; } ny = cy - 5; if (ny < 0) ny = 0; ChangeMenuLine (pager, cx, cy, cx, ny); cy = ny; } if (ch == move_chars [CH_SH_DOWN]) { if (cy == pager-> nr_lines - 1) { Bell (); continue; } ny = cy + 5; if (ny >= pager-> nr_lines) ny = pager-> nr_lines - 1; ChangeMenuLine (pager, cx, cy, cx, ny); cy = ny; } if (ch == move_chars [CH_LEFT]) { if (cx == 0) Bell (); else { ChangeMenuLine (pager, cx, cy, cx - 1, cy); cx --; } } if (ch == move_chars [CH_RIGHT]) { if (cx == cols - 1) Bell (); else { ChangeMenuLine (pager, cx, cy, cx + 1, cy); cx ++; } } if (ch == '?') { if (pager-> proc == NULL) Bell (); else { (* pager-> proc) (10, 10, GiveIthID (pager-> strings, cy)); /* cy * cols + cx));*/ Refresh (); continue; } } if ((choice = FuncAtBottom (pager, ch)) != NOFUNC) { if (choice == WRITEFUNC) { SavePagerText (pager); continue; } else if (choice == READFUNC) { } else if (choice == TOWMFUNC) { Bell (); continue; } pager-> last_x = cx; pager-> last_y = cy; * ret = choice; return -1; } button = CharToButton (ch); if (button != -1) { * ret = pager-> buttonIDs [button]; pager-> last_x = cx; pager-> last_y = cy; if (pcols != (int *) 0) * pcols = cx; return GiveIthID (pager-> strings, cy); } } } void ChangePagerString (pager, id, str) Pager pager; int id; char * str; { if (pager-> proc != NULL) ChangeString (pager-> strings, id, Fmt ("%-*.*s [?]", pager-> win2_width - HELP_STRLEN, pager-> win2_width - HELP_STRLEN, str)); else ChangeString (pager-> strings, id, str); } int PagerMenu (pager) Pager pager; { int func; int i; i = PagerMenuFunc (pager, & func, (int *) 0); if (func != SELECT) return -1; else return i; } void FpDumpPager (fp, pager) FILE * fp; Pager pager; { int i; fprintf (fp, "Header: %s\n", pager-> header ? pager-> header : ""); fprintf (fp, "Win1 size: %dx%d\n", pager-> win1_width, pager-> win1_height); fprintf (fp, "Win2 size: %dx%d\n", pager-> win2_width, pager-> win2_height); fprintf (fp, "Win2 start y: %d\n", pager-> win2_start_y); fprintf (fp, "Button start y: %d\n", pager-> button_start_y); fprintf (fp, "Func start y: %d\n", pager-> func_start_y); fprintf (fp, "Nr lines: %d\n", pager-> nr_lines); fprintf (fp, "Scrollbar: %s\n", pager-> scrollbar ? "Yes" : "No"); if (pager-> scrollbar) fprintf (fp, "Scrolllines: %d\n", pager-> scrolllines); fprintf (fp, "Win 1: 0x%0lx\n", pager-> win1); fprintf (fp, "Win 2: 0x%0lx\n", pager-> win2); fprintf (fp, "Box: 0x%0x\n", pager-> box); if (pager-> buttonsset) fprintf (fp, "Buttons: { \"%s\", %s\"%s\" }\n", pager-> right_but, pager-> middle_but ? Fmt ("\"%s\", ", pager-> middle_but) : "", pager-> right_but); if (pager-> proc) fprintf (fp, "Help procedure set.\n"); fprintf (fp, "Nr functs: %d\n", pager-> nr_funcs); if (pager-> nr_funcs > 0) { char buf [100]; (void) sprintf (buf, "{ "); for (i = 0 ; i < pager-> nr_funcs; i ++) { if (i != 0) strcat (buf, ", "); strcat (buf, Fmt ("%d", pager-> func_start_x [i])); } strcat (buf, " }"); fprintf (fp, "Func start x's %s\n", buf); } if (pager-> select) fprintf (fp, "Select pager"); } void DumpPager (pager) Pager pager; { FILE * fp; fp = fopen ("pager.dump", "w"); if (fp == (FILE *) 0) return; FpDumpPager (fp, pager); } void DumpPagerScreen (pager) Pager pager; { FpDumpPager (stdout, pager); } bool EditPager (pager) Pager pager; { FILE * fp; char * editor; int pid; int status; char * tmp_file; struct stat stat1, stat2; extern struct sgttyb tc_status, save_status; editor = getenv ("EDITOR"); if (editor == (char *) 0) editor = DEFAULT_EDITOR; tmp_file = Fmt ("/tmp/xemp.%d", getpid ()); WriteStrings (pager-> strings, tmp_file); stat (tmp_file, & stat1); pid = fork (); switch (pid) { case -1: Error ("Fork failed"); return; case 0: /* parent */ stty (0, & save_status); execl (editor, editor, tmp_file, (char *) 0); Error ("execl failed"); break; default: (void) wait (& status); stty (0, & tc_status); break; } Redraw (); if (stat (tmp_file, & stat2) == 0) { if (stat1. st_mtime != stat2. st_mtime) { fp = fopen (tmp_file, "r"); FreeStrings (pager-> strings); pager-> strings = ReadStrings (fp); fclose (fp); } unlink (tmp_file); return True; } else return False; } void AddPagerToWMList (pager) Pager pager; { fprintf (stderr, "AddPagerTOWM called\n"); } char * PagerMulti (pager, pfunc) Pager pager; int * pfunc; { char *ptr; static char buf[256]; int col, num; int y; ptr = GiveIdString (pager-> strings, 1); num = 0; while (ScanWord (& ptr, (char *) 0)) num ++; for (;;) { col = num; y = PagerMenuFunc (pager, pfunc, & col); if (* pfunc != SELECT) return (char *) 0; if (y < 0) { * pfunc = CANCELALL; return (char *) 0; } ptr = GiveIdString (pager-> strings, y) + (col * pager-> col_width); if (ptr == (char *) 0 || ! ScanWord (& ptr, buf)) { Error ("Bad Selection ?"); continue; } return buf; } } char * InputPagerLine (pager, y) Pager pager; int y; { char *ptr; Print (pager-> win2, 0, y, Fmt ("%-*s", pager-> win2_width, ""), NORMAL); ptr = GetString (pager-> win2, 0, y, pager-> win2_width - 4, GS_TEXT); return ptr; } int ShowPager (pager) Pager pager; { char ch; int choice; int button; for (;;) { ch = getchar (); if (StandardChar (ch, E_SCROLL | E_REDRAW)) continue; if (ch == ESCAPE) { return CANCELALL; } if ((choice = FuncAtBottom (pager, ch)) != NOFUNC) { if (choice == WRITEFUNC) { SavePagerText (pager); continue; } else if (choice == READFUNC) { } else if (choice == TOWMFUNC) { Bell (); continue; } return choice; } if (ch == '\n') return SELECT; if (ch == ' ') /* space -> down */ { if (AtBottum (pager-> win2) && xrc. space_is_next) return SELECT; ScrollDown (pager-> win2, pager-> win2_height - 2); /* krf */ RemapPager (pager); Refresh(); continue; } if (ch == '\t') { ScrollUp (pager-> win2, pager-> win2_height - 2); /* krf */ RemapPager (pager); Refresh(); continue; } button = CharToButton (ch); if (button != -1) { choice = pager-> buttonIDs [button]; if (choice == SELECT) continue; return choice; } } } void ShowStringsInPager (strings, header) Strings strings; char * header; { Pager pager; pager = InitPager (strings, header); AddPagerFunc (pager, "Write", WRITEFUNC); AddPagerFunc (pager, "Cancel", CANCELFUNC); MapPager (pager, map_win, 2, 2); (void) ShowPager (pager); FreePager (pager); } void ShowPagerLine (pager, y) Pager pager; int y; { if (GiveIthFlag (pager-> strings, y)) PrintB (pager-> win2, 0, y, Fmt ("%-*s", pager-> win2_width, GiveIthString (pager-> strings, y))); else PrintN (pager-> win2, 0, y, Fmt ("%-*s", pager-> win2_width, GiveIthString (pager-> strings, y))); FlushWindow (pager-> win2); } void SetEditPager (pager) Pager pager; { pager-> edit = True; } Strings PagerStrings (pager) Pager pager; { return pager-> strings; } xemp5.1-beta/termc/realm.c100444 12266 2116 7245 6032522773 14025 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/termc/RCS/realm.c,v 5.1 1993/03/14 16:37:16 etienne Exp $ $Date: 1993/03/14 16:37:16 $ $Author: etienne $ $Id: realm.c,v 5.1 1993/03/14 16:37:16 etienne Exp $ $Locker: $ $Log: realm.c,v $ Revision 5.1 1993/03/14 16:37:16 etienne *** empty log message *** * Revision 5.0 93/02/06 09:28:03 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:11:33 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "event.h" #include "sector.h" char * MySelRealm () { int x, y, button; EVENT event; bool ul_set, lr_set, free_sct1, free_sct2; Sector sct1, sct2, sct; char * ret; ul_set = False; lr_set = False; while (! ul_set && ! lr_set) { if (! ul_set) { Message ("Select upper left sector of realm"); MesBut ("View", "Cancel", "Set"); } while (! ul_set) { NextEvent (& event); x = event. x; y = event. y; if (interrupt) { interrupt = False; Message ("Set realm aborted"); MesClearBut (); Bell (); return (char *) 0; } switch (event. type) { case ButtonPress: switch (event. button) { case MIDDLE_BUTTON: Message ("Setting realm cancelled"); MesClearBut (); return (char *) 0; case LEFT_BUTTON: if (! ConvertToSctCrd (& x, & y)) { Bell (); continue; } sct = World (x, y, S_EXIST); if (sct != (Sector) 0 && ! NO_INFO (sct)) CensusSct (sct); continue; case RIGHT_BUTTON: if (! ConvertToSctCrd (& x, & y)) { Bell (); continue; } sct = World (x, y, S_EXIST); if (sct == (Sector) 0) { sct = World (x, y, S_DESIG); if (sct == (Sector) 0) { Bell (); continue; } free_sct1 = True; set_des (sct, ' '); } else free_sct1 = False; sct1 = sct; MarkSector (sct1); ul_set = True; continue; } break; default: break; } } if (! lr_set) { Message ("Select lower right sector"); MesBut ("View", "Cancel", "Select"); } while (! lr_set && ul_set) { NextEvent (& event); x = event. x; y = event. y; if (interrupt) { interrupt = False; UnmarkSector (sct1); if (free_sct1) FreeSector (sct1); Message ("Set realm aborted"); MesClearBut (); Bell (); return (char *) 0; } switch (event. type) { case ButtonPress: switch (event. button) { case MIDDLE_BUTTON: UnmarkSector (sct1); if (free_sct1) FreeSector (sct1); ul_set = False; continue; case LEFT_BUTTON: if (! ConvertToSctCrd (& x, & y)) { Bell (); continue; } sct = World (x, y, S_EXIST); if (sct != (Sector) 0 && ! NO_INFO (sct)) CensusSct (sct); continue; case RIGHT_BUTTON: if (! ConvertToSctCrd (& x, & y)) { Bell (); continue; } free_sct2 = False; sct = World (x, y, S_EXIST); if (sct == (Sector) 0) { free_sct2 = True; sct = World (x, y, S_DESIG); if (sct == (Sector) 0) { Bell (); continue; } set_des (sct, ' '); } sct2 = sct; MarkSector (sct2); lr_set = True; } break; default: break; } } } ret = Fmt ("%d:%d,%d:%d", s_xcd (sct1), s_xcd (sct2), s_ycd (sct1), s_ycd (sct2)); UnmarkSector (sct1); UnmarkSector (sct2); MesClearBut (); if (free_sct1) FreeSector (sct1); if (free_sct2) FreeSector (sct2); return ret; } xemp5.1-beta/termc/tinit.c100444 12266 2116 7645 6032522774 14061 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/termc/RCS/tinit.c,v 5.1 1993/03/14 16:37:16 etienne Exp $ $Date: 1993/03/14 16:37:16 $ $Author: etienne $ $Id: tinit.c,v 5.1 1993/03/14 16:37:16 etienne Exp $ $Locker: $ $Log: tinit.c,v $ Revision 5.1 1993/03/14 16:37:16 etienne *** empty log message *** * Revision 5.0 93/02/06 09:28:03 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:11:33 greyhelm * Added RCS headers - Karl Hagen * */ #include "type.h" #include "main.h" #include "tc_type.h" #include "event.h" #include "char.h" #include "func.h" #ifdef BSD #include #else /* SYS5 */ #include #endif char * CL; /* clear screen */ static char * HO; /* cursor home */ char * CM; /* cursor movement */ static char * SO; /* begin reverse video */ static char * SE; /* end reverse video */ char * US; /* start underscore mode */ char * UE; /* end underscore mode */ static char * IS; /* terminal initialise string */ static char * MH; /* start half intensity */ static char * ME; /* end half intensity */ static char bp [1024]; static char strbuffer [1024]; static char * bufptr; bool am_flag, ms_flag; char * HLS; /* start highlight */ char * HLE; /* end highlight */ bool interrupt; int map_height = 22; bool xstarted; int screen_cols, screen_rows; static void TGetStr (ptr, id, must) char ** ptr; char * id; bool must; { char * tgetstr (); * ptr = tgetstr (id, & bufptr); if (* ptr == (char *) 0 && must) { fprintf (stderr, "Couldn't find the \"%s\" capibility.\n", id); exit (1); } } void InitTermcap (hs1, he1, hs2, he2) char * hs1, * he1, * hs2, * he2; { char * term, * getenv (); term = getenv ("TERM"); if (term == (char *) 0) { fprintf (stderr, "Environment variable \"TERM\" not set.\n"); exit (1); } switch (tgetent (bp, term)) { case -1: fprintf (stderr, "Can't open termcap file (%s).\n", getenv ("TERMCAP") == (char *) 0 ? "/etc/termcap": getenv ("TERMCAP")); exit (1); case 0: fprintf (stderr, "Can't find termcap entry for \"%s\".\n", term); exit (1); default: break; } bufptr = strbuffer; TGetStr (& CL, "cl", True); /* XX False-> True XX */ TGetStr (& HO, "ho", False); TGetStr (& CM, "cm", True); am_flag = tgetflag ("am"); ms_flag = tgetflag ("ms"); if (hs1 == (char *) 0) { TGetStr (& SO, "so", True); TGetStr (& SE, "se", True); TGetStr (& US, "us", True); TGetStr (& UE, "ue", True); TGetStr (& IS, "is", False); TGetStr (& MH, "mh", False); TGetStr (& ME, "me", False); HLS = MH; HLE = ME; if (HLS == (char *) 0) { HLS = SO; HLE = SE; if (HLS == (char *) 0) { HLS = US; HLE = UE; fprintf (stderr, "Can't find half bright/reverse"); fprintf (stderr, " mode, using underscore.\n"); } } } else { TGetStr (& SO, hs1, True); TGetStr (& SE, he1, True); TGetStr (& US, hs2, True); TGetStr (& UE, he2, True); HLS=SO; HLE=SE; } /* * Determine the size of the window. */ { struct winsize wininf; if (ioctl (0, TIOCGWINSZ, & wininf) != 0) { fprintf (stderr, "ioctl (TIOCGWINSZ) failed.\n"); perror ("ioctl"); exit (1); } screen_cols = wininf. ws_col; screen_rows = wininf. ws_row; if (screen_cols == 0 || screen_rows == 0) { char buf [100]; /* fprintf (stderr, "Cols & rows are not correctly set. "); fprintf (stderr, "Use: 'stty cols # rows #'\n"); exit (1); */ printf ("Screen size [24x80]: "); if (gets (buf) == (char *) 0) exit (0); if (buf [0] == '\0') { screen_cols = 80; screen_rows = 24; } else { if (sscanf (buf, "%d %*[x,] %d", & screen_rows, & screen_cols) != 2) { printf ("input error.\n"); exit (1); } } } } xstarted = True; } int put (ch) char ch; { putchar (ch); } WinInfo census_win; FILE * error_fp; WinInfo root_win; xemp5.1-beta/termc/window.c100644 12266 2116 53710 6041647437 14261 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/termc/RCS/window.c,v 5.2 1995/09/28 13:40:59 jpo Exp jpo $ $Date: 1995/09/28 13:40:59 $ $Author: jpo $ $Id: window.c,v 5.2 1995/09/28 13:40:59 jpo Exp jpo $ $Locker: jpo $ $Log: window.c,v $ Revision 5.2 1995/09/28 13:40:59 jpo sync * Revision 5.1 93/03/14 16:37:17 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:28:03 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:11:33 greyhelm * Added RCS headers - Karl Hagen * */ #include "main.h" #include "tc_type.h" #include "char.h" #include "window.h" #include #ifdef BSD #include #else #include #endif /* * GLOBAL VARIABLES */ IPixel ** screen_image; SPixel ** real_screen; WinInfo root_window; static void SetBetween (i, min, max) int * i; int min, max; { if (* i < min) * i = min; else if (* i > max) * i = max - 1; } /* * FUNCTIONS */ char ** AllocScreen (width, height, size) int width, height, size; { char ** scr; int x; scr = (char **) doalloc ((unsigned) width * sizeof (char *)); for (x = 0; x < width; x ++) scr [x] = (char *) doalloc (height * size); return scr; } bool AtBottum (win) WinInfo win; { return ! win-> scrollbar || win-> wd_start_y == win-> savelines; } void ScrollDown (win, lines) WinInfo win; int lines; { if (! win-> scrollbar) return; win-> wd_start_y += lines; if (win-> wd_start_y > win-> savelines) win-> wd_start_y = win-> savelines; RefreshWindow (win); DrawScrollBar (win); Refresh (); } void ScrollUp (win, lines) WinInfo win; int lines; { if (! win-> scrollbar) return; win-> wd_start_y -= lines; if (win-> wd_start_y < 0) win-> wd_start_y = 0; RefreshWindow (win); DrawScrollBar (win); Refresh (); } void DrawScrollBar (win) WinInfo win; { int start, end; int y; if (! win-> scrollbar) return; start = (int) (win-> mult * win-> wd_start_y + 0.5); end = (int) (win-> mult * (win-> wd_start_y + win-> si_height) + 0.5); for (y = 0; y < win-> si_height; y ++) SiPut (win, win-> si_scroll_x, y + win-> si_start_y, ':', False, False); if (end >= win-> si_height) end --; for (y = start; y <= end; y ++) SiPut (win, win-> si_scroll_x, y + win-> si_start_y, '|', False, False); } WinInfo OpenBaseWindow (x, y, width, height) int x, y; int width, height; { WinInfo base; base = OpenWindow ((WinInfo) 0, 0, 0, width, height, 0, NO_BOX, 0); return base; } WinInfo OpenWindow (parent, x, y, width, height, base, box, savelines) WinInfo parent; int x, y, width, height; int base, box; { WinInfo newwin; int xp, yp; int dx, dy; int ex, ey; int sx; HideCursor (); newwin = (WinInfo) doalloc ((unsigned) sizeof (WININFO)); newwin-> parent = parent; newwin-> box = box; newwin-> savelines = savelines; newwin-> si_max_x = width; newwin-> si_max_y = height; newwin-> si_height = height; newwin-> si_width = width; newwin-> wd_max_x = width; newwin-> wd_max_y = height + savelines; newwin-> si_start_x = 0; newwin-> si_start_y = 0; if (parent == (WinInfo) 0) { newwin-> offset_x = x; newwin-> offset_y = y; } else { /* * Perhaps we should leave out the start(x,y) */ newwin-> offset_x = parent-> offset_x + x + parent-> si_start_x; newwin-> offset_y = parent-> offset_y + y + parent-> si_start_y; } if (LEFT_BORDER (box)) { newwin-> si_max_x ++; newwin-> si_start_x ++; } if (UPPER_BORDER (box)) { newwin-> si_max_y ++; newwin-> si_start_y ++; } if (RIGHT_BORDER (box)) newwin-> si_max_x ++; if (LOWER_BORDER (box)) newwin-> si_max_y ++; if (savelines > 0) { newwin-> scrollbar = True; newwin-> si_scroll_x = newwin-> si_start_x; newwin-> si_start_x ++; newwin-> si_max_x ++; newwin-> mult = (double) height / (double) (savelines + height); } else newwin-> scrollbar = False; newwin-> wd_start_y = 0; /* * Do not let the window fall of the screen */ if (newwin-> si_max_x + newwin-> offset_x >= screen_cols) newwin-> offset_x = screen_cols - newwin-> si_max_x; if (newwin-> si_max_y + newwin-> offset_y >= screen_rows) newwin-> offset_y = screen_rows - newwin-> si_max_y; newwin-> wd_pixels = (SPixel **) AllocScreen (newwin-> wd_max_y, newwin-> wd_max_x, sizeof (SPixel)); newwin-> si_pixels = (WPixel **) AllocScreen (newwin-> si_max_y, newwin-> si_max_x, sizeof (WPixel)); /* Allocate space for wd_pixels */ for (x = 0; x < newwin-> wd_max_x; x ++) for (y = 0; y < newwin-> wd_max_y; y ++) newwin-> wd_pixels [y][x] = (SPixel) doalloc ((unsigned) sizeof (SPIXEL)); /* * Overlay window. */ for (x = 0; x < newwin-> si_max_x; x ++) for (y = 0; y < newwin-> si_max_y; y ++) { WPixel new_pixel; IPixel pixel; pixel = screen_image [y + newwin-> offset_y] [x + newwin-> offset_x]; new_pixel = (WPixel) doalloc ((unsigned) sizeof (WPIXEL)); newwin-> si_pixels [y][x] = new_pixel; new_pixel-> above = (WPixel) 0; new_pixel-> parent = newwin; if (pixel-> pixel_info != (WPixel) 0) pixel-> pixel_info-> above = new_pixel; new_pixel-> under = pixel-> pixel_info; pixel-> pixel_info = new_pixel; pixel-> parent = newwin; } /* * Draw Box */ if (UPPER_BORDER (box)) for (x = 0; x < newwin-> si_max_x; x ++) SiPut (newwin, x, 0, ' ', True, False); if (LOWER_BORDER (box)) for (x = 0; x < newwin-> si_max_x; x ++) SiPut (newwin, x, newwin-> si_max_y - 1, ' ', True, False); if (LEFT_BORDER (box)) for (y = 0; y < newwin-> si_max_y; y ++) SiPut (newwin, 0, y, ' ', True, False); if (RIGHT_BORDER (box)) for (y = 0; y < newwin-> si_max_y; y ++) SiPut (newwin, newwin-> si_max_x - 1, y, ' ', True, False); ClearWindow (newwin); DrawScrollBar (newwin); RefreshWindow (newwin); return newwin; } struct sgttyb save_status; struct sgttyb tc_status; void Bell () { putc ('\007', stdout); fflush (stdout); } void InitTermc (hs1, he1, hs2, he2) char * hs1, * he1, * hs2, * he2; { int x, y; #ifdef BSD if (gtty (0, & save_status) != 0) perror ("gtty"); if (gtty (0, & tc_status) != 0) perror ("gtty"); #else ioctl (0, TIOCGETP, & tc_status); ioctl (0, TIOCGETP, & save_status); #endif InitTermcap (hs1, he1, hs2, he2); tc_status. sg_flags &= ~ ECHO; tc_status. sg_flags |= CBREAK; #ifdef BSD if (stty (0, & tc_status) != 0) perror ("stty"); #else if (ioctl (0, TIOCSETP, & tc_status) < 0) perror ("ioctl"); #endif signal (SIGINT, SIG_IGN); real_screen = (SPixel **) AllocScreen (screen_rows, screen_cols, sizeof (SPixel)); /* Clear screen */ tputs (CL, 1, put); for (x = 0; x < screen_cols; x ++) for (y = 0; y < screen_rows; y ++) { real_screen [y][x] = (SPixel) doalloc (sizeof (SPIXEL)); real_screen [y][x]-> cont = ' '; real_screen [y][x]-> reversed = False; real_screen [y][x]-> underlined = False; } screen_image = (IPixel **) AllocScreen (screen_rows, screen_cols, sizeof (IPixel)); for (x = 0; x < screen_cols; x ++) for (y = 0; y < screen_rows; y ++) { screen_image [y][x] = (IPixel) doalloc (sizeof (IPIXEL)); screen_image [y][x]-> pixel_info = (WPixel) 0; screen_image [y][x]-> parent = (WinInfo) 0; } } int last_x = -1; int last_y = -1; void SiPut (win, x, y, ch, reversed, underlined) WinInfo win; int x, y; char ch; bool reversed, underlined; { if (x < 0 || x >= win-> si_max_x || y < 0 || y >= win-> si_max_y) return; win-> si_pixels [y][x]-> cont = ch; win-> si_pixels [y][x]-> reversed = reversed; win-> si_pixels [y][x]-> underlined = underlined; } void WdPut (win, x, y, ch, reversed, underlined) WinInfo win; int x, y; char ch; bool reversed, underlined; { if (x < 0 || x >= win-> wd_max_x || y < 0 || y >= win-> wd_max_y) return; win-> wd_pixels [y][x]-> cont = ch; win-> wd_pixels [y][x]-> reversed = reversed; win-> wd_pixels [y][x]-> underlined = underlined; } /* * Print writes on wd_pixels, then calls RefreshWindow * to copy it into si_pixels */ void Print (win, x, y, str, mode) WinInfo win; int x, y; char * str; int mode; { int i; for (i = 0; * str != '\0'; str ++, i++) WdPut (win, x + i, win-> wd_start_y + y, * str, False, mode == BOLD); RefreshWindowPart (win, x, x + i, y, y + 1); } void PrintN (win, x, y, str) WinInfo win; int x, y; const char * str; { Print (win, x, y, str, NORMAL); } void PrintB (win, x, y, str) WinInfo win; int x, y; char * str; { Print (win, x, y, str, BOLD); } void PrintMarked (win, x, y, str, mode) WinInfo win; int x, y; char * str; int mode; { int i; for (i = 0; * str != '\0'; str ++, i++) WdPut (win, x + i, win-> wd_start_y + y, * str, True, mode == BOLD); RefreshWindowPart (win, x, x + i, y, y + 1); } void PrintMarkedN (win, x, y, str) WinInfo win; int x, y; char * str; { PrintMarked (win, x, y, str, NORMAL); } void PrintMarkedB (win, x, y, str) WinInfo win; int x, y; char * str; { PrintMarked (win, x, y, str, BOLD); } void Pause () { char ch; Refresh (); do { ch = getchar (); } while (ch != CNTR ('C') && ch != ' ' && ch != '\n'); } static bool underl_on = False; static bool reverse_on = False; /* * Make real_screen look like screen_image */ void Refresh () { register int x, y; SPixel spix; WPixel wpix; char buf [BUFSIZ]; int len, sx, sy; bool change, set_cursor; bool same_char, same_mode, change_mode; int last_x; extern bool am_flag, ms_flag; len = 0; /* * All screen pixels must be allocated. */ for (y = 0; y < screen_rows; y ++) { last_x = (y == screen_rows - 1 && am_flag) ? screen_cols - 1 : screen_cols; for (x = 0; x < last_x; x ++) { spix = real_screen [y][x]; wpix = screen_image [y][x]-> pixel_info; same_char = spix-> cont == wpix-> cont; same_mode = (spix-> reversed == wpix-> reversed) && (spix-> underlined == wpix-> underlined); if (same_char && same_mode) /* No changes */ { if (len != 0) { buf [len] = '\0'; fputs (buf, stdout); len = 0; } continue; } change_mode = (wpix-> reversed != reverse_on) || (wpix-> underlined != underl_on); if (len == 0) /* nothing buffered yet */ { if (change_mode) SetMode (wpix-> reversed, wpix-> underlined); if (! ms_flag) SetMode (False, False); tputs (tgoto (CM, x, y), 1, put); if (! ms_flag) SetMode (wpix-> reversed, wpix-> underlined); buf [len ++] = wpix-> cont; continue; } if (change_mode) { buf [len] = '\0'; fputs (buf, stdout); len = 0; SetMode (wpix-> reversed, wpix-> underlined); } buf [len ++] = wpix-> cont; continue; } if (len == 0) continue; buf [len] = '\0'; fputs (buf, stdout); len = 0; } for (y = 0; y < screen_rows; y ++) for (x = 0; x < screen_cols; x ++) { spix = real_screen [y][x]; wpix = screen_image [y][x]-> pixel_info; spix-> cont = wpix-> cont; spix-> reversed = wpix-> reversed; spix-> underlined = wpix-> underlined; } SetMode (False, False); CursorUp (); fflush (stdout); } /* * rewritten (911029) * * Clear wd_pixels */ void ClearWindow (win) WinInfo win; { int x, y; int sx; for (x = 0; x < win-> wd_max_x; x ++) for (y = 0; y < win-> wd_max_y; y ++) WdPut (win, x, y, ' ', False, False); RefreshWindow (win); } int current_x = 10; int current_y = 10; static bool cursor_visible = False; void CursorUp () { tputs (tgoto (CM, screen_cols - 1, 0), 1, put); } /* * Turning one mode of, results often in disabling all * output modes. */ void SetMode (reverse, underl) bool reverse, underl; { if (underl == underl_on && reverse == reverse_on) return; if (underl && reverse) { if (! underl_on) { tputs (US, 1, put); underl_on = True; } if (! reverse_on) { tputs (HLS, 1, put); reverse_on = True; } return; } if (! underl && ! reverse) { if (underl_on) { tputs (UE, 1, put); underl_on = False; } if (reverse_on) { tputs (HLE, 1, put); reverse_on = False; } return; } if (! reverse && reverse_on) { tputs (HLE, 1, put); reverse_on = False; } if (! underl && underl_on) { tputs (UE, 1, put); underl_on = False; } if (reverse) { reverse_on = True; tputs (HLS, 1, put); } if (underl) { underl_on = True; tputs (US, 1, put); } } void ShowCursor () { SPixel si_pixel; if (! cursor_visible) { si_pixel = real_screen [current_y][current_x]; SetMode (! si_pixel-> reversed, si_pixel-> underlined); tputs (tgoto (CM, current_x, current_y), 1, put); putchar (si_pixel-> cont); cursor_visible = True; CursorUp (); fflush (stdout); } } void HideCursor () { SPixel si_pixel; if (cursor_visible) { si_pixel = real_screen [current_y][current_x]; SetMode (si_pixel-> reversed, si_pixel-> underlined); cursor_visible = False; tputs (tgoto (CM, current_x, current_y), 1, put); putchar (si_pixel-> cont); CursorUp (); fflush (stdout); } } void DestroyWindow (win) WinInfo win; { int x, y, ox, oy; WPixel wpixel; ox = win-> offset_x; oy = win-> offset_y; for (y = 0; y < win-> si_max_y; y ++) for (x = 0; x < win-> si_max_x; x ++) { wpixel = win-> si_pixels [y][x]; screen_image [y + oy][x + ox]-> pixel_info = wpixel-> under; if (wpixel-> under != (WPixel) 0) { wpixel-> under-> above = (WPixel) 0; screen_image [y + oy][x + ox]-> parent = wpixel-> under-> parent; } else screen_image [y + oy][x + ox]-> parent = (WinInfo) 0; } for (x = 0; x < win-> si_max_x; x ++) for (y = 0; y < win-> si_max_y; y ++) (void) free ((char *) win-> si_pixels [y][x]); for (y = 0; y < win-> si_max_y; y ++) free ((char *) win-> si_pixels [y]); free ((char *) win-> si_pixels); for (x = 0; x < win-> wd_max_x; x ++) for (y = 0; y < win-> wd_max_y; y ++) (void) free ((char *) win-> wd_pixels [y][x]); for (y = 0; y < win-> wd_max_y; y ++) free ((char *) win-> wd_pixels [y]); free ((char *) win-> wd_pixels); (void) free ((char *) win); } WinInfo FindWindow (x, y) { return screen_image [y][x]-> parent; } void Redraw () { int x, y; /* Clear screen */ tputs (CL, 1, put); fflush (stdout); for (x = 0; x < screen_cols; x ++) for (y = 0; y < screen_rows; y ++) { real_screen [y][x]-> cont = ' '; real_screen [y][x]-> reversed = False; real_screen [y][x]-> underlined = False; } Refresh (); } /* * Dump window to "window.dump" */ void DumpLine (fp, length) FILE * fp; int length; { while (length -- > 0) putc ('*', fp); putc ('\n', fp); } void DumpWindow (win) WinInfo win; { int x, y; FILE * fp; bool reversed, underlined; fp = fopen ("window.dump", "w"); if (fp == (FILE *) 0) return; fprintf (fp, "Window dump:\n\n"); fprintf (fp, "Part 1:\tsavelines= %d\n", win-> savelines); fprintf (fp, "\tscrollbar= %s\n", win-> scrollbar ? "True" : "False"); fprintf (fp, "\tmult= %.2f\n", win-> mult); fprintf (fp, "\tbox= 0x%02d", win-> box); fprintf (fp, "\toffset= (%d,%d)\n", win-> offset_x, win-> offset_y); fprintf (fp, "\tparent= 0x%ld\n", (long) win-> parent); fprintf (fp, "Part2:\tsi_max= (%d,%d)\n", win-> si_max_x, win-> si_max_y); fprintf (fp, "\tsi_start= (%d,%d)\n", win-> si_start_x, win-> si_start_y); fprintf (fp, "\tsi_size= (%dx%d)\n", win-> si_width, win-> si_height); fprintf (fp, "\tscroll_x= %d\n", win-> si_scroll_x); reversed = False; underlined = False; DumpLine (fp, win-> si_max_x + 2); for (y = 0; y < win-> si_max_y; y ++) { WPixel pix; putc ('*', fp); for (x = 0; x < win-> si_max_x; x ++) { pix = win-> si_pixels [y][x]; if (pix-> reversed != reversed) { if (reversed) fputs (HLE, fp); else fputs (HLS, fp); reversed = ! reversed; } if (pix-> underlined != underlined) { if (underlined) fputs (UE, fp); else fputs (US, fp); underlined = ! underlined; } putc (pix-> cont, fp); } if (reversed) { reversed = False; fputs (HLE, fp); } if (underlined) { underlined = False; fputs (UE, fp); } putc ('*', fp); putc ('\n', fp); } DumpLine (fp, win-> si_max_x + 2); fprintf (fp, "Part 3:\twd_max= (%d,%d)\n", win-> wd_max_x, win-> wd_max_y); fprintf (fp, "\twd_start_y= %d\n\n", win-> wd_start_y); reversed = False; underlined = False; DumpLine (fp, win-> wd_max_x + 2); for (y = 0; y < win-> wd_max_y; y ++) { SPixel pix; putc ('*', fp); for (x = 0; x < win-> wd_max_x; x ++) { pix = win-> wd_pixels [y][x]; if (pix-> reversed != reversed) { if (reversed) fputs (HLE, fp); else fputs (HLS, fp); reversed = ! reversed; } if (pix-> underlined != underlined) { if (underlined) fputs (UE, fp); else fputs (US, fp); underlined = ! underlined; } putc (pix-> cont, fp); } if (reversed) { reversed = False; fputs (HLE, fp); } if (underlined) { underlined = False; fputs (UE, fp); } putc ('*', fp); putc ('\n', fp); } DumpLine (fp, win-> wd_max_x + 2); /* * Message ("Window dumped in window.dump"); */ fclose (fp); } /* * Copies the contens of wd_pixels to si_pixels */ void RefreshWindowPart (win, sx, ex, sy, ey) WinInfo win; int sx, ex, sy, ey; { int x, y; WPixel si_pixel; SPixel wd_pixel; SetBetween (& sx, 0, win-> si_max_x); SetBetween (& ex, 0, win-> si_max_x); SetBetween (& sy, 0, win-> si_max_y - win-> si_start_y); SetBetween (& ey, 0, win-> si_max_y - win-> si_start_y); for (y = sy; y < ey; y ++) for (x = sx; x < ex; x ++) { si_pixel = win-> si_pixels [y + win-> si_start_y] [x + win-> si_start_x]; wd_pixel = win-> wd_pixels [y + win-> wd_start_y] [x]; si_pixel-> cont = wd_pixel-> cont; si_pixel-> reversed = wd_pixel-> reversed; si_pixel-> underlined = wd_pixel-> underlined; } } void RefreshWindow (win) WinInfo win; { RefreshWindowPart (win, 0, win-> si_width, 0, win-> si_height); } void Scroll (win, lines) WinInfo win; int lines; { int y, x; int size; /* if (! win-> scrollbar) return; */ /* * Set window at end of data */ if (win-> wd_start_y != win-> savelines) { win-> wd_start_y = win-> savelines; DrawScrollBar (win); } /* size = win-> wd_max_x * sizeof (WPIXEL); */ for (y = lines; y < win-> wd_max_y; y ++) for (x = 0; x < win-> wd_max_x; x ++) { win-> wd_pixels [y - lines][x]-> cont = win-> wd_pixels [y][x]-> cont; win-> wd_pixels [y - lines][x]-> reversed = win-> wd_pixels [y][x]-> reversed; win-> wd_pixels [y - lines][x]-> underlined = win-> wd_pixels [y][x]-> underlined; } /* bcopy ((char *) win-> wd_pixels [y], (char *) win-> wd_pixels [y - lines], size); */ /* for (y = win-> wd_max_y - lines + 1; y < win-> wd_max_y; y ++) */ for (y = win-> wd_max_y - lines; y < win-> wd_max_y; y ++) for (x = 0; x < win-> wd_max_x; x ++) { win-> wd_pixels [y] [x]-> cont = ' '; win-> wd_pixels [y] [x]-> reversed = False; win-> wd_pixels [y] [x]-> underlined = False; } RefreshWindow (win); } WinInfo OpenRelToRoot (win, x, y, width, height, box, savelines) WinInfo win; int x, y, width, height, savelines; int box; { return OpenWindow (root_win, x + win-> offset_x, y + win-> offset_y, width, height, 0, box, savelines); } void FlushWindow (win) WinInfo win; { RefreshWindow (win); } void SetToBot (win) WinInfo win; { win-> wd_start_y = win-> savelines; } void SetToTop (win) WinInfo win; { win-> wd_start_y = 0; } void ClearLine (win, y) WinInfo win; int y; { PrintN (win, 0, y, Fmt ("%*s", win-> wd_max_x, "")); } void FlashWindow (win) WinInfo win; { RefreshWindow (win); } void RaiseWindow (win) WinInfo win; { int x, y; WPixel sip; IPixel si; for (x = 0; x < win-> si_max_x; x ++) for (y = 0; y < win-> si_max_y; y ++) { sip = win-> si_pixels [y][x]; if (sip-> above == (WPixel) 0) continue; si = screen_image [y + win-> offset_y] [x + win-> offset_x]; si-> pixel_info-> above = sip; sip-> under-> above = sip-> above; sip-> above-> under = sip-> under; sip-> under = si-> pixel_info; sip-> above = (WPixel) 0; si-> parent = win; si-> pixel_info = sip; } Refresh (); } void LowerWindow (win) WinInfo win; { int x, y; WPixel sip, rip; IPixel si; for (x = 0; x < win-> si_max_x; x ++) for (y = 0; y < win-> si_max_y; y ++) { sip = win-> si_pixels [y][x]; si = screen_image [y + win-> offset_y] [x + win-> offset_x]; rip = root_win-> si_pixels [y + win-> offset_y] [x + win-> offset_x]; if (sip-> above != (WPixel) 0) sip-> above-> under = sip-> under; else { si-> pixel_info = sip-> under; si-> parent = sip-> under-> parent; } sip-> under-> above = sip-> above; sip-> above = rip-> above; if (rip-> above == (WPixel) 0) { si-> pixel_info = sip; si-> parent = win; } else rip-> above-> under = sip; rip-> above = sip; sip-> under = rip; } Refresh (); } void LowerAll () { LowerWindow (empire_win); LowerWindow (map_win); LowerWindow (census_win); LowerWindow (mes_win); } void RaiseAll () { RaiseWindow (empire_win); RaiseWindow (map_win); RaiseWindow (census_win); RaiseWindow (mes_win); } void RaiseEmpWin () { RaiseWindow (empire_win); } void LowerEmpWin () { LowerWindow (empire_win); } void QuitTermc () { int fd; tputs (UE, 1, put); tputs (HLE, 1, put); tputs (CL, 1, put); fflush (stdout); fd = open ("/dev/tty", 1); if (fd < 0) { perror ("open"); return; } #ifdef BSD if (stty (fd, & save_status) != 0) perror ("stty"); #else if (ioctl (fd, TIOCSETP, & save_status) < 0) perror ("ioctl"); #endif /* BSD */ } WinInfo OpenEmpireWindow (win, inc_y, inc_width, inc_height, savelines, widthp, heightp) WinInfo win; int inc_y, inc_width, inc_height; int savelines; int *widthp, *heightp; { WinInfo w; *heightp = EMPIRE_HEIGHT + 1; *widthp = screen_cols - CENSUS_WIDTH - 1; w = OpenWindow (win, CENSUS_WIDTH + 1, EMPIRE_STARTY, *widthp, *heightp, 0, UPPER_BOX, savelines); return w; } xemp5.1-beta/utils/ 40755 12266 2116 0 6043206172 12476 5ustar jponexorxemp5.1-beta/utils/Do100744 12266 2116 2344 5334624331 13067 0ustar jponexor#!/bin/sh prog=`basename $0` [ $# -eq 0 ] && { echo "usage: ${prog} [-] command" echo " execute \`command' on the sourcefiles" echo echo "flag -t means: tcemp files only" echo " -x means: xemp files only" echo echo "or ${prog} [-] - word" echo " grep \`word' from the sourcefiles and edit those files." echo echo "flag -w means: words only (surrounded by \\< and \\>)" echo echo "or ${prog} -s" echo " set the envirenment variables: CALL, X_CALL & TC_CALL" exit } wd=`pwd` [ ! `basename ${wd}` = xemp ] && cd ${XEMPDIR-${HOME}/xemp} case x$1 in x-t) shift com=tcdo ;; x-x) shift com=xdo ;; x*) com=do ;; esac [ x$1 = x-s ] && { COMMAND="echo -n \${FILES} >> .setenv" export COMMAND echo -n "CALL='" > .setenv make do echo "'" >> .setenv echo -n "X_CALL='" >> .setenv make xdo echo "'" >> .setenv echo -n "TC_CALL='" >> .setenv make tcdo echo "'" >> .setenv echo "export CALL X_CALL TC_CALL" >> .setenv echo "Now type: . .setenv" exit } COMMAND="$* \${FILES}" case x$1 in x-w) shift COMMAND="vi '+/\\<$1\\>' \`grep -w -l '$1' \${FILES}\`" ;; x-g) shift COMMAND="vi '+/$1' \`grep -l '$1' \${FILES}\`" ;; *) ;; esac export COMMAND exec make ${com} xemp5.1-beta/utils/emp100744 12266 2116 257 5334624331 13267 0ustar jponexor#!/bin/sh EMPIREPORT=1617 EMPIREHOST=kappl export EMPIREPORT EMPIREHOST country=${1-POGO} passwd=${2-peter} /home/student1/hjvissc/ksu/bin/emp_client ${country} ${passwd} xemp5.1-beta/utils/fvi100744 12266 2116 50 5334624331 13241 0ustar jponexor#!/bin/sh WORD=$1 export WORD make gvi xemp5.1-beta/utils/ln2tmp100744 12266 2116 702 5334624332 13716 0ustar jponexor#!/bin/sh # # links all object files to the tmp-directory DEFDIR=/tmp echo -n "Link to which directory: " read tmp echo "Creating .setenv (using Do)" Do -s . .setenv for file in ${CALL} do dir=`dirname ${file}` ofile=${dir}/`basename ${file} .c`.o [ ! -d ${tmp}/${dir} ] && { echo mkdir ${tmp}/${dir} mkdir ${tmp}/${dir} || { echo mkdir failed exit } } echo ln -s ${tmp}/${ofile} ${ofile} ln -s ${tmp}/${ofile} ${ofile} done xemp5.1-beta/utils/newgame100744 12266 2116 3431 5334624331 14146 0ustar jponexor#!/bin/sh file=${HOME}/.xemprc if test ! -f ${file} then echo `basename $0`": Cannot access ${file}" exit fi if test ! -w ${file} then echo `basename $0`": Cannot write ${file}" exit fi echo "Setting up a new game for xemp & tcemp" echo echo -n "How do you want to call this game: " read gamename [ X${gamename} = X ] && exit echo echo -n "Host: " read host [ X${host} = X ] && exit echo -n "Port [1617]: " read port [ X${port} = X ] && port=1617 echo -n "Country: " read country [ X${country} = X ] && exit echo -n "Passwd: " read passwd [ X${passwd} = X ] && exit echo -n "Worldsize: " read wsize [ X${wsize} = X ] && exit echo -n "Savedir [~]: " read savedir [ ! X${savedir} = X ] && savedir=`echo ${savedir} | sed -e "s-~-${HOME}-"` echo -n "Savefile [.${gamename}]: " read savefile [ X${savefile} = X ] && savefile=.${gamename} grep "Coun (${gamename})" ${file} > /dev/null if test $? -eq 0 then echo echo "You already have an entry in your .xemprc" echo -n "Delete this entry [y]: " read ans if test X${ans} = X -o X${ans} = Xy -o X${ans} = Xyes then echo -n "Deleting ... " sed -e "/Coun (${gamename})/,/# end country ${gamename}/d" < \ ${file} > /tmp/newgame.$$ mv /tmp/newgame.$$ ${file} echo done else echo echo "New game not added" echo "Bye" fi fi echo "Coun (${gamename}) Host= ${host}" >> ${file} echo "Coun (${gamename}) Port= ${port}" >> ${file} echo "Coun (${gamename}) Country= ${country}" >> ${file} echo "Coun (${gamename}) Player= ${passwd}" >> ${file} echo "Coun (${gamename}) Worldsize= ${wsize}" >> ${file} echo "Coun (${gamename}) Savefile= ${savefile}" >> ${file} if test ! X${savedir} = X then echo "Coun (${gamename} Savedir= ${savedir}" >> ${file} fi echo "# end country ${gamename} [do not delete this line]" >> ${file} echo echo "Game added" xemp5.1-beta/utils/show100744 12266 2116 3027 5334624332 13505 0ustar jponexor#!/bin/sh TABLE= INFODIR=${XEMPDIR-${HOME}/xemp}/info.t [ $# -eq 0 ] && { echo "usage: $0 [-m] [-t] [-] files" echo "where -m create the macro-files" echo " -t create a table of contents" echo " -x xtroff" echo " -v vi (no control / pages)" exit } [ x$1 = x-m ] && { shift cwd=`pwd` cd ${INFODIR} echo -n "more.xxx + all.mac -> more.mac " cat more.xxx all.mac > more.mac echo "[Done]" echo -n "doc.xxx + all.mac -> doc.mac " cat doc.xxx all.mac > doc.mac echo "[Done]" echo -n "troff.xxx + all.mac -> troff.mac " cat troff.xxx all.mac > troff.mac echo "[Done]" cd $cwd [ x$1 = x ] && exit } [ x$1 = x-t ] && { TABLE=" ${INFODIR}/index.T" shift } case x$1 in x-x) shift xtroff -command "tbl $* | troff -ms \ ${INFODIR}/troff.mac - ${TABLE}" ;; x-d) shift echo "Please specify the printer command." echo "Example: tbl ${files} | troff -ms -Tp4p | dip -Tp4p" echo -n "tbl ${files} | troff -ms " read command eval 'tbl $* | troff -ms '"${INFODIR}/troff.mac"${command} exit ;; x-v) shift # A simple sed script to convert the control # characters used by colcrt tbl $* | nroff -ms ${INFODIR}/doc.mac - ${TABLE} | sed -e "/8/s/_/-/g" \ -e "s/|8|/|/" \ -e "s/9 //" \ -e "s/_\(.\)/\1/g" \ -e "s/|7\(.*\)/77|7\1\\ /" \ -e "s/8//" | colcrt - > /tmp/show.$$ vi /tmp/show.$$ ;; x*) tbl $* | nroff -ms ${INFODIR}/more.mac - ${TABLE} | col -hp | more ;; esac xemp5.1-beta/x/ 40755 12266 2116 0 6043206336 11607 5ustar jponexorxemp5.1-beta/x/GNUdepend100644 12266 2116 10654 6015617336 13473 0ustar jponexorSRCS= icons.c \ pager.c \ realm.c \ xbind.c \ xevents.c \ xicons.c \ xinit.c \ xmisc.c \ xwindow.c OBJS= icons.o \ pager.o \ realm.o \ xbind.o \ xevents.o \ xicons.o \ xinit.o \ xmisc.o \ xwindow.o ### pager.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ include_x/xextern.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/func.h realm.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ include_x/xextern.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h xbind.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ include_x/xextern.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/var.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/ship.h xevents.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ include_x/xextern.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/census.h xicons.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ include_x/xextern.h icons/arrows.h icons/distr.h icons/hjv.h \ icons/map.h icons/menu.h icons/scroll.h icons/busy.h icons/icon.h \ icons/smiley.h xinit.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h xmisc.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ include_x/xextern.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/nation.h xwindow.o: /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/type.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/config.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/prototype.h \ include_x/xextern.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/main.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/xemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/tcemp.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/options.h \ /a/victor/nexor/user4/jpo/xemp/xemp5.0/include/sector.h \ include_x/xemp_icon.h xemp5.1-beta/x/GNUmakefile100644 12266 2116 1564 6034226156 13766 0ustar jponexor# The following variables are configurable. #-----------------------------------# LOCALCFLAGS := LOCALIFLAGS := -I./include_x -I./icons LOCALLFLAGS := -L/usr/lib/X11 LOCALSFLAGS := -s TOPDIR = .. LIBDIR := $(TOPDIR)/lib LIBS := $(LIBDIR)/libmisc.a \ $(LIBDIR)/libcensus.a \ $(LIBDIR)/libclients.a \ $(LIBDIR)/libcommands.a \ $(LIBDIR)/libdata.a \ $(LIBDIR)/libdeity.a \ $(LIBDIR)/libnuke.a \ $(LIBDIR)/libparse.a \ $(LIBDIR)/libupdate.a \ $(LIBDIR)/libutil.a \ $(LIBDIR)/libmisc.a \ $(LIBDIR)/libplane.a \ $(LIBDIR)/libship.a \ $(LIBDIR)/libland.a \ $(LIBDIR)/libregex.a \ -lX11 -lm BIN := $(TOPDIR)/$(ARCH)/xemp #-----------------------------------# # Productions: # depend: create the dependencies # all: make the binary # saber: load things for saber # tags: make tags include $(TOPDIR)/make/GenMakefile include $(DEPENDENCIES) include $(TOPDIR)/make/BinMakefile xemp5.1-beta/x/icons/ 40755 12266 2116 0 6043206177 12725 5ustar jponexorxemp5.1-beta/x/icons/arrows.h100644 12266 2116 2221 5351124442 14500 0ustar jponexor/* $Author: etienne $ $Date: 93/03/14 16:36:44 $ $Header: /usr/local/src/et/work/xemp5.0/x/icons/RCS/arrows.h,v 5.1 93/03/14 16:36:44 etienne Exp Locker: etienne $ $Id: arrows.h,v 5.1 93/03/14 16:36:44 etienne Exp Locker: etienne $ $Locker: etienne $ $Log: arrows.h,v $ * Revision 5.1 93/03/14 16:36:44 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:26:57 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 03:43:35 greyhelm * Add RCS logging - Karl Hagen * */ #define arrows_width 24 #define arrows_height 24 #define arrows_x_hot 18 #define arrows_y_hot 5 static char arrows_bits[] = { 0x00, 0x00, 0x00, 0x20, 0x00, 0x00, 0x60, 0x00, 0x00, 0xe0, 0x00, 0x00, 0xff, 0x01, 0x00, 0xff, 0x03, 0x00, 0xff, 0x01, 0x00, 0xe0, 0x00, 0x00, 0x60, 0x00, 0x00, 0x20, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}; xemp5.1-beta/x/icons/busy.h100644 12266 2116 5517 5351124442 14160 0ustar jponexor/* $Author: etienne $ $Date: 93/03/14 16:36:45 $ $Header: /usr/local/src/et/work/xemp5.0/x/icons/RCS/busy.h,v 5.1 93/03/14 16:36:45 etienne Exp Locker: etienne $ $Id: busy.h,v 5.1 93/03/14 16:36:45 etienne Exp Locker: etienne $ $Locker: etienne $ $Log: busy.h,v $ * Revision 5.1 93/03/14 16:36:45 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:26:57 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 03:43:35 greyhelm * Add RCS logging - Karl Hagen * */ #define busy_width 50 #define busy_height 50 #define busy_x_hot 25 #define busy_y_hot 25 static char busy_bits[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x44, 0x12, 0x00, 0x00, 0x00, 0x00, 0x00, 0x48, 0x22, 0x00, 0x00, 0x00, 0x00, 0x00, 0x24, 0x14, 0x00, 0x00, 0x00, 0x00, 0x00, 0x48, 0x22, 0x00, 0x00, 0x00, 0x00, 0x00, 0x48, 0x14, 0x00, 0x00, 0x00, 0x00, 0x00, 0x24, 0x14, 0x00, 0x00, 0x00, 0x00, 0x00, 0x44, 0x22, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x7f, 0x00, 0x00, 0x00, 0x00, 0x80, 0x01, 0xc0, 0x00, 0x00, 0x00, 0x00, 0x80, 0x01, 0xc0, 0x00, 0x00, 0x00, 0x00, 0x80, 0xff, 0xff, 0x00, 0x00, 0x00, 0x00, 0x80, 0xff, 0xff, 0x00, 0x00, 0x00, 0x00, 0x80, 0x01, 0xc0, 0x03, 0x00, 0x00, 0x00, 0x80, 0x01, 0xc0, 0x07, 0x00, 0x00, 0x00, 0x80, 0x01, 0xc0, 0x04, 0x00, 0x00, 0x00, 0x80, 0x01, 0xc0, 0x04, 0x00, 0x00, 0x00, 0x80, 0x01, 0xc0, 0x07, 0x00, 0x00, 0x00, 0x80, 0x01, 0xc0, 0x03, 0x00, 0x00, 0x00, 0x80, 0x01, 0xc0, 0x00, 0x00, 0x00, 0x00, 0xf8, 0x01, 0xc0, 0x1f, 0x00, 0x00, 0x00, 0xfc, 0x01, 0xc0, 0x3f, 0x00, 0x00, 0x00, 0x8f, 0x01, 0xc0, 0x70, 0x00, 0x00, 0x00, 0x83, 0xff, 0xff, 0x60, 0x00, 0x00, 0x80, 0x01, 0xff, 0x7f, 0x60, 0x00, 0x00, 0x80, 0x01, 0x00, 0x00, 0x70, 0x00, 0x00, 0x00, 0x07, 0x00, 0x00, 0x38, 0x00, 0x00, 0x00, 0x1e, 0x00, 0x00, 0x1e, 0x00, 0x00, 0x00, 0xfc, 0xff, 0xff, 0x0f, 0x00, 0x00, 0x00, 0xf0, 0xff, 0xff, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}; xemp5.1-beta/x/icons/distr.h100644 12266 2116 1620 5351124442 14312 0ustar jponexor/* $Author: etienne $ $Date: 93/03/14 16:36:46 $ $Header: /usr/local/src/et/work/xemp5.0/x/icons/RCS/distr.h,v 5.1 93/03/14 16:36:46 etienne Exp Locker: etienne $ $Id: distr.h,v 5.1 93/03/14 16:36:46 etienne Exp Locker: etienne $ $Locker: etienne $ $Log: distr.h,v $ * Revision 5.1 93/03/14 16:36:46 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:26:57 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 03:43:35 greyhelm * Add RCS logging - Karl Hagen * */ #define distr_width 16 #define distr_height 16 #define distr_x_hot 8 #define distr_y_hot 8 static char distr_bits[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf0, 0x1f, 0x30, 0x18, 0x50, 0x14, 0x90, 0x13, 0x90, 0x12, 0x90, 0x13, 0x50, 0x14, 0x30, 0x18, 0xf0, 0x1f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}; xemp5.1-beta/x/icons/hjv.h100644 12266 2116 1600 5351124443 13753 0ustar jponexor/* $Author: etienne $ $Date: 93/03/14 16:36:46 $ $Header: /usr/local/src/et/work/xemp5.0/x/icons/RCS/hjv.h,v 5.1 93/03/14 16:36:46 etienne Exp Locker: etienne $ $Id: hjv.h,v 5.1 93/03/14 16:36:46 etienne Exp Locker: etienne $ $Locker: etienne $ $Log: hjv.h,v $ * Revision 5.1 93/03/14 16:36:46 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:26:57 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 03:43:35 greyhelm * Add RCS logging - Karl Hagen * */ #define hjv_width 16 #define hjv_height 16 #define hjv_x_hot 6 #define hjv_y_hot 5 static char hjv_bits[] = { 0x00, 0x00, 0x00, 0x00, 0xcc, 0x0c, 0xcc, 0x0c, 0xfc, 0x06, 0xfc, 0x03, 0xcc, 0x03, 0xcc, 0x00, 0xe0, 0x00, 0x60, 0x00, 0x38, 0x00, 0x3c, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}; xemp5.1-beta/x/icons/icon.h100644 12266 2116 2666 5351124443 14131 0ustar jponexor/* $Author: etienne $ $Date: 93/03/14 16:36:47 $ $Header: /usr/local/src/et/work/xemp5.0/x/icons/RCS/icon.h,v 5.1 93/03/14 16:36:47 etienne Exp Locker: etienne $ $Id: icon.h,v 5.1 93/03/14 16:36:47 etienne Exp Locker: etienne $ $Locker: etienne $ $Log: icon.h,v $ * Revision 5.1 93/03/14 16:36:47 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:26:57 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 03:43:35 greyhelm * Add RCS logging - Karl Hagen * */ #define icon_width 32 #define icon_height 32 static char icon_bits[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x06, 0x80, 0x01, 0x00, 0x0e, 0xc0, 0x01, 0x00, 0x1c, 0xe0, 0x00, 0x00, 0x38, 0x70, 0x00, 0x00, 0x70, 0x38, 0x00, 0x00, 0xe0, 0x1c, 0x00, 0x00, 0xc0, 0x0f, 0x27, 0x32, 0x80, 0x07, 0x61, 0x53, 0x00, 0x07, 0xa3, 0x32, 0x80, 0x0f, 0x21, 0x12, 0xc0, 0x1d, 0x27, 0x12, 0xe0, 0x38, 0x00, 0x00, 0x70, 0x70, 0x00, 0x00, 0x38, 0xe0, 0x00, 0x00, 0x1c, 0xc0, 0x01, 0x00, 0x0e, 0x80, 0x03, 0x00, 0x06, 0x00, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}; xemp5.1-beta/x/icons/map.h100644 12266 2116 2173 5351124443 13747 0ustar jponexor/* $Author: etienne $ $Date: 93/03/14 16:36:48 $ $Header: /usr/local/src/et/work/xemp5.0/x/icons/RCS/map.h,v 5.1 93/03/14 16:36:48 etienne Exp Locker: etienne $ $Id: map.h,v 5.1 93/03/14 16:36:48 etienne Exp Locker: etienne $ $Locker: etienne $ $Log: map.h,v $ * Revision 5.1 93/03/14 16:36:48 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:26:57 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 03:43:35 greyhelm * Add RCS logging - Karl Hagen * */ #define map_width 24 #define map_height 24 #define map_x_hot 11 #define map_y_hot 11 static char map_bits[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x1c, 0x00, 0x00, 0x3e, 0x00, 0x00, 0x7f, 0x00, 0x00, 0x7f, 0x00, 0x00, 0x7f, 0x00, 0x00, 0x3e, 0x00, 0x00, 0x1c, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}; xemp5.1-beta/x/icons/menu.h100644 12266 2116 1754 5351124443 14142 0ustar jponexor/* $Author: etienne $ $Date: 93/03/14 16:36:49 $ $Header: /usr/local/src/et/work/xemp5.0/x/icons/RCS/menu.h,v 5.1 93/03/14 16:36:49 etienne Exp Locker: etienne $ $Id: menu.h,v 5.1 93/03/14 16:36:49 etienne Exp Locker: etienne $ $Locker: etienne $ $Log: menu.h,v $ * Revision 5.1 93/03/14 16:36:49 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:26:57 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 03:43:35 greyhelm * Add RCS logging - Karl Hagen * */ #define menu_width 24 #define menu_height 16 #define menu_x_hot 10 #define menu_y_hot 6 static char menu_bits[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0xff, 0x00, 0x10, 0x80, 0x00, 0x10, 0xf0, 0x00, 0x90, 0x1f, 0x00, 0x10, 0x08, 0x00, 0x90, 0x0f, 0x00, 0x20, 0x04, 0x00, 0xc0, 0x07, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}; xemp5.1-beta/x/icons/scroll.h100644 12266 2116 2202 5351124443 14461 0ustar jponexor/* $Author: etienne $ $Date: 93/03/14 16:36:50 $ $Header: /usr/local/src/et/work/xemp5.0/x/icons/RCS/scroll.h,v 5.1 93/03/14 16:36:50 etienne Exp Locker: etienne $ $Id: scroll.h,v 5.1 93/03/14 16:36:50 etienne Exp Locker: etienne $ $Locker: etienne $ $Log: scroll.h,v $ * Revision 5.1 93/03/14 16:36:50 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:26:57 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 03:43:35 greyhelm * Add RCS logging - Karl Hagen * */ #define scroll_width 16 #define scroll_height 16 #define scroll_x_hot 7 #define scroll_y_hot 7 static char scroll_bits[] = { 0x00, 0x00, 0x80, 0x00, 0x40, 0x01, 0x20, 0x02, 0x50, 0x05, 0x40, 0x01, 0x00, 0x00, 0x80, 0x00, 0x40, 0x01, 0x40, 0x01, 0x50, 0x05, 0x20, 0x02, 0x40, 0x01, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00}; static char scroll_mask[] = { 0x80, 0x00, 0xc0, 0x01, 0xe0, 0x03, 0xf0, 0x07, 0xf8, 0x0f, 0xf0, 0x07, 0xe0, 0x03, 0xe0, 0x03, 0xe0, 0x03, 0xf0, 0x07, 0xf8, 0x0f, 0xf0, 0x07, 0xe0, 0x03, 0xc0, 0x01, 0x80, 0x00, 0x00, 0x00}; xemp5.1-beta/x/icons/smiley.h100644 12266 2116 1630 5351124444 14472 0ustar jponexor/* $Author: etienne $ $Date: 93/03/14 16:36:51 $ $Header: /usr/local/src/et/work/xemp5.0/x/icons/RCS/smiley.h,v 5.1 93/03/14 16:36:51 etienne Exp Locker: etienne $ $Id: smiley.h,v 5.1 93/03/14 16:36:51 etienne Exp Locker: etienne $ $Locker: etienne $ $Log: smiley.h,v $ * Revision 5.1 93/03/14 16:36:51 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:26:57 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 03:43:35 greyhelm * Add RCS logging - Karl Hagen * */ #define smiley_width 16 #define smiley_height 16 #define smiley_x_hot 8 #define smiley_y_hot 8 static char smiley_bits[] = { 0x00, 0x00, 0xc0, 0x07, 0xf0, 0x1f, 0x38, 0x38, 0x0c, 0x60, 0x4c, 0x62, 0x66, 0xc6, 0x06, 0xc0, 0x06, 0xc0, 0x26, 0xc8, 0x66, 0xcc, 0xcc, 0x67, 0x8c, 0x63, 0x38, 0x38, 0xf0, 0x1f, 0xc0, 0x07}; xemp5.1-beta/x/icons.c100444 12266 2116 1057 6023773047 13172 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/x/RCS/icons.c,v 5.1 1993/03/14 16:35:40 etienne Exp $ $Date: 1993/03/14 16:35:40 $ $Author: etienne $ $Id: icons.c,v 5.1 1993/03/14 16:35:40 etienne Exp $ $Locker: $ $Log: icons.c,v $ Revision 5.1 1993/03/14 16:35:40 etienne *** empty log message *** * Revision 5.0 93/02/06 09:26:31 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:00:52 greyhelm * Add RCS logging - Karl Hagen * */ xemp5.1-beta/x/include_x/ 40755 12266 2116 0 6043206200 13547 5ustar jponexorxemp5.1-beta/x/include_x/xemp_icon.h100444 12266 2116 7437 6023773110 16016 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/x/include_x/RCS/xemp_icon.h,v 5.1 1993/03/14 16:37:00 etienne Exp $ $Date: 1993/03/14 16:37:00 $ $Author: etienne $ $Id: xemp_icon.h,v 5.1 1993/03/14 16:37:00 etienne Exp $ $Locker: $ $Log: xemp_icon.h,v $ Revision 5.1 1993/03/14 16:37:00 etienne *** empty log message *** * Revision 5.0 93/02/06 09:27:19 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 03:52:01 greyhelm * Add RCS logging - Karl Hagen * */ #define xemp_icon_width 64 #define xemp_icon_height 64 static char xemp_icon_bits[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x40, 0x40, 0x40, 0x40, 0x40, 0x40, 0x40, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x00, 0x04, 0x04, 0x04, 0x0a, 0x04, 0x04, 0x04, 0x04, 0x00, 0x00, 0x00, 0xc0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0xe0, 0x00, 0x00, 0x00, 0x00, 0x40, 0x40, 0xe0, 0x40, 0x40, 0x40, 0x40, 0x40, 0x00, 0x00, 0xe0, 0x40, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0e, 0x08, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 0x08, 0x08, 0x00, 0x04, 0x04, 0x04, 0x0e, 0x04, 0x0e, 0x08, 0x04, 0x00, 0xc0, 0x00, 0x04, 0xc0, 0x0e, 0x04, 0x00, 0x00, 0x40, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x40, 0x40, 0xe0, 0x40, 0x00, 0x00, 0x40, 0x40, 0xe0, 0xe0, 0x40, 0xe0, 0x40, 0x40, 0x00, 0x44, 0x40, 0x40, 0x42, 0x40, 0x0c, 0x00, 0x00, 0x0e, 0x00, 0x0e, 0x0e, 0x00, 0x04, 0x00, 0x00, 0x0e, 0x04, 0x02, 0x0a, 0x04, 0x0e, 0x00, 0x04, 0x0e, 0x0e, 0x42, 0x0a, 0x0e, 0x04, 0x04, 0x00, 0x04, 0x04, 0x0e, 0x0a, 0x04, 0x04, 0x00, 0xe0, 0x00, 0xe0, 0x40, 0x00, 0xe0, 0x00, 0x00, 0x80, 0x40, 0xe0, 0x40, 0x40, 0xa0, 0x40, 0x00, 0xe0, 0xe0, 0xa0, 0x40, 0xe0, 0xe0, 0xa0, 0x40, 0xe0, 0x40, 0xa0, 0x60, 0x40, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x0e, 0x00, 0x00, 0x00, 0x04, 0x04, 0x04, 0x04, 0x0e, 0x04, 0x04, 0x04, 0x0e, 0x0e, 0x0e, 0x0e, 0x0a, 0x0a, 0x00, 0x00, 0x44, 0x04, 0x04, 0x04, 0x0a, 0x00, 0x00, 0x00, 0x00, 0xe0, 0xa0, 0x00, 0x00, 0x00, 0x00, 0x40, 0x40, 0xe0, 0xa0, 0x40, 0x40, 0x00, 0x40, 0xe0, 0x40, 0xa0, 0xa0, 0xe0, 0xa0, 0x40, 0x00, 0x42, 0x40, 0xa2, 0xe0, 0x40, 0x00, 0x00, 0x00, 0x0e, 0x00, 0x0a, 0x0a, 0x00, 0x0e, 0x00, 0x00, 0x0a, 0x04, 0x06, 0x06, 0x04, 0x08, 0x00, 0x04, 0x0a, 0x0e, 0x0a, 0x02, 0x0e, 0x0e, 0x04, 0x00, 0xca, 0x04, 0x0a, 0x02, 0x04, 0x0e, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00, 0xe0, 0x00, 0x00, 0x00, 0xe0, 0x40, 0x40, 0x40, 0xa0, 0x00, 0x00, 0x40, 0x40, 0xe0, 0xe0, 0xe0, 0xa0, 0x40, 0x40, 0x00, 0x40, 0x40, 0x40, 0x40, 0xe0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}; xemp5.1-beta/x/include_x/xextern.h100444 12266 2116 2011 6023773110 15511 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/x/include_x/RCS/xextern.h,v 5.1 1993/03/14 16:37:02 etienne Exp $ $Date: 1993/03/14 16:37:02 $ $Author: etienne $ $Id: xextern.h,v 5.1 1993/03/14 16:37:02 etienne Exp $ $Locker: $ $Log: xextern.h,v $ Revision 5.1 1993/03/14 16:37:02 etienne *** empty log message *** * Revision 5.0 93/02/06 09:27:19 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 03:52:01 greyhelm * Add RCS logging - Karl Hagen * */ extern Display *display; extern int screen, depth; extern GC gc_normal; extern GC gc_bold; extern GC gc_small; extern GC gc_copy; extern GC gc_inv_normal; extern GC gc_inv_bold; extern GC gc_inv_copy; extern GC gc_inv_small; extern GC gc_xor; extern XColor white_color, black_color; extern int CHAR_HEIGHT, CHAR_WIDTH, CHAR_ASC; extern unsigned long black_pixel, white_pixel; extern Window root_window; #define XOR(x,y) ((!(x) && (y)) || ((x) && !(y))) xemp5.1-beta/x/pager.c100444 12266 2116 57434 6030467125 13202 0ustar jponexor/* $Header: /a/victor/nexor/user4/jpo/xemp/xemp5.0/x/RCS/pager.c,v 5.3 1995/09/22 08:05:41 jpo Exp $ $Date: 1995/09/22 08:05:41 $ $Author: jpo $ $Id: pager.c,v 5.3 1995/09/22 08:05:41 jpo Exp $ $Locker: $ $Log: pager.c,v $ Revision 5.3 1995/09/22 08:05:41 jpo force signed compare. Revision 5.2 1995/09/08 07:50:27 jpo const new functions InputPager * Revision 5.1 93/03/14 16:35:44 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:26:31 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:00:52 greyhelm * Add RCS logging - Karl Hagen * */ #include "type.h" #include "main.h" #include #include #include #include #include "xextern.h" #include "func.h" #define MAX_FUNC 6 /* #define WARP */ struct s_pager { Strings strings; const char *header; const char *left_but, *middle_but, *right_but; int buttonIDs[3]; bool first_entry; bool buttonsset; WinInfo win1, win2; bool scrollbar; int scrolllines; int width; int height; int lines; int lasty, lastx; int maxstr; InfoProc proc; bool select; int nr_funcs; int *func_startx; char *func_names [MAX_FUNC]; int func_ids [MAX_FUNC]; }; Pager InitPager (strings, header) Strings strings; const char *header; { Pager new; new = (Pager) doalloc ((unsigned) sizeof (struct s_pager)); bzero (new, sizeof (struct s_pager)); new-> header = header; new-> select = False; new-> first_entry = True; new-> win1 = (WinInfo) 0; new-> win2 = (WinInfo) 0; new-> scrollbar = False; new-> nr_funcs = 0; new-> func_startx = (int *) 0; new-> scrolllines = 0; new-> buttonsset = False; new-> strings = strings; new-> proc = NULL; new-> buttonIDs [0] = SELECT; new-> buttonIDs [1] = CANCEL; new-> buttonIDs [2] = CANCELALL; return new; } static int FuncAtBottom (pager, event) Pager pager; XEvent *event; { int i, y, x; if (EventWindow (event) != pager-> win1) return NOFUNC; if (pager-> nr_funcs == 0 || pager-> func_startx == (int *) 0) return NOFUNC; if (event-> type != ButtonPress) return NOFUNC; x = PixelToCharX (event-> xbutton. x) - 1; y = PixelToCharY (event-> xbutton. y); if (y != pager-> height - 2) return NOFUNC; for (i = 0; i < pager-> nr_funcs; i++) { if (x >= pager-> func_startx [i] && x < (pager-> func_startx [i] + strlen (pager-> func_names [i]))) return (pager-> func_ids [i]); } return NOFUNC; } void FreePager (pager) Pager pager; { int i; if (pager-> win2 != (WinInfo) 0) DestroyWindow (pager-> win2); if (pager-> win1 != (WinInfo) 0) DestroyWindow (pager-> win1); for (i = 0; i < pager-> nr_funcs; i++) if (pager-> func_names [i] != (char *) 0) free ((char *) pager-> func_names [i]); if (pager-> func_startx != (int *) 0) free ((char *) pager-> func_startx); if (pager-> buttonsset) { if (pager-> left_but != (char *) 0) free ((char *) pager-> left_but); if (pager-> middle_but != (char *) 0) free ((char *) pager-> middle_but); if (pager-> right_but != (char *) 0) free ((char *) pager-> right_but); } free ((char *) pager); } void SetPagerSelect (pager) Pager pager; { pager-> select = True; } void SetPagerButtonIDs (pager, left, middle, right) Pager pager; int left, middle, right; { pager-> buttonIDs [0] = (left == DEFAULTFUNC) ? SELECT : left; pager-> buttonIDs [1] = (middle == DEFAULTFUNC) ? CANCEL : middle; pager-> buttonIDs [2] = (right == DEFAULTFUNC) ? CANCELALL : right; } void SetInfoOnPager (pager, proc) Pager pager; InfoProc proc; { pager-> proc = proc; } void SetPagerButtons (pager, left, middle, right) Pager pager; const char *left, *middle, *right; { if (right == (char *) 0) { right = middle; middle = (char *) 0; } pager-> left_but = Str (left); if (middle != (char *) 0) pager-> middle_but = Str (middle); pager-> right_but = Str (right); pager-> buttonsset = True; } void AddPagerFunc (pager, name, id) Pager pager; const char *name; int id; { pager-> func_names [pager-> nr_funcs] = Str (Fmt (" %s ", name)); pager-> func_ids [pager-> nr_funcs ++ ] = id; } static void ShowPagerFuncs (pager) Pager pager; { int i; if (pager-> nr_funcs > 0) { for (i = 0; i < pager-> nr_funcs; i++) PrintMarked (pager-> win1, 1 + pager-> func_startx [i], pager-> height - 2, pager-> func_names [i], BOLD); } } void RemapPager (pager) Pager pager; { const char *ptr; bool flag; int i; i = 0; InitStringList (pager-> strings); while ((ptr = GetNextStringFlag (pager-> strings, &flag)) != (char *) 0) { if (flag) PrintAtPixmapB (pager-> win2, 1, i ++, Fmt ("%-*s", pager-> width, ptr)); else PrintAtPixmapN (pager-> win2, 1, i ++, Fmt ("%-*s", pager-> width, ptr)); } FlushWindow (pager-> win2); } void ShowPagerLine (pager, y) Pager pager; int y; { if (GiveIthFlag (pager-> strings, y)) PrintAtPixmapB (pager-> win2, 1, y, Fmt ("%-*s", pager-> width, GiveIthString (pager-> strings, y))); else PrintAtPixmapN (pager-> win2, 1, y, Fmt ("%-*s", pager-> width, GiveIthString (pager-> strings, y))); FlushWindow (pager-> win2); } void MapPagerFromTop (pager, win, x, y) Pager pager; WinInfo win; int x, y; { MapPager (pager, win, x, y, True, False); } void MapPagerFromBot (pager, win, x, y) Pager pager; WinInfo win; int x, y; { MapPager (pager, win, x, y, False, False); } void ChangePagerString (pager, id, newstr) Pager pager; int id; char * newstr; { if (pager-> proc != NULL) ChangeString (pager-> strings, id, Fmt ("%-*.*s [?]", pager-> maxstr, pager-> maxstr, newstr)); else ChangeString (pager-> strings, id, newstr); } void MapPager (pager, win, x, y, fromtop, towm) Pager pager; WinInfo win; bool fromtop; bool towm; { int j, tmp, min; int space, width, height, i; int len; int id; const char * ptr; if (StringsSize (pager-> strings) == 0) AddString (pager-> strings, "(xemp: empty)"); pager-> maxstr = MaxStringLen (pager-> strings); MakeStringIndex (pager-> strings); if (pager-> proc != NULL) { /* adjust strings */ InitStringList (pager-> strings); while ((ptr = GetNextStringID (pager-> strings, & id)) != (char *) 0) ChangeString (pager-> strings, id, Fmt ("%-*.*s [?]", pager-> maxstr, pager-> maxstr, ptr)); } /* calculate height of window */ height = StringsSize (pager-> strings); if (height > MAP_HEIGHT - 5) { pager-> scrollbar = True; pager-> scrolllines = height - (MAP_HEIGHT - 5); height = MAP_HEIGHT - 5; } pager-> lines = height; if (pager-> header != (char *) 0 && ! towm) height ++; if (pager-> buttonsset) height ++; if (pager-> nr_funcs > 0) height += 2; /* calculate width of window */ width = MaxStringLen (pager-> strings) + 3; if (pager-> scrollbar) width ++; if (pager-> header != (char *) 0) { tmp = strlen (pager-> header) + 2; if (width < tmp) width = tmp; } if (pager-> nr_funcs > 0) { tmp = 0; for (i = 0; i < pager-> nr_funcs; i++) tmp += strlen (pager-> func_names [i]); tmp += (pager-> nr_funcs - 1) * 2; if (width < tmp) width = tmp; } if (pager-> buttonsset) { min = strlen (pager-> right_but); tmp = strlen (pager-> left_but); if (tmp > min) min = tmp; min += 2; if (pager-> middle_but != (char *) 0) { tmp = strlen (pager-> middle_but); if (tmp > min) min = tmp + 2; min = min * 3 + 6; } else min = min * 2 + 4; if (width < min) width = min; } height += 1; pager-> width = width; pager-> height = height; /* open windows */ if (towm) pager-> win1 = OpenWinForWM ( pager-> header, x, y, width, height, CHARS, 0); else pager-> win1 = OpenRelToRoot ( win, x, y, width, height, CHARS, 0); pager-> win2 = OpenWindow ( pager-> win1, 0, ((pager-> header == (char *) 0 || towm) ? 0 : 1) + ((pager-> buttonsset) ? 1 : 0), (pager-> scrollbar) ? (width - 2) : (width - 1), pager-> lines, CHARS, SUBWINDOW, pager-> scrolllines); SetDefaultCursor (pager-> win1, CR_MENU); SetDefaultCursor (pager-> win2, CR_MENU); if (pager-> buttonsset) { j = width - strlen (pager-> right_but) - 4; PrintN (pager-> win1, j, 0, Fmt ("[%s]", pager-> right_but)); if (pager-> middle_but != (char *) 0) { j = width - strlen (pager-> left_but) - strlen (pager-> right_but) - strlen (pager-> middle_but) - 8; j = j / 2 + strlen (pager-> left_but) + 2; PrintN (pager-> win1, j + 1, 0, Fmt ("[%s]", pager-> middle_but)); } PrintN (pager-> win1, 1, 0, Fmt ("[%s]", pager-> left_but)); } /* header */ if (pager-> header != (char *) 0 && ! towm) PrintN (pager-> win1, 1, pager-> buttonsset ? 1 : 0, Centered (pager-> header, width - 2)); if (pager-> nr_funcs > 0) /* set starting coordinates of nr_funcs */ { pager-> func_startx = (int *) doalloc ( pager-> nr_funcs * sizeof (int)); space = width - 2; i = 0; if (pager-> nr_funcs == 1) pager-> func_startx [0] = space/2 - strlen (pager-> func_names [i])/2; else { pager-> func_startx [0] = 0; for (i = 0; i < pager-> nr_funcs; i++) { len = strlen (pager-> func_names [i]); space -= len; if (i < pager-> nr_funcs - 1) pager-> func_startx [i + 1] = len; } space /= (pager-> nr_funcs - 1); for (i = 1; i < pager-> nr_funcs; i++) pager-> func_startx [i] += pager-> func_startx [i - 1] + space; } } pager-> lasty = CharToPixelYB (0); pager-> lastx = CharToPixelX (1); ShowPagerFuncs (pager); if (fromtop) SetToTop (pager-> win2); else SetToBot (pager-> win2); RemapPager (pager); FlushWindow (pager-> win1); } static void SavePagerText (pager) Pager pager; { const char *ptr; Strings stripped; PrintN (pager-> win1, 0, pager-> height - 2, Fmt ("Filename: %*s", pager-> width - 10, "")); ptr = GetString (pager-> win1, 10, pager-> height - 2, pager-> width - 10, GS_TEXT); if (ptr != (char *) 0 && *ptr != '\0') { stripped = StripStrings (pager-> strings); if (WriteStrings (stripped, ptr)) Message (Fmt ("Text saved in %s", ptr)); else Bell (); FreeStrings (stripped); } else Message ("Save canceled"); ClearLine (pager-> win1, pager-> height - 2); ShowPagerFuncs (pager); FlushWindow (pager-> win1); } void LoadPagerText (pager) Pager pager; { const char *ptr; PrintN (pager-> win1, 0, pager-> height - 2, Fmt ("Filename: %*s", pager-> width - 10, "")); ptr = GetString (pager-> win1, 10, pager-> height - 2, pager-> width - 10, GS_TEXT); if (ptr != (char *) 0 && *ptr != '\0') { if (LoadEditStrings (pager-> strings, ptr)) Message (Fmt ("Text loaded from %s", ptr)); else Bell (); } else Message ("Load canceled"); ClearLine (pager-> win1, pager-> height - 2); ShowPagerFuncs (pager); FlushWindow (pager-> win1); RemapPager (pager); } void RemapPagerToWM (pager) Pager pager; { Strings strings; strings = InitStrings (); JoinStrings (strings, pager-> strings); InitWMPager (strings, pager-> header); } int PagerMenuFunc (pager, ret, pcols) Pager pager; int *ret; int *pcols; { const char *ptr; XEvent event; int cx, cy, oldx, oldy; int colwidth, choice; int cols; colwidth = MaxStringLen (pager-> strings); MakeStringIndex (pager-> strings); cols = (pcols != (int *) 0 ? *pcols : 1); if (cols> 0) colwidth = (colwidth + cols - 1)/cols; for (;;) { cx = GetPixmapPosX (pager-> win2, pager-> lastx) - 1; cx = (cx / colwidth) * colwidth; cy = GetPixmapPosY (pager-> win2, pager-> lasty); if (cy >= (pager-> lines + pager-> scrolllines) || cy < 0) { pager-> lasty = 0; pager-> lastx = 0; continue; } ptr = GiveIthString (pager-> strings, cy); if (cx >= (int)strlen (ptr)) { pager-> lasty = 0; pager-> lastx = 0; continue; } break; } ptr = Fmt ("%.*s", colwidth, ptr + cx); if (! pager-> select) PrintAtPixmapB (pager-> win2, 1 + cx, cy, ptr); SelectEvents (pager-> win2, ButtonPressMask | ExposureMask | PointerMotionMask | KeyPressMask); FlushWindow (pager-> win2); #ifdef WARP while (XCheckTypedEvent (display, MotionNotify, &event) == True) ; #else if (pager-> first_entry) #endif /* WARP */ WarpPointer (pager-> win2, pager-> lastx, pager-> lasty); pager-> first_entry = False; for (;;) { XNextEvent (display, &event); if (StandardEvent (& event)) { if (interrupt) { interrupt = False; * ret = CANCELALL; return -1; } continue; } if ((choice = FuncAtBottom (pager, &event)) != NOFUNC) { if (choice == WRITEFUNC) { SavePagerText (pager); continue; } else if (choice == READFUNC) { LoadPagerText (pager); MakeStringIndex (pager-> strings); continue; } else if (choice == TOWMFUNC) { RemapPagerToWM (pager); choice = CANCELFUNC; } pager-> lasty = 0; pager-> lastx = 0; * ret = choice; return -1; } switch ((int) event. type) { case ButtonPress: if (EventWindow (& event) == pager-> win1) continue; if (EventWindow (& event) != pager-> win2) { pager-> lasty = 0; pager-> lastx = 0; * ret = CANCEL; return -1; } else { if (pager-> proc != NULL && PixelToCharX (event. xbutton. x) > pager-> maxstr) { (* pager-> proc) (10, 10, GiveIthID (pager-> strings, cy)); WarpPointer (pager-> win2, event. xbutton. x, event. xbutton. y); continue; } * ret = pager-> buttonIDs [ event.xbutton. button - 1]; pager-> lasty = event. xbutton. y; pager-> lastx = event. xbutton. x; if (! pager-> select) { ptr = GiveIthString (pager-> strings, cy); ptr = Fmt ("%.*s", colwidth, ptr + cx); PrintAtPixmapN (pager-> win2, 1 + cx, cy, ptr); } cx = GetPixmapPosX (pager-> win2, pager -> lastx) - 1; cx = (cx / colwidth) * colwidth; choice = GiveIthID (pager-> strings, cy); if (pcols != (int *) 0) * pcols = cx; return choice; } case MotionNotify: #ifdef WRAP while (XCheckTypedEvent (display, MotionNotify, & event) == True) ; #endif /* WRAP */ if (EventWindow (& event) != pager-> win2) break; oldy = cy; oldx = cx; cy = GetPixmapPosY (pager-> win2, event. xmotion. y); cx = GetPixmapPosX (pager-> win2, event. xmotion. x) - 1; cx = (cx / colwidth) * colwidth; if (oldy == cy && oldx == cx) break; if (cy >= (pager-> lines + pager-> scrolllines) || cy < 0) { cy = oldy; cx = oldx; break; } ptr = GiveIthString (pager-> strings, cy); if (cx >= strlen (ptr)) { cy = oldy; cx = oldx; break; } if (pager-> select) continue; ptr = Fmt ("%.*s", colwidth, ptr + cx); PrintAtPixmapB (pager-> win2, 1 + cx, cy, ptr); ptr = GiveIthString (pager-> strings, oldy); ptr = Fmt ("%.*s", colwidth, ptr + oldx); PrintAtPixmapN (pager-> win2, 1 + oldx, oldy, ptr); FlushWindow (pager-> win2); break; } } } /* * int PagerSelect (pager, ret) * Pager pager; * int * ret; * { * XEvent event; * int choice; * * SelectEvents (pager-> win2, * ButtonPressMask | * ExposureMask | * PointerMotionMask | * KeyPressMask); * * FlushWindow (pager-> win2); * WarpPointer (pager-> win2, pager-> lastx, pager-> lasty); * * for (;;) * { * XNextEvent (display, & event); * * if (StandardEvent (& event)) * { * if (interrupt) * { * interrupt = False; * * ret = CANCELALL; * return -1; * } * } * * if ((choice = FuncAtBottom (pager, &event)) != NOFUNC) * { * if (choice == WRITEFUNC) * { * SavePagerText (pager); * continue; * } else if (choice == READFUNC) * { * LoadPagerText (pager); * continue; * } * * pager-> lasty = 0; * pager-> lastx = 0; * * ret = choice; * return -1; * } * * } * } */ int PagerMenu (pager) Pager pager; { int func; int i; i = PagerMenuFunc (pager, & func, (int *) 0); if (func != SELECT) return -1; else return i; } int ShowPager (pager) Pager pager; { XEvent event; int func; #ifndef WARP if (pager-> first_entry) #endif /* WARP */ WarpPointer (pager-> win2, pager-> lastx, pager-> lasty); pager-> first_entry = False; for (;;) { XNextEvent (display, & event); if (StandardEvent (& event)) continue; if (event. xany. type != ButtonPress) continue; if ((func = FuncAtBottom (pager, &event)) != NOFUNC) { if (func == WRITEFUNC) { SavePagerText (pager); continue; } else if (func == READFUNC) { LoadPagerText (pager); continue; } else if (func == TOWMFUNC) { RemapPagerToWM (pager); return CANCELFUNC; } return func; } if (EventWindow (& event) == pager-> win1) continue; else if (EventWindow (& event) == pager-> win2) { func = pager-> buttonIDs [event.xbutton. button - 1]; if (func == SELECT) continue; return func; } else return CANCEL; } } static void ShowCursor (pager, x, y) Pager pager; int x, y; { const char *ptr; ptr = GiveIthString (pager-> strings, y); PrintMarked (pager-> win2, x + 1, y, Fmt ("%c", * (ptr + x)), NORMAL); FlushWindow (pager-> win2); } static void NoCursor (pager, x, y) Pager pager; int x, y; { const char *ptr; ptr = GiveIthString (pager-> strings, y); PrintN (pager-> win2, x + 1, y, Fmt ("%c", * (ptr + x))); FlushWindow (pager-> win2); } static void ShowLine (pager, y) Pager pager; int y; { PrintN (pager-> win2, 1, y, GiveIthString (pager-> strings, y)); FlushWindow (pager-> win2); } bool EditPager (pager) Pager pager; { XEvent event; char buffer [BUFSIZ]; char *ptr; KeySym keysym; XComposeStatus comp_status; int ret; int x, y, nx, ny; int choice; int width, height; width = MaxStringLen (pager-> strings); height = StringsSize (pager-> strings); x = 0; y = 0; MakeStringIndex (pager-> strings); ShowCursor (pager, x, y); SelectEvents (pager-> win2, ButtonPressMask | ExposureMask | KeyPressMask); for (;;) { /* CHEAT - should be const... */ ptr = (char *)GiveIthString (pager-> strings, y); XNextEvent (display, & event); if (ScrollEvent (& event)) continue; switch (event. xany. type) { case Expose: RefreshEvent (& event); continue; case ButtonPress: if ((choice = FuncAtBottom (pager, &event)) != NOFUNC) { if (choice == WRITEFUNC) { SavePagerText (pager); continue; } else if (choice == READFUNC) { NoCursor (pager, x, y); FreeStringIndex (pager-> strings); LoadPagerText (pager); MakeStringIndex (pager-> strings); x = 0; y = 0; ShowCursor (pager, x, y); continue; } NoCursor (pager, x, y); return choice; } if (EventWindow (& event) == pager-> win2) { nx = PixelToCharX (event. xbutton. x) - 1; ny = PixelToCharY (event. xbutton. y); if (nx < 0 || nx >= width || ny < 0 || ny >= height) continue; NoCursor (pager, x, y); x = nx; y = ny; ShowCursor (pager, x, y); continue; } break; /* other button presses are ingnored */ case KeyPress: ret = XLookupString ( & (event. xkey), buffer, BUFSIZ - 1, & keysym, & comp_status); switch ((int) keysym) { case XK_Left: NoCursor (pager, x, y); if (-- x < 0) { x = width - 1; if (y > 0) y --; } ShowCursor (pager, x, y); continue; case XK_Right: NoCursor (pager, x, y); if (++ x >= width) { x = 0; if (y < height - 1) y ++; } ShowCursor (pager, x, y); continue; case XK_Down: NoCursor (pager, x, y); if (++ y >= height) y = 0; ShowCursor (pager, x, y); continue; case XK_Up: NoCursor (pager, x, y); if (-- y < 0) y = height - 1; ShowCursor (pager, x, y); continue; case XK_Delete: buffer [0] = '\0'; strncat (buffer, ptr, x); strcat (buffer, ptr + x + 1); strcat (buffer, " "); strcpy (ptr, buffer); ShowLine (pager, y); ShowCursor (pager, x, y); continue; case XK_BackSpace: if (x == 0) continue; *(ptr + (-- x)) = ' '; ShowLine (pager, y); ShowCursor (pager, x, y); continue; case XK_Return: case XK_Linefeed: ShowLine (pager, y); x = 0; if ((++ y) >= height) y = 0; ShowCursor (pager, x, y); continue; } if (ret == 0) continue; if (buffer [0] >= ' ' && buffer [0] <= '~') { * (ptr + x) = buffer [0]; if ((++ x) >= width) { x = 0; ShowLine (pager, y); if (y < height - 1) y ++; } else ShowLine (pager, y); ShowCursor (pager, x, y); continue; } break; } } } Strings StringsFromPager (pager) Pager pager; { return pager-> strings; } /* * It may not be a scroll-window */ char *InputPagerLine (pager, y) Pager pager; int y; { return InputPager (pager, y, 1, pager-> width - 4, GS_TEXT); } char *InputPager (pager, y, xs, xe, form) Pager pager; int y, xs, xe; const char *form; { char *ptr; Print (pager-> win2, xs, y, Fmt ("%*s", xe - xs, ""), NORMAL); ptr = GetString (pager-> win2, xs, y, xe, form); return ptr; } char * PagerMulti (pager, pfunc) Pager pager; int *pfunc; { const char *ptr; static char buf[256]; int col, num; int y; ptr = GiveIdString (pager-> strings, 1); num = 0; while (ScanWord (& ptr, (char *) 0)) num++; for (;;) { col = num; y = PagerMenuFunc (pager, pfunc, &col); if (* pfunc != SELECT) return (char *) 0; if (y < 0) { * pfunc = CANCELALL; return (char *) 0; } ptr = GiveIdString (pager-> strings, y) + col; if (ptr == (char *) 0 || ! ScanWord (& ptr, buf)) { Error ("Bad Selection ?"); continue; } return buf; } } typedef struct s_pagerlist * PagerList; struct s_pagerlist { Pager pager; PagerList next; }; static PagerList first_pager = (PagerList) 0; void AddPagerToWMList (pager) Pager pager; { PagerList new; new = (PagerList) doalloc ((unsigned) sizeof (struct s_pagerlist)); MakeStringIndex (pager-> strings); new-> pager = pager; new-> next = first_pager; first_pager = new; } static void RemovePagerFromWMList (pager) Pager pager; { PagerList ptr, prv; prv = (PagerList) 0; for (ptr = first_pager; ptr != (PagerList) 0; ptr = ptr-> next) { if (ptr-> pager == pager) { if (prv == (PagerList) 0) first_pager = ptr-> next; else prv-> next = ptr-> next; free ((char *) ptr); return; } prv = ptr; } } static Pager FindPager (pevent) XEvent * pevent; { PagerList ptr; WinInfo win; win = EventWindow (pevent); if (win == (WinInfo) 0) return (Pager) 0; for (ptr = first_pager; ptr != (PagerList) 0; ptr = ptr-> next) { if (win == ptr-> pager-> win1 || win == ptr-> pager-> win2) return ptr-> pager; } return (Pager) 0; } bool PagerEvent (pevent) XEvent * pevent; { Pager pager; int func, y; if (pevent-> type != ButtonPress) return False; pager = FindPager (pevent); if (pager == (Pager) 0) return False; if (EventWindow (pevent) == pager-> win2) { y = GetPixmapPosY (pager-> win2, pevent-> xbutton. y); if (y >= (pager-> lines + pager-> scrolllines) || y < 0) return True; GotoStr (GiveIthString (pager-> strings, y)); return True; } if ((func = FuncAtBottom (pager, pevent)) != NOFUNC) { if (func == WRITEFUNC) { SavePagerText (pager); return True; } RemovePagerFromWMList (pager); FreeStrings (pager-> strings); FreePager (pager); return True; } return False; } void InitWMPager (strings, name) Strings strings; const char * name; { Pager pager; if (StringsSize (strings) == 0) { FreeStrings (strings); return; } pager = InitPager (strings, name); AddPagerFunc (pager, "Write", WRITEFUNC); AddPagerFunc (pager, "Done", DONEFUNC); MarkAllStrings (strings); MapPager (pager, map_win, 0, 0, True, True); AddPagerToWMList (pager); } /* ARGSUSED */ void SetEditPager (pager) Pager pager; { } xemp5.1-beta/x/realm.c100444 12266 2116 17356 6023773047 13210 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/x/RCS/realm.c,v 5.1 1993/03/14 16:35:47 etienne Exp $ $Date: 1993/03/14 16:35:47 $ $Author: etienne $ $Id: realm.c,v 5.1 1993/03/14 16:35:47 etienne Exp $ $Locker: $ $Log: realm.c,v $ Revision 5.1 1993/03/14 16:35:47 etienne *** empty log message *** * Revision 5.0 93/02/06 09:26:31 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:00:52 greyhelm * Add RCS logging - Karl Hagen * */ #include #include #include #include #include "type.h" #include "xextern.h" #include "main.h" #include "sector.h" #include "nation.h" void ShowBox (sx, sy, ex, ey) int sx, sy, ex, ey; { int x1, y1, x2, y2; x1 = sx; x2 = ex; y1 = sy; y2 = ey; ConvMapPosToPixelPos (& sx, & sy); ConvMapPosToPixelPos (& ex, & ey); if (x1 > x2) { XorLine (map_win, -1, sy, ex + MapSctWidth () - 1, sy); XorLine (map_win, -1, ey + MapSctHeight () - 1, ex + MapSctWidth () - 1, ey + MapSctHeight () - 1); XorLine (map_win, sx, sy, 1200, sy); XorLine (map_win, sx, ey + MapSctHeight () - 1, 1200, ey + MapSctHeight () - 1); } else { XorLine (map_win, sx, sy, ex + MapSctWidth () - 1, sy); XorLine (map_win, sx, ey + MapSctHeight () - 1, ex + MapSctWidth () - 1, ey + MapSctHeight () - 1); } if (y1 > y2) { XorLine (map_win, sx, -1, sx, ey + MapSctHeight () - 1); XorLine (map_win, ex + MapSctWidth () - 1, -1, ex + MapSctWidth () - 1, ey + MapSctHeight () - 1); XorLine (map_win, sx, sy, sx, 1200); XorLine (map_win, ex + MapSctWidth () - 1, sy, ex + MapSctWidth () - 1, 1200); } else { XorLine (map_win, sx, sy, sx, ey + MapSctHeight () -1); XorLine (map_win, ex + MapSctWidth () - 1, sy, ex + MapSctWidth () - 1, ey + MapSctHeight () - 1); } FlushWindow (map_win); } /* * initial state: * * left: view * middle: cancel * right: tracking state * 0-9: showing state * escape: cancel * * showing state: * * left: do * middle: cancel show * right: * when at start/end sector, continue tracking * else delete marking and start tracking * 0-9: show new realm * escape: cancel show * * tracking: * * leave window: initial state * button release: if right button, showing state * left button: view * middle button: cancel tracking, initial state * escape: ^^ * rest ignore */ typedef enum { ST_INIT, ST_SHOW, ST_TRACK } State; char * MySelRealm () { XEvent event; Sector sct; State state; char * realm; char buffer [BUFSIZ]; KeySym keysym; int sx, sy; int cx, cy; int nx, ny; int n; int button; XComposeStatus comp_status; #ifdef lint sx = sy = cx = cy = 0; #endif SelectEvents (map_win, ExposureMask | KeyPressMask | ButtonPressMask | ButtonReleaseMask | LeaveWindowMask | Button3MotionMask ); MesBut ("View", "Done", "Set"); UnmarkSector (cursct); state = ST_INIT; for (;;) { XNextEvent (display, & event); if (event. type == KeyPress && state != ST_INIT) { ShowBox (sx, sy, cx, cy); if (StandardEvent (& event)) { if (interrupt) { MesClearBut (); MarkSector (cursct); return (char *) 0; } ShowBox (sx, sy, cx, cy); continue; } ShowBox (sx, sy, cx, cy); } else if (StandardEvent (& event)) { if (interrupt) { MesClearBut (); MarkSector (cursct); return (char *) 0; } continue; } if (EventWindow (& event) != map_win) continue; switch (event. type) { case KeyPress: n = XLookupString ( & (event. xkey), buffer, BUFSIZ - 1, & keysym, & comp_status); if (keysym == XK_Escape) { switch (state) { case ST_INIT: MesClearBut (); MarkSector (cursct); return (char *) 0; case ST_TRACK: case ST_SHOW: MesBut ("View", "Done", "Set"); ShowBox (sx, sy, cx, cy); state = ST_INIT; continue; } } if (state == ST_TRACK) continue; if (n != 1 || buffer [0] < '0' || buffer [0] > '9') continue; if (state == ST_SHOW) { ShowBox (sx, sy, cx, cy); state = ST_INIT; } realm = n_realm (nation, buffer [0] - '0'); if (! ConvRealmToCoord (realm, & sx, & sy, & cx, & cy)) { MesBut ("View", "Done", "Set"); Message (Fmt ("Warning: realm %d illegal", buffer [0] - '0')); continue; } state = ST_SHOW; MesBut ("Do", "Cancel", "Set"); ShowBox (sx, sy, cx, cy); break; case ButtonPress: button = event. xbutton. button; if (button == LEFT_BUTTON && state == ST_SHOW) { ShowBox (sx, sy, cx, cy); MesClearBut (); MarkSector (cursct); return Fmt ("%s,%s", sx == cx ? Fmt ("%d", sx) : Fmt ("%d:%d", sx, cx), sy == cy ? Fmt ("%d", sy) : Fmt ("%d:%d", sy, cy)); } if (button == LEFT_BUTTON) { sct = FindSector (event. xbutton. x, event. xbutton. y); if (sct != (Sector) 0 && ! NO_INFO (sct)) CensusSct (sct); continue; } if (button == MIDDLE_BUTTON) { switch (state) { case ST_INIT: MesClearBut (); MarkSector (cursct); return (char *) 0; case ST_SHOW: case ST_TRACK: MesBut ("View", "Done", "Set"); ShowBox (sx, sy, cx, cy); state = ST_INIT; continue; } } /* a mouse can have more than 3 buttons */ if (button != RIGHT_BUTTON) continue; /* * start tracking at the upper-left * corner of the sector */ if (state == ST_TRACK) { /* impossible */ Bell (); continue; } nx = event. xbutton. x; ny = event. xbutton. y; if (! ConvertToSctCrd (& nx, & ny)) continue; /* * Optimalizeer state = ST_TRACK */ if (state == ST_SHOW) { ShowBox (sx, sy, cx, cy); /* determine if we take one of the corners * * sx,sy cx,sy * * sx,cy cx,cy */ if (nx == sx && ny == sy) { sx = cx; sy = cy; cx = nx; cy = ny; state = ST_TRACK; ShowBox (sx, sy, cx, cy); continue; } else if (nx == cx && ny == sy) { sx = sx; sy = cy; cy = ny; state = ST_TRACK; ShowBox (sx, sy, cx, cy); continue; } else if (nx == sx && ny == cy) { sx = cx; sy = sy; cx = nx; ShowBox (sx, sy, cx, cy); state = ST_TRACK; continue; } else if (nx == cx && ny == cy) { ShowBox (sx, sy, cx, cy); state = ST_TRACK; continue; } /* no, then start all over */ sx = cx = nx; sy = cy = ny; ShowBox (sx, sy, cx, cy); state = ST_TRACK; continue; } /* state == ST_INIT */ cx = sx = nx; cy = sy = ny; state = ST_TRACK; ShowBox (sx, sy, cx, cy); MesBut ("Do", "Cancel", "Set"); break; case ButtonRelease: /* Optimalizeer */ if (state == ST_INIT || state == ST_SHOW) continue; if (button != RIGHT_BUTTON) continue; if (sx == cx && sy == cy) { ShowBox (sx, sy, cx, cy); MesClearBut (); MarkSector (cursct); return Fmt ("%d,%d", sx, sy); } state = ST_SHOW; continue; case MotionNotify: /* Optimalizeer */ if (state == ST_SHOW || state == ST_INIT) continue; while (XCheckTypedEvent (display, MotionNotify, & event) == True) ; nx = event. xbutton. x; ny = event. xbutton. y; if (! ConvertToSctCrd (& nx, & ny)) continue; if (nx == cx && ny == cy) continue; ShowBox (sx, sy, cx, cy); cx = nx; cy = ny; ShowBox (sx, sy, cx, cy); continue; case LeaveNotify: /* Optimalizeer */ if (state == ST_INIT || state == ST_SHOW) continue; state = ST_SHOW; continue; } } } xemp5.1-beta/x/xbind.c100444 12266 2116 21107 6027323125 13171 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/x/RCS/xbind.c,v 5.4 1995/09/18 17:03:17 jpo Exp $ $Date: 1995/09/18 17:03:17 $ $Author: jpo $ $Id: xbind.c,v 5.4 1995/09/18 17:03:17 jpo Exp $ $Locker: $ $Log: xbind.c,v $ Revision 5.4 1995/09/18 17:03:17 jpo Added budget binding Revision 5.3 1995/09/12 18:11:58 jpo Add power binding Revision 5.2 1995/09/08 07:51:10 jpo add exprhighlight * Revision 5.1 1993/03/14 16:35:48 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:26:31 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:00:52 greyhelm * Add RCS logging - Karl Hagen * */ #include #include #include #include #include "type.h" #include "xextern.h" #include "main.h" #include "sector.h" #include "var.h" #include "ship.h" #define MAX_BINDINGS 100 typedef enum { OK, OWNED, /* you should own that sector */ OCC, /* occupied sector */ ENEM_NEXT, /* next to enemy sector */ SHIP, /* You should have a current ship (owned) */ SHIPS, /* Should be ships in this sector */ ENEM_SHIP, PLANE } Condition; static int nr_bindings = 0; struct s_funclist { char * name; void (* proc) (); Condition cond; }; struct s_binding { struct s_funclist * fptr; char * args; char ch; KeySym keysym; }; struct s_funclist flist [] = { { "assault", BindAssault, OK }, { "airmine", BindDropOffMines, PLANE }, { "board", BindBoard, ENEM_SHIP }, { "budget", DoBudget, OK }, { "attack", Attack, ENEM_NEXT }, { "connections", Connections, OK }, { "reconnect", Reconnect, OK }, { "global Commands", GlobalCommands, OK }, { "census mode", BindCensusMode, OK }, { "deliver", Deliver, OWNED }, { "designate", BindDesignate, OK }, { "distribute", Distribute, OWNED }, { "drop off", BindDropOff, PLANE }, { "recon", BindRecon, PLANE }, { "distribute utility", UtilDist, OWNED }, { "ferry utility", FerryUtil, OK }, { "info", InfoCommands, OK }, { "fly", BindFly, PLANE }, { "disconnect", Disconnect, OK }, { "announce", Announce, OK }, { "center map", DoCenterMap, OK }, { "news", News, OK }, { "headlines", ShowHeadLines, OK }, { "read", BindRead, OK }, { "change display", ChangeDisplay, OK }, { "goto", GotoSct, OK }, { "explore", Explore, OWNED }, { "explore util", ExploreUtil, OK }, { "expression", BindExpression, OK }, { "exprhighlight", BindHighlightExpression,OK }, { "build ship", BuildShip, OWNED }, { "navigate", BindNavigate, SHIPS }, { "store data", StoreData, OK }, { "highlight", SetHighlight, OK }, { "quit", DoQuit, OK }, { "move", BindMove, OWNED }, { "reread", BindReRead, OK }, { "bind key", BindKeys, OK }, { "enlist", BindEnlist, OWNED }, { "send", BindSend, OK }, { "demobilize", BindDemob, OWNED }, { "convert", BindConvert, OCC }, { "bomb", BindBomb, PLANE }, { "run program", MultiProg, OK }, { "shoot", BindShoot, OWNED }, { "multi enlist", MultiEnlist, OK }, { "multi demob", MultiDemob, OK }, { "multi convert", MultiConvert, OK }, { "check", Check, OK }, { "tend", BindTend, SHIP }, { "fast quit", FastQuit, OK }, { "page command", WMPageCommand, OK }, { "sector ferries", ListSectorFerries, OWNED }, { "goto ferry", GotoFerry, OK }, { "nation", ShowNation, OK }, { "normal display", BindNormalDisplay, OK }, { "power", DisplayPower, OK }, { "again", DoAgain, OK }, { "mine", BindMine, SHIP }, /* DEBUG */ { "where", TestWhere, OWNED }, { (char *) 0, (void (*)())0, (Condition) 0 } }; struct s_binding bindings [MAX_BINDINGS]; char * AddBindingKey (key, bind) char * key, * bind; { KeySym keysym; char ch; int nr, i; char * ptri; if ((keysym = XStringToKeysym (key)) == NoSymbol) { if (strlen (key) < 0 || strlen (key) > 2) return "Strange key!"; if (strlen (key) == 2) { if (* key != '^') return "Strange key!"; ch = key [1]; if (ch >= 'a' && ch <= 'z') ch += 'A' - 'a'; if (ch < 'A' || ch > 'Z') return "Strange control key"; ch -= '@'; } else ch = key [0]; } for (nr = 0; nr < nr_bindings; nr ++) if (keysym == NoSymbol) { if (ch == bindings [nr]. ch) break; } else { if (keysym == bindings [nr]. keysym) break; } if (nr >= MAX_BINDINGS) return "binding table exhausted"; bindings [nr]. keysym = keysym; if (keysym == NoSymbol) bindings [nr]. ch = ch; ptri = index (bind, '('); if (ptri != (char *) 0) { bindings [nr]. args = Str (ptri); bind = Str (bind); ptri = index (bind, '('); * ptri = '\0'; while (* -- ptri == ' ') * ptri = '\0'; } else { bind = Str (bind); /* just to keep things simple */ bindings [nr]. args = (char *) 0; } for (i = 0; flist [i]. name != (char *) 0; i++) if (strcmp (bind, flist [i]. name) == 0) { bindings [nr]. fptr = & flist [i]; if (nr >= nr_bindings) { nr_bindings ++; free (bind); return (char *) 0; } else { free (bind); return "Key rebound"; } } free (bind); return "No such function"; } void BindKeys (x, y) int x, y; { char * key, * ptr; int i; Strings strings; Pager pager; key = InputAtMessage ("Which key to bind: ", 10, GS_TEXT); if (key == (char *) 0 || interrupt || * key == '\0') { interrupt = False; Message ("Bind key cancelled"); Bell (); return; } strings = InitStrings (); for (i = 0; flist [i]. name != (char *) 0; i++) AddSortStringID (strings, flist [i]. name, i); pager = InitPager (strings, "Which command?"); MapPagerFromTop (pager, map_win, x, y); i = PagerMenu (pager); FreePager (pager); FreeStrings (strings); if (i < 0) return; ptr = AddBindingKey (key, flist [i]. name); if (ptr != (char *) 0) { Message (ptr); Bell (); } else Message ("Key bound"); } static bool CheckBinding (cond) Condition cond; { Sector nxt; Neighb neighb; switch (cond) { case OK: return True; case OCC: case OWNED: if (cursct == (Sector) 0) return False; if (! KNOW_ALL (cursct)) { Message ("You don't own that sector !"); Bell (); return False; } if (cond == OCC && s_occ (cursct) != '*') { Message ("Sector not occupied !"); Bell (); return False; } return True; case ENEM_NEXT: if (cursct == (Sector) 0) return False; if (KNOW_ALL (cursct)) { Message ("That's yours !"); Bell (); return False; } if (s_des (cursct) == '.' || s_des (cursct) == 's' || s_des (cursct) == '\\') { Message ("Sector is invulnerable"); Bell (); return False; } InitNeighbours (cursct, & neighb); while (NextNeighbour (& nxt, S_EXIST, neighb)) if (nxt != (Sector) 0 && KNOW_ALL (nxt)) return True; Message ("No owned sectors there"); Bell (); return False; case PLANE: if (s_pla (cursct) == 0) { Message ("There are no planes here !"); Bell (); return False; } return True; case SHIP: if (curship == (Ship) 0) { Message ("No current ship !"); Bell (); return False; } else if (! sh_owned (curship)) { Message ("Hee, you don't own that ship !"); Bell (); return False; } return True; case SHIPS: if (s_shi (cursct) == 0) { Message ("Should be ships in this sector !"); Bell (); return False; } return True; case ENEM_SHIP: if (last_layout != SHIP_MODE) { Message ("Current census ain't that of a ship"); Bell (); return False; } if (sh_owned (curship)) { Message ("That is your ship !"); Bell (); return False; } return True; default: Panic ("CheckBinding", "x/xbind.c", Fmt ("No such condition (%d)", (int) cond)); return False; } } void GlobalKey (pevent) XEvent *pevent; { char buffer [BUFSIZ]; KeySym keysym; XComposeStatus comp_status; int nr; char ch; if (XLookupString ( & (pevent-> xkey), buffer, BUFSIZ - 1, & keysym, & comp_status) > 0) ch = buffer [0]; else ch = '\0'; for (nr = 0; nr < nr_bindings; nr ++) { if ((bindings [nr]. keysym == NoSymbol && bindings [nr]. ch == ch) || (bindings [nr]. keysym != NoSymbol && bindings [nr]. keysym == keysym)) { if (! CheckBinding (bindings [nr]. fptr-> cond)) break; (* bindings [nr]. fptr-> proc) ( PixelToCharX (pevent-> xkey. x), PixelToCharY (pevent-> xkey. y), bindings [nr]. args); DrawSector (cursct); Census (); return; } } switch (ch) { case 'Q': DoQuit (); break; case 'B': BindKeys (PixelToCharX (pevent-> xkey. x), PixelToCharY (pevent-> xkey. y)); break; } } xemp5.1-beta/x/xevents.c100444 12266 2116 7400 6025501607 13542 0ustar jponexor/* $Header: /a/victor/nexor/user4/jpo/xemp/xemp5.0/x/RCS/xevents.c,v 5.2 1995/09/13 07:04:18 jpo Exp $ $Date: 1995/09/13 07:04:18 $ $Author: jpo $ $Id: xevents.c,v 5.2 1995/09/13 07:04:18 jpo Exp $ $Locker: $ $Log: xevents.c,v $ Revision 5.2 1995/09/13 07:04:18 jpo Call AwaitSomething to listen for flash messages etc. Revision 5.1 1993/03/14 16:35:49 etienne *** empty log message *** * Revision 5.0 93/02/06 09:26:31 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:00:52 greyhelm * Add RCS logging - Karl Hagen * */ #include #include #include #include #include "type.h" #include "main.h" #include "xextern.h" #include "sector.h" #include "census.h" extern WinInfo root_win; extern WinInfo nation_win; extern WinInfo census_win; extern WinInfo empire_win; extern WinInfo map_win; bool StandardEvent (pevent) XEvent *pevent; { char buffer [BUFSIZ]; KeySym keysym; XComposeStatus comp_status; if (ScrollEvent (pevent)) return True; if (SetInterrupt (pevent)) return True; if (PagerEvent (pevent)) return True; switch ((int) pevent-> xany. type) { case Expose: RefreshEvent (pevent); return True; case KeyPress: XLookupString (& (pevent-> xkey), buffer, BUFSIZ - 1, &keysym, &comp_status); switch ((int) keysym) { case XK_Up: ShiftField (0, -1); return True; case XK_Down: ShiftField (0, 1); return True; case XK_Right: ShiftField (1, 0); return True; case XK_Left: ShiftField (-1, 0); return True; case XK_F1: RaiseAll (); break; case XK_F2: LowerAll (); break; } return False; } return False; } void CheckRefreshEvents () { XEvent event; if (! xstarted) return; while (XCheckTypedEvent (display, Expose, & event) == True) RefreshEvent (& event); } void HandelWaitingEvents () { XEvent event; if (! xstarted) return; while (XPending (display) > 0) { XNextEvent (display, &event); (void) StandardEvent (& event); } } static void MapButton (pevent) XEvent *pevent; { int button; Sector sct; int x, y; extern Sector FindSector (); button = pevent-> xbutton. button; x = pevent-> xbutton. x; y = pevent-> xbutton. y; if (button == LEFT_BUTTON) { sct = FindSector (x, y); if (sct == (Sector) 0 || NO_INFO (sct)) return; SetCurrent (sct); return; } else if (button == MIDDLE_BUTTON) { GlobalCommands (PixelToCharX (x), PixelToCharY (y)); return; } else if (button == RIGHT_BUTTON) { sct = FindSector (x, y); if (sct == (Sector) 0 || NO_INFO (sct)) return; if (sct != cursct) SetCurrent (sct); SectorCommands (PixelToCharX (x), PixelToCharY (y)); return; } } static void EmpireButton (pevent) XEvent *pevent; { int button; button = pevent-> xbutton. button; if (button == LEFT_BUTTON) InputToEmpire (); Census (); } void MainLoop () { XEvent event; WinInfo win; for (;;) { FreeFmts (); if (XPending (display) == 0) AwaitSomething (ConnectionNumber (display)); XNextEvent (display, & event); /* since interrupt is a standard event nothing will happen * when interrupted at this level */ if (!StandardEvent (& event)) { win = EventWindow (& event); switch (event.type) { case ButtonPress: if (win == map_win) MapButton (& event); else if (win == empire_win) EmpireButton (& event); else if (win == census_win) CensusButton ( PixelToCharX (event. xbutton. x), PixelToCharY (event. xbutton. y)); break; case ConfigureNotify: break; case KeyPress: GlobalKey (& event); } } interrupt = False; } } xemp5.1-beta/x/xicons.c100444 12266 2116 12144 6023773047 13401 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/x/RCS/xicons.c,v 5.1 1993/03/14 16:35:51 etienne Exp $ $Date: 1993/03/14 16:35:51 $ $Author: etienne $ $Id: xicons.c,v 5.1 1993/03/14 16:35:51 etienne Exp $ $Locker: $ $Log: xicons.c,v $ Revision 5.1 1993/03/14 16:35:51 etienne *** empty log message *** * Revision 5.0 93/02/06 09:26:31 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:00:52 greyhelm * Add RCS logging - Karl Hagen * */ /* * Emptool * * Written by Hj Visscher. * * InitIcons () * Create all pixmaps and cursors needed. * */ #include #include #include "type.h" #include "main.h" #include "xextern.h" extern bool reversed; /* include other icons */ #include "arrows.h" #include "distr.h" #include "hjv.h" #include "map.h" #include "menu.h" #include "scroll.h" #include "busy.h" #include "icon.h" #include "smiley.h" /* Pixmaps of cursors which must not be changed */ static Pixmap pm_arrows; static Pixmap pm_distr; static Pixmap pm_hjv; static Pixmap pm_map; static Pixmap pm_menu; static Pixmap pm_busy; static Pixmap pm_smiley; static Pixmap pm_scroll; static Pixmap pm_scrollmask; Pixmap pm_icon; Cursor cr_arrows; Cursor cr_distr; Cursor cr_hjv; Cursor cr_map; Cursor cr_menu; Cursor cr_scroll; Cursor cr_busy; Cursor cr_smiley; void InitIcons () { pm_distr = XCreateBitmapFromData ( display, root_window, distr_bits, distr_width, distr_height); pm_arrows = XCreateBitmapFromData ( display, root_window, arrows_bits, arrows_width, arrows_height); pm_hjv = XCreateBitmapFromData ( display, root_window, hjv_bits, hjv_width, hjv_height); pm_map = XCreateBitmapFromData ( display, root_window, map_bits, map_width, map_height); pm_menu = XCreateBitmapFromData ( display, root_window, menu_bits, menu_width, menu_height); pm_smiley = XCreateBitmapFromData ( display, root_window, smiley_bits, smiley_width, smiley_height); pm_busy = XCreateBitmapFromData ( display, root_window, busy_bits, busy_width, busy_height); pm_scroll = XCreateBitmapFromData ( display, root_window, scroll_bits, scroll_width, scroll_height); pm_scrollmask = XCreateBitmapFromData ( display, root_window, scroll_mask, scroll_width, scroll_height); pm_icon = XCreateBitmapFromData ( display, root_window, icon_bits, icon_width, icon_height); cr_arrows = XCreatePixmapCursor ( display, pm_arrows, pm_arrows, reversed ? & white_color : & black_color, reversed ? & black_color : & white_color, arrows_x_hot, arrows_y_hot); cr_distr = XCreatePixmapCursor ( display, pm_distr, pm_distr, reversed ? & white_color : & black_color, reversed ? & black_color : & white_color, distr_x_hot, distr_y_hot); cr_hjv = XCreatePixmapCursor ( display, pm_hjv, pm_hjv, reversed ? & white_color : & black_color, reversed ? & black_color : & white_color, hjv_x_hot, hjv_y_hot); cr_map = XCreatePixmapCursor ( display, pm_map, pm_map, reversed ? & white_color : & black_color, reversed ? & black_color : & white_color, map_x_hot, map_y_hot); cr_busy = XCreatePixmapCursor ( display, pm_busy, pm_busy, reversed ? & white_color : & black_color, reversed ? & black_color : & white_color, busy_x_hot, busy_y_hot); cr_smiley = XCreatePixmapCursor ( display, pm_smiley, pm_smiley, reversed ? & black_color : & white_color, reversed ? & white_color : & black_color, smiley_x_hot, smiley_y_hot); cr_menu = XCreatePixmapCursor ( display, pm_menu, pm_menu, reversed ? & black_color : & white_color, reversed ? & white_color : & black_color, menu_x_hot, menu_y_hot); cr_scroll = XCreatePixmapCursor ( display, pm_scroll, pm_scrollmask, reversed ? & black_color : & white_color, reversed ? & white_color : & black_color, scroll_x_hot, scroll_y_hot); } void SetDefaultCursor (win, type) WinInfo win; int type; { switch (type) { case CR_ARROWS: SetCursor (win, cr_arrows); return; case CR_HJV: SetCursor (win, cr_hjv); return; case CR_MAP: SetCursor (win, cr_map); return; case CR_MENU: SetCursor (win, cr_menu); return; case CR_DISTR: SetCursor (win, cr_distr); return; case CR_SMILEY: SetCursor (win, cr_smiley); return; default: fprintf (stderr, "SetDefaultCursor, Illegal type\n"); leave (); } } void ReverseCursor (type, reverse) int type; bool reverse; { Cursor cursor; switch (type) { case CR_ARROWS: { cursor = cr_arrows; break; } case CR_HJV: { cursor = cr_hjv; break; } case CR_MAP: { cursor = cr_map; break; } case CR_MENU: { cursor = cr_menu; break; } case CR_DISTR: { cursor = cr_distr; break; } case CR_SMILEY: { cursor = cr_smiley; break; } default: fprintf (stderr, "ReverseCursor, Illegal type\n"); leave (); } XRecolorCursor (display, cursor, reverse ? &white_color : &black_color, reverse ? &black_color : &white_color); } void SetScrollbarCursor (window) Drawable window; { XDefineCursor (display, window, cr_scroll); } xemp5.1-beta/x/xinit.c100644 12266 2116 15507 6041646035 13235 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/x/RCS/xinit.c,v 5.3 1995/10/09 06:42:50 jpo Exp jpo $ $Date: 1995/10/09 06:42:50 $ $Author: jpo $ $Id: xinit.c,v 5.3 1995/10/09 06:42:50 jpo Exp jpo $ $Locker: jpo $ $Log: xinit.c,v $ Revision 5.3 1995/10/09 06:42:50 jpo FIxed up X fatal error handler Revision 5.2 1995/09/08 07:51:28 jpo touch up free font info too * Revision 5.1 93/03/14 16:35:52 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:26:31 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:00:52 greyhelm * Add RCS logging - Karl Hagen * */ /* * Emptool * * Written by HJ. Visscher. * * void InitX () * Initilizes X: opens display, get colors, etc. * * void QuitX () * Closes the connection to the X-server. */ #define FONT_DEFAULT "9x15" #define FONT_BOLD "9x15bold" #define FONT_SMALL "6x10" #include #include #include "type.h" #include "main.h" /* Here are the variables from xextern.h */ bool xstarted = False; Display *display; int screen, depth; Window root_window; GC gc_normal; GC gc_bold; GC gc_inv_normal; GC gc_inv_bold; GC gc_copy; GC gc_small; GC gc_inv_copy; GC gc_inv_small; GC gc_xor; XColor white_color, black_color; unsigned long black_pixel, white_pixel; int CHAR_HEIGHT, CHAR_WIDTH, CHAR_ASC; void InitX (font, bfont) const char *font, *bfont; { XColor tmp; XFontStruct *normal_fs, *bold_fs, *small_fs; XGCValues gc_values; unsigned long gc_mask; /* Establish connection with the X-server */ if ( (display = XOpenDisplay ((char *) 0)) == (Display *) 0) { (void) fprintf (stderr, "Can't open display (%s)\n", XDisplayName ((char *) 0)); leave (); } screen = DefaultScreen (display); depth = DefaultDepth (display, screen); root_window = RootWindow (display, screen); /* Get the colors */ (void) XLookupColor (display, DefaultColormap (display, screen), "white", & white_color, & tmp); (void) XLookupColor (display, DefaultColormap (display, screen), "black", & black_color, & tmp); black_pixel = BlackPixel (display, screen); white_pixel = WhitePixel (display, screen); /* Load fonts */ normal_fs = XLoadQueryFont (display, (font == (char *) 0) ? FONT_DEFAULT : font); if (normal_fs == (XFontStruct *) 0) { (void) fprintf (stderr, "Can't open font: %s\n", (font == (char *) 0) ? FONT_DEFAULT: font); XCloseDisplay (display); leave (); } bold_fs = XLoadQueryFont (display, (bfont == (char *) 0) ? FONT_BOLD : bfont); if (bold_fs == (XFontStruct *) 0) { (void) fprintf (stderr, "Can't open font: %s\n", (bfont == (char *) 0) ? FONT_BOLD: bfont); XCloseDisplay (display); leave (); } small_fs = XLoadQueryFont (display, FONT_SMALL); if (small_fs == (XFontStruct *) 0) { (void) fprintf (stderr, "Can't open (small) font: %s\n", FONT_SMALL); (void) fprintf (stderr, "When not available, change in xinit.c\n"); XCloseDisplay (display); leave (); } /* Get sizes and check for same size */ CHAR_ASC = normal_fs -> ascent; CHAR_HEIGHT = normal_fs -> ascent + normal_fs -> descent; CHAR_WIDTH = XTextWidth (normal_fs, "A", 1); if (CHAR_WIDTH != XTextWidth (bold_fs, "i", 1) || CHAR_HEIGHT != bold_fs -> ascent + bold_fs -> descent) (void) fprintf (stderr, "warning: fonts have different sizes!\n"); /* Create all gc's */ gc_mask = (GCFunction | GCForeground | GCBackground | GCFont); /* back_pixel: 0 -> xterm, 1 -> sun */ /* gc_small is only used to draw pixmap's into pixmap's */ /* fprintf(stderr, "Black pixel %d\n", black_pixel); fprintf(stderr, "White pixel %d\n", white_pixel); */ if (black_pixel == 0L) { gc_values. foreground = white_pixel; gc_values. background = black_pixel; gc_values. function = GXcopyInverted; } else { gc_values. foreground = black_pixel; gc_values. background = white_pixel; gc_values. function = GXcopy; } gc_values. font = small_fs -> fid; gc_small = XCreateGC (display, root_window, gc_mask, &gc_values); if (black_pixel == 0L) { gc_values. foreground = black_pixel; gc_values. background = white_pixel; gc_values. function = GXcopy; } else { gc_values. foreground = white_pixel; gc_values. background = black_pixel; gc_values. function = GXcopyInverted; } gc_inv_small = XCreateGC (display, root_window, gc_mask, &gc_values); /* normal fonts */ gc_values. foreground = reversed ? white_pixel : black_pixel; gc_values. background = reversed ? black_pixel : white_pixel; gc_values. font = normal_fs-> fid; gc_values. function = GXcopy; gc_normal = XCreateGC (display, root_window, gc_mask, &gc_values); gc_values. font = bold_fs-> fid; gc_bold = XCreateGC (display, root_window, gc_mask, &gc_values); /* inverted fonts */ gc_values. foreground = reversed ? black_pixel : white_pixel; gc_values. background = reversed ? white_pixel : black_pixel; gc_inv_bold = XCreateGC (display, root_window, gc_mask, &gc_values); gc_values. font = normal_fs-> fid; gc_inv_normal = XCreateGC (display, root_window, gc_mask, &gc_values); /* to copy the pixmap */ gc_values. foreground = black_pixel; gc_values. background = white_pixel; gc_values. function = GXcopy; gc_copy = XCreateGC (display, root_window, gc_mask, &gc_values); gc_values. foreground = white_pixel; gc_values. background = black_pixel; gc_values. function = GXcopy/*Inverted*/; gc_inv_copy = XCreateGC (display, root_window, gc_mask, &gc_values); gc_values. foreground = black_pixel; gc_values. background = white_pixel; gc_values. function = GXxor; gc_xor = XCreateGC (display, root_window, gc_mask, &gc_values); xstarted = True; XSetErrorHandler (OurErrorHandler); XSetIOErrorHandler (OurFatalErrorHandler); XFreeFontInfo (NULL, normal_fs, 1); XFreeFontInfo (NULL, bold_fs, 1); XFreeFontInfo (NULL, small_fs, 1); } void QuitX () { if (xstarted) XCloseDisplay (display); } void Refresh () { if (xstarted) XFlush (display); } void WaitRefresh (discard) bool discard; { XSync (display, discard); } int CharToPixelX (x) int x; { return x * CHAR_WIDTH; } int CharToPixelY (y) int y; { return y * CHAR_HEIGHT; } int CharToPixelYB (y) int y; { return y * CHAR_HEIGHT + CHAR_ASC; } int PixelToCharX (x) int x; { return x / CHAR_WIDTH; } int PixelToCharY (y) int y; { return y / CHAR_HEIGHT; } int PixelToCharYB (y) int y; { return (y - CHAR_ASC) / CHAR_HEIGHT; } int OurErrorHandler (display, event) Display * display; XErrorEvent * event; { char buf [101]; XGetErrorText (display, event-> error_code, buf, 100); fprintf (stderr, "\007X error: %s\n", buf); return 0; } int OurFatalErrorHandler (display) Display * display; { extern bool dump_core; fprintf (stderr, "Fatal X error ... exiting.\n"); save_data = True; dump_core = False; leave0 (); } xemp5.1-beta/x/xmisc.c100444 12266 2116 6157 6023773047 13210 0ustar jponexor/* $Header: /nexor/users/jpo/xemp/xemp5.0/x/RCS/xmisc.c,v 5.1 1993/03/14 16:35:53 etienne Exp $ $Date: 1993/03/14 16:35:53 $ $Author: etienne $ $Id: xmisc.c,v 5.1 1993/03/14 16:35:53 etienne Exp $ $Locker: $ $Log: xmisc.c,v $ Revision 5.1 1993/03/14 16:35:53 etienne *** empty log message *** * Revision 5.0 93/02/06 09:26:31 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:00:52 greyhelm * Add RCS logging - Karl Hagen * */ #include #include #include #include #include "type.h" #include "xextern.h" #include "main.h" #include "sector.h" #include "nation.h" bool SelButtonAtWin (win, x, y, button) WinInfo win; int * x, * y, * button; { XEvent event; for (;;) { XNextEvent (display, &event); if (StandardEvent (& event)) { if (interrupt) { interrupt = False; return False; } continue; } switch (event. type) { case ButtonPress: if (EventWindow (& event) != win) return False; if (button != (int *) 0) *button = event. xbutton. button; if (x != (int *) 0) * x = PixelToCharX (event. xbutton. x); if (y != (int *) 0) * y = PixelToCharY (event. xbutton. y); return True; } } } Sector SelectSector (button) int * button; { Sector sct; int x, y; sct = (Sector) 0; do { if (SelectSctCrd (& x, & y, button)) sct = World (x, y, S_EXIST); } while (sct == (Sector) 0); return sct; } bool SelectSctCrd (x, y, button) int *x, *y; int *button; { XEvent event; for (;;) { XNextEvent (display, &event); if (StandardEvent (& event)) { if (interrupt) { * x = 0; * y = 0; return False; } continue; } switch (event. type) { case ButtonPress: if (EventWindow (&event) != map_win) continue; * x = event. xbutton. x; * y = event. xbutton. y; if (! ConvertToSctCrd (x, y)) continue; if (button != (int *) 0) *button = event. xbutton. button; return True; } } } void WaitButtonPress (button) int *button; { XEvent event; if (! xstarted) return; for (;;) { XNextEvent (display, &event); if (StandardEvent (& event)) { if (interrupt) return; continue; } switch (event. type) { case ButtonPress: if (button != (int *) 0) *button = event. xbutton. button; return; } } } void Pause () { XEvent event; if (! xstarted) return; for (;;) { XNextEvent (display, &event); if (StandardEvent (& event)) { if (interrupt) return; continue; } if (event. type == ButtonPress || event. type == KeyPress) return; } } bool interrupt = False; bool SetInterrupt (pevent) XEvent *pevent; { KeySym keysym; XComposeStatus comp_status; char buffer [BUFSIZ]; extern char intrchar; if (pevent-> type == KeyPress) { if (XLookupString (& (pevent-> xkey), buffer, BUFSIZ - 1, &keysym, &comp_status) == 0) return False; if (buffer[0] == intrchar) { interrupt = True; return True; } } return False; } xemp5.1-beta/x/.pure100644 12266 2116 0 6011604612 12560 0ustar jponexorxemp5.1-beta/x/xwindow.c100444 12266 2116 66533 6043205532 13577 0ustar jponexor/* $Header: /a/victor/nexor/user4/jpo/xemp/xemp5.0/x/RCS/xwindow.c,v 5.3 1995/10/24 15:50:48 jpo Exp $ $Date: 1995/10/24 15:50:48 $ $Author: jpo $ $Id: xwindow.c,v 5.3 1995/10/24 15:50:48 jpo Exp $ $Locker: $ $Log: xwindow.c,v $ Revision 5.3 1995/10/24 15:50:48 jpo Changed the way InitIcons works Revision 5.2 1995/09/08 07:51:45 jpo const * Revision 5.1 93/03/14 16:35:54 etienne * *** empty log message *** * * Revision 5.0 93/02/06 09:26:31 greyhelm * Fixed backward compatabilty with Merc/KSU * Changed MOTD to show new version and authors * * Revision 4.4 1993/02/06 04:00:52 greyhelm * Add RCS logging - Karl Hagen * */ /* * Emptool * * Written by Hj Visscher. * * OpenWindow (WinInfo from, x, y, width, height, base, popup) * Opens a new window at window x, y. If it's a popup * window, the color's will be reversed, the save_under * flag will be set and it will be added to the list. * It retuns a pointer to a (new allocated) structure, * which must be used by all drawing operations. If base * equals CHARS (<-> PIXELS) the coordinates are converted * to pixels. * * DestroyWindow (WinInfo win) * Frees all resources used by the window, destroyes it * and removes it from the list. * * SelectEvents (WinInfo win, events) * Set the events for the window in win. * * SetCursor (WinInfo win, Cursor cursor) * Defines the cursor for the window of win. * * BusyCursor () * Set cursor in all windows to the busy_cursor. Also * disables all events. * * ResetCursor () * Reset all cursors. Reset all events. */ #include #include #include #include #include "type.h" #include "xextern.h" #include "main.h" #include "sector.h" #include "xemp_icon.h" struct region { int low_x, low_y, high_x, high_y; int width, height; }; char windowname[BUFSIZ]; struct s_wininfo { Window window; Window scrollwindow; Pixmap pixmap; GC normal_gc; GC bold_gc; GC rev_gc; Cursor cursor; unsigned long events; int menuflag; int pixsavelines; /* in pixels */ int charsavelines; /* in chars */ int curline; /* in pixels, only defined when savelines > 0 */ double mult; int base; /* currently in pixel or char mode */ struct region pix_dim; struct region char_dim; struct region scroll; struct s_wininfo *next; }; static WinInfo first_window = (WinInfo) 0; static const char * window_name; extern Cursor cr_busy; /* from xicons.c */ #define SCROLLBAR_WIDTH CharToPixelX (1) void InitXIcon(w) WinInfo w; { XWMHints wmhints; bzero ((char *)&wmhints, sizeof wmhints); wmhints.flags = IconPixmapHint; wmhints.icon_pixmap = XCreateBitmapFromData(display, w->window, xemp_icon_bits, 64, 48); XSetWMHints(display, w->window, &wmhints); } static void DrawScrollBar (win) WinInfo win; { int height_marked, start_marked; if (win-> pixsavelines <= 0) return; height_marked = (int) (win-> mult * win-> pix_dim.height); start_marked = (int) (win-> mult * win-> curline); /* clear-window */ XFillRectangle ( display, win-> scrollwindow, XOR (win-> menuflag == MENU, reversed)?gc_normal:gc_inv_normal, 1, 0, SCROLLBAR_WIDTH - 2, win-> pix_dim.height); /* fill part */ XFillRectangle ( display, win-> scrollwindow, XOR (win-> menuflag == MENU, reversed)?gc_inv_normal:gc_normal, 1, start_marked, SCROLLBAR_WIDTH - 2, height_marked + 1); } void ClearWindow (win) WinInfo win; { XFillRectangle ( display, win-> pixmap, XOR (win-> menuflag == MENU, reversed)?gc_normal:gc_inv_normal, 0, 0, win-> pix_dim.width, win-> pix_dim.height + win-> pixsavelines); } WinInfo OpenBaseWindow (x, y, width, height) int x, y; int width, height; { WinInfo base; /* * initialize the X-server with the fonts (normal & bold) */ InitIcons (); base = OpenWindow ((WinInfo) 0, x, y, width, height, CHARS, FIXED, 0); InitXIcon (base); return base; } WinInfo OpenWindow (from, x, y, width, height, base, menuflag, savelines) WinInfo from; int x, y, width, height; int menuflag, base; { WinInfo new; Window parent; XSizeHints hints; XWMHints wmhints; int addx, addy, pixx, pixy, pixwidth, pixheight, pixsavelines; int bwidth; bool wm, adjust_pos; adjust_pos = True; wm = False; if (menuflag == WM_MENU) { wm = True; menuflag = MENU; } else if (menuflag == SUBWINDOW) { adjust_pos = False; menuflag = MENU; } new = (WinInfo) doalloc ((unsigned) sizeof (struct s_wininfo)); if (base == CHARS) { new-> charsavelines = savelines; new-> pixsavelines = pixsavelines = CharToPixelY (savelines); pixx = CharToPixelX (x); pixy = CharToPixelY (y); pixwidth = CharToPixelX (width); pixheight = CharToPixelY (height); } else { new-> pixsavelines = pixsavelines = savelines; new-> charsavelines = savelines = PixelToCharY (savelines); pixx = x; pixy = y; pixwidth = width; pixheight = height; x = PixelToCharX (x); y = PixelToCharY (y); width = PixelToCharX (width); height = PixelToCharY (height); } /* Check if the window is visible */ parent = (from == (WinInfo) 0 || wm) ? root_window : from -> window; if (menuflag == MENU && ! wm && adjust_pos) { XGetNormalHints (display, root_win-> window, &hints); if (pixx + pixwidth > hints. width) pixx = hints. width - pixwidth - 20; if (pixy + pixheight > hints. height) pixy = hints. height - pixheight - 20; } new-> base = base; new-> cursor = None; new-> menuflag = menuflag; new-> curline = new-> pixsavelines; new-> char_dim.low_x = PixelToCharX (pixx); new-> char_dim.low_y = PixelToCharY (pixy); new-> char_dim.high_x = x + width; new-> char_dim.high_y = y + height; new-> char_dim.width = width; new-> char_dim.height = height; new-> pix_dim.low_x = pixx; new-> pix_dim.low_y = pixy; new-> pix_dim.high_x = pixx + pixwidth; new-> pix_dim.high_y = pixy + pixheight; new-> pix_dim.width = pixwidth; new-> pix_dim.height = pixheight; if (base == CHARS) SetScrollRegion (new, 0, 0, width - 1, height + savelines - 1); else SetScrollRegion (new, 0, 0, pixwidth - 1, pixheight + pixsavelines - 1); if (first_window == (WinInfo) 0) new-> next = (WinInfo) 0; else new-> next = first_window; first_window = new; addx = CharToPixelX (1) / 2; addy = CharToPixelY (1) / 2; bwidth = (menuflag == MENU ? 1 : BORDER_WIDTH), new-> window = XCreateSimpleWindow ( display, parent, (savelines > 0 ? pixx + SCROLLBAR_WIDTH + bwidth : pixx) + addx, pixy + addy, pixwidth - (savelines > 0 ? 2 * bwidth : 0), pixheight, bwidth, XOR (menuflag == FIXED, reversed) ? black_pixel : white_pixel, XOR (menuflag == FIXED, reversed) ? white_pixel : black_pixel); XSelectInput (display, new-> window, ExposureMask | KeyPressMask | ButtonPressMask); new-> events = ExposureMask | KeyPressMask | ButtonPressMask; bzero ((char *)&wmhints, sizeof wmhints); wmhints. input = True; wmhints. flags = InputHint; XSetWMHints (display, new-> window, & wmhints); bzero ((char *)&hints, sizeof hints); hints. flags = wm ? PSize : PPosition | PSize; hints. x = pixx; hints. y = pixy; hints. width = pixwidth; hints. height = pixheight; if (from == (WinInfo) 0 || wm) { extern Pixmap pm_icon; /* xicons.c */ if (wm) XSetStandardProperties (display, new-> window, window_name, window_name, pm_icon, (char **) 0, 0, & hints); else XSetStandardProperties (display, new-> window, windowname, windowname, pm_icon, (char **) 0, 0, & hints); } else { XSetNormalHints (display, new-> window, & hints); } new-> pixmap = XCreatePixmap ( display, parent, pixwidth + (savelines > 0 ? 2 * bwidth : 0), pixheight + pixsavelines, depth); /* create scrollbar */ if (savelines > 0) { new-> scrollwindow = XCreateSimpleWindow ( display, parent, pixx + addx, pixy + addy, SCROLLBAR_WIDTH, pixheight, bwidth, XOR (menuflag == FIXED, reversed) ? black_pixel : white_pixel, XOR (menuflag == FIXED, reversed) ? white_pixel : black_pixel); XSelectInput (display, new-> scrollwindow, ExposureMask | Button2MotionMask | ButtonReleaseMask | ButtonPressMask); XMapWindow (display, new-> scrollwindow); SetScrollbarCursor (new-> scrollwindow); new-> mult = (double) ((double) pixheight / (double) (pixsavelines + pixheight)); } else { new-> mult = 0.0; new-> scrollwindow = (Drawable) 0; } ClearWindow (new); new-> normal_gc = (menuflag == MENU) ? gc_inv_normal : gc_normal; new-> rev_gc = (menuflag == MENU) ? gc_normal : gc_inv_normal; new-> bold_gc = (menuflag == MENU) ? gc_inv_bold : gc_bold; XMapWindow (display, new-> window); return new; } void ChangeWindowBase (win, base) WinInfo win; int base; { win-> base = base; } /* * amount < 0 ==> scroll down * amount > 0 ==> scroll up * * Test is made if 'win' has a savebuffer * and if window can still scroll (that many pixels !) */ bool ScrollEvent (pevent) XEvent *pevent; { WinInfo win, found; int button; bool cont; int newcurline; found = (WinInfo) 0; for (win = first_window; win != (WinInfo) 0; win = win-> next) if (win-> scrollwindow == pevent-> xany. window) found = win; if (found == (WinInfo) 0) return False; if (pevent-> xany. type != ButtonPress) return False; win = found; cont = True; do { newcurline = win-> curline; for (;;) { switch (pevent-> xany. type) { case Expose: RefreshEvent (pevent); break; case MotionNotify: newcurline = (int) ((double) pevent-> xbutton. y / win-> mult); break; case ButtonRelease: cont = False; break; case ButtonPress: if (pevent-> xany. window != win-> scrollwindow) break; button = pevent-> xbutton. button; if (button == RIGHT_BUTTON) { newcurline = win-> curline - pevent-> xbutton. y; cont = False; } else if (button == LEFT_BUTTON) { newcurline = win-> curline + pevent-> xbutton. y; cont = False; } else { newcurline = (int) ((double) pevent-> xbutton. y / win-> mult); } break; } if (cont && XEventsQueued (display, QueuedAlready) > 0) XNextEvent (display, pevent); else break; } if (win-> base == CHARS) newcurline = CharToPixelY (PixelToCharY (newcurline + CharToPixelY (1)/2)); if (newcurline < 0) newcurline = 0; else if (newcurline > win-> pixsavelines) newcurline = win-> pixsavelines; if (newcurline != win-> curline) { win-> curline = newcurline; DrawScrollBar (win); FlushWindow (win); WaitRefresh (False); } if (cont) XNextEvent (display, pevent); } while (cont); return True; } void DestroyWindow (win) WinInfo win; { WinInfo prev, curr; int found; prev = (WinInfo) 0; curr = first_window; found = False; while (! found && curr != (WinInfo) 0) if (curr == win) { found = True; if (prev == (WinInfo) 0) first_window = win -> next; else prev-> next = win -> next; } else { prev = curr; curr = curr-> next; } if (! found) { (void) fprintf (stderr, "DestroyWindow, error: wininfo not found\n"); leave (); } XDestroyWindow (display, win-> window); XFreePixmap (display, win-> pixmap); (void) free ((char *) win); } /* WinInfo XFindWindow (Window win) * Finds the WinInfo structure of win. */ static WinInfo FindWindow (window) Window window; { WinInfo win; for (win = first_window; win != (WinInfo) 0; win = win-> next) if (win-> window == window) return win; return (WinInfo) 0; } WinInfo EventWindow (event) XEvent *event; { return FindWindow (event-> xany. window); } void SelectEvents (win, events) WinInfo win; unsigned long events; { win-> events = events; XSelectInput (display, win-> window, events); } void SetCursor (win, cursor) WinInfo win; Cursor cursor; { win-> cursor = cursor; XDefineCursor (display, win-> window, cursor); } void BusyCursor () { register WinInfo ptr; if (! xstarted) return; for (ptr = first_window; ptr != (WinInfo) 0; ptr = ptr-> next) { XDefineCursor (display, ptr-> window, cr_busy); /* XSelectInput (display, ptr-> window, ExposureMask); */ } Refresh (); } void ResetCursor () { register WinInfo ptr; if (! xstarted) return; for (ptr = first_window; ptr != (WinInfo) 0; ptr = ptr-> next) { XDefineCursor (display, ptr-> window, ptr-> cursor); /* XSelectInput (display, ptr-> window, ptr-> events); */ } Refresh (); } /* * RefreshWindow (Wininfo win, x, y, width, height) * Draws the given area at the window (from the pixmap). */ static void RefreshWindow (win, x, y, width, height) WinInfo win; int x, y, width, height; { XCopyArea ( display, win-> pixmap, win-> window, gc_copy, x, y + win-> curline, width, height, x, y); Refresh (); } void RefreshEvent (event) XEvent *event; { WinInfo win; if ((win = FindWindow (event-> xany. window)) == (WinInfo) 0) return; RefreshWindow ( win, event-> xexpose. x, event-> xexpose. y, event-> xexpose. width, event-> xexpose. height); DrawScrollBar (win); } void PrintMarkedAtPixmap (win, x, y, text, mode) WinInfo win; int x, y; const char * text; int mode; { XDrawImageString ( display, win-> pixmap, mode == NORMAL ? win-> normal_gc : win-> bold_gc, CharToPixelX (x), CharToPixelYB (y), text, strlen (text)); XDrawRectangle ( display, win-> pixmap, win-> normal_gc, CharToPixelX (x), CharToPixelY (y), CharToPixelX (strlen (text)) - 1, CharToPixelY (1) - 1); } void PrintAtPixmapN (win, x, y, text) WinInfo win; int x, y; const char *text; { XDrawImageString ( display, win-> pixmap, win-> normal_gc, CharToPixelX (x), CharToPixelYB (y), text, strlen (text)); } void PrintAtPixmapB (win, x, y, text) WinInfo win; int x, y; const char *text; { XDrawImageString ( display, win-> pixmap, win-> bold_gc, CharToPixelX (x), CharToPixelYB (y), text, strlen (text)); } int GetPixmapPosY (win, y) WinInfo win; int y; { return PixelToCharY (y + win-> curline); } /* ARGSUSED */ int GetPixmapPosX (win, x) WinInfo win; int x; { return PixelToCharX (x); } void ClearLine (win, y) WinInfo win; int y; { Print (win, 0, y, Fmt ("%*s", win-> char_dim.width, ""), NORMAL); } void Print (win, x, y, text, mode) WinInfo win; int x,y; const char *text; int mode; { if (! xstarted) return; win-> curline = win-> pixsavelines; XDrawImageString ( display, win-> pixmap, mode == NORMAL ? win-> normal_gc : mode == REVERSED ? win-> rev_gc : win-> bold_gc, CharToPixelX (x), CharToPixelYB (y) + win-> pixsavelines, text, strlen (text)); } void SetToBot (win) WinInfo win; { win-> curline = win-> pixsavelines; } void SetToTop (win) WinInfo win; { win-> curline = 0; } void PrintB (win, x, y, text) WinInfo win; int x,y; const char *text; { Print (win, x, y, text, BOLD); } void PrintN (win, x, y, text) WinInfo win; int x,y; const char *text; { Print (win, x, y, text, NORMAL); } void PrintR (win, x, y, text) WinInfo win; int x, y; const char * text; { if (bold_is_reversed) Print (win, x, y, text, REVERSED); else Print (win, x, y, text, BOLD); } void ReverseWindow (win) WinInfo win; { if (! xstarted) return; XCopyArea ( display, win-> pixmap, win-> window, gc_inv_copy, 0, win-> curline, win-> pix_dim.width, win-> pix_dim.height, 0, 0); DrawScrollBar (win); Refresh (); } void FlushWindow (win) WinInfo win; { if (! xstarted) return; XCopyArea ( display, win-> pixmap, win-> window, gc_copy, 0, win-> curline, win-> pix_dim.width, win-> pix_dim.height, 0, 0); DrawScrollBar (win); Refresh (); } void DrawRect (win, x, y, width, height) WinInfo win; int x, y, width, height; { win-> curline = win-> pixsavelines; XDrawRectangle ( display, win-> pixmap, win-> normal_gc, x, y + win-> pixsavelines, width, height); } void PrintPixmap (win, x, y, pixmap) WinInfo win; int x, y; Pixmap pixmap; { win-> curline = win-> pixsavelines; XCopyArea ( display, pixmap, win-> pixmap, reversed ? gc_inv_small : gc_small, 0, 0, DESPIX_WIDTH, DESPIX_HEIGHT, x, y + win-> pixsavelines); } void PrintMarked (win, x, y, text, mode) WinInfo win; int x, y; const char *text; int mode; { Print (win, x, y, text, mode); DrawRect (win, CharToPixelX (x), CharToPixelY (y), CharToPixelX (strlen (text)) - 1, CharToPixelY (1) - 1); } void Line (win, sx, sy, ex, ey) WinInfo win; int sx, sy, ex, ey; { win-> curline = win-> pixsavelines; XDrawLine ( display, win-> pixmap, win-> normal_gc, sx, sy + win-> pixsavelines, ex, ey + win-> pixsavelines); } void DrawHorizontal (win, pos) WinInfo win; int pos; { int y; y = CharToPixelY (pos) + CharToPixelY (1) / 2; Line (win, 0, y - 3, win-> pix_dim.width, y - 3); Line (win, 0, y - 2, win-> pix_dim.width, y - 2); Line (win, 0, y, win-> pix_dim.width, y); Line (win, 0, y + 2, win-> pix_dim.width, y + 2); Line (win, 0, y + 3, win-> pix_dim.width, y + 3); } void SetScrollRegion (win, startx, starty, endx, endy) WinInfo win; int startx, starty, endx, endy; { win-> scroll.width = endx - startx + 1; win-> scroll.height = endy - starty + 1; if (win-> base == CHARS) { win-> scroll.low_x = CharToPixelX (startx); win-> scroll.low_y = CharToPixelY (starty); win-> scroll.high_x = CharToPixelX (endx); win-> scroll.high_y = CharToPixelY (endy); win-> scroll.width = CharToPixelX (win-> scroll.width); win-> scroll.height = CharToPixelY (win-> scroll.height); } else { win-> scroll.low_x = startx; win-> scroll.low_y = starty; win-> scroll.high_x = endx; win-> scroll.high_y = endy; } } void Scroll (win, lines) WinInfo win; int lines; { int fromy, toy; struct region *scr; scr = &win-> scroll; if (! xstarted) return; win-> curline = win-> pixsavelines; if (win-> base == CHARS) lines = CharToPixelY (lines); if (lines < 0) { fromy = scr->low_y; toy = scr->low_y + -lines; } else { fromy = scr->low_y + lines; toy = scr->low_y; } XCopyArea ( display, win-> pixmap, win-> pixmap, gc_copy, scr-> low_x, fromy, scr-> width, scr-> height - ABS(lines), scr-> low_x, toy); if (win-> base == CHARS) toy = scr-> high_y - lines + CharToPixelY (1); else toy = scr-> high_y - lines + 1; XFillRectangle ( display, win-> pixmap, XOR (win-> menuflag == MENU, reversed)?gc_normal:gc_inv_normal, scr-> low_x, lines > 0 ? toy : scr-> low_y, scr-> width, ABS (lines)); } void ScrollHorz (win, cols) WinInfo win; int cols; { int fromx, tox; struct region *scr; scr = &win-> scroll; if (win-> base == CHARS) cols = CharToPixelX (cols); if (cols < 0) { fromx = scr->low_x; tox = scr->low_x + -cols; } else { fromx = scr->low_x + cols; tox = scr->low_x; } XCopyArea ( display, win-> pixmap, win-> pixmap, gc_copy, fromx, scr->low_y, scr->width - ABS(cols), scr->height, tox, scr->low_y); if (win-> base == CHARS) tox = scr-> high_x - cols + CharToPixelX (1); else tox = scr-> high_x - cols + 1; XFillRectangle ( display, win-> pixmap, XOR (win-> menuflag == MENU, reversed)?gc_normal:gc_inv_normal, cols > 0 ? tox : scr->low_x, scr->low_y, ABS (cols), scr-> height); } char * GetString (win, x, y, maxlen, form) WinInfo win; int x, y, maxlen; const char * form; { extern char erasechar, eraseword, eraseline, intrchar; int len = 0; static char ret [BUFSIZ]; XEvent event; Sector sct; char *ptr; int cont; char ch; char buffer [BUFSIZ]; KeySym keysym; XComposeStatus comp_status; extern WinInfo map_win; if (maxlen + x > win-> char_dim.width) maxlen = win-> char_dim.width - x; cont = True; Print (win, x, y, "_", BOLD); FlushWindow (win); *ret = '\0'; while (cont) { XNextEvent (display, &event); if (StandardEvent (& event)) { if (interrupt) { *ret = '\0'; cont = False; } continue; } switch (event. type) { case KeyPress: if (XLookupString ( & (event. xkey), buffer, BUFSIZ - 1, &keysym, &comp_status) == 0) break; ch = buffer [0]; if (ch == erasechar) { if (len != 0) { len --; ret [ len ] = '\0'; PrintB (win, x, y, Fmt ("%s_ ", ret)); } break; } cont = (keysym != XK_Return && keysym != XK_KP_Enter && keysym != XK_Escape); if (!cont) break; if (ch == eraseword) { int j; j = len; while (j > 0 && isspace (ret [--j])) ret [j] = '\0'; while (j > 0 && !isspace (ret [--j])) ret [j] = '\0'; if (j > 0) j++; if (j == len) break; PrintN (win, x, y, Fmt ("%*s ", maxlen, "")); len = j; break; } else if (ch == eraseline) { len = 0; ret [len] = '\0'; PrintN (win, x, y, Fmt ("%*s ", maxlen, "")); break; } else if (CharInFormat (ch, form) && len < maxlen) { ret [len] = ch; ret [++ len] = '\0'; } break; case ButtonPress: if (EventWindow (& event) == map_win) sct = FindSector (event. xbutton. x, event. xbutton. y); else sct = (Sector) 0; switch (event. xbutton. button) { case LEFT_BUTTON: if (sct == (Sector) 0 || NO_INFO (sct)) break; CensusSct (sct); break; /* * case MIDDLE_BUTTON: * if (! CharInFormat (',', form)) * break; * if (sct == (Sector) 0 || NO_INFO (sct)) * break; * if (sct != cursct && ! Adjacent (sct, cursct)) * break; * * if (sct == cursct) * { * ret [len ++] = 'h'; * ret [len ++] = ' '; * ret [len] = '\0'; * } * else * { * ret [len ++] = GiveDirChar (cursct, * sct); * ret [len] = '\0'; * MJH : ik wil geen SetCurrents mee op vreemde plaatsen dit maak deze * toch al niet bruikbare feature totaal onmogenlijk. (mischien laatste * onthouden ?) * SetCurrent (sct); * } * break; */ case RIGHT_BUTTON: if (sct == (Sector) 0 || NO_INFO (sct)) sct = cursct; ptr = CrdStr (sct); if (len > 0 && ret [len - 1] != ' ') ret [len ++] = ' '; while (*ptr != '\0') ret [len ++] = *ptr ++; ret [len ++] = ' '; ret [len] = '\0'; break; } break; } if (cont && (event. type == KeyPress || event. type == ButtonPress)) { PrintB (win, x, y, Fmt ("%s_", ret)); FlushWindow (win); } } if (interrupt || keysym == XK_Escape) { PrintN (win, x, y, Fmt ("%*s ", maxlen, "")); FlushWindow (win); return (char *) 0; } else { PrintB (win, x, y, Fmt ("%s ", ret)); FlushWindow (win); return ret; } } void DrawArrow (win, x, y, dir) WinInfo win; int x, y; char dir; { int deltx, delty; x = CharToPixelX (x); y = CharToPixelY (y); deltx = CHAR_WIDTH / 2; delty = CHAR_HEIGHT / 2; /* y u * g . j * b n */ if (dir == 'b' || dir == 'u') { Line (win, x + CHAR_WIDTH - 2, y + 1, x + 1, y + CHAR_HEIGHT - 2); if (dir == 'b') { Line (win, x + 1, y + CHAR_HEIGHT - 2, x + 1 + deltx, y + CHAR_HEIGHT - 2); Line (win, x + 1, y + CHAR_HEIGHT - 2, x + 1, y + CHAR_HEIGHT - 1 - delty); return; } else { Line (win, x + CHAR_WIDTH - 2, y + 1, x + CHAR_WIDTH - 2 - deltx, y + 1); Line (win, x + CHAR_WIDTH - 2, y + 1, x + CHAR_WIDTH - 2, y + 1 + delty); return; } } else if (dir == 'y' || dir == 'n') { Line (win, x + 1, y + 1, x + CHAR_WIDTH - 2, y + CHAR_HEIGHT - 2); if (dir == 'y') { Line (win, x + 1, y + 1, x + 1 + deltx, y + 1); Line (win, x + 1, y + 1, x + 1, y + 1 + delty); return; } else { Line (win, x + CHAR_WIDTH - 2, y + CHAR_HEIGHT - 2, x + CHAR_WIDTH - 2 - deltx, y + CHAR_HEIGHT - 2); Line (win, x + CHAR_WIDTH - 2, y + CHAR_HEIGHT - 2, x + CHAR_WIDTH - 2, y + CHAR_HEIGHT - 2 - delty); return; } } else if (dir == 'g') { Line (win, x + 1, y + CHAR_HEIGHT / 2, x + CHAR_WIDTH - 1, y + CHAR_HEIGHT / 2); Line (win, x + 1, y + CHAR_HEIGHT / 2, x + 1 + deltx, y + CHAR_HEIGHT / 2 + delty); Line (win, x + 1, y + CHAR_HEIGHT / 2, x + 1 + deltx, y + CHAR_HEIGHT / 2 - delty); return; } else if (dir == 'j') { Line (win, x + 1, y + CHAR_HEIGHT / 2, x + CHAR_WIDTH - 1, y + CHAR_HEIGHT / 2); Line (win, x + CHAR_WIDTH - 2, y + CHAR_HEIGHT / 2, x + CHAR_WIDTH - 2 - deltx, y + CHAR_HEIGHT / 2 - delty); Line (win, x + CHAR_WIDTH - 2, y + CHAR_HEIGHT / 2, x + CHAR_WIDTH - 2 - deltx, y + CHAR_HEIGHT / 2 + delty); } else return; } void WarpPointer (win, x, y) WinInfo win; int x, y; { XWarpPointer ( display, root_window, win-> window, 0, 0, 0, 0, x, y); } WinInfo OpenWinForWM (name, x, y, width, height, base, savelines) const char * name; int x, y, width, height, savelines; int base; { int addx, addy; window_name = name; if (base == CHARS) { addx = map_win-> char_dim.low_x; addy = map_win-> char_dim.low_y; } else { addx = map_win-> pix_dim.low_x; addy = map_win-> pix_dim.low_y; } return OpenWindow ( (WinInfo) 0, x + addx, y + addy, width, height, base, WM_MENU, savelines); } WinInfo OpenRelToRoot (from, x, y, width, height, base, savelines) WinInfo from; int x, y, width, height, savelines; int base; { extern WinInfo root_win; /* main.c */ int addx, addy; if (base == CHARS) { addx = from-> char_dim.low_x; addy = from-> char_dim.low_y; } else { addx = from-> pix_dim.low_x; addy = from-> pix_dim.low_y; } return OpenWindow ( root_win, x + addx, y + addy, width, height, base, MENU, savelines); } #define TIMES 4 void FlashWindow (win) WinInfo win; { int i; if (! xstarted) return ; win-> curline = win-> pixsavelines; i = TIMES; while (i-- != 0) { ReverseWindow (win); FlushWindow (win); } } void Bell () { if (xstarted) XBell (display, 0); } bool WinHasScrollBar (win) WinInfo win; { return (win-> pixsavelines > 0); } void RaiseWindow (win) WinInfo win; { XRaiseWindow (display, win-> window); CheckRefreshEvents (); } void LowerWindow (win) WinInfo win; { XLowerWindow (display, win-> window); } void XorLine (win, psx, psy, pex, pey) WinInfo win; int psx, psy, pex, pey; { XDrawLine ( display, win-> pixmap, gc_xor, psx, psy, pex, pey); } void XorBox (win, psx, psy, pex, pey) WinInfo win; int psx, psy, pex, pey; { /* * Should be done with XDrawLines * * * sx,sy ex,sy * * * * sx,ey ex,ey */ XDrawRectangle ( display, win-> pixmap, gc_xor, psx, psy + win-> pixsavelines, pex - psx + 1, pey - psy + 1); } int WinHeight (win) WinInfo win; { return win-> pix_dim. height; } int WinWidth (win) WinInfo win; { return win-> pix_dim. width; } void UnmapWindow (win) WinInfo win; { XUnmapWindow (display, win-> window); } void MapWindow (win) WinInfo win; { XMapWindow (display, win-> window); } void LowerAll () { LowerWindow (empire_win); LowerWindow (map_win); LowerWindow (census_win); LowerWindow (mes_win); } void RaiseAll () { RaiseWindow (empire_win); RaiseWindow (map_win); RaiseWindow (census_win); RaiseWindow (mes_win); } WinInfo OpenEmpireWindow (win, inc_y, inc_width, inc_height, savelines, widthp, heightp) WinInfo win; int inc_y, inc_width, inc_height; int savelines; int *widthp, *heightp; { WinInfo w; w = OpenWindow (win, 0, CharToPixelY (EMPIRE_STARTY + inc_y), CharToPixelX (ROOT_WIDTH + inc_width - 1 - (savelines > 0 ? 1 : 0)) - BORDER_WIDTH, CharToPixelY (EMPIRE_HEIGHT + inc_height), PIXELS, FIXED, CharToPixelY (savelines)); *heightp = EMPIRE_HEIGHT + inc_height; *widthp = ROOT_WIDTH + inc_width - (savelines > 0 ? 1 : 0); return w; } xemp5.1-beta/xemprc.def100644 12266 2116 3251 5334624363 13422 0ustar jponexorKeep announce= Yes Keep send= Confirm Delete mailbox= Yes Space is next= Yes Rescan show= No Rescan land radar= No Rescan ship radar= No Rescan lookout= No Rescan coastwatch= Yes Rescan sonar= No Bind a to again Bind m to move Bind d to disconnect Bind / to goto Bind ? to highlight Bind ^W to store data Bind n to nation Bind e to enlist Bind b to demobilize Bind + to designate (+) Bind ) to designate (radar) Bind % to designate (%) Bind . to center map Bind # to designate (#) Bind * to designate (*) Bind ! to designate (!) Bind r to read (TAB) Bind E to expression Bind N to normal display TC Bind _ to fast quit TC Bind M to move (mil) TC Bind C to move (civ) TC Bind F to move (food) TC Bind U to move (uw) TC Bind = to page command TC Bind 1 to census mode (normal) TC Bind 2 to census mode (info) TC Bind 3 to census mode (ship) X Bind ^Q to fast quit X Bind L1 to move (civ) X Bind L2 to move (mil) X Bind L3 to move (food) X Bind L to move (lcm) X Bind H to move (hcm) X Bind D to move (dust) X Bind I to move (iron) X Bind O to move (oil) X Bind U to move (uws) X Bind S to move (shells) X Bind G to move (guns) X Bind P to move (petrol) X Bind R to move (rad) X Bind space to page command TC Term (screen) Capab=so:se:us:ue TC Term (a230) Capab=so:se:hi:he TC Move-prefix=/ Compress= No Silent timeout= Yes Timeout=500 Buffer=Force X Savelines=50 TC Savelines=0 X Position=12,1 Signature=/home/student1/hjvissc/xemp/sign Coun (week) Host= forestburg.cs.ualberta.ca Coun (week) Port= 1617 Coun (week) Country= Lochett Coun (week) Player= -=O=- Coun (week) Savefile= .week Coun (week Savedir= /home/student1/hjvissc/games/week # end country week [do not delete this line] xemp5.1-beta/info/ 40755 12266 2116 0 6043206203 12264 5ustar jponexorxemp5.1-beta/info/utils/ 40755 12266 2116 0 6043206201 13422 5ustar jponexorxemp5.1-beta/info/utils/explore100644 12266 2116 1227 5760277745 15154 0ustar jponexor -=[ XEMP INFO ]=- UTILITY: Explore DESCRIPTION: Using the explore utility, you can easily and fast explore unknown land. The utility asks you: * from which sector you want to explore * to use civilians or militairs * the maximum mobility to use * the maximum number of civs/mils to use * the maximum distance to explore After you confirm, xemp starts to explore all unknown sectors, and desigate them to highways (because it's cheaper to move into a 0% highway than into a 0% wilderness). As soon as one of the conditions is reached, the utility halts. HOW TO USE: You can only use it via xemp: global menu-> utilities-> explore. BUGS: none xemp5.1-beta/info/commands/ 40755 12266 2116 0 6043206202 14064 5ustar jponexorxemp5.1-beta/info/commands/sector/ 40755 12266 2116 0 6043206201 15362 5ustar jponexorxemp5.1-beta/info/commands/sector/enlist100644 12266 2116 2334 5760277745 16734 0ustar jponexorCOMMAND: ENLIST DESCRIPTION: The enlist command converts civilians into military in the sectors specified. Military created by the enlist command are actually reserves called up from your country's military reserve. If your country has no military reserves (created by demobilize) then no civilians will be converted and no military will be generated. If you specify a positive number that many draftees will be sought in each sector regardless of any military already in the sector. If you specify a negative number of the form -xxx, then an enlistment quota is established and the draft board will attempt to enlist enough in each sector to bring the total number of military up to xxx in each sector. LIMITATIONS: You cannot draft militairs in occupied sectors, sectors with a loyality exceeding 70, and of course only the number of militairs you have on the actual reserve. No more than 500 civilians or half of the number of civilians can be enlisted. COSTS: Some of you're mobility (actualy a percentage) and 0.2 BTU's per enlisted civilian. AGAIN: Will enlist the last specified number in the current sector. BUFFERING: Only when you use FORCE buffering. BINDING: Bind KEY to enlist (#) SEE ALSO: demobilize xemp5.1-beta/info/commands/sector/demobilize100644 12266 2116 3015 5760277745 17556 0ustar jponexorCOMMAND: DEMOBILIZE DESCRIPTION: The demob command returns soldiers from the military back to civilian life. In addition, you have the option of placing the returning GI's into the nation's active reserve. The active reserve provides a pool of available mil- itary for a small salary (usually the same amount generated by a civilian) and provides for quick mobilization of military during a threat to national secu- rity. You have the option of placing civilians on active reserve. Civilians on active reserve can later be enlisted but you must pay them to stay on. Gen- erally civilian on active reserve costs one tenth of what a military costs. If you specify a positive number that many militairs will be demobilized in each sector regardless of any military already in the sector. If you specify a negative number of the form -xxx, then a demobilize quota is established and the draft board will attempt to demobilize enough in each sector to bring the total number of military back to xxx in each sector. LIMITATIONS: Troops can only be demobilized in sectors which have greater than 60% effi- ciency, and only in home sectors (that is, not in occupied territory). COSTS: As a result of demobilization, and as a thank you for serving their country in its time of need, a GI Bill is given to each soldier to the tune of $5 each. AGAIN: Will demobilize the last specified number in the current sector. BUFFERING: Only when you use FORCE buffering. BINDING: Bind %c to demobilize (#, [yn]) SEE ALSO: enlist xemp5.1-beta/info/commands/sector/shoot100644 12266 2116 1230 5760277745 16564 0ustar jponexorCOMMAND: SHOOT DESCRIPTION: The shoot command allows you to shoot enemy civilians or recalcitrant uncompensated workers. In order to be able to keep the populace under control (i.e., not have them rebel), you must have one military for every ten civilians. Shooting of populace in sectors where this is not the case is disallowed. If all the civilians in the sector are removed, and it was a conquered sector, it will become completely controlled by you. COSTS: Mobility (1 mob per 5 civ/uws) AGAIN: Will shoot the last specified number in the current sector. BUFFERING: Only when you use FORCE buffering. BINDING: Bind KEY to shoot (#, [cu]) xemp5.1-beta/info/commands/sector/move100644 12266 2116 3165 5760277745 16407 0ustar jponexorCOMMAND: MOVE DESCRIPTION: The move command is crucial to Empire; it carries out the movement of civilians, military, ore, guns, shells, food, planes, etc. on land. Note that you can only move into sectors that you own, so you cannot take sectors via move. To take sectors, use the "explore" command, which uses the same syntax as move. Xemp helps a lot moving things around. First you're asked for the item you want to move (only the available ones). After that you must give the quantity. Now you can simply select the sector where to move these goods to. Xemp will automaticly calculate the cheapest connection between the 2 sectors. You can select many sectors to stop, this allows you to use mobility from other sectors. m ^ . + + w . . ^ Example: You want to move from iron from you're mine to you're warehouse, but use the mobility from one of you're highways. You select the move command (on the mine), then the highway you want to use the mobility from, and then 2 times you're warehouse (indicating that this is you're final goal). Now xemp will exec two command, 1 moving you're iron from the mine to the highway, the second one moving it to the warehouse. LIMITATIONS: There are a things that must be checked (work < 100, occ sector ?, etc). Xemp will do all those things for you. COSTS: Each item has its own mobility cost, and each sector also. Moving over a 100% highway will cost you nothing. AGAIN: Will move the same quant of the same commodity out of the cur. sector BUFFERING: Only when you use FORCE buffering. BINDING: Bind KEY to move (comm, #) SEE ALSO: explore transport xemp5.1-beta/info/commands/sector/convert100644 12266 2116 721 5760277746 17075 0ustar jponexorCOMMAND: CONVERT DESCRIPTION: The convert command converts enemy (captured) populace into uncompensated workers. If the sector is not actually conquered, no civilians will be converted. COSTS: There is a cost of 0.01 BTU's per civilian converted in addition to the registration fee of $1.5 per conversion. AGAIN: Will convert the last specified number in the current sector. BUFFERING: Only when you use FORCE buffering. BINDING: Bind KEY to convert (#) xemp5.1-beta/info/commands/sector/designate100644 12266 2116 3600 5760277746 17377 0ustar jponexorCOMMAND: DESIGNATE DESCRIPTION: In Empire all sectors have a designation. The designation represents the principal industry or activity taking place in that area. When a sector is designated a harbor, for example, the civilians in the sector start building shipyards and docks, (with a little help from any military & uws present). If the redesignated sector is already declared to be something else, and is efficient, then the workers will have to tear down the existing construction and then build the new sector. The workers dismantle existing sectors four times faster than they can build. As work progresses the efficiency will climb toward a maximum of 100%. TYPES: BASICS INDUSTRIES MILITARY / SCIENTIFIC . sea d defense plant t technical center ^ mountain i shell industry f fortress s sanctuary m mine r research lab / wasteland g gold mine n nuclear plant - wilderness h harbor l library/school c capital w warehouse e enlistment center p park u uranium mine COMMUNICATIONS * airfield FINANCIAL + highway a agribusiness b bank ) radar installation o oil field j light manufacturing # bridge head k heavy manufacturing = bridge span % refinery LIMITATIONS: Harbors & Bridge-heads can only be build near water. COSTS: Fixed cost per redesignation. Real cost comes when the sector becomes efficient. AGAIN: Will redesignate the current sector to the last choosen designation BUFFERING: When you buffer commands. BINDING: Bind KEY to designate (mnem) | designate (full-sector name) SEE ALSO: Sector-types xemp5.1-beta/info/commands/ship/ 40755 12266 2116 0 6043206202 15027 5ustar jponexorxemp5.1-beta/info/commands/ship/navigate100644 12266 2116 4636 5760277746 16710 0ustar jponexorCOMMAND: NAVIGATE DESCRIPTION: The navigate command is the move command applied to the sea. You can control one ship or an entire fleet with it. A ship must have at least one crew (which may be civilian or military, but not an uncompensated worker) to be navigated. XEMP will stop navigating as soon as 1 of the selected ships stops. Moving a ship through a sector that has been mined by a destroyer introduces a 5% chance per mine (cumulative) that you will be damaged by detecting one of the little cuties. Minesweeps can remove up to five mines per pass through a sector (indicated by the message Sweep...). Using XEMP, you simply select the sector you want to go to, xemp will do the rest. Double click the last sector, to stop. XEMP automaticly does a lookout when it doesn't know the designations of it neighbours. This won't work if you navigate more than 1 sector at a time. Example: \ . . . . This would be done wenn you move you nuclear sub \ . N . . . x . several sectors in one time through unknown waters. . . . . . It is a good practice to lookout even if you know the contents of the adjacent sectors. This will detect enemy ships. XEMP also automaticly scans resources (oil & fertility) if one ship of your sailing ships has the ability to fish or drill for food. Oil is always rescanned (depletable resource), but food only when it doesn't know the fertility. LIMITATIONS: You can only navigate through watersectors, harbors (>=60%) and bridgespans (>=2%). COSTS: Some typical movement costs are: ship 25% tech factor 50% tech factor 100% tech factor type cost/sector cost/sector cost/sector ------ ---- ---- ---- patrol boat 7.68 6.4 4.8 fishing boat 25.6 21.33 16.0 minesweep 19.2 16.0 12.0 destroyer 10.96 9.13 6.85 submarine 15.36 12.8 9.6 tender 12.8 10.67 8.0 heavy cruiser 12.8 10.67 8.0 cargo ship 19.2 16.0 12.0 aircraft carrier 15.36 12.8 9.6 battleship 15.36 12.8 9.6 AGAIN: Navigate the current fleet / ship. BUFFERING: No way BINDING: Bind KEY to navigate (what) xemp5.1-beta/info/commands/ship/assault100644 12266 2116 2375 5760277746 16564 0ustar jponexorCOMMAND: ASSAULT DESCRIPTION: The assault command allows your marines to hit the beaches. It is also the only way to get ashore other than by unloading at a harbor, thus it is the first step to gaining land on a new continent. Any ship with military can assault an military-less sector, however only a landing ship can assault a sector with military in it with its full complement of troops. The other ships will only be able to land a fraction of their troops in any given assault. This represents the use of the Admiral's gig, the Captain's barge, etc. When you assault a sector, you'll have to select the ship from where to assault (all ships that are near enough, enough mils, etc) are listed. After that you'll have to specify the number of mils you want to use. To keep things fast, XEMP won't redump your ships (unless some kind of shelling has been done). The assaulting troops face the disadvantage of having to reach the beach, therefore they are less effective than any land troops they may encounter. Both capitals and forts fight twice as hard as other sectors against sea assaults. COSTS: 0.15 BTU's per casuality AGAIN: Assault the current sector from the last specified ship. BUFFERING: No way BINDING: Bind KEY to assault xemp5.1-beta/info/commands/ship/scrap100644 12266 2116 1247 5760277746 16215 0ustar jponexorCOMMAND: SCRAP DESCRIPTION: The scrap command allows you to reclaim some of the LCMs and HCMs that went into the construction of a ship that you no longer have need for. (The command requires 2 BTUs to perform) A ship must be in harbor for this command to be used. In each case, the sector must be 60% efficient. You regain approximately two-thirds of the LCMs and HCMs that were used in the construc- tion of the craft. (And lose the craft, of course) Additionally, you regain *all* of the military personnel that were used in the construction of the craft. AGAIN: Scrap the current fleet / ship BUFFERING: Always BINDING: No binding SEE ALSO: upgrade, build xemp5.1-beta/info/commands/ship/upgrade100644 12266 2116 1302 5760277746 16524 0ustar jponexorCOMMAND: UPGRADE DESCRIPTION: The upgrade command allows a country to set the tech level of its ships to the country's current tech level. Each ship to be upgraded must be in one of the country's harbors that is at least 60% efficient and has an available workforce of at least half the size it would take to build the ship from scratch. To be upgraded, a ship must be at least 60% efficient. COSTS: Refitting a ship costs half as much as building a new one from scratch and reduces the efficiency of the ship by 35%. Strangely, refitting a ship does not use up any material. AGAIN: Upgrade the current fleet / ship BUFFERING: Always BINDING: No binding (to dangerous) SEE ALSO: scrap xemp5.1-beta/info/commands/ship/tend100644 12266 2116 1340 5760277746 16031 0ustar jponexorCOMMAND: TEND DESCRIPTION: The tend command allows transfer of commodities from a particular (supply) ship to patrol boats, submarines, battleships, etc. while at sea. Requirements are that the tending ship must be in the same sector as the tended ships, and it must be yours. A positive amount indicates the amount the tender will give away, while a negative amount indicates the amount that the tender will try to extract from each ship. AGAIN: Tend again. If the ship is still the same ship, you be asked for another item & quant. If you changed the current ship, item & quant will be the same BUFFERING: No way BINDING: Bind KEY to tend (item, quant) SEE ALSO: load, unload (census info) See also : load, unload xemp5.1-beta/info/commands/plane/ 40755 12266 2116 0 5760277746 15215 5ustar jponexorxemp5.1-beta/info/.help100644 12266 2116 42572 5760277747 13376 0ustar jponexorNo Help No help available on this subject. . Buffer Toggle When buffering is on ,most commands will not be fed directly into empire. (Assumed that your are disconnected) When it is off all commands are directly fed into empire. Both modes come in handy for example when you only have 10 minutes connect time left you set the buffering on and so save connection time. On the other hand when you have enough time you don't have to wait so long to connect to the server if buffering is off. SEE ALSO: Disconnect. . Buffer Move Toggles between buffering move and not buffering move commands. The move commands can be treated special from most normal commands like designate etc. This is done because move could have some unexpectancies which you might want to see happening. Warning: It can be dangerous thus to buffer the move commands especially in wartime when sectors might be overtaken and you have move commands to/from such a sector. SEE ALSO: Disconnect, Buffer Toggle. . Buffer Show Shows the commands that you have buffered. . Buffer Feed Force Xemp to feed the buffered to the empire server.(implies reconnecting to the server) Note that after this is done Xemp does not automatically disconnect (That can be arranged by type ahead). SEE ALSO: Disconnect. . Distribute utility The Distribute utility will allow you to set distribute paths of several sectors (easy when setting many distribution paths to the same warehouse). First you must select a sector as a warehouse (this will be the sector that you have selected right now) then you will be asked if Xemp must assume that all sectors have an efficiency of 100% and new designation or that Xemp must assume the current efficiency and current designation. Note that this will effect the cheapest distribution path and that you normally should choose the 100% and new designation. Secondly when you have chosen one of the two (by clicking the left mouse button) you receive a cursor in the map window and you are then able to select sectors (by clicking the right mouse button). When you have selected a sector as described Xemp will look for the cheapest (qua mobility) path to the warehouse and a distribution path is then set from the selected sector to the warehouse. You then can repeat step two as long as you wish. Note that every type of sector can serve as a warehouse. SEE ALSO: Threshold, Designation Warehouse, Distribute. . Explore Utility With the explore utility you can explore new territory quite easily. When selected you are prompted for a sector from where to explore give a return for the current sector or type in the coordinates. Then enter the maximum mobility you want to spend from the sector (return for all mobility) and the number of civilians or military you want to explore with. Xemp will then take in the nearest wilderness automatically. Note that you need not be in a sector that is near the originating sector. SEE ALSO: Designation Wilderness. . Ferry Utility The ferry utility is still worked on. . Check Utility The check utility is a very important one as it lets you check your country for sectors and ships where there is either a shortage of food or a plague chance and gives you a list of empty and enemy ships. All the output is put in a real window which can be moved or iconized. Note that you as you stand on a line in the World Check window where there is mention of a sector you can jump to that specific sector by clicking your left mouse button. SEE ALSO: General Information. . Country Utility This wil gather some information about the selected country, using the following commands: power, report & relations. One sided relations are not shown, neither are the Neutral relations. This utility also provides information about the maximum and minimum values for their education, technology and research factors. . Normal Mode If in normal mode Xemp will display in its census window only the information of the current sector. SEE ALSO: Census Mode. . Ship Mode If in ship mode Xemp will display in its census window info on ships in the current sector if you click at the left mouse button (assuming that you didn't move the cursor out of the sector). Now if you click further on the left mouse button Xemp will loop through the list of ships (and the current sector). SEE ALSO: Census Mode. . Plane Mode If in plane mode Xemp will display in its census window info on planes in the current sector if you click at the left mouse button (assuming that you didn't move the cursor out of the sector). Now if you click further on the left mouse button Xemp will loop through the list of planes (and the current sector). SEE ALSO: Census Mode. . Nuke Mode If in nuke mode Xemp will display in its census window info on nukes in the current sector if you click at the left mouse button (assuming that you didn't move the cursor out of the sector). Now if you click further on the left mouse button Xemp will loop through the list of nukes (and the current sector). SEE ALSO: Census Mode. . Fleet Mode If in fleet mode Xemp will display in its census window info on fleets in the current sector if you click at the left mouse button (assuming that you didn't move the cursor out of the sector). Now if you click further on the left mouse button Xemp will loop through the list of fleets (and the current sector). SEE ALSO: Census Mode. . Wing Mode If in wing mode Xemp will display in its census window info on wings in the current sector if you click at the left mouse button (assuming that you didn't move the cursor out of the sector). Now if you click further on the left mouse button Xemp will loop through the list of wings (and the current sector). SEE ALSO: Census Mode. . Update Utility This will simulate an update. WARNING: After this you won't be able to feed commands to empire. . des . SEA - Sea sectors form natural barriers that can only be crossed by ships, (made in harbors, below), or spanned by bridges, (also below). You can not designate anything else to be sea nor can sea be designated to be anything else. . des ^ MOUNTAIN - Mountain sectors form another natural barrier that cannot be redesignated; however, they can be moved through (at great expense in terms of mobility units). . des s SANCTUARY - Sanctuary sectors are created when a new nation is created. They are inviolate in that no one can fire at them or attack them. This protection ends when the new country first moves out of the sanctuary (called breaking sanctuary); the sector then becomes a capital. NOTE: in games with multiple sanctuaries per country ALL sanctuaries become capitals when any one does! . des \ WASTELAND - This is the result of the explosion of a nuclear device. Waste- lands are uninhabitable forever. . des - WILDERNESS - Most of the world is wilderness at the beginning of the game. Wilderness has no particular attributes; you can move into it if unoccupied, thereby making it your territory, but will probably want to designate it as something else once you own it. . des c CAPITAL - Capitals are the source of bureaucracy time units (BTU's). They accrue in proportion to the efficiency of the capital and the number of civi- lians at work in it. If a country has a 100% efficient capital with 100 civi- lians in it BTU's will accrue at the rate of 4 per hour, (assuming half-hour time units). Most commands use up BTU's, (see list of commands for numbers of BTU's used per command). A nation may only have one active capital at a time (although many sectors may be designated as capitals). If an active capital is captured by an attack a new one must be designated by the victim in order to be able to collect BTU's. The capture of a capital will result in the loss of money from the victim nation (loss of tax records, federal reserves, etc). Capitals are twice as efficient at defending against attack as other sectors (except fortresses). Use the capital command to make a capital the active one. . des p PARK - Parks are provided solely for the convenience of the people. Parks require construction materials to provide maintenance services and add to a nation's happiness level. The conversion of raw materials takes place automatically at a rate dependent on the efficiency of the sector, the pres- ence of the required materials, and the number of workers in the sector. . des + HIGHWAY - Whenever you move civilians, ore, gold, etc, mobility units (mob on the census) are consumed dependent on how far and how much you move. However if the movement is through 100% efficient highway it costs nothing to move. . des ) RADAR - Radar stations can scan the surrounding area (up to 6 units away for 100% efficiency) and generate a radar plot identifying sector types at dis- tances up to 1/3 their range and ships up to their full range. . des # BRIDGE HEAD - Bridge heads are the land based ends of bridges. They, like harbors, turn construction materials into bridge spans; see info build for the details of this process. . des = BRIDGE SPAN - A bridge span is the suspended part of a bridge that crosses water sectors. They are built and supported by bridge heads and are much like highways except for three things: (1) Bridge spans provide food through fishing, (the fertility can be thought of as fish-count). (2) Bridge spans must maintain at least 20% efficiency or else they collapse. (3) If the only bridge head supporting a particular bridge span is redesig- nated as something else the bridge span will collapse. . des b BANK - Banks are used for smelting and storing gold bars. They include a smelter to refine gold dust into gold bars. While the bars are stored in the bank the busy little bankers invest them and return a profit on their use. Banks are of the Fort Knox variety; they are more impervious to shelling than any other sector and military in them fight twice as hard against attack as those in industries. Banks are also particularly adept at moving gold bars around; bars are moved and stored in groups of four thus fewer mobility units are required to move a gold bar from a bank than anywhere else. . des d DEFENSE - In defense plants construction materials are turned into guns. The conversion of raw materials into guns takes place automatically at a rate dependent on the efficiency of the sector, the presence of the required materials, the technology level of the country, and the number of workers in the sector. See info products for information on the materials required to produce guns. . des i SHELL INDUSTRY - These sectors are similar to defense plant sectors except they turn construction materials into shells. The conversion of raw materials takes place automatically at a rate dependent on the efficiency of the sector, the presence of the required materials, the technology level of the country, and the number of workers in the sector. See info products for information on the materials required. One shell is used each time you fire, (except for submarines which use three shells to make one torpedo). . des m MINE - Mines produce iron ore by digging it out of the ground. The rate at which it is produced is dependent on three factors; the efficiency of the mine, the number of civilians working in the mine, and the mineral sample for the sector (min on the census report). Iron is a renewable resource; i.e. digging up iron does not deplete the mineral content of the sector. . des g GOLD MINE - Gold mines are similar to ordinary mines, (above), except that they produce gold dust. The rate at which it is extracted is dependent on three factors; the efficiency of the sector, the size of the labor force in the sector, and the gold sample for the sector (gmin on the census report). The raw gold dust can be transported to any sector but if it is left in a bank sector it will be refined into bars automatically . Gold is a non-renewable resource; i.e. extracting the gold depletes the gold content of the sector. . des u URANIUM MINE - Uranium mines are very similar to gold mines, (above), except that they produce radioactive materials. The rate at which it is extracted is dependent on three factors; the efficiency of the sector, the size of the labor force in the sector, and the uranium content of the sector (uran on the census report). Uranium is a non-renewable resource; i.e. extracting it depletes the content of the sector. . des h HARBOR - Harbors combine shipyard facilities and docks. Construction materi- als are converted into ships and the ships can be loaded and unloaded in the harbor, (see info load). No ships are constructed until the build command is given, (see info build). . des w WAREHOUSE - Warehouses are used to store shells, guns, iron, gold dust, food, oil, light construction materials, and heavy construction materials. Moving the above out of a warehouse only takes one tenth the mobility cost it nor- mally would. Note: warehouses are often used as distribution centers. . des * AIRFIELD - Airplanes can only be built in airports and most can only take off and land at airports. (though some can take off and land in other sectors and some can take of and land on aircraft carriers see ship-types for details) . des a AGRIBUSINESS - These sectors are large farms and provide food. Agribusiness sectors produce as much as five times as much food as other sectors. The har- vesting takes place automatically at a rate dependent on the efficiency of the sector, the fertility of the sector (fert in the census), the education level of the country, and the number of workers in the sector. See info products for details. . des o OIL - Oil fields produce oil by sucking it out of the ground. The extraction of oil takes place automatically at a rate dependent on the efficiency of the sector, the oil content of the sector (oil on the census report), the technol- ogy level of the country, and the number of workers in the sector. Oil is a non-renewable resource; i.e. extracting oil depletes the oil content of the sector. . des % REFINERY - Refineries produce petroleum by processing oil. This production takes place automatically at a rate dependent on the efficiency of the sector, the number of workers in the sector, and the technology level of the country. . des j LIGHT - Light manufacturing plants produce light construction materials from iron. This production takes place automatically at a rate dependent on the efficiency of the sector, the iron in the sector, the technology level of the country, and the number of workers in the sector. . des k HEAVY - Heavy manufacturing plants produce heavy construction materials from iron. This production takes place automatically at a rate dependent on the efficiency of the sector, the iron in the sector, the technology level of the country, and the number of workers in the sector. . des f FORTRESS - Fortress sectors have many special characteristics; you can fire guns from fortresses, whenever an attack is launched from a fort or on a fort the military in the fort are stronger than military in any other type of sec- tor by an amount proportional to the efficiency of the fort. e.g. 100 military in a wilderness attacking a 100% efficient fort that has 25 military gives even odds; see info attack for details. . des t TECHNOLOGY - Technical centers are bastions of pure technology research, which is to say universities with massive defense department grants. They turn con- struction materials into technological advances thereby raising the technology level of the country (which affects gun ranges, pollution, etc.). The conver- sion of raw materials takes place automatically at a rate dependent on the efficiency of the sector, the presence of the required materials, the educa- tion level of the country, and the number of workers in the sector. . des r RESEARCH - The research lab is a bastion of pure medical research, which is to say it is a large university with massive March-of-Dimes funding. The research lab turns construction materials into medical discoveries which raise the research level of the country and help retard the spread of disease, (usu- ally caused by the pollution from technical centers). The conversion of raw materials takes place automatically at a rate dependent on the efficiency of the sector, the presence of the required materials, the education level of the country, and the number of workers in the sector. . des n NUCLEAR - The nuclear lab is a bastion of applied technology, which is to say it is an immense underground building filled with evil geniuses playing Adven- ture on huge computers. The nuclear lab turns construction materials into nuclear weapons. No devices are constructed until the build command is given, (see info build). . des l LIBRARY/SCHOOL - The library/school sector is the foundation of a country's educational structure. They use up construction materials to produce units of education which raise the educational level of the country (which affects the efficiency of research and technology sectors). The conversion of raw materi- als takes place automatically at a rate dependent on the efficiency of the sector, the presence of the required materials, and the number of workers in the sector. . des e ENLISTMENT - The enlistment sector is the boot camp of Empire. It converts civilians into military, once the efficiency level has been raised to 60%. Unlike the other production sectors, it uses only military as a workforce, and converts civilians in the sector into military. . xemp5.1-beta/info/parse/ 40755 12266 2116 0 6043206202 13375 5ustar jponexorxemp5.1-beta/info/parse/highlight100644 12266 2116 4431 5760277747 15421 0ustar jponexor Parser : Highlight Highlight You can highlight sectors satisfying a certain condition. For the correct syntax, see "info: parse/syntax". Some exam- ples will be given how to use the highlight function. December 10, 1991 Parser : Highlight Invoking highlight The best way to get the highlight menu is to bind a certain key to it. The other way is via the global menu, display, and the choice "change highlight". Examples starvation Highlight those sectors where people will starve. etus_per_update * civ * cbrate + civ > 990 Highlight those sectors that will be overpo- pulated. December 10, 1991 Parser : Highlight ship (name = "cargo ship") Highlight those sectors with at least on cargo ship in it ship (name ~ "cargo" and mob > 0) == 2 Highlight those sectors that have exactly two "cargo*" ships with positive mobility. plague_stage != healty Highlight those sector which are infected. ship (plane (type ~ "fighter")) Highlight those sectors with a ship in it that carries at least one fighter. December 10, 1991 Parser : Highlight resource (iron) > 80 or resource (gold dust) > 80 Highlight those sectors which have some min- ing or gold resources ship (plane (nuke (name = "10 kt fission"))) Highlight those sectors that have a ship that carries a plane that is loaded with a 10 kt fission nuke war head. occupied and (mil < (civ / 20)) Highlight occupied sectors which don't have enough militairs coast and mil < 10 Highlight coast sectors with not enough December 10, 1991 Parser : Highlight militairs in it. not owned and des = capital Pleppen! mines > 0 Highlight water which should be avoided. December 10, 1991 xemp5.1-beta/info/parse/expression100644 12266 2116 1612 5760277747 15647 0ustar jponexor Parser : Expressions Expressions You can show some expression next to the designation. This can be any legal expression recognized by the parse. For the syntax, see "info: parse/syntax". Values < 0 are shown as '-', values > 9.99 will be shown as '+'. December 10, 1991 Parser : Expressions Invoking The best way to get the expression menu is to bind a certain key to it. The other way is via the global menu, display, and the choice "change expression". Examples round (r (iron) / 10) Show the mining contens population / 1000 Show the total population (in K) December 10, 1991 Parser : Expressions food_used / 10 Show the food used (in units of 10 food) December 10, 1991 xemp5.1-beta/info/parse/syntax100644 12266 2116 41312 5760277747 15017 0ustar jponexor Parser : Syntax 1. Expressions XEMP has a very powerfull highlight expression mechanism. Practically everything you want to hightlight can be entered as an expression. The expression parser will identify vari- ables like civilians or food and substitute it with the actual value from the sector currently being examined. December 10, 1991 Parser : Syntax An expression is build up by compare expressions seperated by the Boolean operators and and or. And has a higher prior- ity than or, so the expression 0 and 0 or 1 will be parsed as ((0 and 0) or 1) which evaluates to 1 whereas you might have expected it would be parsed as (0 and (0 or 1)) which evaluates to 0. Both sides of an Boolean operator must be either boolean or Numeric, where a non-zero Numeric value means TRUE and a zero numeric value means FALSE. The exceptional case of an expression is the one with only a compare expression, without Boolean operator. Therefore thew expression can either assume a Numeric or a Boolean type. A compare expression consists of a term optionally followed by a compare operator and another term. Compare operators are '>', '<=', '=', etc. where both sides of the compare December 10, 1991 Parser : Syntax operator must be of the same type. The exceptional case of a compare expressions is the one with only a term, without operator. Therefore a compare expression can either assume a Numeric or a Boolean type; A special type compare operator is '~' which accepts only strings. It will match the left hand side string with the right hand side string and evaluates to 1 if either the left hand side string as a whole is a part of the right hand side or vica versa. Terms are normal everyday Numeric expressions like 1 + 2 * 4 etc. with the usual operator precedence. Every subexpression (a expression between brackets) can be predeceded by a expression modifier. Each of these modifiers December 10, 1991 Parser : Syntax identifies the object to which the variablkes within the expressions references. Valid modifiers are "sector(...)", "ship(...)", "plane(...)" and "nuke(...)". Variables in the most outer layer (no modifiers given) are taken to be referencing the sector. Example: plague_stage <> healty Evaluates to TRUE if the sector is infected. occupied and (mil < (civ / 20)) Evaluates to TRUE if the sector is occupied and does not have enough military in it to control it. ship(name ~ "cargo") December 10, 1991 Parser : Syntax Evaluates to the number of ships in the current sector which name begins with "cargo". ship(name ~ "cargo" and mob > 0) == 2 Evaluates to TRUE if the sector contains exactly two ships whose names starts with "cargo" and have some mobility left. plane((name ~ "transport") && (mobility > 0)) > 10 && mil > 100 Evaluates to TRUE if there are at least 10 planes in the sector whose name start with "transport" and have some mobility left. The sector must contain at least 100 mili- tary. N.B. Note that the "plane(...)" modifier only examines the planes in the sector and not planes on ships in the sector. December 10, 1991 Parser : Syntax ship(military > 100 && plane(name ~ "transport")) Evaluates to TRUE if there is a ship in the sector with more than 100 military and contains a plane which name starts with "transport". N.B. Note that the "plane(...)" modifier within the "ship(...)" modifier only looks at the planes of the ship and not the planes of the sector. ship(plane(nuke(name = "10 kt fission"))) Evaluates to the number of ships that carries at least one plane that is loaded with a 10 kt fission nuclear warhead. XEMP has a lot of variables predefined. Below are tables explaining all valid variables and characters within December 10, 1991 Parser : Syntax expressions. The alias field can contain another name, which denotes the same variable. 2. Expression keywords. Expressions can be entered in C, PASCAL or mixed style. I would suggest you use either C or PASCAL and not a mixture of both. December 10, 1991 Parser : Syntax Table 1: -=[* Expression Keywords *]=- Name Alias Description ______________________________________________________________________ 'c' Character constant "" String constant Numerical constant * Times operator + Plus operator - Minus/negate operator / Divide operator = == Equals operator <> != Does not equal operator < Smaller then operator > Larger then operator <= Smaller or equal operator 9 December 10, 1991 Parser : Syntax >= Larger or equal operator and && Boolean and or || Boolean or not ! Boolean not true Boolean true false Boolean false population pop (civs + mils + uws) of sector current_sector @ Stands for current sector coordinates warehouse Current sector's warehouse [, ] Specifies sector coordinates threshold(commodity) t() Returns commodity threshold resource(resource_val) r() Returns resouce_val value round(expr) Round off number floor(expr) Round off to nearest lowest integer ceil(expr) Round off to nearest highest integer December 10, 1991 Parser : Syntax ______________________________________________________________________ 7 |7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7| |7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7| 9 December 10, 1991 Parser : Syntax Table 2: -=[* Resource and Commodity variables *]=- Name Alias Is resource ____________________________________________ ura uranium food x dust gold_dust x oil x iron iron_ore x uw uncompensated_workers guns bars gold_bars petrol petroleum lcms lcm hcms hcm she shells 9 December 10, 1991 Parser : Syntax rads radioactive ____________________________________________ 7 |7|7|7|7|7|7|7|7|7|7|7|7|7|7| |7|7|7|7|7|7|7|7|7|7|7|7|7|7| 9 December 10, 1991 Parser : Syntax Table 3: -=[* Sector census values *]=- Name Alias Type ____________________________________________________ xloc Numeric yloc Numeric owner String designation des Character (see table 10) newdesignation newdes Character efficiency eff Numeric work Numeric available avail Numeric mobility mob Numeric civilians civ/civs Numeric militairs mil/mils Numeric planes Numeric 9 December 10, 1991 Parser : Syntax ships Numeric nukes Numeric distribute dist Coords occupied occ Boolean owned Boolean coast Boolean food_used Numeric starvation Boolean mines Boolean territory terr Numeric plague Numeric plague_stage pstage Plague (see table 4) happy Boolean happiness hstate Happy (see table 5) ____________________________________________________ 7 |7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7| |7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7| 9 December 10, 1991 Parser : Syntax Table 4: -=[* Plague Type Constants *]=- Name Description ____________________________________ healthy Sector not infected infected Sector is battling plague dying Sector has plague deaths ____________________________________ 7 |7|7|7|7| December 10, 1991 Parser : Syntax Table 5: -=[* Happiness Type Constants *]=- Name Alias Description ____________________________________________________________ loyal Sector population is loyal to you unrest Sector has unrest revolutionaries revol Sector has revolutionaries terrorists terror Sector has terrorists guerrillas guerre Sector has guerillas ____________________________________________________________ 7 |7|7|7|7|7|7| |7|7|7|7|7|7| December 10, 1991 Parser : Syntax Table 6: -=[* Variables valid within nuke(...) modifier *]=- Usage Result type ______________________________________________ xloc Numeric yloc Numeric ______________________________________________ name String type Numeric (index in nuke type table) stockpile Numeric ______________________________________________ 7 ||7|7|7|7|7|7| 9 9 December 10, 1991 Parser : Syntax Table 7: -=[* Variables valid within ship(...) modifier *]=- Usage Alias Result type __________________________________________________________________________ xloc Numeric yloc Numeric owner String owned Boolean efficiency eff Numeric mobility mob Numeric civilians civ/civs Numeric militairs mil/mils Numeric __________________________________________________________________________ food Numeric dust gold_dust Numeric December 10, 1991 Parser : Syntax oil Numeric iron iron_ore Numeric uw uncompensated_workers Numeric guns Numeric bars gold_bars Numeric petrol petroleum Numeric lcms Numeric hcms Numeric she shells Numeric rads radioactive Numeric population pop Numeric ((civs + mils + uws) of ship) planes Numeric food_used Numeric starvation Boolean __________________________________________________________________________ fleet Character 9 December 10, 1991 Parser : Syntax name String type Numeric (index in ship table) technology tech Numeric number Numeric radar Numeric sonar Numeric moves Numeric __________________________________________________________________________ 7 |7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7| |7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7| 9 December 10, 1991 Parser : Syntax Table 8: -=[* Variables valid within plane(...) modifier *]=- Usage Alias Result type ___________________________________________________ xloc Numeric yloc Numeric efficiency eff Numeric mobility mob Numeric ___________________________________________________ wing Character name String type Numeric (index in plane table) number Numeric technology tech Numeric maxrange Numeric December 10, 1991 Parser : Syntax max_range Numeric attack Numeric defense Numeric harden Numeric load Numeric ___________________________________________________ 7 ||7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7| 9 ||7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7| 9 9 December 10, 1991 Parser : Syntax Table 9: -=[* Empire constants *]=- Usage Alias Description ________________________________________________________________________________ secs_per_etu spe Seconds per Empire Time Unit (etu) etus_per_update epu ETU's per update interest_rate irate Interest per gold bar civ_tax_rate ctrate Income per civilian uw_tax_rate utrate Income per uncompensated worker active_mil_cost amcrate Cost per active militair reserve_mil_cost rmcrate Cost per militair on reserve fertility_rate frate Food a non-aggi sector can grow per fertility unit harvest_rate hrate Amount of food a one civilian will harvest civ_birth_rate cbrate Number of babies one civilian will make uw_birth_rate ubrate Number of babies one uncompensated worker will make eat_rate erate Amount of food a grownup will eat 9 December 10, 1991 Parser : Syntax baby_eat_rate berate Amount of food a baby will eat ________________________________________________________________________________ 7 |7|7|7|7|7|7|7|7|7|7|7|7|7|7| |7|7|7|7|7|7|7|7|7|7|7|7|7|7| 9 December 10, 1991 Parser : Syntax Table 10: -=[* Designation characters *]=- Character Description _______________________________ ? Unknown . Sea ^ Mountain s Sanctuary Wasteland - Wilderness c Capital u Uranium mine p Park d Defense plant i Shell industry m Mine 9 December 10, 1991 Parser : Syntax g Gold mine h Harbor w Warehouse * Airfield a Agribusiness o Oil field j Light manufacturing k Heavy manufacturing f Fortress t Technical center r Research lab n Nuclear plant l Library/school + Highway ) Radar installation December 10, 1991 Parser : Syntax ! Weather stn # Bridge head = Bridge span b Bank % Refinery e Enlistment center _______________________________ 7 |7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7|7| 9 December 10, 1991 xemp5.1-beta/info/tcemp/ 40755 12266 2116 0 6043206203 13374 5ustar jponexorxemp5.1-beta/info/tcemp/startup100644 12266 2116 11420 5760277750 15160 0ustar jponexor Subject : Getting started with tcemp Before using tcemp you should have set up your .xemprc as described in "info: termc/xemprc". You can call tcemp just like the normal empire client, although a few options are allowed. These options are described in "info: termc/options". Normally you call tcemp as follows: December 10, 1991 Subject : Getting started with tcemp tcemp This will redump all information, like dump, lookout, radar, nukes, etc. tcemp -N This will not redump anything. It won't connect to the empire-server, so you can work (with buffered commands) even if the empire-server is down. As it will be your first time, just enter "tcemp ". The program will ask you for your password, then connect to the server and start to collect information. When this is done, you can start to use tcemp. December 10, 1991 Subject : Getting started with tcemp 1. Layout There are four main windows: * The census window * The map window * The message window * The empire window 1.1. The census window The census window will display all information about the current sector, or if selected, about the current ship, plane or stockpile (nuke). December 10, 1991 Subject : Getting started with tcemp The census window can also contain some buttons for navigat- ing ships, showing info about starvation and work, showing nukes, etc. 1.2. The map window The map window shows your map. You can highlight sectors which satisfy a certain condition, you can show the current designation or the new designation, you can show some expression over the sector, etc, etc. 1.3. The message window. This window will be used for showing messages to you about what you should do next, which button to use for which December 10, 1991 Subject : Getting started with tcemp command, and asking you questions about commands. 1.4. The empire window. All the dat send to the server, and the output of the server are shown in this window. You can also give commands here, but as this window will be very small, this won't be very useful. 2. Moving your cursor around. Using the keys 'hjkl' and 'HJKL', you can move your cursor around the screen (just like vi). If you move of the screen, your cursor will be placed at the other side of your screen. By first pressing your move-prefix key (default 'z', but you December 10, 1991 Subject : Getting started with tcemp can set this key in your .xemprc), followed by a move-char ('hjkl'), you can shift the map. After pressing the move- prefix, the following keys will: 'm' Move to the map window 'c' Move to the census window 'e' Move to the empire window 'b' Move to the lower-left corner December 10, 1991 Subject : Getting started with tcemp 3. Giving commands There are three ways in which you can give a command at a sector. * At the census-window * Through a menu * Through a binding 3.1. At the census-window When you select a place at the censuswindow (eg with the space bar), you can type in a new value (if appropiate). So if you want to change the threshold of food in the current December 10, 1991 Subject : Getting started with tcemp sector, go to the census window and select the threshold column belonging to food. You may now enter a new threshold, and tcemp will feed the correct command to the empire-server (or buffer it, and feed it later). The same way you can change cutoff's, distribu- tion paths, load a ship, etc, etc. As a deity, you're also allowed to change resources and other quantities. 3.2. Through a menu If you press on a sector, you'll be given a pager with commands you can give at this sector. Use 'jk' to select the command you want to give. If you press on a sector, the sector will become the current sector. December 10, 1991 Subject : Getting started with tcemp If you press on the map window, you'll be given a menu with global commands. 3.3. Through a binding If you press a key which is binded to a command, this com- mand will be executed (if possible). 4. More information More (up to date) information can be found in the following info files: * termc/pager * termc/buttons December 10, 1991 Subject : Getting started with tcemp * parse/highlight December 10, 1991 xemp5.1-beta/info/tcemp/pager100644 12266 2116 3541 5760277750 14541 0ustar jponexor Info : Pagers Pagers There are three different pagers: * Show pagers * Choice pagers * Select pagers December 10, 1991 Info : Pagers 1. Show pagers When text or output needs to be shown, empire will generate this pager. The Space will show the next page, Tab the pre- vious, and Return will end this pager. 2. Choice pagers When you have to choose between many options, tcemp will give show you a choice-pager. This pager can contain: * Definitions for the buttons * List of choices * Function buttons December 10, 1991 Info : Pagers 2.1. Definitions for the buttons. The buttons can get a special meaning in some pagers (exam- ple: highlight). This will be shown by two or three buttons at top of the pager. These buttons will be surrounded by square brackets. Following keys will simulate following buttons * Space - Left button * Tab - Middle button * Return - Right button When those buttons are not redefined, you'll always have to select with Space. Other buttons (Tab & Return) will cancel December 10, 1991 Info : Pagers the pager. 2.2. Function buttons Sometimes you have some buttons at the bottom of your pager. You can select those functions by pressing shift and the first letter of the function name. 3. Select pagers Select pagers are just special choice pagers. In this case the buttons will always have a different meaning. You may select several choices and press a certain button to show that you're done with selecting. December 10, 1991 Info : Pagers See also termc/buttons December 10, 1991 xemp5.1-beta/info/tcemp/xemprc100644 12266 2116 11531 5760277750 14757 0ustar jponexor Subject : xemprc SUBJECT xemprc A number of quantities can be set in the .xemprc file which will tailor the behavior of the utility. The file is searched for in the current directory, followed by the users HOME directory. Options given at the command-line will always overrule options in your .xemprc. December 10, 1991 Subject : xemprc Empty line and lines starting with a '#' are skipped, also lines starting with "X " will be skipped. Lines starting with "TC " will be interpreted without the "TC ". Lines starting with "coun ()" are scanned only if you're playing as , thus allowing you to set up a .xemprc for more than one game. Lines starting with "term ()" are scanned only if you're working on a terminal. 1. General options Here follows a list of all options tcemp will recognize. All keywords are case-censitive! December 10, 1991 Subject : xemprc To define an option, add the line "OPTION= " to your .xemprc ___________________________________________________________________ Mail Utility Option Values Description ___________________________________________________________________ Keep send Confirm|Yes|No If you make an announcement should this announcement be kept in your mailbox? Keep announce Confirm|Yes|No See above Delete mailbox Confirm|Yes|No After reading your mail, should tcemp delete your mailbox (into the shedder) Signature String This file will be added to your telegrams and announcements. December 10, 1991 Subject : xemprc ___________________________________________________________________ _______________________________________________________ Starting up Option Values Description _______________________________________________________ Rescan show Yes|No rescan "show build/cap" for planes, nukes & ships? Rescan sonar Yes|No rescan sonar? Rescan land radar Yes|No Rescan ship radar Yes|No Rescan lookout Yes|No Rescan coastwatch Yes|No _______________________________________________________ December 10, 1991 Subject : xemprc ______________________________________________________________ Connection Option Values Description ______________________________________________________________ Silent timeout Yes|No Should you notice when tcemp times out? Timeout Numeric After how many seconds should tcemp time out? (0 is no timeout) ______________________________________________________________ 9 December 10, 1991 Subject : xemprc __________________________________________________________________ Miscellaneous Option Values Description __________________________________________________________________ Compress Yes|No Should datafiles be compressed? Port String Which port should tcemp connect to? Host String Which host should tcemp connect to? Savelines Numeric How many savelines should the empirewindow have? Buffer [On|Off|Force] Use which buffering? Worldsize #x# Worldsize of this game Capab ss:ss:ss:ss Use trycap to add a new entry Move-prefix Char Use as move-prefix __________________________________________________________________ 9 December 10, 1991 Subject : xemprc 2. Defining capabilities for each terminal. You should run the program 'trycap' on each terminal type on which you want to play tcemp. This will help you finding out the best highlights for this terminal type. Trycap will tell you which line to add. 3. Bindings You can also add bindings to your .xemprc. These are shortcuts, so you don't have to walk through many menus before executing a command. A list of all possible commands is in "info: bind/bindings" Do not try to rebind the "space", "tab" or "return" keys. December 10, 1991 Subject : xemprc They are used for the buttons. Format of a bind: Bind to []. Example: Bind M to move (mil). See Also bind/bindings December 10, 1991 xemp5.1-beta/info/tcemp/compiling100644 12266 2116 12356 5760277750 15450 0ustar jponexor SUBJECT : Compiling tcemp As I have only one system to test tcemp , don't expect it compile without any trouble. If you succeed, please let me know what you had to change to get it working (please tell me also if there were no problems at all). I'm also always willing to try to help you out with any problem you might have (regard- ing tcemp ). reply: send to hjvissc@cs.vu.nl or: make reply December 10, 1991 SUBJECT : Compiling tcemp 1. Creating the makefile You will have to compile 'setup' to create a makefile for tcemp. The setup programm is located in the src directory: command> cd src/setup command> make You'll be asked two questions: * Do you have getopt? * Do you have vsprintf? Most of the systems do have these functions defined, but if setup doesn't compile because one of those two is missing, December 10, 1991 SUBJECT : Compiling tcemp enter: command> make cleanup command> make And enter 'no' at the appropiate question(s). Now copies of my system are compiled, so probably it still won't work. I can't help you now, you have to find those functions yourself. Otherwise, change to the xemp directory and run setup: command> cd ../.. command> setup -vpt ____________________________________________________________________ Options to setup: 9 December 10, 1991 SUBJECT : Compiling tcemp ____________________________________________________________________ -v Verbose, output what you're doing -p Do not depend on proto.h -i Check for existing makefile -t Do not ask questions about a X-environment. (tcemp only) -d Use default values (defined in default.c) -f Generate instead of makefile ____________________________________________________________________ Setup will ask you several questions. To take the default (answer between square brackets), just type return. To enter nothing, type a dot (.) * Use which compiler December 10, 1991 SUBJECT : Compiling tcemp Unless your c-compiler is located else, just accept the default value. * Are you working under BSD? Setup will try to check if you're working under BSD by trying to access the file "/usr/include/sys/termios.h". (access ok -> not bsd). Taking the default will work most of the time. (Unless your include directory is located elsewhere, then you'll have to check this your- self). * Flags to pass to the c-compiler December 10, 1991 SUBJECT : Compiling tcemp Don't use -O4 here, this generates even more core dumps (unless of course you have a better compiler as I do). If you're using gcc, you should add the "-fwritable- strings" option. * Flags to pass to the loader The options "-s" strips the executable (reduces its size) The next page asks question about the empire game * World size December 10, 1991 SUBJECT : Compiling tcemp * Default empire host * Default empire port These questions can be skipped if you don't know the answers right now. You can always set them: 1) In your environment, 2) In your .xemprc, and 3) On the command line. * Where will xemp-info be located? December 10, 1991 SUBJECT : Compiling tcemp If setup can't access the directory, you'll be given a warning. * Do you have empire-info on line? If you have a local empire server, or just the info on line, xemp doesn't need to get the info from the remote server, which will save you a lot of time. * Use as ctags Always ctags. December 10, 1991 SUBJECT : Compiling tcemp * Which ftp directory If you want to put xemp on ftp on your machine, you should enter the directory where to put the tar-file. After all these questions, setup will generate the makefile. If there are any problems, you can send me mail, and I will take a look at it. 2. Compiling Now it's time to compile xemp. First we must create the correct proto.h file, so enter: December 10, 1991 SUBJECT : Compiling tcemp command> make tc_proto.h proto.c (in src) will now be compiled, and proto.h will be made. command> make tcemp Get yourself a cup of coffee. This may take a while. If you have any problems, I could try to help you out, but I'd prefer if you'd take a look at the code yourself and send me a bug fix instead of a question. If everything went ok, tcemp will be ready for use. December 10, 1991 SUBJECT : Compiling tcemp 3. Creating the trycap program. command> make trycap This will create the trycap program, which you will need to find the correct capabilities for each terminal you want to play tcemp on. See also: tcemp/startup tcemp/xemprc bind/bindings December 10, 1991 xemp5.1-beta/info/tcemp/buttons100644 12266 2116 743 5760277750 15122 0ustar jponexor1. Tcemp will simulate the buttons used by xemp by the fol- lowing keys: * Space - Left button * Tab - Middle button * Return - Right button The Message window will show you what each button does, but generally speaking you could say that: Space always views the sector December 10, 1991 - 2 - Tab always does a cancel Return always activates the command. December 10, 1991 xemp5.1-beta/info/tcemp/help100644 12266 2116 615 5760277750 14352 0ustar jponexor Info : Compiling tcemp To get started with tcemp, you should read the following info files: tcemp/compiling Information about compiling tcemp. tcemp/xemprc Info about setting up your xemprc tcemp/startup Info how to call tcemp and how commands can be given. tcemp/pager Info about the pagers being used in tcemp December 10, 1991 xemp5.1-beta/info/xemp/ 40755 12266 2116 0 6043206203 13235 5ustar jponexorxemp5.1-beta/info/xemp/compiling100644 12266 2116 7204 5760277750 15265 0ustar jponexorSUBJECT: Compiling xemp As I have only one system to test tcemp, don't expect it compile without any troubles. If you succeed, please let me know what you had to change to get it working (please tell me also if there were no problems at all). I'm also always willing to try to help you out with any problem you might have (regarding xemp). reply: send to hjvissc@cs.vu.nl or: make reply ------------------------------- STEP 1: Creating the makefile You will have to compile 'setup' to create a makefile for xemp. The setup programm is located in the src directory: command> cd src/setup command> make You'll be asked two questions: 1). Do you have getopt? 2). Do you have vsprintf? Most of the systems do have these functions defined, but if setup doesn't compile because one of those two is missing, enter: command> make clean command> make And enter 'no' at the questions. Now copies of my system are compiled, so probably it still won't work. I can't help you now, you have to find those functions yourself. Otherwise, change to the xemp directory and run setup: command> cd ../.. command> setup -vpt Options to setup: -v: Verbose, output what you're doing -p: Do not depend on proto.h -i: Check for existing makefile -t: Do not ask questions about a X-environment. (tcemp only) -f : Generate instead of makefile Setup will ask you several questions. To take the default (answer between square brackets], just type return. To enter nothing, type a dot (.) Question 1: Use which compiler Unless your c-compiler is located else, just accept the default value. Question 2: Are you working under BSD? Setup will try to check if you're working under BSD by trying to access "/usr/include/sys/termios.h". (access ok -> not bsd). Taking the default will work most of the time. (Unless your include directory is located elsewhere, then you'll have to check this yourself). Question 3: Flags to pass to the c-compiler Don't use O4 here, this generates even more core dumps (unless of course you have a better compiler as I do). Question 4: Flags to pass to the loader The options "-s" strips the executable (reduces its size) The next page asks question about the empire game Question 5: World size Question 6: Default empire host Question 7: Default empire port These questions can be skipped if you don't know the answers right now. You can always set them: 1) In your environment, 2) In your .xemprc, and 3) On the command line. Question 8: Where will xemp-info be located? If setup can't access the directory, you'll be given a warning. Question 9,10: Do you have empire-info on line? If you have a local empire server, or just the info on line, xemp doesn't need to get the info from the remote server, which will save you a lot of time. Question 11: Use as ctags Always ctags. Question 12: If you want to put xemp on ftp on your machine, you should enter the directory where to put the tar-file. After all these questions, setup will generate the makefile. If there are any problems, you can send me mail, and I will take a look at it. -------------------------------------------------------------------- STEP 2: Compiling Now it's time to compile xemp. First we must create the correct proto.h file, so enter: command> make tc_proto.h proto.c (in src) will now be compiled, and proto.h will be made. command> make tcemp Get yourself a cup of coffee. This may take a while. If you have any problems, I could try to help you out, but I'd prefer if you'd take a look at the code yourself and send me a bug fix instead of a question. If everything went ok, tcemp will be ready for use. See: tcemp/startup tcemp/.xemprc tcemp/bindings xemp5.1-beta/info/bind/ 40755 12266 2116 0 6043206203 13200 5ustar jponexorxemp5.1-beta/info/bind/bindings100644 12266 2116 14005 5760277751 15062 0ustar jponexor Subject : Bindings _____________________________________________________________________________ Status Meaning _____________________________________________________________________________ OK No restrictions OWNED You should own the sector OCC The sector should be occupied ENEM_NEXT You should have an enemy as neighbour SHIP You should have a current ship (ship census) SHIPS There should be a ship in this sector December 10, 1991 Subject : Bindings ENEM_SHIP There should be an enemy ship in this sector PLANE You should have planes in this sector _____________________________________________________________________________ _______________________________________ Connections Command Status _______________________________________ connections OK reconnect OK disconnect OK _______________________________________ December 10, 1991 Subject : Bindings _______________________________________ Communications Command Status _______________________________________ announce OK read [([BATOPR])] OK news OK headlines OK reread [([BATOPR])] OK send [(country)] OK _______________________________________ __________________________________________ December 10, 1991 9 Subject : Bindings Sector Commands Command Status __________________________________________ attack ENEM_NEXT convert [(quant)] designate [(newdesignation)] OWNED deliver OWNED demobilize [(quant, [yn])] OWNED explore OWNED enlist [(quant)] OWNED move [(item, quant)] OWNED shoot [(quant, item)] OWNED __________________________________________ December 10, 1991 Subject : Bindings __________________________________________ Ship Commands Command Status __________________________________________ mine [(quant)] SHIP tend [(item, quant)] SHIP build ship OWNED assault OK board ENEM_SHIP navigate [(ships)] SHIPS __________________________________________ _______________________________________ December 10, 1991 9 Subject : Bindings Plane Commands Command Status _______________________________________ bomb [([spn])] PLANE drop off [(item)] PLANE fly [(item)] PLANE _______________________________________ _______________________________________ Utilities Command Status _______________________________________ distribute utility OWNED ferry utility OK December 10, 1991 Subject : Bindings explore util OK _______________________________________ _______________________________________ Multi commands Command Status _______________________________________ run program OK multi enlist OK multi demob OK multi convert OK _______________________________________ December 10, 1991 Subject : Bindings _______________________________________ Miscellaneous Command Status _______________________________________ again OK bind key OK census mode (mode) OK center map OK check OK goto OK highlight OK page command OK quit OK store data OK info OK December 10, 1991 Subject : Bindings global commands OK change display OK fast quit OK nation OK _______________________________________ 1. Arguments to census mode Next arguments can be given to the "census mode" binding: * normal * ship * fleet * plane * wing 9 December 10, 1991 Subject : Bindings * nuke * ferry * info (tcemp only) December 10, 1991 xemp5.1-beta/info.t/ 40755 12266 2116 0 6043206206 12531 5ustar jponexorxemp5.1-beta/info.t/bind/ 40755 12266 2116 0 6043206204 13443 5ustar jponexorxemp5.1-beta/info.t/bind/bindings.t100644 12266 2116 4443 5760277752 15554 0ustar jponexor.Sh BIND Commands .Np COMMANDS Following a list with all commands that you can use to create a binding. To setup a binding in your .xemprc, add a line like this: "Bind to command [()]. .in 0 .KS .TS box,center; lw(25)|l. \fBStatus Meaning\fP _ OK No restrictions OWNED You should own the sector OCC The sector should be occupied ENEM_NEXT You should have an enemy as neighbour SHIP You should have a current ship (ship census) SHIPS There should be a ship in this sector ENEM_SHIP There should be an enemy ship in this sector PLANE You should have planes in this sector .TE .KE .KS .TS box,center; c s lw(30)|l. \fBConnections\fP \fBCommand Status\fP _ connections OK reconnect OK disconnect OK .TE .KE .KS .TS box,center; c s lw(30)|l. \fBCommunications\fP \fBCommand Status\fP _ announce OK read [([BATOPR])] OK news OK headlines OK reread [([BATOPR])] OK send [(country)] OK .TE .KE .KS .TS box,center; cw(30) s l|l. \fBSector Commands\fP \fBCommand Status\fP _ attack ENEM_NEXT convert [(quant)] OCC designate [(newdesignation)] OWNED deliver OWNED demobilize [(quant, [yn])] OWNED explore OWNED enlist [(quant)] OWNED move [(item, quant)] OWNED shoot [(quant, item)] OWNED .TE .KE .KS .TS box,center; cw(30) s l|l. \fBShip Commands\fP \fBCommand Status\fP _ mine [(quant)] SHIP tend [(item, quant)] SHIP build ship OWNED assault OK board ENEM_SHIP navigate [(ships)] SHIPS .TE .KE .KS .TS box,center; cw(30) s l|l. \fBPlane Commands\fP \fBCommand Status\fP _ bomb [([spn])] PLANE drop off [(item)] PLANE fly [(item)] PLANE .TE .KE .KS .TS box,center; cw(30) s l|l. \fBUtilities\fP \fBCommand Status\fP _ distribute utility OWNED ferry utility OK explore util OK .TE .KE .KS .TS box,center; cw(30) s l|l. \fBMulti commands\fP \fBCommand Status\fP _ run program OK multi enlist OK multi demob OK multi convert OK .TE .KE .Lt .KS .TS box,center; cw(30) s l|l. \fBMiscellaneous\fP \fBCommand Status\fP _ again OK bind key OK census mode (mode) OK center map OK check OK goto OK highlight OK page command OK quit OK store data OK info OK global commands OK change display OK fast quit OK nation OK .TE .KE .Te .Np ARGUMENTS Next arguments can be given to the "census mode" binding: .br .sp .Sr \(bu normal .br \(bu ship .br \(bu fleet .br \(bu plane .br \(bu wing .br \(bu nuke .br \(bu ferry .br \(bu info (tcemp only) .Sl xemp5.1-beta/info.t/tcemp/ 40755 12266 2116 0 6043206204 13637 5ustar jponexorxemp5.1-beta/info.t/tcemp/startup.t100644 12266 2116 7070 5760277752 15654 0ustar jponexor.Sh "TCEMP" "Getting started" .Np NOTE Before using \fItcemp\fP you should have set up your .xemprc as described in "termc/xemprc". .Np INVOCATION You can call \fItcemp\fP just like the normal empire client, although a few options are allowed. These options are described in "termc/options". Normally you call tcemp as follows: .sp 1 .Ti $ tcemp .sp 1 This will redump all information, like dump, lookout, radar, nukes, etc. .sp 1 .Ti $ tcemp -N .IP This will not redump anything. It won't connect to the empire-server, so you can work (with buffered commands) even if the empire-server is down. .s1 As it will be your first time, just enter "tcemp ". The program will ask you for your password, then connect to the server and start to collect information. .Np LAYOUT There are four main windows: .ne 5 .Sr \(bu The census window .br \(bu The map window .br \(bu The message window .br \(bu The empire window .Sl .Np CENSUS The census window will display all information about the current sector, or if selected, about the current ship, plane or stockpile (nuke). .s1 The census window can also contain some buttons for navigating ships, showing info about starvation and work, recon with planes, etc. .Np MAP The map window shows your map. You can highlight sectors which satisfy a certain condition, you can show the current designation or the new designation, you can show some expression over the sector, etc, etc. .Np MESSAGE This window will be used for showing messages to you about what you should do next, which button to use for which command, and asking you questions about commands. .Np EMPIRE All the data sent to the server, and the output of the server are shown in this window. You can also give commands here, but as this window will be very small, this won't be very useful. .Ph CURSOR Using the keys 'hjkl' and 'HJKL', you can move your cursor around the screen (just like vi). If you move off the screen, your cursor will be placed at the other side of your screen. .s1 By first pressing your \fBmove-prefix\fP key (default 'z', but you can set this key in your .xemprc), followed by a move-char ('hjkl'), you can shift the map. After pressing the move-prefix, the following keys will: .Sr .nf \&'m' Move to the map window .br \&'c' Move to the census window .br \&'e' Move to the empire window .br \&'b' Move to the lower-left corner .fi .Sl .Np COMMANDS There are three ways in which you can give a command at a sector. .sp 1 .Sr \(bu At the census-window .br \(bu Through a menu .br \(bu Through a binding .Sl .Np CENSUS When you select a place at the census window (eg with the space bar), you can type in a new value (if appropiate). So if you want to change the threshold of food in the current sector, go to the census window and select the threshold column belonging to food. .s1 You may now enter a new threshold, and \fItcemp\fP will feed the correct command to the empire server (or buffer it, and feed it later). You can change cutoff's, distribution paths, load a ship, etc, etc. in the same way. As a deity, you're also allowed to change resources and other quantities. .Np MENU If you press on a sector, you'll be given a pager with commands you can give at this sector. Use 'jk' to select the command you want to give. .s1 If you press on a sector, the sector will become the current sector. .s1 If you press at the map window, you'll be given a menu with global commands. .Np BINDING If you press a key which is bound to a command, this command will be executed (if possible). .Sa "tcemp/buttons" "tcemp/pagers" "tcemp/bind" xemp5.1-beta/info.t/tcemp/pager.t100644 12266 2116 2667 5760277752 15257 0ustar jponexor.Sh TCEMP Pagers .Np PAGERS There are three different pagers: .sp1 .nf .Sr \(bu Show pagers .br \(bu Choice pagers .br \(bu Select pagers .fi .Sl .Np SHOW\\0PAGER When text or output needs to be shown, empire will generate this pager. The Space will show the next page, Tab the previous, and Return will end this pager. .Np CHOICE\\0PAGER When you have to choose between many options, \fBtcemp\fP will give show you a choice-pager. This pager can contain: .s1 \(bu Definitions for the buttons .Sr .s1 The buttons can get a special meaning in some pagers (example: highlight). This will be shown by two or three buttons at top of the pager. These buttons will be surrounded by square brackets. .s1 Following keys will simulate following buttons .Sr .nf \(bu Space - Left button .br \(bu Tab - Middle button .br \(bu Return - Right button .Sl .fi .s1 .Sl .s1 \(bu List of choices .Sr .s1 When the buttons are not redefined, you'll always have to select with Space. Other buttons (Tab & Return) will cancel the pager. .s1 .Sl \(bu Function buttons .Sr .s1 Sometimes you have some buttons at the bottom of your pager. You can select those functions by pressing shift and the first letter of the function name. .s1 .Sl .Np SELECT\\0PAGER Select pagers are just special choice pagers. In this case the buttons will always have a different meaning. You may select several choices and press a certain button to show that you're done with selecting. .Sa termc/buttons xemp5.1-beta/info.t/tcemp/xemprc.t100644 12266 2116 5763 5760277752 15457 0ustar jponexor.Sh TCEMP Xemprc .Np XEMPRC A number of quantities can be set in the .xemprc file which will tailor the behavior of \fItcemp\fP. \fITcemp\fP searches for this file in the current directory, followed by the user's HOME directory. Options given at the command line will always override options in your .xemprc. .s1 Empty lines and lines starting with a '#' are skipped, also lines starting with "X " will be skipped. Lines starting with "TC " will be interpreted without the "TC ". .s1 Lines starting with "coun ()" are scanned only if you're playing as , thus allowing you to set up a .xemprc for more than one game. .s1 Lines starting with "term ()" are scanned only if you're working on a terminal. .Np OPTIONS Here is a list of all of the options tcemp will recognize. All keywords are case sensitive! .s1 To define an option, add the line "OPTION=" to your .xemprc .in 0 .KS .TS center,box; c|s|s l|l|l. \fBMail Utility\fP Option Values Description _ Keep send Confirm|Yes|No If you make an announcement should this announcement be kept in your mailbox? Keep announce Confirm|Yes|No See above Delete mailbox Confirm|Yes|No After reading your mail, should \fItcemp\fP delete your mailbox (into the shedder) Signature String This file will be added to your telegrams and announcements. .TE .KE .s1 .KS .TS center,box; c|s|s l|l|l. \fBStarting up\fP Option Values Description _ Rescan show Yes|No rescan "show build/cap" for planes, nukes & ships? Rescan sonar Yes|No rescan sonar? Rescan land radar Yes|No Rescan ship radar Yes|No Rescan lookout Yes|No Rescan coastwatch Yes|No .TE .KE .sp 1 .KS .TS center,box; c|s|s l|l|l. \fBConnection\fP Option Values Description _ Silent timeout Yes|No Should you notice when \fItcemp\fP times out? Timeout Numeric After how many seconds should \fItcemp\fP time out? (0 is no timeout) .TE .KE .s1 .KS .TS center,box; c|s|s l|l|l. \fBMiscellaneous\fP Option Values Description _ Compress Yes|No Should datafiles be compressed? Port String Which port should \fItcemp\fP connect to? Host String Which host should \fItcemp\fP connect to? Savelines Numeric How many savelines should the empire window have? Buffer [On|Off|Force] Use which buffering? Worldsize #x# Worldsize of this game Capab ss:ss:ss:ss Use trycap to add a new entry Move-prefix Char Use as move-prefix .TE .KE .Np TRYCAP You should run the program 'trycap' on each terminal type on which you want to play \fItcemp\fP. This will help you finding out the best highlight method for each terminal type. Trycap will tell you which line to add to your .xemprc. .Np BINDINGS You can also add bindings to your .xemprc. These are shortcuts, so you don't have to walk through so many menus before executing a command. .s1 A list of all possible commands is in "bind/bindings". .s1 Do not try to rebind the "space", "tab" or "return" keys. They are used for the buttons. .sp 1 Format of a bind: \fBBind to []\fP. .sp 1 Example: Bind M to move (mil). .Sa bind/bindings xemp5.1-beta/info.t/tcemp/compiling.t100644 12266 2116 7717 5760277753 16144 0ustar jponexor.Sh TCEMP Compiling .Np GOOD\\0LUCK As I have only one system to test \fItcemp\fP , don't expect it compile without any trouble. If you succeed, please let me know what you had to change to get it working (please tell me also if there were no problems at all). I'm also always willing to try to help you out with any problem you might have (regarding \fItcemp\fP ). .s1 .nf reply: send to hjvissc@cs.vu.nl .br or: make reply .fi .Np SETUP You will have to compile 'setup' to create a makefile for \fItcemp\fP. The setup program is located in the src directory: .nf .s1 $ cd src/setup .br $ make .sp 1 .fi You'll be asked two questions: .s1 .Sr \(bu Do you have getopt? .br \(bu Do you have vsprintf? .Sl .s1 Most of the systems do have these functions defined, but if setup doesn't compile because one of those two is missing, enter: .s1 .nf $ make cleanup .br $ make .s1 .fi And enter 'no' at the appropiate question(s). .s1 Now copies of my system are compiled, so probably it still won't work. I can't help you now, you have to find those functions yourself. .br Otherwise, change to the xemp directory and run setup: .s1 .nf $ cd ../.. .br $ setup -vpt .br .fi .KS .TS box,center; c|s c|l. \fBOptions to setup:\fP _ -v Verbose, output what you're doing -p Do not depend on proto.h -i Check for existing makefile -t Do not ask questions about a X-environment. (tcemp only) -d Use default values (defined in default.c) -f Generate instead of makefile .TE .KE Setup will ask you several questions. To take the default (answer between square brackets), just type return. To enter nothing, type a dot. .br .ne 3 .sp 1 .Sr \(bu Use which compiler .Sr .s1 Unless your C compiler is located else, just accept the default value. .Sl .s1 \(bu Are you working under BSD? .Sr .s1 Setup will try to check if you're working under BSD by trying to access the file "/usr/include/sys/termios.h". (access ok -> not bsd). Taking the default will work most of the time. (Unless your include directory is located elsewhere, then you'll have to check this yourself). .Sl .s1 \(bu Flags to pass to the C compiler .Sr .s1 Don't use -O4 here, this generates even more core dumps (unless of course you have a better compiler as I do). .s1 If you're using gcc, you should add the "-fwritable-strings" option. .s1 .Sl \(bu Flags to pass to the loader .Sr .s1 The option "-s" strips the executable (reduces its size) .Sl .Sl .s1 The next page asks question about the empire game .Sr .s1 \(bu World size .sp 1 \(bu Default empire host .sp 1 \(bu Default empire port .Sr .s1 These questions can be skipped if you don't know the answers right now. You can always set them: 1) In your environment, 2) In your .xemprc, and 3) On the command line. .Sl .s1 \(bu Where will xemp-info be located? .Sr .s1 If setup can't access the directory, you'll be given a warning. .Sl .s1 \(bu Do you have empire-info on line? .Sr .s1 If you have a local empire server, or just the info on line, xemp doesn't need to get the info from the remote server, which will save you a lot of time. .Sl .s1 \(bu Use as ctags .Sr .s1 Always ctags. .Sl .s1 \(bu Which ftp directory .Sr .s1 If you want to put xemp on ftp on your machine, you should enter the directory where to put the tar-file. .Sl .Sl .s1 After all these questions, setup will generate the makefile. .Np COMPILING Now it's time to compile xemp. First we must create the correct proto.h file, so enter: .sp 1 .nf $ make tc_proto.h .fi .s1 proto.c (in src) will now be compiled, and proto.h will be made. .sp 1 $ make \fItcemp\fP .s1 Get yourself a cup of coffee. This may take a while. If you have any problems, I could try to help you out, but I'd prefer if you'd take a look at the code yourself and send me a bug fix instead of a question. .br If everything went ok, tcemp will be ready for use. .Np TRYCAP To create the "trycap" utility, enter: .br .ne 2 .sp 1 .nf $ make trycap .fi .s1 You need this to find the correct capabilities for each terminal you want to play \fItcemp\fP on. .Sa termc/startup termc/xemprc xemp5.1-beta/info.t/tcemp/buttons.t100644 12266 2116 664 5760277753 15633 0ustar jponexor.Sh TCEMP "Buttons" .Np BUTTONS \fITcemp\fP will simulate the buttons used by xemp by the following keys: .sp 1 .Sr .nf \(bu Space - Left button .br \(bu Tab - Middle button .br \(bu Return - Right button .fi .Sl .sp 1 The message window will show you what each button does, but normally the functions are as follows: .sp 1 .Sr Space always views the sector .br Tab always does a cancel .br Return always activates the command. .Sl xemp5.1-beta/info.t/tcemp/help.t100644 12266 2116 574 5760277753 15065 0ustar jponexor.Sh TCEMP "Infofiles" .Np "INFO-FILES" To get started with tcemp, you should read the following info files: .s1 .Si tcemp/compiling .Ir "tcemp/compiling" Information about compiling tcemp. .Ir "tcemp/xemprc" Info about setting up your xemprc .Ir "tcemp/startup" Info how to call tcemp and how commands can be given. .Ir "tcemp/pager" Info about the pagers being used in tcemp .Ei xemp5.1-beta/info.t/parse/ 40755 12266 2116 0 6043206204 13641 5ustar jponexorxemp5.1-beta/info.t/parse/highlight.t100644 12266 2116 3061 5760277753 16120 0ustar jponexor.Sh PARSER Highlight .Np HIGHLIGHT You can highlight sectors satisfying a certain condition. For the correct syntax, see "info: parse/syntax". Some examples will be given how to use the highlight function. .Np INVOKE The best way to get the highlight menu is to bind a certain key to it. The other way is via the global menu, display, and the choice "change highlight". .Np EXAMPLES starvation .Sr Highlight those sectors where people will starve. .Sl .s1 etus_per_update * civ * cbrate + civ > 990 .Sr Highlight those sectors that will be overpopulated. .Sl .s1 ship (name = "cargo ship") .Sr Highlight those sectors with at least one cargo ship in it. .Sl .s1 ship (name ~ "cargo" and mob > 0) == 2 .Sr Highlight those sectors that have exactly two "cargo*" ships with positive mobility. .Sl .s1 plague_stage != healty .Sr Highlight those sectors which are infected. .Sl .s1 ship (plane (type ~ "fighter")) .Sr Highlight those sectors with a ship in it that carries at least one fighter. .Sl .s1 r (iron) > 80 or r (gold dust) > 80 .Sr Highlight those sectors which have some mining or gold resources. .Sl .s1 ship (plane (nuke (name = "10 kt fission"))) .Sr Highlight those sectors that have a ship that carries a plane that is loaded with a 10 kt fission nuke warhead. .Sl .s1 occupied and (mil < (civ / 20)) .Sr Highlight occupied sectors which don't have enough militairs. .Sl .s1 coast and mil < 10 .Sr Highlight coast sectors that don't have enough militairs. .Sl .s1 not owned and des = capital .Sr Pleppen! .Sl .s1 mines > 0 .Sr Highlight water which should be avoided. .Sl xemp5.1-beta/info.t/parse/expression.t100644 12266 2116 1206 5760277754 16350 0ustar jponexor.Sh PARSER Expression .Np EXPRESSIONS You can show some expression next to the designation. This can be any legal expression recognized by the parser. For the syntax, see "info: parse/syntax". .s1 Values < 0 are shown as '-', values > 9.99 will be shown as '+'. .Np INVOKING The best way to get the expression menu is to bind a certain key to it. The other way is via the global menu, display, and the choice "change expression". .Np EXAMPLES round (r (iron) / 10) .Sr Show the mining contens .Sl .s1 population / 1000 .Sr Show the total population (in K) .Sl .s1 food_used / 10 .Sr Show the food used (in units of 10 food) .Sl .Sa parser/syntax xemp5.1-beta/info.t/parse/syntax.t100644 12266 2116 21722 5760277754 15524 0ustar jponexor.Sh PARSER Syntax .Np EXPRESSION \fBXemp\fP has a very powerful highlight expression mechanism. Practically everything you want to highlight can be entered as an expression. The expression parser will identify variables like \fIcivilians\fP or \fIfood\fP and substitute it with the actual value from the sector currently being examined. .s1 An expression is made up of compare expressions separated by the Boolean operators \fIand\fP and \fIor\fP. And has a higher priority than or, so the expression .Sr 0 and 0 or 1 .Sl will be parsed as ((0 and 0) or 1) which evaluates to 1 whereas you might have expected it would be parsed as (0 and (0 or 1)) which evaluates to 0. Both sides of an Boolean operator must be either boolean or Numeric, where a non-zero Numeric value means \fITRUE\fP and a zero numeric value means \fIFALSE\fP. .s1 The exceptional case of an expression is the one with only a compare expression, without Boolean operator. Therefore the expression can either assume a Numeric or a Boolean type. .s1 A compare expression consists of a term optionally followed by a compare operator and another term. Compare operators are '>', '<=', '=', etc. where both sides of the compare operator must be of the same type. .s1 The exceptional case of a compare expressions is the one with only a term, without an operator. Therefore a compare expression can either assume a Numeric or a Boolean type; .s1 A special compare operator is '~' which accepts only strings. It will match the left hand side string with the right hand side string and evaluates to 1 if either the left hand side string as a whole is a part of the right hand side or vica versa. .s1 Terms are normal everyday Numeric expressions like 1 + 2 * 4 etc. with the usual operator precedence. .s1 Every subexpression (a expression between parentheses) can be preceded by a expression modifier. Each of these modifiers identifies the object which the variables within the expressions reference. Valid modifiers are "sector(...)", "ship(...)", "plane(...)" and "nuke(...)". Variables in the outermost layer (no modifiers given) are assumed to be referencing the sector. .Np EXAMPLES .Sr \fBplague_stage <> healty\fP .Sl Evaluates to \fITRUE\fP if the sector is infected. .s1 .Sr \fBoccupied and (mil < (civ / 20))\fP .Sl Evaluates to \fITRUE\fP if the sector is occupied and does not have enough military in it to control it. .s1 .Sr \fBship(name ~ "cargo")\fP .Sl Evaluates to the number of ships in the current sector which name begins with "cargo". .s1 .Sr \fBship(name ~ "cargo" and mob > 0) == 2\fP .Sl Evaluates to \fITRUE\fP if the sector contains exactly two ships whose names starts with "cargo" and have some mobility left. .s1 .Sr \fBplane((name ~ "transport") && (mobility > 0)) > 10 && mil > 100\fP .Sl Evaluates to \fITRUE\fP if there are at least 10 planes in the sector whose name start with "transport" and have some mobility left. The sector must contain at least 100 military. .br \fBN.B.\fP Note that the "plane(...)" modifier only examines the planes in the sector and not planes on ships in the sector. .s1 .Sr \fBship(military > 100 && plane(name ~ "transport"))\fP .Sl Evaluates to \fITRUE\fP if there is a ship in the sector with more than 100 military and contains a plane which name starts with "transport". .br \fBN.B.\fP Note that the "plane(...)" modifier within the "ship(...)" modifier only looks at the planes of the ship and not the planes of the sector. .s1 .Sr \fBship(plane(nuke(name = "10 kt fission")))\fP .Sl Evaluates to the number of ships that carries at least one plane that is loaded with a 10 kt fission nuclear warhead. .Np KEYWORDS \fPXEMP\fP has a lot of variables predefined. Below are tables explaining all valid variables and characters within expressions. The alias field can contain another name, which denotes the same variable. .s1 Expressions can be entered in \fBC\fP, \fBPASCAL\fP or mixed style. I would suggest you use either \fIC\fP or \fIPASCAL\fP and not a mixture of both. .Lt .KS .in 0 .B "Table 1: Expression Keywords" .TS center,box; c|c|c l|l|l. Name Alias Description _ 'c' Character constant "" String constant Numerical constant * Times operator + Plus operator \- Minus/negate operator / Divide operator \\= == Equals operator <> != Does not equal operator < Smaller then operator > Larger then operator <= Smaller or equal operator >= Larger or equal operator and && Boolean and or || Boolean or not ! Boolean not true Boolean true false Boolean false population pop (civs + mils + uws) of sector current_sector @ Stands for current sector coordinates warehouse Current sector's warehouse [, ] Specifies sector coordinates threshold(commodity) t() Returns commodity threshold resource(resource_val) r() Returns resouce_val value round(expr) Round off number floor(expr) Round off to nearest lowest integer ceil(expr) Round off to nearest highest integer .TE .KE .Le .Lt .KS .B "Table 2: Resource and Commodity variables" .TS box,center; c|c|c l|l|l. Name Alias Is resource _ ura uranium food x dust gold_dust x oil x iron iron_ore x uw uncompensated_workers guns bars gold_bars petrol petroleum lcms lcm hcms hcm she shells rads radioactive .TE .KE .Le .Lt .KS .B "Table 3: Sector census values" .TS box,center; c|c|c l|l|l. Name Alias Type _ xloc Numeric yloc Numeric owner String designation des Character (see table 10) newdesignation newdes Character efficiency eff Numeric work Numeric available avail Numeric mobility mob Numeric civilians civ/civs Numeric militairs mil/mils Numeric planes Numeric ships Numeric nukes Numeric distribute dist Coords occupied occ Boolean owned Boolean coast Boolean food_used Numeric starvation Boolean mines Boolean territory terr Numeric plague Numeric plague_stage pstage Plague (see table 4) happy Boolean happiness hstate Happy (see table 5) .TE .KE .Le .KS .B "Table 4: Plague Type Constants" .TS box,center; c|c l|l. Name Description _ healthy Sector not infected infected Sector is battling plague dying Sector has plague deaths .TE .KE .s1 .KS .B "Table 5: Happiness Type Constants" .TS box,center; c|c|c l|l|l. Name Alias Description _ loyal Sector population is loyal to you unrest Sector has unrest revolutionaries revol Sector has revolutionaries terrorists terror Sector has terrorists guerrillas guerre Sector has guerillas .TE .KE .s1 .KS .B "Table 6: Variables valid within nuke(...) modifier" .TS box,center; c|c l|l. Usage Result type _ xloc Numeric yloc Numeric _ name String type Numeric (index in nuke type table) stockpile Numeric .TE .KE .s1 .Lt .KS .B "Table 7: Variables valid within ship(...) modifier" .TS box,center; c|c|c l|l|l. Usage Alias Result type _ xloc Numeric yloc Numeric owner String owned Boolean efficiency eff Numeric mobility mob Numeric civilians civ/civs Numeric militairs mil/mils Numeric _ food Numeric dust gold_dust Numeric oil Numeric iron iron_ore Numeric uw uncompensated_workers Numeric guns Numeric bars gold_bars Numeric petrol petroleum Numeric lcms Numeric hcms Numeric she shells Numeric rads radioactive Numeric population pop Numeric ((civs+mils+uws) of ship) planes Numeric food_used Numeric starvation Boolean _ fleet Character name String type Numeric (index in ship table) technology tech Numeric number Numeric radar Numeric sonar Numeric moves Numeric .TE .KE .Le .Lt .KS .B "Table 8: Variables valid within plane(...) modifier" .TS center,box; c|c|c l|l|l. Usage Alias Result type _ xloc Numeric yloc Numeric efficiency eff Numeric mobility mob Numeric _ wing Character name String type Numeric (index in plane table) number Numeric technology tech Numeric maxrange Numeric max_range Numeric attack Numeric defense Numeric harden Numeric load Numeric .TE .KE .Le .Lt .KS .B "Table 9: Empire constants" .TS box,center; c|c|c l|l|l. Usage Alias Description _ secs_per_etu spe Seconds per Empire Time Unit (etu) etus_per_update epu ETU's per update interest_rate irate Interest per gold bar civ_tax_rate ctrate Income per civilian uw_tax_rate utrate Income per uncompensated worker active_mil_cost amcrate Cost per active militair reserve_mil_cost rmcrate Cost per militair on reserve fertility_rate frate Food a non-aggi sector grows per fert. unit harvest_rate hrate Amount of food a one civilian will harvest civ_birth_rate cbrate Number of babies one civilian will make uw_birth_rate ubrate Number of babies one uw will make eat_rate erate Amount of food a grownup will eat baby_eat_rate berate Amount of food a baby will eat .TE .KE .Le .Lt .KS .B "Table 10: Designation characters" .TS box,center; c|c l|l. Character Description _ ? Unknown \. Sea ^ Mountain s Sanctuary \ Wasteland - Wilderness c Capital u Uranium mine p Park d Defense plant i Shell industry m Mine g Gold mine h Harbor w Warehouse * Airfield a Agribusiness o Oil field j Light manufacturing k Heavy manufacturing f Fortress t Technical center r Research lab n Nuclear plant l Library/school + Highway ) Radar installation ! Weather stn # Bridge head \\= Bridge span b Bank % Refinery e Enlistment center .TE .KE .Le xemp5.1-beta/info.t/more.mac100644 12266 2116 5164 5760277754 14305 0ustar jponexor.de Ph ./" Ph -- Print header .if !\\n(Hp .\{ ./" if (not header printed) . ev 1 ' ce 1 \\fB\\*(Hd\\fR . br . ev .\} .nr Hp 1 ./" Hp (header printed) := True .. . .de Pb ./" Pb -- Page break .nr Hp 0 ./" Hp (header printed) := False .Ph .sp 1 .. . .de Sh ./" Sh -- Set header .ds Hd \\$1\\\\0:\\\\0\\$2 .nr Hp 0 .sp 2 .Tc "\\$1\\\\0\\$2 .ne 3 .Ph .. . .de Fo ./" Fo -- Footer .ev 1 'ti 0 'ce 1 tcemp/xemp documentation - Page \\n% .sp 2 .ev .. . .de Tc ./" Tc -- Add to table of contents .ev 2 .da en 'in 0 \\$1\\a\\n% \.br .di .ev .. . .ND ./" ND -- No date at bottum . .wh 0 Pb .wh -2 Fo .nr % 1 . .pl 22 .ev 1 .pl 22 .ev .ev 2 .pl 22 .ev .nr Hp 0 .de en .ta 70l .lc . .. .de s1 .br .ne 4 .sp 1 .. .de Ne .br .ne \\$1 .. .nr In 13 .nr Sx 6 . .de Nf \" No footer or header .. .de Nb \" No break .. . .de Lt \" Large table .bp .ch Fo .ch Pb .wh 0 Nf .wh -0i Nb .pl 1000 .ev 1 .pl 1000 .ev .ev 2 .pl 1000 .ev .. . .de Le \" Large table end .ch Nf .ch Pb .wh 0 Pb .wh -2 Fo .pl 22 .ev 1 .pl 22 .ev 2 .pl 22 .ev .Fo .. .de Cm .Sh "SECTOR COMMAND" \\$1 .. .de Pc .Sh "PLANE COMMAND" \\$1 .. .de Sc .Sh "SHIP COMMAND" \\$1 .. .de Nc .Sh "NUKE COMMAND" \\$1 .. .de Np .IP \\fB\\$1\\fP \\n(In .. .de Cd .Ne 3 .IP \\fBDESCRIPTION\\fP \\n(In .. .de Ko .Ne 3 .IP "\\fBKSU OPTION\\fP" \\n(In This command is only enabled if your playing a KSU-empire game with the option \\$1 defined. .. .de Bi .Ne 2 .IP \fBBINDINGS\fP \\n(In .ds By \\$1 \\$1 .br .if \\n(.$-1 \{\ \\$1 (\\$2) .br .\} .if \\n(.$-2 \{\ \\$1 (\\$2, \\$3) .br .\} .. .de Be .Ne 3 .IP \fBEXAMPLES\fP \\n(In Bind \\$1 to \\*(By \\$2 .br .if \\n(.$-2 \{\ Bind \\$1 to \\*(By \\$3 .br .\} .if \\n(.$-3 \{\ Bind \\$1 to \\*(By \\$4 .br .\} .. .de Bx Bind \fB\\$1\fP to \\*(By \\$2 .br .. .de Cs .Ne 3 .IP \fBCOST\fP \\n(In .. .de Ag .Ne 3 .IP \fBAGAIN\fP \\n(In .. .de Na .Ag You can't use again with this command. .. .de Bu .Ne 3 .IP \fBBUFFER\fP \\n(In .. .de Ba .Bu This command will always be buffered (if buffering is on). .. .de Bf .Bu This command will only be buffered if you use forced buffering .. .de Bn This commands can not be buffered. .. .de So .Ne 2 .IP \fBSOURCE\fP The source can be found in \\$1. .. .de Sa .Ne 3 .IP "\fBSEE ALSO\fP" \\n(In \\$1 .br .if \\n(.$-1 \{\ \\$2 .br .\} .if \\n(.$-2 \{\ \\$3 .br .\} .if \\n(.$-3 \{\ \\$4 .br .\} .if \\n(.$-4 \{\ \\$5 .br .\} .if \\n(.$-5 \{\ \\$6 .br .\} .if \\n(.$-6 \{\ \\$7 .br .\} .. .de Sl .in -\\n(Sx .. .de Sr .in +\\n(Sx .. .de Ti .ti +\\n(Sx .. .hy 15 \" Auto hyphenation with restrictions . .de Si \" Set ident .ds Sz \\$1\\0\\0 .in +\\w'\\*(Sz'u .. .de Ei .in -\\w'\\*(Sz'u .. .de Ir .br .ti -\\w'\\$1\\0\\0'u \\$1\\0\\0\c .. xemp5.1-beta/info.t/all.mac100644 12266 2116 3144 5760277754 14107 0ustar jponexor.de Cm .Sh "SECTOR COMMAND" \\$1 .. .de Pc .Sh "PLANE COMMAND" \\$1 .. .de Sc .Sh "SHIP COMMAND" \\$1 .. .de Nc .Sh "NUKE COMMAND" \\$1 .. .de Np .IP \\fB\\$1\\fP \\n(In .. .de Cd .Ne 3 .IP \\fBDESCRIPTION\\fP \\n(In .. .de Ko .Ne 3 .IP "\\fBKSU OPTION\\fP" \\n(In This command is only enabled if your playing a KSU-empire game with the option \\$1 defined. .. .de Bi .Ne 2 .IP \fBBINDINGS\fP \\n(In .ds By \\$1 \\$1 .br .if \\n(.$-1 \{\ \\$1 (\\$2) .br .\} .if \\n(.$-2 \{\ \\$1 (\\$2, \\$3) .br .\} .. .de Be .Ne 3 .IP \fBEXAMPLES\fP \\n(In Bind \\$1 to \\*(By \\$2 .br .if \\n(.$-2 \{\ Bind \\$1 to \\*(By \\$3 .br .\} .if \\n(.$-3 \{\ Bind \\$1 to \\*(By \\$4 .br .\} .. .de Bx Bind \fB\\$1\fP to \\*(By \\$2 .br .. .de Cs .Ne 3 .IP \fBCOST\fP \\n(In .. .de Ag .Ne 3 .IP \fBAGAIN\fP \\n(In .. .de Na .Ag You can't use again with this command. .. .de Bu .Ne 3 .IP \fBBUFFER\fP \\n(In .. .de Ba .Bu This command will always be buffered (if buffering is on). .. .de Bf .Bu This command will only be buffered if you use forced buffering .. .de Bn This commands can not be buffered. .. .de So .Ne 2 .IP \fBSOURCE\fP The source can be found in \\$1. .. .de Sa .Ne 3 .IP "\fBSEE ALSO\fP" \\n(In \\$1 .br .if \\n(.$-1 \{\ \\$2 .br .\} .if \\n(.$-2 \{\ \\$3 .br .\} .if \\n(.$-3 \{\ \\$4 .br .\} .if \\n(.$-4 \{\ \\$5 .br .\} .if \\n(.$-5 \{\ \\$6 .br .\} .if \\n(.$-6 \{\ \\$7 .br .\} .. .de Sl .in -\\n(Sx .. .de Sr .in +\\n(Sx .. .de Ti .ti +\\n(Sx .. .hy 15 \" Auto hyphenation with restrictions . .de Si \" Set ident .ds Sz \\$1\\0\\0 .in +\\w'\\*(Sz'u .. .de Ei .in -\\w'\\*(Sz'u .. .de Ir .br .ti -\\w'\\$1\\0\\0'u \\$1\\0\\0\c .. xemp5.1-beta/info.t/troff.mac100644 12266 2116 4513 5760277754 14460 0ustar jponexor.de Ph ./" Ph -- Print header .if !\\n(Hp .\{ ./" if (not header printed) . ev 1 ' ce 1 \\fB\\*(Hd\\fR . br . ev .\} .nr Hp 1 ./" Hp (header printed) := True .. . .de Pb ./" Pb -- Page break .nr Hp 0 ./" Hp (header printed) := False .Ph .sp 2 .. . .de Sh ./" Sh -- Set header .sp 3 .ds Hd \\$1\\\\0:\\\\0\\$2 .nr Hp 0 .Tc "\\$1\\\\0\\$2 .Ph .sp 2 .. . .de Fo ./" Fo -- Footer .ev 1 'ti 0 'ce 1 tcemp/xemp documentation - Page \\n% .sp 2 .ev .. . .de Tc ./" Tc -- Add to table of contents .ev 2 .da en 'in 0 \\$1\\a\\n% \.br .di .ev .. . .ND ./" ND -- No date at bottum . .wh 0 Pb .wh -2 Fo . .nr Hp 0 . .de en .nf .ta 40l .lc . .. .de s1 .br .ne 4 .sp 1 .. .de Ne .br .ne \\$1 .. .nr In 22 .nr Sx 5 .de Lt .. .de Le .. .de Cm .Sh "SECTOR COMMAND" \\$1 .. .de Pc .Sh "PLANE COMMAND" \\$1 .. .de Sc .Sh "SHIP COMMAND" \\$1 .. .de Nc .Sh "NUKE COMMAND" \\$1 .. .de Np .IP \\fB\\$1\\fP \\n(In .. .de Cd .Ne 3 .IP \\fBDESCRIPTION\\fP \\n(In .. .de Ko .Ne 3 .IP "\\fBKSU OPTION\\fP" \\n(In This command is only enabled if your playing a KSU-empire game with the option \\$1 defined. .. .de Bi .Ne 2 .IP \fBBINDINGS\fP \\n(In .ds By \\$1 \\$1 .br .if \\n(.$-1 \{\ \\$1 (\\$2) .br .\} .if \\n(.$-2 \{\ \\$1 (\\$2, \\$3) .br .\} .. .de Be .Ne 3 .IP \fBEXAMPLES\fP \\n(In Bind \\$1 to \\*(By \\$2 .br .if \\n(.$-2 \{\ Bind \\$1 to \\*(By \\$3 .br .\} .if \\n(.$-3 \{\ Bind \\$1 to \\*(By \\$4 .br .\} .. .de Bx Bind \fB\\$1\fP to \\*(By \\$2 .br .. .de Cs .Ne 3 .IP \fBCOST\fP \\n(In .. .de Ag .Ne 3 .IP \fBAGAIN\fP \\n(In .. .de Na .Ag You can't use again with this command. .. .de Bu .Ne 3 .IP \fBBUFFER\fP \\n(In .. .de Ba .Bu This command will always be buffered (if buffering is on). .. .de Bf .Bu This command will only be buffered if you use forced buffering .. .de Bn This commands can not be buffered. .. .de So .Ne 2 .IP \fBSOURCE\fP The source can be found in \\$1. .. .de Sa .Ne 3 .IP "\fBSEE ALSO\fP" \\n(In \\$1 .br .if \\n(.$-1 \{\ \\$2 .br .\} .if \\n(.$-2 \{\ \\$3 .br .\} .if \\n(.$-3 \{\ \\$4 .br .\} .if \\n(.$-4 \{\ \\$5 .br .\} .if \\n(.$-5 \{\ \\$6 .br .\} .if \\n(.$-6 \{\ \\$7 .br .\} .. .de Sl .in -\\n(Sx .. .de Sr .in +\\n(Sx .. .de Ti .ti +\\n(Sx .. .hy 15 \" Auto hyphenation with restrictions . .de Si \" Set ident .ds Sz \\$1\\0\\0 .in +\\w'\\*(Sz'u .. .de Ei .in -\\w'\\*(Sz'u .. .de Ir .br .ti -\\w'\\$1\\0\\0'u \\$1\\0\\0\c .. xemp5.1-beta/info.t/misc/ 40755 12266 2116 0 6043206205 13463 5ustar jponexorxemp5.1-beta/info.t/misc/tech100644 12266 2116 1265 5760277754 14460 0ustar jponexorLand radars: 200 r - 800 where t = technology level t = ----------- r = range of the radar 16 - r 50 + t r = 16 * ------- 200 + t range| 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | -----+----+----+----+----+----+----+----+----+----+----+----+ techn| 0 |18.2|40.0|66.7| 100| 143| 200| 280| 400| 600|1000| Fortresses: Requires 7 guns. If less guns, divide range by (7 / #guns) 200 r - 350 where t = technology level t = ----------- r = range of the fort 7 - r 50 + t r = 7 * ------- 200 + t range| 2 | 3 | 4 | 5 | 6 | 6.5| -----+----+----+----+----+----+----+ techn|10.0|62.5| 150| 325| 850|1900| xemp5.1-beta/info.t/commands/ 40755 12266 2116 0 6043206206 14332 5ustar jponexorxemp5.1-beta/info.t/commands/sector/ 40755 12266 2116 0 6043206205 15630 5ustar jponexorxemp5.1-beta/info.t/commands/sector/explore.t100644 12266 2116 655 5760277756 17606 0ustar jponexor.Cm Explore .Cd The explore command takes over part of the functionality of move. Explore is used to stake your claim on unowned sectors. Only civilians and military can be used to explore. .s1 xemp will automatically scan all information provided by the empire server, such as a small map and the resources of the current sector. .Bi explore "civ | mil" quant .Be e "" "(civ, 1)" .So commands/move.c .Sa commands/sector/move xemp5.1-beta/info.t/commands/sector/shoot.t100600 12266 2116 1224 5760277756 17265 0ustar jponexor.Cm Shoot .Cd The shoot command allows you to shoot enemy civilians or recalcitrant uncompensated workers. In order to be able to keep the populace under control (i.e., not have them rebel), you must have one military for every ten civilians. Shooting of populace in sectors where this is not the case is disallowed. .s1 If all the civilians in the sector are removed, and it was a conquered sector, it will become completely controlled by you. .Cs Mobility (1 mob per 5 civ/uws) .Ag Will shoot the last specified number of people in the current sector. .Bf .Bi shoot nnn [cu] .Be S "" "(999, u)" .So commands/shoot.c .Sa commands/sector/convert xemp5.1-beta/info.t/commands/sector/enlist.t100644 12266 2116 2264 5760277756 17444 0ustar jponexor.Cm Enlist .Cd The enlist command converts civilians into military in the sectors specified. Military created by the enlist command are actually reserves called up from your country's military reserve. If your country has no military reserves (created by demobilize) then no civilians will be converted and no military will be generated. .s1 If you specify a positive number that many draftees will be sought in each sector regardless of any military already in the sector. .s1 If you specify a negative number of the form -xxx, then an enlistment quota is established and the draft board will attempt to enlist enough in each sector to bring the total number of military up to xxx in each sector. .s1 You cannot draft militairs in occupied sectors, sectors with a loyalty exceeding 70, and of course only the number of militairs you have on the actual reserve. No more than 500 civilians or half of the number of civilians can be enlisted. .Cs Some of your mobility (actualy a percentage) and 0.2 BTU's per enlisted civilian. .Ag Will enlist the last specified number in the current sector. .Bf .Bi enlist "" .Be ^E "" "(10)" .So commands/enlist.c .Sa commands/sector/demobilize xemp5.1-beta/info.t/commands/sector/convert.t100600 12266 2116 724 5760277757 17576 0ustar jponexor.Cm Convert .Cd The convert command converts enemy (captured) populace into uncompensated workers. If the sector is not actually conquered, (i.e. mil < civ * 10) no civilians will be converted. .Cs There is a cost of 0.01 BTU's per civilian converted in addition to the registration fee of $1.5 per conversion. .Ag Will convert the last specified number in the current sector. .Bf .Bi convert nnn .Be C "" "(999)" .So commands/convert.c .Sa commands/sector/shoot xemp5.1-beta/info.t/commands/sector/designate.t100600 12266 2116 2117 5760277757 20077 0ustar jponexor.Cm Designate .Cd In Empire all sectors have a designation. The designation represents the principal industry or activity taking place in that area. When a sector is designated a harbor, for example, the civilians in the sector start building shipyards and docks, (with a little help from any military & uws present). .s1 If the redesignated sector is already declared to be something else, and is efficient, then the workers will have to tear down the existing construction and then build the new sector. The workers dismantle existing sectors four times faster than they can build. .s1 As work progresses the efficiency will climb toward a maximum of 100%. .s1 Harbors & Bridge-heads can only be built near water. .s1 Using xemp, you can also designate sectors that belong to other countries. Nothing will be fed to the server, it will only be remembered. .Cs Fixed cost per redesignation. Real cost comes when the sector becomes efficient. .Ag Will redesignate the current sector to the last chosen designation .Ba .Bi designate "mnem|name" .Be d "" .Bx + "(+)" .Bx ) "(radar)" .So commands/design.c xemp5.1-beta/info.t/commands/sector/template100644 12266 2116 454 5760277757 17477 0ustar jponexor.Cm .Cd .Ko .Cs .Ag or .Na (No again) <<.Bf> | <.Ba> | <.Bn>> .Bi