#ifndef MAKEDEFS_C

#define MDLIB_C

#include "config.h"

#include "permonst.h"

#include "objclass.h"

#include "wintype.h"

#include "sym.h"

#include "artilist.h"

#include "dungeon.h"

#include "sndprocs.h"

#include "obj.h"

#include "monst.h"

#include "you.h"

#include "context.h"

#include "flag.h"

#include "dlb.h"

#include <ctype.h>

#ifdef SHORT_FILENAMES

#include "patchlev.h"

#include "patchlevel.h"

#define Fprintf (void) fprintf

#define Fclose (void) fclose

#define Unlink (void) unlink

#if !defined(AMIGA) || defined(AZTEC_C)

#define rewind(fp) fseek((fp), 0L, SEEK_SET) /* guarantee a return value */

#endif /* AMIGA || AZTEC_C */

#ifndef GLOBAL_H

#include "global.h"

#endif /* !MAKEDEFS_C */

#define FOR_RUNTIME

#if defined(MAKEDEFS_C) || defined(FOR_RUNTIME)

#include <stdarg.h>

static boolean date_via_env = FALSE;

extern unsigned long md_ignored_features(void);

char *mdlib_version_string(char *, const char *);

char *version_id_string(char *, size_t, const char *);

char *bannerc_string(char *, size_t, const char *);

int case_insensitive_comp(const char *, const char *);

static void make_version(void);

static char *eos(char *);

int mstrength(struct permonst *);

#if 0

static char *mdlib_strsubst(char *, const char *, const char *);

#ifndef HAS_NO_MKSTEMP

#ifdef _MSC_VER

static int mkstemp(char *);

#endif /* MAKEDEFS_C || FOR_RUNTIME */

#if !defined(MAKEDEFS_C) && defined(WIN32)

extern int GUILaunched;

void runtime_info_init(void);

const char *do_runtime_info(int *);

void release_runtime_info(void);

void populate_nomakedefs(struct version_info *);

extern void free_nomakedefs(void); /* date.c */

void build_options(void);

static int count_and_validate_winopts(void);

static void opt_out_words(char *, int *);

static void build_savebones_compat_string(void);

static int idxopttext, done_runtime_opt_init_once = 0;

#define MAXOPT 40

static char *opttext[120] = { 0 };

char optbuf[COLBUFSZ];

static struct version_info version;

static const char opt_indent[] = " ";

struct win_information {

};

static struct win_information window_opts[] = {

#ifdef TTY_GRAPHICS

{ "tty",

/* testing 'TILES_IN_GLYPHMAP' here would bring confusion because it could

#ifdef MSDOS

"traditional text with optional 'tiles' graphics",

/* assume that one or more of IBMgraphics, DECgraphics

"traditional text with optional line-drawing",

TRUE

},

#endif /*TTY_GRAPHICS */

#ifdef CURSES_GRAPHICS

{ "curses", "terminal-based graphics", TRUE },

#ifdef X11_GRAPHICS

{ "X11", "X11", TRUE },

#ifdef QT_GRAPHICS /* too vague; there are multiple incompatible versions */

{ "Qt", "Qt", TRUE },

#ifdef MSWIN_GRAPHICS /* win32 */

{ "mswin", "Windows GUI", TRUE },

#ifdef SHIM_GRAPHICS

{ "shim", "NetHack Library Windowing Shim", TRUE },

#if 0 /* remainder have been retired */

#ifdef GNOME_GRAPHICS /* unmaintained/defunct */

{ "Gnome", "Gnome", TRUE },

#ifdef MAC /* defunct OS 9 interface */

{ "mac", "Mac", TRUE },

#ifdef AMIGA_INTUITION /* unmaintained/defunct */

{ "amii", "Amiga Intuition", TRUE },

#ifdef GEM_GRAPHICS /* defunct Atari interface */

{ "Gem", "Gem", TRUE },

#ifdef BEOS_GRAPHICS /* unmaintained/defunct */

{ "BeOS", "BeOS InterfaceKit", TRUE },

#endif /* 0 => retired */

{ 0, 0, FALSE }

};

#if !defined(MAKEDEFS_C)

static int count_and_validate_soundlibopts(void);

struct soundlib_information {

};

static struct soundlib_information soundlib_opts[] = {

{ soundlib_nosound, "soundlib_nosound", "", FALSE },

#ifdef SND_LIB_PORTAUDIO

{ soundlib_portaudio, "soundlib_portaudio",

"http://www.portaudio.com/", FALSE },

#ifdef SND_LIB_OPENAL

{ soundlib_openal, "soundlib_openal",

"https://www.openal.org/", FALSE },

#ifdef SND_LIB_SDL_MIXER

{ soundlib_sdl_mixer, "soundlib_sdl_mixer",

"https://github.com/libsdl-org/SDL_mixer/", FALSE },

#ifdef SND_LIB_MINIAUDIO

{ soundlib_miniaudio, "soundlib_miniaudio",

"https://miniaud.io/", FALSE },

#ifdef SND_LIB_FMOD

/* proprietary, though a Free Indie License exists.

{ soundlib_fmod, "soundlib_fmod",

"https://www.fmod.com/", FALSE },

#ifdef SND_LIB_SOUND_ESCCODES

{ soundlib_sound_esccodes, "sound_esccodes", "", FALSE },

#ifdef SND_LIB_VISSOUND

{ soundlib_vissound, "soundlib_vissound", "", FALSE },

#ifdef SND_LIB_WINDSOUND

/* Uses Windows WIN32 API */

{ soundlib_windsound, "soundlib_windsound",

"https://learn.microsoft.com/en-us/windows/win32/multimedia/waveform-audio",

FALSE },

#ifdef SND_LIB_MACSOUND

/* Uses AppKit NSSound */

{ soundlib_macsound, "soundlib_macsound",

"https://developer.apple.com/documentation/appkit/nssound",

FALSE },

#ifdef SND_LIB_QTSOUND

{ soundlib_qtsound, "soundlib_qtsound",

"https://doc.qt.io/qt-5/qsoundeffect.html", FALSE },

{ 0, 0, 0, FALSE },

};

#endif /* !MAKEDEFS_C */

md_ignored_features(void)

{

return (0UL

| (1UL << 19) /* SCORE_ON_BOTL */

| (1UL << 27) /* ZEROCOMP */

| (1UL << 28) /* RLECOMP */

);

}

static void

make_version(void)

{

register int i;

/*

version.incarnation = ((unsigned long) VERSION_MAJOR << 24)

| ((unsigned long) VERSION_MINOR << 16)

| ((unsigned long) PATCHLEVEL << 8)

| ((unsigned long) EDITLEVEL);

/*

version.feature_set = (unsigned long) (0L

#ifdef MAIL_STRUCTURES

| (1L << 6)

#ifdef TEXTCOLOR

| (1L << 17)

#ifdef INSURANCE

| (1L << 18)

#ifdef SCORE_ON_BOTL

| (1L << 19)

#ifdef ZEROCOMP

| (1L << 27)

#ifdef RLECOMP

| (1L << 28)

);

/*

for (i = 1; artifact_names[i]; i++)

continue;

version.entity_count = (unsigned long) (i - 1);

for (i = 1; objects[i].oc_class != ILLOBJ_CLASS; i++)

continue;

version.entity_count = (version.entity_count << 12) | (unsigned long) i;

for (i = 0; mons[i].mlet; i++)

continue;

version.entity_count = (version.entity_count << 12) | (unsigned long) i;

/*

version.struct_sizes1 =

(((unsigned long) sizeof(struct context_info) << 24)

| ((unsigned long) sizeof(struct obj) << 17)

| ((unsigned long) sizeof(struct monst) << 10)

| ((unsigned long) sizeof(struct you)));

version.struct_sizes2 = (((unsigned long) sizeof(struct flag) << 10));

return;

}

#if defined(MAKEDEFS_C) || defined(FOR_RUNTIME)

char *

mdlib_version_string(char *outbuf, const char *delim)

{

Sprintf(outbuf, "%d%s%d%s%d", VERSION_MAJOR, delim, VERSION_MINOR, delim,

PATCHLEVEL);

#if (NH_DEVEL_STATUS != NH_STATUS_RELEASED)

Sprintf(eos(outbuf), "-%d", EDITLEVEL);

return outbuf;

}

#define Snprintf(str, size, ...) \

nh_snprintf(__func__, __LINE__, str, size, __VA_ARGS__)

extern void nh_snprintf(const char *func, int line, char *str, size_t size,

const char *fmt, ...);

#ifdef MAKEDEFS_C

nh_snprintf(const char *func UNUSED, int line UNUSED, char *str, size_t size,

const char *fmt, ...)

{

va_list ap;

int n;

va_start(ap, fmt);

n = vsnprintf(str, size, fmt, ap);

va_end(ap);

if (n < 0 || (size_t)n >= size) { /* is there a problem? */

str[size-1] = 0; /* make sure it is nul terminated */

}

}

#endif /* MAKEDEFS_C */

char *

version_id_string(char *outbuf, size_t bufsz, const char *build_date)

{

char subbuf[64], versbuf[64];

char statusbuf[64];

#if (NH_DEVEL_STATUS != NH_STATUS_RELEASED)

#if (NH_DEVEL_STATUS == NH_STATUS_BETA)

Strcpy(statusbuf, " Beta");

#if (NH_DEVEL_STATUS == NH_STATUS_WIP)

Strcpy(statusbuf, " Work-in-progress");

Strcpy(statusbuf, " post-release");

statusbuf[0] = '\0';

subbuf[0] = '\0';

#ifdef PORT_SUB_ID

subbuf[0] = ' ';

Strcpy(&subbuf[1], PORT_SUB_ID);

Snprintf(outbuf, bufsz, "%s NetHack%s Version %s%s - last %s %s.", PORT_ID,

subbuf, mdlib_version_string(versbuf, "."), statusbuf,

date_via_env ? "revision" : "build", build_date);

return outbuf;

}

char *

bannerc_string(char *outbuf, size_t bufsz, const char *build_date)

{

char subbuf[64], versbuf[64];

subbuf[0] = '\0';

#ifdef PORT_SUB_ID

subbuf[0] = ' ';

Strcpy(&subbuf[1], PORT_SUB_ID);

#if (NH_DEVEL_STATUS != NH_STATUS_RELEASED)

#if (NH_DEVEL_STATUS == NH_STATUS_BETA)

Strcat(subbuf, " Beta");

Strcat(subbuf, " Work-in-progress");

Snprintf(outbuf, bufsz, " Version %s %s%s, %s %s.",

mdlib_version_string(versbuf, "."), PORT_ID, subbuf,

date_via_env ? "revised" : "built", build_date);

return outbuf;

}

#ifndef HAS_NO_MKSTEMP

#ifdef _MSC_VER

mkstemp(char *template)

{

int err;

err = _mktemp_s(template, strlen(template) + 1);

if( err != 0 )

return -1;

return _open(template,

_O_RDWR | _O_BINARY | _O_TEMPORARY | _O_CREAT,

_S_IREAD | _S_IWRITE);

}

#endif /* _MSC_VER */

#endif /* HAS_NO_MKSTEMP */

#endif /* MAKEDEFS_C || FOR_RUNTIME */

static char *

eos(char *str)

{

while (*str)

str++;

return str;

}

#if 0

static char *

mdlib_strsubst(char *bp, const char *orig, const char *replacement)

{

char *found, buf[BUFSZ];

if (bp) {

/* [this could be replaced by strNsubst(bp, orig, replacement, 1)] */

found = strstr(bp, orig);

if (found) {

Strcpy(buf, found + strlen(orig));

Strcpy(found, replacement);

Strcat(bp, buf);

}

}

return bp;

}

static char save_bones_compat_buf[BUFSZ];

static void

build_savebones_compat_string(void)

{

#ifdef VERSION_COMPATIBILITY

unsigned long uver = VERSION_COMPATIBILITY,

cver = (((unsigned long) VERSION_MAJOR << 24)

| ((unsigned long) VERSION_MINOR << 16)

| ((unsigned long) PATCHLEVEL << 8));

Strcpy(save_bones_compat_buf,

"save and bones files accepted from version");

#ifdef VERSION_COMPATIBILITY

if (uver != cver)

Sprintf(eos(save_bones_compat_buf), "s %lu.%lu.%lu through %d.%d.%d",

((uver >> 24) & 0x0ffUL),

((uver >> 16) & 0x0ffUL),

((uver >> 8) & 0x0ffUL),

VERSION_MAJOR, VERSION_MINOR, PATCHLEVEL);

else

Sprintf(eos(save_bones_compat_buf), " %d.%d.%d only",

VERSION_MAJOR, VERSION_MINOR, PATCHLEVEL);

}

static const char *const build_opts[] = {

#ifdef AMIGA_WBENCH

"Amiga WorkBench support",

#ifdef ANSI_DEFAULT

"ANSI default terminal",

#ifdef TEXTCOLOR

"color",

#ifdef TTY_GRAPHICS

#ifdef TTY_TILES_ESCCODES

"console escape codes for tile hinting",

#ifdef LIFE

"Conway's Game of Life",

#ifdef COMPRESS

"data file compression",

#ifdef ZLIB_COMP

"ZLIB data file compression",

#ifdef DLB

#ifndef VERSION_IN_DLB_FILENAME

"data librarian",

"data librarian with a version-dependent name",

#ifdef EDIT_GETLIN

"edit getlin - some prompts remember previous response",

#ifdef DUMPLOG

"end-of-game dumplogs",

#ifdef HOLD_LOCKFILE_OPEN

"exclusive lock on level 0 file",

#ifdef MSGHANDLER

"external program as a message handler",

#if defined(HANGUPHANDLING) && !defined(NO_SIGNAL)

#ifdef SAFERHANGUP

"deferred handling of hangup signal",

"immediate handling of hangup signal",

#ifdef INSURANCE

"insurance files for recovering from crashes",

#ifdef LIVELOG

"live logging support",

#ifdef LOGFILE

"log file",

#ifdef XLOGFILE

"extended log file",

#ifdef PANICLOG

"errors and warnings log file",

#ifdef MAIL

"mail daemon",

#ifdef MONITOR_HEAP

"monitor heap - record memory usage for later analysis",

#if defined(GNUDOS) || defined(__DJGPP__)

"MSDOS protected mode",

#ifdef NEWS

"news file",

#ifdef OVERLAY

#ifdef MOVERLAY

"MOVE overlays",

#ifdef VROOMM

"VROOMM overlays",

"overlays",

#ifdef UNIX

#if defined(DEF_PAGER) && !defined(DLB)

"external pager used for viewing help files",

"internal pager used for viewing help files",

#endif /* UNIX */

/* pattern matching method will be substituted by nethack at run time */

"pattern matching via :PATMATCH:",

#ifdef USE_ISAAC64

"pseudo random numbers generated by ISAAC64",

#ifdef DEV_RANDOM

/* include which specific one */

"strong PRNG seed from " DEV_RANDOM,

#ifdef WIN32

"strong PRNG seed from CNG BCryptGenRandom()",

#endif /* DEV_RANDOM */

#else /* ISAAC64 */

#ifdef RANDOM

"pseudo random numbers generated by random()",

"pseudo random numbers generated by C rand()",

#endif /* ISAAC64 */

#ifdef SELECTSAVED

"restore saved games via menu",

#ifdef SCORE_ON_BOTL

"score on status line",

#ifdef CLIPPING

"screen clipping",

#ifdef NO_TERMS

#ifdef MAC

"screen control via mactty",

#ifdef SCREEN_BIOS

"screen control via BIOS",

#ifdef SCREEN_DJGPPFAST

"screen control via DJGPP fast",

#ifdef SCREEN_VGA

"screen control via VGA graphics",

#ifdef WIN32CON

"screen control via WIN32 console I/O",

#endif /* NO_TERMS */

#ifdef SHELL

"shell command",

"traditional status display",

#ifdef STATUS_HILITES

"status via windowport with highlighting",

"status via windowport without highlighting",

#ifdef SUSPEND

"suspend command",

#ifdef TTY_GRAPHICS

#ifdef TERMINFO

"terminal info library",

#if defined(TERMLIB) || (!defined(MICRO) && !defined(WIN32))

"terminal capability library",

#endif /*TTY_GRAPHICS*/

#ifdef USE_XPM

"tiles file in XPM format",

#ifdef GRAPHIC_TOMBSTONE

"graphical RIP screen",

#ifdef TIMED_DELAY

"timed wait for display effects",

#ifdef PREFIXES_IN_USE

"variable playground",

#ifdef VISION_TABLES

"vision tables",

#ifdef ZEROCOMP

"zero-compressed save files",

#ifdef RLECOMP

"run-length compression of map in save files",

#ifdef SYSCF

"system configuration at run-time",

save_bones_compat_buf,

"and basic NetHack features"

};

static int

count_and_validate_winopts(void)

{

int i, cnt = 0;

/* window_opts has a fencepost entry at the end */

for (i = 0; i < SIZE(window_opts) - 1; i++) {

#if !defined(MAKEDEFS_C) && defined(FOR_RUNTIME)

#ifdef WIN32

window_opts[i].valid = FALSE;

if ((GUILaunched

&& case_insensitive_comp(window_opts[i].id, "mswin") != 0)

|| (!GUILaunched

&& case_insensitive_comp(window_opts[i].id, "mswin") == 0))

continue;

#endif /* !MAKEDEFS_C && FOR_RUNTIME */

++cnt;

window_opts[i].valid = TRUE;

}

return cnt;

}

#if !defined(MAKEDEFS_C)

static int

count_and_validate_soundlibopts(void)

{

int i, cnt = 0;

/* soundlib_opts has a fencepost entry at the end */

for (i = 0; i < SIZE(soundlib_opts) - 1; i++) {

++cnt;

soundlib_opts[i].valid = TRUE;

}

return cnt;

}

static void

opt_out_words(

char *str, /* input, but modified during processing */

int *length_p) /* in/out */

{

char *word;

while (*str) {

word = strchr(str, ' ');

#if 0

/* treat " (" as unbreakable space */

if (word && *(word + 1) == '(')

word = strchr(word + 1, ' ');

if (word)

*word = '\0';

if (*length_p + (int) strlen(str) > COLNO - 5) {

opttext[idxopttext] = dupstr(optbuf);

if (idxopttext < (MAXOPT - 1))

idxopttext++;

Sprintf(optbuf, "%s", opt_indent),

*length_p = (int) strlen(opt_indent);

} else {

Sprintf(eos(optbuf), " "), (*length_p)++;

}

Sprintf(eos(optbuf), "%s", str), *length_p += (int) strlen(str);

str += strlen(str) + (word ? 1 : 0);

}

}

build_options(void)

{

char buf[COLBUFSZ];

int i, length, winsyscnt, cnt = 0;

const char *defwinsys = DEFAULT_WINDOW_SYS;

#if !defined(MAKEDEFS_C) && defined(FOR_RUNTIME)

int soundlibcnt;

#ifdef WIN32

defwinsys = GUILaunched ? "mswin" : "tty";

build_savebones_compat_string();

opttext[idxopttext] = dupstr(optbuf);

if (idxopttext < (MAXOPT - 1))

idxopttext++;

#if (NH_DEVEL_STATUS != NH_STATUS_RELEASED)

#if (NH_DEVEL_STATUS == NH_STATUS_BETA)

#define STATUS_ARG " [beta]"

#define STATUS_ARG " [work-in-progress]"

#define STATUS_ARG ""

#endif /* NH_DEVEL_STATUS == NH_STATUS_RELEASED */

Sprintf(optbuf, "%sNetHack version %d.%d.%d%s\n",

opt_indent, VERSION_MAJOR, VERSION_MINOR, PATCHLEVEL, STATUS_ARG);

opttext[idxopttext] = dupstr(optbuf);

if (idxopttext < (MAXOPT - 1))

idxopttext++;

Sprintf(optbuf, "Options compiled into this edition:");

opttext[idxopttext] = dupstr(optbuf);

if (idxopttext < (MAXOPT - 1))

idxopttext++;

optbuf[0] = '\0';

length = COLNO + 1; /* force 1st item onto new line */

for (i = 0; i < SIZE(build_opts); i++) {

#if !defined(MAKEDEFS_C) && defined(FOR_RUNTIME)

#ifdef WIN32

/* ignore the console entry if GUI version */

if (GUILaunched

&& !strcmp("screen control via WIN32 console I/O", build_opts[i]))

continue;

#endif /* !MAKEDEFS_C && FOR_RUNTIME */

Strcat(strcpy(buf, build_opts[i]),

(i < SIZE(build_opts) - 1) ? "," : ".");

opt_out_words(buf, &length);

}

opttext[idxopttext] = dupstr(optbuf);

if (idxopttext < (MAXOPT - 1))

idxopttext++;

optbuf[0] = '\0';

winsyscnt = count_and_validate_winopts();

opttext[idxopttext] = dupstr(optbuf);

if (idxopttext < (MAXOPT - 1))

idxopttext++;

Sprintf(optbuf, "Supported windowing system%s:",

(winsyscnt > 1) ? "s" : "");

opttext[idxopttext] = dupstr(optbuf);

if (idxopttext < (MAXOPT - 1))

idxopttext++;

optbuf[0] = '\0';

length = COLNO + 1; /* force 1st item onto new line */

for (i = 0; i < SIZE(window_opts) - 1; i++) {

if (!window_opts[i].valid)

continue;

Sprintf(buf, "\"%s\"", window_opts[i].id);

if (strcmp(window_opts[i].name, window_opts[i].id))

Sprintf(eos(buf), " (%s)", window_opts[i].name);

/*

Strcat(buf, (winsyscnt == 1) ? "." /* no 'default' */

: (winsyscnt == 2 && cnt == 0) ? " and"

: (cnt == winsyscnt - 2) ? ", and"

: ",");

opt_out_words(buf, &length);

cnt++;

}

if (cnt > 1) {

/* loop ended with a comma; opt_out_words() will insert a space */

Sprintf(buf, "with a default of \"%s\".", defwinsys);

opt_out_words(buf, &length);

}

#if !defined(MAKEDEFS_C)

cnt = 0;

opttext[idxopttext] = dupstr(optbuf);

if (idxopttext < (MAXOPT - 1))

idxopttext++;

optbuf[0] = '\0';

soundlibcnt = count_and_validate_soundlibopts();

opttext[idxopttext] = dupstr(optbuf);

if (idxopttext < (MAXOPT - 1))

idxopttext++;

Sprintf(optbuf, "Supported soundlib%s:",

(soundlibcnt > 1) ? "s" : "");

opttext[idxopttext] = dupstr(optbuf);

if (idxopttext < (MAXOPT - 1))

idxopttext++;

optbuf[0] = '\0';

length = COLNO + 1; /* force 1st item onto new line */

#ifdef USER_SOUNDS

soundlibcnt += 1;

for (i = 0; i < SIZE(soundlib_opts) - 1; i++) {

const char *soundlib;

if (!soundlib_opts[i].valid)

continue;

soundlib = soundlib_opts[i].text_id;

if (!strncmp(soundlib, "soundlib_", 9))

soundlib += 9;

Sprintf(buf, "\"%s\"", soundlib);

/*

Strcat(buf, (soundlibcnt == 1 || cnt == soundlibcnt - 1)

? "." /* no 'with default' */

: (soundlibcnt == 2 && cnt == 0) ? " and"

: (cnt == soundlibcnt - 2) ? ", and"

: ",");

opt_out_words(buf, &length);

cnt++;

}

#ifdef USER_SOUNDS

if (cnt > 1) {

/* loop ended with a comma; opt_out_words() will insert a space */

Sprintf(buf, "user sounds.");

opt_out_words(buf, &length);

}

#endif /* !MAKEDEFS_C */

opttext[idxopttext] = dupstr(optbuf);

if (idxopttext < (MAXOPT - 1))

idxopttext++;

optbuf[0] = '\0';

#if defined(MAKEDEFS_C) || defined(FOR_RUNTIME)

{

static const char *const lua_info[] = {

"", "NetHack 3.7.* uses the 'Lua' interpreter to process some data:", "",

" :LUACOPYRIGHT:", "",

/* 1 2 3 4 5 6 7

" \"Permission is hereby granted, free of charge, to any person obtaining",

" a copy of this software and associated documentation files (the ",

" \"Software\"), to deal in the Software without restriction including",

" without limitation the rights to use, copy, modify, merge, publish,",

" distribute, sublicense, and/or sell copies of the Software, and to ",

" permit persons to whom the Software is furnished to do so, subject to",

" the following conditions:",

" The above copyright notice and this permission notice shall be",

" included in all copies or substantial portions of the Software.\"",

(const char *) 0

};

/* add lua copyright notice;

for (i = 0; lua_info[i]; ++i) {

opttext[idxopttext] = dupstr(lua_info[i]);

if (idxopttext < (MAXOPT - 1))

idxopttext++;

}

}

#endif /* MAKEDEFS_C || FOR_RUNTIME */

/* end with a blank line */

opttext[idxopttext] = dupstr("");

if (idxopttext < (MAXOPT - 1))

idxopttext++;

return;

}

case_insensitive_comp(const char *s1, const char *s2)

{

uchar u1, u2;

for (;; s1++, s2++) {

u1 = (uchar) *s1;

if (isupper(u1))

u1 = (uchar) tolower(u1);

u2 = (uchar) *s2;

if (isupper(u2))

u2 = (uchar) tolower(u2);

if (u1 == '\0' || u1 != u2)

break;

}

return u1 - u2;

}

runtime_info_init(void)

{

if (!done_runtime_opt_init_once) {

done_runtime_opt_init_once = 1;

build_savebones_compat_string();

/* construct the current version number */

make_version();

populate_nomakedefs(&version); /* date.c */

idxopttext = 0;

build_options();

}

}

const char *

do_runtime_info(int *rtcontext)

{

const char *retval = (const char *) 0;

if (!done_runtime_opt_init_once)

runtime_info_init();

if (idxopttext && rtcontext)

if (*rtcontext >= 0 && *rtcontext < (MAXOPT - 1)) {

retval = opttext[*rtcontext];

*rtcontext += 1;

}

return retval;

}

release_runtime_info(void)

{

while (idxopttext > 0) {

--idxopttext;

free((genericptr_t) opttext[idxopttext]), opttext[idxopttext] = 0;

}

done_runtime_opt_init_once = 0;

free_nomakedefs();

}