Source:NetHack 3.6.1/src/allmain.c

From NetHackWiki
Jump to navigation Jump to search

Below is the full text to allmain.c from the source code of NetHack 3.6.1. To link to a particular line, write [[Source:NetHack 3.6.1/src/allmain.c#line123]], for example.

Top of file

 /* NetHack 3.6	allmain.c	$NHDT-Date: 1518193644 2018/02/09 16:27:24 $  $NHDT-Branch: githash $:$NHDT-Revision: 1.86 $ */
 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
 /*-Copyright (c) Robert Patrick Rankin, 2012. */
 /* NetHack may be freely redistributed.  See license for details. */

The NetHack General Public License applies to screenshots, source code and other content from NetHack.

This content was modified from the original NetHack source code distribution (by splitting up NetHack content between wiki pages, and possibly further editing). See the page history for a list of who changed it, and on what dates.

 
 /* various code that was replicated in *main.c */
 
 #include "hack.h"
 
 #ifndef NO_SIGNAL
 #include <signal.h>
 #endif
 
 #ifdef POSITIONBAR
 STATIC_DCL void NDECL(do_positionbar);
 #endif
 STATIC_DCL void FDECL(regen_hp, (int));
 STATIC_DCL void FDECL(interrupt_multi, (const char *));
 

moveloop

 void
 moveloop(resuming)
 boolean resuming;
 {
 #if defined(MICRO) || defined(WIN32)
     char ch;
     int abort_lev;
 #endif
     int moveamt = 0, wtcap = 0, change = 0;
     boolean monscanmove = FALSE;
 
     /* Note:  these initializers don't do anything except guarantee that
             we're linked properly.
     */
     decl_init();
     monst_init();
     monstr_init(); /* monster strengths */
     objects_init();
 
     /* if a save file created in normal mode is now being restored in
        explore mode, treat it as normal restore followed by 'X' command
        to use up the save file and require confirmation for explore mode */
     if (resuming && iflags.deferred_X)
         (void) enter_explore_mode();
 
     /* side-effects from the real world */
     flags.moonphase = phase_of_the_moon();
     if (flags.moonphase == FULL_MOON) {
         You("are lucky!  Full moon tonight.");
         change_luck(1);
     } else if (flags.moonphase == NEW_MOON) {
         pline("Be careful!  New moon tonight.");
     }
     flags.friday13 = friday_13th();
     if (flags.friday13) {
         pline("Watch out!  Bad things can happen on Friday the 13th.");
         change_luck(-1);
     }
 
     if (!resuming) { /* new game */
         context.rndencode = rnd(9000);
         set_wear((struct obj *) 0); /* for side-effects of starting gear */
         (void) pickup(1);      /* autopickup at initial location */
     }
     context.botlx = TRUE; /* for STATUS_HILITES */
     update_inventory(); /* for perm_invent */
     if (resuming) { /* restoring old game */
         read_engr_at(u.ux, u.uy); /* subset of pickup() */
     }
 
     (void) encumber_msg(); /* in case they auto-picked up something */
     if (defer_see_monsters) {
         defer_see_monsters = FALSE;
         see_monsters();
     }
     initrack();
 
     u.uz0.dlevel = u.uz.dlevel;
     youmonst.movement = NORMAL_SPEED; /* give the hero some movement points */
     context.move = 0;
 
     program_state.in_moveloop = 1;
     for (;;) {
 #ifdef SAFERHANGUP
         if (program_state.done_hup)
             end_of_input();
 #endif
         get_nh_event();
 #ifdef POSITIONBAR
         do_positionbar();
 #endif
 
         if (context.move) {
             /* actual time passed */
             youmonst.movement -= NORMAL_SPEED;
 
             do { /* hero can't move this turn loop */
                 wtcap = encumber_msg();
 
                 context.mon_moving = TRUE;
                 do {
                     monscanmove = movemon();
                     if (youmonst.movement >= NORMAL_SPEED)
                         break; /* it's now your turn */
                 } while (monscanmove);
                 context.mon_moving = FALSE;
 
                 if (!monscanmove && youmonst.movement < NORMAL_SPEED) {
                     /* both you and the monsters are out of steam this round
                      */
                     /* set up for a new turn */
                     struct monst *mtmp;
                     mcalcdistress(); /* adjust monsters' trap, blind, etc */
 
                     /* reallocate movement rations to monsters */
                     for (mtmp = fmon; mtmp; mtmp = mtmp->nmon)
                         mtmp->movement += mcalcmove(mtmp);
 
                     if (!rn2(u.uevent.udemigod
                                  ? 25
                                  : (depth(&u.uz) > depth(&stronghold_level))
                                        ? 50
                                        : 70))
                         (void) makemon((struct permonst *) 0, 0, 0,
                                        NO_MM_FLAGS);
 
                     /* calculate how much time passed. */
                     if (u.usteed && u.umoved) {
                         /* your speed doesn't augment steed's speed */
                         moveamt = mcalcmove(u.usteed);
                     } else {
                         moveamt = youmonst.data->mmove;
 
                         if (Very_fast) { /* speed boots or potion */
                             /* gain a free action on 2/3 of turns */
                             if (rn2(3) != 0)
                                 moveamt += NORMAL_SPEED;
                         } else if (Fast) {
                             /* gain a free action on 1/3 of turns */
                             if (rn2(3) == 0)
                                 moveamt += NORMAL_SPEED;
                         }
                     }
 
                     switch (wtcap) {
                     case UNENCUMBERED:
                         break;
                     case SLT_ENCUMBER:
                         moveamt -= (moveamt / 4);
                         break;
                     case MOD_ENCUMBER:
                         moveamt -= (moveamt / 2);
                         break;
                     case HVY_ENCUMBER:
                         moveamt -= ((moveamt * 3) / 4);
                         break;
                     case EXT_ENCUMBER:
                         moveamt -= ((moveamt * 7) / 8);
                         break;
                     default:
                         break;
                     }
 
                     youmonst.movement += moveamt;
                     if (youmonst.movement < 0)
                         youmonst.movement = 0;
                     settrack();
 
                     monstermoves++;
                     moves++;
 
                     /********************************/
                     /* once-per-turn things go here */
                     /********************************/
 
                     if (Glib)
                         glibr();
                     nh_timeout();
                     run_regions();
 
                     if (u.ublesscnt)
                         u.ublesscnt--;
                     if (flags.time && !context.run)
                         context.botl = 1;
 
                     /* One possible result of prayer is healing.  Whether or
                      * not you get healed depends on your current hit points.
                      * If you are allowed to regenerate during the prayer,
                      * the end-of-prayer calculation messes up on this.
                      * Another possible result is rehumanization, which
                      * requires that encumbrance and movement rate be
                      * recalculated.
                      */
                     if (u.uinvulnerable) {
                         /* for the moment at least, you're in tiptop shape */
                         wtcap = UNENCUMBERED;
                     } else if (!Upolyd ? (u.uhp < u.uhpmax)
                                        : (u.mh < u.mhmax
                                           || youmonst.data->mlet == S_EEL)) {
                         /* maybe heal */
                         regen_hp(wtcap);
                     }
 
                     /* moving around while encumbered is hard work */
                     if (wtcap > MOD_ENCUMBER && u.umoved) {
                         if (!(wtcap < EXT_ENCUMBER ? moves % 30
                                                    : moves % 10)) {
                             if (Upolyd && u.mh > 1) {
                                 u.mh--;
                             } else if (!Upolyd && u.uhp > 1) {
                                 u.uhp--;
                             } else {
                                 You("pass out from exertion!");
                                 exercise(A_CON, FALSE);
                                 fall_asleep(-10, FALSE);
                             }
                         }
                     }
 
                     if (u.uen < u.uenmax
                         && ((wtcap < MOD_ENCUMBER
                              && (!(moves % ((MAXULEV + 8 - u.ulevel)
                                             * (Role_if(PM_WIZARD) ? 3 : 4)
                                             / 6)))) || Energy_regeneration)) {
                         u.uen += rn1(
                             (int) (ACURR(A_WIS) + ACURR(A_INT)) / 15 + 1, 1);
                         if (u.uen > u.uenmax)
                             u.uen = u.uenmax;
                         context.botl = 1;
                         if (u.uen == u.uenmax)
                             interrupt_multi("You feel full of energy.");
                     }
 
                     if (!u.uinvulnerable) {
                         if (Teleportation && !rn2(85)) {
                             xchar old_ux = u.ux, old_uy = u.uy;
                             tele();
                             if (u.ux != old_ux || u.uy != old_uy) {
                                 if (!next_to_u()) {
                                     check_leash(old_ux, old_uy);
                                 }
                                 /* clear doagain keystrokes */
                                 pushch(0);
                                 savech(0);
                             }
                         }
                         /* delayed change may not be valid anymore */
                         if ((change == 1 && !Polymorph)
                             || (change == 2 && u.ulycn == NON_PM))
                             change = 0;
                         if (Polymorph && !rn2(100))
                             change = 1;
                         else if (u.ulycn >= LOW_PM && !Upolyd
                                  && !rn2(80 - (20 * night())))
                             change = 2;
                         if (change && !Unchanging) {
                             if (multi >= 0) {
                                 stop_occupation();
                                 if (change == 1)
                                     polyself(0);
                                 else
                                     you_were();
                                 change = 0;
                             }
                         }
                     }
 
                     if (Searching && multi >= 0)
                         (void) dosearch0(1);
                     if (Warning)
                         warnreveal();
                     mkot_trap_warn();
                     dosounds();
                     do_storms();
                     gethungry();
                     age_spells();
                     exerchk();
                     invault();
                     if (u.uhave.amulet)
                         amulet();
                     if (!rn2(40 + (int) (ACURR(A_DEX) * 3)))
                         u_wipe_engr(rnd(3));
                     if (u.uevent.udemigod && !u.uinvulnerable) {
                         if (u.udg_cnt)
                             u.udg_cnt--;
                         if (!u.udg_cnt) {
                             intervene();
                             u.udg_cnt = rn1(200, 50);
                         }
                     }
                     restore_attrib();
                     /* underwater and waterlevel vision are done here */
                     if (Is_waterlevel(&u.uz) || Is_airlevel(&u.uz))
                         movebubbles();
                     else if (Is_firelevel(&u.uz))
                         fumaroles();
                     else if (Underwater)
                         under_water(0);
                     /* vision while buried done here */
                     else if (u.uburied)
                         under_ground(0);
 
                     /* when immobile, count is in turns */
                     if (multi < 0) {
                         if (++multi == 0) { /* finished yet? */
                             unmul((char *) 0);
                             /* if unmul caused a level change, take it now */
                             if (u.utotype)
                                 deferred_goto();
                         }
                     }
                 }
             } while (youmonst.movement
                      < NORMAL_SPEED); /* hero can't move loop */
 
             /******************************************/
             /* once-per-hero-took-time things go here */
             /******************************************/
 
             status_eval_next_unhilite();
             if (context.bypasses)
                 clear_bypasses();
             if ((u.uhave.amulet || Clairvoyant) && !In_endgame(&u.uz)
                 && !BClairvoyant && !(moves % 15) && !rn2(2))
                 do_vicinity_map((struct obj *) 0);
             if (u.utrap && u.utraptype == TT_LAVA)
                 sink_into_lava();
             /* when/if hero escapes from lava, he can't just stay there */
             else if (!u.umoved)
                 (void) pooleffects(FALSE);
 
         } /* actual time passed */
 
         /****************************************/
         /* once-per-player-input things go here */
         /****************************************/
 
         clear_splitobjs();
         find_ac();
         if (!context.mv || Blind) {
             /* redo monsters if hallu or wearing a helm of telepathy */
             if (Hallucination) { /* update screen randomly */
                 see_monsters();
                 see_objects();
                 see_traps();
                 if (u.uswallow)
                     swallowed(0);
             } else if (Unblind_telepat) {
                 see_monsters();
             } else if (Warning || Warn_of_mon)
                 see_monsters();
 
             if (vision_full_recalc)
                 vision_recalc(0); /* vision! */
         }
         if (context.botl || context.botlx) {
             bot();
             curs_on_u();
         }
 
         context.move = 1;
 
         if (multi >= 0 && occupation) {
 #if defined(MICRO) || defined(WIN32)
             abort_lev = 0;
             if (kbhit()) {
                 if ((ch = pgetchar()) == ABORT)
                     abort_lev++;
                 else
                     pushch(ch);
             }
             if (!abort_lev && (*occupation)() == 0)
 #else
             if ((*occupation)() == 0)
 #endif
                 occupation = 0;
             if (
 #if defined(MICRO) || defined(WIN32)
                 abort_lev ||
 #endif
                 monster_nearby()) {
                 stop_occupation();
                 reset_eat();
             }
 #if defined(MICRO) || defined(WIN32)
             if (!(++occtime % 7))
                 display_nhwindow(WIN_MAP, FALSE);
 #endif
             continue;
         }
 
         if (iflags.sanity_check)
             sanity_check();
 
 #ifdef CLIPPING
         /* just before rhack */
         cliparound(u.ux, u.uy);
 #endif
 
         u.umoved = FALSE;
 
         if (multi > 0) {
             lookaround();
             if (!multi) {
                 /* lookaround may clear multi */
                 context.move = 0;
                 if (flags.time)
                     context.botl = 1;
                 continue;
             }
             if (context.mv) {
                 if (multi < COLNO && !--multi)
                     context.travel = context.travel1 = context.mv =
                         context.run = 0;
                 domove();
             } else {
                 --multi;
                 rhack(save_cm);
             }
         } else if (multi == 0) {
 #ifdef MAIL
             ckmailstatus();
 #endif
             rhack((char *) 0);
         }
         if (u.utotype)       /* change dungeon level */
             deferred_goto(); /* after rhack() */
         /* !context.move here: multiple movement command stopped */
         else if (flags.time && (!context.move || !context.mv))
             context.botl = 1;
 
         if (vision_full_recalc)
             vision_recalc(0); /* vision! */
         /* when running in non-tport mode, this gets done through domove() */
         if ((!context.run || flags.runmode == RUN_TPORT)
             && (multi && (!context.travel ? !(multi % 7) : !(moves % 7L)))) {
             if (flags.time && context.run)
                 context.botl = 1;
             display_nhwindow(WIN_MAP, FALSE);
         }
     }
 }
 

regen_hp

 /* maybe recover some lost health (or lose some when an eel out of water) */
 STATIC_OVL void
 regen_hp(wtcap)
 int wtcap;
 {
     int heal = 0;
     boolean reached_full = FALSE,
             encumbrance_ok = (wtcap < MOD_ENCUMBER || !u.umoved);
 
     if (Upolyd) {
         if (u.mh < 1) { /* shouldn't happen... */
             rehumanize();
         } else if (youmonst.data->mlet == S_EEL
                    && !is_pool(u.ux, u.uy) && !Is_waterlevel(&u.uz)) {
             /* eel out of water loses hp, similar to monster eels;
                as hp gets lower, rate of further loss slows down */
             if (u.mh > 1 && !Regeneration && rn2(u.mh) > rn2(8)
                 && (!Half_physical_damage || !(moves % 2L)))
                 heal = -1;
         } else if (u.mh < u.mhmax) {
             if (Regeneration || (encumbrance_ok && !(moves % 20L)))
                 heal = 1;
         }
         if (heal) {
             context.botl = 1;
             u.mh += heal;
             reached_full = (u.mh == u.mhmax);
         }
 
     /* !Upolyd */
     } else {
         /* [when this code was in-line within moveloop(), there was
            no !Upolyd check here, so poly'd hero recovered lost u.uhp
            once u.mh reached u.mhmax; that may have been convenient
            for the player, but it didn't make sense for gameplay...] */
         if (u.uhp < u.uhpmax && (encumbrance_ok || Regeneration)) {
             if (u.ulevel > 9) {
                 if (!(moves % 3L)) {
                     int Con = (int) ACURR(A_CON);
 
                     if (Con <= 12) {
                         heal = 1;
                     } else {
                         heal = rnd(Con);
                         if (heal > u.ulevel - 9)
                             heal = u.ulevel - 9;
                     }
                 }
             } else { /* u.ulevel <= 9 */
                 if (!(moves % (long) ((MAXULEV + 12) / (u.ulevel + 2) + 1)))
                     heal = 1;
             }
             if (Regeneration && !heal)
                 heal = 1;
 
             if (heal) {
                 context.botl = 1;
                 u.uhp += heal;
                 if (u.uhp > u.uhpmax)
                     u.uhp = u.uhpmax;
                 /* stop voluntary multi-turn activity if now fully healed */
                 reached_full = (u.uhp == u.uhpmax);
             }
         }
     }
 
     if (reached_full)
         interrupt_multi("You are in full health.");
 }
 
 void
 stop_occupation()
 {
     if (occupation) {
         if (!maybe_finished_meal(TRUE))
             You("stop %s.", occtxt);
         occupation = 0;
         context.botl = 1; /* in case u.uhs changed */
         nomul(0);
         pushch(0);
     } else if (multi >= 0) {
         nomul(0);
     }
 }
 
 void
 display_gamewindows()
 {
     WIN_MESSAGE = create_nhwindow(NHW_MESSAGE);
 #ifdef STATUS_HILITES
     status_initialize(0);
 #else
     WIN_STATUS = create_nhwindow(NHW_STATUS);
 #endif
     WIN_MAP = create_nhwindow(NHW_MAP);
     WIN_INVEN = create_nhwindow(NHW_MENU);
     /* in case of early quit where WIN_INVEN could be destroyed before
        ever having been used, use it here to pacify the Qt interface */
     start_menu(WIN_INVEN), end_menu(WIN_INVEN, (char *) 0);
 
 #ifdef MAC
     /* This _is_ the right place for this - maybe we will
      * have to split display_gamewindows into create_gamewindows
      * and show_gamewindows to get rid of this ifdef...
      */
     if (!strcmp(windowprocs.name, "mac"))
         SanePositions();
 #endif
 
     /*
      * The mac port is not DEPENDENT on the order of these
      * displays, but it looks a lot better this way...
      */
 #ifndef STATUS_HILITES
     display_nhwindow(WIN_STATUS, FALSE);
 #endif
     display_nhwindow(WIN_MESSAGE, FALSE);
     clear_glyph_buffer();
     display_nhwindow(WIN_MAP, FALSE);
 }
 
 void
 newgame()
 {
     int i;
 
 #ifdef MFLOPPY
     gameDiskPrompt();
 #endif
 
     context.botlx = 1;
     context.ident = 1;
     context.stethoscope_move = -1L;
     context.warnlevel = 1;
     context.next_attrib_check = 600L; /* arbitrary first setting */
     context.tribute.enabled = TRUE;   /* turn on 3.6 tributes    */
     context.tribute.tributesz = sizeof(struct tribute_info);
 
     for (i = LOW_PM; i < NUMMONS; i++)
         mvitals[i].mvflags = mons[i].geno & G_NOCORPSE;
 
     init_objects(); /* must be before u_init() */
 
     flags.pantheon = -1; /* role_init() will reset this */
     role_init();         /* must be before init_dungeons(), u_init(),
                           * and init_artifacts() */
 
     init_dungeons();  /* must be before u_init() to avoid rndmonst()
                        * creating odd monsters for any tins and eggs
                        * in hero's initial inventory */
     init_artifacts(); /* before u_init() in case $WIZKIT specifies
                        * any artifacts */
     u_init();
 
 #ifndef NO_SIGNAL
     (void) signal(SIGINT, (SIG_RET_TYPE) done1);
 #endif
 #ifdef NEWS
     if (iflags.news)
         display_file(NEWS, FALSE);
 #endif
     load_qtlist();          /* load up the quest text info */
     /* quest_init();  --  Now part of role_init() */
 
     mklev();
     u_on_upstairs();
     if (wizard)
         obj_delivery(FALSE); /* finish wizkit */
     vision_reset();          /* set up internals for level (after mklev) */
     check_special_room(FALSE);
 
     if (MON_AT(u.ux, u.uy))
         mnexto(m_at(u.ux, u.uy));
     (void) makedog();
     docrt();
 
     if (flags.legacy) {
         flush_screen(1);
         com_pager(1);
     }
 
     urealtime.realtime = 0L;
     urealtime.start_timing = getnow();
 #ifdef INSURANCE
     save_currentstate();
 #endif
     program_state.something_worth_saving++; /* useful data now exists */
 
     /* Success! */
     welcome(TRUE);
     return;
 }
 
 /* show "welcome [back] to nethack" message at program startup */
 void
 welcome(new_game)
 boolean new_game; /* false => restoring an old game */
 {
     char buf[BUFSZ];
     boolean currentgend = Upolyd ? u.mfemale : flags.female;
 
     /* skip "welcome back" if restoring a doomed character */
     if (!new_game && Upolyd && ugenocided()) {
         /* death via self-genocide is pending */
         pline("You're back, but you still feel %s inside.", udeadinside());
         return;
     }
 
     /*
      * The "welcome back" message always describes your innate form
      * even when polymorphed or wearing a helm of opposite alignment.
      * Alignment is shown unconditionally for new games; for restores
      * it's only shown if it has changed from its original value.
      * Sex is shown for new games except when it is redundant; for
      * restores it's only shown if different from its original value.
      */
     *buf = '\0';
     if (new_game || u.ualignbase[A_ORIGINAL] != u.ualignbase[A_CURRENT])
         Sprintf(eos(buf), " %s", align_str(u.ualignbase[A_ORIGINAL]));
     if (!urole.name.f
         && (new_game
                 ? (urole.allow & ROLE_GENDMASK) == (ROLE_MALE | ROLE_FEMALE)
                 : currentgend != flags.initgend))
         Sprintf(eos(buf), " %s", genders[currentgend].adj);
 
     pline(new_game ? "%s %s, welcome to NetHack!  You are a%s %s %s."
                    : "%s %s, the%s %s %s, welcome back to NetHack!",
           Hello((struct monst *) 0), plname, buf, urace.adj,
           (currentgend && urole.name.f) ? urole.name.f : urole.name.m);
 }
 

do_positionbar

 #ifdef POSITIONBAR
 STATIC_DCL void
 do_positionbar()
 {
     static char pbar[COLNO];
     char *p;
 
     p = pbar;
     /* up stairway */
     if (upstair.sx
         && (glyph_to_cmap(level.locations[upstair.sx][upstair.sy].glyph)
                 == S_upstair
             || glyph_to_cmap(level.locations[upstair.sx][upstair.sy].glyph)
                    == S_upladder)) {
         *p++ = '<';
         *p++ = upstair.sx;
     }
     if (sstairs.sx
         && (glyph_to_cmap(level.locations[sstairs.sx][sstairs.sy].glyph)
                 == S_upstair
             || glyph_to_cmap(level.locations[sstairs.sx][sstairs.sy].glyph)
                    == S_upladder)) {
         *p++ = '<';
         *p++ = sstairs.sx;
     }
 
     /* down stairway */
     if (dnstair.sx
         && (glyph_to_cmap(level.locations[dnstair.sx][dnstair.sy].glyph)
                 == S_dnstair
             || glyph_to_cmap(level.locations[dnstair.sx][dnstair.sy].glyph)
                    == S_dnladder)) {
         *p++ = '>';
         *p++ = dnstair.sx;
     }
     if (sstairs.sx
         && (glyph_to_cmap(level.locations[sstairs.sx][sstairs.sy].glyph)
                 == S_dnstair
             || glyph_to_cmap(level.locations[sstairs.sx][sstairs.sy].glyph)
                    == S_dnladder)) {
         *p++ = '>';
         *p++ = sstairs.sx;
     }
 
     /* hero location */
     if (u.ux) {
         *p++ = '@';
         *p++ = u.ux;
     }
     /* fence post */
     *p = 0;
 
     update_positionbar(pbar);
 }
 #endif
 

interrupt_multi

 STATIC_DCL void
 interrupt_multi(msg)
 const char *msg;
 {
     if (multi > 0 && !context.travel && !context.run) {
         nomul(0);
         if (flags.verbose && msg)
             Norep("%s", msg);
     }
 }
 
 /*
  * Argument processing helpers - for xxmain() to share
  * and call.
  *
  * These should return TRUE if the argument matched,
  * whether the processing of the argument was
  * successful or not.
  *
  * Most of these do their thing, then after returning
  * to xxmain(), the code exits without starting a game.
  *
  */
 
 static struct early_opt earlyopts[] = {
     {ARG_DEBUG, "debug", 5, FALSE},
     {ARG_VERSION, "version", 4, TRUE},
 };
 

argcheck

 boolean
 argcheck(argc, argv, e_arg)
 int argc;
 char *argv[];
 enum earlyarg e_arg;
 {
     int i, idx;
     boolean match = FALSE;
     char *userea = (char *)0;
     const char *dashdash = "";
 
     for (idx = 0; idx < SIZE(earlyopts); idx++) {
         if (earlyopts[idx].e == e_arg)
             break;
     }
     if ((idx >= SIZE(earlyopts)) || (argc <= 1))
             return FALSE;
 
     for (i = 1; i < argc; ++i) {
         if (argv[i][0] != '-')
             continue;
         if (argv[i][1] == '-') {
             userea = &argv[i][2];
             dashdash = "-";
         } else {
             userea = &argv[i][1];
         }
         match = match_optname(userea, earlyopts[idx].name,
                     earlyopts[idx].minlength, earlyopts[idx].valallowed);
         if (match) break;
     }
 
     if (match) {
         switch(e_arg) {
             case ARG_DEBUG:
                         break;
             case ARG_VERSION: {
                         boolean insert_into_pastebuf = FALSE;
                         const char *extended_opt = index(userea,':');
 
                         if (!extended_opt)
                             extended_opt = index(userea, '=');
 
                         if (extended_opt) {
                             extended_opt++;
                             if (match_optname(extended_opt, "paste",
                                                    5, FALSE)) {
                                 insert_into_pastebuf = TRUE;
                             } else {
                                 raw_printf(
                      "-%sversion can only be extended with -%sversion:paste.\n",
                                             dashdash, dashdash);
                                 return TRUE;
             		    }
         		}
                         early_version_info(insert_into_pastebuf);
                         return TRUE;
                         break;
             }
             default:
                         break;
         }
     };
     return FALSE;
 }
 
 /*allmain.c*/