home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / misc / a154_1 / !Tierra_source_h_extern < prev    next >
Encoding:
C/C++ Source or Header  |  1992-08-11  |  9.5 KB  |  191 lines
  1. /* extern.h   6-7-92  Artificial Life simulator */
  2. /* Tierra Simulator V3.13: Copyright (c) 1991, 1992 Tom Ray & Virtual Life */
  3.  
  4. /*
  5.  * sccsid: @(#)extern.h    1.38    12/8/91
  6.  */
  7.  
  8. #include "license.h"
  9.  
  10. #ifdef ALCOMM
  11. #include <mlayer.h>
  12. #endif /* ALCOMM */
  13.  
  14. #ifndef LEXTERN_H
  15. #define LEXTERN_H
  16.  
  17. extern FILE *oufr;
  18. extern HpInst soup;
  19. extern I32s alive;     /* run simulator alive * 1,000,000 instructions */
  20. extern I32s AverageSize;    /* average size of cells in soup */
  21. extern Pcells BottomDummy; /* dummy cell at bottom of reaper queue */
  22. extern Pcells BottomReap;/* index of cell bottom reaper queue, last to die */
  23. extern I32s BrkupCou;  /* count of output files break.n */
  24. extern I32s BrkupCum;  /* cumulative count of bytes output to break.n */
  25. extern I32s BrkupSiz;  /* size of output files break.n in K */
  26. extern I8s  Buff[120]; /* nice global text buff for all sorts of messages */
  27. extern I32s CelArSiz; /* size of each cells array */
  28. extern I32s CellsSize; /* number of allocated elements in cells array */
  29. extern I32s CountFlaw; /* counter for flaw random number */
  30. extern I32s CountMovMut;
  31. extern I32s CountMutRate;
  32. extern I32s CumGeneBnk;    /* Use cumulative gene files, or overwrite */
  33. extern I32s debug;     /* output info to screen for debugging */
  34. extern I32s debug_switch;
  35. extern I32s DiskOut;   /* 0 = no output to disk, 1 = output to disk */
  36. extern Event Disturb;    /* time of disturbance */
  37. extern float DistFreq; /* freq. of disturbance, in multiples of recovery t */
  38. extern Event DistNext;    /* time of next disturbance */
  39. extern float DistProp; /* proportion of cells killed in each disturbance */
  40. extern I32s DivSameSiz;/* 0 = off, 1 = daughter cell must be same size */
  41. extern I32s DivSameGen;/* 0 = off, 1 = daught cell must be same genotype */
  42. extern I32s DropDead;  /* millions instruction since last divide till dead */
  43. extern CellInd extr;      /* which cell to isolate */
  44. extern I8s ExtrG[20];   /* last geno extracted */
  45. extern I32s ExtractCount;
  46. extern I32s FirstOutDisk;
  47. extern I32s fe_lines;  /* approx hight in chars of screen, default 20 */
  48. extern I32s fe_width;  /* approx width in chars of screen, default 60 */
  49. extern I32s FreeBlocks;/* number of free blocks of memory */
  50. extern I32s GeneBnker; /* 0 = don't keep track genotyes, 1 = keep track */
  51. extern double Generations; /* elapsed generations (AvgPop/TimeBirth-Death) */
  52. extern I8s **GenInList;/* pointers to soup_in genome names */
  53. extern I8s *GenInBuf;  /* buffer containing soup_in genome names */
  54. extern float GenPerBkgMut;    /* generations per background mutation */
  55. extern float GenPerFlaw;    /* generations per flaw */
  56. extern float GenPerMovMut;    /* generations per move mutation */
  57. extern I32s GFormat; /* select genebank format -1 = first file = format */
  58. extern indx_t  GIndx;     /* global index structure */
  59. extern I8s  GoDown; /* flag to bring system down to defragment memory */
  60. extern I32s hangup; /* 0 = exit on error, 1 = hangup on error, for debugging */
  61. extern HistType *Hist;       /* pointer to struct for histograms */
  62. extern I32s HistSize; /* Num of elements alloced in Hist */
  63. extern float HistNStars; /* ratio of counts to stars */
  64. extern I32s HistPrint; /* boolean to tell us weather to print hists, to log */
  65. extern I8s IMapFile[80];  /* inst map filename, default.map is assumed */
  66. extern I8s IMode;      /* info display (plan,histo_size,histo_geno etc) */
  67. extern I32s InstD[33]; /* data structure for freq dist. of instructions */
  68. extern InstDef id[32];
  69. extern ArgInstDef aid[32];
  70. extern Event InstExe;    /* counter of instructions executed */
  71. extern PInst is; /* struct for passing info between parse & execute */
  72. extern I32s isolate;   /* isolate the genome of the cell extr */
  73. extern Event LastDiv;    /* instructions executed at last divide */
  74. extern I32s Log;         /* boolean for FE loging */
  75. extern Ind MateSearchL;  /* used with HSEX, see soup_in.h */
  76. extern float MateProb;  /* used with HSEX, see soup_in.h */
  77. extern float MateXoverProp;  /* used with HSEX, see soup_in.h */
  78. extern I32s MateSizeEp;  /* used with HSEX, see soup_in.h */
  79. extern I32s Max_hits;  /* cardinality of most populous size class */
  80. extern I32s MaxFreeBlocks; /* number allocated elements in FreeMem array */
  81. extern float MaxMalMult;    /* multiple of cell size allowed for mal() */
  82. extern I32s MemModeFree;  /* unix chmod for when mem is dealloced,  */
  83. extern I32s MemModeProt;  /* chmod when mem is Alloced, NOT fully impl!*/
  84. extern I8s mes[10][80]; /* array of strings for message passing to frontend */
  85. extern I32s MinCellSize;    /* minimum cell size */
  86. extern I32s MinTemplSize;    /* minimum template size */
  87. extern float MovPropThrDiv; /* min proportion of daught cell filled by mov */
  88. extern I32s new_soup;  /* 0 = processed soup core, 1 = new soup core */
  89. extern I32s  Nop0;  /* instruct num corresponding to nop0 */
  90. extern I32s  Nop1;  /* instruct num corresponding to nop1 */
  91. extern I32s  NopS;  /* sum of nops */
  92. extern I32s NumCelAr; /* number of cells arrays */
  93. extern I32s NumCells;  /* present number of cells in soup */
  94. extern I32s NumGenDG; /* present # of permanent genotypes saved to disk */
  95. extern I32s NumGenDM; /* present # of temporary genotypes swapped out to disk */
  96. extern I32s NumGenRQ; /* present # of genotypes in RAM genequeue */
  97. extern I32s NumGenotypes; /* # of genotypes of adult cells extant in soup */
  98. extern I32s NumSizes; /* # of sizes of adult cells extant in soup */
  99. extern I32s PhotonSize;/* number of instructions in photon */
  100. extern I32s PhotonWidth; /* amount by which photons slide to determine fit */
  101. extern I32s RamBankSiz;/* number of genotypes stored in RAM */
  102. extern I32s RandIx1, RandIx2, RandIx3;    /* for tsrand() */
  103. extern I32s RateFlaw;  /* frequency of flaws */
  104. extern I32s RateMovMut;/* 1 / frequency of mutations per mov event */
  105. extern I32s RateMut;   /* number of instructions per mutations */
  106. extern I32s reaped;    /* 0 = reaper has not killed, 1 = reaper has killed */
  107. extern float ReapRndProp; /* rnd prop of top of reaper Q to reap from */
  108. extern I32s SaveFreq;  /* frequency of saving core_out, soup_out and list */
  109. extern I32s SigBlockSet; /* mask to block sig int in unix, for certain calls */
  110. extern I32s seed;      /* seed for random number generator */
  111. extern I32s SizDepSlice;  /* 0 = slice constant, 1 = slice size dependent */
  112. extern I32s siz_sl;    /* allocated size of *sl array */
  113. extern I32s SliceSize; /* number of instructions executed in each slice */
  114. extern I32s SliceStyle;/* select style of allocating slice size */
  115. extern I8s soup_fn[85];/* place for soup_in filename */
  116. extern I32s SoupBot;   /* index FreeMem struct for bottom of soup memory */
  117. extern I32s SoupTop;   /* index of FreeMem struct for top of soup memory */
  118. extern I8s Swap;   /* DOS flag whether to gq_swap or not */
  119. extern FILE *tfp_log; /* file pointer for log */
  120. extern I8s  TC_Menu;       /* flag unix sigint, to do a menu */
  121. extern Pcells ThisSlice; /* cell that is currently active */
  122. extern I32s TimeBirth; /* count of births in each million instruction */
  123. extern I32s TimeDeath; /* count of deaths in each million instruction */
  124. extern double TimePop; /* sum of ttime * NumCells for each million */
  125. extern Pcells TopDummy; /* dummy cell at top of reaper queue */
  126. extern Pcells TopReap;   /* cell at top reaper queue, next to die */
  127. extern I32s TotFlaw;   /* total number of flaws in this run */
  128. extern I32s TotMemUse; /* total memory use by soup, cells, and genebank */
  129. extern I32s TotMovMut; /* total number of move mutations in this run */
  130. extern I32s TotMut;    /* total number of background mutations in this run */
  131. extern I32s WatchExe;  /* mark executed instructions in genome in genebank */
  132. extern I32s WatchMov;  /* set mov bits in genome in genebank */
  133. extern I32s WatchTem;  /* set template bits in genome in genebank */
  134. extern I8s GenebankPath[80];    /* path for genebank */
  135. extern I8s OutPath[80];   /* path for disk output */
  136. extern I8s PhotonWord[80];    /* alphabetic representation of photon */
  137. extern Instruction PhotonInst[80];/* instructional representation of photon */
  138. extern Ind FreeMemCurrent;    /* current amount of free memory in soup */
  139. extern float SearchLimit; /* limit on search, as multiple of average size */
  140. extern Ind Search_limit; /* limit how far address instructions will search */
  141. extern Ind SoupSize;  /* size of soup memory, measured in instructions */
  142. extern Pcells Fp cells;  /* cells array */
  143. extern SList **sl; /* list of size classes for genebanker */
  144. extern Pmf FreeMem;    /* free memory array */
  145. extern double PhotonPow;    /* power for photon match slice size */
  146. extern double SlicePow;/* power for size dependent slice */
  147. extern double TrandArray[98];    /* for trand() */
  148. extern I32s  SavMinNum; /* minimum number of individuals to save genotype */
  149. extern float SavThrMem; /* thresh memory prop. to save genotype */
  150. extern float SavThrPop; /* thresh population prop. to save genotype */
  151. extern float SlicFixFrac;    /* fixed fraction of slice size */
  152. extern float SlicRanFrac;    /* random fraction of slice size */
  153. extern GList *gq_bot;    /* bottom of gene queue */
  154. extern GList *gq_top;    /* top of gene queue */
  155. extern LastOut lo;    /* last data output to disk */
  156. extern void (*slicer) ();
  157.  
  158. #ifdef ALCOMM
  159. extern I16s           AL_run_flag;
  160. extern I16s           VPORT;
  161. #endif /* ALCOMM */
  162.  
  163. extern I8u MSG_X ;
  164. extern I8u MSG_Y ;
  165. extern I8u ERR_X ;
  166. extern I8u ERR_Y ;
  167. extern I8u PLN_X ;
  168. extern I8u PLN_Y ;
  169. extern I8u HLP_X ;
  170. extern I8u HLP_Y ;
  171.  
  172. #ifdef MICRO
  173. extern I32s MC_step;
  174. #endif
  175.  
  176.  
  177. #ifdef __TURBOC__
  178. extern I16s FE_DV_Mode;
  179. #endif
  180.  
  181. #ifdef RISC_OS
  182. extern int multi_inst;
  183.  
  184. /* Information about the result of the last size query */
  185. extern bf * buf;
  186. extern I32s size_class;
  187. extern I32s size_entries;
  188. #endif /*RISC_OS*/
  189.  
  190. #endif /* LEXTERN_H */
  191.