File: [local] / sys / ddb / db_hangman.c (download)
Revision 1.1.1.1 (vendor branch), Tue Mar 4 16:09:33 2008 UTC (16 years, 6 months ago) by nbrk
Branch: OPENBSD_4_2_BASE, MAIN
CVS Tags: jornada-partial-support-wip, HEAD Changes since 1.1: +0 -0 lines
Import of OpenBSD 4.2 release kernel tree with initial code to support
Jornada 720/728, StrongARM 1110-based handheld PC.
At this point kernel roots on NFS and boots into vfs_mountroot() and traps.
What is supported:
- glass console, Jornada framebuffer (jfb) works in 16bpp direct color mode
(needs some palette tweaks for non black/white/blue colors, i think)
- saic, SA11x0 interrupt controller (needs cleanup)
- sacom, SA11x0 UART (supported only as boot console for now)
- SA11x0 GPIO controller fully supported (but can't handle multiple interrupt
handlers on one gpio pin)
- sassp, SSP port on SA11x0 that attaches spibus
- Jornada microcontroller (jmcu) to control kbd, battery, etc throught
the SPI bus (wskbd attaches on jmcu, but not tested)
- tod functions seem work
- initial code for SA-1111 (chip companion) : this is TODO
Next important steps, i think:
- gpio and intc on sa1111
- pcmcia support for sa11x0 (and sa1111 help logic)
- REAL root on nfs when we have PCMCIA support (we may use any of supported pccard NICs)
- root on wd0! (using already supported PCMCIA-ATA)
|
/* $OpenBSD: db_hangman.c,v 1.27 2006/07/07 12:42:13 mickey Exp $ */
/*
* Copyright (c) 1996 Theo de Raadt, Michael Shalayeff
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*
*/
#include <sys/param.h>
#include <uvm/uvm_extern.h>
#include <machine/db_machdep.h>
#include <ddb/db_sym.h>
#include <ddb/db_extern.h>
#include <ddb/db_output.h>
#include <dev/cons.h>
#include <dev/rndvar.h>
#define ABC_ISCLR(c) sabc->abc[(c)-'a']==0
#define ABC_ISWRONG(c) sabc->abc[(c)-'a']=='_'
#define ABC_SETWRONG(c) (sabc->abc[(c)-'a']='_')
#define ABC_SETRIGHT(c) (sabc->abc[(c)-'a']='+')
#define ABC_CLR() memset(sabc->abc,0,sizeof sabc->abc)
struct _abc {
char abc[26+2]; /* for int32 alignment */
};
#define TOLOWER(c) ((c)|0x20)
#define ISLOWALPHA(c) ('a'<=(c) && (c)<='z')
#define ISALPHA(c) ISLOWALPHA(TOLOWER(c))
void db_hang(int, char *, struct _abc *);
u_long db_plays, db_guesses;
static const char hangpic[]=
"\n88888\r\n"
"9 7 6\r\n"
"97 5\r\n"
"9 423\r\n"
"9 2\r\n"
"9 1 0\r\n"
"9\r\n"
"9 ";
static const char substchar[]="\\/|\\/O|/-|";
static size_t
db_random(size_t mod)
{
if (cold)
return (random() % mod);
return (arc4random() % mod);
}
struct db_hang_forall_arg {
int cnt;
db_sym_t sym;
};
/*
* Horrible abuse of the forall function, but we're not in a hurry.
*/
static void db_hang_forall(db_symtab_t *, db_sym_t, char *, char *, int,
void *);
static void
db_hang_forall(db_symtab_t *stab, db_sym_t sym, char *name, char *suff, int pre,
void *varg)
{
struct db_hang_forall_arg *arg = (struct db_hang_forall_arg *)varg;
if (arg->cnt-- == 0)
arg->sym = sym;
}
static __inline char *
db_randomsym(size_t *lenp)
{
extern db_symtab_t db_symtabs[];
db_symtab_t *stab;
int nsymtabs, nsyms;
char *p, *q;
struct db_hang_forall_arg dfa;
for (nsymtabs = 0; db_symtabs[nsymtabs].name != NULL; nsymtabs++)
;
if (nsymtabs == 0)
return (NULL);
stab = &db_symtabs[db_random(nsymtabs)];
dfa.cnt = 0;
X_db_forall(stab, db_hang_forall, &dfa);
nsyms = -dfa.cnt;
if (nsyms == 0)
return (NULL);
dfa.cnt = db_random(nsyms);
X_db_forall(stab, db_hang_forall, &dfa);
q = db_qualify(dfa.sym, stab->name);
/* don't show symtab name if there are less than 3 of 'em */
if (nsymtabs < 3)
while (*q++ != ':');
/* strlen(q) && ignoring underscores and colons */
for ((*lenp) = 0, p = q; *p; p++)
if (ISALPHA(*p))
(*lenp)++;
return (q);
}
void
db_hang(int tries, char *word, struct _abc *sabc)
{
const char *p;
int i;
int c;
#ifdef ABC_BITMASK
int m;
#endif
for (p = hangpic; *p; p++)
cnputc((*p >= '0' && *p <= '9') ? ((tries <= (*p) - '0') ?
substchar[(*p) - '0'] : ' ') : *p);
for (p = word; *p; p++) {
c = TOLOWER(*p);
cnputc(ISLOWALPHA(c) && ABC_ISCLR(c) ? '-' : *p);
}
#ifdef ABC_WRONGSTR
db_printf(" (%s)\r", ABC_WRONGSTR);
#else
db_printf(" (");
#ifdef ABC_BITMASK
m = sabc->wrong;
for (i = 'a'; i <= 'z'; ++i, m >>= 1)
if (m&1)
cnputc(i);
#else
for (i = 'a'; i <= 'z'; ++i)
if (ABC_ISWRONG(i))
cnputc(i);
#endif
db_printf(")\r");
#endif
}
void
db_hangman(db_expr_t addr, int haddr, db_expr_t count, char *modif)
{
char *word;
size_t tries;
size_t len;
struct _abc sabc[1];
int skill;
if (modif[0] != 's' || (skill = modif[1] - '0') > 9U)
skill = 3;
word = NULL;
tries = 0;
for (;;) {
if (word == NULL) {
ABC_CLR();
tries = skill + 1;
word = db_randomsym(&len);
if (word == NULL)
break;
db_plays++;
}
{
int c;
db_hang(tries, word, sabc);
c = cngetc();
c = TOLOWER(c);
if (ISLOWALPHA(c) && ABC_ISCLR(c)) {
char *p;
size_t n;
/* strchr(word,c) */
for (n = 0, p = word; *p ; p++)
if (TOLOWER(*p) == c)
n++;
if (n) {
ABC_SETRIGHT(c);
len -= n;
} else {
ABC_SETWRONG(c);
tries--;
}
}
}
if (tries && len)
continue;
if (!tries && skill > 2) {
char *p = word;
for (; *p; p++)
if (ISALPHA(*p))
ABC_SETRIGHT(TOLOWER(*p));
}
if (tries)
db_guesses++;
db_hang(tries, word, sabc);
db_printf("\nScore: %lu/%lu\n", db_plays, db_guesses);
word = NULL;
if (tries)
break;
}
}