/* NetHack 5.0 mdlib.c $NHDT-Date: 1781973053 2026/06/20 16:30:53 $ $NHDT-Branch: NetHack-5.0 $:$NHDT-Revision: 1.74 $ */

/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */

/*-Copyright (c) Kenneth Lorber, Kensington, Maryland, 2015. */

/* Copyright (c) M. Stephenson, 1990, 1991. */

/* Copyright (c) Dean Luick, 1990. */

/* NetHack may be freely redistributed. See license for details. */

/*

* This can be linked into a binary to provide the functionality

* via the contained functions, or it can be #included directly

* into util/makedefs.c to provide it there.

*/

#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 "hacklib.h"

/* version information */

#ifdef SHORT_FILENAMES

#include "patchlev.h"

#else

#include "patchlevel.h"

#endif

#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 */

#else

#ifndef GLOBAL_H

#include "global.h"

#endif

#endif /* !MAKEDEFS_C */

/* shorten up some lines */

#define FOR_RUNTIME

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

#include <stdarg.h>

/* REPRODUCIBLE_BUILD will change this to TRUE */

static boolean date_via_env = FALSE;

extern unsigned long md_ignored_features(void);

extern const char *datamodel(int);

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

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

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

#ifndef SFCTOOL

staticfn

#endif /* SFCTOOL */

void make_version(void);

#ifndef HAS_NO_MKSTEMP

#ifdef _MSC_VER

static int mkstemp(char *);

#endif

#endif

#endif /* MAKEDEFS_C || FOR_RUNTIME */

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

extern int GUILaunched;

#endif

/* these are in extern.h but we don't include hack.h */

/* XXX move to new file mdlib.h? */

extern void populate_nomakedefs(struct version_info *) NONNULLARG1; /*date.c*/

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

void runtime_info_init(void);

const char *do_runtime_info(int *) NO_NNARGS;

void release_runtime_info(void);

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

staticfn void build_options(void);

staticfn int count_and_validate_winopts(void);

staticfn void opt_out_words(char *, int *) NONNULLPTRS;

staticfn void build_savebones_compat_string(void);

static int idxopttext, done_runtime_opt_init_once = 0;

#define MAXOPT 60 /* 5.0: currently 40 lines get inserted into opttext[] */

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

#define STOREOPTTEXT(line) \

((void) ((idxopttext < MAXOPT) \

? (opttext[idxopttext++] = dupstr(line)) \

: 0))

static char optbuf[COLBUFSZ];

static struct version_info version;

static const char opt_indent[] = " ";

struct win_information {

const char *id, /* windowtype value */

*name; /* description, often same as id */

boolean valid;

};

static struct win_information window_opts[] = {

#ifdef TTY_GRAPHICS

{ "tty",

/* testing TILES_IN_GLYPHMAP here would bring confusion because it could

apply to another interface such as X11, so check MSDOS explicitly

instead; even checking TTY_TILES_ESCCODES would probably be

confusing to most users (and it will already be listed separately

in the compiled options section so users aware of it can find it) */

#ifdef MSDOS

"traditional text with optional 'tiles' graphics",

#else

/* assume that one or more of IBMgraphics, DECgraphics

can be enabled; we can't tell from here whether that is accurate */

"traditional text with optional line-drawing",

#endif

TRUE

},

#endif /*TTY_GRAPHICS */

#ifdef CURSES_GRAPHICS

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

#endif

#ifdef X11_GRAPHICS

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

#endif

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

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

#endif

#ifdef MSWIN_GRAPHICS /* win32 */

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

#endif

#ifdef SHIM_GRAPHICS

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

#endif

#ifdef AMIGA_INTUITION

{ "amii", "Amiga Intuition (text)", TRUE },

{ "amiv", "Amiga Intuition (tiles)", TRUE },

#endif

#ifdef MAC68K /* classic Mac 68k windowport (revived) */

{ "mac", "Macintosh", TRUE },

#endif

#ifdef GEM_GRAPHICS

{ "Gem", "Atari ST GEM", TRUE },

#endif

#if 0 /* remainder have been retired */

#ifdef GNOME_GRAPHICS /* unmaintained/defunct */

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

#endif

#ifdef MAC68K /* defunct OS 9 interface */

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

#endif

#ifdef BEOS_GRAPHICS /* unmaintained/defunct */

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

#endif

#endif /* 0 => retired */

{ 0, 0, FALSE }

};

#if !defined(MAKEDEFS_C)

staticfn int count_and_validate_soundlibopts(void);

struct soundlib_information {

enum soundlib_ids id;

const char *const text_id;

const char *const Url;

boolean valid;

};

/*

* soundlibs

*

* None of these are endorsements or recommendations of one library

* or another, in any way. They are just preprocessor conditionals

* in the event that glue code for such a library is ever added into

* NetHack.

*/

static struct soundlib_information soundlib_opts[] = {

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

#ifdef SND_LIB_PORTAUDIO

{ soundlib_portaudio, "soundlib_portaudio",

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

#endif

#ifdef SND_LIB_OPENAL

{ soundlib_openal, "soundlib_openal",

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

#endif

#ifdef SND_LIB_SDL_MIXER

{ soundlib_sdl_mixer, "soundlib_sdl_mixer",

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

#endif

#ifdef SND_LIB_MINIAUDIO

{ soundlib_miniaudio, "soundlib_miniaudio",

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

#endif

#ifdef SND_LIB_FMOD

/* proprietary, though a Free Indie License exists.

* https://www.fmod.com/licensing#indie-note

*/

{ soundlib_fmod, "soundlib_fmod",

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

#endif

#ifdef SND_LIB_SOUND_ESCCODES

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

#endif

#ifdef SND_LIB_VISSOUND

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

#endif

#ifdef SND_LIB_WINDSOUND

/* Uses Windows WIN32 API */

{ soundlib_windsound, "soundlib_windsound",

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

FALSE },

#endif

#ifdef SND_LIB_MACSOUND

/* Uses AppKit NSSound */

{ soundlib_macsound, "soundlib_macsound",

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

FALSE },

#endif

#ifdef SND_LIB_QTSOUND

{ soundlib_qtsound, "soundlib_qtsound",

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

#endif

#ifdef SND_LIB_MAC68KSOUND

/* Uses the classic Mac OS Sound Manager */

{ soundlib_mac68ksound, "soundlib_mac68ksound", "", FALSE },

#endif

{ 0, 0, 0, FALSE },

};

#endif /* !MAKEDEFS_C */

unsigned long

md_ignored_features(void)

{

return (0UL

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

| SFCTOOL_BIT /* stored by SFCTOOL, not NetHack itself */

);

}

#ifndef SFCTOOL

staticfn

#endif

void

make_version(void)

{

int i;

/*

* integer version number

*/

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

| ((unsigned long) VERSION_MINOR << 16)

| ((unsigned long) PATCHLEVEL << 8)

| ((unsigned long) EDITLEVEL);

/*

* encoded feature list

* Note: if any of these magic numbers are changed or reassigned,

* EDITLEVEL in patchlevel.h should be incremented at the same time.

* The actual values have no special meaning, and the category

* groupings are just for convenience.

*/

version.feature_set = (unsigned long) (0L

/* levels and/or topology (0..4) */

/* monsters (5..9) */

#ifdef MAIL_STRUCTURES

| (1L << 6)

#endif

/* objects (10..14) */

/* flag bits and/or other global variables (15..26) */

/* color support always*/ | (1L << 17)

#ifdef INSURANCE

| (1L << 18)

#endif

#ifdef SCORE_ON_BOTL

| (1L << 19)

#endif

);

/*

* Value used for object & monster sanity check.

* (NROFARTIFACTS<<24) | (NUM_OBJECTS<<12) | (NUMMONS<<0)

*/

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

continue;

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

i = NUM_OBJECTS;

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

i = NUMMONS;

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

/* free bits in here */

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);

#endif

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, ...);

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");

#else

#if (NH_DEVEL_STATUS == NH_STATUS_WIP)

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

#else

Strcpy(statusbuf, " post-release");

#endif

#endif

#else

statusbuf[0] = '\0';

#endif

subbuf[0] = '\0';

#ifdef PORT_SUB_ID

subbuf[0] = ' ';

Strcpy(&subbuf[1], PORT_SUB_ID);

#endif

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;

}

/* still within #if MAKDEFS_C || FOR_RUNTIME */

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);

#endif

#if (NH_DEVEL_STATUS != NH_STATUS_RELEASED)

#if (NH_DEVEL_STATUS == NH_STATUS_BETA)

Strcpy(subbuf, " Beta");

#elif (NH_DEVEL_STATUS == NH_STATUS_WIP)

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

#elif (NH_DEVEL_STATUS == NH_STATUS_POSTRELEASE)

Strcpy(subbuf, " post-release");

#endif

#endif /* !NH_STATUS_RELEASED */

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

int

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 save_bones_compat_buf[BUFSZ];

staticfn 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));

#endif

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

#endif

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",

#endif

#ifdef ANSI_DEFAULT

"ANSI default terminal",

#endif

"color",

#ifdef TTY_GRAPHICS

#ifdef TTY_TILES_ESCCODES

"console escape codes for tile hinting",

#endif

#endif

#ifdef LIFE

"Conway's Game of Life",

#endif

#ifdef COMPRESS

"data file compression",

#endif

#ifdef ZLIB_COMP

"ZLIB data file compression",

#endif

#ifdef DLB

#ifndef VERSION_IN_DLB_FILENAME

"data librarian",

#else

"data librarian with a version-dependent name",

#endif

#endif

#ifdef EDIT_GETLIN

"edit getlin - some prompts remember previous response",

#endif

#ifdef DUMPLOG

"end-of-game dumplogs",

#endif

#ifdef HOLD_LOCKFILE_OPEN

"exclusive lock on level 0 file",

#endif

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

#ifdef SAFERHANGUP

"deferred handling of hangup signal",

#else

"immediate handling of hangup signal",

#endif

#endif

#ifdef INSURANCE

"insurance files for recovering from crashes",

#endif

#ifdef LIVELOG

"live logging support",

#endif

#ifdef LOGFILE

"log file",

#endif

#ifdef XLOGFILE

"extended log file",

#endif

#ifdef PANICLOG

"errors and warnings log file",

#endif

#ifdef MAIL

"mail daemon",

#endif

#ifdef MONITOR_HEAP

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

#endif

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

"MSDOS protected mode",

#endif

#ifdef NEWS

"news file",

#endif

#ifdef OVERLAY

#ifdef MOVERLAY

"MOVE overlays",

#else

#ifdef VROOMM

"VROOMM overlays",

#else

"overlays",

#endif

#endif

#endif

#ifdef UNIX

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

"external pager used for viewing help files",

#else

"internal pager used for viewing help files",

#endif

#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,

#else

#ifdef WIN32

"strong PRNG seed from CNG BCryptGenRandom()",

#endif

#endif /* DEV_RANDOM */

#else /* ISAAC64 */

#ifdef RANDOM

"pseudo random numbers generated by random()",

#else

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

#endif

#endif /* ISAAC64 */

#ifdef SELECTSAVED

"restore saved games via menu",

#endif

#ifdef SCORE_ON_BOTL

"score on status line",

#endif

#ifdef CLIPPING

"screen clipping",

#endif

#ifdef NO_TERMS

#ifdef MAC68K

"screen control via mactty",

#endif

#ifdef SCREEN_BIOS

"screen control via BIOS",

#endif

#ifdef SCREEN_DJGPPFAST

"screen control via DJGPP fast",

#endif

#ifdef SCREEN_VGA

"screen control via VGA graphics",

#endif

#ifdef WIN32CON

"screen control via WIN32 console I/O",

#endif

#endif /* NO_TERMS */

#ifdef SHELL

"shell command",

#endif

"traditional status display",

#ifdef STATUS_HILITES

"status via windowport with highlighting",

#else

"status via windowport without highlighting",

#endif

#ifdef SUSPEND

"suspend command",

#endif

#ifdef TTY_GRAPHICS

#ifdef TERMINFO

"terminal info library",

#else

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

"terminal capability library",

#endif

#endif

#endif /*TTY_GRAPHICS*/

#ifdef USE_XPM

"tiles file in XPM format",

#endif

#ifdef USE_XFT

"font rendering with Xft",

#endif

#ifdef GRAPHIC_TOMBSTONE

"graphical RIP screen",

#endif

#ifdef TIMED_DELAY

"timed wait for display effects",

#endif

#ifdef PREFIXES_IN_USE

"variable playground",

#endif

#ifdef SYSCF

"system configuration at run-time",

#endif

#ifdef PANICTRACE

"show stack trace on error",

#endif

#ifdef CRASHREPORT

"launch browser to report issues",

#endif

save_bones_compat_buf,

"and basic NetHack features"

};

staticfn 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, "curses") != 0

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

|| (!GUILaunched

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

continue;

#endif

#endif /* !MAKEDEFS_C && FOR_RUNTIME */

++cnt;

window_opts[i].valid = TRUE;

}

return cnt;

}

#if !defined(MAKEDEFS_C)

staticfn 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;

}

#endif

staticfn 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, ' ');

#endif

if (word)

*word = '\0';

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

STOREOPTTEXT(optbuf);

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);

}

}

staticfn void

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";

#endif

#endif

build_savebones_compat_string();

STOREOPTTEXT(optbuf);

#if (NH_DEVEL_STATUS != NH_STATUS_RELEASED)

#if (NH_DEVEL_STATUS == NH_STATUS_BETA)

#define STATUS_ARG " [beta]"

#else

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

#endif

#else

#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);

STOREOPTTEXT(optbuf);

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

STOREOPTTEXT(optbuf);

optbuf[0] = '\0';

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

Strcat(strcpy(buf, datamodel(0)), " data model,");

opt_out_words(buf, &length);

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

#endif /* !MAKEDEFS_C && FOR_RUNTIME */

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

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

opt_out_words(buf, &length);

}

STOREOPTTEXT(optbuf);

optbuf[0] = '\0';

winsyscnt = count_and_validate_winopts();

STOREOPTTEXT(optbuf);

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

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

STOREOPTTEXT(optbuf);

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);

/*

* 1 : foo.

* 2 : foo and bar,

* 3+: for, bar, and quux,

*

* 2+ will be followed by " with a default of..."

*/

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;

STOREOPTTEXT(optbuf);

optbuf[0] = '\0';

soundlibcnt = count_and_validate_soundlibopts();

STOREOPTTEXT(optbuf);

Sprintf(optbuf, "Supported soundlib%s:", (soundlibcnt > 1) ? "s" : "");

STOREOPTTEXT(optbuf);

optbuf[0] = '\0';

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

#ifdef USER_SOUNDS

soundlibcnt += 1;

#endif

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);

/*

* 1 : foo.

* 2 : foo and bar.

* 3+: for, bar, and quux.

*/

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

#endif /* !MAKEDEFS_C */

STOREOPTTEXT(optbuf);

optbuf[0] = '\0';

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

{

static const char *const lua_info[] = {

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

" :LUACOPYRIGHT:", "",

/* 1 2 3 4 5 6 7

1234567890123456789012345678901234567890123456789012345678901234567890123456

*/

(" \"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;

":TAG:" substitutions are deferred to caller */

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

STOREOPTTEXT(lua_info[i]);

}

}

#endif /* MAKEDEFS_C || FOR_RUNTIME */

/* end with a blank line */

STOREOPTTEXT("");

return;

}

#undef STOREOPTTEXT

void

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) {

retval = opttext[*rtcontext];

*rtcontext += 1;

}

return retval;

}

void

release_runtime_info(void)

{

while (idxopttext > 0) {

--idxopttext;

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

}

done_runtime_opt_init_once = 0;

free_nomakedefs();

}

/*mdlib.c*/