patch cleanup (trunk only)

     My #terrain patch had a typo on the command line and was going
to include doc/fixes35.0 as the log text for a half-dozen files.  I
aborted the commit but most of them had already made it into the cvs
repository.  This reverts those changes so that the entire patch can
be re-comitted with the right log text.  Ugh...

diff --git a/dat/wizhelp b/dat/wizhelp
index 6b38bc8ad8c07990207de428561a6627c22411dc..5a7252028959184888b54c60082d7af7898167fb 100644 (file)
--- a/dat/wizhelp
+++ b/dat/wizhelp
@@ -17,6 +17,7 @@ Debug-Mode Quick Reference:
 #polyself == polymorph self
 #seenv == show seen vectors
 #stats == show memory statistics
+#terrain == show map topology
 #timeout == look at timeout queue
 #vision == show vision array
 #wmode == show wall modes

diff --git a/doc/Guidebook.mn b/doc/Guidebook.mn
index ccd5a19a1b07b71fd1bba0d40c2f335264f47cdb..218ad18658b69dba0c1e678a9151eacb83ffec02 100644 (file)
--- a/doc/Guidebook.mn
+++ b/doc/Guidebook.mn
@@ -843,10 +843,8 @@ Ride (or stop riding) a monster.
 Rub a lamp or a stone.
 .lp "#sit "
 Sit down.
-.lp #terrain
-Show bare map without displaying monsters, objects, or traps.
 .lp "#tip "
-Tip over a container (bag or box) to pour out its contents.
+Tip over a container to pour out its contents.
 .lp #turn
 Turn undead.
 .lp #twoweapon

diff --git a/doc/Guidebook.tex b/doc/Guidebook.tex
index 765422e5e75ae10853f70045db1eedc53170a67e..0cff1d0b65932888f8343a7236721d695ecda020 100644 (file)
--- a/doc/Guidebook.tex
+++ b/doc/Guidebook.tex
@@ -33,7 +33,7 @@
 \begin{document}
 %
 % input file: guidebook.mn
-% $Revision: 1.117 $ $Date: 2011/09/15 04:16:22 $
+% $Revision: 1.118 $ $Date: 2011/12/05 09:15:45 $
 %
 %.ds h0 "
 %.ds h1 %.ds h2 \%
@@ -1053,10 +1053,8 @@ Rub a lamp or a stone.
 \item[\tb{\#sit}]
 Sit down.
 %.lp
-\item[\tb{\#terrain}]
-Show bare map without displaying monsters, objects, or traps.
 \item[\tb{\#tip}]
-Tip over a container (bag or box) to pour out its contents.
+Tip over a container to pour out its contents.
 %.lp
 \item[\tb{\#turn}]
 Turn undead.

diff --git a/include/extern.h b/include/extern.h
index b8173a5cca46314642d7c3ad75fa2a2a695e3a86..1d35b8bb5b7ac1a62ecec00acc16e67ee8463154 100644 (file)
--- a/include/extern.h
+++ b/include/extern.h
@@ -261,7 +261,6 @@ E void FDECL(find_trap, (struct trap *));
 E int FDECL(dosearch0, (int));
 E int NDECL(dosearch);
 E void NDECL(sokoban_detect);
-E void FDECL(reveal_terrain, (BOOLEAN_P));
 
 /* ### dig.c ### */
 

diff --git a/src/cmd.c b/src/cmd.c
index 67193ff787fc3a101bdf05e953618401c3b3a21d..c894bc30c5dad6dab04bdcc9fa50ae1c2ac34b12 100644 (file)
--- a/src/cmd.c
+++ b/src/cmd.c
@@ -126,7 +126,6 @@ STATIC_PTR int NDECL(domonability);
 STATIC_PTR int NDECL(dooverview_or_wiz_where);
 #endif /* DUNGEON_OVERVIEW */
 STATIC_PTR int NDECL(dotravel);
-STATIC_PTR int NDECL(doterrain);
 # ifdef WIZARD
 STATIC_PTR int NDECL(wiz_wish);
 STATIC_PTR int NDECL(wiz_identify);
@@ -143,8 +142,7 @@ STATIC_PTR int NDECL(wiz_show_vision);
 STATIC_PTR int NDECL(wiz_smell);
 STATIC_PTR int NDECL(wiz_mon_polycontrol);
 STATIC_PTR int NDECL(wiz_show_wmodes);
-STATIC_DCL void NDECL(wiz_map_levltyp);
-STATIC_DCL void NDECL(wiz_levltyp_legend);
+STATIC_PTR int NDECL(wiz_map_terrain);
 #if defined(__BORLANDC__) && !defined(_WIN32)
 extern void FDECL(show_borlandc_stats, (winid));
 #endif
@@ -822,9 +820,9 @@ wiz_show_wmodes(VOID_ARGS)
        return 0;
 }
 
-/* wizard mode variant of #terrain; internal levl[][].typ values in base-36 */
-STATIC_OVL void
-wiz_map_levltyp(VOID_ARGS)
+/* #terrain command */
+STATIC_PTR int
+wiz_map_terrain(VOID_ARGS)
 {
        winid win;
        int x, y, terrain;
@@ -923,91 +921,10 @@ wiz_map_levltyp(VOID_ARGS)
     }
 
        display_nhwindow(win, TRUE);
+       /* TODO? create legend of levl[][].typ codes and allow switching
+          back and forth between it and coded map display */
        destroy_nhwindow(win);
-       return;
-}
-
-/* temporary? hack, since level type codes aren't the same as screen
-   symbols and only the latter have easily accessible descriptions */
-static const char *levltyp[] = {
-       "stone",
-       "vertical wall",
-       "horizontal wall",
-       "top-left corner wall",
-       "top-right corner wall",
-       "bottom-left corner wall",
-       "bottom-right corner wall",
-       "cross wall",
-       "tee-up wall",
-       "tee-down wall",
-       "tee-left wall",
-       "tee-right wall",
-       "drawbridge wall",
-       "tree",
-       "secret door",
-       "secret corridor",
-       "pool",
-       "moat",
-       "water",
-       "drawbridge up",
-       "lava pool",
-       "iron bars",
-       "door",
-       "corridor",
-       "room",
-       "stairs",
-       "ladder",
-       "fountain",
-       "throne",
-       "sink",
-       "grave",
-       "altar",
-       "ice",
-       "drawbridge down",
-       "air",
-       "cloud",
-       /* not a real terrain type, but used for undiggable stone
-          by wiz_map_levltyp() */
-       "unreachable/undiggable",
-       /* padding in case the number of entries above is odd */
-       ""
-};
-
-/* explanation of base-36 output from wiz_map_levltyp() */
-STATIC_OVL void
-wiz_levltyp_legend(VOID_ARGS)
-{
-       winid win;
-       int i, j, last, c;
-       const char *dsc, *fmt;
-       char buf[BUFSZ];
-
-       win = create_nhwindow(NHW_TEXT);
-       putstr(win, 0, "#terrain encodings:");
-       putstr(win, 0, "");
-       fmt = " %c - %-28s"; /* TODO: include tab-separated variant for win32 */
-       *buf = '\0';
-       /* output in pairs, left hand column holds [0],[1],...,[N/2-1]
-          and right hand column holds [N/2],[N/2+1],...,[N-1];
-          N ('last') will always be even, and may or may not include
-          the empty string entry to pad out the final pair, depending
-          upon how many other entries are present in levltyp[] */
-       last = SIZE(levltyp) & ~1;
-       for (i = 0; i < last / 2; ++i)
-           for (j = i; j < last; j += last / 2) {
-               dsc = levltyp[j];
-               c = !*dsc ? ' ' : !strncmp(dsc, "unreachable", 11) ? '*' :
-                 /* same int-to-char conversion as wiz_map_levltyp() */
-                 (j < 10) ? '0' + j : (j < 36) ? 'a' + j - 10 : 'A' + j - 36;
-               Sprintf(eos(buf), fmt, c, dsc);
-               if (j > i) {
-                   putstr(win, 0, buf);
-                   *buf = '\0';
-               }
-           }
-       display_nhwindow(win, TRUE);
-       destroy_nhwindow(win);
-       return;
+       return 0;
 }
 
 /* #wizsmell command - test usmellmon(). */
@@ -1066,71 +983,6 @@ wiz_rumor_check(VOID_ARGS)
 }
 #endif /* WIZARD */
 
-/* #terrain command */
-STATIC_PTR int
-doterrain(VOID_ARGS)
-{
-    int which = 1;     /* show known map, ala crawl's '|' command */
-
-    if (discover || wizard) {
-       /* explore mode #terrain: choose between known map and full map;
-          wizard mode #terrain: choose between known map, full map,
-          a dump of the internal levl[][].typ codes w/ level flags,
-          and a legend for the levl[][].typ codes */
-       winid men;
-       menu_item *sel;
-       anything any;
-       int n;
-
-       men = create_nhwindow(NHW_MENU);
-       any = zeroany;
-       any.a_int = 1;
-       add_menu(men, NO_GLYPH, &any, 0, 0, ATR_NONE,
-                "known map without monsters, objects, and traps",
-                MENU_SELECTED);
-       any.a_int = 2;
-       add_menu(men, NO_GLYPH, &any, 0, 0, ATR_NONE,
-                "full map without monsters, objects, and traps",
-                MENU_UNSELECTED);
-#ifdef WIZARD
-       if (wizard) {
-           any.a_int = 3;
-           add_menu(men, NO_GLYPH, &any, 0, 0, ATR_NONE,
-                    "internal levl[][].typ codes in base-36",
-                    MENU_UNSELECTED);
-           any.a_int = 4;
-           add_menu(men, NO_GLYPH, &any, 0, 0, ATR_NONE,
-                    "legend of base-36 levl[][].typ codes",
-                    MENU_UNSELECTED);
-       }
-#endif
-       end_menu(men, "View which?");
-
-       n = select_menu(men, PICK_ONE, &sel);
-       destroy_nhwindow(men);
-       /*
-        * n <  0: player used ESC to cancel;
-        * n == 0: preselected entry was explicitly chosen and got toggled off;
-        * n == 1: preselected entry was implicitly chosen via <space>|<enter>;
-        * n == 2: another entry was explicitly chosen, so skip preselected one
-        */
-       which = (n < 0) ? -1 : (n == 0) ? 1 : sel[0].item.a_int;
-       if (n > 1 && which == 1) which = sel[1].item.a_int;
-       if (n > 0) free((genericptr_t)sel);
-    } /* discover || wizard */
-
-    switch (which) {
-    case 1: reveal_terrain(FALSE); break;              /* known map */
-    case 2: reveal_terrain(TRUE); break;               /* full map */
-#ifdef WIZARD
-    case 3: wiz_map_levltyp(); break;          /* map internals */
-    case 4: wiz_levltyp_legend(); break;       /* internal details */
-#endif
-    default: break;
-    }
-    return 0;  /* no time elapses */
-}
-
 
 /* -enlightenment and conduct- */
 static winid en_win = WIN_ERR;
@@ -2478,7 +2330,6 @@ struct ext_func_tab extcmdlist[] = {
 #endif
        {"rub", "rub a lamp or a stone", dorub, FALSE},
        {"sit", "sit down", dosit, FALSE},
-       {"terrain", "show map without obstructions", doterrain, TRUE},
        {"tip", "empty a container", dotip, FALSE},
        {"turn", "turn undead", doturn, TRUE},
        {"twoweapon", "toggle two-weapon combat", dotwoweapon, FALSE},
@@ -2505,6 +2356,7 @@ struct ext_func_tab extcmdlist[] = {
 #endif
        {(char *)0, (char *)0, donull, TRUE},   /* seenv */
        {(char *)0, (char *)0, donull, TRUE},   /* stats */
+       {(char *)0, (char *)0, donull, TRUE},   /* terrain */
        {(char *)0, (char *)0, donull, TRUE},   /* timeout */
        {(char *)0, (char *)0, donull, TRUE},   /* vanquished */
        {(char *)0, (char *)0, donull, TRUE},   /* vision */
@@ -2534,6 +2386,7 @@ static const struct ext_func_tab debug_extcmdlist[] = {
 #endif
        {"seenv", "show seen vectors", wiz_show_seenv, TRUE},
        {"stats", "show memory statistics", wiz_show_stats, TRUE},
+       {"terrain", "show map topology", wiz_map_terrain, TRUE},
        {"timeout", "look at timeout queue", wiz_timeout_queue, TRUE},
        {"vanquished", "list vanquished monsters", dovanquished, TRUE},
        {"vision", "show vision array", wiz_show_vision, TRUE},