/****************************************************************************
- * Copyright (c) 1998,2008,2009 Free Software Foundation, Inc. *
+ * Copyright (c) 1998,2009,2010 Free Software Foundation, Inc. *
* *
* Permission is hereby granted, free of charge, to any person obtaining a *
* copy of this software and associated documentation files (the *
/*
Version Control
- $Id: gen.c,v 1.51 2009/12/26 15:45:31 tom Exp $
+ $Id: gen.c,v 1.54 2010/09/04 21:19:50 tom Exp $
--------------------------------------------------------------------------*/
/*
This program generates various record structures and constants from the
to produce the real source.
*/
+#ifdef HAVE_CONFIG_H
#include <ncurses_cfg.h>
+#else
+#include <ncurses.h>
+#define HAVE_USE_DEFAULT_COLORS 1
+#endif
#include <stdlib.h>
#include <stddef.h>
#include <menu.h>
#include <form.h>
+#define UChar(c) ((unsigned char)(c))
#define RES_NAME "Reserved"
static const char *model = "";
if (mode == 0) /* Generate the new name */
printf(" %-30s : constant Special_Key_Code := 8#%3o#;\n", name, value);
else
- { /* generate the old name, but only if it doesn't conflict with the old
- * name (Ada95 isn't case sensitive!)
- */
+ {
const char *s = old_name;
const char *t = name;
- while (*s && *t && (toupper(*s++) == toupper(*t++)));
+ /* generate the old name, but only if it doesn't conflict with the old
+ * name (Ada95 isn't case sensitive!)
+ */
+ while (*s && *t && (toupper(UChar(*s++)) == toupper(UChar(*t++))));
if (*s || *t)
printf(" %-16s : Special_Key_Code renames %s;\n", old_name, name);
}
int c = a - &acs_map[0];
printf(" %-24s : constant Character := ", name);
- if (isprint(c) && (c != '`'))
+ if (isprint(UChar(c)) && (c != '`'))
printf("'%c';\n", c);
else
printf("Character'Val (%d);\n", c);
}
printf(" subtype Eti_Error is C_Int range %d .. %d;\n\n",
etimin, etimax);
- printf(buf);
+ printf("%s", buf);
}
break;
default: