src/version.c

   1 /* NetHack 3.6  version.c       $NHDT-Date: 1449328116 2015/12/05 15:08:36 $  $NHDT-Branch: NetHack-3.6.0 $:$NHDT-Revision: 1.41 $ */
   2 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
   3 /* NetHack may be freely redistributed.  See license for details. */
   4
   5 #include "hack.h"
   6 #include "dlb.h"
   7 #include "date.h"
   8 /*
   9  * All the references to the contents of patchlevel.h have been moved
  10  * into makedefs....
  11  */
  12 #ifdef SHORT_FILENAMES
  13 #include "patchlev.h"
  14 #else
  15 #include "patchlevel.h"
  16 #endif
  17
  18 #define BETA_INFO ""
  19
  20 STATIC_DCL void FDECL(insert_rtoptions, (winid,char *,const char *));
  21
  22 /* fill buffer with short version (so caller can avoid including date.h) */
  23 char *
  24 version_string(buf)
  25 char *buf;
  26 {
  27     return strcpy(buf, VERSION_STRING);
  28 }
  29
  30 /* fill and return the given buffer with the long nethack version string */
  31 char *
  32 getversionstring(buf)
  33 char *buf;
  34 {
  35     Strcpy(buf, VERSION_ID);
  36 #if defined(BETA) && defined(BETA_INFO)
  37     Sprintf(eos(buf), " %s", BETA_INFO);
  38 #endif
  39 #if defined(RUNTIME_PORT_ID)
  40     append_port_id(buf);
  41 #endif
  42     return buf;
  43 }
  44
  45 /* the 'v' command */
  46 int
  47 doversion()
  48 {
  49     char buf[BUFSZ];
  50
  51     pline("%s", getversionstring(buf));
  52     return 0;
  53 }
  54
  55 /* the '#version' command; also a choice for '?' */
  56 int
  57 doextversion()
  58 {
  59     dlb *f;
  60     char *pd, buf[BUFSZ];
  61     winid win = create_nhwindow(NHW_TEXT);
  62     boolean rtadded = FALSE;
  63
  64     /* instead of using ``display_file(OPTIONS_USED,TRUE)'' we handle
  65        the file manually so we can include dynamic version info */
  66     putstr(win, 0, getversionstring(buf));
  67
  68     f = dlb_fopen(OPTIONS_USED, "r");
  69     if (!f) {
  70         putstr(win, 0, "");
  71         Sprintf(buf, "[Configuration '%s' not available?]", OPTIONS_USED);
  72         putstr(win, 0, buf);
  73     } else {
  74         /*
  75          * already inserted above:
  76          * + outdented program name and version plus build date and time
  77          * dat/options; display the contents with lines prefixed by '-'
  78          * deleted:
  79          * - blank-line
  80          * -     indented program name and version
  81          *   blank-line
  82          *   outdented feature header
  83          * - blank-line
  84          *       indented feature list
  85          *       spread over multiple lines
  86          *   blank-line
  87          *   outdented windowing header
  88          * - blank-line
  89          *       indented windowing choices with
  90          *       optional second line for default
  91          * - blank-line
  92          * - EOF
  93          */
  94         boolean prolog = TRUE; /* to skip indented program name */
  95
  96         while (dlb_fgets(buf, BUFSZ, f)) {
  97             (void) strip_newline(buf);
  98             if (index(buf, '\t') != 0)
  99                 (void) tabexpand(buf);
 100
 101             if (*buf && *buf != ' ') {
 102                 /* found outdented header; insert a separator since we'll
 103                    have skipped corresponding blank line inside the file */
 104                 putstr(win, 0, "");
 105                 prolog = FALSE;
 106             }
 107             /* skip blank lines and prolog (progame name plus version) */
 108             if (prolog || !*buf)
 109                 continue;
 110
 111             if (!rtadded) {
 112                 const char *catchphrase = ", and basic NetHack features.";
 113
 114                 pd = strstri(buf, catchphrase);
 115                 if (pd) {
 116                     *pd = '\0';
 117                     insert_rtoptions(win, buf, &catchphrase[2]);
 118                     rtadded = TRUE; /* only do it once */
 119                }
 120             }
 121             if (*buf)
 122                 putstr(win, 0, buf);
 123         }
 124         (void) dlb_fclose(f);
 125         display_nhwindow(win, FALSE);
 126         destroy_nhwindow(win);
 127     }
 128     return 0;
 129 }
 130
 131 extern const char regex_id[];
 132
 133 static const char *rt_opts[] = {
 134     "pattern matching via", regex_id,
 135 };
 136 static const char indent[] = "    ";
 137
 138 /*
 139  * 3.6.0
 140  * Some optional stuff is no longer available to makedefs because
 141  * it depends which of several object files got linked into the
 142  * game image, so we insert those options here.
 143  */
 144 STATIC_OVL void
 145 insert_rtoptions(win, buf, finalphrase)
 146 winid win;
 147 char *buf;
 148 const char *finalphrase;
 149 {
 150     char rtbuf[BUFSZ];
 151     int l, i;
 152     const char *s1 = 0, *s2 = 0, *s3 = 0, *s4 = 0;
 153
 154     if ((int) strlen(buf) >= (BUFSZ - 1))
 155         return;
 156
 157     strcpy(rtbuf, buf);
 158     for (i = 0; i < (SIZE(rt_opts) + 1); i += 2) {
 159         if (i < SIZE(rt_opts)) {
 160             s1 = ", ";
 161             s2 = rt_opts[i];
 162             s3 = " ";
 163             s4 = rt_opts[i+1];
 164         } else {
 165             s1 = " ";
 166             s2 = finalphrase;
 167             s3 = "";
 168             s4 = "";
 169         }
 170         l = (int) strlen(rtbuf) + (int) strlen(s1) + (int) strlen(s2)
 171             + (int) strlen(s3) + (int) strlen(s4) + 1;
 172         if (l <= (COLNO - 5) && l < (BUFSZ - 1)) {
 173             Strcat(rtbuf, s1);
 174             Strcat(rtbuf, s2);
 175             Strcat(rtbuf, s3);
 176             Strcat(rtbuf, s4);
 177         } else {
 178             putstr(win, 0, rtbuf);
 179             if (i >= SIZE(rt_opts))
 180                 s1 = "";
 181             l = (int) strlen(indent) + (int) strlen(s1) + (int) strlen(s2)
 182                 + (int) strlen(s3) + (int) strlen(s4) + 1;
 183             if (l <= (COLNO - 5) && l < (BUFSZ - 1)) {
 184                 Strcpy(rtbuf, indent);
 185                 Strcat(rtbuf, s1);
 186                 Strcat(rtbuf, s2);
 187                 Strcat(rtbuf, s3);
 188                 Strcat(rtbuf, s4);
 189             }
 190         }
 191     }
 192
 193     if (l)
 194         putstr(win, 0, rtbuf);
 195     *buf = '\0';
 196 }
 197
 198 #ifdef MICRO
 199 boolean
 200 comp_times(filetime)
 201 long filetime;
 202 {
 203     return (boolean) (filetime < BUILD_TIME);
 204 }
 205 #endif
 206
 207 boolean
 208 check_version(version_data, filename, complain)
 209 struct version_info *version_data;
 210 const char *filename;
 211 boolean complain;
 212 {
 213     if (
 214 #ifdef VERSION_COMPATIBILITY
 215         version_data->incarnation < VERSION_COMPATIBILITY
 216         || version_data->incarnation > VERSION_NUMBER
 217 #else
 218         version_data->incarnation != VERSION_NUMBER
 219 #endif
 220         ) {
 221         if (complain)
 222             pline("Version mismatch for file \"%s\".", filename);
 223         return FALSE;
 224     } else if (
 225 #ifndef IGNORED_FEATURES
 226         version_data->feature_set != VERSION_FEATURES
 227 #else
 228         (version_data->feature_set & ~IGNORED_FEATURES)
 229             != (VERSION_FEATURES & ~IGNORED_FEATURES)
 230 #endif
 231         || version_data->entity_count != VERSION_SANITY1
 232         || version_data->struct_sizes1 != VERSION_SANITY2
 233         || version_data->struct_sizes2 != VERSION_SANITY3) {
 234         if (complain)
 235             pline("Configuration incompatibility for file \"%s\".", filename);
 236         return FALSE;
 237     }
 238     return TRUE;
 239 }
 240
 241 /* this used to be based on file date and somewhat OS-dependant,
 242    but now examines the initial part of the file's contents */
 243 boolean
 244 uptodate(fd, name)
 245 int fd;
 246 const char *name;
 247 {
 248     int rlen;
 249     struct version_info vers_info;
 250     boolean verbose = name ? TRUE : FALSE;
 251
 252     rlen = read(fd, (genericptr_t) &vers_info, sizeof vers_info);
 253     minit(); /* ZEROCOMP */
 254     if (rlen == 0) {
 255         if (verbose) {
 256             pline("File \"%s\" is empty?", name);
 257             wait_synch();
 258         }
 259         return FALSE;
 260     }
 261     if (!check_version(&vers_info, name, verbose)) {
 262         if (verbose)
 263             wait_synch();
 264         return FALSE;
 265     }
 266     return TRUE;
 267 }
 268
 269 void
 270 store_version(fd)
 271 int fd;
 272 {
 273     static const struct version_info version_data = {
 274         VERSION_NUMBER, VERSION_FEATURES,
 275         VERSION_SANITY1, VERSION_SANITY2, VERSION_SANITY3
 276     };
 277
 278     bufoff(fd);
 279     /* bwrite() before bufon() uses plain write() */
 280     bwrite(fd, (genericptr_t) &version_data,
 281            (unsigned) (sizeof version_data));
 282     bufon(fd);
 283     return;
 284 }
 285
 286 #ifdef AMIGA
 287 const char amiga_version_string[] = AMIGA_VERSION_STRING;
 288 #endif
 289
 290 unsigned long
 291 get_feature_notice_ver(str)
 292 char *str;
 293 {
 294     char buf[BUFSZ];
 295     int ver_maj, ver_min, patch;
 296     char *istr[3];
 297     int j = 0;
 298
 299     if (!str)
 300         return 0L;
 301     str = strcpy(buf, str);
 302     istr[j] = str;
 303     while (*str) {
 304         if (*str == '.') {
 305             *str++ = '\0';
 306             j++;
 307             istr[j] = str;
 308             if (j == 2)
 309                 break;
 310         } else if (index("0123456789", *str) != 0) {
 311             str++;
 312         } else
 313             return 0L;
 314     }
 315     if (j != 2)
 316         return 0L;
 317     ver_maj = atoi(istr[0]);
 318     ver_min = atoi(istr[1]);
 319     patch = atoi(istr[2]);
 320     return FEATURE_NOTICE_VER(ver_maj, ver_min, patch);
 321     /* macro from hack.h */
 322 }
 323
 324 unsigned long
 325 get_current_feature_ver()
 326 {
 327     return FEATURE_NOTICE_VER(VERSION_MAJOR, VERSION_MINOR, PATCHLEVEL);
 328 }
 329
 330 /*ARGUSED*/
 331 const char *
 332 copyright_banner_line(indx)
 333 int indx;
 334 {
 335 #ifdef COPYRIGHT_BANNER_A
 336     if (indx == 1)
 337         return COPYRIGHT_BANNER_A;
 338 #endif
 339 #ifdef COPYRIGHT_BANNER_B
 340     if (indx == 2)
 341         return COPYRIGHT_BANNER_B;
 342 #endif
 343 #ifdef COPYRIGHT_BANNER_C
 344     if (indx == 3)
 345         return COPYRIGHT_BANNER_C;
 346 #endif
 347 #ifdef COPYRIGHT_BANNER_D
 348     if (indx == 4)
 349         return COPYRIGHT_BANNER_D;
 350 #endif
 351     return "";
 352 }
 353
 354 /*version.c*/