AdaCurses-20211021/ 0000755 0001751 0000144 00000000000 14134402303 012327 5 ustar tom users AdaCurses-20211021/configure.in 0000644 0001751 0000144 00000046003 14070143474 014655 0 ustar tom users dnl***************************************************************************
dnl Copyright 2018-2020,2021 Thomas E. Dickey *
dnl Copyright 2010-2016,2018 Free Software Foundation, Inc. *
dnl *
dnl Permission is hereby granted, free of charge, to any person obtaining a *
dnl copy of this software and associated documentation files (the *
dnl "Software"), to deal in the Software without restriction, including *
dnl without limitation the rights to use, copy, modify, merge, publish, *
dnl distribute, distribute with modifications, sublicense, and/or sell *
dnl copies of the Software, and to permit persons to whom the Software is *
dnl furnished to do so, subject to the following conditions: *
dnl *
dnl The above copyright notice and this permission notice shall be included *
dnl in all copies or substantial portions of the Software. *
dnl *
dnl THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS *
dnl OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF *
dnl MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. *
dnl IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, *
dnl DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR *
dnl OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR *
dnl THE USE OR OTHER DEALINGS IN THE SOFTWARE. *
dnl *
dnl Except as contained in this notice, the name(s) of the above copyright *
dnl holders shall not be used in advertising or otherwise to promote the *
dnl sale, use or other dealings in this Software without prior written *
dnl authorization. *
dnl***************************************************************************
dnl
dnl Author: Thomas E. Dickey
dnl
dnl $Id: configure.in,v 1.83 2021/07/03 20:23:24 tom Exp $
dnl Process this file with autoconf to produce a configure script.
dnl
dnl For additional information, see
dnl https://invisible-island.net/autoconf/
dnl https://invisible-island.net/autoconf/my-autoconf.html
dnl
dnl ---------------------------------------------------------------------------
AC_PREREQ(2.52.20210509)
AC_REVISION($Revision: 1.83 $)
AC_INIT(gen/gen.c)
AC_CONFIG_HEADER(include/ncurses_cfg.h:include/ncurses_cfg.hin)
AC_DEFUN([AC_PATH_XTRA],[])dnl ignore dependencies on this
CF_TOP_BUILDDIR
CF_HELP_MESSAGE(General Options:)
CF_WITH_SYSTYPE
### Save the given $CFLAGS to allow user-override.
cf_user_CFLAGS="$CFLAGS"
### Default install-location
CF_CFG_DEFAULTS
### Checks for programs.
CF_PROG_CC(gnatgcc gcc cc)
AC_PROG_CPP
AC_PROG_GCC_TRADITIONAL
CF_PROG_CC_C_O(CC,[$CFLAGS $CPPFLAGS])
AC_ARG_PROGRAM
CF_PROG_AWK
CF_PROG_EGREP
AC_PROG_INSTALL
CF_PROG_LN_S
CF_PROG_INSTALL
CF_INSTALL_OPTS
AC_SYS_LONG_FILE_NAMES
# if we find pkg-config, check if we should install the ".pc" files.
CF_PKG_CONFIG
CF_WITH_PKG_CONFIG_LIBDIR
AC_MSG_CHECKING(if you want to build test-programs)
AC_ARG_WITH(tests,
[ --without-tests suppress build with test-programs],
[cf_with_tests=$withval],
[cf_with_tests=yes])
AC_MSG_RESULT($cf_with_tests)
AC_MSG_CHECKING(if we should assume mixed-case filenames)
AC_ARG_ENABLE(mixed-case,
[ --enable-mixed-case tic should assume mixed-case filenames],
[enable_mixedcase=$enableval],
[enable_mixedcase=auto])
AC_MSG_RESULT($enable_mixedcase)
if test "$enable_mixedcase" = "auto" ; then
CF_MIXEDCASE_FILENAMES
else
cf_cv_mixedcase=$enable_mixedcase
if test "$enable_mixedcase" = "yes" ; then
AC_DEFINE(MIXEDCASE_FILENAMES)
fi
fi
# do this after mixed-case option (tags/TAGS is not as important as tic).
AC_PROG_MAKE_SET
CF_MAKE_PHONY
CF_MAKE_TAGS
CF_MAKEFLAGS
dnl These are standard among *NIX systems, but not when cross-compiling
AC_CHECK_TOOL(RANLIB, ranlib, ':')
AC_CHECK_TOOL(LD, ld, ld)
AC_CHECK_TOOL(AR, ar, ar)
CF_AR_FLAGS
CF_PATHSEP
dnl Special option for use by system-builders: the install-prefix is used to
dnl adjust the location into which the actual install is done, so that an
dnl archive can be built without modifying the host system's configuration.
AC_MSG_CHECKING(if you have specified an install-prefix)
AC_ARG_WITH(install-prefix,
[ --with-install-prefix prefixes actual install-location ($DESTDIR)],
[case "$withval" in
(yes|no)
;;
(*) DESTDIR="$withval"
;;
esac])
AC_MSG_RESULT($DESTDIR)
AC_SUBST(DESTDIR)
###############################################################################
CF_HELP_MESSAGE(Build-Tools Needed to Compile Temporary Applications for Cross-compiling:)
# If we're cross-compiling, allow the user to override the tools and their
# options. The configure script is oriented toward identifying the host
# compiler, etc., but we need a build compiler to generate parts of the source.
CF_BUILD_CC
###############################################################################
CF_HELP_MESSAGE(Options to Specify the Libraries Built/Used:)
### Options to allow the user to specify the set of libraries which are used.
### Use "--without-normal --with-shared" to allow the default model to be
### shared, for example.
cf_list_models=""
AC_MSG_CHECKING(if you want to build shared C-objects)
AC_ARG_WITH(shared,
[ --with-shared generate shared C-objects (needed for --with-ada-sharedlib)],
[with_shared=$withval],
[with_shared=no])
AC_MSG_RESULT($with_shared)
test "$with_shared" = "yes" && cf_list_models="$cf_list_models shared"
AC_MSG_CHECKING(for specified models)
test -z "$cf_list_models" && cf_list_models=normal
AC_MSG_RESULT($cf_list_models)
### Use the first model as the default, and save its suffix for use in building
### up test-applications.
AC_MSG_CHECKING(for default model)
DFT_LWR_MODEL=`echo "$cf_list_models" | $AWK '{print $1}'`
AC_MSG_RESULT($DFT_LWR_MODEL)
CF_UPPER(DFT_UPR_MODEL,$DFT_LWR_MODEL)dnl
AC_SUBST(DFT_LWR_MODEL)dnl the default model ("normal")
AC_SUBST(DFT_UPR_MODEL)dnl the default model ("NORMAL")
CF_NCURSES_ADDON
CF_WITH_LIB_PREFIX(cf_prefix)
LIB_SUFFIX=
AC_SUBST(LIB_SUFFIX)
###############################################################################
dnl Not all ports of gcc support the -g option
if test X"$CC_G_OPT" = X"" ; then
CC_G_OPT='-g'
test -n "$GCC" && test "${ac_cv_prog_cc_g}" != yes && CC_G_OPT=''
fi
AC_SUBST(CC_G_OPT)
AC_MSG_CHECKING(for default loader flags)
case $DFT_LWR_MODEL in
(normal) LD_MODEL='' ;;
(debug) LD_MODEL=$CC_G_OPT ;;
(profile) LD_MODEL='-pg';;
(shared) LD_MODEL='' ;;
esac
AC_SUBST(LD_MODEL)dnl the type of link (e.g., -g or -pg)
AC_MSG_RESULT($LD_MODEL)
CF_SHARED_OPTS
# The test/sample programs in the original tree link using rpath option.
# Make it optional for packagers.
if test -n "$LOCAL_LDFLAGS"
then
AC_MSG_CHECKING(if you want to link sample programs with rpath option)
AC_ARG_ENABLE(rpath-link,
[ --enable-rpath-link link sample programs with rpath option],
[with_rpath_link=$enableval],
[with_rpath_link=yes])
AC_MSG_RESULT($with_rpath_link)
if test "$with_rpath_link" = no
then
LOCAL_LDFLAGS=
LOCAL_LDFLAGS2=
fi
fi
###############################################################################
CF_HELP_MESSAGE(Fine-Tuning Your Configuration:)
### use option --enable-broken-linker to force on use of broken-linker support
CF_ENABLE_BROKEN_LINKER
# Check to define _XOPEN_SOURCE "automatically"
CF_XOPEN_SOURCE(600)
CF_LARGEFILE
### Enable compiling-in rcs id's
AC_MSG_CHECKING(if RCS identifiers should be compiled-in)
AC_ARG_WITH(rcs-ids,
[ --with-rcs-ids compile-in RCS identifiers],
[with_rcs_ids=$withval],
[with_rcs_ids=no])
AC_MSG_RESULT($with_rcs_ids)
test "$with_rcs_ids" = yes && AC_DEFINE(USE_RCS_IDS,1,[Define to 1 if RCS identifiers should be compiled-in)])
###############################################################################
CF_HELP_MESSAGE(Extensions:)
### Note that some functions (such as const) are normally disabled anyway.
AC_MSG_CHECKING(if you want to build with function extensions)
AC_ARG_ENABLE(ext-funcs,
[ --disable-ext-funcs disable function-extensions],
[with_ext_funcs=$enableval],
[with_ext_funcs=yes])
AC_MSG_RESULT($with_ext_funcs)
if test "$with_ext_funcs" = yes ; then
NCURSES_EXT_FUNCS=1
AC_DEFINE(HAVE_USE_DEFAULT_COLORS,1,[Define to 1 if we have use_default_colors function])
AC_DEFINE(NCURSES_EXT_FUNCS,1,[Define to 1 if we have ncurses extended functions])
else
NCURSES_EXT_FUNCS=0
fi
AC_SUBST(NCURSES_EXT_FUNCS)
### use option --enable-const to turn on use of const beyond that in XSI.
AC_MSG_CHECKING(for extended use of const keyword)
AC_ARG_ENABLE(const,
[ --enable-const compile with extra/non-standard const],
[with_ext_const=$enableval],
[with_ext_const=no])
AC_MSG_RESULT($with_ext_const)
NCURSES_CONST='/*nothing*/'
if test "$with_ext_const" = yes ; then
NCURSES_CONST=const
fi
AC_SUBST(NCURSES_CONST)
###############################################################################
# These options are relatively safe to experiment with.
CF_HELP_MESSAGE(Development Code:)
AC_MSG_CHECKING(if you want all development code)
AC_ARG_WITH(develop,
[ --without-develop disable development options],
[with_develop=$withval],
[with_develop=no])
AC_MSG_RESULT($with_develop)
###############################################################################
# These are just experimental, probably should not be in a package:
CF_HELP_MESSAGE(Experimental Code:)
# This is still experimental (20080329), but should ultimately be moved to
# the script-block --with-normal, etc.
CF_WITH_PTHREAD
AC_MSG_CHECKING(if you want to use weak-symbols for pthreads)
AC_ARG_ENABLE(weak-symbols,
[ --enable-weak-symbols enable weak-symbols for pthreads],
[use_weak_symbols=$withval],
[use_weak_symbols=no])
AC_MSG_RESULT($use_weak_symbols)
if test "$use_weak_symbols" = yes ; then
CF_WEAK_SYMBOLS
else
cf_cv_weak_symbols=no
fi
if test $cf_cv_weak_symbols = yes ; then
AC_DEFINE(USE_WEAK_SYMBOLS,1,[Define to 1 to enable weak-symbols for pthreads])
fi
PTHREAD=
if test "$with_pthread" = "yes" ; then
AC_DEFINE(USE_PTHREADS,1,[Define to 1 to use the pthreads library])
enable_reentrant=yes
if test $cf_cv_weak_symbols = yes ; then
PTHREAD=-lpthread
fi
fi
AC_SUBST(PTHREAD)
# OpenSUSE is installing ncurses6, using reentrant option.
AC_CHECK_FUNC(_nc_TABSIZE,[assume_reentrant=yes], [assume_reentrant=no])
# Reentrant code has to be opaque; there's little advantage to making ncurses
# opaque outside of that, so there is no --enable-opaque option. We can use
# this option without --with-pthreads, but this will be always set for
# pthreads.
AC_MSG_CHECKING(if you want experimental reentrant code)
AC_ARG_ENABLE(reentrant,
[ --enable-reentrant compile with experimental reentrant code],
[with_reentrant=$enableval],
[with_reentrant=$assume_reentrant])
AC_MSG_RESULT($with_reentrant)
if test "$with_reentrant" = yes ; then
cf_cv_enable_reentrant=1
if test $cf_cv_weak_symbols = yes ; then
CF_REMOVE_LIB(LIBS,$LIBS,pthread)
elif test "$assume_reentrant" = no ; then
LIB_SUFFIX="t${LIB_SUFFIX}"
fi
AC_DEFINE(USE_REENTRANT,1,[Define to 1 to compile with experimental reentrant code])
else
cf_cv_enable_reentrant=0
fi
AC_SUBST(cf_cv_enable_reentrant)
### Allow using a different wrap-prefix
if test "$cf_cv_enable_reentrant" != 0 || test "$BROKEN_LINKER" = 1 ; then
AC_MSG_CHECKING(for prefix used to wrap public variables)
AC_ARG_WITH(wrap-prefix,
[ --with-wrap-prefix=XXX override prefix used for public variables],
[NCURSES_WRAP_PREFIX=$withval],
[NCURSES_WRAP_PREFIX=_nc_])
AC_MSG_RESULT($NCURSES_WRAP_PREFIX)
else
NCURSES_WRAP_PREFIX=_nc_
fi
AC_SUBST(NCURSES_WRAP_PREFIX)
AC_DEFINE_UNQUOTED(NCURSES_WRAP_PREFIX,"$NCURSES_WRAP_PREFIX",[Define to override _nc_ ncurses internal prefix])
###############################################################################
CF_HELP_MESSAGE(Testing/development Options:)
### use option --disable-echo to suppress full display compiling commands
CF_DISABLE_ECHO
CF_ENABLE_WARNINGS(Wno-unknown-pragmas Wswitch-enum,yes)
if test "x$enable_warnings" = "xyes"; then
CF_ADD_ADAFLAGS(-gnatg)
fi
### use option --enable-assertions to turn on generation of assertion code
AC_MSG_CHECKING(if you want to enable runtime assertions)
AC_ARG_ENABLE(assertions,
[ --enable-assertions test: turn on generation of assertion code],
[with_assertions=$enableval],
[with_assertions=no])
AC_MSG_RESULT($with_assertions)
if test -n "$GCC"
then
if test "$with_assertions" = no
then
CPPFLAGS="$CPPFLAGS -DNDEBUG"
else
CF_ADD_ADAFLAGS(-gnata)
fi
fi
### use option --disable-leaks to suppress "permanent" leaks, for testing
AC_DEFINE(HAVE_NC_ALLOC_H,1,[Define to 1 if we have nc_alloc.h header])
### use option --enable-expanded to generate certain macros as functions
AC_ARG_ENABLE(expanded,
[ --enable-expanded test: generate functions for certain macros],
[test "$enableval" = yes && AC_DEFINE(NCURSES_EXPANDED,1,[Define to 1 if ncurses macros should be expanded as functions])])
### use option --disable-macros to suppress macros in favor of functions
AC_ARG_ENABLE(macros,
[ --disable-macros test: use functions rather than macros],
[test "$enableval" = no && AC_DEFINE(NCURSES_NOMACROS,1,[Define to 1 if ncurses macros should be expanded as functions])])
# Normally we only add trace() to the debug-library. Allow this to be
# extended to all models of the ncurses library:
cf_all_traces=no
case "$CFLAGS $CPPFLAGS" in
(*-DTRACE*)
cf_all_traces=yes
;;
esac
AC_MSG_CHECKING(whether to add trace feature to all models)
AC_ARG_WITH(trace,
[ --with-trace test: add trace() function to all models of ncurses],
[cf_with_trace=$withval],
[cf_with_trace=$cf_all_traces])
AC_MSG_RESULT($cf_with_trace)
if test "$cf_with_trace" = yes ; then
ADA_TRACE=TRUE
CF_ADD_CFLAGS(-DTRACE)
else
ADA_TRACE=FALSE
fi
AC_SUBST(ADA_TRACE)
CF_DISABLE_GNAT_PROJECTS
### Checks for libraries.
case $cf_cv_system_name in
(*mingw32*)
;;
(*)
AC_CHECK_FUNC(gettimeofday,
AC_DEFINE(HAVE_GETTIMEOFDAY),[
AC_CHECK_LIB(bsd, gettimeofday,
AC_DEFINE(HAVE_GETTIMEOFDAY,1,[Define to 1 if we have gettimeofday])
LIBS="$LIBS -lbsd")])dnl CLIX: bzero, select, gettimeofday
;;
esac
### Checks for header files.
AC_CHECK_SIZEOF([signed char])
AC_STDC_HEADERS
AC_HEADER_DIRENT
AC_HEADER_TIME
### checks for compiler characteristics
AC_LANG_C
AC_C_CONST
### Checks for external-data
CF_LINK_DATAONLY
### Checks for library functions.
CF_MKSTEMP
dnl We'll do our own -g libraries, unless the user's overridden via $CFLAGS
if test -z "$cf_user_CFLAGS" && test "$with_no_leaks" = no ; then
CF_STRIP_G_OPT(CFLAGS)
CF_STRIP_G_OPT(CXXFLAGS)
fi
CF_HELP_MESSAGE(Ada95 Binding Options:)
cf_with_ada=yes
dnl Check for availability of GNU Ada Translator (GNAT).
dnl At the moment we support no other Ada95 compiler.
if test "$cf_with_ada" != "no" ; then
CF_PROG_GNAT
if test "$cf_cv_prog_gnat_correct" = yes; then
CF_FIXUP_ADAFLAGS
CF_GNATPREP_OPT_T
CF_GNAT_GENERICS
CF_GNAT_SIGINT
CF_GNAT_PROJECTS
CF_WITH_ADA_COMPILER
cf_ada_package=terminal_interface
AC_SUBST(cf_ada_package)
CF_WITH_ADA_INCLUDE
CF_WITH_ADA_OBJECTS
CF_WITH_ADA_SHAREDLIB
# allow the Ada binding to be renamed
CF_WITH_ADA_LIBNAME(AdaCurses)
else
AC_MSG_ERROR(No usable Ada compiler found)
fi
else
AC_MSG_ERROR(The Ada compiler is needed for this package)
fi
################################################################################
# not needed
TINFO_LDFLAGS2=
AC_SUBST(TINFO_LDFLAGS2)
TINFO_LIBS=
AC_SUBST(TINFO_LIBS)
### Construct the list of include-directories to be generated
CF_INCLUDE_DIRS
CF_ADA_INCLUDE_DIRS
### Build up pieces for makefile rules
AC_MSG_CHECKING(default library suffix)
CF_LIB_TYPE($DFT_LWR_MODEL,DFT_ARG_SUFFIX)dnl
AC_SUBST(DFT_ARG_SUFFIX)dnl the string to append to "-lncurses" ("")
AC_MSG_RESULT($DFT_ARG_SUFFIX)
AC_MSG_CHECKING(default library-dependency suffix)
CF_LIB_SUFFIX($DFT_LWR_MODEL,DFT_LIB_SUFFIX,DFT_DEP_SUFFIX)dnl
AC_SUBST(DFT_DEP_SUFFIX)dnl the corresponding library-suffix (".a")
AC_MSG_RESULT($DFT_DEP_SUFFIX)
AC_MSG_CHECKING(default object directory)
CF_OBJ_SUBDIR($DFT_LWR_MODEL,DFT_OBJ_SUBDIR)dnl
AC_SUBST(DFT_OBJ_SUBDIR)dnl the default object-directory ("obj")
AC_MSG_RESULT($DFT_OBJ_SUBDIR)
### Set up low-level terminfo dependencies for makefiles.
if test "$DFT_LWR_MODEL" = shared ; then
case $cf_cv_system_name in
(cygwin*)
# "lib" files have ".dll.a" suffix, "cyg" files have ".dll"
;;
(msys*)
# "lib" files have ".dll.a" suffix, "msys-" files have ".dll"
;;
esac
fi
USE_ARG_SUFFIX=${DFT_ARG_SUFFIX}
AC_SUBST(USE_ARG_SUFFIX)
USE_LIB_SUFFIX=${DFT_ARG_SUFFIX}
AC_SUBST(USE_LIB_SUFFIX)
USE_CFG_SUFFIX=${DFT_ARG_SUFFIX}
AC_SUBST(USE_CFG_SUFFIX)
### Construct the list of subdirectories for which we'll customize makefiles
### with the appropriate compile-rules.
SUB_MAKEFILES="gen/adacurses${USE_ARG_SUFFIX}-config:gen/adacurses-config.in"
AC_DEFINE_UNQUOTED(NCURSES_PATHSEP,'$PATH_SEPARATOR',[Define to override ':' as the library path-separator])
################################################################################
TEST_ARG2=
AC_SUBST(TEST_ARG2)
TEST_LIBS2=
AC_SUBST(TEST_LIBS2)
dnl for separate build, this is good enough for "sh $(top_srcdir)/misc/shlib"
NCURSES_SHLIB2="sh -c"
AC_SUBST(NCURSES_SHLIB2)
ADA_SUBDIRS="include gen src doc"
if test "x$cf_with_tests" != "xno" ; then
ADA_SUBDIRS="$ADA_SUBDIRS samples"
fi
for cf_dir in $ADA_SUBDIRS
do
SUB_MAKEFILES="$SUB_MAKEFILES $cf_dir/Makefile"
done
AC_SUBST(ADA_SUBDIRS)
NCURSES_TREE="#"
AC_SUBST(NCURSES_TREE)
EXTERNAL_TREE=
AC_SUBST(EXTERNAL_TREE)
# match layout used by make-tar.sh
ADAHTML_DIR=../doc/ada
AC_SUBST(ADAHTML_DIR)
if test "x$cross_compiling" = xyes ; then
ADAGEN_LDFLAGS='$(CROSS_LDFLAGS)'
else
ADAGEN_LDFLAGS='$(NATIVE_LDFLAGS)'
fi
AC_SUBST(ADAGEN_LDFLAGS)
AC_OUTPUT( \
$SUB_MAKEFILES \
src/library.gpr:src/library.gpr.in \
doc/adacurses${DFT_ARG_SUFFIX}-config.1:doc/MKada_config.in \
Makefile,[
if test -z "$USE_OLD_MAKERULES" ; then
$AWK -f $srcdir/mk-1st.awk <$srcdir/src/modules >>src/Makefile
fi
],[
### Special initialization commands, used to pass information from the
### configuration-run into config.status
AWK="$AWK"
DFT_ARG_SUFFIX="$DFT_ARG_SUFFIX"
DFT_LWR_MODEL="$DFT_LWR_MODEL"
LIB_NAME="$LIB_NAME"
LIB_PREFIX="$LIB_PREFIX"
LIB_SUFFIX="$LIB_SUFFIX"
LN_S="$LN_S"
NCURSES_MAJOR="$NCURSES_MAJOR"
NCURSES_MINOR="$NCURSES_MINOR"
NCURSES_PATCH="$NCURSES_PATCH"
USE_OLD_MAKERULES="$USE_OLD_MAKERULES"
cf_cv_VERSION_GNATMAKE=$cf_cv_VERSION_GNATMAKE
cf_cv_VERSION_GPRBUILD=$cf_cv_VERSION_GPRBUILD
cf_cv_abi_version="$cf_cv_abi_version"
cf_cv_rel_version="$cf_cv_rel_version"
cf_cv_rm_so_locs="$cf_cv_rm_so_locs"
cf_cv_shared_soname='$cf_cv_shared_soname'
cf_cv_shlib_version="$cf_cv_shlib_version"
cf_cv_shlib_version_infix="$cf_cv_shlib_version_infix"
cf_cv_system_name="$cf_cv_system_name"
host="$host"
target="$target"
],cat)dnl
${MAKE:-make} preinstall
AdaCurses-20211021/config.guess 0000755 0001751 0000144 00000140304 14056322625 014664 0 ustar tom users #! /bin/sh
# Attempt to guess a canonical system name.
# Copyright 1992-2021 Free Software Foundation, Inc.
# shellcheck disable=SC2006,SC2268 # see below for rationale
timestamp='2021-06-03'
# This file is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, see .
#
# As a special exception to the GNU General Public License, if you
# distribute this file as part of a program that contains a
# configuration script generated by Autoconf, you may include it under
# the same distribution terms that you use for the rest of that
# program. This Exception is an additional permission under section 7
# of the GNU General Public License, version 3 ("GPLv3").
#
# Originally written by Per Bothner; maintained since 2000 by Ben Elliston.
#
# You can get the latest version of this script from:
# https://git.savannah.gnu.org/cgit/config.git/plain/config.guess
#
# Please send patches to .
# The "shellcheck disable" line above the timestamp inhibits complaints
# about features and limitations of the classic Bourne shell that were
# superseded or lifted in POSIX. However, this script identifies a wide
# variety of pre-POSIX systems that do not have POSIX shells at all, and
# even some reasonably current systems (Solaris 10 as case-in-point) still
# have a pre-POSIX /bin/sh.
me=`echo "$0" | sed -e 's,.*/,,'`
usage="\
Usage: $0 [OPTION]
Output the configuration name of the system \`$me' is run on.
Options:
-h, --help print this help, then exit
-t, --time-stamp print date of last modification, then exit
-v, --version print version number, then exit
Report bugs and patches to ."
version="\
GNU config.guess ($timestamp)
Originally written by Per Bothner.
Copyright 1992-2021 Free Software Foundation, Inc.
This is free software; see the source for copying conditions. There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE."
help="
Try \`$me --help' for more information."
# Parse command line
while test $# -gt 0 ; do
case $1 in
--time-stamp | --time* | -t )
echo "$timestamp" ; exit ;;
--version | -v )
echo "$version" ; exit ;;
--help | --h* | -h )
echo "$usage"; exit ;;
-- ) # Stop option processing
shift; break ;;
- ) # Use stdin as input.
break ;;
-* )
echo "$me: invalid option $1$help" >&2
exit 1 ;;
* )
break ;;
esac
done
if test $# != 0; then
echo "$me: too many arguments$help" >&2
exit 1
fi
# Just in case it came from the environment.
GUESS=
# CC_FOR_BUILD -- compiler used by this script. Note that the use of a
# compiler to aid in system detection is discouraged as it requires
# temporary files to be created and, as you can see below, it is a
# headache to deal with in a portable fashion.
# Historically, `CC_FOR_BUILD' used to be named `HOST_CC'. We still
# use `HOST_CC' if defined, but it is deprecated.
# Portable tmp directory creation inspired by the Autoconf team.
tmp=
# shellcheck disable=SC2172
trap 'test -z "$tmp" || rm -fr "$tmp"' 0 1 2 13 15
set_cc_for_build() {
# prevent multiple calls if $tmp is already set
test "$tmp" && return 0
: "${TMPDIR=/tmp}"
# shellcheck disable=SC2039,SC3028
{ tmp=`(umask 077 && mktemp -d "$TMPDIR/cgXXXXXX") 2>/dev/null` && test -n "$tmp" && test -d "$tmp" ; } ||
{ test -n "$RANDOM" && tmp=$TMPDIR/cg$$-$RANDOM && (umask 077 && mkdir "$tmp" 2>/dev/null) ; } ||
{ tmp=$TMPDIR/cg-$$ && (umask 077 && mkdir "$tmp" 2>/dev/null) && echo "Warning: creating insecure temp directory" >&2 ; } ||
{ echo "$me: cannot create a temporary directory in $TMPDIR" >&2 ; exit 1 ; }
dummy=$tmp/dummy
case ${CC_FOR_BUILD-},${HOST_CC-},${CC-} in
,,) echo "int x;" > "$dummy.c"
for driver in cc gcc c89 c99 ; do
if ($driver -c -o "$dummy.o" "$dummy.c") >/dev/null 2>&1 ; then
CC_FOR_BUILD=$driver
break
fi
done
if test x"$CC_FOR_BUILD" = x ; then
CC_FOR_BUILD=no_compiler_found
fi
;;
,,*) CC_FOR_BUILD=$CC ;;
,*,*) CC_FOR_BUILD=$HOST_CC ;;
esac
}
# This is needed to find uname on a Pyramid OSx when run in the BSD universe.
# (ghazi@noc.rutgers.edu 1994-08-24)
if test -f /.attbin/uname ; then
PATH=$PATH:/.attbin ; export PATH
fi
UNAME_MACHINE=`(uname -m) 2>/dev/null` || UNAME_MACHINE=unknown
UNAME_RELEASE=`(uname -r) 2>/dev/null` || UNAME_RELEASE=unknown
UNAME_SYSTEM=`(uname -s) 2>/dev/null` || UNAME_SYSTEM=unknown
UNAME_VERSION=`(uname -v) 2>/dev/null` || UNAME_VERSION=unknown
case $UNAME_SYSTEM in
Linux|GNU|GNU/*)
LIBC=unknown
set_cc_for_build
cat <<-EOF > "$dummy.c"
#include
#if defined(__UCLIBC__)
LIBC=uclibc
#elif defined(__dietlibc__)
LIBC=dietlibc
#elif defined(__GLIBC__)
LIBC=gnu
#else
#include
/* First heuristic to detect musl libc. */
#ifdef __DEFINED_va_list
LIBC=musl
#endif
#endif
EOF
cc_set_libc=`$CC_FOR_BUILD -E "$dummy.c" 2>/dev/null | grep '^LIBC' | sed 's, ,,g'`
eval "$cc_set_libc"
# Second heuristic to detect musl libc.
if [ "$LIBC" = unknown ] &&
command -v ldd >/dev/null &&
ldd --version 2>&1 | grep -q ^musl; then
LIBC=musl
fi
# If the system lacks a compiler, then just pick glibc.
# We could probably try harder.
if [ "$LIBC" = unknown ]; then
LIBC=gnu
fi
;;
esac
# Note: order is significant - the case branches are not exclusive.
case $UNAME_MACHINE:$UNAME_SYSTEM:$UNAME_RELEASE:$UNAME_VERSION in
*:NetBSD:*:*)
# NetBSD (nbsd) targets should (where applicable) match one or
# more of the tuples: *-*-netbsdelf*, *-*-netbsdaout*,
# *-*-netbsdecoff* and *-*-netbsd*. For targets that recently
# switched to ELF, *-*-netbsd* would select the old
# object file format. This provides both forward
# compatibility and a consistent mechanism for selecting the
# object file format.
#
# Note: NetBSD doesn't particularly care about the vendor
# portion of the name. We always set it to "unknown".
UNAME_MACHINE_ARCH=`(uname -p 2>/dev/null || \
/sbin/sysctl -n hw.machine_arch 2>/dev/null || \
/usr/sbin/sysctl -n hw.machine_arch 2>/dev/null || \
echo unknown)`
case $UNAME_MACHINE_ARCH in
aarch64eb) machine=aarch64_be-unknown ;;
armeb) machine=armeb-unknown ;;
arm*) machine=arm-unknown ;;
sh3el) machine=shl-unknown ;;
sh3eb) machine=sh-unknown ;;
sh5el) machine=sh5le-unknown ;;
earmv*)
arch=`echo "$UNAME_MACHINE_ARCH" | sed -e 's,^e\(armv[0-9]\).*$,\1,'`
endian=`echo "$UNAME_MACHINE_ARCH" | sed -ne 's,^.*\(eb\)$,\1,p'`
machine=${arch}${endian}-unknown
;;
*) machine=$UNAME_MACHINE_ARCH-unknown ;;
esac
# The Operating System including object format, if it has switched
# to ELF recently (or will in the future) and ABI.
case $UNAME_MACHINE_ARCH in
earm*)
os=netbsdelf
;;
arm*|i386|m68k|ns32k|sh3*|sparc|vax)
set_cc_for_build
if echo __ELF__ | $CC_FOR_BUILD -E - 2>/dev/null \
| grep -q __ELF__
then
# Once all utilities can be ECOFF (netbsdecoff) or a.out (netbsdaout).
# Return netbsd for either. FIX?
os=netbsd
else
os=netbsdelf
fi
;;
*)
os=netbsd
;;
esac
# Determine ABI tags.
case $UNAME_MACHINE_ARCH in
earm*)
expr='s/^earmv[0-9]/-eabi/;s/eb$//'
abi=`echo "$UNAME_MACHINE_ARCH" | sed -e "$expr"`
;;
esac
# The OS release
# Debian GNU/NetBSD machines have a different userland, and
# thus, need a distinct triplet. However, they do not need
# kernel version information, so it can be replaced with a
# suitable tag, in the style of linux-gnu.
case $UNAME_VERSION in
Debian*)
release='-gnu'
;;
*)
release=`echo "$UNAME_RELEASE" | sed -e 's/[-_].*//' | cut -d. -f1,2`
;;
esac
# Since CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM:
# contains redundant information, the shorter form:
# CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM is used.
GUESS=$machine-${os}${release}${abi-}
;;
*:Bitrig:*:*)
UNAME_MACHINE_ARCH=`arch | sed 's/Bitrig.//'`
GUESS=$UNAME_MACHINE_ARCH-unknown-bitrig$UNAME_RELEASE
;;
*:OpenBSD:*:*)
UNAME_MACHINE_ARCH=`arch | sed 's/OpenBSD.//'`
GUESS=$UNAME_MACHINE_ARCH-unknown-openbsd$UNAME_RELEASE
;;
*:SecBSD:*:*)
UNAME_MACHINE_ARCH=`arch | sed 's/SecBSD.//'`
GUESS=$UNAME_MACHINE_ARCH-unknown-secbsd$UNAME_RELEASE
;;
*:LibertyBSD:*:*)
UNAME_MACHINE_ARCH=`arch | sed 's/^.*BSD\.//'`
GUESS=$UNAME_MACHINE_ARCH-unknown-libertybsd$UNAME_RELEASE
;;
*:MidnightBSD:*:*)
GUESS=$UNAME_MACHINE-unknown-midnightbsd$UNAME_RELEASE
;;
*:ekkoBSD:*:*)
GUESS=$UNAME_MACHINE-unknown-ekkobsd$UNAME_RELEASE
;;
*:SolidBSD:*:*)
GUESS=$UNAME_MACHINE-unknown-solidbsd$UNAME_RELEASE
;;
*:OS108:*:*)
GUESS=$UNAME_MACHINE-unknown-os108_$UNAME_RELEASE
;;
macppc:MirBSD:*:*)
GUESS=powerpc-unknown-mirbsd$UNAME_RELEASE
;;
*:MirBSD:*:*)
GUESS=$UNAME_MACHINE-unknown-mirbsd$UNAME_RELEASE
;;
*:Sortix:*:*)
GUESS=$UNAME_MACHINE-unknown-sortix
;;
*:Twizzler:*:*)
GUESS=$UNAME_MACHINE-unknown-twizzler
;;
*:Redox:*:*)
GUESS=$UNAME_MACHINE-unknown-redox
;;
mips:OSF1:*.*)
GUESS=mips-dec-osf1
;;
alpha:OSF1:*:*)
# Reset EXIT trap before exiting to avoid spurious non-zero exit code.
trap '' 0
case $UNAME_RELEASE in
*4.0)
UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $3}'`
;;
*5.*)
UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $4}'`
;;
esac
# According to Compaq, /usr/sbin/psrinfo has been available on
# OSF/1 and Tru64 systems produced since 1995. I hope that
# covers most systems running today. This code pipes the CPU
# types through head -n 1, so we only detect the type of CPU 0.
ALPHA_CPU_TYPE=`/usr/sbin/psrinfo -v | sed -n -e 's/^ The alpha \(.*\) processor.*$/\1/p' | head -n 1`
case $ALPHA_CPU_TYPE in
"EV4 (21064)")
UNAME_MACHINE=alpha ;;
"EV4.5 (21064)")
UNAME_MACHINE=alpha ;;
"LCA4 (21066/21068)")
UNAME_MACHINE=alpha ;;
"EV5 (21164)")
UNAME_MACHINE=alphaev5 ;;
"EV5.6 (21164A)")
UNAME_MACHINE=alphaev56 ;;
"EV5.6 (21164PC)")
UNAME_MACHINE=alphapca56 ;;
"EV5.7 (21164PC)")
UNAME_MACHINE=alphapca57 ;;
"EV6 (21264)")
UNAME_MACHINE=alphaev6 ;;
"EV6.7 (21264A)")
UNAME_MACHINE=alphaev67 ;;
"EV6.8CB (21264C)")
UNAME_MACHINE=alphaev68 ;;
"EV6.8AL (21264B)")
UNAME_MACHINE=alphaev68 ;;
"EV6.8CX (21264D)")
UNAME_MACHINE=alphaev68 ;;
"EV6.9A (21264/EV69A)")
UNAME_MACHINE=alphaev69 ;;
"EV7 (21364)")
UNAME_MACHINE=alphaev7 ;;
"EV7.9 (21364A)")
UNAME_MACHINE=alphaev79 ;;
esac
# A Pn.n version is a patched version.
# A Vn.n version is a released version.
# A Tn.n version is a released field test version.
# A Xn.n version is an unreleased experimental baselevel.
# 1.2 uses "1.2" for uname -r.
OSF_REL=`echo "$UNAME_RELEASE" | sed -e 's/^[PVTX]//' | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz`
GUESS=$UNAME_MACHINE-dec-osf$OSF_REL
;;
Amiga*:UNIX_System_V:4.0:*)
GUESS=m68k-unknown-sysv4
;;
*:[Aa]miga[Oo][Ss]:*:*)
GUESS=$UNAME_MACHINE-unknown-amigaos
;;
*:[Mm]orph[Oo][Ss]:*:*)
GUESS=$UNAME_MACHINE-unknown-morphos
;;
*:OS/390:*:*)
GUESS=i370-ibm-openedition
;;
*:z/VM:*:*)
GUESS=s390-ibm-zvmoe
;;
*:OS400:*:*)
GUESS=powerpc-ibm-os400
;;
arm:RISC*:1.[012]*:*|arm:riscix:1.[012]*:*)
GUESS=arm-acorn-riscix$UNAME_RELEASE
;;
arm*:riscos:*:*|arm*:RISCOS:*:*)
GUESS=arm-unknown-riscos
;;
SR2?01:HI-UX/MPP:*:* | SR8000:HI-UX/MPP:*:*)
GUESS=hppa1.1-hitachi-hiuxmpp
;;
Pyramid*:OSx*:*:* | MIS*:OSx*:*:* | MIS*:SMP_DC-OSx*:*:*)
# akee@wpdis03.wpafb.af.mil (Earle F. Ake) contributed MIS and NILE.
case `(/bin/universe) 2>/dev/null` in
att) GUESS=pyramid-pyramid-sysv3 ;;
*) GUESS=pyramid-pyramid-bsd ;;
esac
;;
NILE*:*:*:dcosx)
GUESS=pyramid-pyramid-svr4
;;
DRS?6000:unix:4.0:6*)
GUESS=sparc-icl-nx6
;;
DRS?6000:UNIX_SV:4.2*:7* | DRS?6000:isis:4.2*:7*)
case `/usr/bin/uname -p` in
sparc) GUESS=sparc-icl-nx7 ;;
esac
;;
s390x:SunOS:*:*)
SUN_REL=`echo "$UNAME_RELEASE" | sed -e 's/[^.]*//'`
GUESS=$UNAME_MACHINE-ibm-solaris2$SUN_REL
;;
sun4H:SunOS:5.*:*)
SUN_REL=`echo "$UNAME_RELEASE" | sed -e 's/[^.]*//'`
GUESS=sparc-hal-solaris2$SUN_REL
;;
sun4*:SunOS:5.*:* | tadpole*:SunOS:5.*:*)
SUN_REL=`echo "$UNAME_RELEASE" | sed -e 's/[^.]*//'`
GUESS=sparc-sun-solaris2$SUN_REL
;;
i86pc:AuroraUX:5.*:* | i86xen:AuroraUX:5.*:*)
GUESS=i386-pc-auroraux$UNAME_RELEASE
;;
i86pc:SunOS:5.*:* | i86xen:SunOS:5.*:*)
set_cc_for_build
SUN_ARCH=i386
# If there is a compiler, see if it is configured for 64-bit objects.
# Note that the Sun cc does not turn __LP64__ into 1 like gcc does.
# This test works for both compilers.
if test "$CC_FOR_BUILD" != no_compiler_found; then
if (echo '#ifdef __amd64'; echo IS_64BIT_ARCH; echo '#endif') | \
(CCOPTS="" $CC_FOR_BUILD -E - 2>/dev/null) | \
grep IS_64BIT_ARCH >/dev/null
then
SUN_ARCH=x86_64
fi
fi
SUN_REL=`echo "$UNAME_RELEASE" | sed -e 's/[^.]*//'`
GUESS=$SUN_ARCH-pc-solaris2$SUN_REL
;;
sun4*:SunOS:6*:*)
# According to config.sub, this is the proper way to canonicalize
# SunOS6. Hard to guess exactly what SunOS6 will be like, but
# it's likely to be more like Solaris than SunOS4.
SUN_REL=`echo "$UNAME_RELEASE" | sed -e 's/[^.]*//'`
GUESS=sparc-sun-solaris3$SUN_REL
;;
sun4*:SunOS:*:*)
case `/usr/bin/arch -k` in
Series*|S4*)
UNAME_RELEASE=`uname -v`
;;
esac
# Japanese Language versions have a version number like `4.1.3-JL'.
SUN_REL=`echo "$UNAME_RELEASE" | sed -e 's/-/_/'`
GUESS=sparc-sun-sunos$SUN_REL
;;
sun3*:SunOS:*:*)
GUESS=m68k-sun-sunos$UNAME_RELEASE
;;
sun*:*:4.2BSD:*)
UNAME_RELEASE=`(sed 1q /etc/motd | awk '{print substr($5,1,3)}') 2>/dev/null`
test "x$UNAME_RELEASE" = x && UNAME_RELEASE=3
case `/bin/arch` in
sun3)
GUESS=m68k-sun-sunos$UNAME_RELEASE
;;
sun4)
GUESS=sparc-sun-sunos$UNAME_RELEASE
;;
esac
;;
aushp:SunOS:*:*)
GUESS=sparc-auspex-sunos$UNAME_RELEASE
;;
# The situation for MiNT is a little confusing. The machine name
# can be virtually everything (everything which is not
# "atarist" or "atariste" at least should have a processor
# > m68000). The system name ranges from "MiNT" over "FreeMiNT"
# to the lowercase version "mint" (or "freemint"). Finally
# the system name "TOS" denotes a system which is actually not
# MiNT. But MiNT is downward compatible to TOS, so this should
# be no problem.
atarist[e]:*MiNT:*:* | atarist[e]:*mint:*:* | atarist[e]:*TOS:*:*)
GUESS=m68k-atari-mint$UNAME_RELEASE
;;
atari*:*MiNT:*:* | atari*:*mint:*:* | atarist[e]:*TOS:*:*)
GUESS=m68k-atari-mint$UNAME_RELEASE
;;
*falcon*:*MiNT:*:* | *falcon*:*mint:*:* | *falcon*:*TOS:*:*)
GUESS=m68k-atari-mint$UNAME_RELEASE
;;
milan*:*MiNT:*:* | milan*:*mint:*:* | *milan*:*TOS:*:*)
GUESS=m68k-milan-mint$UNAME_RELEASE
;;
hades*:*MiNT:*:* | hades*:*mint:*:* | *hades*:*TOS:*:*)
GUESS=m68k-hades-mint$UNAME_RELEASE
;;
*:*MiNT:*:* | *:*mint:*:* | *:*TOS:*:*)
GUESS=m68k-unknown-mint$UNAME_RELEASE
;;
m68k:machten:*:*)
GUESS=m68k-apple-machten$UNAME_RELEASE
;;
powerpc:machten:*:*)
GUESS=powerpc-apple-machten$UNAME_RELEASE
;;
RISC*:Mach:*:*)
GUESS=mips-dec-mach_bsd4.3
;;
RISC*:ULTRIX:*:*)
GUESS=mips-dec-ultrix$UNAME_RELEASE
;;
VAX*:ULTRIX*:*:*)
GUESS=vax-dec-ultrix$UNAME_RELEASE
;;
2020:CLIX:*:* | 2430:CLIX:*:*)
GUESS=clipper-intergraph-clix$UNAME_RELEASE
;;
mips:*:*:UMIPS | mips:*:*:RISCos)
set_cc_for_build
sed 's/^ //' << EOF > "$dummy.c"
#ifdef __cplusplus
#include /* for printf() prototype */
int main (int argc, char *argv[]) {
#else
int main (argc, argv) int argc; char *argv[]; {
#endif
#if defined (host_mips) && defined (MIPSEB)
#if defined (SYSTYPE_SYSV)
printf ("mips-mips-riscos%ssysv\\n", argv[1]); exit (0);
#endif
#if defined (SYSTYPE_SVR4)
printf ("mips-mips-riscos%ssvr4\\n", argv[1]); exit (0);
#endif
#if defined (SYSTYPE_BSD43) || defined(SYSTYPE_BSD)
printf ("mips-mips-riscos%sbsd\\n", argv[1]); exit (0);
#endif
#endif
exit (-1);
}
EOF
$CC_FOR_BUILD -o "$dummy" "$dummy.c" &&
dummyarg=`echo "$UNAME_RELEASE" | sed -n 's/\([0-9]*\).*/\1/p'` &&
SYSTEM_NAME=`"$dummy" "$dummyarg"` &&
{ echo "$SYSTEM_NAME"; exit; }
GUESS=mips-mips-riscos$UNAME_RELEASE
;;
Motorola:PowerMAX_OS:*:*)
GUESS=powerpc-motorola-powermax
;;
Motorola:*:4.3:PL8-*)
GUESS=powerpc-harris-powermax
;;
Night_Hawk:*:*:PowerMAX_OS | Synergy:PowerMAX_OS:*:*)
GUESS=powerpc-harris-powermax
;;
Night_Hawk:Power_UNIX:*:*)
GUESS=powerpc-harris-powerunix
;;
m88k:CX/UX:7*:*)
GUESS=m88k-harris-cxux7
;;
m88k:*:4*:R4*)
GUESS=m88k-motorola-sysv4
;;
m88k:*:3*:R3*)
GUESS=m88k-motorola-sysv3
;;
AViiON:dgux:*:*)
# DG/UX returns AViiON for all architectures
UNAME_PROCESSOR=`/usr/bin/uname -p`
if test "$UNAME_PROCESSOR" = mc88100 || test "$UNAME_PROCESSOR" = mc88110
then
if test "$TARGET_BINARY_INTERFACE"x = m88kdguxelfx || \
test "$TARGET_BINARY_INTERFACE"x = x
then
GUESS=m88k-dg-dgux$UNAME_RELEASE
else
GUESS=m88k-dg-dguxbcs$UNAME_RELEASE
fi
else
GUESS=i586-dg-dgux$UNAME_RELEASE
fi
;;
M88*:DolphinOS:*:*) # DolphinOS (SVR3)
GUESS=m88k-dolphin-sysv3
;;
M88*:*:R3*:*)
# Delta 88k system running SVR3
GUESS=m88k-motorola-sysv3
;;
XD88*:*:*:*) # Tektronix XD88 system running UTekV (SVR3)
GUESS=m88k-tektronix-sysv3
;;
Tek43[0-9][0-9]:UTek:*:*) # Tektronix 4300 system running UTek (BSD)
GUESS=m68k-tektronix-bsd
;;
*:IRIX*:*:*)
IRIX_REL=`echo "$UNAME_RELEASE" | sed -e 's/-/_/g'`
GUESS=mips-sgi-irix$IRIX_REL
;;
????????:AIX?:[12].1:2) # AIX 2.2.1 or AIX 2.1.1 is RT/PC AIX.
GUESS=romp-ibm-aix # uname -m gives an 8 hex-code CPU id
;; # Note that: echo "'`uname -s`'" gives 'AIX '
i*86:AIX:*:*)
GUESS=i386-ibm-aix
;;
ia64:AIX:*:*)
if test -x /usr/bin/oslevel ; then
IBM_REV=`/usr/bin/oslevel`
else
IBM_REV=$UNAME_VERSION.$UNAME_RELEASE
fi
GUESS=$UNAME_MACHINE-ibm-aix$IBM_REV
;;
*:AIX:2:3)
if grep bos325 /usr/include/stdio.h >/dev/null 2>&1; then
set_cc_for_build
sed 's/^ //' << EOF > "$dummy.c"
#include
main()
{
if (!__power_pc())
exit(1);
puts("powerpc-ibm-aix3.2.5");
exit(0);
}
EOF
if $CC_FOR_BUILD -o "$dummy" "$dummy.c" && SYSTEM_NAME=`"$dummy"`
then
GUESS=$SYSTEM_NAME
else
GUESS=rs6000-ibm-aix3.2.5
fi
elif grep bos324 /usr/include/stdio.h >/dev/null 2>&1; then
GUESS=rs6000-ibm-aix3.2.4
else
GUESS=rs6000-ibm-aix3.2
fi
;;
*:AIX:*:[4567])
IBM_CPU_ID=`/usr/sbin/lsdev -C -c processor -S available | sed 1q | awk '{ print $1 }'`
if /usr/sbin/lsattr -El "$IBM_CPU_ID" | grep ' POWER' >/dev/null 2>&1; then
IBM_ARCH=rs6000
else
IBM_ARCH=powerpc
fi
if test -x /usr/bin/lslpp ; then
IBM_REV=`/usr/bin/lslpp -Lqc bos.rte.libc | \
awk -F: '{ print $3 }' | sed s/[0-9]*$/0/`
else
IBM_REV=$UNAME_VERSION.$UNAME_RELEASE
fi
GUESS=$IBM_ARCH-ibm-aix$IBM_REV
;;
*:AIX:*:*)
GUESS=rs6000-ibm-aix
;;
ibmrt:4.4BSD:*|romp-ibm:4.4BSD:*)
GUESS=romp-ibm-bsd4.4
;;
ibmrt:*BSD:*|romp-ibm:BSD:*) # covers RT/PC BSD and
GUESS=romp-ibm-bsd$UNAME_RELEASE # 4.3 with uname added to
;; # report: romp-ibm BSD 4.3
*:BOSX:*:*)
GUESS=rs6000-bull-bosx
;;
DPX/2?00:B.O.S.:*:*)
GUESS=m68k-bull-sysv3
;;
9000/[34]??:4.3bsd:1.*:*)
GUESS=m68k-hp-bsd
;;
hp300:4.4BSD:*:* | 9000/[34]??:4.3bsd:2.*:*)
GUESS=m68k-hp-bsd4.4
;;
9000/[34678]??:HP-UX:*:*)
HPUX_REV=`echo "$UNAME_RELEASE" | sed -e 's/[^.]*.[0B]*//'`
case $UNAME_MACHINE in
9000/31?) HP_ARCH=m68000 ;;
9000/[34]??) HP_ARCH=m68k ;;
9000/[678][0-9][0-9])
if test -x /usr/bin/getconf; then
sc_cpu_version=`/usr/bin/getconf SC_CPU_VERSION 2>/dev/null`
sc_kernel_bits=`/usr/bin/getconf SC_KERNEL_BITS 2>/dev/null`
case $sc_cpu_version in
523) HP_ARCH=hppa1.0 ;; # CPU_PA_RISC1_0
528) HP_ARCH=hppa1.1 ;; # CPU_PA_RISC1_1
532) # CPU_PA_RISC2_0
case $sc_kernel_bits in
32) HP_ARCH=hppa2.0n ;;
64) HP_ARCH=hppa2.0w ;;
'') HP_ARCH=hppa2.0 ;; # HP-UX 10.20
esac ;;
esac
fi
if test "$HP_ARCH" = ""; then
set_cc_for_build
sed 's/^ //' << EOF > "$dummy.c"
#define _HPUX_SOURCE
#include
#include
int main ()
{
#if defined(_SC_KERNEL_BITS)
long bits = sysconf(_SC_KERNEL_BITS);
#endif
long cpu = sysconf (_SC_CPU_VERSION);
switch (cpu)
{
case CPU_PA_RISC1_0: puts ("hppa1.0"); break;
case CPU_PA_RISC1_1: puts ("hppa1.1"); break;
case CPU_PA_RISC2_0:
#if defined(_SC_KERNEL_BITS)
switch (bits)
{
case 64: puts ("hppa2.0w"); break;
case 32: puts ("hppa2.0n"); break;
default: puts ("hppa2.0"); break;
} break;
#else /* !defined(_SC_KERNEL_BITS) */
puts ("hppa2.0"); break;
#endif
default: puts ("hppa1.0"); break;
}
exit (0);
}
EOF
(CCOPTS="" $CC_FOR_BUILD -o "$dummy" "$dummy.c" 2>/dev/null) && HP_ARCH=`"$dummy"`
test -z "$HP_ARCH" && HP_ARCH=hppa
fi ;;
esac
if test "$HP_ARCH" = hppa2.0w
then
set_cc_for_build
# hppa2.0w-hp-hpux* has a 64-bit kernel and a compiler generating
# 32-bit code. hppa64-hp-hpux* has the same kernel and a compiler
# generating 64-bit code. GNU and HP use different nomenclature:
#
# $ CC_FOR_BUILD=cc ./config.guess
# => hppa2.0w-hp-hpux11.23
# $ CC_FOR_BUILD="cc +DA2.0w" ./config.guess
# => hppa64-hp-hpux11.23
if echo __LP64__ | (CCOPTS="" $CC_FOR_BUILD -E - 2>/dev/null) |
grep -q __LP64__
then
HP_ARCH=hppa2.0w
else
HP_ARCH=hppa64
fi
fi
GUESS=$HP_ARCH-hp-hpux$HPUX_REV
;;
ia64:HP-UX:*:*)
HPUX_REV=`echo "$UNAME_RELEASE" | sed -e 's/[^.]*.[0B]*//'`
GUESS=ia64-hp-hpux$HPUX_REV
;;
3050*:HI-UX:*:*)
set_cc_for_build
sed 's/^ //' << EOF > "$dummy.c"
#include
int
main ()
{
long cpu = sysconf (_SC_CPU_VERSION);
/* The order matters, because CPU_IS_HP_MC68K erroneously returns
true for CPU_PA_RISC1_0. CPU_IS_PA_RISC returns correct
results, however. */
if (CPU_IS_PA_RISC (cpu))
{
switch (cpu)
{
case CPU_PA_RISC1_0: puts ("hppa1.0-hitachi-hiuxwe2"); break;
case CPU_PA_RISC1_1: puts ("hppa1.1-hitachi-hiuxwe2"); break;
case CPU_PA_RISC2_0: puts ("hppa2.0-hitachi-hiuxwe2"); break;
default: puts ("hppa-hitachi-hiuxwe2"); break;
}
}
else if (CPU_IS_HP_MC68K (cpu))
puts ("m68k-hitachi-hiuxwe2");
else puts ("unknown-hitachi-hiuxwe2");
exit (0);
}
EOF
$CC_FOR_BUILD -o "$dummy" "$dummy.c" && SYSTEM_NAME=`"$dummy"` &&
{ echo "$SYSTEM_NAME"; exit; }
GUESS=unknown-hitachi-hiuxwe2
;;
9000/7??:4.3bsd:*:* | 9000/8?[79]:4.3bsd:*:*)
GUESS=hppa1.1-hp-bsd
;;
9000/8??:4.3bsd:*:*)
GUESS=hppa1.0-hp-bsd
;;
*9??*:MPE/iX:*:* | *3000*:MPE/iX:*:*)
GUESS=hppa1.0-hp-mpeix
;;
hp7??:OSF1:*:* | hp8?[79]:OSF1:*:*)
GUESS=hppa1.1-hp-osf
;;
hp8??:OSF1:*:*)
GUESS=hppa1.0-hp-osf
;;
i*86:OSF1:*:*)
if test -x /usr/sbin/sysversion ; then
GUESS=$UNAME_MACHINE-unknown-osf1mk
else
GUESS=$UNAME_MACHINE-unknown-osf1
fi
;;
parisc*:Lites*:*:*)
GUESS=hppa1.1-hp-lites
;;
C1*:ConvexOS:*:* | convex:ConvexOS:C1*:*)
GUESS=c1-convex-bsd
;;
C2*:ConvexOS:*:* | convex:ConvexOS:C2*:*)
if getsysinfo -f scalar_acc
then echo c32-convex-bsd
else echo c2-convex-bsd
fi
exit ;;
C34*:ConvexOS:*:* | convex:ConvexOS:C34*:*)
GUESS=c34-convex-bsd
;;
C38*:ConvexOS:*:* | convex:ConvexOS:C38*:*)
GUESS=c38-convex-bsd
;;
C4*:ConvexOS:*:* | convex:ConvexOS:C4*:*)
GUESS=c4-convex-bsd
;;
CRAY*Y-MP:*:*:*)
CRAY_REL=`echo "$UNAME_RELEASE" | sed -e 's/\.[^.]*$/.X/'`
GUESS=ymp-cray-unicos$CRAY_REL
;;
CRAY*[A-Z]90:*:*:*)
echo "$UNAME_MACHINE"-cray-unicos"$UNAME_RELEASE" \
| sed -e 's/CRAY.*\([A-Z]90\)/\1/' \
-e y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/ \
-e 's/\.[^.]*$/.X/'
exit ;;
CRAY*TS:*:*:*)
CRAY_REL=`echo "$UNAME_RELEASE" | sed -e 's/\.[^.]*$/.X/'`
GUESS=t90-cray-unicos$CRAY_REL
;;
CRAY*T3E:*:*:*)
CRAY_REL=`echo "$UNAME_RELEASE" | sed -e 's/\.[^.]*$/.X/'`
GUESS=alphaev5-cray-unicosmk$CRAY_REL
;;
CRAY*SV1:*:*:*)
CRAY_REL=`echo "$UNAME_RELEASE" | sed -e 's/\.[^.]*$/.X/'`
GUESS=sv1-cray-unicos$CRAY_REL
;;
*:UNICOS/mp:*:*)
CRAY_REL=`echo "$UNAME_RELEASE" | sed -e 's/\.[^.]*$/.X/'`
GUESS=craynv-cray-unicosmp$CRAY_REL
;;
F30[01]:UNIX_System_V:*:* | F700:UNIX_System_V:*:*)
FUJITSU_PROC=`uname -m | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz`
FUJITSU_SYS=`uname -p | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz | sed -e 's/\///'`
FUJITSU_REL=`echo "$UNAME_RELEASE" | sed -e 's/ /_/'`
GUESS=${FUJITSU_PROC}-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}
;;
5000:UNIX_System_V:4.*:*)
FUJITSU_SYS=`uname -p | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz | sed -e 's/\///'`
FUJITSU_REL=`echo "$UNAME_RELEASE" | tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz | sed -e 's/ /_/'`
GUESS=sparc-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}
;;
i*86:BSD/386:*:* | i*86:BSD/OS:*:* | *:Ascend\ Embedded/OS:*:*)
GUESS=$UNAME_MACHINE-pc-bsdi$UNAME_RELEASE
;;
sparc*:BSD/OS:*:*)
GUESS=sparc-unknown-bsdi$UNAME_RELEASE
;;
*:BSD/OS:*:*)
GUESS=$UNAME_MACHINE-unknown-bsdi$UNAME_RELEASE
;;
arm:FreeBSD:*:*)
UNAME_PROCESSOR=`uname -p`
set_cc_for_build
if echo __ARM_PCS_VFP | $CC_FOR_BUILD -E - 2>/dev/null \
| grep -q __ARM_PCS_VFP
then
FREEBSD_REL=`echo "$UNAME_RELEASE" | sed -e 's/[-(].*//'`
GUESS=$UNAME_PROCESSOR-unknown-freebsd$FREEBSD_REL-gnueabi
else
FREEBSD_REL=`echo "$UNAME_RELEASE" | sed -e 's/[-(].*//'`
GUESS=$UNAME_PROCESSOR-unknown-freebsd$FREEBSD_REL-gnueabihf
fi
;;
*:FreeBSD:*:*)
UNAME_PROCESSOR=`/usr/bin/uname -p`
case $UNAME_PROCESSOR in
amd64)
UNAME_PROCESSOR=x86_64 ;;
i386)
UNAME_PROCESSOR=i586 ;;
esac
FREEBSD_REL=`echo "$UNAME_RELEASE" | sed -e 's/[-(].*//'`
GUESS=$UNAME_PROCESSOR-unknown-freebsd$FREEBSD_REL
;;
i*:CYGWIN*:*)
GUESS=$UNAME_MACHINE-pc-cygwin
;;
*:MINGW64*:*)
GUESS=$UNAME_MACHINE-pc-mingw64
;;
*:MINGW*:*)
GUESS=$UNAME_MACHINE-pc-mingw32
;;
*:MSYS*:*)
GUESS=$UNAME_MACHINE-pc-msys
;;
i*:PW*:*)
GUESS=$UNAME_MACHINE-pc-pw32
;;
*:Interix*:*)
case $UNAME_MACHINE in
x86)
GUESS=i586-pc-interix$UNAME_RELEASE
;;
authenticamd | genuineintel | EM64T)
GUESS=x86_64-unknown-interix$UNAME_RELEASE
;;
IA64)
GUESS=ia64-unknown-interix$UNAME_RELEASE
;;
esac ;;
i*:UWIN*:*)
GUESS=$UNAME_MACHINE-pc-uwin
;;
amd64:CYGWIN*:*:* | x86_64:CYGWIN*:*:*)
GUESS=x86_64-pc-cygwin
;;
prep*:SunOS:5.*:*)
SUN_REL=`echo "$UNAME_RELEASE" | sed -e 's/[^.]*//'`
GUESS=powerpcle-unknown-solaris2$SUN_REL
;;
*:GNU:*:*)
# the GNU system
GNU_ARCH=`echo "$UNAME_MACHINE" | sed -e 's,[-/].*$,,'`
GNU_REL=`echo "$UNAME_RELEASE" | sed -e 's,/.*$,,'`
GUESS=$GNU_ARCH-unknown-$LIBC$GNU_REL
;;
*:GNU/*:*:*)
# other systems with GNU libc and userland
GNU_SYS=`echo "$UNAME_SYSTEM" | sed 's,^[^/]*/,,' | tr "[:upper:]" "[:lower:]"`
GNU_REL=`echo "$UNAME_RELEASE" | sed -e 's/[-(].*//'`
GUESS=$UNAME_MACHINE-unknown-$GNU_SYS$GNU_REL-$LIBC
;;
*:Minix:*:*)
GUESS=$UNAME_MACHINE-unknown-minix
;;
aarch64:Linux:*:*)
GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
;;
aarch64_be:Linux:*:*)
UNAME_MACHINE=aarch64_be
GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
;;
alpha:Linux:*:*)
case `sed -n '/^cpu model/s/^.*: \(.*\)/\1/p' /proc/cpuinfo 2>/dev/null` in
EV5) UNAME_MACHINE=alphaev5 ;;
EV56) UNAME_MACHINE=alphaev56 ;;
PCA56) UNAME_MACHINE=alphapca56 ;;
PCA57) UNAME_MACHINE=alphapca56 ;;
EV6) UNAME_MACHINE=alphaev6 ;;
EV67) UNAME_MACHINE=alphaev67 ;;
EV68*) UNAME_MACHINE=alphaev68 ;;
esac
objdump --private-headers /bin/sh | grep -q ld.so.1
if test "$?" = 0 ; then LIBC=gnulibc1 ; fi
GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
;;
arc:Linux:*:* | arceb:Linux:*:* | arc32:Linux:*:* | arc64:Linux:*:*)
GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
;;
arm*:Linux:*:*)
set_cc_for_build
if echo __ARM_EABI__ | $CC_FOR_BUILD -E - 2>/dev/null \
| grep -q __ARM_EABI__
then
GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
else
if echo __ARM_PCS_VFP | $CC_FOR_BUILD -E - 2>/dev/null \
| grep -q __ARM_PCS_VFP
then
GUESS=$UNAME_MACHINE-unknown-linux-${LIBC}eabi
else
GUESS=$UNAME_MACHINE-unknown-linux-${LIBC}eabihf
fi
fi
;;
avr32*:Linux:*:*)
GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
;;
cris:Linux:*:*)
GUESS=$UNAME_MACHINE-axis-linux-$LIBC
;;
crisv32:Linux:*:*)
GUESS=$UNAME_MACHINE-axis-linux-$LIBC
;;
e2k:Linux:*:*)
GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
;;
frv:Linux:*:*)
GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
;;
hexagon:Linux:*:*)
GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
;;
i*86:Linux:*:*)
GUESS=$UNAME_MACHINE-pc-linux-$LIBC
;;
ia64:Linux:*:*)
GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
;;
k1om:Linux:*:*)
GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
;;
loongarch32:Linux:*:* | loongarch64:Linux:*:* | loongarchx32:Linux:*:*)
GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
;;
m32r*:Linux:*:*)
GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
;;
m68*:Linux:*:*)
GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
;;
mips:Linux:*:* | mips64:Linux:*:*)
set_cc_for_build
IS_GLIBC=0
test x"${LIBC}" = xgnu && IS_GLIBC=1
sed 's/^ //' << EOF > "$dummy.c"
#undef CPU
#undef mips
#undef mipsel
#undef mips64
#undef mips64el
#if ${IS_GLIBC} && defined(_ABI64)
LIBCABI=gnuabi64
#else
#if ${IS_GLIBC} && defined(_ABIN32)
LIBCABI=gnuabin32
#else
LIBCABI=${LIBC}
#endif
#endif
#if ${IS_GLIBC} && defined(__mips64) && defined(__mips_isa_rev) && __mips_isa_rev>=6
CPU=mipsisa64r6
#else
#if ${IS_GLIBC} && !defined(__mips64) && defined(__mips_isa_rev) && __mips_isa_rev>=6
CPU=mipsisa32r6
#else
#if defined(__mips64)
CPU=mips64
#else
CPU=mips
#endif
#endif
#endif
#if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL)
MIPS_ENDIAN=el
#else
#if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB)
MIPS_ENDIAN=
#else
MIPS_ENDIAN=
#endif
#endif
EOF
cc_set_vars=`$CC_FOR_BUILD -E "$dummy.c" 2>/dev/null | grep '^CPU\|^MIPS_ENDIAN\|^LIBCABI'`
eval "$cc_set_vars"
test "x$CPU" != x && { echo "$CPU${MIPS_ENDIAN}-unknown-linux-$LIBCABI"; exit; }
;;
mips64el:Linux:*:*)
GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
;;
openrisc*:Linux:*:*)
GUESS=or1k-unknown-linux-$LIBC
;;
or32:Linux:*:* | or1k*:Linux:*:*)
GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
;;
padre:Linux:*:*)
GUESS=sparc-unknown-linux-$LIBC
;;
parisc64:Linux:*:* | hppa64:Linux:*:*)
GUESS=hppa64-unknown-linux-$LIBC
;;
parisc:Linux:*:* | hppa:Linux:*:*)
# Look for CPU level
case `grep '^cpu[^a-z]*:' /proc/cpuinfo 2>/dev/null | cut -d' ' -f2` in
PA7*) GUESS=hppa1.1-unknown-linux-$LIBC ;;
PA8*) GUESS=hppa2.0-unknown-linux-$LIBC ;;
*) GUESS=hppa-unknown-linux-$LIBC ;;
esac
;;
ppc64:Linux:*:*)
GUESS=powerpc64-unknown-linux-$LIBC
;;
ppc:Linux:*:*)
GUESS=powerpc-unknown-linux-$LIBC
;;
ppc64le:Linux:*:*)
GUESS=powerpc64le-unknown-linux-$LIBC
;;
ppcle:Linux:*:*)
GUESS=powerpcle-unknown-linux-$LIBC
;;
riscv32:Linux:*:* | riscv32be:Linux:*:* | riscv64:Linux:*:* | riscv64be:Linux:*:*)
GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
;;
s390:Linux:*:* | s390x:Linux:*:*)
GUESS=$UNAME_MACHINE-ibm-linux-$LIBC
;;
sh64*:Linux:*:*)
GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
;;
sh*:Linux:*:*)
GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
;;
sparc:Linux:*:* | sparc64:Linux:*:*)
GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
;;
tile*:Linux:*:*)
GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
;;
vax:Linux:*:*)
GUESS=$UNAME_MACHINE-dec-linux-$LIBC
;;
x86_64:Linux:*:*)
set_cc_for_build
LIBCABI=$LIBC
if test "$CC_FOR_BUILD" != no_compiler_found; then
if (echo '#ifdef __ILP32__'; echo IS_X32; echo '#endif') | \
(CCOPTS="" $CC_FOR_BUILD -E - 2>/dev/null) | \
grep IS_X32 >/dev/null
then
LIBCABI=${LIBC}x32
fi
fi
GUESS=$UNAME_MACHINE-pc-linux-$LIBCABI
;;
xtensa*:Linux:*:*)
GUESS=$UNAME_MACHINE-unknown-linux-$LIBC
;;
i*86:DYNIX/ptx:4*:*)
# ptx 4.0 does uname -s correctly, with DYNIX/ptx in there.
# earlier versions are messed up and put the nodename in both
# sysname and nodename.
GUESS=i386-sequent-sysv4
;;
i*86:UNIX_SV:4.2MP:2.*)
# Unixware is an offshoot of SVR4, but it has its own version
# number series starting with 2...
# I am not positive that other SVR4 systems won't match this,
# I just have to hope. -- rms.
# Use sysv4.2uw... so that sysv4* matches it.
GUESS=$UNAME_MACHINE-pc-sysv4.2uw$UNAME_VERSION
;;
i*86:OS/2:*:*)
# If we were able to find `uname', then EMX Unix compatibility
# is probably installed.
GUESS=$UNAME_MACHINE-pc-os2-emx
;;
i*86:XTS-300:*:STOP)
GUESS=$UNAME_MACHINE-unknown-stop
;;
i*86:atheos:*:*)
GUESS=$UNAME_MACHINE-unknown-atheos
;;
i*86:syllable:*:*)
GUESS=$UNAME_MACHINE-pc-syllable
;;
i*86:LynxOS:2.*:* | i*86:LynxOS:3.[01]*:* | i*86:LynxOS:4.[02]*:*)
GUESS=i386-unknown-lynxos$UNAME_RELEASE
;;
i*86:*DOS:*:*)
GUESS=$UNAME_MACHINE-pc-msdosdjgpp
;;
i*86:*:4.*:*)
UNAME_REL=`echo "$UNAME_RELEASE" | sed 's/\/MP$//'`
if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then
GUESS=$UNAME_MACHINE-univel-sysv$UNAME_REL
else
GUESS=$UNAME_MACHINE-pc-sysv$UNAME_REL
fi
;;
i*86:*:5:[678]*)
# UnixWare 7.x, OpenUNIX and OpenServer 6.
case `/bin/uname -X | grep "^Machine"` in
*486*) UNAME_MACHINE=i486 ;;
*Pentium) UNAME_MACHINE=i586 ;;
*Pent*|*Celeron) UNAME_MACHINE=i686 ;;
esac
GUESS=$UNAME_MACHINE-unknown-sysv${UNAME_RELEASE}${UNAME_SYSTEM}${UNAME_VERSION}
;;
i*86:*:3.2:*)
if test -f /usr/options/cb.name; then
UNAME_REL=`sed -n 's/.*Version //p' /dev/null >/dev/null ; then
UNAME_REL=`(/bin/uname -X|grep Release|sed -e 's/.*= //')`
(/bin/uname -X|grep i80486 >/dev/null) && UNAME_MACHINE=i486
(/bin/uname -X|grep '^Machine.*Pentium' >/dev/null) \
&& UNAME_MACHINE=i586
(/bin/uname -X|grep '^Machine.*Pent *II' >/dev/null) \
&& UNAME_MACHINE=i686
(/bin/uname -X|grep '^Machine.*Pentium Pro' >/dev/null) \
&& UNAME_MACHINE=i686
GUESS=$UNAME_MACHINE-pc-sco$UNAME_REL
else
GUESS=$UNAME_MACHINE-pc-sysv32
fi
;;
pc:*:*:*)
# Left here for compatibility:
# uname -m prints for DJGPP always 'pc', but it prints nothing about
# the processor, so we play safe by assuming i586.
# Note: whatever this is, it MUST be the same as what config.sub
# prints for the "djgpp" host, or else GDB configure will decide that
# this is a cross-build.
GUESS=i586-pc-msdosdjgpp
;;
Intel:Mach:3*:*)
GUESS=i386-pc-mach3
;;
paragon:*:*:*)
GUESS=i860-intel-osf1
;;
i860:*:4.*:*) # i860-SVR4
if grep Stardent /usr/include/sys/uadmin.h >/dev/null 2>&1 ; then
GUESS=i860-stardent-sysv$UNAME_RELEASE # Stardent Vistra i860-SVR4
else # Add other i860-SVR4 vendors below as they are discovered.
GUESS=i860-unknown-sysv$UNAME_RELEASE # Unknown i860-SVR4
fi
;;
mini*:CTIX:SYS*5:*)
# "miniframe"
GUESS=m68010-convergent-sysv
;;
mc68k:UNIX:SYSTEM5:3.51m)
GUESS=m68k-convergent-sysv
;;
M680?0:D-NIX:5.3:*)
GUESS=m68k-diab-dnix
;;
M68*:*:R3V[5678]*:*)
test -r /sysV68 && { echo 'm68k-motorola-sysv'; exit; } ;;
3[345]??:*:4.0:3.0 | 3[34]??A:*:4.0:3.0 | 3[34]??,*:*:4.0:3.0 | 3[34]??/*:*:4.0:3.0 | 4400:*:4.0:3.0 | 4850:*:4.0:3.0 | SKA40:*:4.0:3.0 | SDS2:*:4.0:3.0 | SHG2:*:4.0:3.0 | S7501*:*:4.0:3.0)
OS_REL=''
test -r /etc/.relid \
&& OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid`
/bin/uname -p 2>/dev/null | grep 86 >/dev/null \
&& { echo i486-ncr-sysv4.3"$OS_REL"; exit; }
/bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \
&& { echo i586-ncr-sysv4.3"$OS_REL"; exit; } ;;
3[34]??:*:4.0:* | 3[34]??,*:*:4.0:*)
/bin/uname -p 2>/dev/null | grep 86 >/dev/null \
&& { echo i486-ncr-sysv4; exit; } ;;
NCR*:*:4.2:* | MPRAS*:*:4.2:*)
OS_REL='.3'
test -r /etc/.relid \
&& OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid`
/bin/uname -p 2>/dev/null | grep 86 >/dev/null \
&& { echo i486-ncr-sysv4.3"$OS_REL"; exit; }
/bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \
&& { echo i586-ncr-sysv4.3"$OS_REL"; exit; }
/bin/uname -p 2>/dev/null | /bin/grep pteron >/dev/null \
&& { echo i586-ncr-sysv4.3"$OS_REL"; exit; } ;;
m68*:LynxOS:2.*:* | m68*:LynxOS:3.0*:*)
GUESS=m68k-unknown-lynxos$UNAME_RELEASE
;;
mc68030:UNIX_System_V:4.*:*)
GUESS=m68k-atari-sysv4
;;
TSUNAMI:LynxOS:2.*:*)
GUESS=sparc-unknown-lynxos$UNAME_RELEASE
;;
rs6000:LynxOS:2.*:*)
GUESS=rs6000-unknown-lynxos$UNAME_RELEASE
;;
PowerPC:LynxOS:2.*:* | PowerPC:LynxOS:3.[01]*:* | PowerPC:LynxOS:4.[02]*:*)
GUESS=powerpc-unknown-lynxos$UNAME_RELEASE
;;
SM[BE]S:UNIX_SV:*:*)
GUESS=mips-dde-sysv$UNAME_RELEASE
;;
RM*:ReliantUNIX-*:*:*)
GUESS=mips-sni-sysv4
;;
RM*:SINIX-*:*:*)
GUESS=mips-sni-sysv4
;;
*:SINIX-*:*:*)
if uname -p 2>/dev/null >/dev/null ; then
UNAME_MACHINE=`(uname -p) 2>/dev/null`
GUESS=$UNAME_MACHINE-sni-sysv4
else
GUESS=ns32k-sni-sysv
fi
;;
PENTIUM:*:4.0*:*) # Unisys `ClearPath HMP IX 4000' SVR4/MP effort
# says
GUESS=i586-unisys-sysv4
;;
*:UNIX_System_V:4*:FTX*)
# From Gerald Hewes .
# How about differentiating between stratus architectures? -djm
GUESS=hppa1.1-stratus-sysv4
;;
*:*:*:FTX*)
# From seanf@swdc.stratus.com.
GUESS=i860-stratus-sysv4
;;
i*86:VOS:*:*)
# From Paul.Green@stratus.com.
GUESS=$UNAME_MACHINE-stratus-vos
;;
*:VOS:*:*)
# From Paul.Green@stratus.com.
GUESS=hppa1.1-stratus-vos
;;
mc68*:A/UX:*:*)
GUESS=m68k-apple-aux$UNAME_RELEASE
;;
news*:NEWS-OS:6*:*)
GUESS=mips-sony-newsos6
;;
R[34]000:*System_V*:*:* | R4000:UNIX_SYSV:*:* | R*000:UNIX_SV:*:*)
if test -d /usr/nec; then
GUESS=mips-nec-sysv$UNAME_RELEASE
else
GUESS=mips-unknown-sysv$UNAME_RELEASE
fi
;;
BeBox:BeOS:*:*) # BeOS running on hardware made by Be, PPC only.
GUESS=powerpc-be-beos
;;
BeMac:BeOS:*:*) # BeOS running on Mac or Mac clone, PPC only.
GUESS=powerpc-apple-beos
;;
BePC:BeOS:*:*) # BeOS running on Intel PC compatible.
GUESS=i586-pc-beos
;;
BePC:Haiku:*:*) # Haiku running on Intel PC compatible.
GUESS=i586-pc-haiku
;;
x86_64:Haiku:*:*)
GUESS=x86_64-unknown-haiku
;;
SX-4:SUPER-UX:*:*)
GUESS=sx4-nec-superux$UNAME_RELEASE
;;
SX-5:SUPER-UX:*:*)
GUESS=sx5-nec-superux$UNAME_RELEASE
;;
SX-6:SUPER-UX:*:*)
GUESS=sx6-nec-superux$UNAME_RELEASE
;;
SX-7:SUPER-UX:*:*)
GUESS=sx7-nec-superux$UNAME_RELEASE
;;
SX-8:SUPER-UX:*:*)
GUESS=sx8-nec-superux$UNAME_RELEASE
;;
SX-8R:SUPER-UX:*:*)
GUESS=sx8r-nec-superux$UNAME_RELEASE
;;
SX-ACE:SUPER-UX:*:*)
GUESS=sxace-nec-superux$UNAME_RELEASE
;;
Power*:Rhapsody:*:*)
GUESS=powerpc-apple-rhapsody$UNAME_RELEASE
;;
*:Rhapsody:*:*)
GUESS=$UNAME_MACHINE-apple-rhapsody$UNAME_RELEASE
;;
arm64:Darwin:*:*)
GUESS=aarch64-apple-darwin$UNAME_RELEASE
;;
*:Darwin:*:*)
UNAME_PROCESSOR=`uname -p`
case $UNAME_PROCESSOR in
unknown) UNAME_PROCESSOR=powerpc ;;
esac
if command -v xcode-select > /dev/null 2> /dev/null && \
! xcode-select --print-path > /dev/null 2> /dev/null ; then
# Avoid executing cc if there is no toolchain installed as
# cc will be a stub that puts up a graphical alert
# prompting the user to install developer tools.
CC_FOR_BUILD=no_compiler_found
else
set_cc_for_build
fi
if test "$CC_FOR_BUILD" != no_compiler_found; then
if (echo '#ifdef __LP64__'; echo IS_64BIT_ARCH; echo '#endif') | \
(CCOPTS="" $CC_FOR_BUILD -E - 2>/dev/null) | \
grep IS_64BIT_ARCH >/dev/null
then
case $UNAME_PROCESSOR in
i386) UNAME_PROCESSOR=x86_64 ;;
powerpc) UNAME_PROCESSOR=powerpc64 ;;
esac
fi
# On 10.4-10.6 one might compile for PowerPC via gcc -arch ppc
if (echo '#ifdef __POWERPC__'; echo IS_PPC; echo '#endif') | \
(CCOPTS="" $CC_FOR_BUILD -E - 2>/dev/null) | \
grep IS_PPC >/dev/null
then
UNAME_PROCESSOR=powerpc
fi
elif test "$UNAME_PROCESSOR" = i386 ; then
# uname -m returns i386 or x86_64
UNAME_PROCESSOR=$UNAME_MACHINE
fi
GUESS=$UNAME_PROCESSOR-apple-darwin$UNAME_RELEASE
;;
*:procnto*:*:* | *:QNX:[0123456789]*:*)
UNAME_PROCESSOR=`uname -p`
if test "$UNAME_PROCESSOR" = x86; then
UNAME_PROCESSOR=i386
UNAME_MACHINE=pc
fi
GUESS=$UNAME_PROCESSOR-$UNAME_MACHINE-nto-qnx$UNAME_RELEASE
;;
*:QNX:*:4*)
GUESS=i386-pc-qnx
;;
NEO-*:NONSTOP_KERNEL:*:*)
GUESS=neo-tandem-nsk$UNAME_RELEASE
;;
NSE-*:NONSTOP_KERNEL:*:*)
GUESS=nse-tandem-nsk$UNAME_RELEASE
;;
NSR-*:NONSTOP_KERNEL:*:*)
GUESS=nsr-tandem-nsk$UNAME_RELEASE
;;
NSV-*:NONSTOP_KERNEL:*:*)
GUESS=nsv-tandem-nsk$UNAME_RELEASE
;;
NSX-*:NONSTOP_KERNEL:*:*)
GUESS=nsx-tandem-nsk$UNAME_RELEASE
;;
*:NonStop-UX:*:*)
GUESS=mips-compaq-nonstopux
;;
BS2000:POSIX*:*:*)
GUESS=bs2000-siemens-sysv
;;
DS/*:UNIX_System_V:*:*)
GUESS=$UNAME_MACHINE-$UNAME_SYSTEM-$UNAME_RELEASE
;;
*:Plan9:*:*)
# "uname -m" is not consistent, so use $cputype instead. 386
# is converted to i386 for consistency with other x86
# operating systems.
if test "${cputype-}" = 386; then
UNAME_MACHINE=i386
elif test "x${cputype-}" != x; then
UNAME_MACHINE=$cputype
fi
GUESS=$UNAME_MACHINE-unknown-plan9
;;
*:TOPS-10:*:*)
GUESS=pdp10-unknown-tops10
;;
*:TENEX:*:*)
GUESS=pdp10-unknown-tenex
;;
KS10:TOPS-20:*:* | KL10:TOPS-20:*:* | TYPE4:TOPS-20:*:*)
GUESS=pdp10-dec-tops20
;;
XKL-1:TOPS-20:*:* | TYPE5:TOPS-20:*:*)
GUESS=pdp10-xkl-tops20
;;
*:TOPS-20:*:*)
GUESS=pdp10-unknown-tops20
;;
*:ITS:*:*)
GUESS=pdp10-unknown-its
;;
SEI:*:*:SEIUX)
GUESS=mips-sei-seiux$UNAME_RELEASE
;;
*:DragonFly:*:*)
DRAGONFLY_REL=`echo "$UNAME_RELEASE" | sed -e 's/[-(].*//'`
GUESS=$UNAME_MACHINE-unknown-dragonfly$DRAGONFLY_REL
;;
*:*VMS:*:*)
UNAME_MACHINE=`(uname -p) 2>/dev/null`
case $UNAME_MACHINE in
A*) GUESS=alpha-dec-vms ;;
I*) GUESS=ia64-dec-vms ;;
V*) GUESS=vax-dec-vms ;;
esac ;;
*:XENIX:*:SysV)
GUESS=i386-pc-xenix
;;
i*86:skyos:*:*)
SKYOS_REL=`echo "$UNAME_RELEASE" | sed -e 's/ .*$//'`
GUESS=$UNAME_MACHINE-pc-skyos$SKYOS_REL
;;
i*86:rdos:*:*)
GUESS=$UNAME_MACHINE-pc-rdos
;;
*:AROS:*:*)
GUESS=$UNAME_MACHINE-unknown-aros
;;
x86_64:VMkernel:*:*)
GUESS=$UNAME_MACHINE-unknown-esx
;;
amd64:Isilon\ OneFS:*:*)
GUESS=x86_64-unknown-onefs
;;
*:Unleashed:*:*)
GUESS=$UNAME_MACHINE-unknown-unleashed$UNAME_RELEASE
;;
esac
# Do we have a guess based on uname results?
if test "x$GUESS" != x; then
echo "$GUESS"
exit
fi
# No uname command or uname output not recognized.
set_cc_for_build
cat > "$dummy.c" <
#include
#endif
#if defined(ultrix) || defined(_ultrix) || defined(__ultrix) || defined(__ultrix__)
#if defined (vax) || defined (__vax) || defined (__vax__) || defined(mips) || defined(__mips) || defined(__mips__) || defined(MIPS) || defined(__MIPS__)
#include
#if defined(_SIZE_T_) || defined(SIGLOST)
#include
#endif
#endif
#endif
main ()
{
#if defined (sony)
#if defined (MIPSEB)
/* BFD wants "bsd" instead of "newsos". Perhaps BFD should be changed,
I don't know.... */
printf ("mips-sony-bsd\n"); exit (0);
#else
#include
printf ("m68k-sony-newsos%s\n",
#ifdef NEWSOS4
"4"
#else
""
#endif
); exit (0);
#endif
#endif
#if defined (NeXT)
#if !defined (__ARCHITECTURE__)
#define __ARCHITECTURE__ "m68k"
#endif
int version;
version=`(hostinfo | sed -n 's/.*NeXT Mach \([0-9]*\).*/\1/p') 2>/dev/null`;
if (version < 4)
printf ("%s-next-nextstep%d\n", __ARCHITECTURE__, version);
else
printf ("%s-next-openstep%d\n", __ARCHITECTURE__, version);
exit (0);
#endif
#if defined (MULTIMAX) || defined (n16)
#if defined (UMAXV)
printf ("ns32k-encore-sysv\n"); exit (0);
#else
#if defined (CMU)
printf ("ns32k-encore-mach\n"); exit (0);
#else
printf ("ns32k-encore-bsd\n"); exit (0);
#endif
#endif
#endif
#if defined (__386BSD__)
printf ("i386-pc-bsd\n"); exit (0);
#endif
#if defined (sequent)
#if defined (i386)
printf ("i386-sequent-dynix\n"); exit (0);
#endif
#if defined (ns32000)
printf ("ns32k-sequent-dynix\n"); exit (0);
#endif
#endif
#if defined (_SEQUENT_)
struct utsname un;
uname(&un);
if (strncmp(un.version, "V2", 2) == 0) {
printf ("i386-sequent-ptx2\n"); exit (0);
}
if (strncmp(un.version, "V1", 2) == 0) { /* XXX is V1 correct? */
printf ("i386-sequent-ptx1\n"); exit (0);
}
printf ("i386-sequent-ptx\n"); exit (0);
#endif
#if defined (vax)
#if !defined (ultrix)
#include
#if defined (BSD)
#if BSD == 43
printf ("vax-dec-bsd4.3\n"); exit (0);
#else
#if BSD == 199006
printf ("vax-dec-bsd4.3reno\n"); exit (0);
#else
printf ("vax-dec-bsd\n"); exit (0);
#endif
#endif
#else
printf ("vax-dec-bsd\n"); exit (0);
#endif
#else
#if defined(_SIZE_T_) || defined(SIGLOST)
struct utsname un;
uname (&un);
printf ("vax-dec-ultrix%s\n", un.release); exit (0);
#else
printf ("vax-dec-ultrix\n"); exit (0);
#endif
#endif
#endif
#if defined(ultrix) || defined(_ultrix) || defined(__ultrix) || defined(__ultrix__)
#if defined(mips) || defined(__mips) || defined(__mips__) || defined(MIPS) || defined(__MIPS__)
#if defined(_SIZE_T_) || defined(SIGLOST)
struct utsname *un;
uname (&un);
printf ("mips-dec-ultrix%s\n", un.release); exit (0);
#else
printf ("mips-dec-ultrix\n"); exit (0);
#endif
#endif
#endif
#if defined (alliant) && defined (i860)
printf ("i860-alliant-bsd\n"); exit (0);
#endif
exit (1);
}
EOF
$CC_FOR_BUILD -o "$dummy" "$dummy.c" 2>/dev/null && SYSTEM_NAME=`"$dummy"` &&
{ echo "$SYSTEM_NAME"; exit; }
# Apollos put the system type in the environment.
test -d /usr/apollo && { echo "$ISP-apollo-$SYSTYPE"; exit; }
echo "$0: unable to guess system type" >&2
case $UNAME_MACHINE:$UNAME_SYSTEM in
mips:Linux | mips64:Linux)
# If we got here on MIPS GNU/Linux, output extra information.
cat >&2 <&2 <&2 </dev/null || echo unknown`
uname -r = `(uname -r) 2>/dev/null || echo unknown`
uname -s = `(uname -s) 2>/dev/null || echo unknown`
uname -v = `(uname -v) 2>/dev/null || echo unknown`
/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null`
/bin/uname -X = `(/bin/uname -X) 2>/dev/null`
hostinfo = `(hostinfo) 2>/dev/null`
/bin/universe = `(/bin/universe) 2>/dev/null`
/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null`
/bin/arch = `(/bin/arch) 2>/dev/null`
/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null`
/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null`
UNAME_MACHINE = "$UNAME_MACHINE"
UNAME_RELEASE = "$UNAME_RELEASE"
UNAME_SYSTEM = "$UNAME_SYSTEM"
UNAME_VERSION = "$UNAME_VERSION"
EOF
fi
exit 1
# Local variables:
# eval: (add-hook 'before-save-hook 'time-stamp)
# time-stamp-start: "timestamp='"
# time-stamp-format: "%:y-%02m-%02d"
# time-stamp-end: "'"
# End:
AdaCurses-20211021/mk-1st.awk 0000644 0001751 0000144 00000006740 13615656212 014173 0 ustar tom users # $Id: mk-1st.awk,v 1.5 2020/02/02 23:34:34 tom Exp $
##############################################################################
# Copyright 2020 Thomas E. Dickey #
# Copyright 2010,2011 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 "Software"), #
# to deal in the Software without restriction, including without limitation #
# the rights to use, copy, modify, merge, publish, distribute, distribute #
# with modifications, 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. #
# #
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR #
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, #
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL #
# THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER #
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING #
# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER #
# DEALINGS IN THE SOFTWARE. #
# #
# Except as contained in this notice, the name(s) of the above copyright #
# holders shall not be used in advertising or otherwise to promote the sale, #
# use or other dealings in this Software without prior written #
# authorization. #
##############################################################################
#
# Author: Thomas E. Dickey
#
# Generate compile-rules for the Ada95 modules that we are using in libraries
# or programs. This script is used for older versions of gnatmake, which do
# not build libraries reliably, e.g., gnatmake 3.15.
#
# Fields in src/modules:
# $1 = module name
# $2 = directory where spec-dependency ".ads" is found
# $3 = directory where body-dependency ".adb" is found
# $4 = unit to compile (spec or body)
#
BEGIN {
printf "\n";
printf "# generated by Ada95/mk-1st.awk\n";
}
/^[#]/ {
next
}
/^$/ {
next
}
{
printf "\n";
printf "%s.o :", $1;
if ( $2 == "none" ) {
pre_spec = "";
} else if ( $2 == "." ) {
pre_spec = "";
printf " \\\n\t\t%s.ads", $1;
} else {
pre_spec = sprintf("%s/", $2);
printf " \\\n\t\t%s%s.ads", pre_spec, $1;
}
if ( $3 == "none" ) {
pre_body = "";
} else if ( $3 == "." ) {
pre_body = "";
printf " \\\n\t\t%s.adb", $1;
} else {
pre_body = sprintf("%s/", $3);
printf " \\\n\t\t%s%s.adb", pre_body, $1;
printf " \\\n\t\t$(BASEDEPS)";
}
if ( $4 == "spec" ) {
suffix = "ads";
prefix = pre_spec;
} else {
suffix = "adb";
prefix = pre_body;
}
printf "\n";
printf "\t$(ADA) $(ADAFLAGS) -c -o $@ %s%s.%s\n", prefix, $1, suffix
}
END {
print ""
}
AdaCurses-20211021/doc/ 0000755 0001751 0000144 00000000000 14134402303 013074 5 ustar tom users AdaCurses-20211021/doc/Ada95.html 0000644 0001751 0000144 00000031653 14114650007 014641 0 ustar tom users
Ada95 Binding for ncurses
Ada95 Binding for ncurses
by Jürgen Pfeifer.
General Remarks
This document describes Version 01.00 of the binding.
The functionality is modeled to be compatible with the
ncurses package, a clone of the SVr4 curses model.
I did the development on an Intel box running the latest stable
release of Linux, ncurses
and the most recent released GNU
Ada Translator gnat versions. For any older versions of
ncurses and gnat it is not guaranteed to work.
You must have the m4 macroprocessor to build this package.
If you don't have this program, you can get the FSF version
here.
Ada programs are supposed to be readable. One of my
favorite methods to make code readable is to use expressive
names for the identifiers. You can find a list of a mapping of
the cryptic curses names to the Ada names in this table.
This is not a typical one-to-one interface mapping. It is
close to one-to-one on the functional level. Each (n)curses
function has its counterpart with a more or less similar
formal parameter list in the binding. It is not one-to-one with
respect to the datatypes. I tried to make records out of the
flat chtype and similar structures, so you don't have to do bit
operations to mark an attributed character as bold. Just make
the boolean member bold of the record true.
The binding also hides the structures like WINDOW, PANEL, MENU,
FORM etc. ! It is a pure functional API.
I try to do as much error checking as possible and feasible
in the binding. I will raise an Ada exception when something
went wrong in the low-level curses. This has the effect that -
at least first time in my life - (n)curses programs have now a
very rigid error checking, but - thanks to Ada - you don't have
to code the orgiastic error checking style of C.
Support for wide characters is currently not in the
binding, as it is not really in ncurses at this point in
time.
Limitations
I provide no SCREEN datatype and functions to set a new
screen. If you need this (mostly for debugging I guess), write
a small C routine doing all this and import it into your Ada
program.
I provide no functions to switch on/off curses tracing
options. Same suggestion as above.
Although Ada95 is an OO Language, this binding doesn't
provide an OO abstraction of the (n)curses functionality. As
mentioned above it is a thin binding for the (n)curses
functions. But without any doubt it would be nice to build on
top of this an OO abstraction of (n)curses functionality.
The only exception is the method how fieldtypes are represented
in this Binding. We provide an abstract tagged type Field_Type
from which the various fieldtypes are derived.
I currently do not support the link_fieldtype functionality
of the forms subsystem.
If you want to navigate through the html pages of the package
specs, click here.
Implementation Details
Behind the abstraction
All the new types like Window,
Panel, Menu,
Form etc. are just opaque representations of the
pointers to the corresponding low level (n)curses structures like
WINDOW *, PANEL *, MENU
* or FORM *. So you can safely pass
them to C routines that expect a pointer to one of those
structures.
Extended ripoffline() usage
The official documentation of (n)curses says, that the line
parameter determines only whether or not exactly
one line is stolen from the top or bottom of the
screen. So essentially only the sign of the parameter is
evaluated. ncurses has internally implemented it in a way, that
uses the line parameter also to control the amount of lines to
steal. This mechanism is used in the
Rip_Off_Lines routine of the binding.
The (n)curses documentation says, that the String arrays to be
passed to an TYPE_ENUM fieldtype must not be automatic variables.
This is not true in this binding, because it is internally
arranged to safely copy these values.
Basically it should not be too hard to make all this run on a
regular SVr4 implementation of curses. The problems are probably
these:
ncurses has some additional features which are presented in
this binding. You have two choices to deal with this:
Emulate the feature in this binding
Raise an exception for non implemented features
Most likely you will follow a mixed approach. Some
features are easy to simulate, others will be hard if not
impossible.
I'm quite sure I forgot something.
AdaCurses-20211021/doc/MKada_config.in 0000644 0001751 0000144 00000010354 14062736752 015753 0 ustar tom users .\"***************************************************************************
.\" Copyright 2019-2020,2021 Thomas E. Dickey *
.\" Copyright 2010-2014,2016 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 *
.\" "Software"), to deal in the Software without restriction, including *
.\" without limitation the rights to use, copy, modify, merge, publish, *
.\" distribute, distribute with modifications, 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. *
.\" *
.\" THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS *
.\" OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF *
.\" MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. *
.\" IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, *
.\" DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR *
.\" OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR *
.\" THE USE OR OTHER DEALINGS IN THE SOFTWARE. *
.\" *
.\" Except as contained in this notice, the name(s) of the above copyright *
.\" holders shall not be used in advertising or otherwise to promote the *
.\" sale, use or other dealings in this Software without prior written *
.\" authorization. *
.\"***************************************************************************
.\"
.\" $Id: MKada_config.in,v 1.13 2021/06/17 21:26:02 tom Exp $
.ds C adacurses@USE_CFG_SUFFIX@\-config
.TH ADACURSES "1" "" "" "User Commands"
.SH NAME
adacurses@USE_CFG_SUFFIX@\-config \- helper script for @ADA_LIBNAME@ libraries
.SH SYNOPSIS
.B \*C
[\fIoptions\fR]
.SH DESCRIPTION
This is a shell script which simplifies configuring an application to use
the @ADA_LIBNAME@ library binding to ncurses.
.SH OPTIONS
.TP
\fB\-\-cflags\fR
echos the gnat (Ada compiler) flags needed to compile with @ADA_LIBNAME@.
.TP
\fB\-\-libs\fR
echos the gnat libraries needed to link with @ADA_LIBNAME@.
.TP
\fB\-\-version\fR
echos the release+patchdate version of the ncurses libraries used
to configure and build @ADA_LIBNAME@.
.TP
\fB\-\-help\fR
prints a list of the \fB\*C\fP script's options.
.PP
If no options are given, \fB\*C\fP prints the combination
of
\fB\-\-cflags\fR and
\fB\-\-libs\fR
that \fBgnatmake\fP expects (see example).
.SH EXAMPLE
.PP
For example, supposing that you want to compile the "Hello World!"
program for @ADA_LIBNAME@.
Make a file named "hello.adb":
.RS
.nf
.ft CW
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
procedure Hello is
Visibility : Cursor_Visibility := Invisible;
done : Boolean := False;
c : Key_Code;
begin
Init_Screen;
Set_Echo_Mode (False);
Set_Cursor_Visibility (Visibility);
Set_Timeout_Mode (Standard_Window, Non_Blocking, 0);
Move_Cursor (Line => Lines / 2, Column => (Columns - 12) / 2);
Add (Str => "Hello World!");
while not done loop
c := Get_Keystroke (Standard_Window);
case c is
when Character'Pos ('q') => done := True;
when others => null;
end case;
Nap_Milli_Seconds (50);
end loop;
End_Windows;
end Hello;
.fi
.RE
.PP
Then, using
.RS
.ft CW
gnatmake `adacurses-config --cflags` hello -largs `adacurses-config --libs`
.ft
.RE
.PP
or (simpler):
.RS
.ft CW
gnatmake hello `adacurses-config`
.ft
.RE
.PP
you will compile and link the program.
.SH "SEE ALSO"
\fBcurses\fR(3X)
.PP
This describes \fBncurses\fR
version @NCURSES_MAJOR@.@NCURSES_MINOR@ (patch @NCURSES_PATCH@).
AdaCurses-20211021/doc/ada/ 0000755 0001751 0000144 00000000000 14134402303 013621 5 ustar tom users AdaCurses-20211021/doc/ada/terminal_interface-curses-forms-form_user_data__ads.htm 0000644 0001751 0000144 00000022210 13615673306 026607 0 ustar tom users
terminal_interface-curses-forms-form_user_data.ads
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Forms.Form_User_Data ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1998-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.16 @-- Binding Version 01.00------------------------------------------------------------------------------generictypeUserislimitedprivate;
typeUser_AccessisaccessUser;
packageTerminal_Interface.Curses.Forms.Form_User_Dataispragma Preelaborate (Terminal_Interface.Curses.Forms.Form_User_Data);
-- |=====================================================================-- | Man page form_userptr.3x-- |=====================================================================-- |procedureSet_User_Data (Frm : Form;
Data : User_Access);
-- AKA: set_form_userptrpragma Inline (Set_User_Data);
-- |procedureGet_User_Data (Frm : Form;
Data : outUser_Access);
-- AKA: form_userptr-- |functionGet_User_Data (Frm : Form) returnUser_Access;
-- AKA: form_userptr-- Same as functionpragma Inline (Get_User_Data);
endTerminal_Interface.Curses.Forms.Form_User_Data;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Forms.Field_Types.IPV4_Address ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.13 @-- Binding Version 01.00------------------------------------------------------------------------------packageTerminal_Interface.Curses.Forms.Field_Types.IPV4_Addressispragma Preelaborate
(Terminal_Interface.Curses.Forms.Field_Types.IPV4_Address);
typeInternet_V4_Address_FieldisnewField_Typewithnullrecord;
procedureSet_Field_Type (Fld : Field;
Typ : Internet_V4_Address_Field);
pragma Inline (Set_Field_Type);
endTerminal_Interface.Curses.Forms.Field_Types.IPV4_Address;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Panels ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1998-2009,2014 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.23 @-- @Date: 2020/02/02 23:34:34 @-- Binding Version 01.00------------------------------------------------------------------------------with System;
packageTerminal_Interface.Curses.Panelsispragma Preelaborate (Terminal_Interface.Curses.Panels);
pragma Linker_Options ("-lpanel" & Curses_Constants.DFT_ARG_SUFFIX);
typePanelisprivate;
----------------------------- Interface constants -----------------------------Null_Panel : constantPanel;
--------------------- Exceptions ---------------------Panel_Exception : exception;
-- |=====================================================================-- | Man page panel.3x-- |=====================================================================-- |functionCreate (Win : Window) returnPanel;
-- AKA: new_panel()pragma Inline (Create);
-- |function New_Panel (Win : Window) returnPanelrenamesCreate;
-- AKA: new_panel()-- pragma Inline (New_Panel);-- |procedureBottom (Pan : Panel);
-- AKA: bottom_panel()pragma Inline (Bottom);
-- |procedureTop (Pan : Panel);
-- AKA: top_panel()pragma Inline (Top);
-- |procedureShow (Pan : Panel);
-- AKA: show_panel()pragma Inline (Show);
-- |procedureUpdate_Panels;
-- AKA: update_panels()pragma Import (C, Update_Panels, "update_panels");
-- |procedureHide (Pan : Panel);
-- AKA: hide_panel()pragma Inline (Hide);
-- |functionGet_Window (Pan : Panel) returnWindow;
-- AKA: panel_window()pragma Inline (Get_Window);
-- |function Panel_Window (Pan : Panel) returnWindowrenamesGet_Window;
-- pragma Inline (Panel_Window);-- |procedureReplace (Pan : Panel;
Win : Window);
-- AKA: replace_panel()pragma Inline (Replace);
-- |procedureMove (Pan : Panel;
Line : Line_Position;
Column : Column_Position);
-- AKA: move_panel()pragma Inline (Move);
-- |functionIs_Hidden (Pan : Panel) return Boolean;
-- AKA: panel_hidden()pragma Inline (Is_Hidden);
-- |functionAbove (Pan : Panel) returnPanel;
-- AKA: panel_above()pragma Import (C, Above, "panel_above");
-- |functionBelow (Pan : Panel) returnPanel;
-- AKA: panel_below()pragma Import (C, Below, "panel_below");
-- |procedureDelete (Pan : inoutPanel);
-- AKA: del_panel()pragma Inline (Delete);
privatetypePanelisnew System.Storage_Elements.Integer_Address;
Null_Panel : constantPanel := 0;
endTerminal_Interface.Curses.Panels;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Forms.Field_Types.User.Choice ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2011,2014 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.21 @-- @Date: 2020/02/02 23:34:34 @-- Binding Version 01.00------------------------------------------------------------------------------with System.Address_To_Access_Conversions;
withTerminal_Interface.Curses.Aux; useTerminal_Interface.Curses.Aux;
packagebodyTerminal_Interface.Curses.Forms.Field_Types.User.Choiceispackage Argument_Conversions isnew System.Address_To_Access_Conversions (Argument);
functionGeneric_Next (Fld : Field;
Usr : System.Address) returnCurses_BoolisResult : Boolean;
Udf : constantUser_Defined_Field_Type_With_Choice_Access :=
User_Defined_Field_Type_With_Choice_Access
(Argument_Access (Argument_Conversions.To_Pointer (Usr)).all.Typ);
beginResult := Next (Fld, Udf.all);
returnCurses_Bool (Boolean'Pos (Result));
endGeneric_Next;
functionGeneric_Prev (Fld : Field;
Usr : System.Address) returnCurses_BoolisResult : Boolean;
Udf : constantUser_Defined_Field_Type_With_Choice_Access :=
User_Defined_Field_Type_With_Choice_Access
(Argument_Access (Argument_Conversions.To_Pointer (Usr)).all.Typ);
beginResult := Previous (Fld, Udf.all);
returnCurses_Bool (Boolean'Pos (Result));
endGeneric_Prev;
-- -------------------------------------------------------------------------functionC_Generic_ChoicereturnC_Field_TypeisRes : Eti_Error;
T : C_Field_Type;
beginifM_Generic_Choice = Null_Field_TypethenT := New_Fieldtype (Generic_Field_Check'Access,
Generic_Char_Check'Access);
ifT = Null_Field_TypethenraiseForm_Exception;
elseRes := Set_Fieldtype_Arg (T,
Make_Arg'Access,
Copy_Arg'Access,
Free_Arg'Access);
Eti_Exception (Res);
Res := Set_Fieldtype_Choice (T,
Generic_Next'Access,
Generic_Prev'Access);
Eti_Exception (Res);
endif;
M_Generic_Choice := T;
endif;
pragma Assert (M_Generic_Choice /= Null_Field_Type);
returnM_Generic_Choice;
endC_Generic_Choice;
endTerminal_Interface.Curses.Forms.Field_Types.User.Choice;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Text_IO.Float_IO ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.12 @-- Binding Version 01.00------------------------------------------------------------------------------with Ada.Text_IO;
withTerminal_Interface.Curses.Text_IO.Aux;
packagebodyTerminal_Interface.Curses.Text_IO.Float_IOispackageAuxrenamesTerminal_Interface.Curses.Text_IO.Aux;
package FIO isnew Ada.Text_IO.Float_IO (Num);
procedurePut
(Win : Window;
Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp)
isBuf : String (1 .. Field'Last);
Len : Field := Fore + 1 + Aft;
beginifExp > 0 thenLen := Len + 1 + Exp;
endif;
FIO.Put (Buf, Item, Aft, Exp);
Aux.Put_Buf (Win, Buf, Len, False);
endPut;
procedurePut
(Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp)
isbeginPut (Get_Window, Item, Fore, Aft, Exp);
endPut;
endTerminal_Interface.Curses.Text_IO.Float_IO;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.PutWin ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 2000-2002,2003 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.5 @-- Binding Version 01.00with Ada.Streams.Stream_IO;
packageTerminal_Interface.Curses.PutWinisprocedurePut_Window (Win : Window;
File : Ada.Streams.Stream_IO.File_Type);
functionGet_Window (File : Ada.Streams.Stream_IO.File_Type) returnWindow;
endTerminal_Interface.Curses.PutWin;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Text_IO.Decimal_IO ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.12 @-- Binding Version 01.00------------------------------------------------------------------------------with Ada.Text_IO;
withTerminal_Interface.Curses.Text_IO.Aux;
packagebodyTerminal_Interface.Curses.Text_IO.Decimal_IOispackageAuxrenamesTerminal_Interface.Curses.Text_IO.Aux;
package DIO isnew Ada.Text_IO.Decimal_IO (Num);
procedurePut
(Win : Window;
Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp)
isBuf : String (1 .. Field'Last);
Len : Field := Fore + 1 + Aft;
beginifExp > 0 thenLen := Len + 1 + Exp;
endif;
DIO.Put (Buf, Item, Aft, Exp);
Aux.Put_Buf (Win, Buf, Len, False);
endPut;
procedurePut
(Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp) isbeginPut (Get_Window, Item, Fore, Aft, Exp);
endPut;
endTerminal_Interface.Curses.Text_IO.Decimal_IO;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Forms.Field_Types.RegExp ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.13 @-- Binding Version 01.00------------------------------------------------------------------------------packageTerminal_Interface.Curses.Forms.Field_Types.RegExpispragma Preelaborate (Terminal_Interface.Curses.Forms.Field_Types.RegExp);
typeString_Accessisaccess String;
typeRegular_Expression_FieldisnewField_TypewithrecordRegular_Expression : String_Access;
endrecord;
procedureSet_Field_Type (Fld : Field;
Typ : Regular_Expression_Field);
pragma Inline (Set_Field_Type);
endTerminal_Interface.Curses.Forms.Field_Types.RegExp;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Forms.Field_Types.IntField ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.13 @-- Binding Version 01.00------------------------------------------------------------------------------packageTerminal_Interface.Curses.Forms.Field_Types.IntFieldispragma Preelaborate (Terminal_Interface.Curses.Forms.Field_Types.IntField);
typeInteger_FieldisnewField_TypewithrecordPrecision : Natural;
Lower_Limit : Integer;
Upper_Limit : Integer;
endrecord;
procedureSet_Field_Type (Fld : Field;
Typ : Integer_Field);
pragma Inline (Set_Field_Type);
endTerminal_Interface.Curses.Forms.Field_Types.IntField;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Forms.Field_Types.Numeric ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2011,2014 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.15 @-- @Date: 2020/02/02 23:34:34 @-- Binding Version 01.00------------------------------------------------------------------------------withInterfaces.C;
withTerminal_Interface.Curses.Aux; useTerminal_Interface.Curses.Aux;
packagebodyTerminal_Interface.Curses.Forms.Field_Types.NumericisprocedureSet_Field_Type (Fld : Field;
Typ : Numeric_Field)
istypeDoubleisnewInterfaces.C.double;
functionSet_Fld_Type (F : Field := Fld;
Arg1 : C_Int;
Arg2 : Double;
Arg3 : Double) returnEti_Error;
pragma Import (C, Set_Fld_Type, "set_field_type_numeric");
beginEti_Exception (Set_Fld_Type (Arg1 => C_Int (Typ.Precision),
Arg2 => Double (Typ.Lower_Limit),
Arg3 => Double (Typ.Upper_Limit)));
Wrap_Builtin (Fld, Typ);
endSet_Field_Type;
endTerminal_Interface.Curses.Forms.Field_Types.Numeric;
AdaCurses-20211021/doc/ada/table.html 0000644 0001751 0000144 00000161026 13076721162 015617 0 ustar tom users
Correspondence between ncurses C and Ada functions
Correspondence between ncurses C and Ada functions
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Forms.Field_Types.IntField ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2011,2014 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.14 @-- @Date: 2020/02/02 23:34:34 @-- Binding Version 01.00------------------------------------------------------------------------------withTerminal_Interface.Curses.Aux; useTerminal_Interface.Curses.Aux;
packagebodyTerminal_Interface.Curses.Forms.Field_Types.IntFieldisprocedureSet_Field_Type (Fld : Field;
Typ : Integer_Field)
isfunctionSet_Fld_Type (F : Field := Fld;
Arg1 : C_Int;
Arg2 : C_Long_Int;
Arg3 : C_Long_Int) returnEti_Error;
pragma Import (C, Set_Fld_Type, "set_field_type_integer");
beginEti_Exception (Set_Fld_Type (Arg1 => C_Int (Typ.Precision),
Arg2 => C_Long_Int (Typ.Lower_Limit),
Arg3 => C_Long_Int (Typ.Upper_Limit)));
Wrap_Builtin (Fld, Typ);
endSet_Field_Type;
endTerminal_Interface.Curses.Forms.Field_Types.IntField;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Menus.Menu_User_Data ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1998-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.16 @-- Binding Version 01.00------------------------------------------------------------------------------generictypeUserislimitedprivate;
typeUser_AccessisaccessUser;
packageTerminal_Interface.Curses.Menus.Menu_User_Dataispragma Preelaborate (Terminal_Interface.Curses.Menus.Menu_User_Data);
-- |=====================================================================-- | Man page menu_userptr.3x-- |=====================================================================-- |procedureSet_User_Data (Men : Menu;
Data : User_Access);
-- AKA: set_menu_userptrpragma Inline (Set_User_Data);
-- |procedureGet_User_Data (Men : Menu;
Data : outUser_Access);
-- AKA: menu_userptr-- |functionGet_User_Data (Men : Menu) returnUser_Access;
-- AKA: menu_userptr-- Same as functionpragma Inline (Get_User_Data);
endTerminal_Interface.Curses.Menus.Menu_User_Data;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Forms.Field_Types ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2018,2020 Thomas E. Dickey ---- Copyright 1998-2011,2014 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.21 @-- Binding Version 01.00------------------------------------------------------------------------------withInterfaces.C;
withTerminal_Interface.Curses.Aux;
packageTerminal_Interface.Curses.Forms.Field_Typesispragma Preelaborate (Terminal_Interface.Curses.Forms.Field_Types);
subtypeC_IntisInterfaces.C.int;
-- |=====================================================================-- | Man page form_fieldtype.3x-- |=====================================================================typeField_Typeisabstracttaggednullrecord;
-- Abstract base type for all field types. A concrete field type-- is an extension that adds some data elements describing formats or-- boundary values for the type and validation routines.-- For the builtin low-level fieldtypes, the validation routines are-- already defined by the low-level C library.-- The builtin types like Alpha or AlphaNumeric etc. are defined in-- child packages of this package. You may use one of them as example-- how to create you own child packages for low-level field types that-- you may have already written in C.typeField_Type_AccessisaccessallField_Type'Class;
-- |procedureSet_Field_Type (Fld : Field;
Fld_Type : Field_Type) isabstract;
-- AKA: set_field_type()-- But: we hide the vararg mechanism of the C interface. You always-- have to pass a single Field_Type parameter.-- ----------------------------------------------------------------------- |=====================================================================-- | Man page form_field_validation.3x-- |=====================================================================-- |functionGet_Type (Fld : Field) returnField_Type_Access;
-- AKA: field_type()-- AKA: field_arg()-- In Ada95 we can combine these. If you try to retrieve the field type-- that is not defined as extension of the abstract tagged type above,-- you will raise a Form_Exception.-- This is not inlined-- +------------------------------------------------------------------------ | Private Part.-- | Most of this is used by the implementations of the child packages.-- |privatetypeMakearg_Functionisaccessfunction (Args : System.Address) return System.Address;
pragma Convention (C, Makearg_Function);
typeCopyarg_Functionisaccessfunction (Usr : System.Address) return System.Address;
pragma Convention (C, Copyarg_Function);
typeFreearg_Functionisaccessprocedure (Usr : System.Address);
pragma Convention (C, Freearg_Function);
typeField_Check_Functionisaccessfunction (Fld : Field; Usr : System.Address) returnCurses_Bool;
pragma Convention (C, Field_Check_Function);
typeChar_Check_Functionisaccessfunction (Ch : C_Int; Usr : System.Address) returnCurses_Bool;
pragma Convention (C, Char_Check_Function);
typeChoice_Functionisaccessfunction (Fld : Field; Usr : System.Address) returnCurses_Bool;
pragma Convention (C, Choice_Function);
-- +------------------------------------------------------------------------ | This must be in sync with the FIELDTYPE structure in form.h-- |typeLow_Level_Field_TypeisrecordStatus : Interfaces.C.unsigned_short;
Ref_Count : Interfaces.C.long;
Left, Right : System.Address;
Makearg : Makearg_Function;
Copyarg : Copyarg_Function;
Freearg : Freearg_Function;
Fcheck : Field_Check_Function;
Ccheck : Char_Check_Function;
Next, Prev : Choice_Function;
endrecord;
pragma Convention (C, Low_Level_Field_Type);
typeC_Field_TypeisaccessallLow_Level_Field_Type;
Null_Field_Type : constantC_Field_Type := null;
-- +------------------------------------------------------------------------ | This four low-level fieldtypes are the ones associated with-- | fieldtypes handled by this binding. Any other low-level fieldtype-- | will result in a Form_Exception is function Get_Type.-- |M_Generic_Type : C_Field_Type := null;
M_Generic_Choice : C_Field_Type := null;
M_Builtin_Router : C_Field_Type := null;
M_Choice_Router : C_Field_Type := null;
-- Two wrapper functions to access those low-level fieldtypes defined-- in this package.functionC_Builtin_RouterreturnC_Field_Type;
functionC_Choice_RouterreturnC_Field_Type;
procedureWrap_Builtin (Fld : Field;
Typ : Field_Type'Class;
Cft : C_Field_Type := C_Builtin_Router);
-- This procedure has to be called by the Set_Field_Type implementation-- for builtin low-level fieldtypes to replace it by an Ada95-- conformant Field_Type object.-- The parameter Cft must be C_Builtin_Router for regular low-level-- fieldtypes (like TYP_ALPHA or TYP_ALNUM) and C_Choice_Router for-- low-level fieldtypes witch choice functions (like TYP_ENUM).-- Any other value will raise a Form_Exception.functionMake_Arg (Args : System.Address) return System.Address;
pragma Import (C, Make_Arg, "void_star_make_arg");
-- This is the Makearg_Function for the internal low-level types-- introduced by this binding.functionCopy_Arg (Usr : System.Address) return System.Address;
pragma Convention (C, Copy_Arg);
-- This is the Copyarg_Function for the internal low-level types-- introduced by this binding.procedureFree_Arg (Usr : System.Address);
pragma Convention (C, Free_Arg);
-- This is the Freearg_Function for the internal low-level types-- introduced by this binding.functionField_Check_Router (Fld : Field;
Usr : System.Address) returnCurses_Bool;
pragma Convention (C, Field_Check_Router);
-- This is the Field_Check_Function for the internal low-level types-- introduced to wrap the low-level types by a Field_Type derived-- type. It routes the call to the corresponding low-level validation-- function.functionChar_Check_Router (Ch : C_Int;
Usr : System.Address) returnCurses_Bool;
pragma Convention (C, Char_Check_Router);
-- This is the Char_Check_Function for the internal low-level types-- introduced to wrap the low-level types by a Field_Type derived-- type. It routes the call to the corresponding low-level validation-- function.functionNext_Router (Fld : Field;
Usr : System.Address) returnCurses_Bool;
pragma Convention (C, Next_Router);
-- This is the Choice_Function for the internal low-level types-- introduced to wrap the low-level types by a Field_Type derived-- type. It routes the call to the corresponding low-level next_choice-- function.functionPrev_Router (Fld : Field;
Usr : System.Address) returnCurses_Bool;
pragma Convention (C, Prev_Router);
-- This is the Choice_Function for the internal low-level types-- introduced to wrap the low-level types by a Field_Type derived-- type. It routes the call to the corresponding low-level prev_choice-- function.-- This is the Argument structure maintained by all low-level field types-- introduced by this binding.typeArgumentisrecordTyp : Field_Type_Access; -- the Field_Type creating this recordUsr : System.Address; -- original arg for builtin low-level typesCft : C_Field_Type; -- the original low-level typeendrecord;
typeArgument_AccessisaccessallArgument;
-- +------------------------------------------------------------------------ |-- | Some Imports of libform routines to deal with low-level fieldtypes.-- |functionNew_Fieldtype (Fcheck : Field_Check_Function;
Ccheck : Char_Check_Function)
returnC_Field_Type;
pragma Import (C, New_Fieldtype, "new_fieldtype");
functionSet_Fieldtype_Arg (Cft : C_Field_Type;
Mak : Makearg_Function := Make_Arg'Access;
Cop : Copyarg_Function := Copy_Arg'Access;
Fre : Freearg_Function := Free_Arg'Access)
returnAux.Eti_Error;
pragma Import (C, Set_Fieldtype_Arg, "set_fieldtype_arg");
functionSet_Fieldtype_Choice (Cft : C_Field_Type;
Next, Prev : Choice_Function)
returnAux.Eti_Error;
pragma Import (C, Set_Fieldtype_Choice, "set_fieldtype_choice");
endTerminal_Interface.Curses.Forms.Field_Types;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Forms.Field_User_Data ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2018,2020 Thomas E. Dickey ---- Copyright 1999-2009,2014 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.17 @-- Binding Version 01.00------------------------------------------------------------------------------withTerminal_Interface.Curses.Aux; useTerminal_Interface.Curses.Aux;
-- |-- |=====================================================================-- | man page form_field_userptr.3x-- |=====================================================================-- |packagebodyTerminal_Interface.Curses.Forms.Field_User_Datais-- |-- |-- |procedureSet_User_Data (Fld : Field;
Data : User_Access)
isfunctionSet_Field_Userptr (Fld : Field;
Usr : User_Access) returnEti_Error;
pragma Import (C, Set_Field_Userptr, "set_field_userptr");
beginEti_Exception (Set_Field_Userptr (Fld, Data));
endSet_User_Data;
-- |-- |-- |functionGet_User_Data (Fld : Field) returnUser_AccessisfunctionField_Userptr (Fld : Field) returnUser_Access;
pragma Import (C, Field_Userptr, "field_userptr");
beginreturnField_Userptr (Fld);
endGet_User_Data;
procedureGet_User_Data (Fld : Field;
Data : outUser_Access)
isbeginData := Get_User_Data (Fld);
endGet_User_Data;
endTerminal_Interface.Curses.Forms.Field_User_Data;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Forms.Field_Types.AlphaNumeric ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2011,2014 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.14 @-- @Date: 2020/02/02 23:34:34 @-- Binding Version 01.00------------------------------------------------------------------------------withTerminal_Interface.Curses.Aux; useTerminal_Interface.Curses.Aux;
packagebodyTerminal_Interface.Curses.Forms.Field_Types.AlphaNumericisprocedureSet_Field_Type (Fld : Field;
Typ : AlphaNumeric_Field)
isfunctionSet_Fld_Type (F : Field := Fld;
Arg1 : C_Int) returnEti_Error;
pragma Import (C, Set_Fld_Type, "set_field_type_alnum");
beginEti_Exception (Set_Fld_Type (Arg1 => C_Int (Typ.Minimum_Field_Width)));
Wrap_Builtin (Fld, Typ);
endSet_Field_Type;
endTerminal_Interface.Curses.Forms.Field_Types.AlphaNumeric;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Menus.Item_User_Data ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2018,2020 Thomas E. Dickey ---- Copyright 1999-2009,2014 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.16 @-- Binding Version 01.00------------------------------------------------------------------------------withTerminal_Interface.Curses.Aux; useTerminal_Interface.Curses.Aux;
packagebodyTerminal_Interface.Curses.Menus.Item_User_DataisprocedureSet_User_Data (Itm : Item;
Data : User_Access)
isfunctionSet_Item_Userptr (Itm : Item;
Addr : User_Access) returnEti_Error;
pragma Import (C, Set_Item_Userptr, "set_item_userptr");
beginEti_Exception (Set_Item_Userptr (Itm, Data));
endSet_User_Data;
functionGet_User_Data (Itm : Item) returnUser_AccessisfunctionItem_Userptr (Itm : Item) returnUser_Access;
pragma Import (C, Item_Userptr, "item_userptr");
beginreturnItem_Userptr (Itm);
endGet_User_Data;
procedureGet_User_Data (Itm : Item;
Data : outUser_Access)
isbeginData := Get_User_Data (Itm);
endGet_User_Data;
endTerminal_Interface.Curses.Menus.Item_User_Data;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Text_IO.Integer_IO ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.12 @-- Binding Version 01.00------------------------------------------------------------------------------with Ada.Text_IO;
withTerminal_Interface.Curses.Text_IO.Aux;
packagebodyTerminal_Interface.Curses.Text_IO.Integer_IOispackageAuxrenamesTerminal_Interface.Curses.Text_IO.Aux;
package IIO isnew Ada.Text_IO.Integer_IO (Num);
procedurePut
(Win : Window;
Item : Num;
Width : Field := Default_Width;
Base : Number_Base := Default_Base)
isBuf : String (1 .. Field'Last);
begin
IIO.Put (Buf, Item, Base);
Aux.Put_Buf (Win, Buf, Width);
endPut;
procedurePut
(Item : Num;
Width : Field := Default_Width;
Base : Number_Base := Default_Base)
isbeginPut (Get_Window, Item, Width, Base);
endPut;
endTerminal_Interface.Curses.Text_IO.Integer_IO;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.PutWin ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 2000-2002,2003 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.5 @-- Binding Version 01.00with Ada.Streams.Stream_IO.C_Streams;
withInterfaces.C_Streams;
withTerminal_Interface.Curses.Aux; useTerminal_Interface.Curses.Aux;
packagebodyTerminal_Interface.Curses.PutWinispackageICSrenamesInterfaces.C_Streams;
packageACSrenames Ada.Streams.Stream_IO.C_Streams;
usetypeC_Int;
procedurePut_Window (Win : Window;
File : Ada.Streams.Stream_IO.File_Type) isfunctionputwin (Win : Window; f : ICS.FILEs) returnC_Int;
pragma Import (C, putwin, "putwin");
R : constantC_Int := putwin (Win, ACS.C_Stream (File));
beginifR /= Curses_OkthenraiseCurses_Exception;
endif;
endPut_Window;
functionGet_Window (File : Ada.Streams.Stream_IO.File_Type)
returnWindowisfunctiongetwin (f : ICS.FILEs) returnWindow;
pragma Import (C, getwin, "getwin");
W : constantWindow := getwin (ACS.C_Stream (File));
beginifW = Null_WindowthenraiseCurses_Exception;
elsereturnW;
endif;
endGet_Window;
endTerminal_Interface.Curses.PutWin;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Text_IO.Aux ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2006,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.15 @-- @Date: 2020/02/02 23:34:34 @-- Binding Version 01.00------------------------------------------------------------------------------privatepackageTerminal_Interface.Curses.Text_IO.Auxis-- pragma Preelaborate (Aux);-- This routine is called from the Text_IO output routines for numeric-- and enumeration types.--procedurePut_Buf
(Win : Window; -- The output windowBuf : String; -- The buffer containing the textWidth : Field; -- The width of the output fieldSignal : Boolean := True; -- If true, we raise Layout_ErrorLjust : Boolean := False); -- The Buf is left justifiedendTerminal_Interface.Curses.Text_IO.Aux;
AdaCurses-20211021/doc/ada/funcs/ 0000755 0001751 0000144 00000000000 14134402303 014737 5 ustar tom users AdaCurses-20211021/doc/ada/funcs/H.htm 0000644 0001751 0000144 00000003252 13615673306 015662 0 ustar tom users
H
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Termcap ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 2000-2006,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.13 @-- @Date: 2020/02/02 23:34:34 @-- Binding Version 01.00------------------------------------------------------------------------------withTerminal_Interface.Curses.Aux; useTerminal_Interface.Curses.Aux;
withInterfaces.C; useInterfaces.C;
withInterfaces.C.Strings; useInterfaces.C.Strings;
packagebodyTerminal_Interface.Curses.TermcapisfunctionGet_Entry (Name : String) return Boolean
isfunctiontgetent (name : char_array; val : char_array)
returnC_Int;
pragma Import (C, tgetent, "tgetent");
NameTxt : char_array (0 .. Name'Length);
Length : size_t;
ignored : constant char_array (0 .. 0) := (0 => nul);
result : C_Int;
begin
To_C (Name, NameTxt, Length);
result := tgetent (char_array (ignored), NameTxt);
ifresult = -1 thenraiseCurses_Exception;
elsereturn Boolean'Val (result);
endif;
endGet_Entry;
------------------------------------------------------------------------------functionGet_Flag (Name : String) return Boolean
isfunctiontgetflag (id : char_array) returnC_Int;
pragma Import (C, tgetflag, "tgetflag");
Txt : char_array (0 .. Name'Length);
Length : size_t;
begin
To_C (Name, Txt, Length);
iftgetflag (Txt) = 0 thenreturn False;
elsereturn True;
endif;
endGet_Flag;
------------------------------------------------------------------------------procedureGet_Number (Name : String;
Value : out Integer;
Result : out Boolean)
isfunctiontgetnum (id : char_array) returnC_Int;
pragma Import (C, tgetnum, "tgetnum");
Txt : char_array (0 .. Name'Length);
Length : size_t;
begin
To_C (Name, Txt, Length);
Value := Integer (tgetnum (Txt));
ifValue = -1 thenResult := False;
elseResult := True;
endif;
endGet_Number;
------------------------------------------------------------------------------procedureGet_String (Name : String;
Value : out String;
Result : out Boolean)
isfunctiontgetstr (id : char_array;
buf : char_array) return chars_ptr;
pragma Import (C, tgetstr, "tgetstr");
Txt : char_array (0 .. Name'Length);
Length : size_t;
Txt2 : chars_ptr;
type t isnew char_array (0 .. 1024); -- does it need to be 1024?Return_Buffer : constant t := (others => nul);
begin
To_C (Name, Txt, Length);
Txt2 := tgetstr (Txt, char_array (Return_Buffer));
ifTxt2 = Null_Ptr thenResult := False;
elseValue := Fill_String (Txt2);
Result := True;
endif;
endGet_String;
functionGet_String (Name : String) return Boolean
isfunctiontgetstr (Id : char_array;
buf : char_array) return chars_ptr;
pragma Import (C, tgetstr, "tgetstr");
Txt : char_array (0 .. Name'Length);
Length : size_t;
Txt2 : chars_ptr;
type t isnew char_array (0 .. 1024); -- does it need to be 1024?Phony_Txt : constant t := (others => nul);
begin
To_C (Name, Txt, Length);
Txt2 := tgetstr (Txt, char_array (Phony_Txt));
ifTxt2 = Null_Ptr thenreturn False;
elsereturn True;
endif;
endGet_String;
------------------------------------------------------------------------------functionTGoto (Cap : String;
Col : Column_Position;
Row : Line_Position) return Termcap_String isfunctiontgoto (cap : char_array;
col : C_Int;
row : C_Int) return chars_ptr;
pragma Import (C, tgoto);
Txt : char_array (0 .. Cap'Length);
Length : size_t;
begin
To_C (Cap, Txt, Length);
return Termcap_String (Fill_String
(tgoto (Txt, C_Int (Col), C_Int (Row))));
endTGoto;
endTerminal_Interface.Curses.Termcap;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Forms.Field_Types.IPV4_Address ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2011,2014 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.14 @-- @Date: 2020/02/02 23:34:34 @-- Binding Version 01.00------------------------------------------------------------------------------withTerminal_Interface.Curses.Aux; useTerminal_Interface.Curses.Aux;
packagebodyTerminal_Interface.Curses.Forms.Field_Types.IPV4_AddressisprocedureSet_Field_Type (Fld : Field;
Typ : Internet_V4_Address_Field)
isfunctionSet_Fld_Type (F : Field := Fld)
returnEti_Error;
pragma Import (C, Set_Fld_Type, "set_field_type_ipv4");
beginEti_Exception (Set_Fld_Type);
Wrap_Builtin (Fld, Typ);
endSet_Field_Type;
endTerminal_Interface.Curses.Forms.Field_Types.IPV4_Address;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Aux ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.12 @-- Binding Version 01.00------------------------------------------------------------------------------packagebodyTerminal_Interface.Curses.Auxis---- Some helpersprocedureFill_String (Cp : chars_ptr;
Str : out String)
is-- Fill the string with the characters referenced by the-- chars_ptr.--Len : Natural;
beginifCp /= Null_Ptr thenLen := Natural (Strlen (Cp));
ifStr'Length < Lenthenraise Constraint_Error;
endif;
declareS : String (1 .. Len);
beginS := Value (Cp);
Str (Str'First .. (Str'First + Len - 1)) := S (S'Range);
end;
elseLen := 0;
endif;
ifLen < Str'Length thenStr ((Str'First + Len) .. Str'Last) := (others => ' ');
endif;
endFill_String;
functionFill_String (Cp : chars_ptr) return String
isLen : Natural;
beginifCp /= Null_Ptr thenLen := Natural (Strlen (Cp));
ifLen = 0 thenreturn "";
elsedeclareS : String (1 .. Len);
beginFill_String (Cp, S);
returnS;
end;
endif;
elsereturn "";
endif;
endFill_String;
procedureEti_Exception (Code : Eti_Error)
isbegincaseCodeiswhenE_Ok => null;
whenE_System_Error => raiseEti_System_Error;
whenE_Bad_Argument => raiseEti_Bad_Argument;
whenE_Posted => raiseEti_Posted;
whenE_Connected => raiseEti_Connected;
whenE_Bad_State => raiseEti_Bad_State;
whenE_No_Room => raiseEti_No_Room;
whenE_Not_Posted => raiseEti_Not_Posted;
whenE_Unknown_Command => raiseEti_Unknown_Command;
whenE_No_Match => raiseEti_No_Match;
whenE_Not_Selectable => raiseEti_Not_Selectable;
whenE_Not_Connected => raiseEti_Not_Connected;
whenE_Request_Denied => raiseEti_Request_Denied;
whenE_Invalid_Field => raiseEti_Invalid_Field;
whenE_Current => raiseEti_Current;
endcase;
endEti_Exception;
endTerminal_Interface.Curses.Aux;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Menus.Item_User_Data ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1998-2006,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.18 @-- @Date: 2020/02/02 23:34:34 @-- Binding Version 01.00------------------------------------------------------------------------------generictypeUserislimitedprivate;
typeUser_AccessisaccessUser;
packageTerminal_Interface.Curses.Menus.Item_User_Dataispragma Preelaborate (Terminal_Interface.Curses.Menus.Item_User_Data);
-- The binding uses the same user pointer for menu items-- as the low level C implementation. So you can safely-- read or write the user pointer also with the C routines---- |=====================================================================-- | Man page mitem_userptr.3x-- |=====================================================================-- |procedureSet_User_Data (Itm : Item;
Data : User_Access);
-- AKA: set_item_userptrpragma Inline (Set_User_Data);
-- |procedureGet_User_Data (Itm : Item;
Data : outUser_Access);
-- AKA: item_userptr-- |functionGet_User_Data (Itm : Item) returnUser_Access;
-- AKA: item_userptr-- Same as functionpragma Inline (Get_User_Data);
endTerminal_Interface.Curses.Menus.Item_User_Data;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Text_IO.Fixed_IO ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.13 @-- Binding Version 01.00------------------------------------------------------------------------------generictypeNumisdelta <>;
packageTerminal_Interface.Curses.Text_IO.Fixed_IOisDefault_Fore : Field := Num'Fore;
Default_Aft : Field := Num'Aft;
Default_Exp : Field := 0;
procedurePut
(Win : Window;
Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp);
procedurePut
(Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp);
privatepragma Inline (Put);
endTerminal_Interface.Curses.Text_IO.Fixed_IO;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Text_IO.Decimal_IO ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.13 @-- Binding Version 01.00------------------------------------------------------------------------------generictypeNumisdelta <> digits <>;
packageTerminal_Interface.Curses.Text_IO.Decimal_IOisDefault_Fore : Field := Num'Fore;
Default_Aft : Field := Num'Aft;
Default_Exp : Field := 0;
procedurePut
(Win : Window;
Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp);
procedurePut
(Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp);
privatepragma Inline (Put);
endTerminal_Interface.Curses.Text_IO.Decimal_IO;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Menus.Menu_User_Data ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2018,2020 Thomas E. Dickey ---- Copyright 1999-2009,2014 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.17 @-- Binding Version 01.00------------------------------------------------------------------------------withTerminal_Interface.Curses.Aux; useTerminal_Interface.Curses.Aux;
packagebodyTerminal_Interface.Curses.Menus.Menu_User_DataisprocedureSet_User_Data (Men : Menu;
Data : User_Access)
isfunctionSet_Menu_Userptr (Men : Menu;
Data : User_Access) returnEti_Error;
pragma Import (C, Set_Menu_Userptr, "set_menu_userptr");
beginEti_Exception (Set_Menu_Userptr (Men, Data));
endSet_User_Data;
functionGet_User_Data (Men : Menu) returnUser_AccessisfunctionMenu_Userptr (Men : Menu) returnUser_Access;
pragma Import (C, Menu_Userptr, "menu_userptr");
beginreturnMenu_Userptr (Men);
endGet_User_Data;
procedureGet_User_Data (Men : Menu;
Data : outUser_Access)
isbeginData := Get_User_Data (Men);
endGet_User_Data;
endTerminal_Interface.Curses.Menus.Menu_User_Data;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Forms.Field_Types.User ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2009,2011 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.16 @-- @Date: 2020/02/02 23:34:34 @-- Binding Version 01.00------------------------------------------------------------------------------withInterfaces.C;
packageTerminal_Interface.Curses.Forms.Field_Types.Userispragma Preelaborate (Terminal_Interface.Curses.Forms.Field_Types.User);
subtypeC_IntisInterfaces.C.int;
typeUser_Defined_Field_TypeisabstractnewField_Typewithnullrecord;
-- This is the root of the mechanism we use to create field types in-- Ada95. You should your own type derive from this one and implement-- the Field_Check and Character_Check functions for your own type.typeUser_Defined_Field_Type_AccessisaccessallUser_Defined_Field_Type'Class;
functionField_Check
(Fld : Field;
Typ : User_Defined_Field_Type) return Boolean
isabstract;
-- If True is returned, the field is considered valid, otherwise it is-- invalid.functionCharacter_Check
(Ch : Character;
Typ : User_Defined_Field_Type) return Boolean
isabstract;
-- If True is returned, the character is considered as valid for the-- field, otherwise as invalid.procedureSet_Field_Type (Fld : Field;
Typ : User_Defined_Field_Type);
-- This should work for all types derived from User_Defined_Field_Type.-- No need to reimplement it for your derived type.-- +------------------------------------------------------------------------ | Private Part.-- | Used by the Choice child package.privatefunctionC_Generic_TypereturnC_Field_Type;
functionGeneric_Field_Check (Fld : Field;
Usr : System.Address) returnCurses_Bool;
pragma Convention (C, Generic_Field_Check);
-- This is the generic Field_Check_Function for the low-level fieldtype-- representing all the User_Defined_Field_Type derivatives. It routes-- the call to the Field_Check implementation for the type.functionGeneric_Char_Check (Ch : C_Int;
Usr : System.Address) returnCurses_Bool;
pragma Convention (C, Generic_Char_Check);
-- This is the generic Char_Check_Function for the low-level fieldtype-- representing all the User_Defined_Field_Type derivatives. It routes-- the call to the Character_Check implementation for the type.endTerminal_Interface.Curses.Forms.Field_Types.User;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Text_IO ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.15 @-- Binding Version 01.00------------------------------------------------------------------------------with Ada.Text_IO;
with Ada.IO_Exceptions;
packageTerminal_Interface.Curses.Text_IOisusetype Ada.Text_IO.Count;
subtypeCountis Ada.Text_IO.Count;
subtypePositive_CountisCountrange 1 .. Count'Last;
subtypeFieldis Ada.Text_IO.Field;
subtypeNumber_Baseis Integer range 2 .. 16;
typeType_Setis (Lower_Case, Upper_Case, Mixed_Case);
-- For most of the routines you will see a version without a Window-- type parameter. They will operate on a default window, which can-- be set by the user. It is initially equal to Standard_Window.procedureSet_Window (Win : Window);
-- Set Win as the default windowfunctionGet_WindowreturnWindow;
-- Get the current default windowprocedureFlush (Win : Window);
procedureFlush;
---------------------------------------------- Specification of line and page lengths ------------------------------------------------ There are no set routines in this package. I assume, that you allocate-- the window with an appropriate size.-- A scroll-window is interpreted as an page with unbounded page length,-- i.e. it returns the conventional 0 as page length.functionLine_Length (Win : Window) returnCount;
functionLine_LengthreturnCount;
functionPage_Length (Win : Window) returnCount;
functionPage_LengthreturnCount;
-------------------------------------- Column, Line, and Page Control --------------------------------------procedureNew_Line (Win : Window; Spacing : Positive_Count := 1);
procedureNew_Line (Spacing : Positive_Count := 1);
procedureNew_Page (Win : Window);
procedureNew_Page;
procedureSet_Col (Win : Window; To : Positive_Count);
procedureSet_Col (To : Positive_Count);
procedureSet_Line (Win : Window; To : Positive_Count);
procedureSet_Line (To : Positive_Count);
functionCol (Win : Window) returnPositive_Count;
functionColreturnPositive_Count;
functionLine (Win : Window) returnPositive_Count;
functionLinereturnPositive_Count;
------------------------- Characters-Output -------------------------procedurePut (Win : Window; Item : Character);
procedurePut (Item : Character);
---------------------- Strings-Output ----------------------procedurePut (Win : Window; Item : String);
procedurePut (Item : String);
procedurePut_Line
(Win : Window;
Item : String);
procedurePut_Line
(Item : String);
-- ExceptionsStatus_Error : exceptionrenames Ada.IO_Exceptions.Status_Error;
Mode_Error : exceptionrenames Ada.IO_Exceptions.Mode_Error;
Name_Error : exceptionrenames Ada.IO_Exceptions.Name_Error;
Use_Error : exceptionrenames Ada.IO_Exceptions.Use_Error;
Device_Error : exceptionrenames Ada.IO_Exceptions.Device_Error;
End_Error : exceptionrenames Ada.IO_Exceptions.End_Error;
Data_Error : exceptionrenames Ada.IO_Exceptions.Data_Error;
Layout_Error : exceptionrenames Ada.IO_Exceptions.Layout_Error;
endTerminal_Interface.Curses.Text_IO;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Forms.Field_Types.Enumeration.Ada ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2004,2011 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.12 @-- @Date: 2020/02/02 23:34:34 @-- Binding Version 01.00------------------------------------------------------------------------------with Ada.Characters.Handling; use Ada.Characters.Handling;
packagebodyTerminal_Interface.Curses.Forms.Field_Types.Enumeration.AdaisfunctionCreate (Set : Type_Set := Mixed_Case;
Case_Sensitive : Boolean := False;
Must_Be_Unique : Boolean := False)
returnEnumeration_FieldisI : Enumeration_Info (T'Pos (T'Last) - T'Pos (T'First) + 1);
J : Positive := 1;
beginI.Case_Sensitive := Case_Sensitive;
I.Match_Must_Be_Unique := Must_Be_Unique;
forEinT'RangeloopI.Names (J) := new String'(T'Image (E));
-- The Image attribute defaults to upper case, so we have to handle-- only the other ones...ifSet /= Upper_CasethenI.Names (J).all := To_Lower (I.Names (J).all);
ifSet = Mixed_CasethenI.Names (J).all (I.Names (J).all'First) :=
To_Upper (I.Names (J).all (I.Names (J).all'First));
endif;
endif;
J := J + 1;
endloop;
returnCreate (I, True);
endCreate;
functionValue (Fld : Field;
Buf : Buffer_Number := Buffer_Number'First) returnTisbeginreturnT'Value (Get_Buffer (Fld, Buf));
endValue;
endTerminal_Interface.Curses.Forms.Field_Types.Enumeration.Ada;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Forms.Field_Types.Numeric ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.13 @-- Binding Version 01.00------------------------------------------------------------------------------packageTerminal_Interface.Curses.Forms.Field_Types.Numericispragma Preelaborate (Terminal_Interface.Curses.Forms.Field_Types.Numeric);
typeNumeric_FieldisnewField_TypewithrecordPrecision : Natural;
Lower_Limit : Float;
Upper_Limit : Float;
endrecord;
procedureSet_Field_Type (Fld : Field;
Typ : Numeric_Field);
pragma Inline (Set_Field_Type);
endTerminal_Interface.Curses.Forms.Field_Types.Numeric;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Termcap ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 2000-2002,2003 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.5 @-- Binding Version 01.00------------------------------------------------------------------------------packageTerminal_Interface.Curses.Termcapispragma Preelaborate (Terminal_Interface.Curses.Termcap);
-- |=====================================================================-- | Man page curs_termcap.3x-- |=====================================================================-- Not implemented: tputs (see curs_terminfo)type Termcap_String isnew String;
-- |functionTGoto (Cap : String;
Col : Column_Position;
Row : Line_Position) return Termcap_String;
-- AKA: tgoto()-- |functionGet_Entry (Name : String) return Boolean;
-- AKA: tgetent()-- |functionGet_Flag (Name : String) return Boolean;
-- AKA: tgetflag()-- |procedureGet_Number (Name : String;
Value : out Integer;
Result : out Boolean);
-- AKA: tgetnum()-- |procedureGet_String (Name : String;
Value : out String;
Result : out Boolean);
functionGet_String (Name : String) return Boolean;
-- Returns True if the string is found.-- AKA: tgetstr()endTerminal_Interface.Curses.Termcap;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Text_IO.Aux ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2006,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.14 @-- @Date: 2020/02/02 23:34:34 @-- Binding Version 01.00------------------------------------------------------------------------------packagebodyTerminal_Interface.Curses.Text_IO.AuxisprocedurePut_Buf
(Win : Window;
Buf : String;
Width : Field;
Signal : Boolean := True;
Ljust : Boolean := False)
isL : Field;
Len : Field;
W : Field := Width;
LC : Line_Count;
CC : Column_Count;
Y : Line_Position;
X : Column_Position;
procedureOutput (From, To : Field);
procedureOutput (From, To : Field)
isbeginifLen > 0 thenifW = 0 thenW := Len;
endif;
ifLen > Wthen-- LRM A10.6 (7) says thisW := Len;
endif;
pragma Assert (Len <= W);
Get_Size (Win, LC, CC);
ifColumn_Count (Len) > CCthenifSignalthenraiseLayout_Error;
elsereturn;
endif;
elseifLen < WandthennotLjustthendeclareFiller : constant String (1 .. (W - Len))
:= (others => ' ');
beginPut (Win, Filler);
end;
endif;
Get_Cursor_Position (Win, Y, X);
if (X + Column_Position (Len)) > CCthenNew_Line (Win);
endif;
Put (Win, Buf (From .. To));
ifLen < WandthenLjustthendeclareFiller : constant String (1 .. (W - Len))
:= (others => ' ');
beginPut (Win, Filler);
end;
endif;
endif;
endif;
endOutput;
beginpragma Assert (Win /= Null_Window);
ifLjustthenL := 1;
forIin 1 .. Buf'Length loopexitwhenBuf (L) = ' ';
L := L + 1;
endloop;
Len := L - 1;
Output (1, Len);
else-- input buffer is not left justifiedL := Buf'Length;
forIin 1 .. Buf'Length loopexitwhenBuf (L) = ' ';
L := L - 1;
endloop;
Len := Buf'Length - L;
Output (L + 1, Buf'Length);
endif;
endPut_Buf;
endTerminal_Interface.Curses.Text_IO.Aux;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Text_IO.Float_IO ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.13 @-- Binding Version 01.00------------------------------------------------------------------------------generictypeNumisdigits <>;
packageTerminal_Interface.Curses.Text_IO.Float_IOisDefault_Fore : Field := 2;
Default_Aft : Field := Num'Digits - 1;
Default_Exp : Field := 3;
procedurePut
(Win : Window;
Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp);
procedurePut
(Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp);
privatepragma Inline (Put);
endTerminal_Interface.Curses.Text_IO.Float_IO;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Forms.Field_Types.Enumeration ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2018,2020 Thomas E. Dickey ---- Copyright 1999-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.15 @-- Binding Version 01.00------------------------------------------------------------------------------withInterfaces.C.Strings;
packageTerminal_Interface.Curses.Forms.Field_Types.Enumerationispragma Preelaborate
(Terminal_Interface.Curses.Forms.Field_Types.Enumeration);
typeString_Accessisaccess String;
-- Type_Set is used by the child package AdatypeType_Setis (Lower_Case, Upper_Case, Mixed_Case);
type Enum_Array isarray (Positive range <>)
ofString_Access;
typeEnumeration_Info (C : Positive) isrecordCase_Sensitive : Boolean := False;
Match_Must_Be_Unique : Boolean := False;
Names : Enum_Array (1 .. C);
endrecord;
typeEnumeration_FieldisnewField_Typewithprivate;
functionCreate (Info : Enumeration_Info;
Auto_Release_Names : Boolean := False)
returnEnumeration_Field;
-- Make an fieldtype from the info. Enumerations are special, because-- they normally don't copy the enum values into a private store, so-- we have to care for the lifetime of the info we provide.-- The Auto_Release_Names flag may be used to automatically releases-- the strings in the Names array of the Enumeration_Info.function Make_Enumeration_Type (Info : Enumeration_Info;
Auto_Release_Names : Boolean := False)
returnEnumeration_FieldrenamesCreate;
procedureRelease (Enum : inoutEnumeration_Field);
-- But we may want to release the field to release the memory allocated-- by it internally. After that the Enumeration field is no longer usable.-- The next type definitions are all ncurses extensions. They are typically-- not available in other curses implementations.procedureSet_Field_Type (Fld : Field;
Typ : Enumeration_Field);
pragma Inline (Set_Field_Type);
privatetypeCPA_AccessisaccessInterfaces.C.Strings.chars_ptr_array;
typeEnumeration_FieldisnewField_TypewithrecordCase_Sensitive : Boolean := False;
Match_Must_Be_Unique : Boolean := False;
Arr : CPA_Access := null;
endrecord;
endTerminal_Interface.Curses.Forms.Field_Types.Enumeration;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Forms.Field_Types.Enumeration.Ada ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2002,2003 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.12 @-- Binding Version 01.00------------------------------------------------------------------------------generictypeTis (<>);
packageTerminal_Interface.Curses.Forms.Field_Types.Enumeration.Adaispragma Preelaborate
(Terminal_Interface.Curses.Forms.Field_Types.Enumeration.Ada);
functionCreate (Set : Type_Set := Mixed_Case;
Case_Sensitive : Boolean := False;
Must_Be_Unique : Boolean := False)
returnEnumeration_Field;
functionValue (Fld : Field;
Buf : Buffer_Number := Buffer_Number'First) returnT;
-- Translate the content of the fields buffer - indicated by the-- buffer number - into an enumeration value. If the buffer is empty-- or the content is invalid, a Constraint_Error is raises.endTerminal_Interface.Curses.Forms.Field_Types.Enumeration.Ada;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Forms.Field_Types.Alpha ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2011,2014 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.14 @-- @Date: 2020/02/02 23:34:34 @-- Binding Version 01.00------------------------------------------------------------------------------withTerminal_Interface.Curses.Aux; useTerminal_Interface.Curses.Aux;
packagebodyTerminal_Interface.Curses.Forms.Field_Types.AlphaisprocedureSet_Field_Type (Fld : Field;
Typ : Alpha_Field)
isfunctionSet_Fld_Type (F : Field := Fld;
Arg1 : C_Int) returnEti_Error;
pragma Import (C, Set_Fld_Type, "set_field_type_alpha");
beginEti_Exception (Set_Fld_Type (Arg1 => C_Int (Typ.Minimum_Field_Width)));
Wrap_Builtin (Fld, Typ);
endSet_Field_Type;
endTerminal_Interface.Curses.Forms.Field_Types.Alpha;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Forms.Field_Types.RegExp ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2011,2014 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.13 @-- Binding Version 01.00------------------------------------------------------------------------------withInterfaces.C; useInterfaces.C;
withTerminal_Interface.Curses.Aux; useTerminal_Interface.Curses.Aux;
packagebodyTerminal_Interface.Curses.Forms.Field_Types.RegExpisprocedureSet_Field_Type (Fld : Field;
Typ : Regular_Expression_Field)
isfunctionSet_Ftyp (F : Field := Fld;
Arg1 : char_array) returnEti_Error;
pragma Import (C, Set_Ftyp, "set_field_type_regexp");
beginEti_Exception (Set_Ftyp (Arg1 => To_C (Typ.Regular_Expression.all)));
Wrap_Builtin (Fld, Typ);
endSet_Field_Type;
endTerminal_Interface.Curses.Forms.Field_Types.RegExp;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Terminfo ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 2000-2002,2003 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.5 @-- Binding Version 01.00------------------------------------------------------------------------------withInterfaces.C;
packageTerminal_Interface.Curses.Terminfoispragma Preelaborate (Terminal_Interface.Curses.Terminfo);
-- |=====================================================================-- | Man page curs_terminfo.3x-- |=====================================================================-- Not implemented: setupterm, setterm, set_curterm, del_curterm,-- restartterm, tparm, putp, vidputs, vidattr,-- mvcurtype Terminfo_String isnew String;
-- |procedureGet_String (Name : String;
Value : out Terminfo_String;
Result : out Boolean);
functionHas_String (Name : String) return Boolean;
-- AKA: tigetstr()-- |functionGet_Flag (Name : String) return Boolean;
-- AKA: tigetflag()-- |functionGet_Number (Name : String) return Integer;
-- AKA: tigetnum()typeputctypeisaccessfunction (c : Interfaces.C.int)
returnInterfaces.C.int;
pragma Convention (C, putctype);
-- |procedurePut_String (Str : Terminfo_String;
affcnt : Natural := 1;
putc : putctype := null);
-- AKA: tputs()endTerminal_Interface.Curses.Terminfo;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Forms.Form_User_Data ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2018,2020 Thomas E. Dickey ---- Copyright 1999-2009,2014 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.17 @-- Binding Version 01.00-------------------------------------------------------------------------------- |-- |=====================================================================-- | man page form__userptr.3x-- |=====================================================================-- |withTerminal_Interface.Curses.Aux; useTerminal_Interface.Curses.Aux;
packagebodyTerminal_Interface.Curses.Forms.Form_User_Datais-- |-- |-- |procedureSet_User_Data (Frm : Form;
Data : User_Access)
isfunctionSet_Form_Userptr (Frm : Form;
Data : User_Access) returnEti_Error;
pragma Import (C, Set_Form_Userptr, "set_form_userptr");
beginEti_Exception (Set_Form_Userptr (Frm, Data));
endSet_User_Data;
-- |-- |-- |functionGet_User_Data (Frm : Form) returnUser_AccessisfunctionForm_Userptr (Frm : Form) returnUser_Access;
pragma Import (C, Form_Userptr, "form_userptr");
beginreturnForm_Userptr (Frm);
endGet_User_Data;
procedureGet_User_Data (Frm : Form;
Data : outUser_Access)
isbeginData := Get_User_Data (Frm);
endGet_User_Data;
endTerminal_Interface.Curses.Forms.Form_User_Data;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Text_IO.Modular_IO ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.12 @-- Binding Version 01.00------------------------------------------------------------------------------with Ada.Text_IO;
withTerminal_Interface.Curses.Text_IO.Aux;
packagebodyTerminal_Interface.Curses.Text_IO.Modular_IOispackageAuxrenamesTerminal_Interface.Curses.Text_IO.Aux;
package MIO isnew Ada.Text_IO.Modular_IO (Num);
procedurePut
(Win : Window;
Item : Num;
Width : Field := Default_Width;
Base : Number_Base := Default_Base)
isBuf : String (1 .. Field'Last);
begin
MIO.Put (Buf, Item, Base);
Aux.Put_Buf (Win, Buf, Width);
endPut;
procedurePut
(Item : Num;
Width : Field := Default_Width;
Base : Number_Base := Default_Base)
isbeginPut (Get_Window, Item, Width, Base);
endPut;
endTerminal_Interface.Curses.Text_IO.Modular_IO;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Forms.Field_Types.Alpha ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.13 @-- Binding Version 01.00------------------------------------------------------------------------------packageTerminal_Interface.Curses.Forms.Field_Types.Alphaispragma Preelaborate (Terminal_Interface.Curses.Forms.Field_Types.Alpha);
typeAlpha_FieldisnewField_TypewithrecordMinimum_Field_Width : Natural := 0;
endrecord;
procedureSet_Field_Type (Fld : Field;
Typ : Alpha_Field);
pragma Inline (Set_Field_Type);
endTerminal_Interface.Curses.Forms.Field_Types.Alpha;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Panels ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2004,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.15 @-- @Date: 2020/02/02 23:34:34 @-- Binding Version 01.00------------------------------------------------------------------------------withTerminal_Interface.Curses.Aux; useTerminal_Interface.Curses.Aux;
withInterfaces.C;
packagebodyTerminal_Interface.Curses.PanelsisusetypeInterfaces.C.int;
functionCreate (Win : Window) returnPanelisfunctionNewpanel (Win : Window) returnPanel;
pragma Import (C, Newpanel, "new_panel");
Pan : Panel;
beginPan := Newpanel (Win);
ifPan = Null_PanelthenraisePanel_Exception;
endif;
returnPan;
endCreate;
procedureBottom (Pan : Panel)
isfunctionBottompanel (Pan : Panel) returnC_Int;
pragma Import (C, Bottompanel, "bottom_panel");
beginifBottompanel (Pan) = Curses_ErrthenraisePanel_Exception;
endif;
endBottom;
procedureTop (Pan : Panel)
isfunctionToppanel (Pan : Panel) returnC_Int;
pragma Import (C, Toppanel, "top_panel");
beginifToppanel (Pan) = Curses_ErrthenraisePanel_Exception;
endif;
endTop;
procedureShow (Pan : Panel)
isfunctionShowpanel (Pan : Panel) returnC_Int;
pragma Import (C, Showpanel, "show_panel");
beginifShowpanel (Pan) = Curses_ErrthenraisePanel_Exception;
endif;
endShow;
procedureHide (Pan : Panel)
isfunctionHidepanel (Pan : Panel) returnC_Int;
pragma Import (C, Hidepanel, "hide_panel");
beginifHidepanel (Pan) = Curses_ErrthenraisePanel_Exception;
endif;
endHide;
functionGet_Window (Pan : Panel) returnWindowisfunctionPanel_Win (Pan : Panel) returnWindow;
pragma Import (C, Panel_Win, "panel_window");
Win : constantWindow := Panel_Win (Pan);
beginifWin = Null_WindowthenraisePanel_Exception;
endif;
returnWin;
endGet_Window;
procedureReplace (Pan : Panel;
Win : Window)
isfunctionReplace_Pan (Pan : Panel;
Win : Window) returnC_Int;
pragma Import (C, Replace_Pan, "replace_panel");
beginifReplace_Pan (Pan, Win) = Curses_ErrthenraisePanel_Exception;
endif;
endReplace;
procedureMove (Pan : Panel;
Line : Line_Position;
Column : Column_Position)
isfunctionMove (Pan : Panel;
Line : C_Int;
Column : C_Int) returnC_Int;
pragma Import (C, Move, "move_panel");
beginifMove (Pan, C_Int (Line), C_Int (Column)) = Curses_ErrthenraisePanel_Exception;
endif;
endMove;
functionIs_Hidden (Pan : Panel) return Boolean
isfunctionPanel_Hidden (Pan : Panel) returnC_Int;
pragma Import (C, Panel_Hidden, "panel_hidden");
beginifPanel_Hidden (Pan) = Curses_Falsethenreturn False;
elsereturn True;
endif;
endIs_Hidden;
procedureDelete (Pan : inoutPanel)
isfunctionDel_Panel (Pan : Panel) returnC_Int;
pragma Import (C, Del_Panel, "del_panel");
beginifDel_Panel (Pan) = Curses_ErrthenraisePanel_Exception;
endif;
Pan := Null_Panel;
endDelete;
endTerminal_Interface.Curses.Panels;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2003,2006 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.15 @-- @Date: 2020/02/02 23:34:34 @-- Binding Version 01.00------------------------------------------------------------------------------packageTerminal_Interfaceispragma Pure (Terminal_Interface);
---- Everything is in the child units--endTerminal_Interface;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Forms.Field_Types.AlphaNumeric ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.13 @-- Binding Version 01.00------------------------------------------------------------------------------packageTerminal_Interface.Curses.Forms.Field_Types.AlphaNumericispragma Preelaborate
(Terminal_Interface.Curses.Forms.Field_Types.AlphaNumeric);
typeAlphaNumeric_FieldisnewField_TypewithrecordMinimum_Field_Width : Natural := 0;
endrecord;
procedureSet_Field_Type (Fld : Field;
Typ : AlphaNumeric_Field);
pragma Inline (Set_Field_Type);
endTerminal_Interface.Curses.Forms.Field_Types.AlphaNumeric;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Text_IO.Complex_IO ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.12 @-- Binding Version 01.00------------------------------------------------------------------------------with Ada.Numerics.Generic_Complex_Types;
genericwithpackageComplex_Typesisnew Ada.Numerics.Generic_Complex_Types (<>);
packageTerminal_Interface.Curses.Text_IO.Complex_IOisuse Complex_Types;
Default_Fore : Field := 2;
Default_Aft : Field := Real'Digits - 1;
Default_Exp : Field := 3;
procedurePut
(Win : Window;
Item : Complex;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp);
procedurePut
(Item : Complex;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp);
privatepragma Inline (Put);
endTerminal_Interface.Curses.Text_IO.Complex_IO;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Text_IO.Enumeration_IO ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.12 @-- Binding Version 01.00------------------------------------------------------------------------------with Ada.Text_IO;
with Ada.Characters.Handling; use Ada.Characters.Handling;
withTerminal_Interface.Curses.Text_IO.Aux;
packagebodyTerminal_Interface.Curses.Text_IO.Enumeration_IOispackageAuxrenamesTerminal_Interface.Curses.Text_IO.Aux;
package EIO isnew Ada.Text_IO.Enumeration_IO (Enum);
procedurePut
(Win : Window;
Item : Enum;
Width : Field := Default_Width;
Set : Type_Set := Default_Setting)
isBuf : String (1 .. Field'Last);
Tset : Ada.Text_IO.Type_Set;
beginifSet /= Mixed_CasethenTset := Ada.Text_IO.Type_Set'Val (Type_Set'Pos (Set));
elseTset := Ada.Text_IO.Lower_Case;
endif;
EIO.Put (Buf, Item, Tset);
ifSet = Mixed_CasethenBuf (Buf'First) := To_Upper (Buf (Buf'First));
endif;
Aux.Put_Buf (Win, Buf, Width, True, True);
endPut;
procedurePut
(Item : Enum;
Width : Field := Default_Width;
Set : Type_Set := Default_Setting)
isbeginPut (Get_Window, Item, Width, Set);
endPut;
endTerminal_Interface.Curses.Text_IO.Enumeration_IO;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Text_IO.Enumeration_IO ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.13 @-- Binding Version 01.00------------------------------------------------------------------------------generictypeEnumis (<>);
packageTerminal_Interface.Curses.Text_IO.Enumeration_IOisDefault_Width : Field := 0;
Default_Setting : Type_Set := Mixed_Case;
procedurePut
(Win : Window;
Item : Enum;
Width : Field := Default_Width;
Set : Type_Set := Default_Setting);
procedurePut
(Item : Enum;
Width : Field := Default_Width;
Set : Type_Set := Default_Setting);
privatepragma Inline (Put);
endTerminal_Interface.Curses.Text_IO.Enumeration_IO;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Panels.User_Data ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.13 @-- Binding Version 01.00------------------------------------------------------------------------------withInterfaces.C;
withTerminal_Interface.Curses.Aux;
useTerminal_Interface.Curses.Aux;
withTerminal_Interface.Curses.Panels;
useTerminal_Interface.Curses.Panels;
packagebodyTerminal_Interface.Curses.Panels.User_DataisusetypeInterfaces.C.int;
procedureSet_User_Data (Pan : Panel;
Data : User_Access)
isfunctionSet_Panel_Userptr (Pan : Panel;
Addr : User_Access) returnC_Int;
pragma Import (C, Set_Panel_Userptr, "set_panel_userptr");
beginifSet_Panel_Userptr (Pan, Data) = Curses_ErrthenraisePanel_Exception;
endif;
endSet_User_Data;
functionGet_User_Data (Pan : Panel) returnUser_AccessisfunctionPanel_Userptr (Pan : Panel) returnUser_Access;
pragma Import (C, Panel_Userptr, "panel_userptr");
beginreturnPanel_Userptr (Pan);
endGet_User_Data;
procedureGet_User_Data (Pan : Panel;
Data : outUser_Access)
isbeginData := Get_User_Data (Pan);
endGet_User_Data;
endTerminal_Interface.Curses.Panels.User_Data;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Forms.Field_Types.Enumeration ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2011,2014 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.13 @-- Binding Version 01.00------------------------------------------------------------------------------with Ada.Unchecked_Deallocation;
withInterfaces.C; useInterfaces.C;
withInterfaces.C.Strings; useInterfaces.C.Strings;
withTerminal_Interface.Curses.Aux; useTerminal_Interface.Curses.Aux;
packagebodyTerminal_Interface.Curses.Forms.Field_Types.EnumerationisfunctionCreate (Info : Enumeration_Info;
Auto_Release_Names : Boolean := False)
returnEnumeration_Fieldisprocedure Release_String isnew Ada.Unchecked_Deallocation (String,
String_Access);
E : Enumeration_Field;
L : constant size_t := 1 + size_t (Info.C);
S : String_Access;
beginE.Case_Sensitive := Info.Case_Sensitive;
E.Match_Must_Be_Unique := Info.Match_Must_Be_Unique;
E.Arr := new chars_ptr_array (size_t (1) .. L);
forIin 1 .. Positive (L - 1) loopifInfo.Names (I) = nullthenraiseForm_Exception;
endif;
E.Arr.all (size_t (I)) := New_String (Info.Names (I).all);
ifAuto_Release_NamesthenS := Info.Names (I);
Release_String (S);
endif;
endloop;
E.Arr.all (L) := Null_Ptr;
returnE;
endCreate;
procedureRelease (Enum : inoutEnumeration_Field)
isI : size_t := 0;
P : chars_ptr;
beginloopP := Enum.Arr.all (I);
exitwhenP = Null_Ptr;
Free (P);
Enum.Arr.all (I) := Null_Ptr;
I := I + 1;
endloop;
Enum.Arr := null;
endRelease;
procedureSet_Field_Type (Fld : Field;
Typ : Enumeration_Field)
isfunctionSet_Fld_Type (F : Field := Fld;
Arg1 : chars_ptr_array;
Arg2 : C_Int;
Arg3 : C_Int) returnEti_Error;
pragma Import (C, Set_Fld_Type, "set_field_type_enum");
beginifTyp.Arr = nullthenraiseForm_Exception;
endif;
Eti_Exception
(Set_Fld_Type
(Arg1 => Typ.Arr.all,
Arg2 => C_Int (Boolean'Pos (Typ.Case_Sensitive)),
Arg3 => C_Int (Boolean'Pos (Typ.Match_Must_Be_Unique))));
Wrap_Builtin (Fld, Typ, C_Choice_Router);
endSet_Field_Type;
endTerminal_Interface.Curses.Forms.Field_Types.Enumeration;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Panels.User_Data ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1998-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.16 @-- Binding Version 01.00------------------------------------------------------------------------------generictypeUserislimitedprivate;
typeUser_AccessisaccessallUser;
packageTerminal_Interface.Curses.Panels.User_Dataispragma Preelaborate (Terminal_Interface.Curses.Panels.User_Data);
-- |=====================================================================-- | Man page panel.3x-- |=====================================================================-- |procedureSet_User_Data (Pan : Panel;
Data : User_Access);
-- AKA: set_panel_userptrpragma Inline (Set_User_Data);
-- |procedureGet_User_Data (Pan : Panel;
Data : outUser_Access);
-- AKA: panel_userptr-- |functionGet_User_Data (Pan : Panel) returnUser_Access;
-- AKA: panel_userptr-- Same as functionpragma Inline (Get_User_Data);
endTerminal_Interface.Curses.Panels.User_Data;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Text_IO.Modular_IO ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.13 @-- Binding Version 01.00------------------------------------------------------------------------------generictypeNumismod <>;
packageTerminal_Interface.Curses.Text_IO.Modular_IOisDefault_Width : Field := Num'Width;
Default_Base : Number_Base := 10;
procedurePut
(Win : Window;
Item : Num;
Width : Field := Default_Width;
Base : Number_Base := Default_Base);
procedurePut
(Item : Num;
Width : Field := Default_Width;
Base : Number_Base := Default_Base);
privatepragma Inline (Put);
endTerminal_Interface.Curses.Text_IO.Modular_IO;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Text_IO.Fixed_IO ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.12 @-- Binding Version 01.00------------------------------------------------------------------------------with Ada.Text_IO;
withTerminal_Interface.Curses.Text_IO.Aux;
packagebodyTerminal_Interface.Curses.Text_IO.Fixed_IOispackageAuxrenamesTerminal_Interface.Curses.Text_IO.Aux;
package FIXIO isnew Ada.Text_IO.Fixed_IO (Num);
procedurePut
(Win : Window;
Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp)
isBuf : String (1 .. Field'Last);
Len : Field := Fore + 1 + Aft;
beginifExp > 0 thenLen := Len + 1 + Exp;
endif;
FIXIO.Put (Buf, Item, Aft, Exp);
Aux.Put_Buf (Win, Buf, Len, False);
endPut;
procedurePut
(Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp) isbeginPut (Get_Window, Item, Fore, Aft, Exp);
endPut;
endTerminal_Interface.Curses.Text_IO.Fixed_IO;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Forms.Field_User_Data ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1998-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.17 @-- Binding Version 01.00------------------------------------------------------------------------------generictypeUserislimitedprivate;
typeUser_AccessisaccessUser;
packageTerminal_Interface.Curses.Forms.Field_User_Dataispragma Preelaborate (Terminal_Interface.Curses.Forms.Field_User_Data);
-- |=====================================================================-- | Man page form_field_userptr.3x-- |=====================================================================-- |procedureSet_User_Data (Fld : Field;
Data : User_Access);
-- AKA: set_field_userptrpragma Inline (Set_User_Data);
-- |procedureGet_User_Data (Fld : Field;
Data : outUser_Access);
-- AKA: field_userptr-- |functionGet_User_Data (Fld : Field) returnUser_Access;
-- AKA: field_userptr-- Sama as functionpragma Inline (Get_User_Data);
endTerminal_Interface.Curses.Forms.Field_User_Data;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Trace ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 2001-2011,2014 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.12 @-- Binding Version 01.00------------------------------------------------------------------------------withInterfaces.C; useInterfaces.C;
packagebodyTerminal_Interface.Curses.TraceisprocedureTrace_On (x : Trace_Attribute_Set) isproceduretraceC (y : Trace_Attribute_Set);
pragma Import (C, traceC, "trace");
begintraceC (x);
endTrace_On;
procedureTrace_Put (str : String) isproceduretracef (format : char_array; s : char_array);
pragma Import (C, tracef, "_traces");
-- _traces() is defined in c_varargs_to_ada.hbegintracef (To_C ("%s"), To_C (str));
endTrace_Put;
endTerminal_Interface.Curses.Trace;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Forms.Field_Types.User.Choice ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2008,2011 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.15 @-- @Date: 2020/02/02 23:34:34 @-- Binding Version 01.00------------------------------------------------------------------------------withInterfaces.C;
packageTerminal_Interface.Curses.Forms.Field_Types.User.Choiceispragma Preelaborate
(Terminal_Interface.Curses.Forms.Field_Types.User.Choice);
subtypeC_IntisInterfaces.C.int;
typeUser_Defined_Field_Type_With_ChoiceisabstractnewUser_Defined_Field_Typewithnullrecord;
-- This is the root of the mechanism we use to create field types in-- Ada95 that allow the prev/next mechanism. You should your own type-- derive from this one and implement the Field_Check, Character_Check-- Next and Previous functions for your own type.typeUser_Defined_Field_Type_With_Choice_AccessisaccessallUser_Defined_Field_Type_With_Choice'Class;
functionNext
(Fld : Field;
Typ : User_Defined_Field_Type_With_Choice) return Boolean
isabstract;
-- If True is returned, the function successfully generated a next-- value into the fields buffer.functionPrevious
(Fld : Field;
Typ : User_Defined_Field_Type_With_Choice) return Boolean
isabstract;
-- If True is returned, the function successfully generated a previous-- value into the fields buffer.-- +------------------------------------------------------------------------ | Private Part.-- |privatefunctionC_Generic_ChoicereturnC_Field_Type;
functionGeneric_Next (Fld : Field;
Usr : System.Address) returnCurses_Bool;
pragma Convention (C, Generic_Next);
-- This is the generic next Choice_Function for the low-level fieldtype-- representing all the User_Defined_Field_Type derivatives. It routes-- the call to the Next implementation for the type.functionGeneric_Prev (Fld : Field;
Usr : System.Address) returnCurses_Bool;
pragma Convention (C, Generic_Prev);
-- This is the generic prev Choice_Function for the low-level fieldtype-- representing all the User_Defined_Field_Type derivatives. It routes-- the call to the Previous implementation for the type.endTerminal_Interface.Curses.Forms.Field_Types.User.Choice;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Text_IO.Complex_IO ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.12 @-- Binding Version 01.00------------------------------------------------------------------------------withTerminal_Interface.Curses.Text_IO.Float_IO;
packagebodyTerminal_Interface.Curses.Text_IO.Complex_IOispackage FIO isnewTerminal_Interface.Curses.Text_IO.Float_IO (Complex_Types.Real'Base);
procedurePut
(Win : Window;
Item : Complex;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp)
isbeginPut (Win, '(');
FIO.Put (Win, Item.Re, Fore, Aft, Exp);
Put (Win, ',');
FIO.Put (Win, Item.Im, Fore, Aft, Exp);
Put (Win, ')');
endPut;
procedurePut
(Item : Complex;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp)
isbeginPut (Get_Window, Item, Fore, Aft, Exp);
endPut;
endTerminal_Interface.Curses.Text_IO.Complex_IO;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Terminfo ---- ---- B O D Y ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 2000-2006,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.7 @-- @Date: 2020/02/02 23:34:34 @-- Binding Version 01.00------------------------------------------------------------------------------withTerminal_Interface.Curses.Aux; useTerminal_Interface.Curses.Aux;
withInterfaces.C; useInterfaces.C;
withInterfaces.C.Strings; useInterfaces.C.Strings;
with Ada.Unchecked_Conversion;
packagebodyTerminal_Interface.Curses.TerminfoisfunctionIs_MinusOne_Pointer (P : chars_ptr) return Boolean;
functionIs_MinusOne_Pointer (P : chars_ptr) return Boolean istypeWeird_Addressisnew System.Storage_Elements.Integer_Address;
Invalid_Pointer : constantWeird_Address := -1;
function To_Weird isnew Ada.Unchecked_Conversion
(Source => chars_ptr, Target => Weird_Address);
beginif To_Weird (P) = Invalid_Pointerthenreturn True;
elsereturn False;
endif;
endIs_MinusOne_Pointer;
pragma Inline (Is_MinusOne_Pointer);
------------------------------------------------------------------------------functionGet_Flag (Name : String) return Boolean
isfunctiontigetflag (id : char_array) returnCurses_Bool;
pragma Import (C, tigetflag);
Txt : char_array (0 .. Name'Length);
Length : size_t;
begin
To_C (Name, Txt, Length);
iftigetflag (Txt) = Curses_Bool (Curses_True) thenreturn True;
elsereturn False;
endif;
endGet_Flag;
------------------------------------------------------------------------------procedureGet_String (Name : String;
Value : out Terminfo_String;
Result : out Boolean)
isfunctiontigetstr (id : char_array) return chars_ptr;
pragma Import (C, tigetstr, "tigetstr");
Txt : char_array (0 .. Name'Length);
Length : size_t;
Txt2 : chars_ptr;
begin
To_C (Name, Txt, Length);
Txt2 := tigetstr (Txt);
ifTxt2 = Null_Ptr thenResult := False;
elsifIs_MinusOne_Pointer (Txt2) thenraiseCurses_Exception;
elseValue := Terminfo_String (Fill_String (Txt2));
Result := True;
endif;
endGet_String;
------------------------------------------------------------------------------functionHas_String (Name : String) return Boolean
isfunctiontigetstr (id : char_array) return chars_ptr;
pragma Import (C, tigetstr, "tigetstr");
Txt : char_array (0 .. Name'Length);
Length : size_t;
Txt2 : chars_ptr;
begin
To_C (Name, Txt, Length);
Txt2 := tigetstr (Txt);
ifTxt2 = Null_Ptr thenreturn False;
elsifIs_MinusOne_Pointer (Txt2) thenraiseCurses_Exception;
elsereturn True;
endif;
endHas_String;
------------------------------------------------------------------------------functionGet_Number (Name : String) return Integer isfunctiontigetstr (s : char_array) returnC_Int;
pragma Import (C, tigetstr);
Txt : char_array (0 .. Name'Length);
Length : size_t;
begin
To_C (Name, Txt, Length);
return Integer (tigetstr (Txt));
endGet_Number;
------------------------------------------------------------------------------procedurePut_String (Str : Terminfo_String;
affcnt : Natural := 1;
putc : putctype := null) isfunctiontputs (str : char_array;
affcnt : C_Int;
putc : putctype) returnC_Int;
functionputp (str : char_array) returnC_Int;
pragma Import (C, tputs);
pragma Import (C, putp);
Txt : char_array (0 .. Str'Length);
Length : size_t;
Err : C_Int;
begin
To_C (String (Str), Txt, Length);
ifputc = nullthenErr := putp (Txt);
elseErr := tputs (Txt, C_Int (affcnt), putc);
endif;
ifErr = Curses_ErrthenraiseCurses_Exception;
endif;
endPut_String;
endTerminal_Interface.Curses.Terminfo;
-------------------------------------------------------------------------------- ---- GNAT ncurses Binding ---- ---- Terminal_Interface.Curses.Text_IO.Integer_IO ---- ---- S P E C ---- ---------------------------------------------------------------------------------- Copyright 2020 Thomas E. Dickey ---- Copyright 1999-2003,2009 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 ---- "Software"), to deal in the Software without restriction, including ---- without limitation the rights to use, copy, modify, merge, publish, ---- distribute, distribute with modifications, 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. ---- ---- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS ---- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ---- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ---- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, ---- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR ---- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR ---- THE USE OR OTHER DEALINGS IN THE SOFTWARE. ---- ---- Except as contained in this notice, the name(s) of the above copyright ---- holders shall not be used in advertising or otherwise to promote the ---- sale, use or other dealings in this Software without prior written ---- authorization. ---------------------------------------------------------------------------------- Author: Juergen Pfeifer, 1996-- Version Control:-- @Revision: 1.13 @-- Binding Version 01.00------------------------------------------------------------------------------generictypeNumisrange <>;
packageTerminal_Interface.Curses.Text_IO.Integer_IOisDefault_Width : Field := Num'Width;
Default_Base : Number_Base := 10;
procedurePut
(Win : Window;
Item : Num;
Width : Field := Default_Width;
Base : Number_Base := Default_Base);
procedurePut
(Item : Num;
Width : Field := Default_Width;
Base : Number_Base := Default_Base);
privatepragma Inline (Put);
endTerminal_Interface.Curses.Text_IO.Integer_IO;
AdaCurses-20211021/doc/Makefile.in 0000644 0001751 0000144 00000007404 14070103035 015145 0 ustar tom users # $Id: Makefile.in,v 1.9 2021/07/03 15:45:33 tom Exp $
##############################################################################
# Copyright 2019-2020,2021 Thomas E. Dickey #
# Copyright 2011-2015,2018 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 "Software"), #
# to deal in the Software without restriction, including without limitation #
# the rights to use, copy, modify, merge, publish, distribute, distribute #
# with modifications, 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. #
# #
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR #
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, #
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL #
# THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER #
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING #
# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER #
# DEALINGS IN THE SOFTWARE. #
# #
# Except as contained in this notice, the name(s) of the above copyright #
# holders shall not be used in advertising or otherwise to promote the sale, #
# use or other dealings in this Software without prior written #
# authorization. #
##############################################################################
#
# Author: Thomas E. Dickey
#
# Makefile for AdaCurses manual pages.
SHELL = @SHELL@
VPATH = @srcdir@
DESTDIR = @DESTDIR@
srcdir = @srcdir@
prefix = @prefix@
exec_prefix = @exec_prefix@
datarootdir = @datarootdir@
datadir = @datadir@
mandir = @mandir@
INSTALL = @INSTALL@ @INSTALL_OPT_O@
INSTALL_DATA = @INSTALL_DATA@
DFT_ARG_SUFFIX = @DFT_ARG_SUFFIX@
THIS = @ADA_LIBNAME@
DOCDIR = $(DESTDIR)$(datadir)/doc/$(THIS)
MANDIR = $(DESTDIR)$(mandir)/man1
################################################################################
@MAKE_PHONY@.PHONY : all
@MAKE_PHONY@.PHONY : check
@MAKE_PHONY@.PHONY : clean
@MAKE_PHONY@.PHONY : distclean
@MAKE_PHONY@.PHONY : install
@MAKE_PHONY@.PHONY : install.html
@MAKE_PHONY@.PHONY : install.man
@MAKE_PHONY@.PHONY : libs
@MAKE_PHONY@.PHONY : lint
@MAKE_PHONY@.PHONY : mostlyclean
@MAKE_PHONY@.PHONY : realclean
@MAKE_PHONY@.PHONY : sources
@MAKE_PHONY@.PHONY : uninstall
@MAKE_PHONY@.PHONY : uninstall.html
@MAKE_PHONY@.PHONY : uninstall.man
all \
sources \
tags :
$(DOCDIR) \
$(MANDIR) :
mkdir -p $@
install install.man : $(MANDIR)
$(INSTALL_DATA) adacurses${DFT_ARG_SUFFIX}-config.1 $(MANDIR)
uninstall uninstall.man :
-rm -f $(MANDIR)/adacurses${DFT_ARG_SUFFIX}-config.1
# HTML documentation is optional, usually in a separate package.
install.html : $(DOCDIR)
( cd $(srcdir) && tar -cf - *.htm* ada | tar -C $(DOCDIR) -xf - )
uninstall.html :
-rm -rf $(DOCDIR)
mostlyclean :
-rm -f core tags TAGS *~ *.bak *.ln *.atac trace
clean: mostlyclean
distclean realclean: clean
-rm -f Makefile *-config.1
AdaCurses-20211021/TODO 0000644 0001751 0000144 00000006123 14114005471 013024 0 ustar tom users -------------------------------------------------------------------------------
-- Copyright 2020,2021 Thomas E. Dickey --
-- Copyright 1998-1999,2006 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN --
-- NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE --
-- USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
-------------------------------------------------------------------------------
-- $Id: TODO,v 1.8 2021/09/01 23:22:33 tom Exp $
-------------------------------------------------------------------------------
-- Intensive testing
Perhaps the delivery of the Beta will help a bit.
-- Documentation
Like most WEB pages: under continuous construction
-- Style cleanup
-- Alternate functions for procedures with out params
Comfort purpose
-- Sample program
Under continuous construction (and it is not a WEB page!!!)
-- Make the binding objects a shared library
They are rather large, so it would make sense, otherwise Ada95
would look too large, although the generated code is as compact
as C or C++. I'll wait a bit until the GNAT people provide some
better support to construct shared libraries.
-- Think about more inlining
-- Check for memory leaks.
Oh I would like it so much if the GNAT guys would put an optional
GC into their system.
AdaCurses-20211021/package/ 0000755 0001751 0000144 00000000000 14134402303 013722 5 ustar tom users AdaCurses-20211021/package/debian/ 0000755 0001751 0000144 00000000000 14134402303 015144 5 ustar tom users AdaCurses-20211021/package/debian/copyright 0000644 0001751 0000144 00000007366 13773570526 017140 0 ustar tom users Upstream source https://invisible-island.net/ncurses/Ada95.html
Current ncurses maintainer: Thomas Dickey
-------------------------------------------------------------------------------
Files: *
Copyright: 2017-2020,2021 by Thomas E. Dickey
Copyright: 1998-2016,2017 Free Software Foundation, Inc.
Licence: X11
Files: aclocal.m4 package
Copyright: 2010-2020,2021 by Thomas E. Dickey
Licence: X11
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, distribute with modifications, 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.
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,
DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR
OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
THE USE OR OTHER DEALINGS IN THE SOFTWARE.
Except as contained in this notice, the name(s) of the above copyright
holders shall not be used in advertising or otherwise to promote the
sale, use or other dealings in this Software without prior written
authorization.
-------------------------------------------------------------------------------
Files: install-sh
Copyright: 1994 X Consortium
Licence: X11
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.
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC-
TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
Except as contained in this notice, the name of the X Consortium shall not
be used in advertising or otherwise to promote the sale, use or other deal-
ings in this Software without prior written authorization from the X Consor-
tium.
FSF changes to this file are in the public domain.
Calling this script install-sh is preferred over install.sh, to prevent
`make' implicit rules from creating a file called install from it
when there is no Makefile.
This script is compatible with the BSD install script, but was written
from scratch. It can only install one file at a time, a restriction
shared with many OS's install programs.
On Debian systems, the complete text of the GNU General
Public License can be found in '/usr/share/common-licenses/GPL-2'
-- vile: txtmode file-encoding=utf-8
AdaCurses-20211021/package/debian/docs 0000644 0001751 0000144 00000000007 11411671635 016027 0 ustar tom users README
AdaCurses-20211021/package/debian/compat 0000644 0001751 0000144 00000000003 13720321466 016355 0 ustar tom users 10
AdaCurses-20211021/package/debian/rules 0000755 0001751 0000144 00000004555 14062735160 016247 0 ustar tom users #!/usr/bin/make -f
# MAde with the aid of dh_make, by Craig Small
# Sample debian/rules that uses debhelper. GNU copyright 1997 by Joey Hess.
# Some lines taken from debmake, by Cristoph Lameter.
# Uncomment this to turn on verbose mode.
#export DH_VERBOSE=1
# These are used for cross-compiling and for saving the configure script
# from having to guess our platform (since we know it already)
DEB_HOST_GNU_TYPE ?= $(shell dpkg-architecture -qDEB_HOST_GNU_TYPE)
DEB_BUILD_GNU_TYPE ?= $(shell dpkg-architecture -qDEB_BUILD_GNU_TYPE)
TARGET_DIR = $(CURDIR)/debian/adacurses
SAMPLE_DIR = $(TARGET_DIR)/usr/bin/AdaCurses
CFLAGS = $(shell dpkg-buildflags --get CFLAGS) $(CC_NORMAL)
CPPFLAGS = $(shell dpkg-buildflags --get CPPFLAGS)
LDFLAGS = $(shell dpkg-buildflags --get LDFLAGS)
ifneq (,$(findstring noopt,$(DEB_BUILD_OPTIONS)))
CFLAGS += -O0
else
CFLAGS += -O2
endif
ifeq (,$(findstring nostrip,$(DEB_BUILD_OPTIONS)))
INSTALL_PROGRAM += -s
endif
configure: configure-stamp
configure-stamp:
dh_testdir
CFLAGS="$(CFLAGS)" \
CPPFLAGS="$(CPPFLAGS)" \
LDFLAGS="$(LDFLAGS)" ./configure \
--host=$(DEB_HOST_GNU_TYPE) \
--build=$(DEB_BUILD_GNU_TYPE) \
--prefix=/usr \
--disable-rpath-link \
--with-shared \
--with-ada-sharedlib \
--without-pkg-config
touch configure-stamp
build: build-stamp
build-stamp: configure-stamp
dh_testdir
$(MAKE)
touch build-stamp
clean:
dh_testdir
dh_testroot
[ ! -f makefile ] || $(MAKE) distclean
rm -f configure-stamp build-stamp install-stamp
dh_clean
install: install-stamp
install-stamp: build-stamp
dh_testdir
dh_testroot
dh_clean -k
dh_installdirs
$(MAKE) install DESTDIR=$(TARGET_DIR)
# FIXME: it would be nice to make these into separate packages
( cd samples && $(MAKE) install.examples DESTDIR=$(TARGET_DIR) BINDIR=$(SAMPLE_DIR) )
( cd doc && $(MAKE) install.html DESTDIR=$(TARGET_DIR) )
touch install-stamp
# Build architecture-independent files here.
binary-indep: build install
# No binary-indep target.
# Build architecture-dependent files here.
binary-arch: build install
dh_testdir
dh_testroot
dh_installdocs
dh_installexamples
dh_installchangelogs NEWS
dh_strip
dh_compress
dh_fixperms
dh_installdeb
dh_makeshlibs
dh_shlibdeps
dh_gencontrol
dh_md5sums
dh_builddeb
binary: binary-indep binary-arch
.PHONY: build clean binary-indep binary-arch binary install install-stamp
AdaCurses-20211021/package/debian/control 0000644 0001751 0000144 00000001130 13573033371 016555 0 ustar tom users Source: adacurses
Maintainer: Thomas E. Dickey
Section: misc
Priority: optional
Standards-Version: 3.8.4
Build-Depends: debhelper (>= 5)
Homepage: https://invisible-island.net/adacurses/
Package: adacurses
Architecture: any
Depends: ${shlibs:Depends}, ${misc:Depends}
Description: Ada95 binding for ncurses
This package installs as "adacurses" to avoid conflict with other packages.
This is the Ada95 binding from the ncurses distribution.
.
In addition to a library, this package installs sample programs in
"bin/AdaCurses" to avoid conflict with other packages.
AdaCurses-20211021/package/debian/source/ 0000755 0001751 0000144 00000000000 14134402303 016444 5 ustar tom users AdaCurses-20211021/package/debian/source/format 0000644 0001751 0000144 00000000015 12525715155 017671 0 ustar tom users 3.0 (native)
AdaCurses-20211021/package/debian/watch 0000644 0001751 0000144 00000000154 13213045176 016205 0 ustar tom users version=3
opts=passive ftp://ftp.invisible-island.net/AdaCurses/AdaCurses-([\d.]+)\.tgz \
debian uupdate
AdaCurses-20211021/package/debian/changelog 0000644 0001751 0000144 00000000267 14134402303 017023 0 ustar tom users adacurses (6.3+20211021) unstable; urgency=low
* snapshot of ncurses subpackage for AdaCurses.
-- Thomas E. Dickey Thu, 21 Oct 2021 20:24:35 -0400
AdaCurses-20211021/package/AdaCurses.spec 0000644 0001751 0000144 00000005402 14134402303 016451 0 ustar tom users Summary: Ada95 binding for ncurses
%define AppProgram AdaCurses
%define AppVersion 6.3
%define AppRelease 20211021
# $Id: AdaCurses.spec,v 1.25 2019/11/23 21:15:31 tom Exp $
Name: %{AppProgram}
Version: %{AppVersion}
Release: %{AppRelease}
License: MIT
Group: Applications/Development
URL: ftp://ftp.invisible-island.net/%{AppProgram}
Source0: %{AppProgram}-%{AppRelease}.tgz
Packager: Thomas Dickey
%description
This is the Ada95 binding from the ncurses 6.3 distribution, for
patch-date 20211021.
In addition to a library, this package installs sample programs in
"bin/%{AppProgram}" to avoid conflict with other packages.
%prep
%define debug_package %{nil}
%define need_filter %(if grep -E -i '(mageia|red hat|fedora)' /etc/issue >/dev/null; then echo 1; elif test -f /etc/fedora-release; then echo 1; else echo 0; fi)
%if %{need_filter} == 1
# http://fedoraproject.org/wiki/EPEL:Packaging_Autoprovides_and_Requires_Filtering
%filter_from_requires /lib%{AppProgram}.so.1/d
%filter_setup
%endif
%setup -q -n %{AppProgram}-%{AppRelease}
%build
%define ada_libdir %{_prefix}/lib/ada/adalib
%define ada_include %{_prefix}/share/ada/adainclude
INSTALL_PROGRAM='${INSTALL}' \
./configure \
--target %{_target_platform} \
--prefix=%{_prefix} \
--bindir=%{_bindir} \
--libdir=%{_libdir} \
--with-ada-include=%{ada_include} \
--with-ada-objects=%{ada_libdir} \
--mandir=%{_mandir} \
--datadir=%{_datadir} \
--disable-rpath-link \
--with-shared \
--with-ada-sharedlib
make
%install
[ "$RPM_BUILD_ROOT" != "/" ] && rm -rf $RPM_BUILD_ROOT
make install DESTDIR=$RPM_BUILD_ROOT
( cd samples &&
make install.examples \
DESTDIR=$RPM_BUILD_ROOT \
BINDIR=$RPM_BUILD_ROOT%{_bindir}/%{AppProgram}
)
%clean
if rm -rf $RPM_BUILD_ROOT; then
echo OK
else
find $RPM_BUILD_ROOT -type f | grep -F -v /.nfs && exit 1
fi
exit 0
%files
%defattr(-,root,root)
%{_bindir}/adacurses*-config
%{_bindir}/%{AppProgram}/*
%{ada_libdir}/
%if %{need_filter} == 1
%{_libdir}/lib%{AppProgram}.*
%endif
%{_mandir}/man1/adacurses*-config.1*
%{_datadir}/%{AppProgram}/*
%{ada_include}/
%changelog
# each patch should add its ChangeLog entries here
* Sat Nov 16 2019 Thomas Dickey
- modify clean-rule to work around Fedora NFS bugs.
* Sat Sep 14 2019 Thomas Dickey
- build-fixes for Fedora29, OpenSUSE
* Sat Sep 07 2019 Thomas Dickey
- use AppProgram to replace "AdaCurses" globally
- amend install-paths to work with Fedora30
* Thu Mar 31 2011 Thomas Dickey
- use --with-shared option for consistency with --with-ada-sharelib
- ensure that MY_DATADIR is set when installing examples
- add ada_libdir symbol to handle special case where libdir is /usr/lib64
- use --disable-rpath-link to link sample programs without rpath
* Fri Mar 25 2011 Thomas Dickey
- initial version
AdaCurses-20211021/package/AdaCurses-doc.spec 0000644 0001751 0000144 00000002626 14134402303 017221 0 ustar tom users Summary: AdaCurses - Ada95 binding documentation for ncurses
%define AppProgram AdaCurses
%define AppVersion 6.3
%define AppRelease 20211021
%define AppPackage %{AppProgram}-doc
# $Id: AdaCurses-doc.spec,v 1.7 2019/11/23 21:15:53 tom Exp $
Name: %{AppPackage}
Version: %{AppVersion}
Release: %{AppRelease}
License: MIT
Group: Applications/Development
URL: ftp://ftp.invisible-island.net/%{AppProgram}
Source0: %{AppProgram}-%{AppRelease}.tgz
Packager: Thomas Dickey
%description
This is the Ada95 binding documentation from the ncurses 6.3
distribution, for patch-date 20211021.
%prep
%define debug_package %{nil}
%setup -q -n %{AppProgram}-%{AppRelease}
%build
INSTALL_PROGRAM='${INSTALL}' \
%configure \
--target %{_target_platform} \
--prefix=%{_prefix} \
--datadir=%{_datadir} \
--with-ada-sharedlib
%install
[ "$RPM_BUILD_ROOT" != "/" ] && rm -rf $RPM_BUILD_ROOT
(cd doc && make install.html DESTDIR=$RPM_BUILD_ROOT )
%clean
if rm -rf $RPM_BUILD_ROOT; then
echo OK
else
find $RPM_BUILD_ROOT -type f | grep -F -v /.nfs && exit 1
fi
exit 0
%files
%defattr(-,root,root)
%{_datadir}/doc/%{AppProgram}
%changelog
# each patch should add its ChangeLog entries here
* Sat Nov 16 2019 Thomas Dickey
- modify clean-rule to work around Fedora NFS bugs.
* Sat Sep 07 2019 Thomas Dickey
- use AppProgram to replace "AdaCurses" globally
* Sat Mar 26 2011 Thomas Dickey
- initial version
AdaCurses-20211021/include/ 0000755 0001751 0000144 00000000000 14134402303 013752 5 ustar tom users AdaCurses-20211021/include/ncurses_cfg.hin 0000644 0001751 0000144 00000006624 13615656212 017000 0 ustar tom users /****************************************************************************
* Copyright 2020 Thomas E. Dickey *
* Copyright 2005-2017,2018 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 *
* "Software"), to deal in the Software without restriction, including *
* without limitation the rights to use, copy, modify, merge, publish, *
* distribute, distribute with modifications, 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. *
* *
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS *
* OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF *
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. *
* IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, *
* DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR *
* OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR *
* THE USE OR OTHER DEALINGS IN THE SOFTWARE. *
* *
* Except as contained in this notice, the name(s) of the above copyright *
* holders shall not be used in advertising or otherwise to promote the *
* sale, use or other dealings in this Software without prior written *
* authorization. *
****************************************************************************/
/****************************************************************************
* Author: Thomas E. Dickey 1997 *
****************************************************************************/
/*
* $Id: ncurses_cfg.hin,v 1.11 2020/02/02 23:34:34 tom Exp $
*
* This is a template-file used to generate the "ncurses_cfg.h" file.
*
* Rather than list every definition, the configuration script substitutes the
* definitions that it finds using 'sed'. You need a patch (original date
* 971222) to autoconf 2.12 or 2.13 to do this.
*
* See:
* https://invisible-island.net/autoconf/
* ftp://ftp.invisible-island.net/autoconf/
*/
#ifndef NC_CONFIG_H
#define NC_CONFIG_H
@DEFS@
#include
/* The C compiler may not treat these properly but C++ has to */
#ifdef __cplusplus
#undef const
#undef inline
#else
#if defined(lint) || defined(TRACE)
#undef inline
#define inline /* nothing */
#endif
#endif
/* On HP-UX, the C compiler doesn't grok mbstate_t without
-D_XOPEN_SOURCE=500. However, this causes problems on
IRIX. So, we #define mbstate_t to int in configure.in
only for the C compiler if needed. */
#ifndef __cplusplus
#ifdef NEED_MBSTATE_T_DEF
#define mbstate_t int
#endif
#endif
#endif /* NC_CONFIG_H */
AdaCurses-20211021/include/MKncurses_def.sh 0000755 0001751 0000144 00000006407 13615656212 017065 0 ustar tom users #! /bin/sh
# $Id: MKncurses_def.sh,v 1.4 2020/02/02 23:34:34 tom Exp $
##############################################################################
# Copyright 2020 Thomas E. Dickey #
# Copyright 2003 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 "Software"), #
# to deal in the Software without restriction, including without limitation #
# the rights to use, copy, modify, merge, publish, distribute, distribute #
# with modifications, 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. #
# #
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR #
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, #
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL #
# THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER #
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING #
# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER #
# DEALINGS IN THE SOFTWARE. #
# #
# Except as contained in this notice, the name(s) of the above copyright #
# holders shall not be used in advertising or otherwise to promote the sale, #
# use or other dealings in this Software without prior written #
# authorization. #
##############################################################################
#
# MKncurses_def.sh -- generate fallback definitions for ncurses_cfg.h
#
# Author: Thomas E. Dickey 2000
#
# Given the choice between constructs such as
#
# #if defined(foo) && foo
# #if foo
#
# we chose the latter. It is guaranteed by the language standard, and there
# appear to be no broken compilers that do not honor that detail. But some
# people want to use gcc's -Wundef option (corresponding to one of the less
# useful features in Watcom's compiler) to check for misspellings. So we
# generate a set of fallback definitions to quiet the warnings without making
# the code ugly.
#
DEFS="${1-ncurses_defs}"
cat <$@
tags:
ctags *.[ch]
@MAKE_UPPER_TAGS@TAGS:
@MAKE_UPPER_TAGS@ etags *.[ch]
mostlyclean ::
-rm -f core tags TAGS *~ *.bak *.i *.ln *.atac trace
clean :: mostlyclean
-rm -f $(AUTO_SRC)
distclean :: clean
-rm -f Makefile
realclean :: distclean
###############################################################################
# The remainder of this file is automatically generated during configuration
###############################################################################
AdaCurses-20211021/include/ncurses_defs 0000644 0001751 0000144 00000011506 14062736236 016402 0 ustar tom users # $Id: ncurses_defs,v 1.46 2021/06/17 21:20:30 tom Exp $
##############################################################################
# Copyright 2020,2021 Thomas E. Dickey #
# Copyright 2008-2012,2013 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 "Software"), #
# to deal in the Software without restriction, including without limitation #
# the rights to use, copy, modify, merge, publish, distribute, distribute #
# with modifications, 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. #
# #
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR #
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, #
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL #
# THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER #
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING #
# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER #
# DEALINGS IN THE SOFTWARE. #
# #
# Except as contained in this notice, the name(s) of the above copyright #
# holders shall not be used in advertising or otherwise to promote the sale, #
# use or other dealings in this Software without prior written #
# authorization. #
##############################################################################
#
# See "MKncurses_def.sh" for an explanation.
#
# (hint: don't try to define NDEBUG ;-)
BROKEN_LINKER
BSD_TPUTS
CPP_HAS_PARAM_INIT
CURSES_ACS_ARRAY acs_map
CURSES_WACS_ARRAY _nc_wacs
DECL_ERRNO
ETIP_NEEDS_MATH_H
GCC_NORETURN /* nothing */
GCC_UNUSED /* nothing */
HAVE_BIG_CORE
HAVE_BSD_CGETENT
HAVE_BSD_SIGNAL_H
HAVE_BTOWC
HAVE_BUILTIN_H
HAVE_CHGAT 1
HAVE_COLOR_SET 1
HAVE_DIRENT_H
HAVE_ERRNO
HAVE_FCNTL_H
HAVE_FILTER 1
HAVE_FORM_H
HAVE_GETBEGX 1
HAVE_GETCURX 1
HAVE_GETCWD
HAVE_GETEGID
HAVE_GETEUID
HAVE_GETMAXX 1
HAVE_GETNSTR
HAVE_GETOPT_H
HAVE_GETPARX 1
HAVE_GETTIMEOFDAY
HAVE_GETTTYNAM
HAVE_GETWIN 1
HAVE_GPM_H
HAVE_GPP_BUILTIN_H
HAVE_GXX_BUILTIN_H
HAVE_HAS_KEY
HAVE_IOSTREAM
HAVE_ISASCII
HAVE_ISSETUGID
HAVE_LANGINFO_CODESET
HAVE_LIBC_H
HAVE_LIBDBMALLOC
HAVE_LIBDMALLOC
HAVE_LIBFORM
HAVE_LIBGPM
HAVE_LIBMENU
HAVE_LIBMPATROL
HAVE_LIBPANEL
HAVE_LIMITS_H
HAVE_LINK
HAVE_LOCALE_H
HAVE_LONG_FILE_NAMES
HAVE_MBLEN
HAVE_MBRLEN
HAVE_MBRTOWC
HAVE_MBSRTOWCS
HAVE_MBSTOWCS
HAVE_MBTOWC
HAVE_MENU_H
HAVE_MKSTEMP
HAVE_MVVLINE 1
HAVE_MVWVLINE 1
HAVE_NANOSLEEP
HAVE_NC_ALLOC_H
HAVE_PANEL_H
HAVE_POLL
HAVE_POLL_H
HAVE_PURIFY
HAVE_PUTWC
HAVE_PUTWIN 1
HAVE_REGEXPR_H_FUNCS
HAVE_REGEXP_H_FUNCS
HAVE_REGEX_H_FUNCS
HAVE_REMOVE
HAVE_RESIZETERM
HAVE_RESIZE_TERM
HAVE_RIPOFFLINE 1
HAVE_SELECT
HAVE_SETBUF
HAVE_SETBUFFER
HAVE_SETUPTERM 1
HAVE_SETVBUF
HAVE_SIGACTION
HAVE_SIGVEC
HAVE_SIZECHANGE
HAVE_SLK_COLOR
HAVE_SLK_INIT 1
HAVE_STRSTR
HAVE_SYMLINK
HAVE_SYS_BSDTYPES_H
HAVE_SYS_IOCTL_H
HAVE_SYS_PARAM_H
HAVE_SYS_POLL_H
HAVE_SYS_SELECT_H
HAVE_SYS_TERMIO_H
HAVE_SYS_TIMES_H
HAVE_SYS_TIME_H
HAVE_SYS_TIME_SELECT
HAVE_TCGETATTR
HAVE_TCGETPGRP
HAVE_TELL
HAVE_TERMATTRS 1
HAVE_TERMIOS_H
HAVE_TERMIO_H
HAVE_TERMNAME 1
HAVE_TERM_H 1
HAVE_TGETENT 1
HAVE_TIGETNUM 1
HAVE_TIGETSTR 1
HAVE_TIMES
HAVE_TTYENT_H
HAVE_TYPEAHEAD 1
HAVE_TYPEINFO
HAVE_TYPE_ATTR_T
HAVE_TYPE_SIGACTION
HAVE_UNISTD_H
HAVE_UNLINK
HAVE_USE_DEFAULT_COLORS
HAVE_VFSCANF
HAVE_VSNPRINTF
HAVE_VSSCANF
HAVE_WCSRTOMBS
HAVE_WCSTOMBS
HAVE_WCTOB
HAVE_WCTOMB
HAVE_WCTYPE_H
HAVE_WINSSTR 1
HAVE_WORKING_POLL
HAVE_WRESIZE
HAVE__DOSCAN
MIXEDCASE_FILENAMES
NCURSES_CHAR_EQ
NCURSES_EXPANDED
NCURSES_EXT_COLORS
NCURSES_EXT_FUNCS
NCURSES_NO_PADDING
NCURSES_PATHSEP ':'
NEED_PTEM_H
NO_LEAKS
PURE_TERMINFO
STDC_HEADERS
SVR4_ACTION
SVR4_TERMIO
SYSTEM_NAME "unknown"
TERMINFO "none"
TERMPATH "none"
TIME_WITH_SYS_TIME
TYPEOF_CHTYPE
USE_COLORFGBG
USE_DATABASE
USE_GETCAP
USE_GETCAP_CACHE
USE_HARD_TABS
USE_HASHED_DB
USE_HASHMAP
USE_HOME_TERMINFO
USE_LINKS
USE_MY_MEMMOVE
USE_OK_BCOPY
USE_RCS_IDS
USE_REENTRANT
USE_SAFE_SPRINTF
USE_SCROLL_HINTS
USE_SIGWINCH
USE_SYMLINKS
USE_SYSMOUSE
USE_TERMCAP
USE_WEAK_SYMBOLS
USE_WIDEC_SUPPORT
USE_XMC_SUPPORT
AdaCurses-20211021/README 0000644 0001751 0000144 00000004525 14062736236 013234 0 ustar tom users -------------------------------------------------------------------------------
-- Copyright 2020,2021 Thomas E. Dickey --
-- Copyright 1998-2002,2003 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN --
-- NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE --
-- USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
-------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
The documentation is provided in HTML format in the ./html
subdirectory. The main document is named index.html
AdaCurses-20211021/Makefile.in 0000644 0001751 0000144 00000006777 14070131176 014423 0 ustar tom users # $Id: Makefile.in,v 1.28 2021/07/03 18:54:54 tom Exp $
##############################################################################
# Copyright 2020,2021 Thomas E. Dickey #
# Copyright 1998-2010,2015 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 "Software"), #
# to deal in the Software without restriction, including without limitation #
# the rights to use, copy, modify, merge, publish, distribute, distribute #
# with modifications, 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. #
# #
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR #
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, #
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL #
# THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER #
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING #
# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER #
# DEALINGS IN THE SOFTWARE. #
# #
# Except as contained in this notice, the name(s) of the above copyright #
# holders shall not be used in advertising or otherwise to promote the sale, #
# use or other dealings in this Software without prior written #
# authorization. #
##############################################################################
#
# Author: Juergen Pfeifer, 1996
#
# Version Control
# $Revision: 1.28 $
#
SHELL = @SHELL@
VPATH = @srcdir@
THIS = Makefile
SUBDIRS = @ADA_SUBDIRS@
TOP_MFLAGS = @cf_cv_makeflags@ DESTDIR="$(DESTDIR)" RPATH_LIST="$(RPATH_LIST)"
@SET_MAKE@
################################################################################
@MAKE_PHONY@.PHONY : all
@MAKE_PHONY@.PHONY : clean
@MAKE_PHONY@.PHONY : depend
@MAKE_PHONY@.PHONY : distclean
@MAKE_PHONY@.PHONY : install
@MAKE_PHONY@.PHONY : install.libs
@MAKE_PHONY@.PHONY : libs
@MAKE_PHONY@.PHONY : mostlyclean
@MAKE_PHONY@.PHONY : realclean
@MAKE_PHONY@.PHONY : sources
@MAKE_PHONY@.PHONY : uninstall
@MAKE_PHONY@.PHONY : uninstall.libs
all \
libs \
sources \
install \
install.libs \
uninstall \
uninstall.libs ::
for d in $(SUBDIRS); do \
( cd $$d && $(MAKE) $(TOP_MFLAGS) $@ ) ;\
done
clean \
mostlyclean ::
for d in $(SUBDIRS); do \
( cd $$d && $(MAKE) $(TOP_MFLAGS) $@ ) ;\
done
distclean \
realclean ::
for d in $(SUBDIRS); do \
( cd $$d && $(MAKE) $(TOP_MFLAGS) $@ ) ;\
done
rm -rf lib
for lib_kind in static dynamic; do \
rm -rf $${lib_kind}-ali; \
rm -rf $${lib_kind}-obj; \
done
-rm -f config.cache config.log config.status include/ncurses_cfg.h
-rm -f Makefile
depend :
tags :
@
preinstall :
@
install.data :
@
AdaCurses-20211021/MANIFEST 0000644 0001751 0000144 00000030415 14134402303 013463 0 ustar tom users ./COPYING
./MANIFEST
./Makefile.in
./NEWS
./README
./TODO
./aclocal.m4
./config.guess
./config.sub
./configure
./configure.in
./doc/Ada95.html
./doc/MKada_config.in
./doc/Makefile.in
./doc/ada/files.htm
./doc/ada/files/T.htm
./doc/ada/funcs.htm
./doc/ada/funcs/A.htm
./doc/ada/funcs/B.htm
./doc/ada/funcs/C.htm
./doc/ada/funcs/D.htm
./doc/ada/funcs/E.htm
./doc/ada/funcs/F.htm
./doc/ada/funcs/G.htm
./doc/ada/funcs/H.htm
./doc/ada/funcs/I.htm
./doc/ada/funcs/K.htm
./doc/ada/funcs/L.htm
./doc/ada/funcs/M.htm
./doc/ada/funcs/N.htm
./doc/ada/funcs/O.htm
./doc/ada/funcs/P.htm
./doc/ada/funcs/Q.htm
./doc/ada/funcs/R.htm
./doc/ada/funcs/S.htm
./doc/ada/funcs/T.htm
./doc/ada/funcs/U.htm
./doc/ada/funcs/V.htm
./doc/ada/funcs/W.htm
./doc/ada/index.htm
./doc/ada/main.htm
./doc/ada/table.html
./doc/ada/terminal_interface-curses-aux__adb.htm
./doc/ada/terminal_interface-curses-aux__ads.htm
./doc/ada/terminal_interface-curses-forms-field_types-alpha__adb.htm
./doc/ada/terminal_interface-curses-forms-field_types-alpha__ads.htm
./doc/ada/terminal_interface-curses-forms-field_types-alphanumeric__adb.htm
./doc/ada/terminal_interface-curses-forms-field_types-alphanumeric__ads.htm
./doc/ada/terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm
./doc/ada/terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm
./doc/ada/terminal_interface-curses-forms-field_types-enumeration__adb.htm
./doc/ada/terminal_interface-curses-forms-field_types-enumeration__ads.htm
./doc/ada/terminal_interface-curses-forms-field_types-intfield__adb.htm
./doc/ada/terminal_interface-curses-forms-field_types-intfield__ads.htm
./doc/ada/terminal_interface-curses-forms-field_types-ipv4_address__adb.htm
./doc/ada/terminal_interface-curses-forms-field_types-ipv4_address__ads.htm
./doc/ada/terminal_interface-curses-forms-field_types-numeric__adb.htm
./doc/ada/terminal_interface-curses-forms-field_types-numeric__ads.htm
./doc/ada/terminal_interface-curses-forms-field_types-regexp__adb.htm
./doc/ada/terminal_interface-curses-forms-field_types-regexp__ads.htm
./doc/ada/terminal_interface-curses-forms-field_types-user-choice__adb.htm
./doc/ada/terminal_interface-curses-forms-field_types-user-choice__ads.htm
./doc/ada/terminal_interface-curses-forms-field_types-user__adb.htm
./doc/ada/terminal_interface-curses-forms-field_types-user__ads.htm
./doc/ada/terminal_interface-curses-forms-field_types__adb.htm
./doc/ada/terminal_interface-curses-forms-field_types__ads.htm
./doc/ada/terminal_interface-curses-forms-field_user_data__adb.htm
./doc/ada/terminal_interface-curses-forms-field_user_data__ads.htm
./doc/ada/terminal_interface-curses-forms-form_user_data__adb.htm
./doc/ada/terminal_interface-curses-forms-form_user_data__ads.htm
./doc/ada/terminal_interface-curses-forms__adb.htm
./doc/ada/terminal_interface-curses-forms__ads.htm
./doc/ada/terminal_interface-curses-menus-item_user_data__adb.htm
./doc/ada/terminal_interface-curses-menus-item_user_data__ads.htm
./doc/ada/terminal_interface-curses-menus-menu_user_data__adb.htm
./doc/ada/terminal_interface-curses-menus-menu_user_data__ads.htm
./doc/ada/terminal_interface-curses-menus__adb.htm
./doc/ada/terminal_interface-curses-menus__ads.htm
./doc/ada/terminal_interface-curses-mouse__adb.htm
./doc/ada/terminal_interface-curses-mouse__ads.htm
./doc/ada/terminal_interface-curses-panels-user_data__adb.htm
./doc/ada/terminal_interface-curses-panels-user_data__ads.htm
./doc/ada/terminal_interface-curses-panels__adb.htm
./doc/ada/terminal_interface-curses-panels__ads.htm
./doc/ada/terminal_interface-curses-putwin__adb.htm
./doc/ada/terminal_interface-curses-putwin__ads.htm
./doc/ada/terminal_interface-curses-termcap__adb.htm
./doc/ada/terminal_interface-curses-termcap__ads.htm
./doc/ada/terminal_interface-curses-terminfo__adb.htm
./doc/ada/terminal_interface-curses-terminfo__ads.htm
./doc/ada/terminal_interface-curses-text_io-aux__adb.htm
./doc/ada/terminal_interface-curses-text_io-aux__ads.htm
./doc/ada/terminal_interface-curses-text_io-complex_io__adb.htm
./doc/ada/terminal_interface-curses-text_io-complex_io__ads.htm
./doc/ada/terminal_interface-curses-text_io-decimal_io__adb.htm
./doc/ada/terminal_interface-curses-text_io-decimal_io__ads.htm
./doc/ada/terminal_interface-curses-text_io-enumeration_io__adb.htm
./doc/ada/terminal_interface-curses-text_io-enumeration_io__ads.htm
./doc/ada/terminal_interface-curses-text_io-fixed_io__adb.htm
./doc/ada/terminal_interface-curses-text_io-fixed_io__ads.htm
./doc/ada/terminal_interface-curses-text_io-float_io__adb.htm
./doc/ada/terminal_interface-curses-text_io-float_io__ads.htm
./doc/ada/terminal_interface-curses-text_io-integer_io__adb.htm
./doc/ada/terminal_interface-curses-text_io-integer_io__ads.htm
./doc/ada/terminal_interface-curses-text_io-modular_io__adb.htm
./doc/ada/terminal_interface-curses-text_io-modular_io__ads.htm
./doc/ada/terminal_interface-curses-text_io__adb.htm
./doc/ada/terminal_interface-curses-text_io__ads.htm
./doc/ada/terminal_interface-curses-trace__adb.htm
./doc/ada/terminal_interface-curses-trace__ads.htm
./doc/ada/terminal_interface-curses__adb.htm
./doc/ada/terminal_interface-curses__ads.htm
./doc/ada/terminal_interface-curses_constants__ads.htm
./doc/ada/terminal_interface__ads.htm
./gen/Makefile.in
./gen/adacurses-config.in
./gen/gen.c
./gen/html.m4
./gen/normal.m4
./gen/table.m4
./gen/terminal_interface-curses-aux.ads.m4
./gen/terminal_interface-curses-forms-field_types.ads.m4
./gen/terminal_interface-curses-forms-field_user_data.ads.m4
./gen/terminal_interface-curses-forms-form_user_data.ads.m4
./gen/terminal_interface-curses-forms.ads.m4
./gen/terminal_interface-curses-menus-item_user_data.ads.m4
./gen/terminal_interface-curses-menus-menu_user_data.ads.m4
./gen/terminal_interface-curses-menus.ads.m4
./gen/terminal_interface-curses-mouse.ads.m4
./gen/terminal_interface-curses-panels-user_data.ads.m4
./gen/terminal_interface-curses-panels.ads.m4
./gen/terminal_interface-curses-trace.ads.m4
./gen/terminal_interface-curses.adb.m4
./gen/terminal_interface-curses.ads.m4
./include/MKncurses_def.sh
./include/Makefile.in
./include/ncurses_cfg.hin
./include/ncurses_defs
./install-sh
./make-tar.sh
./mk-1st.awk
./package/AdaCurses-doc.spec
./package/AdaCurses.spec
./package/debian/changelog
./package/debian/compat
./package/debian/control
./package/debian/copyright
./package/debian/docs
./package/debian/rules
./package/debian/source/format
./package/debian/watch
./samples/Makefile.in
./samples/README
./samples/explain.txt
./samples/ncurses.adb
./samples/ncurses2-acs_and_scroll.adb
./samples/ncurses2-acs_and_scroll.ads
./samples/ncurses2-acs_display.adb
./samples/ncurses2-acs_display.ads
./samples/ncurses2-attr_test.adb
./samples/ncurses2-attr_test.ads
./samples/ncurses2-color_edit.adb
./samples/ncurses2-color_edit.ads
./samples/ncurses2-color_test.adb
./samples/ncurses2-color_test.ads
./samples/ncurses2-demo_forms.adb
./samples/ncurses2-demo_forms.ads
./samples/ncurses2-demo_pad.adb
./samples/ncurses2-demo_pad.ads
./samples/ncurses2-demo_panels.adb
./samples/ncurses2-demo_panels.ads
./samples/ncurses2-flushinp_test.adb
./samples/ncurses2-flushinp_test.ads
./samples/ncurses2-genericputs.adb
./samples/ncurses2-genericputs.ads
./samples/ncurses2-getch.ads
./samples/ncurses2-getch_test.adb
./samples/ncurses2-getch_test.ads
./samples/ncurses2-getopt.adb
./samples/ncurses2-getopt.ads
./samples/ncurses2-m.adb
./samples/ncurses2-m.ads
./samples/ncurses2-menu_test.adb
./samples/ncurses2-menu_test.ads
./samples/ncurses2-overlap_test.adb
./samples/ncurses2-overlap_test.ads
./samples/ncurses2-slk_test.adb
./samples/ncurses2-slk_test.ads
./samples/ncurses2-test_sgr_attributes.adb
./samples/ncurses2-test_sgr_attributes.ads
./samples/ncurses2-trace_set.adb
./samples/ncurses2-trace_set.ads
./samples/ncurses2-util.adb
./samples/ncurses2-util.ads
./samples/ncurses2.ads
./samples/rain.adb
./samples/rain.ads
./samples/sample-curses_demo-attributes.adb
./samples/sample-curses_demo-attributes.ads
./samples/sample-curses_demo-mouse.adb
./samples/sample-curses_demo-mouse.ads
./samples/sample-curses_demo.adb
./samples/sample-curses_demo.ads
./samples/sample-explanation.adb_p
./samples/sample-explanation.ads
./samples/sample-form_demo-aux.adb
./samples/sample-form_demo-aux.ads
./samples/sample-form_demo-handler.adb
./samples/sample-form_demo-handler.ads
./samples/sample-form_demo.adb
./samples/sample-form_demo.ads
./samples/sample-function_key_setting.adb
./samples/sample-function_key_setting.ads
./samples/sample-header_handler.adb
./samples/sample-header_handler.ads
./samples/sample-helpers.adb
./samples/sample-helpers.ads
./samples/sample-keyboard_handler.adb
./samples/sample-keyboard_handler.ads
./samples/sample-manifest.ads
./samples/sample-menu_demo-aux.adb
./samples/sample-menu_demo-aux.ads
./samples/sample-menu_demo-handler.adb
./samples/sample-menu_demo-handler.ads
./samples/sample-menu_demo.adb
./samples/sample-menu_demo.ads
./samples/sample-my_field_type.adb
./samples/sample-my_field_type.ads
./samples/sample-text_io_demo.adb
./samples/sample-text_io_demo.ads
./samples/sample.adb
./samples/sample.ads
./samples/split-path.awk
./samples/status.adb
./samples/status.ads
./samples/tour.adb
./samples/tour.ads
./src/Makefile.in
./src/c_threaded_variables.c
./src/c_threaded_variables.h
./src/c_varargs_to_ada.c
./src/c_varargs_to_ada.h
./src/library-cfg.sh
./src/library.gpr.in
./src/modules
./src/ncurses_compat.c
./src/terminal_interface-curses-aux.adb
./src/terminal_interface-curses-forms-field_types-alpha.adb
./src/terminal_interface-curses-forms-field_types-alpha.ads
./src/terminal_interface-curses-forms-field_types-alphanumeric.adb
./src/terminal_interface-curses-forms-field_types-alphanumeric.ads
./src/terminal_interface-curses-forms-field_types-enumeration-ada.adb
./src/terminal_interface-curses-forms-field_types-enumeration-ada.ads
./src/terminal_interface-curses-forms-field_types-enumeration.adb
./src/terminal_interface-curses-forms-field_types-enumeration.ads
./src/terminal_interface-curses-forms-field_types-intfield.adb
./src/terminal_interface-curses-forms-field_types-intfield.ads
./src/terminal_interface-curses-forms-field_types-ipv4_address.adb
./src/terminal_interface-curses-forms-field_types-ipv4_address.ads
./src/terminal_interface-curses-forms-field_types-numeric.adb
./src/terminal_interface-curses-forms-field_types-numeric.ads
./src/terminal_interface-curses-forms-field_types-regexp.adb
./src/terminal_interface-curses-forms-field_types-regexp.ads
./src/terminal_interface-curses-forms-field_types-user-choice.adb
./src/terminal_interface-curses-forms-field_types-user-choice.ads
./src/terminal_interface-curses-forms-field_types-user.adb
./src/terminal_interface-curses-forms-field_types-user.ads
./src/terminal_interface-curses-forms-field_types.adb
./src/terminal_interface-curses-forms-field_user_data.adb
./src/terminal_interface-curses-forms-form_user_data.adb
./src/terminal_interface-curses-forms.adb
./src/terminal_interface-curses-menus-item_user_data.adb
./src/terminal_interface-curses-menus-menu_user_data.adb
./src/terminal_interface-curses-menus.adb
./src/terminal_interface-curses-mouse.adb
./src/terminal_interface-curses-panels-user_data.adb
./src/terminal_interface-curses-panels.adb
./src/terminal_interface-curses-putwin.adb
./src/terminal_interface-curses-putwin.ads
./src/terminal_interface-curses-termcap.adb
./src/terminal_interface-curses-termcap.ads
./src/terminal_interface-curses-terminfo.adb
./src/terminal_interface-curses-terminfo.ads
./src/terminal_interface-curses-text_io-aux.adb
./src/terminal_interface-curses-text_io-aux.ads
./src/terminal_interface-curses-text_io-complex_io.adb
./src/terminal_interface-curses-text_io-complex_io.ads
./src/terminal_interface-curses-text_io-decimal_io.adb
./src/terminal_interface-curses-text_io-decimal_io.ads
./src/terminal_interface-curses-text_io-enumeration_io.adb
./src/terminal_interface-curses-text_io-enumeration_io.ads
./src/terminal_interface-curses-text_io-fixed_io.adb
./src/terminal_interface-curses-text_io-fixed_io.ads
./src/terminal_interface-curses-text_io-float_io.adb
./src/terminal_interface-curses-text_io-float_io.ads
./src/terminal_interface-curses-text_io-integer_io.adb
./src/terminal_interface-curses-text_io-integer_io.ads
./src/terminal_interface-curses-text_io-modular_io.adb
./src/terminal_interface-curses-text_io-modular_io.ads
./src/terminal_interface-curses-text_io.adb
./src/terminal_interface-curses-text_io.ads
./src/terminal_interface-curses-trace.adb_p
./src/terminal_interface.ads
AdaCurses-20211021/gen/ 0000755 0001751 0000144 00000000000 14134402303 013100 5 ustar tom users AdaCurses-20211021/gen/terminal_interface-curses-mouse.ads.m4 0000644 0001751 0000144 00000022403 13615656212 022411 0 ustar tom users -- -*- ada -*-
define(`HTMLNAME',`terminal_interface-curses-mouse__ads.htm')dnl
include(M4MACRO)dnl
------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding --
-- --
-- Terminal_Interface.Curses.Mouse --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2014,2015 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control:
-- $Revision: 1.33 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with System;
package Terminal_Interface.Curses.Mouse is
pragma Preelaborate (Terminal_Interface.Curses.Mouse);
-- MANPAGE(`curs_mouse.3x')
-- mouse_trafo, wmouse_trafo are implemented as Transform_Coordinates
-- in the parent package.
--
-- Not implemented:
-- REPORT_MOUSE_POSITION (i.e. as a parameter to Register_Reportable_Event
-- or Start_Mouse)
type Event_Mask is private;
No_Events : constant Event_Mask;
All_Events : constant Event_Mask;
type Mouse_Button is (Left, -- aka: Button 1
Middle, -- aka: Button 2
Right, -- aka: Button 3
Button4, -- aka: Button 4
Control, -- Control Key
Shift, -- Shift Key
Alt); -- ALT Key
subtype Real_Buttons is Mouse_Button range Left .. Button4;
subtype Modifier_Keys is Mouse_Button range Control .. Alt;
type Button_State is (Released,
Pressed,
Clicked,
Double_Clicked,
Triple_Clicked);
type Button_States is array (Button_State) of Boolean;
pragma Pack (Button_States);
All_Clicks : constant Button_States := (Clicked .. Triple_Clicked => True,
others => False);
All_States : constant Button_States := (others => True);
type Mouse_Event is private;
-- MANPAGE(`curs_mouse.3x')
function Has_Mouse return Boolean;
-- Return true if a mouse device is supported, false otherwise.
procedure Register_Reportable_Event
(Button : Mouse_Button;
State : Button_State;
Mask : in out Event_Mask);
-- Stores the event described by the button and the state in the mask.
-- Before you call this the first time, you should initialize the mask
-- with the Empty_Mask constant
pragma Inline (Register_Reportable_Event);
procedure Register_Reportable_Events
(Button : Mouse_Button;
State : Button_States;
Mask : in out Event_Mask);
-- Register all events described by the Button and the State bitmap.
-- Before you call this the first time, you should initialize the mask
-- with the Empty_Mask constant
-- ANCHOR(`mousemask()',`Start_Mouse')
-- There is one difference to mousmask(): we return the value of the
-- old mask, that means the event mask value before this call.
-- Not Implemented: The library version
-- returns a Mouse_Mask that tells which events are reported.
function Start_Mouse (Mask : Event_Mask := All_Events)
return Event_Mask;
-- AKA
pragma Inline (Start_Mouse);
procedure End_Mouse (Mask : Event_Mask := No_Events);
-- Terminates the mouse, restores the specified event mask
pragma Inline (End_Mouse);
-- ANCHOR(`getmouse()',`Get_Mouse')
function Get_Mouse return Mouse_Event;
-- AKA
pragma Inline (Get_Mouse);
procedure Get_Event (Event : Mouse_Event;
Y : out Line_Position;
X : out Column_Position;
Button : out Mouse_Button;
State : out Button_State);
-- !!! Warning: X and Y are screen coordinates. Due to ripped of lines they
-- may not be identical to window coordinates.
-- Not Implemented: Get_Event only reports one event, the C library
-- version supports multiple events, e.g. {click-1, click-3}
pragma Inline (Get_Event);
-- ANCHOR(`ungetmouse()',`Unget_Mouse')
procedure Unget_Mouse (Event : Mouse_Event);
-- AKA
pragma Inline (Unget_Mouse);
-- ANCHOR(`wenclose()',`Enclosed_In_Window')
function Enclosed_In_Window (Win : Window := Standard_Window;
Event : Mouse_Event) return Boolean;
-- AKA
-- But : use event instead of screen coordinates.
pragma Inline (Enclosed_In_Window);
-- ANCHOR(`mouseinterval()',`Mouse_Interval')
function Mouse_Interval (Msec : Natural := 200) return Natural;
-- AKA
pragma Inline (Mouse_Interval);
private
-- This can be as little as 32 bits (unsigned), or as long as the system's
-- unsigned long. Declare it as the minimum size to handle all valid
-- sizes.
type Event_Mask is mod 4294967296;
type Mouse_Event is
record
Id : Integer range Integer (Interfaces.C.short'First) ..
Integer (Interfaces.C.short'Last);
X, Y, Z : Integer range Integer (Interfaces.C.int'First) ..
Integer (Interfaces.C.int'Last);
Bstate : Event_Mask;
end record;
pragma Convention (C, Mouse_Event);
for Mouse_Event use
record
Id at 0 range Curses_Constants.MEVENT_id_First
.. Curses_Constants.MEVENT_id_Last;
X at 0 range Curses_Constants.MEVENT_x_First
.. Curses_Constants.MEVENT_x_Last;
Y at 0 range Curses_Constants.MEVENT_y_First
.. Curses_Constants.MEVENT_y_Last;
Z at 0 range Curses_Constants.MEVENT_z_First
.. Curses_Constants.MEVENT_z_Last;
Bstate at 0 range Curses_Constants.MEVENT_bstate_First
.. Curses_Constants.MEVENT_bstate_Last;
end record;
for Mouse_Event'Size use Curses_Constants.MEVENT_Size;
Generation_Bit_Order : System.Bit_Order renames Curses_Constants.Bit_Order;
BUTTON_CTRL : constant Event_Mask := Curses_Constants.BUTTON_CTRL;
BUTTON_SHIFT : constant Event_Mask := Curses_Constants.BUTTON_SHIFT;
BUTTON_ALT : constant Event_Mask := Curses_Constants.BUTTON_ALT;
BUTTON1_EVENTS : constant Event_Mask
:= Curses_Constants.all_events_button_1;
BUTTON2_EVENTS : constant Event_Mask
:= Curses_Constants.all_events_button_2;
BUTTON3_EVENTS : constant Event_Mask
:= Curses_Constants.all_events_button_3;
BUTTON4_EVENTS : constant Event_Mask
:= Curses_Constants.all_events_button_4;
ALL_MOUSE_EVENTS : constant Event_Mask := Curses_Constants.ALL_MOUSE_EVENTS;
No_Events : constant Event_Mask := 0;
All_Events : constant Event_Mask := ALL_MOUSE_EVENTS;
end Terminal_Interface.Curses.Mouse;
AdaCurses-20211021/gen/table.m4 0000644 0001751 0000144 00000004766 13615656212 014463 0 ustar tom users dnl***************************************************************************
dnl Copyright 2020 Thomas E. Dickey *
dnl Copyright 2000,2006 Free Software Foundation, Inc. *
dnl *
dnl Permission is hereby granted, free of charge, to any person obtaining a *
dnl copy of this software and associated documentation files (the *
dnl "Software"), to deal in the Software without restriction, including *
dnl without limitation the rights to use, copy, modify, merge, publish, *
dnl distribute, distribute with modifications, sublicense, and/or sell *
dnl copies of the Software, and to permit persons to whom the Software is *
dnl furnished to do so, subject to the following conditions: *
dnl *
dnl The above copyright notice and this permission notice shall be included *
dnl in all copies or substantial portions of the Software. *
dnl *
dnl THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS *
dnl OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF *
dnl MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. *
dnl IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, *
dnl DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR *
dnl OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR *
dnl THE USE OR OTHER DEALINGS IN THE SOFTWARE. *
dnl *
dnl Except as contained in this notice, the name(s) of the above copyright *
dnl holders shall not be used in advertising or otherwise to promote the *
dnl sale, use or other dealings in this Software without prior written *
dnl authorization. *
dnl***************************************************************************
dnl
dnl $Id: table.m4,v 1.3 2020/02/02 23:34:34 tom Exp $
define(`ANCHORIDX',`0')dnl
define(`MANPAGE',`define(`MANPG',$1)')dnl
divert(-1)dnl
define(`ANCHOR',`divert(0)define(`ANCHORIDX',incr(ANCHORIDX))dnl
divert(-1)')
AdaCurses-20211021/gen/adacurses-config.in 0000644 0001751 0000144 00000006535 13615656212 016673 0 ustar tom users #! /bin/sh
# $Id: adacurses-config.in,v 1.14 2020/02/02 23:34:34 tom Exp $
##############################################################################
# Copyright 2019,2020 Thomas E. Dickey #
# Copyright 2007-2014,2016 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 "Software"), #
# to deal in the Software without restriction, including without limitation #
# the rights to use, copy, modify, merge, publish, distribute, distribute #
# with modifications, 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. #
# #
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR #
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, #
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL #
# THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER #
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING #
# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER #
# DEALINGS IN THE SOFTWARE. #
# #
# Except as contained in this notice, the name(s) of the above copyright #
# holders shall not be used in advertising or otherwise to promote the sale, #
# use or other dealings in this Software without prior written #
# authorization. #
##############################################################################
#
# This script returns the options to add to `gnatmake' for using AdaCurses.
DESTDIR=@DESTDIR@
prefix=@prefix@
exec_prefix=@exec_prefix@
libdir=@libdir@
ADA_INCLUDE=@ADA_INCLUDE@
ADA_OBJECTS=@ADA_OBJECTS@
VERSION=@NCURSES_MAJOR@.@NCURSES_MINOR@.@NCURSES_PATCH@
CFLAGS="-aI$ADA_INCLUDE -aO$ADA_OBJECTS"
LIBS="-L$ADA_OBJECTS -l@ADA_LIBNAME@"
THIS="@ADA_LIBNAME@"
THIS_CFG="$THIS@DFT_ARG_SUFFIX@-config"
case "x$1" in
x--version)
echo @ADA_LIBNAME@ $VERSION
;;
x--cflags)
echo $CFLAGS
;;
x--libs)
echo $LIBS
;;
x)
# if no parameter is given, give what gnatmake needs
echo "$CFLAGS -largs $LIBS"
;;
x--help)
cat <&2
exit 1
;;
esac
AdaCurses-20211021/gen/terminal_interface-curses-forms-field_types.ads.m4 0000644 0001751 0000144 00000026561 13615656212 024725 0 ustar tom users -- -*- ada -*-
define(`HTMLNAME',`terminal_interface-curses-forms-field_user_data__ads.htm')dnl
include(M4MACRO)dnl
------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding --
-- --
-- Terminal_Interface.Curses.Forms.Field_Types --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2018,2020 Thomas E. Dickey --
-- Copyright 1998-2011,2014 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control:
-- $Revision: 1.21 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Interfaces.C;
with Terminal_Interface.Curses.Aux;
package Terminal_Interface.Curses.Forms.Field_Types is
pragma Preelaborate (Terminal_Interface.Curses.Forms.Field_Types);
subtype C_Int is Interfaces.C.int;
-- MANPAGE(`form_fieldtype.3x')
type Field_Type is abstract tagged null record;
-- Abstract base type for all field types. A concrete field type
-- is an extension that adds some data elements describing formats or
-- boundary values for the type and validation routines.
-- For the builtin low-level fieldtypes, the validation routines are
-- already defined by the low-level C library.
-- The builtin types like Alpha or AlphaNumeric etc. are defined in
-- child packages of this package. You may use one of them as example
-- how to create you own child packages for low-level field types that
-- you may have already written in C.
type Field_Type_Access is access all Field_Type'Class;
-- ANCHOR(`set_field_type()',`Set_Type')
procedure Set_Field_Type (Fld : Field;
Fld_Type : Field_Type) is abstract;
-- AKA
-- But: we hide the vararg mechanism of the C interface. You always
-- have to pass a single Field_Type parameter.
-- ---------------------------------------------------------------------
-- MANPAGE(`form_field_validation.3x')
-- ANCHOR(`field_type()',`Get_Type')
function Get_Type (Fld : Field) return Field_Type_Access;
-- AKA
-- ALIAS(`field_arg()')
-- In Ada95 we can combine these. If you try to retrieve the field type
-- that is not defined as extension of the abstract tagged type above,
-- you will raise a Form_Exception.
-- This is not inlined
-- +----------------------------------------------------------------------
-- | Private Part.
-- | Most of this is used by the implementations of the child packages.
-- |
private
type Makearg_Function is access
function (Args : System.Address) return System.Address;
pragma Convention (C, Makearg_Function);
type Copyarg_Function is access
function (Usr : System.Address) return System.Address;
pragma Convention (C, Copyarg_Function);
type Freearg_Function is access
procedure (Usr : System.Address);
pragma Convention (C, Freearg_Function);
type Field_Check_Function is access
function (Fld : Field; Usr : System.Address) return Curses_Bool;
pragma Convention (C, Field_Check_Function);
type Char_Check_Function is access
function (Ch : C_Int; Usr : System.Address) return Curses_Bool;
pragma Convention (C, Char_Check_Function);
type Choice_Function is access
function (Fld : Field; Usr : System.Address) return Curses_Bool;
pragma Convention (C, Choice_Function);
-- +----------------------------------------------------------------------
-- | This must be in sync with the FIELDTYPE structure in form.h
-- |
type Low_Level_Field_Type is
record
Status : Interfaces.C.unsigned_short;
Ref_Count : Interfaces.C.long;
Left, Right : System.Address;
Makearg : Makearg_Function;
Copyarg : Copyarg_Function;
Freearg : Freearg_Function;
Fcheck : Field_Check_Function;
Ccheck : Char_Check_Function;
Next, Prev : Choice_Function;
end record;
pragma Convention (C, Low_Level_Field_Type);
type C_Field_Type is access all Low_Level_Field_Type;
Null_Field_Type : constant C_Field_Type := null;
-- +----------------------------------------------------------------------
-- | This four low-level fieldtypes are the ones associated with
-- | fieldtypes handled by this binding. Any other low-level fieldtype
-- | will result in a Form_Exception is function Get_Type.
-- |
M_Generic_Type : C_Field_Type := null;
M_Generic_Choice : C_Field_Type := null;
M_Builtin_Router : C_Field_Type := null;
M_Choice_Router : C_Field_Type := null;
-- Two wrapper functions to access those low-level fieldtypes defined
-- in this package.
function C_Builtin_Router return C_Field_Type;
function C_Choice_Router return C_Field_Type;
procedure Wrap_Builtin (Fld : Field;
Typ : Field_Type'Class;
Cft : C_Field_Type := C_Builtin_Router);
-- This procedure has to be called by the Set_Field_Type implementation
-- for builtin low-level fieldtypes to replace it by an Ada95
-- conformant Field_Type object.
-- The parameter Cft must be C_Builtin_Router for regular low-level
-- fieldtypes (like TYP_ALPHA or TYP_ALNUM) and C_Choice_Router for
-- low-level fieldtypes witch choice functions (like TYP_ENUM).
-- Any other value will raise a Form_Exception.
function Make_Arg (Args : System.Address) return System.Address;
pragma Import (C, Make_Arg, "void_star_make_arg");
-- This is the Makearg_Function for the internal low-level types
-- introduced by this binding.
function Copy_Arg (Usr : System.Address) return System.Address;
pragma Convention (C, Copy_Arg);
-- This is the Copyarg_Function for the internal low-level types
-- introduced by this binding.
procedure Free_Arg (Usr : System.Address);
pragma Convention (C, Free_Arg);
-- This is the Freearg_Function for the internal low-level types
-- introduced by this binding.
function Field_Check_Router (Fld : Field;
Usr : System.Address) return Curses_Bool;
pragma Convention (C, Field_Check_Router);
-- This is the Field_Check_Function for the internal low-level types
-- introduced to wrap the low-level types by a Field_Type derived
-- type. It routes the call to the corresponding low-level validation
-- function.
function Char_Check_Router (Ch : C_Int;
Usr : System.Address) return Curses_Bool;
pragma Convention (C, Char_Check_Router);
-- This is the Char_Check_Function for the internal low-level types
-- introduced to wrap the low-level types by a Field_Type derived
-- type. It routes the call to the corresponding low-level validation
-- function.
function Next_Router (Fld : Field;
Usr : System.Address) return Curses_Bool;
pragma Convention (C, Next_Router);
-- This is the Choice_Function for the internal low-level types
-- introduced to wrap the low-level types by a Field_Type derived
-- type. It routes the call to the corresponding low-level next_choice
-- function.
function Prev_Router (Fld : Field;
Usr : System.Address) return Curses_Bool;
pragma Convention (C, Prev_Router);
-- This is the Choice_Function for the internal low-level types
-- introduced to wrap the low-level types by a Field_Type derived
-- type. It routes the call to the corresponding low-level prev_choice
-- function.
-- This is the Argument structure maintained by all low-level field types
-- introduced by this binding.
type Argument is record
Typ : Field_Type_Access; -- the Field_Type creating this record
Usr : System.Address; -- original arg for builtin low-level types
Cft : C_Field_Type; -- the original low-level type
end record;
type Argument_Access is access all Argument;
-- +----------------------------------------------------------------------
-- |
-- | Some Imports of libform routines to deal with low-level fieldtypes.
-- |
function New_Fieldtype (Fcheck : Field_Check_Function;
Ccheck : Char_Check_Function)
return C_Field_Type;
pragma Import (C, New_Fieldtype, "new_fieldtype");
function Set_Fieldtype_Arg (Cft : C_Field_Type;
Mak : Makearg_Function := Make_Arg'Access;
Cop : Copyarg_Function := Copy_Arg'Access;
Fre : Freearg_Function := Free_Arg'Access)
return Aux.Eti_Error;
pragma Import (C, Set_Fieldtype_Arg, "set_fieldtype_arg");
function Set_Fieldtype_Choice (Cft : C_Field_Type;
Next, Prev : Choice_Function)
return Aux.Eti_Error;
pragma Import (C, Set_Fieldtype_Choice, "set_fieldtype_choice");
end Terminal_Interface.Curses.Forms.Field_Types;
AdaCurses-20211021/gen/terminal_interface-curses.adb.m4 0000644 0001751 0000144 00000242727 13615656212 021257 0 ustar tom users -- -*- ada -*-
define(`HTMLNAME',`terminal_interface-curses__adb.htm')dnl
include(M4MACRO)------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding --
-- --
-- Terminal_Interface.Curses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2018,2020 Thomas E. Dickey --
-- Copyright 2007-2011,2014 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control:
-- $Revision: 1.16 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with System;
with Terminal_Interface.Curses.Aux;
with Interfaces.C; use Interfaces.C;
with Interfaces.C.Strings; use Interfaces.C.Strings;
with Ada.Characters.Handling; use Ada.Characters.Handling;
with Ada.Strings.Fixed;
package body Terminal_Interface.Curses is
use Aux;
package ASF renames Ada.Strings.Fixed;
type chtype_array is array (size_t range <>)
of aliased Attributed_Character;
pragma Convention (C, chtype_array);
------------------------------------------------------------------------------
function Key_Name (Key : Real_Key_Code) return String
is
function Keyname (K : C_Int) return chars_ptr;
pragma Import (C, Keyname, "keyname");
Ch : Character;
begin
if Key <= Character'Pos (Character'Last) then
Ch := Character'Val (Key);
if Is_Control (Ch) then
return Un_Control (Attributed_Character'(Ch => Ch,
Color => Color_Pair'First,
Attr => Normal_Video));
elsif Is_Graphic (Ch) then
declare
S : String (1 .. 1);
begin
S (1) := Ch;
return S;
end;
else
return "";
end if;
else
return Fill_String (Keyname (C_Int (Key)));
end if;
end Key_Name;
procedure Key_Name (Key : Real_Key_Code;
Name : out String)
is
begin
ASF.Move (Key_Name (Key), Name);
end Key_Name;
------------------------------------------------------------------------------
procedure Init_Screen
is
function Initscr return Window;
pragma Import (C, Initscr, "initscr");
W : Window;
begin
W := Initscr;
if W = Null_Window then
raise Curses_Exception;
end if;
end Init_Screen;
procedure End_Windows
is
function Endwin return C_Int;
pragma Import (C, Endwin, "endwin");
begin
if Endwin = Curses_Err then
raise Curses_Exception;
end if;
end End_Windows;
function Is_End_Window return Boolean
is
function Isendwin return Curses_Bool;
pragma Import (C, Isendwin, "isendwin");
begin
if Isendwin = Curses_Bool_False then
return False;
else
return True;
end if;
end Is_End_Window;
------------------------------------------------------------------------------
procedure Move_Cursor (Win : Window := Standard_Window;
Line : Line_Position;
Column : Column_Position)
is
function Wmove (Win : Window;
Line : C_Int;
Column : C_Int
) return C_Int;
pragma Import (C, Wmove, "wmove");
begin
if Wmove (Win, C_Int (Line), C_Int (Column)) = Curses_Err then
raise Curses_Exception;
end if;
end Move_Cursor;
------------------------------------------------------------------------------
procedure Add (Win : Window := Standard_Window;
Ch : Attributed_Character)
is
function Waddch (W : Window;
Ch : Attributed_Character) return C_Int;
pragma Import (C, Waddch, "waddch");
begin
if Waddch (Win, Ch) = Curses_Err then
raise Curses_Exception;
end if;
end Add;
procedure Add (Win : Window := Standard_Window;
Ch : Character)
is
begin
Add (Win,
Attributed_Character'(Ch => Ch,
Color => Color_Pair'First,
Attr => Normal_Video));
end Add;
procedure Add
(Win : Window := Standard_Window;
Line : Line_Position;
Column : Column_Position;
Ch : Attributed_Character)
is
function mvwaddch (W : Window;
Y : C_Int;
X : C_Int;
Ch : Attributed_Character) return C_Int;
pragma Import (C, mvwaddch, "mvwaddch");
begin
if mvwaddch (Win, C_Int (Line),
C_Int (Column),
Ch) = Curses_Err
then
raise Curses_Exception;
end if;
end Add;
procedure Add
(Win : Window := Standard_Window;
Line : Line_Position;
Column : Column_Position;
Ch : Character)
is
begin
Add (Win,
Line,
Column,
Attributed_Character'(Ch => Ch,
Color => Color_Pair'First,
Attr => Normal_Video));
end Add;
procedure Add_With_Immediate_Echo
(Win : Window := Standard_Window;
Ch : Attributed_Character)
is
function Wechochar (W : Window;
Ch : Attributed_Character) return C_Int;
pragma Import (C, Wechochar, "wechochar");
begin
if Wechochar (Win, Ch) = Curses_Err then
raise Curses_Exception;
end if;
end Add_With_Immediate_Echo;
procedure Add_With_Immediate_Echo
(Win : Window := Standard_Window;
Ch : Character)
is
begin
Add_With_Immediate_Echo
(Win,
Attributed_Character'(Ch => Ch,
Color => Color_Pair'First,
Attr => Normal_Video));
end Add_With_Immediate_Echo;
------------------------------------------------------------------------------
function Create (Number_Of_Lines : Line_Count;
Number_Of_Columns : Column_Count;
First_Line_Position : Line_Position;
First_Column_Position : Column_Position) return Window
is
function Newwin (Number_Of_Lines : C_Int;
Number_Of_Columns : C_Int;
First_Line_Position : C_Int;
First_Column_Position : C_Int) return Window;
pragma Import (C, Newwin, "newwin");
W : Window;
begin
W := Newwin (C_Int (Number_Of_Lines),
C_Int (Number_Of_Columns),
C_Int (First_Line_Position),
C_Int (First_Column_Position));
if W = Null_Window then
raise Curses_Exception;
end if;
return W;
end Create;
procedure Delete (Win : in out Window)
is
function Wdelwin (W : Window) return C_Int;
pragma Import (C, Wdelwin, "delwin");
begin
if Wdelwin (Win) = Curses_Err then
raise Curses_Exception;
end if;
Win := Null_Window;
end Delete;
function Sub_Window
(Win : Window := Standard_Window;
Number_Of_Lines : Line_Count;
Number_Of_Columns : Column_Count;
First_Line_Position : Line_Position;
First_Column_Position : Column_Position) return Window
is
function Subwin
(Win : Window;
Number_Of_Lines : C_Int;
Number_Of_Columns : C_Int;
First_Line_Position : C_Int;
First_Column_Position : C_Int) return Window;
pragma Import (C, Subwin, "subwin");
W : Window;
begin
W := Subwin (Win,
C_Int (Number_Of_Lines),
C_Int (Number_Of_Columns),
C_Int (First_Line_Position),
C_Int (First_Column_Position));
if W = Null_Window then
raise Curses_Exception;
end if;
return W;
end Sub_Window;
function Derived_Window
(Win : Window := Standard_Window;
Number_Of_Lines : Line_Count;
Number_Of_Columns : Column_Count;
First_Line_Position : Line_Position;
First_Column_Position : Column_Position) return Window
is
function Derwin
(Win : Window;
Number_Of_Lines : C_Int;
Number_Of_Columns : C_Int;
First_Line_Position : C_Int;
First_Column_Position : C_Int) return Window;
pragma Import (C, Derwin, "derwin");
W : Window;
begin
W := Derwin (Win,
C_Int (Number_Of_Lines),
C_Int (Number_Of_Columns),
C_Int (First_Line_Position),
C_Int (First_Column_Position));
if W = Null_Window then
raise Curses_Exception;
end if;
return W;
end Derived_Window;
function Duplicate (Win : Window) return Window
is
function Dupwin (Win : Window) return Window;
pragma Import (C, Dupwin, "dupwin");
W : constant Window := Dupwin (Win);
begin
if W = Null_Window then
raise Curses_Exception;
end if;
return W;
end Duplicate;
procedure Move_Window (Win : Window;
Line : Line_Position;
Column : Column_Position)
is
function Mvwin (Win : Window;
Line : C_Int;
Column : C_Int) return C_Int;
pragma Import (C, Mvwin, "mvwin");
begin
if Mvwin (Win, C_Int (Line), C_Int (Column)) = Curses_Err then
raise Curses_Exception;
end if;
end Move_Window;
procedure Move_Derived_Window (Win : Window;
Line : Line_Position;
Column : Column_Position)
is
function Mvderwin (Win : Window;
Line : C_Int;
Column : C_Int) return C_Int;
pragma Import (C, Mvderwin, "mvderwin");
begin
if Mvderwin (Win, C_Int (Line), C_Int (Column)) = Curses_Err then
raise Curses_Exception;
end if;
end Move_Derived_Window;
procedure Set_Synch_Mode (Win : Window := Standard_Window;
Mode : Boolean := False)
is
function Syncok (Win : Window;
Mode : Curses_Bool) return C_Int;
pragma Import (C, Syncok, "syncok");
begin
if Syncok (Win, Curses_Bool (Boolean'Pos (Mode))) = Curses_Err then
raise Curses_Exception;
end if;
end Set_Synch_Mode;
------------------------------------------------------------------------------
procedure Add (Win : Window := Standard_Window;
Str : String;
Len : Integer := -1)
is
function Waddnstr (Win : Window;
Str : char_array;
Len : C_Int := -1) return C_Int;
pragma Import (C, Waddnstr, "waddnstr");
Txt : char_array (0 .. Str'Length);
Length : size_t;
begin
To_C (Str, Txt, Length);
if Waddnstr (Win, Txt, C_Int (Len)) = Curses_Err then
raise Curses_Exception;
end if;
end Add;
procedure Add
(Win : Window := Standard_Window;
Line : Line_Position;
Column : Column_Position;
Str : String;
Len : Integer := -1)
is
begin
Move_Cursor (Win, Line, Column);
Add (Win, Str, Len);
end Add;
------------------------------------------------------------------------------
procedure Add
(Win : Window := Standard_Window;
Str : Attributed_String;
Len : Integer := -1)
is
function Waddchnstr (Win : Window;
Str : chtype_array;
Len : C_Int := -1) return C_Int;
pragma Import (C, Waddchnstr, "waddchnstr");
Txt : chtype_array (0 .. Str'Length);
begin
for Length in 1 .. size_t (Str'Length) loop
Txt (Length - 1) := Str (Natural (Length));
end loop;
Txt (Str'Length) := Default_Character;
if Waddchnstr (Win,
Txt,
C_Int (Len)) = Curses_Err
then
raise Curses_Exception;
end if;
end Add;
procedure Add
(Win : Window := Standard_Window;
Line : Line_Position;
Column : Column_Position;
Str : Attributed_String;
Len : Integer := -1)
is
begin
Move_Cursor (Win, Line, Column);
Add (Win, Str, Len);
end Add;
------------------------------------------------------------------------------
procedure Border
(Win : Window := Standard_Window;
Left_Side_Symbol : Attributed_Character := Default_Character;
Right_Side_Symbol : Attributed_Character := Default_Character;
Top_Side_Symbol : Attributed_Character := Default_Character;
Bottom_Side_Symbol : Attributed_Character := Default_Character;
Upper_Left_Corner_Symbol : Attributed_Character := Default_Character;
Upper_Right_Corner_Symbol : Attributed_Character := Default_Character;
Lower_Left_Corner_Symbol : Attributed_Character := Default_Character;
Lower_Right_Corner_Symbol : Attributed_Character := Default_Character)
is
function Wborder (W : Window;
LS : Attributed_Character;
RS : Attributed_Character;
TS : Attributed_Character;
BS : Attributed_Character;
ULC : Attributed_Character;
URC : Attributed_Character;
LLC : Attributed_Character;
LRC : Attributed_Character) return C_Int;
pragma Import (C, Wborder, "wborder");
begin
if Wborder (Win,
Left_Side_Symbol,
Right_Side_Symbol,
Top_Side_Symbol,
Bottom_Side_Symbol,
Upper_Left_Corner_Symbol,
Upper_Right_Corner_Symbol,
Lower_Left_Corner_Symbol,
Lower_Right_Corner_Symbol) = Curses_Err
then
raise Curses_Exception;
end if;
end Border;
procedure Box
(Win : Window := Standard_Window;
Vertical_Symbol : Attributed_Character := Default_Character;
Horizontal_Symbol : Attributed_Character := Default_Character)
is
begin
Border (Win,
Vertical_Symbol, Vertical_Symbol,
Horizontal_Symbol, Horizontal_Symbol);
end Box;
procedure Horizontal_Line
(Win : Window := Standard_Window;
Line_Size : Natural;
Line_Symbol : Attributed_Character := Default_Character)
is
function Whline (W : Window;
Ch : Attributed_Character;
Len : C_Int) return C_Int;
pragma Import (C, Whline, "whline");
begin
if Whline (Win,
Line_Symbol,
C_Int (Line_Size)) = Curses_Err
then
raise Curses_Exception;
end if;
end Horizontal_Line;
procedure Vertical_Line
(Win : Window := Standard_Window;
Line_Size : Natural;
Line_Symbol : Attributed_Character := Default_Character)
is
function Wvline (W : Window;
Ch : Attributed_Character;
Len : C_Int) return C_Int;
pragma Import (C, Wvline, "wvline");
begin
if Wvline (Win,
Line_Symbol,
C_Int (Line_Size)) = Curses_Err
then
raise Curses_Exception;
end if;
end Vertical_Line;
------------------------------------------------------------------------------
function Get_Keystroke (Win : Window := Standard_Window)
return Real_Key_Code
is
function Wgetch (W : Window) return C_Int;
pragma Import (C, Wgetch, "wgetch");
C : constant C_Int := Wgetch (Win);
begin
if C = Curses_Err then
return Key_None;
else
return Real_Key_Code (C);
end if;
end Get_Keystroke;
procedure Undo_Keystroke (Key : Real_Key_Code)
is
function Ungetch (Ch : C_Int) return C_Int;
pragma Import (C, Ungetch, "ungetch");
begin
if Ungetch (C_Int (Key)) = Curses_Err then
raise Curses_Exception;
end if;
end Undo_Keystroke;
function Has_Key (Key : Special_Key_Code) return Boolean
is
function Haskey (Key : C_Int) return C_Int;
pragma Import (C, Haskey, "has_key");
begin
if Haskey (C_Int (Key)) = Curses_False then
return False;
else
return True;
end if;
end Has_Key;
function Is_Function_Key (Key : Special_Key_Code) return Boolean
is
L : constant Special_Key_Code := Special_Key_Code (Natural (Key_F0) +
Natural (Function_Key_Number'Last));
begin
if (Key >= Key_F0) and then (Key <= L) then
return True;
else
return False;
end if;
end Is_Function_Key;
function Function_Key (Key : Real_Key_Code)
return Function_Key_Number
is
begin
if Is_Function_Key (Key) then
return Function_Key_Number (Key - Key_F0);
else
raise Constraint_Error;
end if;
end Function_Key;
function Function_Key_Code (Key : Function_Key_Number) return Real_Key_Code
is
begin
return Real_Key_Code (Natural (Key_F0) + Natural (Key));
end Function_Key_Code;
------------------------------------------------------------------------------
procedure Standout (Win : Window := Standard_Window;
On : Boolean := True)
is
function wstandout (Win : Window) return C_Int;
pragma Import (C, wstandout, "wstandout");
function wstandend (Win : Window) return C_Int;
pragma Import (C, wstandend, "wstandend");
Err : C_Int;
begin
if On then
Err := wstandout (Win);
else
Err := wstandend (Win);
end if;
if Err = Curses_Err then
raise Curses_Exception;
end if;
end Standout;
procedure Switch_Character_Attribute
(Win : Window := Standard_Window;
Attr : Character_Attribute_Set := Normal_Video;
On : Boolean := True)
is
function Wattron (Win : Window;
C_Attr : Attributed_Character) return C_Int;
pragma Import (C, Wattron, "wattr_on");
function Wattroff (Win : Window;
C_Attr : Attributed_Character) return C_Int;
pragma Import (C, Wattroff, "wattr_off");
-- In Ada we use the On Boolean to control whether or not we want to
-- switch on or off the attributes in the set.
Err : C_Int;
AC : constant Attributed_Character := (Ch => Character'First,
Color => Color_Pair'First,
Attr => Attr);
begin
if On then
Err := Wattron (Win, AC);
else
Err := Wattroff (Win, AC);
end if;
if Err = Curses_Err then
raise Curses_Exception;
end if;
end Switch_Character_Attribute;
procedure Set_Character_Attributes
(Win : Window := Standard_Window;
Attr : Character_Attribute_Set := Normal_Video;
Color : Color_Pair := Color_Pair'First)
is
function Wattrset (Win : Window;
C_Attr : Attributed_Character) return C_Int;
pragma Import (C, Wattrset, "wattrset"); -- ??? wattr_set
begin
if Wattrset (Win, (Ch => Character'First,
Color => Color,
Attr => Attr)) = Curses_Err
then
raise Curses_Exception;
end if;
end Set_Character_Attributes;
function Get_Character_Attribute (Win : Window := Standard_Window)
return Character_Attribute_Set
is
function Wattrget (Win : Window;
Atr : access Attributed_Character;
Col : access C_Short;
Opt : System.Address) return C_Int;
pragma Import (C, Wattrget, "wattr_get");
Attr : aliased Attributed_Character;
Col : aliased C_Short;
Res : constant C_Int := Wattrget (Win, Attr'Access, Col'Access,
System.Null_Address);
begin
if Res = Curses_Ok then
return Attr.Attr;
else
raise Curses_Exception;
end if;
end Get_Character_Attribute;
function Get_Character_Attribute (Win : Window := Standard_Window)
return Color_Pair
is
function Wattrget (Win : Window;
Atr : access Attributed_Character;
Col : access C_Short;
Opt : System.Address) return C_Int;
pragma Import (C, Wattrget, "wattr_get");
Attr : aliased Attributed_Character;
Col : aliased C_Short;
Res : constant C_Int := Wattrget (Win, Attr'Access, Col'Access,
System.Null_Address);
begin
if Res = Curses_Ok then
return Attr.Color;
else
raise Curses_Exception;
end if;
end Get_Character_Attribute;
procedure Set_Color (Win : Window := Standard_Window;
Pair : Color_Pair)
is
function Wset_Color (Win : Window;
Color : C_Short;
Opts : C_Void_Ptr) return C_Int;
pragma Import (C, Wset_Color, "wcolor_set");
begin
if Wset_Color (Win,
C_Short (Pair),
C_Void_Ptr (System.Null_Address)) = Curses_Err
then
raise Curses_Exception;
end if;
end Set_Color;
procedure Change_Attributes
(Win : Window := Standard_Window;
Count : Integer := -1;
Attr : Character_Attribute_Set := Normal_Video;
Color : Color_Pair := Color_Pair'First)
is
function Wchgat (Win : Window;
Cnt : C_Int;
Attr : Attributed_Character;
Color : C_Short;
Opts : System.Address := System.Null_Address)
return C_Int;
pragma Import (C, Wchgat, "wchgat");
begin
if Wchgat (Win,
C_Int (Count),
(Ch => Character'First,
Color => Color_Pair'First,
Attr => Attr),
C_Short (Color)) = Curses_Err
then
raise Curses_Exception;
end if;
end Change_Attributes;
procedure Change_Attributes
(Win : Window := Standard_Window;
Line : Line_Position := Line_Position'First;
Column : Column_Position := Column_Position'First;
Count : Integer := -1;
Attr : Character_Attribute_Set := Normal_Video;
Color : Color_Pair := Color_Pair'First)
is
begin
Move_Cursor (Win, Line, Column);
Change_Attributes (Win, Count, Attr, Color);
end Change_Attributes;
------------------------------------------------------------------------------
procedure Beep
is
function Beeper return C_Int;
pragma Import (C, Beeper, "beep");
begin
if Beeper = Curses_Err then
raise Curses_Exception;
end if;
end Beep;
procedure Flash_Screen
is
function Flash return C_Int;
pragma Import (C, Flash, "flash");
begin
if Flash = Curses_Err then
raise Curses_Exception;
end if;
end Flash_Screen;
------------------------------------------------------------------------------
procedure Set_Cbreak_Mode (SwitchOn : Boolean := True)
is
function Cbreak return C_Int;
pragma Import (C, Cbreak, "cbreak");
function NoCbreak return C_Int;
pragma Import (C, NoCbreak, "nocbreak");
Err : C_Int;
begin
if SwitchOn then
Err := Cbreak;
else
Err := NoCbreak;
end if;
if Err = Curses_Err then
raise Curses_Exception;
end if;
end Set_Cbreak_Mode;
procedure Set_Raw_Mode (SwitchOn : Boolean := True)
is
function Raw return C_Int;
pragma Import (C, Raw, "raw");
function NoRaw return C_Int;
pragma Import (C, NoRaw, "noraw");
Err : C_Int;
begin
if SwitchOn then
Err := Raw;
else
Err := NoRaw;
end if;
if Err = Curses_Err then
raise Curses_Exception;
end if;
end Set_Raw_Mode;
procedure Set_Echo_Mode (SwitchOn : Boolean := True)
is
function Echo return C_Int;
pragma Import (C, Echo, "echo");
function NoEcho return C_Int;
pragma Import (C, NoEcho, "noecho");
Err : C_Int;
begin
if SwitchOn then
Err := Echo;
else
Err := NoEcho;
end if;
if Err = Curses_Err then
raise Curses_Exception;
end if;
end Set_Echo_Mode;
procedure Set_Meta_Mode (Win : Window := Standard_Window;
SwitchOn : Boolean := True)
is
function Meta (W : Window; Mode : Curses_Bool) return C_Int;
pragma Import (C, Meta, "meta");
begin
if Meta (Win, Curses_Bool (Boolean'Pos (SwitchOn))) = Curses_Err then
raise Curses_Exception;
end if;
end Set_Meta_Mode;
procedure Set_KeyPad_Mode (Win : Window := Standard_Window;
SwitchOn : Boolean := True)
is
function Keypad (W : Window; Mode : Curses_Bool) return C_Int;
pragma Import (C, Keypad, "keypad");
begin
if Keypad (Win, Curses_Bool (Boolean'Pos (SwitchOn))) = Curses_Err then
raise Curses_Exception;
end if;
end Set_KeyPad_Mode;
function Get_KeyPad_Mode (Win : Window := Standard_Window)
return Boolean
is
function Is_Keypad (W : Window) return Curses_Bool;
pragma Import (C, Is_Keypad, "is_keypad");
begin
return (Is_Keypad (Win) /= Curses_Bool_False);
end Get_KeyPad_Mode;
procedure Half_Delay (Amount : Half_Delay_Amount)
is
function Halfdelay (Amount : C_Int) return C_Int;
pragma Import (C, Halfdelay, "halfdelay");
begin
if Halfdelay (C_Int (Amount)) = Curses_Err then
raise Curses_Exception;
end if;
end Half_Delay;
procedure Set_Flush_On_Interrupt_Mode
(Win : Window := Standard_Window;
Mode : Boolean := True)
is
function Intrflush (Win : Window; Mode : Curses_Bool) return C_Int;
pragma Import (C, Intrflush, "intrflush");
begin
if Intrflush (Win, Curses_Bool (Boolean'Pos (Mode))) = Curses_Err then
raise Curses_Exception;
end if;
end Set_Flush_On_Interrupt_Mode;
procedure Set_Queue_Interrupt_Mode
(Win : Window := Standard_Window;
Flush : Boolean := True)
is
procedure Qiflush;
pragma Import (C, Qiflush, "qiflush");
procedure No_Qiflush;
pragma Import (C, No_Qiflush, "noqiflush");
begin
if Win = Null_Window then
raise Curses_Exception;
end if;
if Flush then
Qiflush;
else
No_Qiflush;
end if;
end Set_Queue_Interrupt_Mode;
procedure Set_NoDelay_Mode
(Win : Window := Standard_Window;
Mode : Boolean := False)
is
function Nodelay (Win : Window; Mode : Curses_Bool) return C_Int;
pragma Import (C, Nodelay, "nodelay");
begin
if Nodelay (Win, Curses_Bool (Boolean'Pos (Mode))) = Curses_Err then
raise Curses_Exception;
end if;
end Set_NoDelay_Mode;
procedure Set_Timeout_Mode (Win : Window := Standard_Window;
Mode : Timeout_Mode;
Amount : Natural)
is
procedure Wtimeout (Win : Window; Amount : C_Int);
pragma Import (C, Wtimeout, "wtimeout");
Time : C_Int;
begin
case Mode is
when Blocking => Time := -1;
when Non_Blocking => Time := 0;
when Delayed =>
if Amount = 0 then
raise Constraint_Error;
end if;
Time := C_Int (Amount);
end case;
Wtimeout (Win, Time);
end Set_Timeout_Mode;
procedure Set_Escape_Timer_Mode
(Win : Window := Standard_Window;
Timer_Off : Boolean := False)
is
function Notimeout (Win : Window; Mode : Curses_Bool) return C_Int;
pragma Import (C, Notimeout, "notimeout");
begin
if Notimeout (Win, Curses_Bool (Boolean'Pos (Timer_Off)))
= Curses_Err
then
raise Curses_Exception;
end if;
end Set_Escape_Timer_Mode;
------------------------------------------------------------------------------
procedure Set_NL_Mode (SwitchOn : Boolean := True)
is
function NL return C_Int;
pragma Import (C, NL, "nl");
function NoNL return C_Int;
pragma Import (C, NoNL, "nonl");
Err : C_Int;
begin
if SwitchOn then
Err := NL;
else
Err := NoNL;
end if;
if Err = Curses_Err then
raise Curses_Exception;
end if;
end Set_NL_Mode;
procedure Clear_On_Next_Update
(Win : Window := Standard_Window;
Do_Clear : Boolean := True)
is
function Clear_Ok (W : Window; Flag : Curses_Bool) return C_Int;
pragma Import (C, Clear_Ok, "clearok");
begin
if Clear_Ok (Win, Curses_Bool (Boolean'Pos (Do_Clear))) = Curses_Err then
raise Curses_Exception;
end if;
end Clear_On_Next_Update;
procedure Use_Insert_Delete_Line
(Win : Window := Standard_Window;
Do_Idl : Boolean := True)
is
function IDL_Ok (W : Window; Flag : Curses_Bool) return C_Int;
pragma Import (C, IDL_Ok, "idlok");
begin
if IDL_Ok (Win, Curses_Bool (Boolean'Pos (Do_Idl))) = Curses_Err then
raise Curses_Exception;
end if;
end Use_Insert_Delete_Line;
procedure Use_Insert_Delete_Character
(Win : Window := Standard_Window;
Do_Idc : Boolean := True)
is
procedure IDC_Ok (W : Window; Flag : Curses_Bool);
pragma Import (C, IDC_Ok, "idcok");
begin
IDC_Ok (Win, Curses_Bool (Boolean'Pos (Do_Idc)));
end Use_Insert_Delete_Character;
procedure Leave_Cursor_After_Update
(Win : Window := Standard_Window;
Do_Leave : Boolean := True)
is
function Leave_Ok (W : Window; Flag : Curses_Bool) return C_Int;
pragma Import (C, Leave_Ok, "leaveok");
begin
if Leave_Ok (Win, Curses_Bool (Boolean'Pos (Do_Leave))) = Curses_Err then
raise Curses_Exception;
end if;
end Leave_Cursor_After_Update;
procedure Immediate_Update_Mode
(Win : Window := Standard_Window;
Mode : Boolean := False)
is
procedure Immedok (Win : Window; Mode : Curses_Bool);
pragma Import (C, Immedok, "immedok");
begin
Immedok (Win, Curses_Bool (Boolean'Pos (Mode)));
end Immediate_Update_Mode;
procedure Allow_Scrolling
(Win : Window := Standard_Window;
Mode : Boolean := False)
is
function Scrollok (Win : Window; Mode : Curses_Bool) return C_Int;
pragma Import (C, Scrollok, "scrollok");
begin
if Scrollok (Win, Curses_Bool (Boolean'Pos (Mode))) = Curses_Err then
raise Curses_Exception;
end if;
end Allow_Scrolling;
function Scrolling_Allowed (Win : Window := Standard_Window)
return Boolean
is
function Is_Scroll_Ok (W : Window) return Curses_Bool;
pragma Import (C, Is_Scroll_Ok, "is_scrollok");
begin
return (Is_Scroll_Ok (Win) /= Curses_Bool_False);
end Scrolling_Allowed;
procedure Set_Scroll_Region
(Win : Window := Standard_Window;
Top_Line : Line_Position;
Bottom_Line : Line_Position)
is
function Wsetscrreg (Win : Window;
Lin : C_Int;
Col : C_Int) return C_Int;
pragma Import (C, Wsetscrreg, "wsetscrreg");
begin
if Wsetscrreg (Win, C_Int (Top_Line), C_Int (Bottom_Line))
= Curses_Err
then
raise Curses_Exception;
end if;
end Set_Scroll_Region;
------------------------------------------------------------------------------
procedure Update_Screen
is
function Do_Update return C_Int;
pragma Import (C, Do_Update, "doupdate");
begin
if Do_Update = Curses_Err then
raise Curses_Exception;
end if;
end Update_Screen;
procedure Refresh (Win : Window := Standard_Window)
is
function Wrefresh (W : Window) return C_Int;
pragma Import (C, Wrefresh, "wrefresh");
begin
if Wrefresh (Win) = Curses_Err then
raise Curses_Exception;
end if;
end Refresh;
procedure Refresh_Without_Update
(Win : Window := Standard_Window)
is
function Wnoutrefresh (W : Window) return C_Int;
pragma Import (C, Wnoutrefresh, "wnoutrefresh");
begin
if Wnoutrefresh (Win) = Curses_Err then
raise Curses_Exception;
end if;
end Refresh_Without_Update;
procedure Redraw (Win : Window := Standard_Window)
is
function Redrawwin (Win : Window) return C_Int;
pragma Import (C, Redrawwin, "redrawwin");
begin
if Redrawwin (Win) = Curses_Err then
raise Curses_Exception;
end if;
end Redraw;
procedure Redraw
(Win : Window := Standard_Window;
Begin_Line : Line_Position;
Line_Count : Positive)
is
function Wredrawln (Win : Window; First : C_Int; Cnt : C_Int)
return C_Int;
pragma Import (C, Wredrawln, "wredrawln");
begin
if Wredrawln (Win,
C_Int (Begin_Line),
C_Int (Line_Count)) = Curses_Err
then
raise Curses_Exception;
end if;
end Redraw;
------------------------------------------------------------------------------
procedure Erase (Win : Window := Standard_Window)
is
function Werase (W : Window) return C_Int;
pragma Import (C, Werase, "werase");
begin
if Werase (Win) = Curses_Err then
raise Curses_Exception;
end if;
end Erase;
procedure Clear (Win : Window := Standard_Window)
is
function Wclear (W : Window) return C_Int;
pragma Import (C, Wclear, "wclear");
begin
if Wclear (Win) = Curses_Err then
raise Curses_Exception;
end if;
end Clear;
procedure Clear_To_End_Of_Screen (Win : Window := Standard_Window)
is
function Wclearbot (W : Window) return C_Int;
pragma Import (C, Wclearbot, "wclrtobot");
begin
if Wclearbot (Win) = Curses_Err then
raise Curses_Exception;
end if;
end Clear_To_End_Of_Screen;
procedure Clear_To_End_Of_Line (Win : Window := Standard_Window)
is
function Wcleareol (W : Window) return C_Int;
pragma Import (C, Wcleareol, "wclrtoeol");
begin
if Wcleareol (Win) = Curses_Err then
raise Curses_Exception;
end if;
end Clear_To_End_Of_Line;
------------------------------------------------------------------------------
procedure Set_Background
(Win : Window := Standard_Window;
Ch : Attributed_Character)
is
procedure WBackground (W : Window; Ch : Attributed_Character);
pragma Import (C, WBackground, "wbkgdset");
begin
WBackground (Win, Ch);
end Set_Background;
procedure Change_Background
(Win : Window := Standard_Window;
Ch : Attributed_Character)
is
function WChangeBkgd (W : Window; Ch : Attributed_Character)
return C_Int;
pragma Import (C, WChangeBkgd, "wbkgd");
begin
if WChangeBkgd (Win, Ch) = Curses_Err then
raise Curses_Exception;
end if;
end Change_Background;
function Get_Background (Win : Window := Standard_Window)
return Attributed_Character
is
function Wgetbkgd (Win : Window) return Attributed_Character;
pragma Import (C, Wgetbkgd, "getbkgd");
begin
return Wgetbkgd (Win);
end Get_Background;
------------------------------------------------------------------------------
procedure Change_Lines_Status (Win : Window := Standard_Window;
Start : Line_Position;
Count : Positive;
State : Boolean)
is
function Wtouchln (Win : Window;
Sta : C_Int;
Cnt : C_Int;
Chg : C_Int) return C_Int;
pragma Import (C, Wtouchln, "wtouchln");
begin
if Wtouchln (Win, C_Int (Start), C_Int (Count),
C_Int (Boolean'Pos (State))) = Curses_Err
then
raise Curses_Exception;
end if;
end Change_Lines_Status;
procedure Touch (Win : Window := Standard_Window)
is
Y : Line_Position;
X : Column_Position;
begin
Get_Size (Win, Y, X);
pragma Warnings (Off, X); -- unreferenced
Change_Lines_Status (Win, 0, Positive (Y), True);
end Touch;
procedure Untouch (Win : Window := Standard_Window)
is
Y : Line_Position;
X : Column_Position;
begin
Get_Size (Win, Y, X);
pragma Warnings (Off, X); -- unreferenced
Change_Lines_Status (Win, 0, Positive (Y), False);
end Untouch;
procedure Touch (Win : Window := Standard_Window;
Start : Line_Position;
Count : Positive)
is
begin
Change_Lines_Status (Win, Start, Count, True);
end Touch;
function Is_Touched
(Win : Window := Standard_Window;
Line : Line_Position) return Boolean
is
function WLineTouched (W : Window; L : C_Int) return Curses_Bool;
pragma Import (C, WLineTouched, "is_linetouched");
begin
if WLineTouched (Win, C_Int (Line)) = Curses_Bool_False then
return False;
else
return True;
end if;
end Is_Touched;
function Is_Touched
(Win : Window := Standard_Window) return Boolean
is
function WWinTouched (W : Window) return Curses_Bool;
pragma Import (C, WWinTouched, "is_wintouched");
begin
if WWinTouched (Win) = Curses_Bool_False then
return False;
else
return True;
end if;
end Is_Touched;
------------------------------------------------------------------------------
procedure Copy
(Source_Window : Window;
Destination_Window : Window;
Source_Top_Row : Line_Position;
Source_Left_Column : Column_Position;
Destination_Top_Row : Line_Position;
Destination_Left_Column : Column_Position;
Destination_Bottom_Row : Line_Position;
Destination_Right_Column : Column_Position;
Non_Destructive_Mode : Boolean := True)
is
function Copywin (Src : Window;
Dst : Window;
Str : C_Int;
Slc : C_Int;
Dtr : C_Int;
Dlc : C_Int;
Dbr : C_Int;
Drc : C_Int;
Ndm : C_Int) return C_Int;
pragma Import (C, Copywin, "copywin");
begin
if Copywin (Source_Window,
Destination_Window,
C_Int (Source_Top_Row),
C_Int (Source_Left_Column),
C_Int (Destination_Top_Row),
C_Int (Destination_Left_Column),
C_Int (Destination_Bottom_Row),
C_Int (Destination_Right_Column),
Boolean'Pos (Non_Destructive_Mode)
) = Curses_Err
then
raise Curses_Exception;
end if;
end Copy;
procedure Overwrite
(Source_Window : Window;
Destination_Window : Window)
is
function Overwrite (Src : Window; Dst : Window) return C_Int;
pragma Import (C, Overwrite, "overwrite");
begin
if Overwrite (Source_Window, Destination_Window) = Curses_Err then
raise Curses_Exception;
end if;
end Overwrite;
procedure Overlay
(Source_Window : Window;
Destination_Window : Window)
is
function Overlay (Src : Window; Dst : Window) return C_Int;
pragma Import (C, Overlay, "overlay");
begin
if Overlay (Source_Window, Destination_Window) = Curses_Err then
raise Curses_Exception;
end if;
end Overlay;
------------------------------------------------------------------------------
procedure Insert_Delete_Lines
(Win : Window := Standard_Window;
Lines : Integer := 1) -- default is to insert one line above
is
function Winsdelln (W : Window; N : C_Int) return C_Int;
pragma Import (C, Winsdelln, "winsdelln");
begin
if Winsdelln (Win, C_Int (Lines)) = Curses_Err then
raise Curses_Exception;
end if;
end Insert_Delete_Lines;
procedure Delete_Line (Win : Window := Standard_Window)
is
begin
Insert_Delete_Lines (Win, -1);
end Delete_Line;
procedure Insert_Line (Win : Window := Standard_Window)
is
begin
Insert_Delete_Lines (Win, 1);
end Insert_Line;
------------------------------------------------------------------------------
procedure Get_Size
(Win : Window := Standard_Window;
Number_Of_Lines : out Line_Count;
Number_Of_Columns : out Column_Count)
is
function GetMaxY (W : Window) return C_Int;
pragma Import (C, GetMaxY, "getmaxy");
function GetMaxX (W : Window) return C_Int;
pragma Import (C, GetMaxX, "getmaxx");
Y : constant C_Int := GetMaxY (Win);
X : constant C_Int := GetMaxX (Win);
begin
Number_Of_Lines := Line_Count (Y);
Number_Of_Columns := Column_Count (X);
end Get_Size;
procedure Get_Window_Position
(Win : Window := Standard_Window;
Top_Left_Line : out Line_Position;
Top_Left_Column : out Column_Position)
is
function GetBegY (W : Window) return C_Int;
pragma Import (C, GetBegY, "getbegy");
function GetBegX (W : Window) return C_Int;
pragma Import (C, GetBegX, "getbegx");
Y : constant C_Short := C_Short (GetBegY (Win));
X : constant C_Short := C_Short (GetBegX (Win));
begin
Top_Left_Line := Line_Position (Y);
Top_Left_Column := Column_Position (X);
end Get_Window_Position;
procedure Get_Cursor_Position
(Win : Window := Standard_Window;
Line : out Line_Position;
Column : out Column_Position)
is
function GetCurY (W : Window) return C_Int;
pragma Import (C, GetCurY, "getcury");
function GetCurX (W : Window) return C_Int;
pragma Import (C, GetCurX, "getcurx");
Y : constant C_Short := C_Short (GetCurY (Win));
X : constant C_Short := C_Short (GetCurX (Win));
begin
Line := Line_Position (Y);
Column := Column_Position (X);
end Get_Cursor_Position;
procedure Get_Origin_Relative_To_Parent
(Win : Window;
Top_Left_Line : out Line_Position;
Top_Left_Column : out Column_Position;
Is_Not_A_Subwindow : out Boolean)
is
function GetParY (W : Window) return C_Int;
pragma Import (C, GetParY, "getpary");
function GetParX (W : Window) return C_Int;
pragma Import (C, GetParX, "getparx");
Y : constant C_Int := GetParY (Win);
X : constant C_Int := GetParX (Win);
begin
if Y = -1 then
Top_Left_Line := Line_Position'Last;
Top_Left_Column := Column_Position'Last;
Is_Not_A_Subwindow := True;
else
Top_Left_Line := Line_Position (Y);
Top_Left_Column := Column_Position (X);
Is_Not_A_Subwindow := False;
end if;
end Get_Origin_Relative_To_Parent;
------------------------------------------------------------------------------
function New_Pad (Lines : Line_Count;
Columns : Column_Count) return Window
is
function Newpad (Lines : C_Int; Columns : C_Int) return Window;
pragma Import (C, Newpad, "newpad");
W : Window;
begin
W := Newpad (C_Int (Lines), C_Int (Columns));
if W = Null_Window then
raise Curses_Exception;
end if;
return W;
end New_Pad;
function Sub_Pad
(Pad : Window;
Number_Of_Lines : Line_Count;
Number_Of_Columns : Column_Count;
First_Line_Position : Line_Position;
First_Column_Position : Column_Position) return Window
is
function Subpad
(Pad : Window;
Number_Of_Lines : C_Int;
Number_Of_Columns : C_Int;
First_Line_Position : C_Int;
First_Column_Position : C_Int) return Window;
pragma Import (C, Subpad, "subpad");
W : Window;
begin
W := Subpad (Pad,
C_Int (Number_Of_Lines),
C_Int (Number_Of_Columns),
C_Int (First_Line_Position),
C_Int (First_Column_Position));
if W = Null_Window then
raise Curses_Exception;
end if;
return W;
end Sub_Pad;
procedure Refresh
(Pad : Window;
Source_Top_Row : Line_Position;
Source_Left_Column : Column_Position;
Destination_Top_Row : Line_Position;
Destination_Left_Column : Column_Position;
Destination_Bottom_Row : Line_Position;
Destination_Right_Column : Column_Position)
is
function Prefresh
(Pad : Window;
Source_Top_Row : C_Int;
Source_Left_Column : C_Int;
Destination_Top_Row : C_Int;
Destination_Left_Column : C_Int;
Destination_Bottom_Row : C_Int;
Destination_Right_Column : C_Int) return C_Int;
pragma Import (C, Prefresh, "prefresh");
begin
if Prefresh (Pad,
C_Int (Source_Top_Row),
C_Int (Source_Left_Column),
C_Int (Destination_Top_Row),
C_Int (Destination_Left_Column),
C_Int (Destination_Bottom_Row),
C_Int (Destination_Right_Column)) = Curses_Err
then
raise Curses_Exception;
end if;
end Refresh;
procedure Refresh_Without_Update
(Pad : Window;
Source_Top_Row : Line_Position;
Source_Left_Column : Column_Position;
Destination_Top_Row : Line_Position;
Destination_Left_Column : Column_Position;
Destination_Bottom_Row : Line_Position;
Destination_Right_Column : Column_Position)
is
function Pnoutrefresh
(Pad : Window;
Source_Top_Row : C_Int;
Source_Left_Column : C_Int;
Destination_Top_Row : C_Int;
Destination_Left_Column : C_Int;
Destination_Bottom_Row : C_Int;
Destination_Right_Column : C_Int) return C_Int;
pragma Import (C, Pnoutrefresh, "pnoutrefresh");
begin
if Pnoutrefresh (Pad,
C_Int (Source_Top_Row),
C_Int (Source_Left_Column),
C_Int (Destination_Top_Row),
C_Int (Destination_Left_Column),
C_Int (Destination_Bottom_Row),
C_Int (Destination_Right_Column)) = Curses_Err
then
raise Curses_Exception;
end if;
end Refresh_Without_Update;
procedure Add_Character_To_Pad_And_Echo_It
(Pad : Window;
Ch : Attributed_Character)
is
function Pechochar (Pad : Window; Ch : Attributed_Character)
return C_Int;
pragma Import (C, Pechochar, "pechochar");
begin
if Pechochar (Pad, Ch) = Curses_Err then
raise Curses_Exception;
end if;
end Add_Character_To_Pad_And_Echo_It;
procedure Add_Character_To_Pad_And_Echo_It
(Pad : Window;
Ch : Character)
is
begin
Add_Character_To_Pad_And_Echo_It
(Pad,
Attributed_Character'(Ch => Ch,
Color => Color_Pair'First,
Attr => Normal_Video));
end Add_Character_To_Pad_And_Echo_It;
------------------------------------------------------------------------------
procedure Scroll (Win : Window := Standard_Window;
Amount : Integer := 1)
is
function Wscrl (Win : Window; N : C_Int) return C_Int;
pragma Import (C, Wscrl, "wscrl");
begin
if Wscrl (Win, C_Int (Amount)) = Curses_Err then
raise Curses_Exception;
end if;
end Scroll;
------------------------------------------------------------------------------
procedure Delete_Character (Win : Window := Standard_Window)
is
function Wdelch (Win : Window) return C_Int;
pragma Import (C, Wdelch, "wdelch");
begin
if Wdelch (Win) = Curses_Err then
raise Curses_Exception;
end if;
end Delete_Character;
procedure Delete_Character
(Win : Window := Standard_Window;
Line : Line_Position;
Column : Column_Position)
is
function Mvwdelch (Win : Window;
Lin : C_Int;
Col : C_Int) return C_Int;
pragma Import (C, Mvwdelch, "mvwdelch");
begin
if Mvwdelch (Win, C_Int (Line), C_Int (Column)) = Curses_Err then
raise Curses_Exception;
end if;
end Delete_Character;
------------------------------------------------------------------------------
function Peek (Win : Window := Standard_Window)
return Attributed_Character
is
function Winch (Win : Window) return Attributed_Character;
pragma Import (C, Winch, "winch");
begin
return Winch (Win);
end Peek;
function Peek
(Win : Window := Standard_Window;
Line : Line_Position;
Column : Column_Position) return Attributed_Character
is
function Mvwinch (Win : Window;
Lin : C_Int;
Col : C_Int) return Attributed_Character;
pragma Import (C, Mvwinch, "mvwinch");
begin
return Mvwinch (Win, C_Int (Line), C_Int (Column));
end Peek;
------------------------------------------------------------------------------
procedure Insert (Win : Window := Standard_Window;
Ch : Attributed_Character)
is
function Winsch (Win : Window; Ch : Attributed_Character) return C_Int;
pragma Import (C, Winsch, "winsch");
begin
if Winsch (Win, Ch) = Curses_Err then
raise Curses_Exception;
end if;
end Insert;
procedure Insert
(Win : Window := Standard_Window;
Line : Line_Position;
Column : Column_Position;
Ch : Attributed_Character)
is
function Mvwinsch (Win : Window;
Lin : C_Int;
Col : C_Int;
Ch : Attributed_Character) return C_Int;
pragma Import (C, Mvwinsch, "mvwinsch");
begin
if Mvwinsch (Win,
C_Int (Line),
C_Int (Column),
Ch) = Curses_Err
then
raise Curses_Exception;
end if;
end Insert;
------------------------------------------------------------------------------
procedure Insert (Win : Window := Standard_Window;
Str : String;
Len : Integer := -1)
is
function Winsnstr (Win : Window;
Str : char_array;
Len : Integer := -1) return C_Int;
pragma Import (C, Winsnstr, "winsnstr");
Txt : char_array (0 .. Str'Length);
Length : size_t;
begin
To_C (Str, Txt, Length);
if Winsnstr (Win, Txt, Len) = Curses_Err then
raise Curses_Exception;
end if;
end Insert;
procedure Insert
(Win : Window := Standard_Window;
Line : Line_Position;
Column : Column_Position;
Str : String;
Len : Integer := -1)
is
function Mvwinsnstr (Win : Window;
Line : C_Int;
Column : C_Int;
Str : char_array;
Len : C_Int) return C_Int;
pragma Import (C, Mvwinsnstr, "mvwinsnstr");
Txt : char_array (0 .. Str'Length);
Length : size_t;
begin
To_C (Str, Txt, Length);
if Mvwinsnstr (Win, C_Int (Line), C_Int (Column), Txt, C_Int (Len))
= Curses_Err
then
raise Curses_Exception;
end if;
end Insert;
------------------------------------------------------------------------------
procedure Peek (Win : Window := Standard_Window;
Str : out String;
Len : Integer := -1)
is
function Winnstr (Win : Window;
Str : char_array;
Len : C_Int) return C_Int;
pragma Import (C, Winnstr, "winnstr");
N : Integer := Len;
Txt : char_array (0 .. Str'Length);
Cnt : Natural;
begin
if N < 0 then
N := Str'Length;
end if;
if N > Str'Length then
raise Constraint_Error;
end if;
Txt (0) := Interfaces.C.char'First;
if Winnstr (Win, Txt, C_Int (N)) = Curses_Err then
raise Curses_Exception;
end if;
To_Ada (Txt, Str, Cnt, True);
if Cnt < Str'Length then
Str ((Str'First + Cnt) .. Str'Last) := (others => ' ');
end if;
end Peek;
procedure Peek
(Win : Window := Standard_Window;
Line : Line_Position;
Column : Column_Position;
Str : out String;
Len : Integer := -1)
is
begin
Move_Cursor (Win, Line, Column);
Peek (Win, Str, Len);
end Peek;
------------------------------------------------------------------------------
procedure Peek
(Win : Window := Standard_Window;
Str : out Attributed_String;
Len : Integer := -1)
is
function Winchnstr (Win : Window;
Str : chtype_array; -- out
Len : C_Int) return C_Int;
pragma Import (C, Winchnstr, "winchnstr");
N : Integer := Len;
Txt : constant chtype_array (0 .. Str'Length)
:= (0 => Default_Character);
Cnt : Natural := 0;
begin
if N < 0 then
N := Str'Length;
end if;
if N > Str'Length then
raise Constraint_Error;
end if;
if Winchnstr (Win, Txt, C_Int (N)) = Curses_Err then
raise Curses_Exception;
end if;
for To in Str'Range loop
exit when Txt (size_t (Cnt)) = Default_Character;
Str (To) := Txt (size_t (Cnt));
Cnt := Cnt + 1;
end loop;
if Cnt < Str'Length then
Str ((Str'First + Cnt) .. Str'Last) :=
(others => (Ch => ' ',
Color => Color_Pair'First,
Attr => Normal_Video));
end if;
end Peek;
procedure Peek
(Win : Window := Standard_Window;
Line : Line_Position;
Column : Column_Position;
Str : out Attributed_String;
Len : Integer := -1)
is
begin
Move_Cursor (Win, Line, Column);
Peek (Win, Str, Len);
end Peek;
------------------------------------------------------------------------------
procedure Get (Win : Window := Standard_Window;
Str : out String;
Len : Integer := -1)
is
function Wgetnstr (Win : Window;
Str : char_array;
Len : C_Int) return C_Int;
pragma Import (C, Wgetnstr, "wgetnstr");
N : Integer := Len;
Txt : char_array (0 .. Str'Length);
Cnt : Natural;
begin
if N < 0 then
N := Str'Length;
end if;
if N > Str'Length then
raise Constraint_Error;
end if;
Txt (0) := Interfaces.C.char'First;
if Wgetnstr (Win, Txt, C_Int (N)) = Curses_Err then
raise Curses_Exception;
end if;
To_Ada (Txt, Str, Cnt, True);
if Cnt < Str'Length then
Str ((Str'First + Cnt) .. Str'Last) := (others => ' ');
end if;
end Get;
procedure Get
(Win : Window := Standard_Window;
Line : Line_Position;
Column : Column_Position;
Str : out String;
Len : Integer := -1)
is
begin
Move_Cursor (Win, Line, Column);
Get (Win, Str, Len);
end Get;
------------------------------------------------------------------------------
procedure Init_Soft_Label_Keys
(Format : Soft_Label_Key_Format := Three_Two_Three)
is
function Slk_Init (Fmt : C_Int) return C_Int;
pragma Import (C, Slk_Init, "slk_init");
begin
if Slk_Init (Soft_Label_Key_Format'Pos (Format)) = Curses_Err then
raise Curses_Exception;
end if;
end Init_Soft_Label_Keys;
procedure Set_Soft_Label_Key (Label : Label_Number;
Text : String;
Fmt : Label_Justification := Left)
is
function Slk_Set (Label : C_Int;
Txt : char_array;
Fmt : C_Int) return C_Int;
pragma Import (C, Slk_Set, "slk_set");
Txt : char_array (0 .. Text'Length);
Len : size_t;
begin
To_C (Text, Txt, Len);
if Slk_Set (C_Int (Label), Txt,
C_Int (Label_Justification'Pos (Fmt))) = Curses_Err
then
raise Curses_Exception;
end if;
end Set_Soft_Label_Key;
procedure Refresh_Soft_Label_Keys
is
function Slk_Refresh return C_Int;
pragma Import (C, Slk_Refresh, "slk_refresh");
begin
if Slk_Refresh = Curses_Err then
raise Curses_Exception;
end if;
end Refresh_Soft_Label_Keys;
procedure Refresh_Soft_Label_Keys_Without_Update
is
function Slk_Noutrefresh return C_Int;
pragma Import (C, Slk_Noutrefresh, "slk_noutrefresh");
begin
if Slk_Noutrefresh = Curses_Err then
raise Curses_Exception;
end if;
end Refresh_Soft_Label_Keys_Without_Update;
procedure Get_Soft_Label_Key (Label : Label_Number;
Text : out String)
is
function Slk_Label (Label : C_Int) return chars_ptr;
pragma Import (C, Slk_Label, "slk_label");
begin
Fill_String (Slk_Label (C_Int (Label)), Text);
end Get_Soft_Label_Key;
function Get_Soft_Label_Key (Label : Label_Number) return String
is
function Slk_Label (Label : C_Int) return chars_ptr;
pragma Import (C, Slk_Label, "slk_label");
begin
return Fill_String (Slk_Label (C_Int (Label)));
end Get_Soft_Label_Key;
procedure Clear_Soft_Label_Keys
is
function Slk_Clear return C_Int;
pragma Import (C, Slk_Clear, "slk_clear");
begin
if Slk_Clear = Curses_Err then
raise Curses_Exception;
end if;
end Clear_Soft_Label_Keys;
procedure Restore_Soft_Label_Keys
is
function Slk_Restore return C_Int;
pragma Import (C, Slk_Restore, "slk_restore");
begin
if Slk_Restore = Curses_Err then
raise Curses_Exception;
end if;
end Restore_Soft_Label_Keys;
procedure Touch_Soft_Label_Keys
is
function Slk_Touch return C_Int;
pragma Import (C, Slk_Touch, "slk_touch");
begin
if Slk_Touch = Curses_Err then
raise Curses_Exception;
end if;
end Touch_Soft_Label_Keys;
procedure Switch_Soft_Label_Key_Attributes
(Attr : Character_Attribute_Set;
On : Boolean := True)
is
function Slk_Attron (Ch : Attributed_Character) return C_Int;
pragma Import (C, Slk_Attron, "slk_attron");
function Slk_Attroff (Ch : Attributed_Character) return C_Int;
pragma Import (C, Slk_Attroff, "slk_attroff");
Err : C_Int;
Ch : constant Attributed_Character := (Ch => Character'First,
Attr => Attr,
Color => Color_Pair'First);
begin
if On then
Err := Slk_Attron (Ch);
else
Err := Slk_Attroff (Ch);
end if;
if Err = Curses_Err then
raise Curses_Exception;
end if;
end Switch_Soft_Label_Key_Attributes;
procedure Set_Soft_Label_Key_Attributes
(Attr : Character_Attribute_Set := Normal_Video;
Color : Color_Pair := Color_Pair'First)
is
function Slk_Attrset (Ch : Attributed_Character) return C_Int;
pragma Import (C, Slk_Attrset, "slk_attrset");
Ch : constant Attributed_Character := (Ch => Character'First,
Attr => Attr,
Color => Color);
begin
if Slk_Attrset (Ch) = Curses_Err then
raise Curses_Exception;
end if;
end Set_Soft_Label_Key_Attributes;
function Get_Soft_Label_Key_Attributes return Character_Attribute_Set
is
function Slk_Attr return Attributed_Character;
pragma Import (C, Slk_Attr, "slk_attr");
Attr : constant Attributed_Character := Slk_Attr;
begin
return Attr.Attr;
end Get_Soft_Label_Key_Attributes;
function Get_Soft_Label_Key_Attributes return Color_Pair
is
function Slk_Attr return Attributed_Character;
pragma Import (C, Slk_Attr, "slk_attr");
Attr : constant Attributed_Character := Slk_Attr;
begin
return Attr.Color;
end Get_Soft_Label_Key_Attributes;
procedure Set_Soft_Label_Key_Color (Pair : Color_Pair)
is
function Slk_Color (Color : C_Short) return C_Int;
pragma Import (C, Slk_Color, "slk_color");
begin
if Slk_Color (C_Short (Pair)) = Curses_Err then
raise Curses_Exception;
end if;
end Set_Soft_Label_Key_Color;
------------------------------------------------------------------------------
procedure Enable_Key (Key : Special_Key_Code;
Enable : Boolean := True)
is
function Keyok (Keycode : C_Int;
On_Off : Curses_Bool) return C_Int;
pragma Import (C, Keyok, "keyok");
begin
if Keyok (C_Int (Key), Curses_Bool (Boolean'Pos (Enable)))
= Curses_Err
then
raise Curses_Exception;
end if;
end Enable_Key;
------------------------------------------------------------------------------
procedure Define_Key (Definition : String;
Key : Special_Key_Code)
is
function Defkey (Def : char_array;
Key : C_Int) return C_Int;
pragma Import (C, Defkey, "define_key");
Txt : char_array (0 .. Definition'Length);
Length : size_t;
begin
To_C (Definition, Txt, Length);
if Defkey (Txt, C_Int (Key)) = Curses_Err then
raise Curses_Exception;
end if;
end Define_Key;
------------------------------------------------------------------------------
procedure Un_Control (Ch : Attributed_Character;
Str : out String)
is
function Unctrl (Ch : Attributed_Character) return chars_ptr;
pragma Import (C, Unctrl, "unctrl");
begin
Fill_String (Unctrl (Ch), Str);
end Un_Control;
function Un_Control (Ch : Attributed_Character) return String
is
function Unctrl (Ch : Attributed_Character) return chars_ptr;
pragma Import (C, Unctrl, "unctrl");
begin
return Fill_String (Unctrl (Ch));
end Un_Control;
procedure Delay_Output (Msecs : Natural)
is
function Delayoutput (Msecs : C_Int) return C_Int;
pragma Import (C, Delayoutput, "delay_output");
begin
if Delayoutput (C_Int (Msecs)) = Curses_Err then
raise Curses_Exception;
end if;
end Delay_Output;
procedure Flush_Input
is
function Flushinp return C_Int;
pragma Import (C, Flushinp, "flushinp");
begin
if Flushinp = Curses_Err then -- docu says that never happens, but...
raise Curses_Exception;
end if;
end Flush_Input;
------------------------------------------------------------------------------
function Baudrate return Natural
is
function Baud return C_Int;
pragma Import (C, Baud, "baudrate");
begin
return Natural (Baud);
end Baudrate;
function Erase_Character return Character
is
function Erasechar return C_Int;
pragma Import (C, Erasechar, "erasechar");
begin
return Character'Val (Erasechar);
end Erase_Character;
function Kill_Character return Character
is
function Killchar return C_Int;
pragma Import (C, Killchar, "killchar");
begin
return Character'Val (Killchar);
end Kill_Character;
function Has_Insert_Character return Boolean
is
function Has_Ic return Curses_Bool;
pragma Import (C, Has_Ic, "has_ic");
begin
if Has_Ic = Curses_Bool_False then
return False;
else
return True;
end if;
end Has_Insert_Character;
function Has_Insert_Line return Boolean
is
function Has_Il return Curses_Bool;
pragma Import (C, Has_Il, "has_il");
begin
if Has_Il = Curses_Bool_False then
return False;
else
return True;
end if;
end Has_Insert_Line;
function Supported_Attributes return Character_Attribute_Set
is
function Termattrs return Attributed_Character;
pragma Import (C, Termattrs, "termattrs");
Ch : constant Attributed_Character := Termattrs;
begin
return Ch.Attr;
end Supported_Attributes;
procedure Long_Name (Name : out String)
is
function Longname return chars_ptr;
pragma Import (C, Longname, "longname");
begin
Fill_String (Longname, Name);
end Long_Name;
function Long_Name return String
is
function Longname return chars_ptr;
pragma Import (C, Longname, "longname");
begin
return Fill_String (Longname);
end Long_Name;
procedure Terminal_Name (Name : out String)
is
function Termname return chars_ptr;
pragma Import (C, Termname, "termname");
begin
Fill_String (Termname, Name);
end Terminal_Name;
function Terminal_Name return String
is
function Termname return chars_ptr;
pragma Import (C, Termname, "termname");
begin
return Fill_String (Termname);
end Terminal_Name;
------------------------------------------------------------------------------
procedure Init_Pair (Pair : Redefinable_Color_Pair;
Fore : Color_Number;
Back : Color_Number)
is
function Initpair (Pair : C_Short;
Fore : C_Short;
Back : C_Short) return C_Int;
pragma Import (C, Initpair, "init_pair");
begin
if Integer (Pair) >= Number_Of_Color_Pairs then
raise Constraint_Error;
end if;
if Integer (Fore) >= Number_Of_Colors or else
Integer (Back) >= Number_Of_Colors
then
raise Constraint_Error;
end if;
if Initpair (C_Short (Pair), C_Short (Fore), C_Short (Back))
= Curses_Err
then
raise Curses_Exception;
end if;
end Init_Pair;
procedure Pair_Content (Pair : Color_Pair;
Fore : out Color_Number;
Back : out Color_Number)
is
type C_Short_Access is access all C_Short;
function Paircontent (Pair : C_Short;
Fp : C_Short_Access;
Bp : C_Short_Access) return C_Int;
pragma Import (C, Paircontent, "pair_content");
F, B : aliased C_Short;
begin
if Paircontent (C_Short (Pair), F'Access, B'Access) = Curses_Err then
raise Curses_Exception;
else
Fore := Color_Number (F);
Back := Color_Number (B);
end if;
end Pair_Content;
function Has_Colors return Boolean
is
function Hascolors return Curses_Bool;
pragma Import (C, Hascolors, "has_colors");
begin
if Hascolors = Curses_Bool_False then
return False;
else
return True;
end if;
end Has_Colors;
procedure Init_Color (Color : Color_Number;
Red : RGB_Value;
Green : RGB_Value;
Blue : RGB_Value)
is
function Initcolor (Col : C_Short;
Red : C_Short;
Green : C_Short;
Blue : C_Short) return C_Int;
pragma Import (C, Initcolor, "init_color");
begin
if Initcolor (C_Short (Color), C_Short (Red), C_Short (Green),
C_Short (Blue)) = Curses_Err
then
raise Curses_Exception;
end if;
end Init_Color;
function Can_Change_Color return Boolean
is
function Canchangecolor return Curses_Bool;
pragma Import (C, Canchangecolor, "can_change_color");
begin
if Canchangecolor = Curses_Bool_False then
return False;
else
return True;
end if;
end Can_Change_Color;
procedure Color_Content (Color : Color_Number;
Red : out RGB_Value;
Green : out RGB_Value;
Blue : out RGB_Value)
is
type C_Short_Access is access all C_Short;
function Colorcontent (Color : C_Short; R, G, B : C_Short_Access)
return C_Int;
pragma Import (C, Colorcontent, "color_content");
R, G, B : aliased C_Short;
begin
if Colorcontent (C_Short (Color), R'Access, G'Access, B'Access) =
Curses_Err
then
raise Curses_Exception;
else
Red := RGB_Value (R);
Green := RGB_Value (G);
Blue := RGB_Value (B);
end if;
end Color_Content;
------------------------------------------------------------------------------
procedure Save_Curses_Mode (Mode : Curses_Mode)
is
function Def_Prog_Mode return C_Int;
pragma Import (C, Def_Prog_Mode, "def_prog_mode");
function Def_Shell_Mode return C_Int;
pragma Import (C, Def_Shell_Mode, "def_shell_mode");
Err : C_Int;
begin
case Mode is
when Curses => Err := Def_Prog_Mode;
when Shell => Err := Def_Shell_Mode;
end case;
if Err = Curses_Err then
raise Curses_Exception;
end if;
end Save_Curses_Mode;
procedure Reset_Curses_Mode (Mode : Curses_Mode)
is
function Reset_Prog_Mode return C_Int;
pragma Import (C, Reset_Prog_Mode, "reset_prog_mode");
function Reset_Shell_Mode return C_Int;
pragma Import (C, Reset_Shell_Mode, "reset_shell_mode");
Err : C_Int;
begin
case Mode is
when Curses => Err := Reset_Prog_Mode;
when Shell => Err := Reset_Shell_Mode;
end case;
if Err = Curses_Err then
raise Curses_Exception;
end if;
end Reset_Curses_Mode;
procedure Save_Terminal_State
is
function Savetty return C_Int;
pragma Import (C, Savetty, "savetty");
begin
if Savetty = Curses_Err then
raise Curses_Exception;
end if;
end Save_Terminal_State;
procedure Reset_Terminal_State
is
function Resetty return C_Int;
pragma Import (C, Resetty, "resetty");
begin
if Resetty = Curses_Err then
raise Curses_Exception;
end if;
end Reset_Terminal_State;
procedure Rip_Off_Lines (Lines : Integer;
Proc : Stdscr_Init_Proc)
is
function Ripoffline (Lines : C_Int;
Proc : Stdscr_Init_Proc) return C_Int;
pragma Import (C, Ripoffline, "_nc_ripoffline");
begin
if Ripoffline (C_Int (Lines), Proc) = Curses_Err then
raise Curses_Exception;
end if;
end Rip_Off_Lines;
procedure Set_Cursor_Visibility (Visibility : in out Cursor_Visibility)
is
function Curs_Set (Curs : C_Int) return C_Int;
pragma Import (C, Curs_Set, "curs_set");
Res : C_Int;
begin
Res := Curs_Set (Cursor_Visibility'Pos (Visibility));
if Res /= Curses_Err then
Visibility := Cursor_Visibility'Val (Res);
end if;
end Set_Cursor_Visibility;
procedure Nap_Milli_Seconds (Ms : Natural)
is
function Napms (Ms : C_Int) return C_Int;
pragma Import (C, Napms, "napms");
begin
if Napms (C_Int (Ms)) = Curses_Err then
raise Curses_Exception;
end if;
end Nap_Milli_Seconds;
------------------------------------------------------------------------------
function Lines return Line_Count
is
function LINES_As_Function return Interfaces.C.int;
pragma Import (C, LINES_As_Function, "LINES_as_function");
begin
return Line_Count (LINES_As_Function);
end Lines;
function Columns return Column_Count
is
function COLS_As_Function return Interfaces.C.int;
pragma Import (C, COLS_As_Function, "COLS_as_function");
begin
return Column_Count (COLS_As_Function);
end Columns;
function Tab_Size return Natural
is
function TABSIZE_As_Function return Interfaces.C.int;
pragma Import (C, TABSIZE_As_Function, "TABSIZE_as_function");
begin
return Natural (TABSIZE_As_Function);
end Tab_Size;
function Number_Of_Colors return Natural
is
function COLORS_As_Function return Interfaces.C.int;
pragma Import (C, COLORS_As_Function, "COLORS_as_function");
begin
return Natural (COLORS_As_Function);
end Number_Of_Colors;
function Number_Of_Color_Pairs return Natural
is
function COLOR_PAIRS_As_Function return Interfaces.C.int;
pragma Import (C, COLOR_PAIRS_As_Function, "COLOR_PAIRS_as_function");
begin
return Natural (COLOR_PAIRS_As_Function);
end Number_Of_Color_Pairs;
------------------------------------------------------------------------------
procedure Transform_Coordinates
(W : Window := Standard_Window;
Line : in out Line_Position;
Column : in out Column_Position;
Dir : Transform_Direction := From_Screen)
is
type Int_Access is access all C_Int;
function Transform (W : Window;
Y, X : Int_Access;
Dir : Curses_Bool) return C_Int;
pragma Import (C, Transform, "wmouse_trafo");
X : aliased C_Int := C_Int (Column);
Y : aliased C_Int := C_Int (Line);
D : Curses_Bool := Curses_Bool_False;
R : C_Int;
begin
if Dir = To_Screen then
D := 1;
end if;
R := Transform (W, Y'Access, X'Access, D);
if R = Curses_False then
raise Curses_Exception;
else
Line := Line_Position (Y);
Column := Column_Position (X);
end if;
end Transform_Coordinates;
------------------------------------------------------------------------------
procedure Use_Default_Colors is
function C_Use_Default_Colors return C_Int;
pragma Import (C, C_Use_Default_Colors, "use_default_colors");
Err : constant C_Int := C_Use_Default_Colors;
begin
if Err = Curses_Err then
raise Curses_Exception;
end if;
end Use_Default_Colors;
procedure Assume_Default_Colors (Fore : Color_Number := Default_Color;
Back : Color_Number := Default_Color)
is
function C_Assume_Default_Colors (Fore : C_Int;
Back : C_Int) return C_Int;
pragma Import (C, C_Assume_Default_Colors, "assume_default_colors");
Err : constant C_Int := C_Assume_Default_Colors (C_Int (Fore),
C_Int (Back));
begin
if Err = Curses_Err then
raise Curses_Exception;
end if;
end Assume_Default_Colors;
------------------------------------------------------------------------------
function Curses_Version return String
is
function curses_versionC return chars_ptr;
pragma Import (C, curses_versionC, "curses_version");
Result : constant chars_ptr := curses_versionC;
begin
return Fill_String (Result);
end Curses_Version;
------------------------------------------------------------------------------
procedure Curses_Free_All is
procedure curses_freeall;
pragma Import (C, curses_freeall, "_nc_freeall");
begin
-- Use this only for testing: you cannot use curses after calling it,
-- so it has to be the "last" thing done before exiting the program.
-- This will not really free ALL of memory used by curses. That is
-- because it cannot free the memory used for stdout's setbuf. The
-- _nc_free_and_exit() procedure can do that, but it can be invoked
-- safely only from C - and again, that only as the "last" thing done
-- before exiting the program.
curses_freeall;
end Curses_Free_All;
------------------------------------------------------------------------------
function Use_Extended_Names (Enable : Boolean) return Boolean
is
function use_extended_namesC (e : Curses_Bool) return C_Int;
pragma Import (C, use_extended_namesC, "use_extended_names");
Res : constant C_Int :=
use_extended_namesC (Curses_Bool (Boolean'Pos (Enable)));
begin
if Res = C_Int (Curses_Bool_False) then
return False;
else
return True;
end if;
end Use_Extended_Names;
------------------------------------------------------------------------------
procedure Screen_Dump_To_File (Filename : String)
is
function scr_dump (f : char_array) return C_Int;
pragma Import (C, scr_dump, "scr_dump");
Txt : char_array (0 .. Filename'Length);
Length : size_t;
begin
To_C (Filename, Txt, Length);
if Curses_Err = scr_dump (Txt) then
raise Curses_Exception;
end if;
end Screen_Dump_To_File;
procedure Screen_Restore_From_File (Filename : String)
is
function scr_restore (f : char_array) return C_Int;
pragma Import (C, scr_restore, "scr_restore");
Txt : char_array (0 .. Filename'Length);
Length : size_t;
begin
To_C (Filename, Txt, Length);
if Curses_Err = scr_restore (Txt) then
raise Curses_Exception;
end if;
end Screen_Restore_From_File;
procedure Screen_Init_From_File (Filename : String)
is
function scr_init (f : char_array) return C_Int;
pragma Import (C, scr_init, "scr_init");
Txt : char_array (0 .. Filename'Length);
Length : size_t;
begin
To_C (Filename, Txt, Length);
if Curses_Err = scr_init (Txt) then
raise Curses_Exception;
end if;
end Screen_Init_From_File;
procedure Screen_Set_File (Filename : String)
is
function scr_set (f : char_array) return C_Int;
pragma Import (C, scr_set, "scr_set");
Txt : char_array (0 .. Filename'Length);
Length : size_t;
begin
To_C (Filename, Txt, Length);
if Curses_Err = scr_set (Txt) then
raise Curses_Exception;
end if;
end Screen_Set_File;
------------------------------------------------------------------------------
procedure Resize (Win : Window := Standard_Window;
Number_Of_Lines : Line_Count;
Number_Of_Columns : Column_Count) is
function wresize (win : Window;
lines : C_Int;
columns : C_Int) return C_Int;
pragma Import (C, wresize);
begin
if wresize (Win,
C_Int (Number_Of_Lines),
C_Int (Number_Of_Columns)) = Curses_Err
then
raise Curses_Exception;
end if;
end Resize;
------------------------------------------------------------------------------
end Terminal_Interface.Curses;
AdaCurses-20211021/gen/terminal_interface-curses-forms-field_user_data.ads.m4 0000644 0001751 0000144 00000007602 13615656212 025523 0 ustar tom users -- -*- ada -*-
define(`HTMLNAME',`terminal_interface-curses-forms-field_user_data__ads.htm')dnl
include(M4MACRO)dnl
------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding --
-- --
-- Terminal_Interface.Curses.Forms.Field_User_Data --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2003,2009 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control:
-- $Revision: 1.17 $
-- Binding Version 01.00
------------------------------------------------------------------------------
generic
type User is limited private;
type User_Access is access User;
package Terminal_Interface.Curses.Forms.Field_User_Data is
pragma Preelaborate (Terminal_Interface.Curses.Forms.Field_User_Data);
-- MANPAGE(`form_field_userptr.3x')
-- ANCHOR(`set_field_userptr',`Set_User_Data')
procedure Set_User_Data (Fld : Field;
Data : User_Access);
-- AKA
pragma Inline (Set_User_Data);
-- ANCHOR(`field_userptr',`Get_User_Data')
procedure Get_User_Data (Fld : Field;
Data : out User_Access);
-- AKA
-- ANCHOR(`field_userptr',`Get_User_Data')
function Get_User_Data (Fld : Field) return User_Access;
-- AKA
-- Sama as function
pragma Inline (Get_User_Data);
end Terminal_Interface.Curses.Forms.Field_User_Data;
AdaCurses-20211021/gen/terminal_interface-curses-trace.ads.m4 0000644 0001751 0000144 00000014531 13615656212 022362 0 ustar tom users -- -*- ada -*-
define(`HTMLNAME',`terminal_interface-curses-trace__ads.htm')dnl
include(M4MACRO)------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding --
-- --
-- Terminal_Interface.Curses.Trace --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000,2014 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control:
-- $Revision: 1.5 $
-- Binding Version 01.00
------------------------------------------------------------------------------
package Terminal_Interface.Curses.Trace is
pragma Preelaborate (Terminal_Interface.Curses.Trace);
type Trace_Attribute_Set is
record
Times : Boolean;
Tputs : Boolean;
Update : Boolean;
Cursor_Move : Boolean;
Character_Output : Boolean;
Calls : Boolean;
Virtual_Puts : Boolean;
Input_Events : Boolean;
TTY_State : Boolean;
Internal_Calls : Boolean;
Character_Calls : Boolean;
Termcap_TermInfo : Boolean;
Attribute_Color : Boolean;
end record;
pragma Convention (C_Pass_By_Copy, Trace_Attribute_Set);
for Trace_Attribute_Set use
record
Times at 0 range Curses_Constants.TRACE_TIMES_First
.. Curses_Constants.TRACE_TIMES_Last;
Tputs at 0 range Curses_Constants.TRACE_TPUTS_First
.. Curses_Constants.TRACE_TPUTS_Last;
Update at 0 range Curses_Constants.TRACE_UPDATE_First
.. Curses_Constants.TRACE_UPDATE_Last;
Cursor_Move at 0 range Curses_Constants.TRACE_MOVE_First
.. Curses_Constants.TRACE_MOVE_Last;
Character_Output at 0 range Curses_Constants.TRACE_CHARPUT_First
.. Curses_Constants.TRACE_CHARPUT_Last;
Calls at 0 range Curses_Constants.TRACE_CALLS_First
.. Curses_Constants.TRACE_CALLS_Last;
Virtual_Puts at 0 range Curses_Constants.TRACE_VIRTPUT_First
.. Curses_Constants.TRACE_VIRTPUT_Last;
Input_Events at 0 range Curses_Constants.TRACE_IEVENT_First
.. Curses_Constants.TRACE_IEVENT_Last;
TTY_State at 0 range Curses_Constants.TRACE_BITS_First
.. Curses_Constants.TRACE_BITS_Last;
Internal_Calls at 0 range Curses_Constants.TRACE_ICALLS_First
.. Curses_Constants.TRACE_ICALLS_Last;
Character_Calls at 0 range Curses_Constants.TRACE_CCALLS_First
.. Curses_Constants.TRACE_CCALLS_Last;
Termcap_TermInfo at 0 range Curses_Constants.TRACE_DATABASE_First
.. Curses_Constants.TRACE_DATABASE_Last;
Attribute_Color at 0 range Curses_Constants.TRACE_ATTRS_First
.. Curses_Constants.TRACE_ATTRS_Last;
end record;
pragma Warnings (Off);
for Trace_Attribute_Set'Size use Curses_Constants.Trace_Size;
pragma Warnings (On);
Trace_Disable : constant Trace_Attribute_Set := (others => False);
Trace_Ordinary : constant Trace_Attribute_Set :=
(Times => True,
Tputs => True,
Update => True,
Cursor_Move => True,
Character_Output => True,
others => False);
Trace_Maximum : constant Trace_Attribute_Set := (others => True);
------------------------------------------------------------------------------
-- MANPAGE(`curs_trace.3x')
-- ANCHOR(`trace()',`Trace_on')
procedure Trace_On (x : Trace_Attribute_Set);
-- The debugging library has trace.
-- ANCHOR(`_tracef()',`Trace_Put')
procedure Trace_Put (str : String);
-- AKA
Current_Trace_Setting : Trace_Attribute_Set;
pragma Import (C, Current_Trace_Setting, "_nc_tracing");
end Terminal_Interface.Curses.Trace;
AdaCurses-20211021/gen/terminal_interface-curses-menus.ads.m4 0000644 0001751 0000144 00000053700 13615656212 022414 0 ustar tom users -- -*- ada -*-
define(`HTMLNAME',`terminal_interface-curses-menus__ads.htm')dnl
include(M4MACRO)dnl
------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding --
-- --
-- Terminal_Interface.Curses.Menu --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2009,2014 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control:
-- $Revision: 1.32 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with System;
with Ada.Characters.Latin_1;
package Terminal_Interface.Curses.Menus is
pragma Preelaborate (Terminal_Interface.Curses.Menus);
pragma Linker_Options ("-lmenu" & Curses_Constants.DFT_ARG_SUFFIX);
Space : Character renames Ada.Characters.Latin_1.Space;
type Item is private;
type Menu is private;
---------------------------
-- Interface constants --
---------------------------
Null_Item : constant Item;
Null_Menu : constant Menu;
subtype Menu_Request_Code is Key_Code
range (Key_Max + 1) .. (Key_Max + 17);
-- The prefix M_ stands for "Menu Request"
M_Left_Item : constant Menu_Request_Code := Key_Max + 1;
M_Right_Item : constant Menu_Request_Code := Key_Max + 2;
M_Up_Item : constant Menu_Request_Code := Key_Max + 3;
M_Down_Item : constant Menu_Request_Code := Key_Max + 4;
M_ScrollUp_Line : constant Menu_Request_Code := Key_Max + 5;
M_ScrollDown_Line : constant Menu_Request_Code := Key_Max + 6;
M_ScrollDown_Page : constant Menu_Request_Code := Key_Max + 7;
M_ScrollUp_Page : constant Menu_Request_Code := Key_Max + 8;
M_First_Item : constant Menu_Request_Code := Key_Max + 9;
M_Last_Item : constant Menu_Request_Code := Key_Max + 10;
M_Next_Item : constant Menu_Request_Code := Key_Max + 11;
M_Previous_Item : constant Menu_Request_Code := Key_Max + 12;
M_Toggle_Item : constant Menu_Request_Code := Key_Max + 13;
M_Clear_Pattern : constant Menu_Request_Code := Key_Max + 14;
M_Back_Pattern : constant Menu_Request_Code := Key_Max + 15;
M_Next_Match : constant Menu_Request_Code := Key_Max + 16;
M_Previous_Match : constant Menu_Request_Code := Key_Max + 17;
-- For those who like the old 'C' names for the request codes
REQ_LEFT_ITEM : Menu_Request_Code renames M_Left_Item;
REQ_RIGHT_ITEM : Menu_Request_Code renames M_Right_Item;
REQ_UP_ITEM : Menu_Request_Code renames M_Up_Item;
REQ_DOWN_ITEM : Menu_Request_Code renames M_Down_Item;
REQ_SCR_ULINE : Menu_Request_Code renames M_ScrollUp_Line;
REQ_SCR_DLINE : Menu_Request_Code renames M_ScrollDown_Line;
REQ_SCR_DPAGE : Menu_Request_Code renames M_ScrollDown_Page;
REQ_SCR_UPAGE : Menu_Request_Code renames M_ScrollUp_Page;
REQ_FIRST_ITEM : Menu_Request_Code renames M_First_Item;
REQ_LAST_ITEM : Menu_Request_Code renames M_Last_Item;
REQ_NEXT_ITEM : Menu_Request_Code renames M_Next_Item;
REQ_PREV_ITEM : Menu_Request_Code renames M_Previous_Item;
REQ_TOGGLE_ITEM : Menu_Request_Code renames M_Toggle_Item;
REQ_CLEAR_PATTERN : Menu_Request_Code renames M_Clear_Pattern;
REQ_BACK_PATTERN : Menu_Request_Code renames M_Back_Pattern;
REQ_NEXT_MATCH : Menu_Request_Code renames M_Next_Match;
REQ_PREV_MATCH : Menu_Request_Code renames M_Previous_Match;
procedure Request_Name (Key : Menu_Request_Code;
Name : out String);
function Request_Name (Key : Menu_Request_Code) return String;
-- Same as function
------------------
-- Exceptions --
------------------
Menu_Exception : exception;
--
-- Menu options
--
type Menu_Option_Set is
record
One_Valued : Boolean;
Show_Descriptions : Boolean;
Row_Major_Order : Boolean;
Ignore_Case : Boolean;
Show_Matches : Boolean;
Non_Cyclic : Boolean;
end record;
pragma Convention (C_Pass_By_Copy, Menu_Option_Set);
for Menu_Option_Set use
record
One_Valued at 0 range Curses_Constants.O_ONEVALUE_First
.. Curses_Constants.O_ONEVALUE_Last;
Show_Descriptions at 0 range Curses_Constants.O_SHOWDESC_First
.. Curses_Constants.O_SHOWDESC_Last;
Row_Major_Order at 0 range Curses_Constants.O_ROWMAJOR_First
.. Curses_Constants.O_ROWMAJOR_Last;
Ignore_Case at 0 range Curses_Constants.O_IGNORECASE_First
.. Curses_Constants.O_IGNORECASE_Last;
Show_Matches at 0 range Curses_Constants.O_SHOWMATCH_First
.. Curses_Constants.O_SHOWMATCH_Last;
Non_Cyclic at 0 range Curses_Constants.O_NONCYCLIC_First
.. Curses_Constants.O_NONCYCLIC_Last;
end record;
pragma Warnings (Off);
for Menu_Option_Set'Size use Curses_Constants.Menu_Options_Size;
pragma Warnings (On);
function Default_Menu_Options return Menu_Option_Set;
-- Initial default options for a menu.
pragma Inline (Default_Menu_Options);
--
-- Item options
--
type Item_Option_Set is
record
Selectable : Boolean;
end record;
pragma Convention (C_Pass_By_Copy, Item_Option_Set);
for Item_Option_Set use
record
Selectable at 0 range Curses_Constants.O_SELECTABLE_First
.. Curses_Constants.O_SELECTABLE_Last;
end record;
pragma Warnings (Off);
for Item_Option_Set'Size use Curses_Constants.Item_Options_Size;
pragma Warnings (On);
function Default_Item_Options return Item_Option_Set;
-- Initial default options for an item.
pragma Inline (Default_Item_Options);
--
-- Item Array
--
type Item_Array is array (Positive range <>) of aliased Item;
pragma Convention (C, Item_Array);
type Item_Array_Access is access Item_Array;
procedure Free (IA : in out Item_Array_Access;
Free_Items : Boolean := False);
-- Release the memory for an allocated item array
-- If Free_Items is True, call Delete() for all the items in
-- the array.
-- MANPAGE(`mitem_new.3x')
-- ANCHOR(`new_item()',`Create')
function Create (Name : String;
Description : String := "") return Item;
-- AKA
-- Not inlined.
-- ANCHOR(`new_item()',`New_Item')
function New_Item (Name : String;
Description : String := "") return Item
renames Create;
-- AKA
-- ANCHOR(`free_item()',`Delete')
procedure Delete (Itm : in out Item);
-- AKA
-- Resets Itm to Null_Item
-- MANPAGE(`mitem_value.3x')
-- ANCHOR(`set_item_value()',`Set_Value')
procedure Set_Value (Itm : Item;
Value : Boolean := True);
-- AKA
pragma Inline (Set_Value);
-- ANCHOR(`item_value()',`Value')
function Value (Itm : Item) return Boolean;
-- AKA
pragma Inline (Value);
-- MANPAGE(`mitem_visible.3x')
-- ANCHOR(`item_visible()',`Visible')
function Visible (Itm : Item) return Boolean;
-- AKA
pragma Inline (Visible);
-- MANPAGE(`mitem_opts.3x')
-- ANCHOR(`set_item_opts()',`Set_Options')
procedure Set_Options (Itm : Item;
Options : Item_Option_Set);
-- AKA
-- An overloaded Set_Options is defined later. Pragma Inline appears there
-- ANCHOR(`item_opts_on()',`Switch_Options')
procedure Switch_Options (Itm : Item;
Options : Item_Option_Set;
On : Boolean := True);
-- AKA
-- ALIAS(`item_opts_off()')
-- An overloaded Switch_Options is defined later.
-- Pragma Inline appears there
-- ANCHOR(`item_opts()',`Get_Options')
procedure Get_Options (Itm : Item;
Options : out Item_Option_Set);
-- AKA
-- ANCHOR(`item_opts()',`Get_Options')
function Get_Options (Itm : Item := Null_Item) return Item_Option_Set;
-- AKA
-- An overloaded Get_Options is defined later. Pragma Inline appears there
-- MANPAGE(`mitem_name.3x')
-- ANCHOR(`item_name()',`Name')
procedure Name (Itm : Item;
Name : out String);
-- AKA
function Name (Itm : Item) return String;
-- AKA
-- Implemented as function
pragma Inline (Name);
-- ANCHOR(`item_description();',`Description')
procedure Description (Itm : Item;
Description : out String);
-- AKA
function Description (Itm : Item) return String;
-- AKA
-- Implemented as function
pragma Inline (Description);
-- MANPAGE(`mitem_current.3x')
-- ANCHOR(`set_current_item()',`Set_Current')
procedure Set_Current (Men : Menu;
Itm : Item);
-- AKA
pragma Inline (Set_Current);
-- ANCHOR(`current_item()',`Current')
function Current (Men : Menu) return Item;
-- AKA
pragma Inline (Current);
-- ANCHOR(`set_top_row()',`Set_Top_Row')
procedure Set_Top_Row (Men : Menu;
Line : Line_Position);
-- AKA
pragma Inline (Set_Top_Row);
-- ANCHOR(`top_row()',`Top_Row')
function Top_Row (Men : Menu) return Line_Position;
-- AKA
pragma Inline (Top_Row);
-- ANCHOR(`item_index()',`Get_Index')
function Get_Index (Itm : Item) return Positive;
-- AKA
-- Please note that in this binding we start the numbering of items
-- with 1. So this is number is one more than you get from the low
-- level call.
pragma Inline (Get_Index);
-- MANPAGE(`menu_post.3x')
-- ANCHOR(`post_menu()',`Post')
procedure Post (Men : Menu;
Post : Boolean := True);
-- AKA
-- ALIAS(`unpost_menu()')
pragma Inline (Post);
-- MANPAGE(`menu_opts.3x')
-- ANCHOR(`set_menu_opts()',`Set_Options')
procedure Set_Options (Men : Menu;
Options : Menu_Option_Set);
-- AKA
pragma Inline (Set_Options);
-- ANCHOR(`menu_opts_on()',`Switch_Options')
procedure Switch_Options (Men : Menu;
Options : Menu_Option_Set;
On : Boolean := True);
-- AKA
-- ALIAS(`menu_opts_off()')
pragma Inline (Switch_Options);
-- ANCHOR(`menu_opts()',`Get_Options')
procedure Get_Options (Men : Menu;
Options : out Menu_Option_Set);
-- AKA
-- ANCHOR(`menu_opts()',`Get_Options')
function Get_Options (Men : Menu := Null_Menu) return Menu_Option_Set;
-- AKA
pragma Inline (Get_Options);
-- MANPAGE(`menu_win.3x')
-- ANCHOR(`set_menu_win()',`Set_Window')
procedure Set_Window (Men : Menu;
Win : Window);
-- AKA
pragma Inline (Set_Window);
-- ANCHOR(`menu_win()',`Get_Window')
function Get_Window (Men : Menu) return Window;
-- AKA
pragma Inline (Get_Window);
-- ANCHOR(`set_menu_sub()',`Set_Sub_Window')
procedure Set_Sub_Window (Men : Menu;
Win : Window);
-- AKA
pragma Inline (Set_Sub_Window);
-- ANCHOR(`menu_sub()',`Get_Sub_Window')
function Get_Sub_Window (Men : Menu) return Window;
-- AKA
pragma Inline (Get_Sub_Window);
-- ANCHOR(`scale_menu()',`Scale')
procedure Scale (Men : Menu;
Lines : out Line_Count;
Columns : out Column_Count);
-- AKA
pragma Inline (Scale);
-- MANPAGE(`menu_cursor.3x')
-- ANCHOR(`pos_menu_cursor()',`Position_Cursor')
procedure Position_Cursor (Men : Menu);
-- AKA
pragma Inline (Position_Cursor);
-- MANPAGE(`menu_mark.3x')
-- ANCHOR(`set_menu_mark()',`Set_Mark')
procedure Set_Mark (Men : Menu;
Mark : String);
-- AKA
pragma Inline (Set_Mark);
-- ANCHOR(`menu_mark()',`Mark')
procedure Mark (Men : Menu;
Mark : out String);
-- AKA
function Mark (Men : Menu) return String;
-- AKA
-- Implemented as function
pragma Inline (Mark);
-- MANPAGE(`menu_attributes.3x')
-- ANCHOR(`set_menu_fore()',`Set_Foreground')
procedure Set_Foreground
(Men : Menu;
Fore : Character_Attribute_Set := Normal_Video;
Color : Color_Pair := Color_Pair'First);
-- AKA
pragma Inline (Set_Foreground);
-- ANCHOR(`menu_fore()',`Foreground')
procedure Foreground (Men : Menu;
Fore : out Character_Attribute_Set);
-- AKA
-- ANCHOR(`menu_fore()',`Foreground')
procedure Foreground (Men : Menu;
Fore : out Character_Attribute_Set;
Color : out Color_Pair);
-- AKA
pragma Inline (Foreground);
-- ANCHOR(`set_menu_back()',`Set_Background')
procedure Set_Background
(Men : Menu;
Back : Character_Attribute_Set := Normal_Video;
Color : Color_Pair := Color_Pair'First);
-- AKA
pragma Inline (Set_Background);
-- ANCHOR(`menu_back()',`Background')
procedure Background (Men : Menu;
Back : out Character_Attribute_Set);
-- AKA
-- ANCHOR(`menu_back()',`Background')
procedure Background (Men : Menu;
Back : out Character_Attribute_Set;
Color : out Color_Pair);
-- AKA
pragma Inline (Background);
-- ANCHOR(`set_menu_grey()',`Set_Grey')
procedure Set_Grey
(Men : Menu;
Grey : Character_Attribute_Set := Normal_Video;
Color : Color_Pair := Color_Pair'First);
-- AKA
pragma Inline (Set_Grey);
-- ANCHOR(`menu_grey()',`Grey')
procedure Grey (Men : Menu;
Grey : out Character_Attribute_Set);
-- AKA
-- ANCHOR(`menu_grey()',`Grey')
procedure Grey
(Men : Menu;
Grey : out Character_Attribute_Set;
Color : out Color_Pair);
-- AKA
pragma Inline (Grey);
-- ANCHOR(`set_menu_pad()',`Set_Pad_Character')
procedure Set_Pad_Character (Men : Menu;
Pad : Character := Space);
-- AKA
pragma Inline (Set_Pad_Character);
-- ANCHOR(`menu_pad()',`Pad_Character')
procedure Pad_Character (Men : Menu;
Pad : out Character);
-- AKA
pragma Inline (Pad_Character);
-- MANPAGE(`menu_spacing.3x')
-- ANCHOR(`set_menu_spacing()',`Set_Spacing')
procedure Set_Spacing (Men : Menu;
Descr : Column_Position := 0;
Row : Line_Position := 0;
Col : Column_Position := 0);
-- AKA
pragma Inline (Set_Spacing);
-- ANCHOR(`menu_spacing()',`Spacing')
procedure Spacing (Men : Menu;
Descr : out Column_Position;
Row : out Line_Position;
Col : out Column_Position);
-- AKA
pragma Inline (Spacing);
-- MANPAGE(`menu_pattern.3x')
-- ANCHOR(`set_menu_pattern()',`Set_Pattern')
function Set_Pattern (Men : Menu;
Text : String) return Boolean;
-- AKA
-- Return TRUE if the pattern matches, FALSE otherwise
pragma Inline (Set_Pattern);
-- ANCHOR(`menu_pattern()',`Pattern')
procedure Pattern (Men : Menu;
Text : out String);
-- AKA
pragma Inline (Pattern);
-- MANPAGE(`menu_format.3x')
-- ANCHOR(`set_menu_format()',`Set_Format')
procedure Set_Format (Men : Menu;
Lines : Line_Count;
Columns : Column_Count);
-- Not implemented: 0 argument for Lines or Columns;
-- instead use Format to get the current sizes
-- The default format is 16 rows, 1 column. Calling
-- set_menu_format with a null menu pointer will change this
-- default. A zero row or column argument to set_menu_format
-- is interpreted as a request not to change the current
-- value.
-- AKA
pragma Inline (Set_Format);
-- ANCHOR(`menu_format()',`Format')
procedure Format (Men : Menu;
Lines : out Line_Count;
Columns : out Column_Count);
-- AKA
pragma Inline (Format);
-- MANPAGE(`menu_hook.3x')
type Menu_Hook_Function is access procedure (Men : Menu);
pragma Convention (C, Menu_Hook_Function);
-- ANCHOR(`set_item_init()',`Set_Item_Init_Hook')
procedure Set_Item_Init_Hook (Men : Menu;
Proc : Menu_Hook_Function);
-- AKA
pragma Inline (Set_Item_Init_Hook);
-- ANCHOR(`set_item_term()',`Set_Item_Term_Hook')
procedure Set_Item_Term_Hook (Men : Menu;
Proc : Menu_Hook_Function);
-- AKA
pragma Inline (Set_Item_Term_Hook);
-- ANCHOR(`set_menu_init()',`Set_Menu_Init_Hook')
procedure Set_Menu_Init_Hook (Men : Menu;
Proc : Menu_Hook_Function);
-- AKA
pragma Inline (Set_Menu_Init_Hook);
-- ANCHOR(`set_menu_term()',`Set_Menu_Term_Hook')
procedure Set_Menu_Term_Hook (Men : Menu;
Proc : Menu_Hook_Function);
-- AKA
pragma Inline (Set_Menu_Term_Hook);
-- ANCHOR(`item_init()',`Get_Item_Init_Hook')
function Get_Item_Init_Hook (Men : Menu) return Menu_Hook_Function;
-- AKA
pragma Inline (Get_Item_Init_Hook);
-- ANCHOR(`item_term()',`Get_Item_Term_Hook')
function Get_Item_Term_Hook (Men : Menu) return Menu_Hook_Function;
-- AKA
pragma Inline (Get_Item_Term_Hook);
-- ANCHOR(`menu_init()',`Get_Menu_Init_Hook')
function Get_Menu_Init_Hook (Men : Menu) return Menu_Hook_Function;
-- AKA
pragma Inline (Get_Menu_Init_Hook);
-- ANCHOR(`menu_term()',`Get_Menu_Term_Hook')
function Get_Menu_Term_Hook (Men : Menu) return Menu_Hook_Function;
-- AKA
pragma Inline (Get_Menu_Term_Hook);
-- MANPAGE(`menu_items.3x')
-- ANCHOR(`set_menu_items()',`Redefine')
procedure Redefine (Men : Menu;
Items : Item_Array_Access);
-- AKA
pragma Inline (Redefine);
procedure Set_Items (Men : Menu;
Items : Item_Array_Access) renames Redefine;
-- pragma Inline (Set_Items);
-- ANCHOR(`menu_items()',`Items')
function Items (Men : Menu;
Index : Positive) return Item;
-- AKA
pragma Inline (Items);
-- ANCHOR(`item_count()',`Item_Count')
function Item_Count (Men : Menu) return Natural;
-- AKA
pragma Inline (Item_Count);
-- MANPAGE(`menu_new.3x')
-- ANCHOR(`new_menu()',`Create')
function Create (Items : Item_Array_Access) return Menu;
-- AKA
-- Not inlined
function New_Menu (Items : Item_Array_Access) return Menu renames Create;
-- ANCHOR(`free_menu()',`Delete')
procedure Delete (Men : in out Menu);
-- AKA
-- Reset Men to Null_Menu
-- Not inlined
-- MANPAGE(`menu_driver.3x')
type Driver_Result is (Menu_Ok,
Request_Denied,
Unknown_Request,
No_Match);
-- ANCHOR(`menu_driver()',`Driver')
function Driver (Men : Menu;
Key : Key_Code) return Driver_Result;
-- AKA
-- Driver is not inlined
-- ANCHOR(`menu_requestname.3x')
-- Not Implemented: menu_request_name, menu_request_by_name
-------------------------------------------------------------------------------
private
type Item is new System.Storage_Elements.Integer_Address;
type Menu is new System.Storage_Elements.Integer_Address;
Null_Item : constant Item := 0;
Null_Menu : constant Menu := 0;
end Terminal_Interface.Curses.Menus;
AdaCurses-20211021/gen/terminal_interface-curses-panels.ads.m4 0000644 0001751 0000144 00000013307 13615656212 022546 0 ustar tom users -- -*- ada -*-
define(`HTMLNAME',`terminal_interface-curses-panels__ads.htm')dnl
include(M4MACRO)dnl
------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding --
-- --
-- Terminal_Interface.Curses.Panels --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2009,2014 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control:
-- $Revision: 1.23 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with System;
package Terminal_Interface.Curses.Panels is
pragma Preelaborate (Terminal_Interface.Curses.Panels);
pragma Linker_Options ("-lpanel" & Curses_Constants.DFT_ARG_SUFFIX);
type Panel is private;
---------------------------
-- Interface constants --
---------------------------
Null_Panel : constant Panel;
-------------------
-- Exceptions --
-------------------
Panel_Exception : exception;
-- MANPAGE(`panel.3x')
-- ANCHOR(`new_panel()',`Create')
function Create (Win : Window) return Panel;
-- AKA
pragma Inline (Create);
-- ANCHOR(`new_panel()',`New_Panel')
function New_Panel (Win : Window) return Panel renames Create;
-- AKA
-- pragma Inline (New_Panel);
-- ANCHOR(`bottom_panel()',`Bottom')
procedure Bottom (Pan : Panel);
-- AKA
pragma Inline (Bottom);
-- ANCHOR(`top_panel()',`Top')
procedure Top (Pan : Panel);
-- AKA
pragma Inline (Top);
-- ANCHOR(`show_panel()',`Show')
procedure Show (Pan : Panel);
-- AKA
pragma Inline (Show);
-- ANCHOR(`update_panels()',`Update_Panels')
procedure Update_Panels;
-- AKA
pragma Import (C, Update_Panels, "update_panels");
-- ANCHOR(`hide_panel()',`Hide')
procedure Hide (Pan : Panel);
-- AKA
pragma Inline (Hide);
-- ANCHOR(`panel_window()',`Get_Window')
function Get_Window (Pan : Panel) return Window;
-- AKA
pragma Inline (Get_Window);
-- ANCHOR(`panel_window()',`Panel_Window')
function Panel_Window (Pan : Panel) return Window renames Get_Window;
-- pragma Inline (Panel_Window);
-- ANCHOR(`replace_panel()',`Replace')
procedure Replace (Pan : Panel;
Win : Window);
-- AKA
pragma Inline (Replace);
-- ANCHOR(`move_panel()',`Move')
procedure Move (Pan : Panel;
Line : Line_Position;
Column : Column_Position);
-- AKA
pragma Inline (Move);
-- ANCHOR(`panel_hidden()',`Is_Hidden')
function Is_Hidden (Pan : Panel) return Boolean;
-- AKA
pragma Inline (Is_Hidden);
-- ANCHOR(`panel_above()',`Above')
function Above (Pan : Panel) return Panel;
-- AKA
pragma Import (C, Above, "panel_above");
-- ANCHOR(`panel_below()',`Below')
function Below (Pan : Panel) return Panel;
-- AKA
pragma Import (C, Below, "panel_below");
-- ANCHOR(`del_panel()',`Delete')
procedure Delete (Pan : in out Panel);
-- AKA
pragma Inline (Delete);
private
type Panel is new System.Storage_Elements.Integer_Address;
Null_Panel : constant Panel := 0;
end Terminal_Interface.Curses.Panels;
AdaCurses-20211021/gen/terminal_interface-curses-forms.ads.m4 0000644 0001751 0000144 00000072076 13615656212 022422 0 ustar tom users -- -*- ada -*-
define(`HTMLNAME',`terminal_interface-curses-forms__ads.htm')dnl
include(M4MACRO)dnl
------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding --
-- --
-- Terminal_Interface.Curses.Form --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2009,2014 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control:
-- $Revision: 1.34 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with System;
with Ada.Characters.Latin_1;
package Terminal_Interface.Curses.Forms is
pragma Preelaborate (Terminal_Interface.Curses.Forms);
pragma Linker_Options ("-lform" & Curses_Constants.DFT_ARG_SUFFIX);
Space : Character renames Ada.Characters.Latin_1.Space;
type Field is private;
type Form is private;
Null_Field : constant Field;
Null_Form : constant Form;
type Field_Justification is (None,
Left,
Center,
Right);
type Field_Option_Set is
record
Visible : Boolean;
Active : Boolean;
Public : Boolean;
Edit : Boolean;
Wrap : Boolean;
Blank : Boolean;
Auto_Skip : Boolean;
Null_Ok : Boolean;
Pass_Ok : Boolean;
Static : Boolean;
end record;
pragma Convention (C_Pass_By_Copy, Field_Option_Set);
for Field_Option_Set use
record
Visible at 0 range Curses_Constants.O_VISIBLE_First
.. Curses_Constants.O_VISIBLE_Last;
Active at 0 range Curses_Constants.O_ACTIVE_First
.. Curses_Constants.O_ACTIVE_Last;
Public at 0 range Curses_Constants.O_PUBLIC_First
.. Curses_Constants.O_PUBLIC_Last;
Edit at 0 range Curses_Constants.O_EDIT_First
.. Curses_Constants.O_EDIT_Last;
Wrap at 0 range Curses_Constants.O_WRAP_First
.. Curses_Constants.O_WRAP_Last;
Blank at 0 range Curses_Constants.O_BLANK_First
.. Curses_Constants.O_BLANK_Last;
Auto_Skip at 0 range Curses_Constants.O_AUTOSKIP_First
.. Curses_Constants.O_AUTOSKIP_Last;
Null_Ok at 0 range Curses_Constants.O_NULLOK_First
.. Curses_Constants.O_NULLOK_Last;
Pass_Ok at 0 range Curses_Constants.O_PASSOK_First
.. Curses_Constants.O_PASSOK_Last;
Static at 0 range Curses_Constants.O_STATIC_First
.. Curses_Constants.O_STATIC_Last;
end record;
pragma Warnings (Off);
for Field_Option_Set'Size use Curses_Constants.Field_Options_Size;
pragma Warnings (On);
function Default_Field_Options return Field_Option_Set;
-- The initial defaults for the field options.
pragma Inline (Default_Field_Options);
type Form_Option_Set is
record
NL_Overload : Boolean;
BS_Overload : Boolean;
end record;
pragma Convention (C_Pass_By_Copy, Form_Option_Set);
for Form_Option_Set use
record
NL_Overload at 0 range Curses_Constants.O_NL_OVERLOAD_First
.. Curses_Constants.O_NL_OVERLOAD_Last;
BS_Overload at 0 range Curses_Constants.O_BS_OVERLOAD_First
.. Curses_Constants.O_BS_OVERLOAD_Last;
end record;
pragma Warnings (Off);
for Form_Option_Set'Size use Curses_Constants.Field_Options_Size;
pragma Warnings (On);
function Default_Form_Options return Form_Option_Set;
-- The initial defaults for the form options.
pragma Inline (Default_Form_Options);
type Buffer_Number is new Natural;
type Field_Array is array (Positive range <>) of aliased Field;
pragma Convention (C, Field_Array);
type Field_Array_Access is access Field_Array;
procedure Free (FA : in out Field_Array_Access;
Free_Fields : Boolean := False);
-- Release the memory for an allocated field array
-- If Free_Fields is True, call Delete() for all the fields in
-- the array.
subtype Form_Request_Code is Key_Code range (Key_Max + 1) .. (Key_Max + 57);
-- The prefix F_ stands for "Form Request"
F_Next_Page : constant Form_Request_Code := Key_Max + 1;
F_Previous_Page : constant Form_Request_Code := Key_Max + 2;
F_First_Page : constant Form_Request_Code := Key_Max + 3;
F_Last_Page : constant Form_Request_Code := Key_Max + 4;
F_Next_Field : constant Form_Request_Code := Key_Max + 5;
F_Previous_Field : constant Form_Request_Code := Key_Max + 6;
F_First_Field : constant Form_Request_Code := Key_Max + 7;
F_Last_Field : constant Form_Request_Code := Key_Max + 8;
F_Sorted_Next_Field : constant Form_Request_Code := Key_Max + 9;
F_Sorted_Previous_Field : constant Form_Request_Code := Key_Max + 10;
F_Sorted_First_Field : constant Form_Request_Code := Key_Max + 11;
F_Sorted_Last_Field : constant Form_Request_Code := Key_Max + 12;
F_Left_Field : constant Form_Request_Code := Key_Max + 13;
F_Right_Field : constant Form_Request_Code := Key_Max + 14;
F_Up_Field : constant Form_Request_Code := Key_Max + 15;
F_Down_Field : constant Form_Request_Code := Key_Max + 16;
F_Next_Char : constant Form_Request_Code := Key_Max + 17;
F_Previous_Char : constant Form_Request_Code := Key_Max + 18;
F_Next_Line : constant Form_Request_Code := Key_Max + 19;
F_Previous_Line : constant Form_Request_Code := Key_Max + 20;
F_Next_Word : constant Form_Request_Code := Key_Max + 21;
F_Previous_Word : constant Form_Request_Code := Key_Max + 22;
F_Begin_Field : constant Form_Request_Code := Key_Max + 23;
F_End_Field : constant Form_Request_Code := Key_Max + 24;
F_Begin_Line : constant Form_Request_Code := Key_Max + 25;
F_End_Line : constant Form_Request_Code := Key_Max + 26;
F_Left_Char : constant Form_Request_Code := Key_Max + 27;
F_Right_Char : constant Form_Request_Code := Key_Max + 28;
F_Up_Char : constant Form_Request_Code := Key_Max + 29;
F_Down_Char : constant Form_Request_Code := Key_Max + 30;
F_New_Line : constant Form_Request_Code := Key_Max + 31;
F_Insert_Char : constant Form_Request_Code := Key_Max + 32;
F_Insert_Line : constant Form_Request_Code := Key_Max + 33;
F_Delete_Char : constant Form_Request_Code := Key_Max + 34;
F_Delete_Previous : constant Form_Request_Code := Key_Max + 35;
F_Delete_Line : constant Form_Request_Code := Key_Max + 36;
F_Delete_Word : constant Form_Request_Code := Key_Max + 37;
F_Clear_EOL : constant Form_Request_Code := Key_Max + 38;
F_Clear_EOF : constant Form_Request_Code := Key_Max + 39;
F_Clear_Field : constant Form_Request_Code := Key_Max + 40;
F_Overlay_Mode : constant Form_Request_Code := Key_Max + 41;
F_Insert_Mode : constant Form_Request_Code := Key_Max + 42;
-- Vertical Scrolling
F_ScrollForward_Line : constant Form_Request_Code := Key_Max + 43;
F_ScrollBackward_Line : constant Form_Request_Code := Key_Max + 44;
F_ScrollForward_Page : constant Form_Request_Code := Key_Max + 45;
F_ScrollBackward_Page : constant Form_Request_Code := Key_Max + 46;
F_ScrollForward_HalfPage : constant Form_Request_Code := Key_Max + 47;
F_ScrollBackward_HalfPage : constant Form_Request_Code := Key_Max + 48;
-- Horizontal Scrolling
F_HScrollForward_Char : constant Form_Request_Code := Key_Max + 49;
F_HScrollBackward_Char : constant Form_Request_Code := Key_Max + 50;
F_HScrollForward_Line : constant Form_Request_Code := Key_Max + 51;
F_HScrollBackward_Line : constant Form_Request_Code := Key_Max + 52;
F_HScrollForward_HalfLine : constant Form_Request_Code := Key_Max + 53;
F_HScrollBackward_HalfLine : constant Form_Request_Code := Key_Max + 54;
F_Validate_Field : constant Form_Request_Code := Key_Max + 55;
F_Next_Choice : constant Form_Request_Code := Key_Max + 56;
F_Previous_Choice : constant Form_Request_Code := Key_Max + 57;
-- For those who like the old 'C' style request names
REQ_NEXT_PAGE : Form_Request_Code renames F_Next_Page;
REQ_PREV_PAGE : Form_Request_Code renames F_Previous_Page;
REQ_FIRST_PAGE : Form_Request_Code renames F_First_Page;
REQ_LAST_PAGE : Form_Request_Code renames F_Last_Page;
REQ_NEXT_FIELD : Form_Request_Code renames F_Next_Field;
REQ_PREV_FIELD : Form_Request_Code renames F_Previous_Field;
REQ_FIRST_FIELD : Form_Request_Code renames F_First_Field;
REQ_LAST_FIELD : Form_Request_Code renames F_Last_Field;
REQ_SNEXT_FIELD : Form_Request_Code renames F_Sorted_Next_Field;
REQ_SPREV_FIELD : Form_Request_Code renames F_Sorted_Previous_Field;
REQ_SFIRST_FIELD : Form_Request_Code renames F_Sorted_First_Field;
REQ_SLAST_FIELD : Form_Request_Code renames F_Sorted_Last_Field;
REQ_LEFT_FIELD : Form_Request_Code renames F_Left_Field;
REQ_RIGHT_FIELD : Form_Request_Code renames F_Right_Field;
REQ_UP_FIELD : Form_Request_Code renames F_Up_Field;
REQ_DOWN_FIELD : Form_Request_Code renames F_Down_Field;
REQ_NEXT_CHAR : Form_Request_Code renames F_Next_Char;
REQ_PREV_CHAR : Form_Request_Code renames F_Previous_Char;
REQ_NEXT_LINE : Form_Request_Code renames F_Next_Line;
REQ_PREV_LINE : Form_Request_Code renames F_Previous_Line;
REQ_NEXT_WORD : Form_Request_Code renames F_Next_Word;
REQ_PREV_WORD : Form_Request_Code renames F_Previous_Word;
REQ_BEG_FIELD : Form_Request_Code renames F_Begin_Field;
REQ_END_FIELD : Form_Request_Code renames F_End_Field;
REQ_BEG_LINE : Form_Request_Code renames F_Begin_Line;
REQ_END_LINE : Form_Request_Code renames F_End_Line;
REQ_LEFT_CHAR : Form_Request_Code renames F_Left_Char;
REQ_RIGHT_CHAR : Form_Request_Code renames F_Right_Char;
REQ_UP_CHAR : Form_Request_Code renames F_Up_Char;
REQ_DOWN_CHAR : Form_Request_Code renames F_Down_Char;
REQ_NEW_LINE : Form_Request_Code renames F_New_Line;
REQ_INS_CHAR : Form_Request_Code renames F_Insert_Char;
REQ_INS_LINE : Form_Request_Code renames F_Insert_Line;
REQ_DEL_CHAR : Form_Request_Code renames F_Delete_Char;
REQ_DEL_PREV : Form_Request_Code renames F_Delete_Previous;
REQ_DEL_LINE : Form_Request_Code renames F_Delete_Line;
REQ_DEL_WORD : Form_Request_Code renames F_Delete_Word;
REQ_CLR_EOL : Form_Request_Code renames F_Clear_EOL;
REQ_CLR_EOF : Form_Request_Code renames F_Clear_EOF;
REQ_CLR_FIELD : Form_Request_Code renames F_Clear_Field;
REQ_OVL_MODE : Form_Request_Code renames F_Overlay_Mode;
REQ_INS_MODE : Form_Request_Code renames F_Insert_Mode;
REQ_SCR_FLINE : Form_Request_Code renames F_ScrollForward_Line;
REQ_SCR_BLINE : Form_Request_Code renames F_ScrollBackward_Line;
REQ_SCR_FPAGE : Form_Request_Code renames F_ScrollForward_Page;
REQ_SCR_BPAGE : Form_Request_Code renames F_ScrollBackward_Page;
REQ_SCR_FHPAGE : Form_Request_Code renames F_ScrollForward_HalfPage;
REQ_SCR_BHPAGE : Form_Request_Code renames F_ScrollBackward_HalfPage;
REQ_SCR_FCHAR : Form_Request_Code renames F_HScrollForward_Char;
REQ_SCR_BCHAR : Form_Request_Code renames F_HScrollBackward_Char;
REQ_SCR_HFLINE : Form_Request_Code renames F_HScrollForward_Line;
REQ_SCR_HBLINE : Form_Request_Code renames F_HScrollBackward_Line;
REQ_SCR_HFHALF : Form_Request_Code renames F_HScrollForward_HalfLine;
REQ_SCR_HBHALF : Form_Request_Code renames F_HScrollBackward_HalfLine;
REQ_VALIDATION : Form_Request_Code renames F_Validate_Field;
REQ_NEXT_CHOICE : Form_Request_Code renames F_Next_Choice;
REQ_PREV_CHOICE : Form_Request_Code renames F_Previous_Choice;
procedure Request_Name (Key : Form_Request_Code;
Name : out String);
function Request_Name (Key : Form_Request_Code) return String;
-- Same as function
pragma Inline (Request_Name);
------------------
-- Exceptions --
------------------
Form_Exception : exception;
-- MANPAGE(`form_field_new.3x')
-- ANCHOR(`new_field()',`Create')
function Create (Height : Line_Count;
Width : Column_Count;
Top : Line_Position;
Left : Column_Position;
Off_Screen : Natural := 0;
More_Buffers : Buffer_Number := Buffer_Number'First)
return Field;
-- AKA
-- An overloaded Create is defined later. Pragma Inline appears there.
-- ANCHOR(`new_field()',`New_Field')
function New_Field (Height : Line_Count;
Width : Column_Count;
Top : Line_Position;
Left : Column_Position;
Off_Screen : Natural := 0;
More_Buffers : Buffer_Number := Buffer_Number'First)
return Field renames Create;
-- AKA
pragma Inline (New_Field);
-- ANCHOR(`free_field()',`Delete')
procedure Delete (Fld : in out Field);
-- AKA
-- Reset Fld to Null_Field
-- An overloaded Delete is defined later. Pragma Inline appears there.
-- ANCHOR(`dup_field()',`Duplicate')
function Duplicate (Fld : Field;
Top : Line_Position;
Left : Column_Position) return Field;
-- AKA
pragma Inline (Duplicate);
-- ANCHOR(`link_field()',`Link')
function Link (Fld : Field;
Top : Line_Position;
Left : Column_Position) return Field;
-- AKA
pragma Inline (Link);
-- MANPAGE(`form_field_just.3x')
-- ANCHOR(`set_field_just()',`Set_Justification')
procedure Set_Justification (Fld : Field;
Just : Field_Justification := None);
-- AKA
pragma Inline (Set_Justification);
-- ANCHOR(`field_just()',`Get_Justification')
function Get_Justification (Fld : Field) return Field_Justification;
-- AKA
pragma Inline (Get_Justification);
-- MANPAGE(`form_field_buffer.3x')
-- ANCHOR(`set_field_buffer()',`Set_Buffer')
procedure Set_Buffer
(Fld : Field;
Buffer : Buffer_Number := Buffer_Number'First;
Str : String);
-- AKA
-- Not inlined
-- ANCHOR(`field_buffer()',`Get_Buffer')
procedure Get_Buffer
(Fld : Field;
Buffer : Buffer_Number := Buffer_Number'First;
Str : out String);
-- AKA
function Get_Buffer
(Fld : Field;
Buffer : Buffer_Number := Buffer_Number'First) return String;
-- AKA
-- Same but as function
pragma Inline (Get_Buffer);
-- ANCHOR(`set_field_status()',`Set_Status')
procedure Set_Status (Fld : Field;
Status : Boolean := True);
-- AKA
pragma Inline (Set_Status);
-- ANCHOR(`field_status()',`Changed')
function Changed (Fld : Field) return Boolean;
-- AKA
pragma Inline (Changed);
-- ANCHOR(`set_field_max()',`Set_Maximum_Size')
procedure Set_Maximum_Size (Fld : Field;
Max : Natural := 0);
-- AKA
pragma Inline (Set_Maximum_Size);
-- MANPAGE(`form_field_opts.3x')
-- ANCHOR(`set_field_opts()',`Set_Options')
procedure Set_Options (Fld : Field;
Options : Field_Option_Set);
-- AKA
-- An overloaded version is defined later. Pragma Inline appears there
-- ANCHOR(`field_opts_on()',`Switch_Options')
procedure Switch_Options (Fld : Field;
Options : Field_Option_Set;
On : Boolean := True);
-- AKA
-- ALIAS(`field_opts_off()')
-- An overloaded version is defined later. Pragma Inline appears there
-- ANCHOR(`field_opts()',`Get_Options')
procedure Get_Options (Fld : Field;
Options : out Field_Option_Set);
-- AKA
-- ANCHOR(`field_opts()',`Get_Options')
function Get_Options (Fld : Field := Null_Field)
return Field_Option_Set;
-- AKA
-- An overloaded version is defined later. Pragma Inline appears there
-- MANPAGE(`form_field_attributes.3x')
-- ANCHOR(`set_field_fore()',`Set_Foreground')
procedure Set_Foreground
(Fld : Field;
Fore : Character_Attribute_Set := Normal_Video;
Color : Color_Pair := Color_Pair'First);
-- AKA
pragma Inline (Set_Foreground);
-- ANCHOR(`field_fore()',`Foreground')
procedure Foreground (Fld : Field;
Fore : out Character_Attribute_Set);
-- AKA
-- ANCHOR(`field_fore()',`Foreground')
procedure Foreground (Fld : Field;
Fore : out Character_Attribute_Set;
Color : out Color_Pair);
-- AKA
pragma Inline (Foreground);
-- ANCHOR(`set_field_back()',`Set_Background')
procedure Set_Background
(Fld : Field;
Back : Character_Attribute_Set := Normal_Video;
Color : Color_Pair := Color_Pair'First);
-- AKA
pragma Inline (Set_Background);
-- ANCHOR(`field_back()',`Background')
procedure Background (Fld : Field;
Back : out Character_Attribute_Set);
-- AKA
-- ANCHOR(`field_back()',`Background')
procedure Background (Fld : Field;
Back : out Character_Attribute_Set;
Color : out Color_Pair);
-- AKA
pragma Inline (Background);
-- ANCHOR(`set_field_pad()',`Set_Pad_Character')
procedure Set_Pad_Character (Fld : Field;
Pad : Character := Space);
-- AKA
pragma Inline (Set_Pad_Character);
-- ANCHOR(`field_pad()',`Pad_Character')
procedure Pad_Character (Fld : Field;
Pad : out Character);
-- AKA
pragma Inline (Pad_Character);
-- MANPAGE(`form_field_info.3x')
-- ANCHOR(`field_info()',`Info')
procedure Info (Fld : Field;
Lines : out Line_Count;
Columns : out Column_Count;
First_Row : out Line_Position;
First_Column : out Column_Position;
Off_Screen : out Natural;
Additional_Buffers : out Buffer_Number);
-- AKA
pragma Inline (Info);
-- ANCHOR(`dynamic_field_info()',`Dynamic_Info')
procedure Dynamic_Info (Fld : Field;
Lines : out Line_Count;
Columns : out Column_Count;
Max : out Natural);
-- AKA
pragma Inline (Dynamic_Info);
-- MANPAGE(`form_win.3x')
-- ANCHOR(`set_form_win()',`Set_Window')
procedure Set_Window (Frm : Form;
Win : Window);
-- AKA
pragma Inline (Set_Window);
-- ANCHOR(`form_win()',`Get_Window')
function Get_Window (Frm : Form) return Window;
-- AKA
pragma Inline (Get_Window);
-- ANCHOR(`set_form_sub()',`Set_Sub_Window')
procedure Set_Sub_Window (Frm : Form;
Win : Window);
-- AKA
pragma Inline (Set_Sub_Window);
-- ANCHOR(`form_sub()',`Get_Sub_Window')
function Get_Sub_Window (Frm : Form) return Window;
-- AKA
pragma Inline (Get_Sub_Window);
-- ANCHOR(`scale_form()',`Scale')
procedure Scale (Frm : Form;
Lines : out Line_Count;
Columns : out Column_Count);
-- AKA
pragma Inline (Scale);
-- MANPAGE(`form_hook.3x')
type Form_Hook_Function is access procedure (Frm : Form);
pragma Convention (C, Form_Hook_Function);
-- ANCHOR(`set_field_init()',`Set_Field_Init_Hook')
procedure Set_Field_Init_Hook (Frm : Form;
Proc : Form_Hook_Function);
-- AKA
pragma Inline (Set_Field_Init_Hook);
-- ANCHOR(`set_field_term()',`Set_Field_Term_Hook')
procedure Set_Field_Term_Hook (Frm : Form;
Proc : Form_Hook_Function);
-- AKA
pragma Inline (Set_Field_Term_Hook);
-- ANCHOR(`set_form_init()',`Set_Form_Init_Hook')
procedure Set_Form_Init_Hook (Frm : Form;
Proc : Form_Hook_Function);
-- AKA
pragma Inline (Set_Form_Init_Hook);
-- ANCHOR(`set_form_term()',`Set_Form_Term_Hook')
procedure Set_Form_Term_Hook (Frm : Form;
Proc : Form_Hook_Function);
-- AKA
pragma Inline (Set_Form_Term_Hook);
-- ANCHOR(`field_init()',`Get_Field_Init_Hook')
function Get_Field_Init_Hook (Frm : Form) return Form_Hook_Function;
-- AKA
pragma Import (C, Get_Field_Init_Hook, "field_init");
-- ANCHOR(`field_term()',`Get_Field_Term_Hook')
function Get_Field_Term_Hook (Frm : Form) return Form_Hook_Function;
-- AKA
pragma Import (C, Get_Field_Term_Hook, "field_term");
-- ANCHOR(`form_init()',`Get_Form_Init_Hook')
function Get_Form_Init_Hook (Frm : Form) return Form_Hook_Function;
-- AKA
pragma Import (C, Get_Form_Init_Hook, "form_init");
-- ANCHOR(`form_term()',`Get_Form_Term_Hook')
function Get_Form_Term_Hook (Frm : Form) return Form_Hook_Function;
-- AKA
pragma Import (C, Get_Form_Term_Hook, "form_term");
-- MANPAGE(`form_field.3x')
-- ANCHOR(`set_form_fields()',`Redefine')
procedure Redefine (Frm : Form;
Flds : Field_Array_Access);
-- AKA
pragma Inline (Redefine);
-- ANCHOR(`set_form_fields()',`Set_Fields')
procedure Set_Fields (Frm : Form;
Flds : Field_Array_Access) renames Redefine;
-- AKA
-- pragma Inline (Set_Fields);
-- ANCHOR(`form_fields()',`Fields')
function Fields (Frm : Form;
Index : Positive) return Field;
-- AKA
pragma Inline (Fields);
-- ANCHOR(`field_count()',`Field_Count')
function Field_Count (Frm : Form) return Natural;
-- AKA
pragma Inline (Field_Count);
-- ANCHOR(`move_field()',`Move')
procedure Move (Fld : Field;
Line : Line_Position;
Column : Column_Position);
-- AKA
pragma Inline (Move);
-- MANPAGE(`form_new.3x')
-- ANCHOR(`new_form()',`Create')
function Create (Fields : Field_Array_Access) return Form;
-- AKA
pragma Inline (Create);
-- ANCHOR(`new_form()',`New_Form')
function New_Form (Fields : Field_Array_Access) return Form
renames Create;
-- AKA
-- pragma Inline (New_Form);
-- ANCHOR(`free_form()',`Delete')
procedure Delete (Frm : in out Form);
-- AKA
-- Reset Frm to Null_Form
pragma Inline (Delete);
-- MANPAGE(`form_opts.3x')
-- ANCHOR(`set_form_opts()',`Set_Options')
procedure Set_Options (Frm : Form;
Options : Form_Option_Set);
-- AKA
pragma Inline (Set_Options);
-- ANCHOR(`form_opts_on()',`Switch_Options')
procedure Switch_Options (Frm : Form;
Options : Form_Option_Set;
On : Boolean := True);
-- AKA
-- ALIAS(`form_opts_off()')
pragma Inline (Switch_Options);
-- ANCHOR(`form_opts()',`Get_Options')
procedure Get_Options (Frm : Form;
Options : out Form_Option_Set);
-- AKA
-- ANCHOR(`form_opts()',`Get_Options')
function Get_Options (Frm : Form := Null_Form) return Form_Option_Set;
-- AKA
pragma Inline (Get_Options);
-- MANPAGE(`form_post.3x')
-- ANCHOR(`post_form()',`Post')
procedure Post (Frm : Form;
Post : Boolean := True);
-- AKA
-- ALIAS(`unpost_form()')
pragma Inline (Post);
-- MANPAGE(`form_cursor.3x')
-- ANCHOR(`pos_form_cursor()',`Position_Cursor')
procedure Position_Cursor (Frm : Form);
-- AKA
pragma Inline (Position_Cursor);
-- MANPAGE(`form_data.3x')
-- ANCHOR(`data_ahead()',`Data_Ahead')
function Data_Ahead (Frm : Form) return Boolean;
-- AKA
pragma Inline (Data_Ahead);
-- ANCHOR(`data_behind()',`Data_Behind')
function Data_Behind (Frm : Form) return Boolean;
-- AKA
pragma Inline (Data_Behind);
-- MANPAGE(`form_driver.3x')
type Driver_Result is (Form_Ok,
Request_Denied,
Unknown_Request,
Invalid_Field);
-- ANCHOR(`form_driver()',`Driver')
function Driver (Frm : Form;
Key : Key_Code) return Driver_Result;
-- AKA
-- Driver not inlined
-- MANPAGE(`form_page.3x')
type Page_Number is new Natural;
-- ANCHOR(`set_current_field()',`Set_Current')
procedure Set_Current (Frm : Form;
Fld : Field);
-- AKA
pragma Inline (Set_Current);
-- ANCHOR(`current_field()',`Current')
function Current (Frm : Form) return Field;
-- AKA
pragma Inline (Current);
-- ANCHOR(`set_form_page()',`Set_Page')
procedure Set_Page (Frm : Form;
Page : Page_Number := Page_Number'First);
-- AKA
pragma Inline (Set_Page);
-- ANCHOR(`form_page()',`Page')
function Page (Frm : Form) return Page_Number;
-- AKA
pragma Inline (Page);
-- ANCHOR(`field_index()',`Get_Index')
function Get_Index (Fld : Field) return Positive;
-- AKA
-- Please note that in this binding we start the numbering of fields
-- with 1. So this is number is one more than you get from the low
-- level call.
pragma Inline (Get_Index);
-- MANPAGE(`form_new_page.3x')
-- ANCHOR(`set_new_page()',`Set_New_Page')
procedure Set_New_Page (Fld : Field;
New_Page : Boolean := True);
-- AKA
pragma Inline (Set_New_Page);
-- ANCHOR(`new_page()',`Is_New_Page')
function Is_New_Page (Fld : Field) return Boolean;
-- AKA
pragma Inline (Is_New_Page);
-- MANPAGE(`form_requestname.3x')
-- Not Implemented: form_request_name, form_request_by_name
------------------------------------------------------------------------------
private
type Field is new System.Storage_Elements.Integer_Address;
type Form is new System.Storage_Elements.Integer_Address;
Null_Field : constant Field := 0;
Null_Form : constant Form := 0;
end Terminal_Interface.Curses.Forms;
AdaCurses-20211021/gen/terminal_interface-curses.ads.m4 0000644 0001751 0000144 00000224055 13615656212 021272 0 ustar tom users -- -*- ada -*-
define(`HTMLNAME',`terminal_interface-curses__ads.htm')dnl
include(M4MACRO)------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding --
-- --
-- Terminal_Interface.Curses --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2011,2014 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control:
-- $Revision: 1.48 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with System.Storage_Elements;
with Interfaces.C; -- We need this for some assertions.
with Terminal_Interface.Curses_Constants;
package Terminal_Interface.Curses is
pragma Preelaborate (Terminal_Interface.Curses);
pragma Linker_Options ("-lncurses" & Curses_Constants.DFT_ARG_SUFFIX);
Major_Version : constant := Curses_Constants.NCURSES_VERSION_MAJOR;
Minor_Version : constant := Curses_Constants.NCURSES_VERSION_MINOR;
NC_Version : String renames Curses_Constants.Version;
type Window is private;
Null_Window : constant Window;
type Line_Position is new Integer; -- line coordinate
type Column_Position is new Integer; -- column coordinate
subtype Line_Count is Line_Position range 1 .. Line_Position'Last;
-- Type to count lines. We do not allow null windows, so must be positive
subtype Column_Count is Column_Position range 1 .. Column_Position'Last;
-- Type to count columns. We do not allow null windows, so must be positive
type Key_Code is new Integer;
-- That is anything including real characters, special keys and logical
-- request codes.
-- FIXME: The "-1" should be Curses_Err
subtype Real_Key_Code is Key_Code range -1 .. Curses_Constants.KEY_MAX;
-- This are the codes that potentially represent a real keystroke.
-- Not all codes may be possible on a specific terminal. To check the
-- availability of a special key, the Has_Key function is provided.
subtype Special_Key_Code is Real_Key_Code
range Curses_Constants. KEY_MIN - 1 .. Real_Key_Code'Last;
-- Type for a function- or special key number
subtype Normal_Key_Code is Real_Key_Code range
Character'Pos (Character'First) .. Character'Pos (Character'Last);
-- This are the codes for regular (incl. non-graphical) characters.
-- For those who like to use the original key names we produce them were
-- they differ from the original.
-- Constants for function- and special keys
Key_None : constant Special_Key_Code
:= Curses_Constants.KEY_MIN - 1;
Key_Min : constant Special_Key_Code
:= Curses_Constants.KEY_MIN;
Key_Break : constant Special_Key_Code
:= Curses_Constants.KEY_BREAK;
KEY_DOWN : constant Special_Key_Code
:= Curses_Constants.KEY_DOWN;
Key_Cursor_Down : Special_Key_Code renames KEY_DOWN;
KEY_UP : constant Special_Key_Code
:= Curses_Constants.KEY_UP;
Key_Cursor_Up : Special_Key_Code renames KEY_UP;
KEY_LEFT : constant Special_Key_Code
:= Curses_Constants.KEY_LEFT;
Key_Cursor_Left : Special_Key_Code renames KEY_LEFT;
KEY_RIGHT : constant Special_Key_Code
:= Curses_Constants.KEY_RIGHT;
Key_Cursor_Right : Special_Key_Code renames KEY_RIGHT;
Key_Home : constant Special_Key_Code
:= Curses_Constants.KEY_HOME;
Key_Backspace : constant Special_Key_Code
:= Curses_Constants.KEY_BACKSPACE;
Key_F0 : constant Special_Key_Code
:= Curses_Constants.KEY_F0;
Key_F1 : constant Special_Key_Code
:= Curses_Constants.KEY_F1;
Key_F2 : constant Special_Key_Code
:= Curses_Constants.KEY_F2;
Key_F3 : constant Special_Key_Code
:= Curses_Constants.KEY_F3;
Key_F4 : constant Special_Key_Code
:= Curses_Constants.KEY_F4;
Key_F5 : constant Special_Key_Code
:= Curses_Constants.KEY_F5;
Key_F6 : constant Special_Key_Code
:= Curses_Constants.KEY_F6;
Key_F7 : constant Special_Key_Code
:= Curses_Constants.KEY_F7;
Key_F8 : constant Special_Key_Code
:= Curses_Constants.KEY_F8;
Key_F9 : constant Special_Key_Code
:= Curses_Constants.KEY_F9;
Key_F10 : constant Special_Key_Code
:= Curses_Constants.KEY_F10;
Key_F11 : constant Special_Key_Code
:= Curses_Constants.KEY_F11;
Key_F12 : constant Special_Key_Code
:= Curses_Constants.KEY_F12;
Key_F13 : constant Special_Key_Code
:= Curses_Constants.KEY_F13;
Key_F14 : constant Special_Key_Code
:= Curses_Constants.KEY_F14;
Key_F15 : constant Special_Key_Code
:= Curses_Constants.KEY_F15;
Key_F16 : constant Special_Key_Code
:= Curses_Constants.KEY_F16;
Key_F17 : constant Special_Key_Code
:= Curses_Constants.KEY_F17;
Key_F18 : constant Special_Key_Code
:= Curses_Constants.KEY_F18;
Key_F19 : constant Special_Key_Code
:= Curses_Constants.KEY_F19;
Key_F20 : constant Special_Key_Code
:= Curses_Constants.KEY_F20;
Key_F21 : constant Special_Key_Code
:= Curses_Constants.KEY_F21;
Key_F22 : constant Special_Key_Code
:= Curses_Constants.KEY_F22;
Key_F23 : constant Special_Key_Code
:= Curses_Constants.KEY_F23;
Key_F24 : constant Special_Key_Code
:= Curses_Constants.KEY_F24;
KEY_DL : constant Special_Key_Code
:= Curses_Constants.KEY_DL;
Key_Delete_Line : Special_Key_Code renames KEY_DL;
KEY_IL : constant Special_Key_Code
:= Curses_Constants.KEY_IL;
Key_Insert_Line : Special_Key_Code renames KEY_IL;
KEY_DC : constant Special_Key_Code
:= Curses_Constants.KEY_DC;
Key_Delete_Char : Special_Key_Code renames KEY_DC;
KEY_IC : constant Special_Key_Code
:= Curses_Constants.KEY_IC;
Key_Insert_Char : Special_Key_Code renames KEY_IC;
KEY_EIC : constant Special_Key_Code
:= Curses_Constants.KEY_EIC;
Key_Exit_Insert_Mode : Special_Key_Code renames KEY_EIC;
KEY_CLEAR : constant Special_Key_Code
:= Curses_Constants.KEY_CLEAR;
Key_Clear_Screen : Special_Key_Code renames KEY_CLEAR;
KEY_EOS : constant Special_Key_Code
:= Curses_Constants.KEY_EOS;
Key_Clear_End_Of_Screen : Special_Key_Code renames KEY_EOS;
KEY_EOL : constant Special_Key_Code
:= Curses_Constants.KEY_EOL;
Key_Clear_End_Of_Line : Special_Key_Code renames KEY_EOL;
KEY_SF : constant Special_Key_Code
:= Curses_Constants.KEY_SF;
Key_Scroll_1_Forward : Special_Key_Code renames KEY_SF;
KEY_SR : constant Special_Key_Code
:= Curses_Constants.KEY_SR;
Key_Scroll_1_Backward : Special_Key_Code renames KEY_SR;
KEY_NPAGE : constant Special_Key_Code
:= Curses_Constants.KEY_NPAGE;
Key_Next_Page : Special_Key_Code renames KEY_NPAGE;
KEY_PPAGE : constant Special_Key_Code
:= Curses_Constants.KEY_PPAGE;
Key_Previous_Page : Special_Key_Code renames KEY_PPAGE;
KEY_STAB : constant Special_Key_Code
:= Curses_Constants.KEY_STAB;
Key_Set_Tab : Special_Key_Code renames KEY_STAB;
KEY_CTAB : constant Special_Key_Code
:= Curses_Constants.KEY_CTAB;
Key_Clear_Tab : Special_Key_Code renames KEY_CTAB;
KEY_CATAB : constant Special_Key_Code
:= Curses_Constants.KEY_CATAB;
Key_Clear_All_Tabs : Special_Key_Code renames KEY_CATAB;
KEY_ENTER : constant Special_Key_Code
:= Curses_Constants.KEY_ENTER;
Key_Enter_Or_Send : Special_Key_Code renames KEY_ENTER;
KEY_SRESET : constant Special_Key_Code
:= Curses_Constants.KEY_SRESET;
Key_Soft_Reset : Special_Key_Code renames KEY_SRESET;
Key_Reset : constant Special_Key_Code
:= Curses_Constants.KEY_RESET;
Key_Print : constant Special_Key_Code
:= Curses_Constants.KEY_PRINT;
KEY_LL : constant Special_Key_Code
:= Curses_Constants.KEY_LL;
Key_Bottom : Special_Key_Code renames KEY_LL;
KEY_A1 : constant Special_Key_Code
:= Curses_Constants.KEY_A1;
Key_Upper_Left_Of_Keypad : Special_Key_Code renames KEY_A1;
KEY_A3 : constant Special_Key_Code
:= Curses_Constants.KEY_A3;
Key_Upper_Right_Of_Keypad : Special_Key_Code renames KEY_A3;
KEY_B2 : constant Special_Key_Code
:= Curses_Constants.KEY_B2;
Key_Center_Of_Keypad : Special_Key_Code renames KEY_B2;
KEY_C1 : constant Special_Key_Code
:= Curses_Constants.KEY_C1;
Key_Lower_Left_Of_Keypad : Special_Key_Code renames KEY_C1;
KEY_C3 : constant Special_Key_Code
:= Curses_Constants.KEY_C3;
Key_Lower_Right_Of_Keypad : Special_Key_Code renames KEY_C3;
KEY_BTAB : constant Special_Key_Code
:= Curses_Constants.KEY_BTAB;
Key_Back_Tab : Special_Key_Code renames KEY_BTAB;
KEY_BEG : constant Special_Key_Code
:= Curses_Constants.KEY_BEG;
Key_Beginning : Special_Key_Code renames KEY_BEG;
Key_Cancel : constant Special_Key_Code
:= Curses_Constants.KEY_CANCEL;
Key_Close : constant Special_Key_Code
:= Curses_Constants.KEY_CLOSE;
Key_Command : constant Special_Key_Code
:= Curses_Constants.KEY_COMMAND;
Key_Copy : constant Special_Key_Code
:= Curses_Constants.KEY_COPY;
Key_Create : constant Special_Key_Code
:= Curses_Constants.KEY_CREATE;
Key_End : constant Special_Key_Code
:= Curses_Constants.KEY_END;
Key_Exit : constant Special_Key_Code
:= Curses_Constants.KEY_EXIT;
Key_Find : constant Special_Key_Code
:= Curses_Constants.KEY_FIND;
Key_Help : constant Special_Key_Code
:= Curses_Constants.KEY_HELP;
Key_Mark : constant Special_Key_Code
:= Curses_Constants.KEY_MARK;
Key_Message : constant Special_Key_Code
:= Curses_Constants.KEY_MESSAGE;
Key_Move : constant Special_Key_Code
:= Curses_Constants.KEY_MOVE;
Key_Next : constant Special_Key_Code
:= Curses_Constants.KEY_NEXT;
Key_Open : constant Special_Key_Code
:= Curses_Constants.KEY_OPEN;
Key_Options : constant Special_Key_Code
:= Curses_Constants.KEY_OPTIONS;
Key_Previous : constant Special_Key_Code
:= Curses_Constants.KEY_PREVIOUS;
Key_Redo : constant Special_Key_Code
:= Curses_Constants.KEY_REDO;
Key_Reference : constant Special_Key_Code
:= Curses_Constants.KEY_REFERENCE;
Key_Refresh : constant Special_Key_Code
:= Curses_Constants.KEY_REFRESH;
Key_Replace : constant Special_Key_Code
:= Curses_Constants.KEY_REPLACE;
Key_Restart : constant Special_Key_Code
:= Curses_Constants.KEY_RESTART;
Key_Resume : constant Special_Key_Code
:= Curses_Constants.KEY_RESUME;
Key_Save : constant Special_Key_Code
:= Curses_Constants.KEY_SAVE;
KEY_SBEG : constant Special_Key_Code
:= Curses_Constants.KEY_SBEG;
Key_Shift_Begin : Special_Key_Code renames KEY_SBEG;
KEY_SCANCEL : constant Special_Key_Code
:= Curses_Constants.KEY_SCANCEL;
Key_Shift_Cancel : Special_Key_Code renames KEY_SCANCEL;
KEY_SCOMMAND : constant Special_Key_Code
:= Curses_Constants.KEY_SCOMMAND;
Key_Shift_Command : Special_Key_Code renames KEY_SCOMMAND;
KEY_SCOPY : constant Special_Key_Code
:= Curses_Constants.KEY_SCOPY;
Key_Shift_Copy : Special_Key_Code renames KEY_SCOPY;
KEY_SCREATE : constant Special_Key_Code
:= Curses_Constants.KEY_SCREATE;
Key_Shift_Create : Special_Key_Code renames KEY_SCREATE;
KEY_SDC : constant Special_Key_Code
:= Curses_Constants.KEY_SDC;
Key_Shift_Delete_Char : Special_Key_Code renames KEY_SDC;
KEY_SDL : constant Special_Key_Code
:= Curses_Constants.KEY_SDL;
Key_Shift_Delete_Line : Special_Key_Code renames KEY_SDL;
Key_Select : constant Special_Key_Code
:= Curses_Constants.KEY_SELECT;
KEY_SEND : constant Special_Key_Code
:= Curses_Constants.KEY_SEND;
Key_Shift_End : Special_Key_Code renames KEY_SEND;
KEY_SEOL : constant Special_Key_Code
:= Curses_Constants.KEY_SEOL;
Key_Shift_Clear_End_Of_Line : Special_Key_Code renames KEY_SEOL;
KEY_SEXIT : constant Special_Key_Code
:= Curses_Constants.KEY_SEXIT;
Key_Shift_Exit : Special_Key_Code renames KEY_SEXIT;
KEY_SFIND : constant Special_Key_Code
:= Curses_Constants.KEY_SFIND;
Key_Shift_Find : Special_Key_Code renames KEY_SFIND;
KEY_SHELP : constant Special_Key_Code
:= Curses_Constants.KEY_SHELP;
Key_Shift_Help : Special_Key_Code renames KEY_SHELP;
KEY_SHOME : constant Special_Key_Code
:= Curses_Constants.KEY_SHOME;
Key_Shift_Home : Special_Key_Code renames KEY_SHOME;
KEY_SIC : constant Special_Key_Code
:= Curses_Constants.KEY_SIC;
Key_Shift_Insert_Char : Special_Key_Code renames KEY_SIC;
KEY_SLEFT : constant Special_Key_Code
:= Curses_Constants.KEY_SLEFT;
Key_Shift_Cursor_Left : Special_Key_Code renames KEY_SLEFT;
KEY_SMESSAGE : constant Special_Key_Code
:= Curses_Constants.KEY_SMESSAGE;
Key_Shift_Message : Special_Key_Code renames KEY_SMESSAGE;
KEY_SMOVE : constant Special_Key_Code
:= Curses_Constants.KEY_SMOVE;
Key_Shift_Move : Special_Key_Code renames KEY_SMOVE;
KEY_SNEXT : constant Special_Key_Code
:= Curses_Constants.KEY_SNEXT;
Key_Shift_Next_Page : Special_Key_Code renames KEY_SNEXT;
KEY_SOPTIONS : constant Special_Key_Code
:= Curses_Constants.KEY_SOPTIONS;
Key_Shift_Options : Special_Key_Code renames KEY_SOPTIONS;
KEY_SPREVIOUS : constant Special_Key_Code
:= Curses_Constants.KEY_SPREVIOUS;
Key_Shift_Previous_Page : Special_Key_Code renames KEY_SPREVIOUS;
KEY_SPRINT : constant Special_Key_Code
:= Curses_Constants.KEY_SPRINT;
Key_Shift_Print : Special_Key_Code renames KEY_SPRINT;
KEY_SREDO : constant Special_Key_Code
:= Curses_Constants.KEY_SREDO;
Key_Shift_Redo : Special_Key_Code renames KEY_SREDO;
KEY_SREPLACE : constant Special_Key_Code
:= Curses_Constants.KEY_SREPLACE;
Key_Shift_Replace : Special_Key_Code renames KEY_SREPLACE;
KEY_SRIGHT : constant Special_Key_Code
:= Curses_Constants.KEY_SRIGHT;
Key_Shift_Cursor_Right : Special_Key_Code renames KEY_SRIGHT;
KEY_SRSUME : constant Special_Key_Code
:= Curses_Constants.KEY_SRSUME;
Key_Shift_Resume : Special_Key_Code renames KEY_SRSUME;
KEY_SSAVE : constant Special_Key_Code
:= Curses_Constants.KEY_SSAVE;
Key_Shift_Save : Special_Key_Code renames KEY_SSAVE;
KEY_SSUSPEND : constant Special_Key_Code
:= Curses_Constants.KEY_SSUSPEND;
Key_Shift_Suspend : Special_Key_Code renames KEY_SSUSPEND;
KEY_SUNDO : constant Special_Key_Code
:= Curses_Constants.KEY_SUNDO;
Key_Shift_Undo : Special_Key_Code renames KEY_SUNDO;
Key_Suspend : constant Special_Key_Code
:= Curses_Constants.KEY_SUSPEND;
Key_Undo : constant Special_Key_Code
:= Curses_Constants.KEY_UNDO;
Key_Mouse : constant Special_Key_Code
:= Curses_Constants.KEY_MOUSE;
Key_Resize : constant Special_Key_Code
:= Curses_Constants.KEY_RESIZE;
Key_Max : constant Special_Key_Code
:= Special_Key_Code'Last;
subtype User_Key_Code is Key_Code
range (Key_Max + 129) .. Key_Code'Last;
-- This is reserved for user defined key codes. The range between Key_Max
-- and the first user code is reserved for subsystems like menu and forms.
--------------------------------------------------------------------------
type Color_Number is range -1 .. Integer (Interfaces.C.short'Last);
for Color_Number'Size use Interfaces.C.short'Size;
-- (n)curses uses a short for the color index
-- The model is, that a Color_Number is an index into an array of
-- (potentially) definable colors. Some of those indices are
-- predefined (see below), although they may not really exist.
Black : constant Color_Number := Curses_Constants.COLOR_BLACK;
Red : constant Color_Number := Curses_Constants.COLOR_RED;
Green : constant Color_Number := Curses_Constants.COLOR_GREEN;
Yellow : constant Color_Number := Curses_Constants.COLOR_YELLOW;
Blue : constant Color_Number := Curses_Constants.COLOR_BLUE;
Magenta : constant Color_Number := Curses_Constants.COLOR_MAGENTA;
Cyan : constant Color_Number := Curses_Constants.COLOR_CYAN;
White : constant Color_Number := Curses_Constants.COLOR_WHITE;
type RGB_Value is range 0 .. Integer (Interfaces.C.short'Last);
for RGB_Value'Size use Interfaces.C.short'Size;
-- Some system may allow to redefine a color by setting RGB values.
type Color_Pair is range 0 .. 255;
for Color_Pair'Size use 8;
subtype Redefinable_Color_Pair is Color_Pair range 1 .. 255;
-- (n)curses reserves 1 Byte for the color-pair number. Color Pair 0
-- is fixed (Black & White). A color pair is simply a combination of
-- two colors described by Color_Numbers, one for the foreground and
-- the other for the background
type Character_Attribute_Set is
record
Stand_Out : Boolean;
Under_Line : Boolean;
Reverse_Video : Boolean;
Blink : Boolean;
Dim_Character : Boolean;
Bold_Character : Boolean;
Protected_Character : Boolean;
Invisible_Character : Boolean;
Alternate_Character_Set : Boolean;
Horizontal : Boolean;
Left : Boolean;
Low : Boolean;
Right : Boolean;
Top : Boolean;
Vertical : Boolean;
end record;
for Character_Attribute_Set use
record
Stand_Out at 0 range
Curses_Constants.A_STANDOUT_First - Curses_Constants.Attr_First
.. Curses_Constants.A_STANDOUT_Last - Curses_Constants.Attr_First;
Under_Line at 0 range
Curses_Constants.A_UNDERLINE_First - Curses_Constants.Attr_First
.. Curses_Constants.A_UNDERLINE_Last - Curses_Constants.Attr_First;
Reverse_Video at 0 range
Curses_Constants.A_REVERSE_First - Curses_Constants.Attr_First
.. Curses_Constants.A_REVERSE_Last - Curses_Constants.Attr_First;
Blink at 0 range
Curses_Constants.A_BLINK_First - Curses_Constants.Attr_First
.. Curses_Constants.A_BLINK_Last - Curses_Constants.Attr_First;
Dim_Character at 0 range
Curses_Constants.A_DIM_First - Curses_Constants.Attr_First
.. Curses_Constants.A_DIM_Last - Curses_Constants.Attr_First;
Bold_Character at 0 range
Curses_Constants.A_BOLD_First - Curses_Constants.Attr_First
.. Curses_Constants.A_BOLD_Last - Curses_Constants.Attr_First;
Protected_Character at 0 range
Curses_Constants.A_PROTECT_First - Curses_Constants.Attr_First
.. Curses_Constants.A_PROTECT_Last - Curses_Constants.Attr_First;
Invisible_Character at 0 range
Curses_Constants.A_INVIS_First - Curses_Constants.Attr_First
.. Curses_Constants.A_INVIS_Last - Curses_Constants.Attr_First;
Alternate_Character_Set at 0 range
Curses_Constants.A_ALTCHARSET_First - Curses_Constants.Attr_First
.. Curses_Constants.A_ALTCHARSET_Last - Curses_Constants.Attr_First;
Horizontal at 0 range
Curses_Constants.A_HORIZONTAL_First - Curses_Constants.Attr_First
.. Curses_Constants.A_HORIZONTAL_Last - Curses_Constants.Attr_First;
Left at 0 range
Curses_Constants.A_LEFT_First - Curses_Constants.Attr_First
.. Curses_Constants.A_LEFT_Last - Curses_Constants.Attr_First;
Low at 0 range
Curses_Constants.A_LOW_First - Curses_Constants.Attr_First
.. Curses_Constants.A_LOW_Last - Curses_Constants.Attr_First;
Right at 0 range
Curses_Constants.A_RIGHT_First - Curses_Constants.Attr_First
.. Curses_Constants.A_RIGHT_Last - Curses_Constants.Attr_First;
Top at 0 range
Curses_Constants.A_TOP_First - Curses_Constants.Attr_First
.. Curses_Constants.A_TOP_Last - Curses_Constants.Attr_First;
Vertical at 0 range
Curses_Constants.A_VERTICAL_First - Curses_Constants.Attr_First
.. Curses_Constants.A_VERTICAL_Last - Curses_Constants.Attr_First;
end record;
Normal_Video : constant Character_Attribute_Set := (others => False);
type Attributed_Character is
record
Attr : Character_Attribute_Set;
Color : Color_Pair;
Ch : Character;
end record;
pragma Convention (C_Pass_By_Copy, Attributed_Character);
-- This is the counterpart for the chtype in C.
for Attributed_Character use
record
Ch at 0 range Curses_Constants.A_CHARTEXT_First
.. Curses_Constants.A_CHARTEXT_Last;
Color at 0 range Curses_Constants.A_COLOR_First
.. Curses_Constants.A_COLOR_Last;
pragma Warnings (Off);
Attr at 0 range Curses_Constants.Attr_First
.. Curses_Constants.Attr_Last;
pragma Warnings (On);
end record;
for Attributed_Character'Size use Curses_Constants.chtype_Size;
Default_Character : constant Attributed_Character
:= (Ch => Character'First,
Color => Color_Pair'First,
Attr => (others => False)); -- preelaboratable Normal_Video
type Attributed_String is array (Positive range <>) of Attributed_Character;
pragma Convention (C, Attributed_String);
-- In this binding we allow strings of attributed characters.
------------------
-- Exceptions --
------------------
Curses_Exception : exception;
Wrong_Curses_Version : exception;
-- Those exceptions are raised by the ETI (Extended Terminal Interface)
-- subpackets for Menu and Forms handling.
--
Eti_System_Error : exception;
Eti_Bad_Argument : exception;
Eti_Posted : exception;
Eti_Connected : exception;
Eti_Bad_State : exception;
Eti_No_Room : exception;
Eti_Not_Posted : exception;
Eti_Unknown_Command : exception;
Eti_No_Match : exception;
Eti_Not_Selectable : exception;
Eti_Not_Connected : exception;
Eti_Request_Denied : exception;
Eti_Invalid_Field : exception;
Eti_Current : exception;
--------------------------------------------------------------------------
-- External C variables
-- Conceptually even in C this are kind of constants, but they are
-- initialized and sometimes changed by the library routines at runtime
-- depending on the type of terminal. I believe the best way to model
-- this is to use functions.
--------------------------------------------------------------------------
function Lines return Line_Count;
pragma Inline (Lines);
function Columns return Column_Count;
pragma Inline (Columns);
function Tab_Size return Natural;
pragma Inline (Tab_Size);
function Number_Of_Colors return Natural;
pragma Inline (Number_Of_Colors);
function Number_Of_Color_Pairs return Natural;
pragma Inline (Number_Of_Color_Pairs);
subtype ACS_Index is Character range
Character'Val (0) .. Character'Val (127);
function ACS_Map (Index : ACS_Index) return Attributed_Character;
pragma Import (C, ACS_Map, "acs_map_as_function");
-- Constants for several characters from the Alternate Character Set
-- You must use these constants as indices into the ACS_Map function
-- to get the corresponding attributed character at runtime
ACS_Upper_Left_Corner : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_ULCORNER);
ACS_Lower_Left_Corner : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_LLCORNER);
ACS_Upper_Right_Corner : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_URCORNER);
ACS_Lower_Right_Corner : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_LRCORNER);
ACS_Left_Tee : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_LTEE);
ACS_Right_Tee : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_RTEE);
ACS_Bottom_Tee : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_BTEE);
ACS_Top_Tee : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_TTEE);
ACS_Horizontal_Line : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_HLINE);
ACS_Vertical_Line : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_VLINE);
ACS_Plus_Symbol : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_PLUS);
ACS_Scan_Line_1 : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_S1);
ACS_Scan_Line_9 : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_S9);
ACS_Diamond : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_DIAMOND);
ACS_Checker_Board : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_CKBOARD);
ACS_Degree : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_DEGREE);
ACS_Plus_Minus : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_PLMINUS);
ACS_Bullet : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_BULLET);
ACS_Left_Arrow : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_LARROW);
ACS_Right_Arrow : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_RARROW);
ACS_Down_Arrow : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_DARROW);
ACS_Up_Arrow : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_UARROW);
ACS_Board_Of_Squares : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_BOARD);
ACS_Lantern : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_LANTERN);
ACS_Solid_Block : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_BLOCK);
ACS_Scan_Line_3 : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_S3);
ACS_Scan_Line_7 : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_S7);
ACS_Less_Or_Equal : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_LEQUAL);
ACS_Greater_Or_Equal : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_GEQUAL);
ACS_PI : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_PI);
ACS_Not_Equal : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_NEQUAL);
ACS_Sterling : constant ACS_Index
:= Character'Val (Curses_Constants.ACS_STERLING);
-- MANPAGE(`curs_initscr.3x')
-- | Not implemented: newterm, set_term, delscreen
-- ANCHOR(`stdscr',`Standard_Window')
function Standard_Window return Window;
-- AKA
pragma Import (C, Standard_Window, "stdscr_as_function");
pragma Inline (Standard_Window);
-- ANCHOR(`curscr',`Current_Window')
function Current_Window return Window;
-- AKA
pragma Import (C, Current_Window, "curscr_as_function");
pragma Inline (Current_Window);
-- ANCHOR(`initscr()',`Init_Screen')
procedure Init_Screen;
-- ANCHOR(`initscr()',`Init_Windows')
procedure Init_Windows renames Init_Screen;
-- AKA
pragma Inline (Init_Screen);
-- pragma Inline (Init_Windows);
-- ANCHOR(`endwin()',`End_Windows')
procedure End_Windows;
-- AKA
procedure End_Screen renames End_Windows;
pragma Inline (End_Windows);
-- pragma Inline (End_Screen);
-- ANCHOR(`isendwin()',`Is_End_Window')
function Is_End_Window return Boolean;
-- AKA
pragma Inline (Is_End_Window);
-- MANPAGE(`curs_move.3x')
-- ANCHOR(`wmove()',`Move_Cursor')
procedure Move_Cursor (Win : Window := Standard_Window;
Line : Line_Position;
Column : Column_Position);
-- AKA
-- ALIAS(`move()')
pragma Inline (Move_Cursor);
-- MANPAGE(`curs_addch.3x')
-- ANCHOR(`waddch()',`Add')
procedure Add (Win : Window := Standard_Window;
Ch : Attributed_Character);
-- AKA
-- ALIAS(`addch()')
procedure Add (Win : Window := Standard_Window;
Ch : Character);
-- Add a single character at the current logical cursor position to
-- the window. Use the current windows attributes.
-- ANCHOR(`mvwaddch()',`Add')
procedure Add
(Win : Window := Standard_Window;
Line : Line_Position;
Column : Column_Position;
Ch : Attributed_Character);
-- AKA
-- ALIAS(`mvaddch()')
procedure Add
(Win : Window := Standard_Window;
Line : Line_Position;
Column : Column_Position;
Ch : Character);
-- Move to the position and add a single character into the window
-- There are more Add routines, so the Inline pragma follows later
-- ANCHOR(`wechochar()',`Add_With_Immediate_Echo')
procedure Add_With_Immediate_Echo
(Win : Window := Standard_Window;
Ch : Attributed_Character);
-- AKA
-- ALIAS(`echochar()')
procedure Add_With_Immediate_Echo
(Win : Window := Standard_Window;
Ch : Character);
-- Add a character and do an immediate refresh of the screen.
pragma Inline (Add_With_Immediate_Echo);
-- MANPAGE(`curs_window.3x')
-- Not Implemented: wcursyncup
-- ANCHOR(`newwin()',`Create')
function Create
(Number_Of_Lines : Line_Count;
Number_Of_Columns : Column_Count;
First_Line_Position : Line_Position;
First_Column_Position : Column_Position) return Window;
-- Not Implemented: Default Number_Of_Lines, Number_Of_Columns
-- the C version lets them be 0, see the man page.
-- AKA
pragma Inline (Create);
function New_Window
(Number_Of_Lines : Line_Count;
Number_Of_Columns : Column_Count;
First_Line_Position : Line_Position;
First_Column_Position : Column_Position) return Window
renames Create;
-- pragma Inline (New_Window);
-- ANCHOR(`delwin()',`Delete')
procedure Delete (Win : in out Window);
-- AKA
-- Reset Win to Null_Window
pragma Inline (Delete);
-- ANCHOR(`subwin()',`Sub_Window')
function Sub_Window
(Win : Window := Standard_Window;
Number_Of_Lines : Line_Count;
Number_Of_Columns : Column_Count;
First_Line_Position : Line_Position;
First_Column_Position : Column_Position) return Window;
-- AKA
pragma Inline (Sub_Window);
-- ANCHOR(`derwin()',`Derived_Window')
function Derived_Window
(Win : Window := Standard_Window;
Number_Of_Lines : Line_Count;
Number_Of_Columns : Column_Count;
First_Line_Position : Line_Position;
First_Column_Position : Column_Position) return Window;
-- AKA
pragma Inline (Derived_Window);
-- ANCHOR(`dupwin()',`Duplicate')
function Duplicate (Win : Window) return Window;
-- AKA
pragma Inline (Duplicate);
-- ANCHOR(`mvwin()',`Move_Window')
procedure Move_Window (Win : Window;
Line : Line_Position;
Column : Column_Position);
-- AKA
pragma Inline (Move_Window);
-- ANCHOR(`mvderwin()',`Move_Derived_Window')
procedure Move_Derived_Window (Win : Window;
Line : Line_Position;
Column : Column_Position);
-- AKA
pragma Inline (Move_Derived_Window);
-- ANCHOR(`wsyncup()',`Synchronize_Upwards')
procedure Synchronize_Upwards (Win : Window);
-- AKA
pragma Import (C, Synchronize_Upwards, "wsyncup");
-- ANCHOR(`wsyncdown()',`Synchronize_Downwards')
procedure Synchronize_Downwards (Win : Window);
-- AKA
pragma Import (C, Synchronize_Downwards, "wsyncdown");
-- ANCHOR(`syncok()',`Set_Synch_Mode')
procedure Set_Synch_Mode (Win : Window := Standard_Window;
Mode : Boolean := False);
-- AKA
pragma Inline (Set_Synch_Mode);
-- MANPAGE(`curs_addstr.3x')
-- ANCHOR(`waddnstr()',`Add')
procedure Add (Win : Window := Standard_Window;
Str : String;
Len : Integer := -1);
-- AKA
-- ALIAS(`waddstr()')
-- ALIAS(`addnstr()')
-- ALIAS(`addstr()')
-- ANCHOR(`mvwaddnstr()',`Add')
procedure Add (Win : Window := Standard_Window;
Line : Line_Position;
Column : Column_Position;
Str : String;
Len : Integer := -1);
-- AKA
-- ALIAS(`mvwaddstr()')
-- ALIAS(`mvaddnstr()')
-- ALIAS(`mvaddstr()')
-- MANPAGE(`curs_addchstr.3x')
-- ANCHOR(`waddchnstr()',`Add')
procedure Add (Win : Window := Standard_Window;
Str : Attributed_String;
Len : Integer := -1);
-- AKA
-- ALIAS(`waddchstr()')
-- ALIAS(`addchnstr()')
-- ALIAS(`addchstr()')
-- ANCHOR(`mvwaddchnstr()',`Add')
procedure Add (Win : Window := Standard_Window;
Line : Line_Position;
Column : Column_Position;
Str : Attributed_String;
Len : Integer := -1);
-- AKA
-- ALIAS(`mvwaddchstr()')
-- ALIAS(`mvaddchnstr()')
-- ALIAS(`mvaddchstr()')
pragma Inline (Add);
-- MANPAGE(`curs_border.3x')
-- | Not implemented: mvhline, mvwhline, mvvline, mvwvline
-- | use Move_Cursor then Horizontal_Line or Vertical_Line
-- ANCHOR(`wborder()',`Border')
procedure Border
(Win : Window := Standard_Window;
Left_Side_Symbol : Attributed_Character := Default_Character;
Right_Side_Symbol : Attributed_Character := Default_Character;
Top_Side_Symbol : Attributed_Character := Default_Character;
Bottom_Side_Symbol : Attributed_Character := Default_Character;
Upper_Left_Corner_Symbol : Attributed_Character := Default_Character;
Upper_Right_Corner_Symbol : Attributed_Character := Default_Character;
Lower_Left_Corner_Symbol : Attributed_Character := Default_Character;
Lower_Right_Corner_Symbol : Attributed_Character := Default_Character
);
-- AKA
-- ALIAS(`border()')
pragma Inline (Border);
-- ANCHOR(`box()',`Box')
procedure Box
(Win : Window := Standard_Window;
Vertical_Symbol : Attributed_Character := Default_Character;
Horizontal_Symbol : Attributed_Character := Default_Character);
-- AKA
pragma Inline (Box);
-- ANCHOR(`whline()',`Horizontal_Line')
procedure Horizontal_Line
(Win : Window := Standard_Window;
Line_Size : Natural;
Line_Symbol : Attributed_Character := Default_Character);
-- AKA
-- ALIAS(`hline()')
pragma Inline (Horizontal_Line);
-- ANCHOR(`wvline()',`Vertical_Line')
procedure Vertical_Line
(Win : Window := Standard_Window;
Line_Size : Natural;
Line_Symbol : Attributed_Character := Default_Character);
-- AKA
-- ALIAS(`vline()')
pragma Inline (Vertical_Line);
-- MANPAGE(`curs_getch.3x')
-- Not implemented: mvgetch, mvwgetch
-- ANCHOR(`wgetch()',`Get_Keystroke')
function Get_Keystroke (Win : Window := Standard_Window)
return Real_Key_Code;
-- AKA
-- ALIAS(`getch()')
-- Get a character from the keyboard and echo it - if enabled - to the
-- window.
-- If for any reason (i.e. a timeout) we could not get a character the
-- returned keycode is Key_None.
pragma Inline (Get_Keystroke);
-- ANCHOR(`ungetch()',`Undo_Keystroke')
procedure Undo_Keystroke (Key : Real_Key_Code);
-- AKA
pragma Inline (Undo_Keystroke);
-- ANCHOR(`has_key()',`Has_Key')
function Has_Key (Key : Special_Key_Code) return Boolean;
-- AKA
pragma Inline (Has_Key);
-- |
-- | Some helper functions
-- |
function Is_Function_Key (Key : Special_Key_Code) return Boolean;
-- Return True if the Key is a function key (i.e. one of F0 .. F63)
pragma Inline (Is_Function_Key);
subtype Function_Key_Number is Integer range 0 .. 63;
-- (n)curses allows for 64 function keys.
function Function_Key (Key : Real_Key_Code) return Function_Key_Number;
-- Return the number of the function key. If the code is not a
-- function key, a CONSTRAINT_ERROR will be raised.
pragma Inline (Function_Key);
function Function_Key_Code (Key : Function_Key_Number) return Real_Key_Code;
-- Return the key code for a given function-key number.
pragma Inline (Function_Key_Code);
-- MANPAGE(`curs_attr.3x')
-- | Not implemented attr_off, wattr_off,
-- | attr_on, wattr_on, attr_set, wattr_set
-- PAIR_NUMBER
-- PAIR_NUMBER(c) is the same as c.Color
-- ANCHOR(`standout()',`Standout')
procedure Standout (Win : Window := Standard_Window;
On : Boolean := True);
-- ALIAS(`wstandout()')
-- ALIAS(`wstandend()')
-- ANCHOR(`wattron()',`Switch_Character_Attribute')
procedure Switch_Character_Attribute
(Win : Window := Standard_Window;
Attr : Character_Attribute_Set := Normal_Video;
On : Boolean := True); -- if False we switch Off.
-- Switches those Attributes set to true in the list.
-- AKA
-- ALIAS(`wattroff()')
-- ALIAS(`attron()')
-- ALIAS(`attroff()')
-- ANCHOR(`wattrset()',`Set_Character_Attributes')
procedure Set_Character_Attributes
(Win : Window := Standard_Window;
Attr : Character_Attribute_Set := Normal_Video;
Color : Color_Pair := Color_Pair'First);
-- AKA
-- ALIAS(`attrset()')
pragma Inline (Set_Character_Attributes);
-- ANCHOR(`wattr_get()',`Get_Character_Attributes')
function Get_Character_Attribute
(Win : Window := Standard_Window) return Character_Attribute_Set;
-- AKA
-- ALIAS(`attr_get()')
-- ANCHOR(`wattr_get()',`Get_Character_Attribute')
function Get_Character_Attribute
(Win : Window := Standard_Window) return Color_Pair;
-- AKA
pragma Inline (Get_Character_Attribute);
-- ANCHOR(`wcolor_set()',`Set_Color')
procedure Set_Color (Win : Window := Standard_Window;
Pair : Color_Pair);
-- AKA
-- ALIAS(`color_set()')
pragma Inline (Set_Color);
-- ANCHOR(`wchgat()',`Change_Attributes')
procedure Change_Attributes
(Win : Window := Standard_Window;
Count : Integer := -1;
Attr : Character_Attribute_Set := Normal_Video;
Color : Color_Pair := Color_Pair'First);
-- AKA
-- ALIAS(`chgat()')
-- ANCHOR(`mvwchgat()',`Change_Attributes')
procedure Change_Attributes
(Win : Window := Standard_Window;
Line : Line_Position := Line_Position'First;
Column : Column_Position := Column_Position'First;
Count : Integer := -1;
Attr : Character_Attribute_Set := Normal_Video;
Color : Color_Pair := Color_Pair'First);
-- AKA
-- ALIAS(`mvchgat()')
pragma Inline (Change_Attributes);
-- MANPAGE(`curs_beep.3x')
-- ANCHOR(`beep()',`Beep')
procedure Beep;
-- AKA
pragma Inline (Beep);
-- ANCHOR(`flash()',`Flash_Screen')
procedure Flash_Screen;
-- AKA
pragma Inline (Flash_Screen);
-- MANPAGE(`curs_inopts.3x')
-- | Not implemented : typeahead
--
-- ANCHOR(`cbreak()',`Set_Cbreak_Mode')
procedure Set_Cbreak_Mode (SwitchOn : Boolean := True);
-- AKA
-- ALIAS(`nocbreak()')
pragma Inline (Set_Cbreak_Mode);
-- ANCHOR(`raw()',`Set_Raw_Mode')
procedure Set_Raw_Mode (SwitchOn : Boolean := True);
-- AKA
-- ALIAS(`noraw()')
pragma Inline (Set_Raw_Mode);
-- ANCHOR(`echo()',`Set_Echo_Mode')
procedure Set_Echo_Mode (SwitchOn : Boolean := True);
-- AKA
-- ALIAS(`noecho()')
pragma Inline (Set_Echo_Mode);
-- ANCHOR(`meta()',`Set_Meta_Mode')
procedure Set_Meta_Mode (Win : Window := Standard_Window;
SwitchOn : Boolean := True);
-- AKA
pragma Inline (Set_Meta_Mode);
-- ANCHOR(`keypad()',`Set_KeyPad_Mode')
procedure Set_KeyPad_Mode (Win : Window := Standard_Window;
SwitchOn : Boolean := True);
-- AKA
pragma Inline (Set_KeyPad_Mode);
function Get_KeyPad_Mode (Win : Window := Standard_Window)
return Boolean;
-- This has no pendant in C. There you've to look into the WINDOWS
-- structure to get the value. Bad practice, not repeated in Ada.
type Half_Delay_Amount is range 1 .. 255;
-- ANCHOR(`halfdelay()',`Half_Delay')
procedure Half_Delay (Amount : Half_Delay_Amount);
-- AKA
pragma Inline (Half_Delay);
-- ANCHOR(`intrflush()',`Set_Flush_On_Interrupt_Mode')
procedure Set_Flush_On_Interrupt_Mode
(Win : Window := Standard_Window;
Mode : Boolean := True);
-- AKA
pragma Inline (Set_Flush_On_Interrupt_Mode);
-- ANCHOR(`qiflush()',`Set_Queue_Interrupt_Mode')
procedure Set_Queue_Interrupt_Mode
(Win : Window := Standard_Window;
Flush : Boolean := True);
-- AKA
-- ALIAS(`noqiflush()')
pragma Inline (Set_Queue_Interrupt_Mode);
-- ANCHOR(`nodelay()',`Set_NoDelay_Mode')
procedure Set_NoDelay_Mode
(Win : Window := Standard_Window;
Mode : Boolean := False);
-- AKA
pragma Inline (Set_NoDelay_Mode);
type Timeout_Mode is (Blocking, Non_Blocking, Delayed);
-- ANCHOR(`wtimeout()',`Set_Timeout_Mode')
procedure Set_Timeout_Mode (Win : Window := Standard_Window;
Mode : Timeout_Mode;
Amount : Natural); -- in Milliseconds
-- AKA
-- ALIAS(`timeout()')
-- Instead of overloading the semantic of the sign of amount, we
-- introduce the Timeout_Mode parameter. This should improve
-- readability. For Blocking and Non_Blocking, the Amount is not
-- evaluated.
-- We do not inline this procedure.
-- ANCHOR(`notimeout()',`Set_Escape_Time_Mode')
procedure Set_Escape_Timer_Mode
(Win : Window := Standard_Window;
Timer_Off : Boolean := False);
-- AKA
pragma Inline (Set_Escape_Timer_Mode);
-- MANPAGE(`curs_outopts.3x')
-- ANCHOR(`nl()',`Set_NL_Mode')
procedure Set_NL_Mode (SwitchOn : Boolean := True);
-- AKA
-- ALIAS(`nonl()')
pragma Inline (Set_NL_Mode);
-- ANCHOR(`clearok()',`Clear_On_Next_Update')
procedure Clear_On_Next_Update
(Win : Window := Standard_Window;
Do_Clear : Boolean := True);
-- AKA
pragma Inline (Clear_On_Next_Update);
-- ANCHOR(`idlok()',`Use_Insert_Delete_Line')
procedure Use_Insert_Delete_Line
(Win : Window := Standard_Window;
Do_Idl : Boolean := True);
-- AKA
pragma Inline (Use_Insert_Delete_Line);
-- ANCHOR(`idcok()',`Use_Insert_Delete_Character')
procedure Use_Insert_Delete_Character
(Win : Window := Standard_Window;
Do_Idc : Boolean := True);
-- AKA
pragma Inline (Use_Insert_Delete_Character);
-- ANCHOR(`leaveok()',`Leave_Cursor_After_Update')
procedure Leave_Cursor_After_Update
(Win : Window := Standard_Window;
Do_Leave : Boolean := True);
-- AKA
pragma Inline (Leave_Cursor_After_Update);
-- ANCHOR(`immedok()',`Immediate_Update_Mode')
procedure Immediate_Update_Mode
(Win : Window := Standard_Window;
Mode : Boolean := False);
-- AKA
pragma Inline (Immediate_Update_Mode);
-- ANCHOR(`scrollok()',`Allow_Scrolling')
procedure Allow_Scrolling
(Win : Window := Standard_Window;
Mode : Boolean := False);
-- AKA
pragma Inline (Allow_Scrolling);
function Scrolling_Allowed (Win : Window := Standard_Window) return Boolean;
-- There is no such function in the C interface.
pragma Inline (Scrolling_Allowed);
-- ANCHOR(`wsetscrreg()',`Set_Scroll_Region')
procedure Set_Scroll_Region
(Win : Window := Standard_Window;
Top_Line : Line_Position;
Bottom_Line : Line_Position);
-- AKA
-- ALIAS(`setscrreg()')
pragma Inline (Set_Scroll_Region);
-- MANPAGE(`curs_refresh.3x')
-- ANCHOR(`doupdate()',`Update_Screen')
procedure Update_Screen;
-- AKA
pragma Inline (Update_Screen);
-- ANCHOR(`wrefresh()',`Refresh')
procedure Refresh (Win : Window := Standard_Window);
-- AKA
-- There is an overloaded Refresh for Pads.
-- The Inline pragma appears there
-- ALIAS(`refresh()')
-- ANCHOR(`wnoutrefresh()',`Refresh_Without_Update')
procedure Refresh_Without_Update
(Win : Window := Standard_Window);
-- AKA
-- There is an overloaded Refresh_Without_Update for Pads.
-- The Inline pragma appears there
-- ANCHOR(`redrawwin()',`Redraw')
procedure Redraw (Win : Window := Standard_Window);
-- AKA
-- ANCHOR(`wredrawln()',`Redraw')
procedure Redraw (Win : Window := Standard_Window;
Begin_Line : Line_Position;
Line_Count : Positive);
-- AKA
pragma Inline (Redraw);
-- MANPAGE(`curs_clear.3x')
-- ANCHOR(`werase()',`Erase')
procedure Erase (Win : Window := Standard_Window);
-- AKA
-- ALIAS(`erase()')
pragma Inline (Erase);
-- ANCHOR(`wclear()',`Clear')
procedure Clear
(Win : Window := Standard_Window);
-- AKA
-- ALIAS(`clear()')
pragma Inline (Clear);
-- ANCHOR(`wclrtobot()',`Clear_To_End_Of_Screen')
procedure Clear_To_End_Of_Screen
(Win : Window := Standard_Window);
-- AKA
-- ALIAS(`clrtobot()')
pragma Inline (Clear_To_End_Of_Screen);
-- ANCHOR(`wclrtoeol()',`Clear_To_End_Of_Line')
procedure Clear_To_End_Of_Line
(Win : Window := Standard_Window);
-- AKA
-- ALIAS(`clrtoeol()')
pragma Inline (Clear_To_End_Of_Line);
-- MANPAGE(`curs_bkgd.3x')
-- ANCHOR(`wbkgdset()',`Set_Background')
-- TODO: we could have Set_Background(Window; Character_Attribute_Set)
-- because in C it is common to see bkgdset(A_BOLD) or
-- bkgdset(COLOR_PAIR(n))
procedure Set_Background
(Win : Window := Standard_Window;
Ch : Attributed_Character);
-- AKA
-- ALIAS(`bkgdset()')
pragma Inline (Set_Background);
-- ANCHOR(`wbkgd()',`Change_Background')
procedure Change_Background
(Win : Window := Standard_Window;
Ch : Attributed_Character);
-- AKA
-- ALIAS(`bkgd()')
pragma Inline (Change_Background);
-- ANCHOR(`wbkgdget()',`Get_Background')
-- ? wbkgdget is not listed in curs_bkgd, getbkgd is thpough.
function Get_Background (Win : Window := Standard_Window)
return Attributed_Character;
-- AKA
-- ALIAS(`bkgdget()')
pragma Inline (Get_Background);
-- MANPAGE(`curs_touch.3x')
-- ANCHOR(`untouchwin()',`Untouch')
procedure Untouch (Win : Window := Standard_Window);
-- AKA
pragma Inline (Untouch);
-- ANCHOR(`touchwin()',`Touch')
procedure Touch (Win : Window := Standard_Window);
-- AKA
-- ANCHOR(`touchline()',`Touch')
procedure Touch (Win : Window := Standard_Window;
Start : Line_Position;
Count : Positive);
-- AKA
pragma Inline (Touch);
-- ANCHOR(`wtouchln()',`Change_Line_Status')
procedure Change_Lines_Status (Win : Window := Standard_Window;
Start : Line_Position;
Count : Positive;
State : Boolean);
-- AKA
pragma Inline (Change_Lines_Status);
-- ANCHOR(`is_linetouched()',`Is_Touched')
function Is_Touched (Win : Window := Standard_Window;
Line : Line_Position) return Boolean;
-- AKA
-- ANCHOR(`is_wintouched()',`Is_Touched')
function Is_Touched (Win : Window := Standard_Window) return Boolean;
-- AKA
pragma Inline (Is_Touched);
-- MANPAGE(`curs_overlay.3x')
-- ANCHOR(`copywin()',`Copy')
procedure Copy
(Source_Window : Window;
Destination_Window : Window;
Source_Top_Row : Line_Position;
Source_Left_Column : Column_Position;
Destination_Top_Row : Line_Position;
Destination_Left_Column : Column_Position;
Destination_Bottom_Row : Line_Position;
Destination_Right_Column : Column_Position;
Non_Destructive_Mode : Boolean := True);
-- AKA
pragma Inline (Copy);
-- ANCHOR(`overwrite()',`Overwrite')
procedure Overwrite (Source_Window : Window;
Destination_Window : Window);
-- AKA
pragma Inline (Overwrite);
-- ANCHOR(`overlay()',`Overlay')
procedure Overlay (Source_Window : Window;
Destination_Window : Window);
-- AKA
pragma Inline (Overlay);
-- MANPAGE(`curs_deleteln.3x')
-- ANCHOR(`winsdelln()',`Insert_Delete_Lines')
procedure Insert_Delete_Lines
(Win : Window := Standard_Window;
Lines : Integer := 1); -- default is to insert one line above
-- AKA
-- ALIAS(`insdelln()')
pragma Inline (Insert_Delete_Lines);
-- ANCHOR(`wdeleteln()',`Delete_Line')
procedure Delete_Line (Win : Window := Standard_Window);
-- AKA
-- ALIAS(`deleteln()')
pragma Inline (Delete_Line);
-- ANCHOR(`winsertln()',`Insert_Line')
procedure Insert_Line (Win : Window := Standard_Window);
-- AKA
-- ALIAS(`insertln()')
pragma Inline (Insert_Line);
-- MANPAGE(`curs_getyx.3x')
-- ANCHOR(`getmaxyx()',`Get_Size')
procedure Get_Size
(Win : Window := Standard_Window;
Number_Of_Lines : out Line_Count;
Number_Of_Columns : out Column_Count);
-- AKA
pragma Inline (Get_Size);
-- ANCHOR(`getbegyx()',`Get_Window_Position')
procedure Get_Window_Position
(Win : Window := Standard_Window;
Top_Left_Line : out Line_Position;
Top_Left_Column : out Column_Position);
-- AKA
pragma Inline (Get_Window_Position);
-- ANCHOR(`getyx()',`Get_Cursor_Position')
procedure Get_Cursor_Position
(Win : Window := Standard_Window;
Line : out Line_Position;
Column : out Column_Position);
-- AKA
pragma Inline (Get_Cursor_Position);
-- ANCHOR(`getparyx()',`Get_Origin_Relative_To_Parent')
procedure Get_Origin_Relative_To_Parent
(Win : Window;
Top_Left_Line : out Line_Position;
Top_Left_Column : out Column_Position;
Is_Not_A_Subwindow : out Boolean);
-- AKA
-- Instead of placing -1 in the coordinates as return, we use a Boolean
-- to return the info that the window has no parent.
pragma Inline (Get_Origin_Relative_To_Parent);
-- MANPAGE(`curs_pad.3x')
-- ANCHOR(`newpad()',`New_Pad')
function New_Pad (Lines : Line_Count;
Columns : Column_Count) return Window;
-- AKA
pragma Inline (New_Pad);
-- ANCHOR(`subpad()',`Sub_Pad')
function Sub_Pad
(Pad : Window;
Number_Of_Lines : Line_Count;
Number_Of_Columns : Column_Count;
First_Line_Position : Line_Position;
First_Column_Position : Column_Position) return Window;
-- AKA
pragma Inline (Sub_Pad);
-- ANCHOR(`prefresh()',`Refresh')
procedure Refresh
(Pad : Window;
Source_Top_Row : Line_Position;
Source_Left_Column : Column_Position;
Destination_Top_Row : Line_Position;
Destination_Left_Column : Column_Position;
Destination_Bottom_Row : Line_Position;
Destination_Right_Column : Column_Position);
-- AKA
pragma Inline (Refresh);
-- ANCHOR(`pnoutrefresh()',`Refresh_Without_Update')
procedure Refresh_Without_Update
(Pad : Window;
Source_Top_Row : Line_Position;
Source_Left_Column : Column_Position;
Destination_Top_Row : Line_Position;
Destination_Left_Column : Column_Position;
Destination_Bottom_Row : Line_Position;
Destination_Right_Column : Column_Position);
-- AKA
pragma Inline (Refresh_Without_Update);
-- ANCHOR(`pechochar()',`Add_Character_To_Pad_And_Echo_It')
procedure Add_Character_To_Pad_And_Echo_It
(Pad : Window;
Ch : Attributed_Character);
-- AKA
procedure Add_Character_To_Pad_And_Echo_It
(Pad : Window;
Ch : Character);
pragma Inline (Add_Character_To_Pad_And_Echo_It);
-- MANPAGE(`curs_scroll.3x')
-- ANCHOR(`wscrl()',`Scroll')
procedure Scroll (Win : Window := Standard_Window;
Amount : Integer := 1);
-- AKA
-- ALIAS(`scroll()')
-- ALIAS(`scrl()')
pragma Inline (Scroll);
-- MANPAGE(`curs_delch.3x')
-- ANCHOR(`wdelch()',`Delete_Character')
procedure Delete_Character (Win : Window := Standard_Window);
-- AKA
-- ALIAS(`delch()')
-- ANCHOR(`mvwdelch()',`Delete_Character')
procedure Delete_Character
(Win : Window := Standard_Window;
Line : Line_Position;
Column : Column_Position);
-- AKA
-- ALIAS(`mvdelch()')
pragma Inline (Delete_Character);
-- MANPAGE(`curs_inch.3x')
-- ANCHOR(`winch()',`Peek')
function Peek (Win : Window := Standard_Window)
return Attributed_Character;
-- ALIAS(`inch()')
-- AKA
-- ANCHOR(`mvwinch()',`Peek')
function Peek
(Win : Window := Standard_Window;
Line : Line_Position;
Column : Column_Position) return Attributed_Character;
-- AKA
-- ALIAS(`mvinch()')
-- More Peek's follow, pragma Inline appears later.
-- MANPAGE(`curs_insch.3x')
-- ANCHOR(`winsch()',`Insert')
procedure Insert (Win : Window := Standard_Window;
Ch : Attributed_Character);
-- AKA
-- ALIAS(`insch()')
-- ANCHOR(`mvwinsch()',`Insert')
procedure Insert (Win : Window := Standard_Window;
Line : Line_Position;
Column : Column_Position;
Ch : Attributed_Character);
-- AKA
-- ALIAS(`mvinsch()')
-- MANPAGE(`curs_insstr.3x')
-- ANCHOR(`winsnstr()',`Insert')
procedure Insert (Win : Window := Standard_Window;
Str : String;
Len : Integer := -1);
-- AKA
-- ALIAS(`winsstr()')
-- ALIAS(`insnstr()')
-- ALIAS(`insstr()')
-- ANCHOR(`mvwinsnstr()',`Insert')
procedure Insert (Win : Window := Standard_Window;
Line : Line_Position;
Column : Column_Position;
Str : String;
Len : Integer := -1);
-- AKA
-- ALIAS(`mvwinsstr()')
-- ALIAS(`mvinsnstr()')
-- ALIAS(`mvinsstr()')
pragma Inline (Insert);
-- MANPAGE(`curs_instr.3x')
-- ANCHOR(`winnstr()',`Peek')
procedure Peek (Win : Window := Standard_Window;
Str : out String;
Len : Integer := -1);
-- AKA
-- ALIAS(`winstr()')
-- ALIAS(`innstr()')
-- ALIAS(`instr()')
-- ANCHOR(`mvwinnstr()',`Peek')
procedure Peek (Win : Window := Standard_Window;
Line : Line_Position;
Column : Column_Position;
Str : out String;
Len : Integer := -1);
-- AKA
-- ALIAS(`mvwinstr()')
-- ALIAS(`mvinnstr()')
-- ALIAS(`mvinstr()')
-- MANPAGE(`curs_inchstr.3x')
-- ANCHOR(`winchnstr()',`Peek')
procedure Peek (Win : Window := Standard_Window;
Str : out Attributed_String;
Len : Integer := -1);
-- AKA
-- ALIAS(`winchstr()')
-- ALIAS(`inchnstr()')
-- ALIAS(`inchstr()')
-- ANCHOR(`mvwinchnstr()',`Peek')
procedure Peek (Win : Window := Standard_Window;
Line : Line_Position;
Column : Column_Position;
Str : out Attributed_String;
Len : Integer := -1);
-- AKA
-- ALIAS(`mvwinchstr()')
-- ALIAS(`mvinchnstr()')
-- ALIAS(`mvinchstr()')
-- We do not inline the Peek procedures
-- MANPAGE(`curs_getstr.3x')
-- ANCHOR(`wgetnstr()',`Get')
procedure Get (Win : Window := Standard_Window;
Str : out String;
Len : Integer := -1);
-- AKA
-- ALIAS(`wgetstr()')
-- ALIAS(`getnstr()')
-- ALIAS(`getstr()')
-- actually getstr is not supported because that results in buffer
-- overflows.
-- ANCHOR(`mvwgetnstr()',`Get')
procedure Get (Win : Window := Standard_Window;
Line : Line_Position;
Column : Column_Position;
Str : out String;
Len : Integer := -1);
-- AKA
-- ALIAS(`mvwgetstr()')
-- ALIAS(`mvgetnstr()')
-- ALIAS(`mvgetstr()')
-- Get is not inlined
-- MANPAGE(`curs_slk.3x')
-- Not Implemented: slk_attr_on, slk_attr_off, slk_attr_set
type Soft_Label_Key_Format is (Three_Two_Three,
Four_Four,
PC_Style, -- ncurses specific
PC_Style_With_Index); -- "
type Label_Number is new Positive range 1 .. 12;
type Label_Justification is (Left, Centered, Right);
-- ANCHOR(`slk_init()',`Init_Soft_Label_Keys')
procedure Init_Soft_Label_Keys
(Format : Soft_Label_Key_Format := Three_Two_Three);
-- AKA
pragma Inline (Init_Soft_Label_Keys);
-- ANCHOR(`slk_set()',`Set_Soft_Label_Key')
procedure Set_Soft_Label_Key (Label : Label_Number;
Text : String;
Fmt : Label_Justification := Left);
-- AKA
-- We do not inline this procedure
-- ANCHOR(`slk_refresh()',`Refresh_Soft_Label_Key')
procedure Refresh_Soft_Label_Keys;
-- AKA
pragma Inline (Refresh_Soft_Label_Keys);
-- ANCHOR(`slk_noutrefresh()',`Refresh_Soft_Label_Keys_Without_Update')
procedure Refresh_Soft_Label_Keys_Without_Update;
-- AKA
pragma Inline (Refresh_Soft_Label_Keys_Without_Update);
-- ANCHOR(`slk_label()',`Get_Soft_Label_Key')
procedure Get_Soft_Label_Key (Label : Label_Number;
Text : out String);
-- AKA
-- ANCHOR(`slk_label()',`Get_Soft_Label_Key')
function Get_Soft_Label_Key (Label : Label_Number) return String;
-- AKA
-- Same as function
pragma Inline (Get_Soft_Label_Key);
-- ANCHOR(`slk_clear()',`Clear_Soft_Label_Keys')
procedure Clear_Soft_Label_Keys;
-- AKA
pragma Inline (Clear_Soft_Label_Keys);
-- ANCHOR(`slk_restore()',`Restore_Soft_Label_Keys')
procedure Restore_Soft_Label_Keys;
-- AKA
pragma Inline (Restore_Soft_Label_Keys);
-- ANCHOR(`slk_touch()',`Touch_Soft_Label_Keys')
procedure Touch_Soft_Label_Keys;
-- AKA
pragma Inline (Touch_Soft_Label_Keys);
-- ANCHOR(`slk_attron()',`Switch_Soft_Label_Key_Attributes')
procedure Switch_Soft_Label_Key_Attributes
(Attr : Character_Attribute_Set;
On : Boolean := True);
-- AKA
-- ALIAS(`slk_attroff()')
pragma Inline (Switch_Soft_Label_Key_Attributes);
-- ANCHOR(`slk_attrset()',`Set_Soft_Label_Key_Attributes')
procedure Set_Soft_Label_Key_Attributes
(Attr : Character_Attribute_Set := Normal_Video;
Color : Color_Pair := Color_Pair'First);
-- AKA
pragma Inline (Set_Soft_Label_Key_Attributes);
-- ANCHOR(`slk_attr()',`Get_Soft_Label_Key_Attributes')
function Get_Soft_Label_Key_Attributes return Character_Attribute_Set;
-- AKA
-- ANCHOR(`slk_attr()',`Get_Soft_Label_Key_Attributes')
function Get_Soft_Label_Key_Attributes return Color_Pair;
-- AKA
pragma Inline (Get_Soft_Label_Key_Attributes);
-- ANCHOR(`slk_color()',`Set_Soft_Label_Key_Color')
procedure Set_Soft_Label_Key_Color (Pair : Color_Pair);
-- AKA
pragma Inline (Set_Soft_Label_Key_Color);
-- MANPAGE(`keybound.3x')
-- Not Implemented: keybound
-- MANPAGE(`keyok.3x')
-- ANCHOR(`keyok()',`Enable_Key')
procedure Enable_Key (Key : Special_Key_Code;
Enable : Boolean := True);
-- AKA
pragma Inline (Enable_Key);
-- MANPAGE(`define_key.3x')
-- ANCHOR(`define_key()',`Define_Key')
procedure Define_Key (Definition : String;
Key : Special_Key_Code);
-- AKA
pragma Inline (Define_Key);
-- MANPAGE(`curs_util.3x')
-- | Not implemented : filter, use_env
-- | putwin, getwin are in the child package PutWin
--
-- ANCHOR(`keyname()',`Key_Name')
procedure Key_Name (Key : Real_Key_Code;
Name : out String);
-- AKA
-- The external name for a real keystroke.
-- ANCHOR(`keyname()',`Key_Name')
function Key_Name (Key : Real_Key_Code) return String;
-- AKA
-- Same as function
-- We do not inline this routine
-- ANCHOR(`unctrl()',`Un_Control')
procedure Un_Control (Ch : Attributed_Character;
Str : out String);
-- AKA
-- ANCHOR(`unctrl()',`Un_Control')
function Un_Control (Ch : Attributed_Character) return String;
-- AKA
-- Same as function
pragma Inline (Un_Control);
-- ANCHOR(`delay_output()',`Delay_Output')
procedure Delay_Output (Msecs : Natural);
-- AKA
pragma Inline (Delay_Output);
-- ANCHOR(`flushinp()',`Flush_Input')
procedure Flush_Input;
-- AKA
pragma Inline (Flush_Input);
-- MANPAGE(`curs_termattrs.3x')
-- ANCHOR(`baudrate()',`Baudrate')
function Baudrate return Natural;
-- AKA
pragma Inline (Baudrate);
-- ANCHOR(`erasechar()',`Erase_Character')
function Erase_Character return Character;
-- AKA
pragma Inline (Erase_Character);
-- ANCHOR(`killchar()',`Kill_Character')
function Kill_Character return Character;
-- AKA
pragma Inline (Kill_Character);
-- ANCHOR(`has_ic()',`Has_Insert_Character')
function Has_Insert_Character return Boolean;
-- AKA
pragma Inline (Has_Insert_Character);
-- ANCHOR(`has_il()',`Has_Insert_Line')
function Has_Insert_Line return Boolean;
-- AKA
pragma Inline (Has_Insert_Line);
-- ANCHOR(`termattrs()',`Supported_Attributes')
function Supported_Attributes return Character_Attribute_Set;
-- AKA
pragma Inline (Supported_Attributes);
-- ANCHOR(`longname()',`Long_Name')
procedure Long_Name (Name : out String);
-- AKA
-- ANCHOR(`longname()',`Long_Name')
function Long_Name return String;
-- AKA
-- Same as function
pragma Inline (Long_Name);
-- ANCHOR(`termname()',`Terminal_Name')
procedure Terminal_Name (Name : out String);
-- AKA
-- ANCHOR(`termname()',`Terminal_Name')
function Terminal_Name return String;
-- AKA
-- Same as function
pragma Inline (Terminal_Name);
-- MANPAGE(`curs_color.3x')
-- COLOR_PAIR
-- COLOR_PAIR(n) in C is the same as
-- Attributed_Character(Ch => Nul, Color => n, Attr => Normal_Video)
-- In C you often see something like c = c | COLOR_PAIR(n);
-- This is equivalent to c.Color := n;
-- ANCHOR(`start_color()',`Start_Color')
procedure Start_Color;
-- AKA
pragma Import (C, Start_Color, "start_color");
-- ANCHOR(`init_pair()',`Init_Pair')
procedure Init_Pair (Pair : Redefinable_Color_Pair;
Fore : Color_Number;
Back : Color_Number);
-- AKA
pragma Inline (Init_Pair);
-- ANCHOR(`pair_content()',`Pair_Content')
procedure Pair_Content (Pair : Color_Pair;
Fore : out Color_Number;
Back : out Color_Number);
-- AKA
pragma Inline (Pair_Content);
-- ANCHOR(`has_colors()',`Has_Colors')
function Has_Colors return Boolean;
-- AKA
pragma Inline (Has_Colors);
-- ANCHOR(`init_color()',`Init_Color')
procedure Init_Color (Color : Color_Number;
Red : RGB_Value;
Green : RGB_Value;
Blue : RGB_Value);
-- AKA
pragma Inline (Init_Color);
-- ANCHOR(`can_change_color()',`Can_Change_Color')
function Can_Change_Color return Boolean;
-- AKA
pragma Inline (Can_Change_Color);
-- ANCHOR(`color_content()',`Color_Content')
procedure Color_Content (Color : Color_Number;
Red : out RGB_Value;
Green : out RGB_Value;
Blue : out RGB_Value);
-- AKA
pragma Inline (Color_Content);
-- MANPAGE(`curs_kernel.3x')
-- | Not implemented: getsyx, setsyx
--
type Curses_Mode is (Curses, Shell);
-- ANCHOR(`def_prog_mode()',`Save_Curses_Mode')
procedure Save_Curses_Mode (Mode : Curses_Mode);
-- AKA
-- ALIAS(`def_shell_mode()')
pragma Inline (Save_Curses_Mode);
-- ANCHOR(`reset_prog_mode()',`Reset_Curses_Mode')
procedure Reset_Curses_Mode (Mode : Curses_Mode);
-- AKA
-- ALIAS(`reset_shell_mode()')
pragma Inline (Reset_Curses_Mode);
-- ANCHOR(`savetty()',`Save_Terminal_State')
procedure Save_Terminal_State;
-- AKA
pragma Inline (Save_Terminal_State);
-- ANCHOR(`resetty();',`Reset_Terminal_State')
procedure Reset_Terminal_State;
-- AKA
pragma Inline (Reset_Terminal_State);
type Stdscr_Init_Proc is access
function (Win : Window;
Columns : Column_Count) return Integer;
pragma Convention (C, Stdscr_Init_Proc);
-- N.B.: the return value is actually ignored, but it seems to be
-- a good practice to return 0 if you think all went fine
-- and -1 otherwise.
-- ANCHOR(`ripoffline()',`Rip_Off_Lines')
procedure Rip_Off_Lines (Lines : Integer;
Proc : Stdscr_Init_Proc);
-- AKA
-- N.B.: to be more precise, this uses a ncurses specific enhancement of
-- ripoffline(), in which the Lines argument absolute value is the
-- number of lines to be ripped of. The official ripoffline() only
-- uses the sign of Lines to remove a single line from bottom or top.
pragma Inline (Rip_Off_Lines);
type Cursor_Visibility is (Invisible, Normal, Very_Visible);
-- ANCHOR(`curs_set()',`Set_Cursor_Visibility')
procedure Set_Cursor_Visibility (Visibility : in out Cursor_Visibility);
-- AKA
pragma Inline (Set_Cursor_Visibility);
-- ANCHOR(`napms()',`Nap_Milli_Seconds')
procedure Nap_Milli_Seconds (Ms : Natural);
-- AKA
pragma Inline (Nap_Milli_Seconds);
-- |=====================================================================
-- | Some useful helpers.
-- |=====================================================================
type Transform_Direction is (From_Screen, To_Screen);
procedure Transform_Coordinates
(W : Window := Standard_Window;
Line : in out Line_Position;
Column : in out Column_Position;
Dir : Transform_Direction := From_Screen);
-- This procedure transforms screen coordinates into coordinates relative
-- to the window and vice versa, depending on the Dir parameter.
-- Screen coordinates are the position information for the physical device.
-- An Curses_Exception will be raised if Line and Column are not in the
-- Window or if you pass the Null_Window as argument.
-- We do not inline this procedure
-- MANPAGE(`default_colors.3x')
Default_Color : constant Color_Number := -1;
-- ANCHOR(`use_default_colors()',`Use_Default_Colors')
procedure Use_Default_Colors;
-- AKA
pragma Inline (Use_Default_Colors);
-- ANCHOR(`assume_default_colors()',`Assume_Default_Colors')
procedure Assume_Default_Colors (Fore : Color_Number := Default_Color;
Back : Color_Number := Default_Color);
-- AKA
pragma Inline (Assume_Default_Colors);
-- MANPAGE(`curs_extend.3x')
-- ANCHOR(`curses_version()',`Curses_Version')
function Curses_Version return String;
-- AKA
-- ANCHOR(`use_extended_names()',`Use_Extended_Names')
-- The returnvalue is the previous setting of the flag
function Use_Extended_Names (Enable : Boolean) return Boolean;
-- AKA
-- MANPAGE(`curs_trace.3x')
-- ANCHOR(`_nc_freeall()',`Curses_Free_All')
procedure Curses_Free_All;
-- AKA
-- MANPAGE(`curs_scr_dump.3x')
-- ANCHOR(`scr_dump()',`Screen_Dump_To_File')
procedure Screen_Dump_To_File (Filename : String);
-- AKA
-- ANCHOR(`scr_restore()',`Screen_Restore_From_File')
procedure Screen_Restore_From_File (Filename : String);
-- AKA
-- ANCHOR(`scr_init()',`Screen_Init_From_File')
procedure Screen_Init_From_File (Filename : String);
-- AKA
-- ANCHOR(`scr_set()',`Screen_Set_File')
procedure Screen_Set_File (Filename : String);
-- AKA
-- MANPAGE(`curs_print.3x')
-- Not implemented: mcprint
-- MANPAGE(`curs_printw.3x')
-- Not implemented: printw, wprintw, mvprintw, mvwprintw, vwprintw,
-- vw_printw
-- Please use the Ada style Text_IO child packages for formatted
-- printing. It does not make a lot of sense to map the printf style
-- C functions to Ada.
-- MANPAGE(`curs_scanw.3x')
-- Not implemented: scanw, wscanw, mvscanw, mvwscanw, vwscanw, vw_scanw
-- MANPAGE(`resizeterm.3x')
-- Not Implemented: resizeterm
-- MANPAGE(`wresize.3x')
-- ANCHOR(`wresize()',`Resize')
procedure Resize (Win : Window := Standard_Window;
Number_Of_Lines : Line_Count;
Number_Of_Columns : Column_Count);
-- AKA
private
type Window is new System.Storage_Elements.Integer_Address;
Null_Window : constant Window := 0;
-- The next constants are generated and may be different on your
-- architecture.
--
Sizeof_Bool : constant := Curses_Constants.Sizeof_Bool;
type Curses_Bool is mod 2 ** Sizeof_Bool;
Curses_Bool_False : constant Curses_Bool := 0;
end Terminal_Interface.Curses;
AdaCurses-20211021/gen/terminal_interface-curses-panels-user_data.ads.m4 0000644 0001751 0000144 00000007545 13615656212 024522 0 ustar tom users -- -*- ada -*-
define(`HTMLNAME',`terminal_interface-curses-panels-user_data__ads.htm')dnl
include(M4MACRO)dnl
------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding --
-- --
-- Terminal_Interface.Curses.Panels.User_Data --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2003,2009 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control:
-- $Revision: 1.16 $
-- Binding Version 01.00
------------------------------------------------------------------------------
generic
type User is limited private;
type User_Access is access all User;
package Terminal_Interface.Curses.Panels.User_Data is
pragma Preelaborate (Terminal_Interface.Curses.Panels.User_Data);
-- MANPAGE(`panel.3x')
-- ANCHOR(`set_panel_userptr',`Set_User_Data')
procedure Set_User_Data (Pan : Panel;
Data : User_Access);
-- AKA
pragma Inline (Set_User_Data);
-- ANCHOR(`panel_userptr',`Get_User_Data')
procedure Get_User_Data (Pan : Panel;
Data : out User_Access);
-- AKA
-- ANCHOR(`panel_userptr',`Get_User_Data')
function Get_User_Data (Pan : Panel) return User_Access;
-- AKA
-- Same as function
pragma Inline (Get_User_Data);
end Terminal_Interface.Curses.Panels.User_Data;
AdaCurses-20211021/gen/terminal_interface-curses-menus-item_user_data.ads.m4 0000644 0001751 0000144 00000010122 13615656212 025366 0 ustar tom users -- -*- ada -*-
define(`HTMLNAME',`terminal_interface-curses-menus-item_user_data__ads.htm')dnl
include(M4MACRO)dnl
------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding --
-- --
-- Terminal_Interface.Curses.Menus.Item_User_Data --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2006,2009 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control:
-- $Revision: 1.18 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
generic
type User is limited private;
type User_Access is access User;
package Terminal_Interface.Curses.Menus.Item_User_Data is
pragma Preelaborate (Terminal_Interface.Curses.Menus.Item_User_Data);
-- The binding uses the same user pointer for menu items
-- as the low level C implementation. So you can safely
-- read or write the user pointer also with the C routines
--
-- MANPAGE(`mitem_userptr.3x')
-- ANCHOR(`set_item_userptr',`Set_User_Data')
procedure Set_User_Data (Itm : Item;
Data : User_Access);
-- AKA
pragma Inline (Set_User_Data);
-- ANCHOR(`item_userptr',`Get_User_Data')
procedure Get_User_Data (Itm : Item;
Data : out User_Access);
-- AKA
-- ANCHOR(`item_userptr',`Get_User_Data')
function Get_User_Data (Itm : Item) return User_Access;
-- AKA
-- Same as function
pragma Inline (Get_User_Data);
end Terminal_Interface.Curses.Menus.Item_User_Data;
AdaCurses-20211021/gen/terminal_interface-curses-forms-form_user_data.ads.m4 0000644 0001751 0000144 00000007562 13615656212 025410 0 ustar tom users -- -*- ada -*-
define(`HTMLNAME',`terminal_interface-curses-forms-form_user_data__ads.htm')dnl
include(M4MACRO)dnl
------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding --
-- --
-- Terminal_Interface.Curses.Forms.Form_User_Data --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2003,2009 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control:
-- $Revision: 1.16 $
-- Binding Version 01.00
------------------------------------------------------------------------------
generic
type User is limited private;
type User_Access is access User;
package Terminal_Interface.Curses.Forms.Form_User_Data is
pragma Preelaborate (Terminal_Interface.Curses.Forms.Form_User_Data);
-- MANPAGE(`form_userptr.3x')
-- ANCHOR(`set_form_userptr',`Set_User_Data')
procedure Set_User_Data (Frm : Form;
Data : User_Access);
-- AKA
pragma Inline (Set_User_Data);
-- ANCHOR(`form_userptr',`Get_User_Data')
procedure Get_User_Data (Frm : Form;
Data : out User_Access);
-- AKA
-- ANCHOR(`form_userptr',`Get_User_Data')
function Get_User_Data (Frm : Form) return User_Access;
-- AKA
-- Same as function
pragma Inline (Get_User_Data);
end Terminal_Interface.Curses.Forms.Form_User_Data;
AdaCurses-20211021/gen/terminal_interface-curses-aux.ads.m4 0000644 0001751 0000144 00000013727 13615656212 022067 0 ustar tom users -- -*- ada -*-
define(`HTMLNAME',`terminal_interface-curses-aux__ads.htm')dnl
include(M4MACRO)dnl
------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding --
-- --
-- Terminal_Interface.Curses.Aux --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2018,2020 Thomas E. Dickey --
-- Copyright 1998-2011,2014 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control:
-- $Revision: 1.25 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with System;
with Interfaces.C;
with Interfaces.C.Strings; use Interfaces.C.Strings;
package Terminal_Interface.Curses.Aux is
pragma Preelaborate (Terminal_Interface.Curses.Aux);
subtype C_Int is Interfaces.C.int;
subtype C_Short is Interfaces.C.short;
subtype C_Long_Int is Interfaces.C.long;
subtype C_Size_T is Interfaces.C.size_t;
subtype C_UInt is Interfaces.C.unsigned;
subtype C_ULong is Interfaces.C.unsigned_long;
subtype C_Char_Ptr is Interfaces.C.Strings.chars_ptr;
type C_Void_Ptr is new System.Address;
-- This is how those constants are defined in ncurses. I see them also
-- exactly like this in all ETI implementations I ever tested. So it
-- could be that this is quite general, but please check with your curses.
-- This is critical, because curses sometime mixes Boolean returns with
-- returning an error status.
Curses_Ok : constant C_Int := Curses_Constants.OK;
Curses_Err : constant C_Int := Curses_Constants.ERR;
Curses_True : constant C_Int := Curses_Constants.TRUE;
Curses_False : constant C_Int := Curses_Constants.FALSE;
-- Eti_Error: type for error codes returned by the menu and form subsystem
type Eti_Error is
(E_Current,
E_Invalid_Field,
E_Request_Denied,
E_Not_Connected,
E_Not_Selectable,
E_No_Match,
E_Unknown_Command,
E_Not_Posted,
E_No_Room,
E_Bad_State,
E_Connected,
E_Posted,
E_Bad_Argument,
E_System_Error,
E_Ok);
procedure Eti_Exception (Code : Eti_Error);
-- Do nothing if Code = E_Ok.
-- Else dispatch the error code and raise the appropriate exception.
procedure Fill_String (Cp : chars_ptr;
Str : out String);
-- Fill the Str parameter with the string denoted by the chars_ptr
-- C-Style string.
function Fill_String (Cp : chars_ptr) return String;
-- Same but as function.
private
for Eti_Error'Size use C_Int'Size;
pragma Convention (C, Eti_Error);
for Eti_Error use
(E_Current => Curses_Constants.E_CURRENT,
E_Invalid_Field => Curses_Constants.E_INVALID_FIELD,
E_Request_Denied => Curses_Constants.E_REQUEST_DENIED,
E_Not_Connected => Curses_Constants.E_NOT_CONNECTED,
E_Not_Selectable => Curses_Constants.E_NOT_SELECTABLE,
E_No_Match => Curses_Constants.E_NO_MATCH,
E_Unknown_Command => Curses_Constants.E_UNKNOWN_COMMAND,
E_Not_Posted => Curses_Constants.E_NOT_POSTED,
E_No_Room => Curses_Constants.E_NO_ROOM,
E_Bad_State => Curses_Constants.E_BAD_STATE,
E_Connected => Curses_Constants.E_CONNECTED,
E_Posted => Curses_Constants.E_POSTED,
E_Bad_Argument => Curses_Constants.E_BAD_ARGUMENT,
E_System_Error => Curses_Constants.E_SYSTEM_ERROR,
E_Ok => Curses_Constants.E_OK);
end Terminal_Interface.Curses.Aux;
AdaCurses-20211021/gen/Makefile.in 0000644 0001751 0000144 00000031034 14070103035 015145 0 ustar tom users ##############################################################################
# Copyright 2019-2020,2021 Thomas E. Dickey #
# Copyright 1998-2015,2018 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 "Software"), #
# to deal in the Software without restriction, including without limitation #
# the rights to use, copy, modify, merge, publish, distribute, distribute #
# with modifications, 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. #
# #
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR #
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, #
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL #
# THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER #
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING #
# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER #
# DEALINGS IN THE SOFTWARE. #
# #
# Except as contained in this notice, the name(s) of the above copyright #
# holders shall not be used in advertising or otherwise to promote the sale, #
# use or other dealings in this Software without prior written #
# authorization. #
##############################################################################
#
# Author: Juergen Pfeifer, 1996
# and: Thomas E. Dickey, 1997
#
# $Id: Makefile.in,v 1.97 2021/07/03 15:45:33 tom Exp $
#
.SUFFIXES:
SHELL = @SHELL@
VPATH = @srcdir@
THIS = Makefile
x = @EXEEXT@
top_srcdir = @top_srcdir@
DESTDIR = @DESTDIR@
srcdir = @srcdir@
prefix = @prefix@
exec_prefix = @exec_prefix@
bindir = @bindir@
includedir = @includedir@
INSTALL = @INSTALL@ @INSTALL_OPT_O@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
INSTALL_DATA = @INSTALL_DATA@
AWK = @AWK@
LN_S = @LN_S@
CC = @CC@
HOST_CC = @BUILD_CC@
CFLAGS = @CFLAGS@ @EXTRA_CFLAGS@
HOST_CFLAGS = @BUILD_CFLAGS@
CPPFLAGS = @CPPFLAGS@
HOST_CPPFLAGS = @ACPPFLAGS@ @BUILD_CPPFLAGS@ \
-DHAVE_CONFIG_H -I$(srcdir)
CCFLAGS = $(HOST_CPPFLAGS) $(HOST_CFLAGS)
CFLAGS_NORMAL = $(CCFLAGS) -DNCURSES_STATIC
CFLAGS_DEBUG = $(CCFLAGS) -DNCURSES_STATIC @CC_G_OPT@ -DTRACE
CFLAGS_PROFILE = $(CCFLAGS) -DNCURSES_STATIC -pg
CFLAGS_SHARED = $(CCFLAGS) @CC_SHARED_OPTS@
CFLAGS_DEFAULT = $(CFLAGS_@DFT_UPR_MODEL@)
REL_VERSION = @cf_cv_rel_version@
ABI_VERSION = @cf_cv_abi_version@
LOCAL_LIBDIR = @top_builddir@/lib
LINK = $(HOST_CC)
LDFLAGS = @LDFLAGS@
LIBS = @LIBS@
# For the wide-character configuration combined with broken_linker, we need
# addresses of ACS_xxx constants, which requires linking with the newly built
# ncurses library. If cross-compiling, the developer has to fill in a workable
# native library for this purpose.
NATIVE_LDFLAGS = @LD_MODEL@ $(LOCAL_LIBS) @TINFO_LDFLAGS2@ $(LDFLAGS) @LIBS@ @LOCAL_LDFLAGS2@ $(LDFLAGS) @TINFO_LIBS@
CROSS_LDFLAGS = @BUILD_LDFLAGS@ @BUILD_LIBS@
ACTUAL_LDFLAGS = @ADAGEN_LDFLAGS@
RANLIB = @RANLIB@
M4 = m4
M4FLAGS = -DNCURSES_EXT_FUNCS=@NCURSES_EXT_FUNCS@
ADACURSES_CONFIG = adacurses@USE_CFG_SUFFIX@-config
WRAPPER = @NCURSES_SHLIB2@
PROG_GENERATE = ./generate$x
GENERATE = $(PROG_GENERATE) '@USE_ARG_SUFFIX@'
DEL_ADAMODE = sed -e '/^\-\-\ \ \-\*\-\ ada\ \-\*\-.*/d'
GNATHTML = `type -p gnathtml || type -p gnathtml.pl 2>/dev/null`
GNATHP = www.gnat.com
################################################################################
ALIB = @cf_ada_package@
ABASE = $(ALIB)-curses
ADA_SRCDIR = ../src
GEN_TARGETS = $(ADA_SRCDIR)/$(ABASE).ads \
$(ADA_SRCDIR)/$(ABASE).adb \
$(ADA_SRCDIR)/$(ABASE)-aux.ads \
$(ADA_SRCDIR)/$(ABASE)-trace.ads \
$(ADA_SRCDIR)/$(ABASE)-menus.ads \
$(ADA_SRCDIR)/$(ABASE)-forms.ads \
$(ADA_SRCDIR)/$(ABASE)-mouse.ads \
$(ADA_SRCDIR)/$(ABASE)-panels.ads \
$(ADA_SRCDIR)/$(ABASE)-menus-menu_user_data.ads \
$(ADA_SRCDIR)/$(ABASE)-menus-item_user_data.ads \
$(ADA_SRCDIR)/$(ABASE)-forms-form_user_data.ads \
$(ADA_SRCDIR)/$(ABASE)-forms-field_types.ads \
$(ADA_SRCDIR)/$(ABASE)-forms-field_user_data.ads \
$(ADA_SRCDIR)/$(ABASE)-panels-user_data.ads \
$(ADA_SRCDIR)/$(ABASE)_constants.ads
GEN_SRC = $(srcdir)/$(ABASE).ads.m4 \
$(srcdir)/$(ABASE).adb.m4 \
$(srcdir)/$(ABASE)-aux.ads.m4 \
$(srcdir)/$(ABASE)-trace.ads.m4 \
$(srcdir)/$(ABASE)-menus.ads.m4 \
$(srcdir)/$(ABASE)-forms.ads.m4 \
$(srcdir)/$(ABASE)-mouse.ads.m4 \
$(srcdir)/$(ABASE)-panels.ads.m4 \
$(srcdir)/$(ABASE)-menus-menu_user_data.ads.m4 \
$(srcdir)/$(ABASE)-menus-item_user_data.ads.m4 \
$(srcdir)/$(ABASE)-forms-form_user_data.ads.m4 \
$(srcdir)/$(ABASE)-forms-field_types.ads.m4 \
$(srcdir)/$(ABASE)-forms-field_user_data.ads.m4 \
$(srcdir)/$(ABASE)-panels-user_data.ads.m4
################################################################################
@MAKE_PHONY@.PHONY : all
@MAKE_PHONY@.PHONY : clean
@MAKE_PHONY@.PHONY : distclean
@MAKE_PHONY@.PHONY : install
@MAKE_PHONY@.PHONY : install.libs
@MAKE_PHONY@.PHONY : libs
@MAKE_PHONY@.PHONY : mostlyclean
@MAKE_PHONY@.PHONY : realclean
@MAKE_PHONY@.PHONY : sources
@MAKE_PHONY@.PHONY : uninstall
@MAKE_PHONY@.PHONY : uninstall.libs
all \
libs : $(GEN_TARGETS)
@echo made $@
sources:
$(DESTDIR)$(bindir) :
mkdir -p $@
install \
install.libs :: $(DESTDIR)$(bindir) $(ADACURSES_CONFIG)
$(INSTALL_SCRIPT) $(ADACURSES_CONFIG) $(DESTDIR)$(bindir)/$(ADACURSES_CONFIG)
uninstall \
uninstall.libs ::
-rm -f $(DESTDIR)$(bindir)/$(ADACURSES_CONFIG)
$(PROG_GENERATE): gen.o
@ECHO_LD@ $(LINK) $(CFLAGS_NORMAL) gen.o $(ACTUAL_LDFLAGS) -o $@
gen.o: $(srcdir)/gen.c
$(HOST_CC) $(CFLAGS_NORMAL) -c -o $@ $(srcdir)/gen.c
$(ADA_SRCDIR)/$(ABASE)_constants.ads: $(PROG_GENERATE)
$(WRAPPER) "$(GENERATE) $@"
################################################################################
$(ADA_SRCDIR)/$(ABASE).ads: $(srcdir)/$(ABASE).ads.m4 \
$(srcdir)/normal.m4
$(M4) $(M4FLAGS) -DM4MACRO=$(srcdir)/normal.m4 \
$(srcdir)/$(ABASE).ads.m4 |\
$(DEL_ADAMODE) >$@
$(ADA_SRCDIR)/$(ABASE).adb: $(srcdir)/$(ABASE).adb.m4 \
$(srcdir)/normal.m4
$(M4) $(M4FLAGS) -DM4MACRO=$(srcdir)/normal.m4 \
$(srcdir)/$(ABASE).adb.m4 |\
$(DEL_ADAMODE) >$@
$(ADA_SRCDIR)/$(ABASE)-aux.ads: $(srcdir)/$(ABASE)-aux.ads.m4 \
$(srcdir)/normal.m4
$(M4) $(M4FLAGS) -DM4MACRO=$(srcdir)/normal.m4 \
$(srcdir)/$(ABASE)-aux.ads.m4 |\
$(DEL_ADAMODE) >$@
$(ADA_SRCDIR)/$(ABASE)-trace.ads: $(srcdir)/$(ABASE)-trace.ads.m4 \
$(srcdir)/normal.m4
$(M4) $(M4FLAGS) -DM4MACRO=$(srcdir)/normal.m4 \
$(srcdir)/$(ABASE)-trace.ads.m4 |\
$(DEL_ADAMODE) >$@
$(ADA_SRCDIR)/$(ABASE)-menus.ads: $(srcdir)/$(ABASE)-menus.ads.m4 \
$(srcdir)/normal.m4
$(M4) $(M4FLAGS) -DM4MACRO=$(srcdir)/normal.m4 \
$(srcdir)/$(ABASE)-menus.ads.m4 |\
$(DEL_ADAMODE) >$@
$(ADA_SRCDIR)/$(ABASE)-forms.ads: $(srcdir)/$(ABASE)-forms.ads.m4 \
$(srcdir)/normal.m4
$(M4) $(M4FLAGS) -DM4MACRO=$(srcdir)/normal.m4 \
$(srcdir)/$(ABASE)-forms.ads.m4 |\
$(DEL_ADAMODE) >$@
$(ADA_SRCDIR)/$(ABASE)-mouse.ads: $(srcdir)/$(ABASE)-mouse.ads.m4 \
$(srcdir)/normal.m4
$(M4) $(M4FLAGS) -DM4MACRO=$(srcdir)/normal.m4 \
$(srcdir)/$(ABASE)-mouse.ads.m4 |\
$(DEL_ADAMODE) >$@
$(ADA_SRCDIR)/$(ABASE)-panels.ads: $(srcdir)/$(ABASE)-panels.ads.m4 \
$(srcdir)/normal.m4
$(M4) $(M4FLAGS) -DM4MACRO=$(srcdir)/normal.m4 \
$(srcdir)/$(ABASE)-panels.ads.m4 |\
$(DEL_ADAMODE) >$@
$(ADA_SRCDIR)/$(ABASE)-menus-menu_user_data.ads: \
$(srcdir)/$(ABASE)-menus-menu_user_data.ads.m4 \
$(srcdir)/normal.m4
$(M4) $(M4FLAGS) -DM4MACRO=$(srcdir)/normal.m4 \
$(srcdir)/$(ABASE)-menus-menu_user_data.ads.m4 |\
$(DEL_ADAMODE) >$@
$(ADA_SRCDIR)/$(ABASE)-menus-item_user_data.ads: \
$(srcdir)/$(ABASE)-menus-item_user_data.ads.m4 \
$(srcdir)/normal.m4
$(M4) $(M4FLAGS) -DM4MACRO=$(srcdir)/normal.m4 \
$(srcdir)/$(ABASE)-menus-item_user_data.ads.m4 |\
$(DEL_ADAMODE) >$@
$(ADA_SRCDIR)/$(ABASE)-forms-form_user_data.ads: \
$(srcdir)/$(ABASE)-forms-form_user_data.ads.m4 \
$(srcdir)/normal.m4
$(M4) $(M4FLAGS) -DM4MACRO=$(srcdir)/normal.m4 \
$(srcdir)/$(ABASE)-forms-form_user_data.ads.m4 |\
$(DEL_ADAMODE) >$@
$(ADA_SRCDIR)/$(ABASE)-forms-field_types.ads: \
$(srcdir)/$(ABASE)-forms-field_types.ads.m4 \
$(srcdir)/normal.m4
$(M4) $(M4FLAGS) -DM4MACRO=$(srcdir)/normal.m4 \
$(srcdir)/$(ABASE)-forms-field_types.ads.m4 |\
$(DEL_ADAMODE) >$@
$(ADA_SRCDIR)/$(ABASE)-forms-field_user_data.ads: \
$(srcdir)/$(ABASE)-forms-field_user_data.ads.m4 \
$(srcdir)/normal.m4
$(M4) $(M4FLAGS) -DM4MACRO=$(srcdir)/normal.m4 \
$(srcdir)/$(ABASE)-forms-field_user_data.ads.m4 |\
$(DEL_ADAMODE) >$@
$(ADA_SRCDIR)/$(ABASE)-panels-user_data.ads: \
$(srcdir)/$(ABASE)-panels-user_data.ads.m4 \
$(srcdir)/normal.m4
$(M4) $(M4FLAGS) -DM4MACRO=$(srcdir)/normal.m4 \
$(srcdir)/$(ABASE)-panels-user_data.ads.m4 |\
$(DEL_ADAMODE) >$@
install.progs ::
tags:
ctags *.[ch]
@MAKE_UPPER_TAGS@TAGS:
@MAKE_UPPER_TAGS@ etags *.[ch]
mostlyclean ::
-rm -f a.out core $(PROG_GENERATE) *.o
clean :: mostlyclean
-rm -f $(GEN_TARGETS) instab.tmp *.ad[bs] *.html *.ali *.tmp
distclean :: clean
-rm -f $(ADACURSES_CONFIG)
-rm -f Makefile
realclean :: distclean
HTML_DIR = @ADAHTML_DIR@
instab.tmp : table.m4 $(GEN_SRC)
@rm -f $@
@for f in $(GEN_SRC) ; do \
$(M4) $(M4FLAGS) -DM4MACRO=table.m4 $$f | $(DEL_ADAMODE) >> $@ ;\
done;
$(HTML_DIR)/table.html : instab.tmp
@-touch $@
@-chmod +w $@
@echo ' $@
@echo 'PUBLIC "-//IETF//DTD HTML 3.0//EN">' >> $@
@echo '' >> $@
@echo '' >> $@
@echo 'Correspondence between ncurses C and Ada functions' >>$@
@echo '' >> $@
@echo '' >> $@
@echo '
Correspondence between ncurses C and Ada functions
' >>$@
@echo '
Sorted by C function name
' >>$@
@echo '
' >>$@
@echo '
' >>$@
@echo '
C name
Ada name
man page
' >>$@
@sort < instab.tmp >> $@
@echo '
' >>$@
@rm -f instab.tmp
adahtml:
test -n "$(GNATHTML)" || exit 1
@find $(HTML_DIR) -type f -exec rm -f {} \;
@mkdir -p $(HTML_DIR)
( cp -p ../src/*.ad[sb] . && chmod +w *.ad[sb] )
@USE_OLD_MAKERULES@ ln -sf ../src/*.ali .
@USE_GNAT_PROJECTS@ ln -sf ../static-ali/*.ali .
@echo "Filtering generated files"
@for f in $(GEN_SRC); do \
h=`basename $$f` ;\
g=`basename $$f .ads.m4` ;\
if test "$$g" != "$$h" ; then \
$(M4) $(M4FLAGS) -DM4MACRO=html.m4 $$f | $(DEL_ADAMODE) > $$g.ads ;\
echo "... $$g.ads" ;\
fi \
done
@-rm -f $(HTML_DIR)/$(ALIB)*.htm*
$(GNATHTML) -d -f $(ALIB)*.ads
for f in html/$(ALIB)*.htm*; do \
a=`basename $$f` ; \
sed -e 's/You may also.*body.*//' <$$f |\
sed -e 's%GNAT%GNAT%g' |\
sed -e 's%<A HREF%%g' |\
sed -e 's%#1A\([[:space:]]*NAME="[^"]*"\)#2%%' |\
sed -e 's%#1/A#2%%' |\
sed -e 's/3X/3x/g' |\
sed -e 's/$$\([ABCDEFGHIJKLMNOPQRSTUVWXZabcdefghijklmnopqrstuvwxz0123456789_]*:.*\)\$$/@\1@/' |\
sed -e 's%</A>%%g' > $$a.tmp ;\
mv $$a.tmp $$f ;\
done
@rm -f *.ad[sb] *.ali *.tmp
@for f in funcs.htm main.htm ; do \
sed -e "\%\[ \]%d" < html/$$f > $$f ;\
mv $$f html/$$f ;\
done
@rm -f "html/funcs/ .htm"
@cp -pdrf html/* $(HTML_DIR)/
@rm -rf html
html : adahtml $(HTML_DIR)/table.html
@echo made $@
###############################################################################
# The remainder of this file is automatically generated during configuration
###############################################################################
AdaCurses-20211021/gen/terminal_interface-curses-menus-menu_user_data.ads.m4 0000644 0001751 0000144 00000007562 13615656212 025412 0 ustar tom users -- -*- ada -*-
define(`HTMLNAME',`terminal_interface-curses-menus-menu_user_data__ads.htm')dnl
include(M4MACRO)dnl
------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding --
-- --
-- Terminal_Interface.Curses.Menus.Menu_User_Data --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2003,2009 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control:
-- $Revision: 1.16 $
-- Binding Version 01.00
------------------------------------------------------------------------------
generic
type User is limited private;
type User_Access is access User;
package Terminal_Interface.Curses.Menus.Menu_User_Data is
pragma Preelaborate (Terminal_Interface.Curses.Menus.Menu_User_Data);
-- MANPAGE(`menu_userptr.3x')
-- ANCHOR(`set_menu_userptr',`Set_User_Data')
procedure Set_User_Data (Men : Menu;
Data : User_Access);
-- AKA
pragma Inline (Set_User_Data);
-- ANCHOR(`menu_userptr',`Get_User_Data')
procedure Get_User_Data (Men : Menu;
Data : out User_Access);
-- AKA
-- ANCHOR(`menu_userptr',`Get_User_Data')
function Get_User_Data (Men : Menu) return User_Access;
-- AKA
-- Same as function
pragma Inline (Get_User_Data);
end Terminal_Interface.Curses.Menus.Menu_User_Data;
AdaCurses-20211021/gen/gen.c 0000644 0001751 0000144 00000047160 13716272521 014041 0 ustar tom users /****************************************************************************
* Copyright 2020 Thomas E. Dickey *
* Copyright 1998-2014,2016 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 *
* "Software"), to deal in the Software without restriction, including *
* without limitation the rights to use, copy, modify, merge, publish, *
* distribute, distribute with modifications, 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. *
* *
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS *
* OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF *
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. *
* IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, *
* DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR *
* OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR *
* THE USE OR OTHER DEALINGS IN THE SOFTWARE. *
* *
* Except as contained in this notice, the name(s) of the above copyright *
* holders shall not be used in advertising or otherwise to promote the *
* sale, use or other dealings in this Software without prior written *
* authorization. *
****************************************************************************/
/****************************************************************************
* Author: Juergen Pfeifer, 1996 *
* and: Thomas E. Dickey, 1998 *
* and: Nicolas Boulenguez, 2011 *
****************************************************************************/
/*
Version Control
$Id: gen.c,v 1.77 2020/08/16 18:05:05 tom Exp $
--------------------------------------------------------------------------*/
/*
This program prints on its standard output the source for the
Terminal_Interface.Curses_Constants Ada package specification. This pure
package only exports C constants to the Ada compiler.
*/
#ifdef HAVE_CONFIG_H
#include
#else
#include
#endif
#include
#include
#include
#include
#undef UCHAR
#undef UINT
#undef ULONG
typedef unsigned char UCHAR;
typedef unsigned int UINT;
typedef unsigned long ULONG;
/* These global variables will be set by main () */
static int little_endian;
static const char *my_program_invocation_name = NULL;
static void
my_error(const char *message)
{
fprintf(stderr, "%s: %s\n", my_program_invocation_name, message);
exit(EXIT_FAILURE);
}
static void
print_constant(FILE * fp,
const char *name,
UINT value)
{
fprintf(fp, " %-28s : constant := %u;\n", name, value);
}
static void
print_long_val(FILE * fp,
const char *name,
long value)
{
fprintf(fp, " %-28s : constant := %ld;\n", name, value);
}
static void
print_size_of(FILE * fp,
const char *name,
size_t value)
{
fprintf(fp, " %-28s : constant := %lu;\n", name, value);
}
#define PRINT_NAMED_CONSTANT(name) \
print_long_val (fp, #name, name)
static void
print_comment(FILE * fp, const char *message)
{
fprintf(fp, "\n -- %s\n\n", message);
}
/*
* Make sure that KEY_MIN and KEY_MAX are defined.
* main () will protest if KEY_MIN == 256
*/
#ifndef KEY_MAX
# define KEY_MAX 0777
#endif
#ifndef KEY_MIN
# define KEY_MIN 0401
#endif
static UCHAR
bit_is_set(const UCHAR * const data,
const UINT offset)
{
const UCHAR byte = data[offset >> 3];
UINT bit;
if (little_endian)
bit = offset; /* offset */
else /* or */
bit = ~offset; /* 7 - offset */
bit &= 7; /* modulo 8 */
return (UCHAR) (byte & (1 << bit));
}
/* Find lowest and highest used offset in a byte array. */
/* Returns 0 if and only if all bits are unset. */
static int
find_pos(const UCHAR * const data,
const UINT sizeof_data,
UINT * const low,
UINT * const high)
{
const UINT last = (sizeof_data << 3) - 1;
UINT offset;
for (offset = last; !bit_is_set(data, offset); offset--)
if (!offset) /* All bits are 0. */
return 0;
*high = offset;
for (offset = 0; !bit_is_set(data, offset); offset++)
{
}
*low = offset;
return -1;
}
#define PRINT_BITMASK(c_type, ada_name, mask_macro) \
{ \
UINT first, last; \
c_type mask = (mask_macro); \
if (!find_pos ((UCHAR *)&mask, sizeof (mask), &first, &last)) \
my_error ("failed to locate " ada_name); \
print_constant (fp, ada_name "_First", first); \
print_constant (fp, ada_name "_Last", last); \
}
#define PRINT_NAMED_BITMASK(c_type, mask_macro) \
PRINT_BITMASK (c_type, #mask_macro, mask_macro)
#define STRUCT_OFFSET(record, field) \
{ \
UINT first, last; \
record mask; \
memset (&mask, 0, sizeof (mask)); \
memset (&mask.field, 0xff, sizeof(mask.field)); \
if (!find_pos ((UCHAR *)&mask, sizeof (mask), &first, &last)) \
my_error ("failed to locate" #record "_" #field); \
print_constant (fp, #record "_" #field "_First", first); \
print_constant (fp, #record "_" #field "_Last", last); \
}
/*--------------------*/
/* Start of main (). */
/*--------------------*/
int
main(int argc, const char *argv[])
{
FILE *fp = 0;
const int x = 0x12345678;
little_endian = (*((const char *)&x) == 0x78);
my_program_invocation_name = argv[0];
if (KEY_MIN == 256)
my_error("unexpected value for KEY_MIN: 256");
if (argc == 3)
{
fp = fopen(argv[2], "wb");
}
else if (argc == 2)
{
fp = stdout;
}
else
{
my_error("Only one or two arguments expected (DFT_ARG_SUFFIX)");
}
if ((strlen(argv[0]) + strlen(__FILE__)) > 25)
{
fprintf(fp, "-- Generated by the C program %.40s.\n",
my_program_invocation_name);
}
else
{
fprintf(fp, "-- Generated by the C program %s (source %s).\n",
my_program_invocation_name,
__FILE__);
}
fprintf(fp, "-- Do not edit this file directly.\n");
fprintf(fp, "-- The values provided here may vary on your system.\n");
fprintf(fp, "\n");
fprintf(fp, "with System;\n");
fprintf(fp, "package Terminal_Interface.Curses_Constants is\n");
fprintf(fp, " pragma Pure;\n");
fprintf(fp, "\n");
fprintf(fp, " DFT_ARG_SUFFIX : constant String := \"%s\";\n", argv[1]);
fprintf(fp,
" Bit_Order : constant System.Bit_Order := System.%s_Order_First;\n",
little_endian ? "Low" : "High");
print_size_of(fp, "Sizeof_Bool", 8 * sizeof(bool));
PRINT_NAMED_CONSTANT(OK);
PRINT_NAMED_CONSTANT(ERR);
fprintf(fp,
" pragma Warnings (Off); -- redefinition of Standard.True and False\n");
PRINT_NAMED_CONSTANT(TRUE);
PRINT_NAMED_CONSTANT(FALSE);
fprintf(fp, " pragma Warnings (On);\n");
print_comment(fp, "Version of the ncurses library from extensions(3NCURSES)");
PRINT_NAMED_CONSTANT(NCURSES_VERSION_MAJOR);
PRINT_NAMED_CONSTANT(NCURSES_VERSION_MINOR);
fprintf(fp, " Version : constant String := \"%d.%d\";\n",
NCURSES_VERSION_MAJOR, NCURSES_VERSION_MINOR);
print_comment(fp, "Character non-color attributes from attr(3NCURSES)");
fprintf(fp, " -- attr_t and chtype may be signed in C.\n");
fprintf(fp, " type attr_t is mod 2 ** %lu;\n", (long unsigned)(8 * sizeof(attr_t)));
PRINT_NAMED_BITMASK(attr_t, A_CHARTEXT);
PRINT_NAMED_BITMASK(attr_t, A_COLOR);
PRINT_BITMASK(attr_t, "Attr", A_ATTRIBUTES & ~A_COLOR);
PRINT_NAMED_BITMASK(attr_t, A_STANDOUT);
PRINT_NAMED_BITMASK(attr_t, A_UNDERLINE);
PRINT_NAMED_BITMASK(attr_t, A_REVERSE);
PRINT_NAMED_BITMASK(attr_t, A_BLINK);
PRINT_NAMED_BITMASK(attr_t, A_DIM);
PRINT_NAMED_BITMASK(attr_t, A_BOLD);
PRINT_NAMED_BITMASK(attr_t, A_PROTECT);
PRINT_NAMED_BITMASK(attr_t, A_INVIS);
PRINT_NAMED_BITMASK(attr_t, A_ALTCHARSET);
PRINT_NAMED_BITMASK(attr_t, A_HORIZONTAL);
PRINT_NAMED_BITMASK(attr_t, A_LEFT);
PRINT_NAMED_BITMASK(attr_t, A_LOW);
PRINT_NAMED_BITMASK(attr_t, A_RIGHT);
PRINT_NAMED_BITMASK(attr_t, A_TOP);
PRINT_NAMED_BITMASK(attr_t, A_VERTICAL);
print_size_of(fp, "chtype_Size", 8 * sizeof(chtype));
print_comment(fp, "predefined color numbers from color(3NCURSES)");
PRINT_NAMED_CONSTANT(COLOR_BLACK);
PRINT_NAMED_CONSTANT(COLOR_RED);
PRINT_NAMED_CONSTANT(COLOR_GREEN);
PRINT_NAMED_CONSTANT(COLOR_YELLOW);
PRINT_NAMED_CONSTANT(COLOR_BLUE);
PRINT_NAMED_CONSTANT(COLOR_MAGENTA);
PRINT_NAMED_CONSTANT(COLOR_CYAN);
PRINT_NAMED_CONSTANT(COLOR_WHITE);
print_comment(fp, "ETI return codes from ncurses.h");
PRINT_NAMED_CONSTANT(E_OK);
PRINT_NAMED_CONSTANT(E_SYSTEM_ERROR);
PRINT_NAMED_CONSTANT(E_BAD_ARGUMENT);
PRINT_NAMED_CONSTANT(E_POSTED);
PRINT_NAMED_CONSTANT(E_CONNECTED);
PRINT_NAMED_CONSTANT(E_BAD_STATE);
PRINT_NAMED_CONSTANT(E_NO_ROOM);
PRINT_NAMED_CONSTANT(E_NOT_POSTED);
PRINT_NAMED_CONSTANT(E_UNKNOWN_COMMAND);
PRINT_NAMED_CONSTANT(E_NO_MATCH);
PRINT_NAMED_CONSTANT(E_NOT_SELECTABLE);
PRINT_NAMED_CONSTANT(E_NOT_CONNECTED);
PRINT_NAMED_CONSTANT(E_REQUEST_DENIED);
PRINT_NAMED_CONSTANT(E_INVALID_FIELD);
PRINT_NAMED_CONSTANT(E_CURRENT);
print_comment(fp, "Input key codes not defined in any ncurses manpage");
PRINT_NAMED_CONSTANT(KEY_MIN);
PRINT_NAMED_CONSTANT(KEY_MAX);
#ifdef KEY_CODE_YES
PRINT_NAMED_CONSTANT(KEY_CODE_YES);
#endif
print_comment(fp, "Input key codes from getch(3NCURSES)");
PRINT_NAMED_CONSTANT(KEY_BREAK);
PRINT_NAMED_CONSTANT(KEY_DOWN);
PRINT_NAMED_CONSTANT(KEY_UP);
PRINT_NAMED_CONSTANT(KEY_LEFT);
PRINT_NAMED_CONSTANT(KEY_RIGHT);
PRINT_NAMED_CONSTANT(KEY_HOME);
PRINT_NAMED_CONSTANT(KEY_BACKSPACE);
PRINT_NAMED_CONSTANT(KEY_F0);
#define PRINT_NAMED_FUNC_KEY(name) print_constant(fp, "KEY_F"#name, KEY_F(name))
PRINT_NAMED_FUNC_KEY(1);
PRINT_NAMED_FUNC_KEY(2);
PRINT_NAMED_FUNC_KEY(3);
PRINT_NAMED_FUNC_KEY(4);
PRINT_NAMED_FUNC_KEY(5);
PRINT_NAMED_FUNC_KEY(6);
PRINT_NAMED_FUNC_KEY(7);
PRINT_NAMED_FUNC_KEY(8);
PRINT_NAMED_FUNC_KEY(9);
PRINT_NAMED_FUNC_KEY(10);
PRINT_NAMED_FUNC_KEY(11);
PRINT_NAMED_FUNC_KEY(12);
PRINT_NAMED_FUNC_KEY(13);
PRINT_NAMED_FUNC_KEY(14);
PRINT_NAMED_FUNC_KEY(15);
PRINT_NAMED_FUNC_KEY(16);
PRINT_NAMED_FUNC_KEY(17);
PRINT_NAMED_FUNC_KEY(18);
PRINT_NAMED_FUNC_KEY(19);
PRINT_NAMED_FUNC_KEY(20);
PRINT_NAMED_FUNC_KEY(21);
PRINT_NAMED_FUNC_KEY(22);
PRINT_NAMED_FUNC_KEY(23);
PRINT_NAMED_FUNC_KEY(24);
PRINT_NAMED_CONSTANT(KEY_DL);
PRINT_NAMED_CONSTANT(KEY_IL);
PRINT_NAMED_CONSTANT(KEY_DC);
PRINT_NAMED_CONSTANT(KEY_IC);
PRINT_NAMED_CONSTANT(KEY_EIC);
PRINT_NAMED_CONSTANT(KEY_CLEAR);
PRINT_NAMED_CONSTANT(KEY_EOS);
PRINT_NAMED_CONSTANT(KEY_EOL);
PRINT_NAMED_CONSTANT(KEY_SF);
PRINT_NAMED_CONSTANT(KEY_SR);
PRINT_NAMED_CONSTANT(KEY_NPAGE);
PRINT_NAMED_CONSTANT(KEY_PPAGE);
PRINT_NAMED_CONSTANT(KEY_STAB);
PRINT_NAMED_CONSTANT(KEY_CTAB);
PRINT_NAMED_CONSTANT(KEY_CATAB);
PRINT_NAMED_CONSTANT(KEY_ENTER);
PRINT_NAMED_CONSTANT(KEY_SRESET);
PRINT_NAMED_CONSTANT(KEY_RESET);
PRINT_NAMED_CONSTANT(KEY_PRINT);
PRINT_NAMED_CONSTANT(KEY_LL);
PRINT_NAMED_CONSTANT(KEY_A1);
PRINT_NAMED_CONSTANT(KEY_A3);
PRINT_NAMED_CONSTANT(KEY_B2);
PRINT_NAMED_CONSTANT(KEY_C1);
PRINT_NAMED_CONSTANT(KEY_C3);
PRINT_NAMED_CONSTANT(KEY_BTAB);
PRINT_NAMED_CONSTANT(KEY_BEG);
PRINT_NAMED_CONSTANT(KEY_CANCEL);
PRINT_NAMED_CONSTANT(KEY_CLOSE);
PRINT_NAMED_CONSTANT(KEY_COMMAND);
PRINT_NAMED_CONSTANT(KEY_COPY);
PRINT_NAMED_CONSTANT(KEY_CREATE);
PRINT_NAMED_CONSTANT(KEY_END);
PRINT_NAMED_CONSTANT(KEY_EXIT);
PRINT_NAMED_CONSTANT(KEY_FIND);
PRINT_NAMED_CONSTANT(KEY_HELP);
PRINT_NAMED_CONSTANT(KEY_MARK);
PRINT_NAMED_CONSTANT(KEY_MESSAGE);
PRINT_NAMED_CONSTANT(KEY_MOVE);
PRINT_NAMED_CONSTANT(KEY_NEXT);
PRINT_NAMED_CONSTANT(KEY_OPEN);
PRINT_NAMED_CONSTANT(KEY_OPTIONS);
PRINT_NAMED_CONSTANT(KEY_PREVIOUS);
PRINT_NAMED_CONSTANT(KEY_REDO);
PRINT_NAMED_CONSTANT(KEY_REFERENCE);
PRINT_NAMED_CONSTANT(KEY_REFRESH);
PRINT_NAMED_CONSTANT(KEY_REPLACE);
PRINT_NAMED_CONSTANT(KEY_RESTART);
PRINT_NAMED_CONSTANT(KEY_RESUME);
PRINT_NAMED_CONSTANT(KEY_SAVE);
PRINT_NAMED_CONSTANT(KEY_SBEG);
PRINT_NAMED_CONSTANT(KEY_SCANCEL);
PRINT_NAMED_CONSTANT(KEY_SCOMMAND);
PRINT_NAMED_CONSTANT(KEY_SCOPY);
PRINT_NAMED_CONSTANT(KEY_SCREATE);
PRINT_NAMED_CONSTANT(KEY_SDC);
PRINT_NAMED_CONSTANT(KEY_SDL);
PRINT_NAMED_CONSTANT(KEY_SELECT);
PRINT_NAMED_CONSTANT(KEY_SEND);
PRINT_NAMED_CONSTANT(KEY_SEOL);
PRINT_NAMED_CONSTANT(KEY_SEXIT);
PRINT_NAMED_CONSTANT(KEY_SFIND);
PRINT_NAMED_CONSTANT(KEY_SHELP);
PRINT_NAMED_CONSTANT(KEY_SHOME);
PRINT_NAMED_CONSTANT(KEY_SIC);
PRINT_NAMED_CONSTANT(KEY_SLEFT);
PRINT_NAMED_CONSTANT(KEY_SMESSAGE);
PRINT_NAMED_CONSTANT(KEY_SMOVE);
PRINT_NAMED_CONSTANT(KEY_SNEXT);
PRINT_NAMED_CONSTANT(KEY_SOPTIONS);
PRINT_NAMED_CONSTANT(KEY_SPREVIOUS);
PRINT_NAMED_CONSTANT(KEY_SPRINT);
PRINT_NAMED_CONSTANT(KEY_SREDO);
PRINT_NAMED_CONSTANT(KEY_SREPLACE);
PRINT_NAMED_CONSTANT(KEY_SRIGHT);
PRINT_NAMED_CONSTANT(KEY_SRSUME);
PRINT_NAMED_CONSTANT(KEY_SSAVE);
PRINT_NAMED_CONSTANT(KEY_SSUSPEND);
PRINT_NAMED_CONSTANT(KEY_SUNDO);
PRINT_NAMED_CONSTANT(KEY_SUSPEND);
PRINT_NAMED_CONSTANT(KEY_UNDO);
PRINT_NAMED_CONSTANT(KEY_MOUSE);
PRINT_NAMED_CONSTANT(KEY_RESIZE);
print_comment(fp, "alternate character codes (ACS) from addch(3NCURSES)");
#define PRINT_ACS(name) print_size_of (fp, #name, (size_t)(&name - &acs_map[0]))
PRINT_ACS(ACS_ULCORNER);
PRINT_ACS(ACS_LLCORNER);
PRINT_ACS(ACS_URCORNER);
PRINT_ACS(ACS_LRCORNER);
PRINT_ACS(ACS_LTEE);
PRINT_ACS(ACS_RTEE);
PRINT_ACS(ACS_BTEE);
PRINT_ACS(ACS_TTEE);
PRINT_ACS(ACS_HLINE);
PRINT_ACS(ACS_VLINE);
PRINT_ACS(ACS_PLUS);
PRINT_ACS(ACS_S1);
PRINT_ACS(ACS_S9);
PRINT_ACS(ACS_DIAMOND);
PRINT_ACS(ACS_CKBOARD);
PRINT_ACS(ACS_DEGREE);
PRINT_ACS(ACS_PLMINUS);
PRINT_ACS(ACS_BULLET);
PRINT_ACS(ACS_LARROW);
PRINT_ACS(ACS_RARROW);
PRINT_ACS(ACS_DARROW);
PRINT_ACS(ACS_UARROW);
PRINT_ACS(ACS_BOARD);
PRINT_ACS(ACS_LANTERN);
PRINT_ACS(ACS_BLOCK);
PRINT_ACS(ACS_S3);
PRINT_ACS(ACS_S7);
PRINT_ACS(ACS_LEQUAL);
PRINT_ACS(ACS_GEQUAL);
PRINT_ACS(ACS_PI);
PRINT_ACS(ACS_NEQUAL);
PRINT_ACS(ACS_STERLING);
print_comment(fp, "Menu_Options from opts(3MENU)");
PRINT_NAMED_BITMASK(Menu_Options, O_ONEVALUE);
PRINT_NAMED_BITMASK(Menu_Options, O_SHOWDESC);
PRINT_NAMED_BITMASK(Menu_Options, O_ROWMAJOR);
PRINT_NAMED_BITMASK(Menu_Options, O_IGNORECASE);
PRINT_NAMED_BITMASK(Menu_Options, O_SHOWMATCH);
PRINT_NAMED_BITMASK(Menu_Options, O_NONCYCLIC);
print_size_of(fp, "Menu_Options_Size", 8 * sizeof(Menu_Options));
print_comment(fp, "Item_Options from menu_opts(3MENU)");
PRINT_NAMED_BITMASK(Item_Options, O_SELECTABLE);
print_size_of(fp, "Item_Options_Size", 8 * sizeof(Item_Options));
print_comment(fp, "Field_Options from field_opts(3FORM)");
PRINT_NAMED_BITMASK(Field_Options, O_VISIBLE);
PRINT_NAMED_BITMASK(Field_Options, O_ACTIVE);
PRINT_NAMED_BITMASK(Field_Options, O_PUBLIC);
PRINT_NAMED_BITMASK(Field_Options, O_EDIT);
PRINT_NAMED_BITMASK(Field_Options, O_WRAP);
PRINT_NAMED_BITMASK(Field_Options, O_BLANK);
PRINT_NAMED_BITMASK(Field_Options, O_AUTOSKIP);
PRINT_NAMED_BITMASK(Field_Options, O_NULLOK);
PRINT_NAMED_BITMASK(Field_Options, O_PASSOK);
PRINT_NAMED_BITMASK(Field_Options, O_STATIC);
print_size_of(fp, "Field_Options_Size", 8 * sizeof(Field_Options));
print_comment(fp, "Field_Options from opts(3FORM)");
PRINT_NAMED_BITMASK(Field_Options, O_NL_OVERLOAD);
PRINT_NAMED_BITMASK(Field_Options, O_BS_OVERLOAD);
/* Field_Options_Size is defined below */
print_comment(fp, "MEVENT structure from mouse(3NCURSES)");
STRUCT_OFFSET(MEVENT, id);
STRUCT_OFFSET(MEVENT, x);
STRUCT_OFFSET(MEVENT, y);
STRUCT_OFFSET(MEVENT, z);
STRUCT_OFFSET(MEVENT, bstate);
print_size_of(fp, "MEVENT_Size", 8 * sizeof(MEVENT));
print_comment(fp, "mouse events from mouse(3NCURSES)");
{
mmask_t all_events;
#define PRINT_MOUSE_EVENT(event) \
print_constant (fp, #event, event); \
all_events |= event
all_events = 0;
PRINT_MOUSE_EVENT(BUTTON1_RELEASED);
PRINT_MOUSE_EVENT(BUTTON1_PRESSED);
PRINT_MOUSE_EVENT(BUTTON1_CLICKED);
PRINT_MOUSE_EVENT(BUTTON1_DOUBLE_CLICKED);
PRINT_MOUSE_EVENT(BUTTON1_TRIPLE_CLICKED);
#ifdef BUTTON1_RESERVED_EVENT
PRINT_MOUSE_EVENT(BUTTON1_RESERVED_EVENT);
#endif
print_constant(fp, "all_events_button_1", (UINT) all_events);
all_events = 0;
PRINT_MOUSE_EVENT(BUTTON2_RELEASED);
PRINT_MOUSE_EVENT(BUTTON2_PRESSED);
PRINT_MOUSE_EVENT(BUTTON2_CLICKED);
PRINT_MOUSE_EVENT(BUTTON2_DOUBLE_CLICKED);
PRINT_MOUSE_EVENT(BUTTON2_TRIPLE_CLICKED);
#ifdef BUTTON2_RESERVED_EVENT
PRINT_MOUSE_EVENT(BUTTON2_RESERVED_EVENT);
#endif
print_constant(fp, "all_events_button_2", (UINT) all_events);
all_events = 0;
PRINT_MOUSE_EVENT(BUTTON3_RELEASED);
PRINT_MOUSE_EVENT(BUTTON3_PRESSED);
PRINT_MOUSE_EVENT(BUTTON3_CLICKED);
PRINT_MOUSE_EVENT(BUTTON3_DOUBLE_CLICKED);
PRINT_MOUSE_EVENT(BUTTON3_TRIPLE_CLICKED);
#ifdef BUTTON3_RESERVED_EVENT
PRINT_MOUSE_EVENT(BUTTON3_RESERVED_EVENT);
#endif
print_constant(fp, "all_events_button_3", (UINT) all_events);
all_events = 0;
PRINT_MOUSE_EVENT(BUTTON4_RELEASED);
PRINT_MOUSE_EVENT(BUTTON4_PRESSED);
PRINT_MOUSE_EVENT(BUTTON4_CLICKED);
PRINT_MOUSE_EVENT(BUTTON4_DOUBLE_CLICKED);
PRINT_MOUSE_EVENT(BUTTON4_TRIPLE_CLICKED);
#ifdef BUTTON4_RESERVED_EVENT
PRINT_MOUSE_EVENT(BUTTON4_RESERVED_EVENT);
#endif
print_constant(fp, "all_events_button_4", (UINT) all_events);
}
PRINT_NAMED_CONSTANT(BUTTON_CTRL);
PRINT_NAMED_CONSTANT(BUTTON_SHIFT);
PRINT_NAMED_CONSTANT(BUTTON_ALT);
PRINT_NAMED_CONSTANT(REPORT_MOUSE_POSITION);
PRINT_NAMED_CONSTANT(ALL_MOUSE_EVENTS);
print_comment(fp, "trace selection from trace(3NCURSES)");
PRINT_NAMED_BITMASK(UINT, TRACE_TIMES);
PRINT_NAMED_BITMASK(UINT, TRACE_TPUTS);
PRINT_NAMED_BITMASK(UINT, TRACE_UPDATE);
PRINT_NAMED_BITMASK(UINT, TRACE_MOVE);
PRINT_NAMED_BITMASK(UINT, TRACE_CHARPUT);
PRINT_NAMED_BITMASK(UINT, TRACE_CALLS);
PRINT_NAMED_BITMASK(UINT, TRACE_VIRTPUT);
PRINT_NAMED_BITMASK(UINT, TRACE_IEVENT);
PRINT_NAMED_BITMASK(UINT, TRACE_BITS);
PRINT_NAMED_BITMASK(UINT, TRACE_ICALLS);
PRINT_NAMED_BITMASK(UINT, TRACE_CCALLS);
PRINT_NAMED_BITMASK(UINT, TRACE_DATABASE);
PRINT_NAMED_BITMASK(UINT, TRACE_ATTRS);
print_size_of(fp, "Trace_Size", 8 * sizeof(UINT));
fprintf(fp, "end Terminal_Interface.Curses_Constants;\n");
exit(EXIT_SUCCESS);
}
AdaCurses-20211021/gen/html.m4 0000644 0001751 0000144 00000005354 13615656212 014332 0 ustar tom users dnl***************************************************************************
dnl Copyright 2019,2020 Thomas E. Dickey *
dnl Copyright 2000-2006,2007 Free Software Foundation, Inc. *
dnl *
dnl Permission is hereby granted, free of charge, to any person obtaining a *
dnl copy of this software and associated documentation files (the *
dnl "Software"), to deal in the Software without restriction, including *
dnl without limitation the rights to use, copy, modify, merge, publish, *
dnl distribute, distribute with modifications, sublicense, and/or sell *
dnl copies of the Software, and to permit persons to whom the Software is *
dnl furnished to do so, subject to the following conditions: *
dnl *
dnl The above copyright notice and this permission notice shall be included *
dnl in all copies or substantial portions of the Software. *
dnl *
dnl THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS *
dnl OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF *
dnl MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. *
dnl IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, *
dnl DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR *
dnl OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR *
dnl THE USE OR OTHER DEALINGS IN THE SOFTWARE. *
dnl *
dnl Except as contained in this notice, the name(s) of the above copyright *
dnl holders shall not be used in advertising or otherwise to promote the *
dnl sale, use or other dealings in this Software without prior written *
dnl authorization. *
dnl***************************************************************************
dnl
dnl $Id: html.m4,v 1.5 2020/02/02 23:34:34 tom Exp $
define(`ANCHORIDX',`0')dnl
define(`MANPAGE',`define(`MANPG',$1)dnl
|=====================================================================
-- | Man page MANPG
-- |=====================================================================')dnl
define(`ANCHOR',`define(`ANCHORIDX',incr(ANCHORIDX))dnl
`#'1A NAME="AFU`_'ANCHORIDX"`#'2dnl
define(`CFUNAME',`$1')define(`AFUNAME',`$2')dnl
|#1/A#2')dnl
define(`AKA',``AKA': CFUNAME')dnl
define(`ALIAS',``AKA': $1')dnl
AdaCurses-20211021/gen/normal.m4 0000644 0001751 0000144 00000005102 13615656212 014645 0 ustar tom users dnl***************************************************************************
dnl Copyright 2020 Thomas E. Dickey *
dnl Copyright 1998,2006 Free Software Foundation, Inc. *
dnl *
dnl Permission is hereby granted, free of charge, to any person obtaining a *
dnl copy of this software and associated documentation files (the *
dnl "Software"), to deal in the Software without restriction, including *
dnl without limitation the rights to use, copy, modify, merge, publish, *
dnl distribute, distribute with modifications, sublicense, and/or sell *
dnl copies of the Software, and to permit persons to whom the Software is *
dnl furnished to do so, subject to the following conditions: *
dnl *
dnl The above copyright notice and this permission notice shall be included *
dnl in all copies or substantial portions of the Software. *
dnl *
dnl THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS *
dnl OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF *
dnl MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. *
dnl IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, *
dnl DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR *
dnl OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR *
dnl THE USE OR OTHER DEALINGS IN THE SOFTWARE. *
dnl *
dnl Except as contained in this notice, the name(s) of the above copyright *
dnl holders shall not be used in advertising or otherwise to promote the *
dnl sale, use or other dealings in this Software without prior written *
dnl authorization. *
dnl***************************************************************************
dnl
dnl $Id: normal.m4,v 1.3 2020/02/02 23:34:34 tom Exp $
define(`MANPAGE',`define(`MANPG',$1)dnl
|=====================================================================
-- | Man page MANPG
-- |=====================================================================')dnl
define(`ANCHOR',`define(`CFUNAME',`$1')define(`AFUNAME',`$2')'dnl
|)dnl
define(`AKA',``AKA': CFUNAME')dnl
define(`ALIAS',``AKA': $1')dnl
AdaCurses-20211021/config.sub 0000755 0001751 0000144 00000104714 14105766526 014343 0 ustar tom users #! /bin/sh
# Configuration validation subroutine script.
# Copyright 1992-2021 Free Software Foundation, Inc.
# shellcheck disable=SC2006,SC2268 # see below for rationale
timestamp='2021-08-14'
# This file is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, see .
#
# As a special exception to the GNU General Public License, if you
# distribute this file as part of a program that contains a
# configuration script generated by Autoconf, you may include it under
# the same distribution terms that you use for the rest of that
# program. This Exception is an additional permission under section 7
# of the GNU General Public License, version 3 ("GPLv3").
# Please send patches to .
#
# Configuration subroutine to validate and canonicalize a configuration type.
# Supply the specified configuration type as an argument.
# If it is invalid, we print an error message on stderr and exit with code 1.
# Otherwise, we print the canonical config type on stdout and succeed.
# You can get the latest version of this script from:
# https://git.savannah.gnu.org/cgit/config.git/plain/config.sub
# This file is supposed to be the same for all GNU packages
# and recognize all the CPU types, system types and aliases
# that are meaningful with *any* GNU software.
# Each package is responsible for reporting which valid configurations
# it does not support. The user should be able to distinguish
# a failure to support a valid configuration from a meaningless
# configuration.
# The goal of this file is to map all the various variations of a given
# machine specification into a single specification in the form:
# CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM
# or in some cases, the newer four-part form:
# CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM
# It is wrong to echo any other type of specification.
# The "shellcheck disable" line above the timestamp inhibits complaints
# about features and limitations of the classic Bourne shell that were
# superseded or lifted in POSIX. However, this script identifies a wide
# variety of pre-POSIX systems that do not have POSIX shells at all, and
# even some reasonably current systems (Solaris 10 as case-in-point) still
# have a pre-POSIX /bin/sh.
me=`echo "$0" | sed -e 's,.*/,,'`
usage="\
Usage: $0 [OPTION] CPU-MFR-OPSYS or ALIAS
Canonicalize a configuration name.
Options:
-h, --help print this help, then exit
-t, --time-stamp print date of last modification, then exit
-v, --version print version number, then exit
Report bugs and patches to ."
version="\
GNU config.sub ($timestamp)
Copyright 1992-2021 Free Software Foundation, Inc.
This is free software; see the source for copying conditions. There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE."
help="
Try \`$me --help' for more information."
# Parse command line
while test $# -gt 0 ; do
case $1 in
--time-stamp | --time* | -t )
echo "$timestamp" ; exit ;;
--version | -v )
echo "$version" ; exit ;;
--help | --h* | -h )
echo "$usage"; exit ;;
-- ) # Stop option processing
shift; break ;;
- ) # Use stdin as input.
break ;;
-* )
echo "$me: invalid option $1$help" >&2
exit 1 ;;
*local*)
# First pass through any local machine types.
echo "$1"
exit ;;
* )
break ;;
esac
done
case $# in
0) echo "$me: missing argument$help" >&2
exit 1;;
1) ;;
*) echo "$me: too many arguments$help" >&2
exit 1;;
esac
# Split fields of configuration type
# shellcheck disable=SC2162
saved_IFS=$IFS
IFS="-" read field1 field2 field3 field4 <&2
exit 1
;;
*-*-*-*)
basic_machine=$field1-$field2
basic_os=$field3-$field4
;;
*-*-*)
# Ambiguous whether COMPANY is present, or skipped and KERNEL-OS is two
# parts
maybe_os=$field2-$field3
case $maybe_os in
nto-qnx* | linux-* | uclinux-uclibc* \
| uclinux-gnu* | kfreebsd*-gnu* | knetbsd*-gnu* | netbsd*-gnu* \
| netbsd*-eabi* | kopensolaris*-gnu* | cloudabi*-eabi* \
| storm-chaos* | os2-emx* | rtmk-nova*)
basic_machine=$field1
basic_os=$maybe_os
;;
android-linux)
basic_machine=$field1-unknown
basic_os=linux-android
;;
*)
basic_machine=$field1-$field2
basic_os=$field3
;;
esac
;;
*-*)
# A lone config we happen to match not fitting any pattern
case $field1-$field2 in
decstation-3100)
basic_machine=mips-dec
basic_os=
;;
*-*)
# Second component is usually, but not always the OS
case $field2 in
# Prevent following clause from handling this valid os
sun*os*)
basic_machine=$field1
basic_os=$field2
;;
zephyr*)
basic_machine=$field1-unknown
basic_os=$field2
;;
# Manufacturers
dec* | mips* | sequent* | encore* | pc533* | sgi* | sony* \
| att* | 7300* | 3300* | delta* | motorola* | sun[234]* \
| unicom* | ibm* | next | hp | isi* | apollo | altos* \
| convergent* | ncr* | news | 32* | 3600* | 3100* \
| hitachi* | c[123]* | convex* | sun | crds | omron* | dg \
| ultra | tti* | harris | dolphin | highlevel | gould \
| cbm | ns | masscomp | apple | axis | knuth | cray \
| microblaze* | sim | cisco \
| oki | wec | wrs | winbond)
basic_machine=$field1-$field2
basic_os=
;;
*)
basic_machine=$field1
basic_os=$field2
;;
esac
;;
esac
;;
*)
# Convert single-component short-hands not valid as part of
# multi-component configurations.
case $field1 in
386bsd)
basic_machine=i386-pc
basic_os=bsd
;;
a29khif)
basic_machine=a29k-amd
basic_os=udi
;;
adobe68k)
basic_machine=m68010-adobe
basic_os=scout
;;
alliant)
basic_machine=fx80-alliant
basic_os=
;;
altos | altos3068)
basic_machine=m68k-altos
basic_os=
;;
am29k)
basic_machine=a29k-none
basic_os=bsd
;;
amdahl)
basic_machine=580-amdahl
basic_os=sysv
;;
amiga)
basic_machine=m68k-unknown
basic_os=
;;
amigaos | amigados)
basic_machine=m68k-unknown
basic_os=amigaos
;;
amigaunix | amix)
basic_machine=m68k-unknown
basic_os=sysv4
;;
apollo68)
basic_machine=m68k-apollo
basic_os=sysv
;;
apollo68bsd)
basic_machine=m68k-apollo
basic_os=bsd
;;
aros)
basic_machine=i386-pc
basic_os=aros
;;
aux)
basic_machine=m68k-apple
basic_os=aux
;;
balance)
basic_machine=ns32k-sequent
basic_os=dynix
;;
blackfin)
basic_machine=bfin-unknown
basic_os=linux
;;
cegcc)
basic_machine=arm-unknown
basic_os=cegcc
;;
convex-c1)
basic_machine=c1-convex
basic_os=bsd
;;
convex-c2)
basic_machine=c2-convex
basic_os=bsd
;;
convex-c32)
basic_machine=c32-convex
basic_os=bsd
;;
convex-c34)
basic_machine=c34-convex
basic_os=bsd
;;
convex-c38)
basic_machine=c38-convex
basic_os=bsd
;;
cray)
basic_machine=j90-cray
basic_os=unicos
;;
crds | unos)
basic_machine=m68k-crds
basic_os=
;;
da30)
basic_machine=m68k-da30
basic_os=
;;
decstation | pmax | pmin | dec3100 | decstatn)
basic_machine=mips-dec
basic_os=
;;
delta88)
basic_machine=m88k-motorola
basic_os=sysv3
;;
dicos)
basic_machine=i686-pc
basic_os=dicos
;;
djgpp)
basic_machine=i586-pc
basic_os=msdosdjgpp
;;
ebmon29k)
basic_machine=a29k-amd
basic_os=ebmon
;;
es1800 | OSE68k | ose68k | ose | OSE)
basic_machine=m68k-ericsson
basic_os=ose
;;
gmicro)
basic_machine=tron-gmicro
basic_os=sysv
;;
go32)
basic_machine=i386-pc
basic_os=go32
;;
h8300hms)
basic_machine=h8300-hitachi
basic_os=hms
;;
h8300xray)
basic_machine=h8300-hitachi
basic_os=xray
;;
h8500hms)
basic_machine=h8500-hitachi
basic_os=hms
;;
harris)
basic_machine=m88k-harris
basic_os=sysv3
;;
hp300 | hp300hpux)
basic_machine=m68k-hp
basic_os=hpux
;;
hp300bsd)
basic_machine=m68k-hp
basic_os=bsd
;;
hppaosf)
basic_machine=hppa1.1-hp
basic_os=osf
;;
hppro)
basic_machine=hppa1.1-hp
basic_os=proelf
;;
i386mach)
basic_machine=i386-mach
basic_os=mach
;;
isi68 | isi)
basic_machine=m68k-isi
basic_os=sysv
;;
m68knommu)
basic_machine=m68k-unknown
basic_os=linux
;;
magnum | m3230)
basic_machine=mips-mips
basic_os=sysv
;;
merlin)
basic_machine=ns32k-utek
basic_os=sysv
;;
mingw64)
basic_machine=x86_64-pc
basic_os=mingw64
;;
mingw32)
basic_machine=i686-pc
basic_os=mingw32
;;
mingw32ce)
basic_machine=arm-unknown
basic_os=mingw32ce
;;
monitor)
basic_machine=m68k-rom68k
basic_os=coff
;;
morphos)
basic_machine=powerpc-unknown
basic_os=morphos
;;
moxiebox)
basic_machine=moxie-unknown
basic_os=moxiebox
;;
msdos)
basic_machine=i386-pc
basic_os=msdos
;;
msys)
basic_machine=i686-pc
basic_os=msys
;;
mvs)
basic_machine=i370-ibm
basic_os=mvs
;;
nacl)
basic_machine=le32-unknown
basic_os=nacl
;;
ncr3000)
basic_machine=i486-ncr
basic_os=sysv4
;;
netbsd386)
basic_machine=i386-pc
basic_os=netbsd
;;
netwinder)
basic_machine=armv4l-rebel
basic_os=linux
;;
news | news700 | news800 | news900)
basic_machine=m68k-sony
basic_os=newsos
;;
news1000)
basic_machine=m68030-sony
basic_os=newsos
;;
necv70)
basic_machine=v70-nec
basic_os=sysv
;;
nh3000)
basic_machine=m68k-harris
basic_os=cxux
;;
nh[45]000)
basic_machine=m88k-harris
basic_os=cxux
;;
nindy960)
basic_machine=i960-intel
basic_os=nindy
;;
mon960)
basic_machine=i960-intel
basic_os=mon960
;;
nonstopux)
basic_machine=mips-compaq
basic_os=nonstopux
;;
os400)
basic_machine=powerpc-ibm
basic_os=os400
;;
OSE68000 | ose68000)
basic_machine=m68000-ericsson
basic_os=ose
;;
os68k)
basic_machine=m68k-none
basic_os=os68k
;;
paragon)
basic_machine=i860-intel
basic_os=osf
;;
parisc)
basic_machine=hppa-unknown
basic_os=linux
;;
psp)
basic_machine=mipsallegrexel-sony
basic_os=psp
;;
pw32)
basic_machine=i586-unknown
basic_os=pw32
;;
rdos | rdos64)
basic_machine=x86_64-pc
basic_os=rdos
;;
rdos32)
basic_machine=i386-pc
basic_os=rdos
;;
rom68k)
basic_machine=m68k-rom68k
basic_os=coff
;;
sa29200)
basic_machine=a29k-amd
basic_os=udi
;;
sei)
basic_machine=mips-sei
basic_os=seiux
;;
sequent)
basic_machine=i386-sequent
basic_os=
;;
sps7)
basic_machine=m68k-bull
basic_os=sysv2
;;
st2000)
basic_machine=m68k-tandem
basic_os=
;;
stratus)
basic_machine=i860-stratus
basic_os=sysv4
;;
sun2)
basic_machine=m68000-sun
basic_os=
;;
sun2os3)
basic_machine=m68000-sun
basic_os=sunos3
;;
sun2os4)
basic_machine=m68000-sun
basic_os=sunos4
;;
sun3)
basic_machine=m68k-sun
basic_os=
;;
sun3os3)
basic_machine=m68k-sun
basic_os=sunos3
;;
sun3os4)
basic_machine=m68k-sun
basic_os=sunos4
;;
sun4)
basic_machine=sparc-sun
basic_os=
;;
sun4os3)
basic_machine=sparc-sun
basic_os=sunos3
;;
sun4os4)
basic_machine=sparc-sun
basic_os=sunos4
;;
sun4sol2)
basic_machine=sparc-sun
basic_os=solaris2
;;
sun386 | sun386i | roadrunner)
basic_machine=i386-sun
basic_os=
;;
sv1)
basic_machine=sv1-cray
basic_os=unicos
;;
symmetry)
basic_machine=i386-sequent
basic_os=dynix
;;
t3e)
basic_machine=alphaev5-cray
basic_os=unicos
;;
t90)
basic_machine=t90-cray
basic_os=unicos
;;
toad1)
basic_machine=pdp10-xkl
basic_os=tops20
;;
tpf)
basic_machine=s390x-ibm
basic_os=tpf
;;
udi29k)
basic_machine=a29k-amd
basic_os=udi
;;
ultra3)
basic_machine=a29k-nyu
basic_os=sym1
;;
v810 | necv810)
basic_machine=v810-nec
basic_os=none
;;
vaxv)
basic_machine=vax-dec
basic_os=sysv
;;
vms)
basic_machine=vax-dec
basic_os=vms
;;
vsta)
basic_machine=i386-pc
basic_os=vsta
;;
vxworks960)
basic_machine=i960-wrs
basic_os=vxworks
;;
vxworks68)
basic_machine=m68k-wrs
basic_os=vxworks
;;
vxworks29k)
basic_machine=a29k-wrs
basic_os=vxworks
;;
xbox)
basic_machine=i686-pc
basic_os=mingw32
;;
ymp)
basic_machine=ymp-cray
basic_os=unicos
;;
*)
basic_machine=$1
basic_os=
;;
esac
;;
esac
# Decode 1-component or ad-hoc basic machines
case $basic_machine in
# Here we handle the default manufacturer of certain CPU types. It is in
# some cases the only manufacturer, in others, it is the most popular.
w89k)
cpu=hppa1.1
vendor=winbond
;;
op50n)
cpu=hppa1.1
vendor=oki
;;
op60c)
cpu=hppa1.1
vendor=oki
;;
ibm*)
cpu=i370
vendor=ibm
;;
orion105)
cpu=clipper
vendor=highlevel
;;
mac | mpw | mac-mpw)
cpu=m68k
vendor=apple
;;
pmac | pmac-mpw)
cpu=powerpc
vendor=apple
;;
# Recognize the various machine names and aliases which stand
# for a CPU type and a company and sometimes even an OS.
3b1 | 7300 | 7300-att | att-7300 | pc7300 | safari | unixpc)
cpu=m68000
vendor=att
;;
3b*)
cpu=we32k
vendor=att
;;
bluegene*)
cpu=powerpc
vendor=ibm
basic_os=cnk
;;
decsystem10* | dec10*)
cpu=pdp10
vendor=dec
basic_os=tops10
;;
decsystem20* | dec20*)
cpu=pdp10
vendor=dec
basic_os=tops20
;;
delta | 3300 | motorola-3300 | motorola-delta \
| 3300-motorola | delta-motorola)
cpu=m68k
vendor=motorola
;;
dpx2*)
cpu=m68k
vendor=bull
basic_os=sysv3
;;
encore | umax | mmax)
cpu=ns32k
vendor=encore
;;
elxsi)
cpu=elxsi
vendor=elxsi
basic_os=${basic_os:-bsd}
;;
fx2800)
cpu=i860
vendor=alliant
;;
genix)
cpu=ns32k
vendor=ns
;;
h3050r* | hiux*)
cpu=hppa1.1
vendor=hitachi
basic_os=hiuxwe2
;;
hp3k9[0-9][0-9] | hp9[0-9][0-9])
cpu=hppa1.0
vendor=hp
;;
hp9k2[0-9][0-9] | hp9k31[0-9])
cpu=m68000
vendor=hp
;;
hp9k3[2-9][0-9])
cpu=m68k
vendor=hp
;;
hp9k6[0-9][0-9] | hp6[0-9][0-9])
cpu=hppa1.0
vendor=hp
;;
hp9k7[0-79][0-9] | hp7[0-79][0-9])
cpu=hppa1.1
vendor=hp
;;
hp9k78[0-9] | hp78[0-9])
# FIXME: really hppa2.0-hp
cpu=hppa1.1
vendor=hp
;;
hp9k8[67]1 | hp8[67]1 | hp9k80[24] | hp80[24] | hp9k8[78]9 | hp8[78]9 | hp9k893 | hp893)
# FIXME: really hppa2.0-hp
cpu=hppa1.1
vendor=hp
;;
hp9k8[0-9][13679] | hp8[0-9][13679])
cpu=hppa1.1
vendor=hp
;;
hp9k8[0-9][0-9] | hp8[0-9][0-9])
cpu=hppa1.0
vendor=hp
;;
i*86v32)
cpu=`echo "$1" | sed -e 's/86.*/86/'`
vendor=pc
basic_os=sysv32
;;
i*86v4*)
cpu=`echo "$1" | sed -e 's/86.*/86/'`
vendor=pc
basic_os=sysv4
;;
i*86v)
cpu=`echo "$1" | sed -e 's/86.*/86/'`
vendor=pc
basic_os=sysv
;;
i*86sol2)
cpu=`echo "$1" | sed -e 's/86.*/86/'`
vendor=pc
basic_os=solaris2
;;
j90 | j90-cray)
cpu=j90
vendor=cray
basic_os=${basic_os:-unicos}
;;
iris | iris4d)
cpu=mips
vendor=sgi
case $basic_os in
irix*)
;;
*)
basic_os=irix4
;;
esac
;;
miniframe)
cpu=m68000
vendor=convergent
;;
*mint | mint[0-9]* | *MiNT | *MiNT[0-9]*)
cpu=m68k
vendor=atari
basic_os=mint
;;
news-3600 | risc-news)
cpu=mips
vendor=sony
basic_os=newsos
;;
next | m*-next)
cpu=m68k
vendor=next
case $basic_os in
openstep*)
;;
nextstep*)
;;
ns2*)
basic_os=nextstep2
;;
*)
basic_os=nextstep3
;;
esac
;;
np1)
cpu=np1
vendor=gould
;;
op50n-* | op60c-*)
cpu=hppa1.1
vendor=oki
basic_os=proelf
;;
pa-hitachi)
cpu=hppa1.1
vendor=hitachi
basic_os=hiuxwe2
;;
pbd)
cpu=sparc
vendor=tti
;;
pbb)
cpu=m68k
vendor=tti
;;
pc532)
cpu=ns32k
vendor=pc532
;;
pn)
cpu=pn
vendor=gould
;;
power)
cpu=power
vendor=ibm
;;
ps2)
cpu=i386
vendor=ibm
;;
rm[46]00)
cpu=mips
vendor=siemens
;;
rtpc | rtpc-*)
cpu=romp
vendor=ibm
;;
sde)
cpu=mipsisa32
vendor=sde
basic_os=${basic_os:-elf}
;;
simso-wrs)
cpu=sparclite
vendor=wrs
basic_os=vxworks
;;
tower | tower-32)
cpu=m68k
vendor=ncr
;;
vpp*|vx|vx-*)
cpu=f301
vendor=fujitsu
;;
w65)
cpu=w65
vendor=wdc
;;
w89k-*)
cpu=hppa1.1
vendor=winbond
basic_os=proelf
;;
none)
cpu=none
vendor=none
;;
leon|leon[3-9])
cpu=sparc
vendor=$basic_machine
;;
leon-*|leon[3-9]-*)
cpu=sparc
vendor=`echo "$basic_machine" | sed 's/-.*//'`
;;
*-*)
# shellcheck disable=SC2162
saved_IFS=$IFS
IFS="-" read cpu vendor <&2
exit 1
;;
esac
;;
esac
# Here we canonicalize certain aliases for manufacturers.
case $vendor in
digital*)
vendor=dec
;;
commodore*)
vendor=cbm
;;
*)
;;
esac
# Decode manufacturer-specific aliases for certain operating systems.
if test x$basic_os != x
then
# First recognize some ad-hoc caes, or perhaps split kernel-os, or else just
# set os.
case $basic_os in
gnu/linux*)
kernel=linux
os=`echo "$basic_os" | sed -e 's|gnu/linux|gnu|'`
;;
os2-emx)
kernel=os2
os=`echo "$basic_os" | sed -e 's|os2-emx|emx|'`
;;
nto-qnx*)
kernel=nto
os=`echo "$basic_os" | sed -e 's|nto-qnx|qnx|'`
;;
*-*)
# shellcheck disable=SC2162
saved_IFS=$IFS
IFS="-" read kernel os <&2
exit 1
;;
esac
# As a final step for OS-related things, validate the OS-kernel combination
# (given a valid OS), if there is a kernel.
case $kernel-$os in
linux-gnu* | linux-dietlibc* | linux-android* | linux-newlib* \
| linux-musl* | linux-relibc* | linux-uclibc* )
;;
uclinux-uclibc* )
;;
-dietlibc* | -newlib* | -musl* | -relibc* | -uclibc* )
# These are just libc implementations, not actual OSes, and thus
# require a kernel.
echo "Invalid configuration \`$1': libc \`$os' needs explicit kernel." 1>&2
exit 1
;;
kfreebsd*-gnu* | kopensolaris*-gnu*)
;;
vxworks-simlinux | vxworks-simwindows | vxworks-spe)
;;
nto-qnx*)
;;
os2-emx)
;;
*-eabi* | *-gnueabi*)
;;
-*)
# Blank kernel with real OS is always fine.
;;
*-*)
echo "Invalid configuration \`$1': Kernel \`$kernel' not known to work with OS \`$os'." 1>&2
exit 1
;;
esac
# Here we handle the case where we know the os, and the CPU type, but not the
# manufacturer. We pick the logical manufacturer.
case $vendor in
unknown)
case $cpu-$os in
*-riscix*)
vendor=acorn
;;
*-sunos*)
vendor=sun
;;
*-cnk* | *-aix*)
vendor=ibm
;;
*-beos*)
vendor=be
;;
*-hpux*)
vendor=hp
;;
*-mpeix*)
vendor=hp
;;
*-hiux*)
vendor=hitachi
;;
*-unos*)
vendor=crds
;;
*-dgux*)
vendor=dg
;;
*-luna*)
vendor=omron
;;
*-genix*)
vendor=ns
;;
*-clix*)
vendor=intergraph
;;
*-mvs* | *-opened*)
vendor=ibm
;;
*-os400*)
vendor=ibm
;;
s390-* | s390x-*)
vendor=ibm
;;
*-ptx*)
vendor=sequent
;;
*-tpf*)
vendor=ibm
;;
*-vxsim* | *-vxworks* | *-windiss*)
vendor=wrs
;;
*-aux*)
vendor=apple
;;
*-hms*)
vendor=hitachi
;;
*-mpw* | *-macos*)
vendor=apple
;;
*-*mint | *-mint[0-9]* | *-*MiNT | *-MiNT[0-9]*)
vendor=atari
;;
*-vos*)
vendor=stratus
;;
esac
;;
esac
echo "$cpu-$vendor-${kernel:+$kernel-}$os"
exit
# Local variables:
# eval: (add-hook 'before-save-hook 'time-stamp)
# time-stamp-start: "timestamp='"
# time-stamp-format: "%:y-%02m-%02d"
# time-stamp-end: "'"
# End:
AdaCurses-20211021/install-sh 0000755 0001751 0000144 00000015723 07762207755 014372 0 ustar tom users #! /bin/sh
#
# install - install a program, script, or datafile
#
# This originates from X11R5 (mit/util/scripts/install.sh), which was
# later released in X11R6 (xc/config/util/install.sh) with the
# following copyright and license.
#
# Copyright (C) 1994 X Consortium
#
# 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.
#
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
# X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
# AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC-
# TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
#
# Except as contained in this notice, the name of the X Consortium shall not
# be used in advertising or otherwise to promote the sale, use or other deal-
# ings in this Software without prior written authorization from the X Consor-
# tium.
#
#
# FSF changes to this file are in the public domain.
#
# Calling this script install-sh is preferred over install.sh, to prevent
# `make' implicit rules from creating a file called install from it
# when there is no Makefile.
#
# This script is compatible with the BSD install script, but was written
# from scratch. It can only install one file at a time, a restriction
# shared with many OS's install programs.
# set DOITPROG to echo to test this script
# Don't use :- since 4.3BSD and earlier shells don't like it.
doit="${DOITPROG-}"
# put in absolute paths if you don't have them in your path; or use env. vars.
mvprog="${MVPROG-mv}"
cpprog="${CPPROG-cp}"
chmodprog="${CHMODPROG-chmod}"
chownprog="${CHOWNPROG-chown}"
chgrpprog="${CHGRPPROG-chgrp}"
stripprog="${STRIPPROG-strip}"
rmprog="${RMPROG-rm}"
mkdirprog="${MKDIRPROG-mkdir}"
transformbasename=""
transform_arg=""
instcmd="$mvprog"
chmodcmd="$chmodprog 0755"
chowncmd=""
chgrpcmd=""
stripcmd=""
rmcmd="$rmprog -f"
mvcmd="$mvprog"
src=""
dst=""
dir_arg=""
while [ x"$1" != x ]; do
case $1 in
-c) instcmd=$cpprog
shift
continue;;
-d) dir_arg=true
shift
continue;;
-m) chmodcmd="$chmodprog $2"
shift
shift
continue;;
-o) chowncmd="$chownprog $2"
shift
shift
continue;;
-g) chgrpcmd="$chgrpprog $2"
shift
shift
continue;;
-s) stripcmd=$stripprog
shift
continue;;
-t=*) transformarg=`echo $1 | sed 's/-t=//'`
shift
continue;;
-b=*) transformbasename=`echo $1 | sed 's/-b=//'`
shift
continue;;
*) if [ x"$src" = x ]
then
src=$1
else
# this colon is to work around a 386BSD /bin/sh bug
:
dst=$1
fi
shift
continue;;
esac
done
if [ x"$src" = x ]
then
echo "$0: no input file specified" >&2
exit 1
else
:
fi
if [ x"$dir_arg" != x ]; then
dst=$src
src=""
if [ -d "$dst" ]; then
instcmd=:
chmodcmd=""
else
instcmd=$mkdirprog
fi
else
# Waiting for this to be detected by the "$instcmd $src $dsttmp" command
# might cause directories to be created, which would be especially bad
# if $src (and thus $dsttmp) contains '*'.
if [ -f "$src" ] || [ -d "$src" ]
then
:
else
echo "$0: $src does not exist" >&2
exit 1
fi
if [ x"$dst" = x ]
then
echo "$0: no destination specified" >&2
exit 1
else
:
fi
# If destination is a directory, append the input filename; if your system
# does not like double slashes in filenames, you may need to add some logic
if [ -d "$dst" ]
then
dst=$dst/`basename "$src"`
else
:
fi
fi
## this sed command emulates the dirname command
dstdir=`echo "$dst" | sed -e 's,[^/]*$,,;s,/$,,;s,^$,.,'`
# Make sure that the destination directory exists.
# this part is taken from Noah Friedman's mkinstalldirs script
# Skip lots of stat calls in the usual case.
if [ ! -d "$dstdir" ]; then
defaultIFS='
'
IFS="${IFS-$defaultIFS}"
oIFS=$IFS
# Some sh's can't handle IFS=/ for some reason.
IFS='%'
set - `echo "$dstdir" | sed -e 's@/@%@g' -e 's@^%@/@'`
IFS=$oIFS
pathcomp=''
while [ $# -ne 0 ] ; do
pathcomp=$pathcomp$1
shift
if [ ! -d "$pathcomp" ] ;
then
$mkdirprog "$pathcomp"
else
:
fi
pathcomp=$pathcomp/
done
fi
if [ x"$dir_arg" != x ]
then
$doit $instcmd "$dst" &&
if [ x"$chowncmd" != x ]; then $doit $chowncmd "$dst"; else : ; fi &&
if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd "$dst"; else : ; fi &&
if [ x"$stripcmd" != x ]; then $doit $stripcmd "$dst"; else : ; fi &&
if [ x"$chmodcmd" != x ]; then $doit $chmodcmd "$dst"; else : ; fi
else
# If we're going to rename the final executable, determine the name now.
if [ x"$transformarg" = x ]
then
dstfile=`basename "$dst"`
else
dstfile=`basename "$dst" $transformbasename |
sed $transformarg`$transformbasename
fi
# don't allow the sed command to completely eliminate the filename
if [ x"$dstfile" = x ]
then
dstfile=`basename "$dst"`
else
:
fi
# Make a couple of temp file names in the proper directory.
dsttmp=$dstdir/#inst.$$#
rmtmp=$dstdir/#rm.$$#
# Trap to clean up temp files at exit.
trap 'status=$?; rm -f "$dsttmp" "$rmtmp" && exit $status' 0
trap '(exit $?); exit' 1 2 13 15
# Move or copy the file name to the temp name
$doit $instcmd "$src" "$dsttmp" &&
# and set any options; do chmod last to preserve setuid bits
# If any of these fail, we abort the whole thing. If we want to
# ignore errors from any of these, just make sure not to ignore
# errors from the above "$doit $instcmd $src $dsttmp" command.
if [ x"$chowncmd" != x ]; then $doit $chowncmd "$dsttmp"; else :;fi &&
if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd "$dsttmp"; else :;fi &&
if [ x"$stripcmd" != x ]; then $doit $stripcmd "$dsttmp"; else :;fi &&
if [ x"$chmodcmd" != x ]; then $doit $chmodcmd "$dsttmp"; else :;fi &&
# Now remove or move aside any old file at destination location. We try this
# two ways since rm can't unlink itself on some systems and the destination
# file might be busy for other reasons. In this case, the final cleanup
# might fail but the new file should still install successfully.
{
if [ -f "$dstdir/$dstfile" ]
then
$doit $rmcmd -f "$dstdir/$dstfile" 2>/dev/null ||
$doit $mvcmd -f "$dstdir/$dstfile" "$rmtmp" 2>/dev/null ||
{
echo "$0: cannot unlink or rename $dstdir/$dstfile" >&2
(exit 1); exit
}
else
:
fi
} &&
# Now rename the file to the real destination.
$doit $mvcmd "$dsttmp" "$dstdir/$dstfile"
fi &&
# The final little trick to "correctly" pass the exit status to the exit trap.
{
(exit 0); exit
}
AdaCurses-20211021/samples/ 0000755 0001751 0000144 00000000000 14134402303 013773 5 ustar tom users AdaCurses-20211021/samples/sample-keyboard_handler.ads 0000644 0001751 0000144 00000006770 13615656212 021267 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Keyboard_Handler --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2002,2003 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.11 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
-- This package contains a centralized keyboard handler used throughout
-- this example. The handler establishes a timeout mechanism that provides
-- periodical updates of the common header lines used in this example.
--
package Sample.Keyboard_Handler is
function Get_Key (Win : Window := Standard_Window) return Real_Key_Code;
-- The central routine for handling keystrokes.
procedure Init_Keyboard_Handler;
-- Initialize the keyboard
end Sample.Keyboard_Handler;
AdaCurses-20211021/samples/sample-curses_demo-attributes.adb 0000644 0001751 0000144 00000013137 13615656212 022440 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Curses_Demo.Attributes --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2002,2003 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.14 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
with Terminal_Interface.Curses.Panels; use Terminal_Interface.Curses.Panels;
with Sample.Manifest; use Sample.Manifest;
with Sample.Function_Key_Setting; use Sample.Function_Key_Setting;
with Sample.Keyboard_Handler; use Sample.Keyboard_Handler;
with Sample.Explanation; use Sample.Explanation;
package body Sample.Curses_Demo.Attributes is
procedure Demo
is
P : Panel := Create (Standard_Window);
K : Real_Key_Code;
begin
Set_Meta_Mode;
Set_KeyPad_Mode;
Top (P);
Push_Environment ("ATTRIBDEMO");
Default_Labels;
Notepad ("ATTRIB-PAD00");
Set_Character_Attributes (Attr => (others => False));
Add (Line => 1, Column => Columns / 2 - 10,
Str => "This is NORMAL");
Set_Character_Attributes (Attr => (Stand_Out => True,
others => False));
Add (Line => 2, Column => Columns / 2 - 10,
Str => "This is Stand_Out");
Set_Character_Attributes (Attr => (Under_Line => True,
others => False));
Add (Line => 3, Column => Columns / 2 - 10,
Str => "This is Under_Line");
Set_Character_Attributes (Attr => (Reverse_Video => True,
others => False));
Add (Line => 4, Column => Columns / 2 - 10,
Str => "This is Reverse_Video");
Set_Character_Attributes (Attr => (Blink => True,
others => False));
Add (Line => 5, Column => Columns / 2 - 10,
Str => "This is Blink");
Set_Character_Attributes (Attr => (Dim_Character => True,
others => False));
Add (Line => 6, Column => Columns / 2 - 10,
Str => "This is Dim_Character");
Set_Character_Attributes (Attr => (Bold_Character => True,
others => False));
Add (Line => 7, Column => Columns / 2 - 10,
Str => "This is Bold_Character");
Refresh_Without_Update;
Update_Panels; Update_Screen;
loop
K := Get_Key;
if K in Special_Key_Code'Range then
case K is
when QUIT_CODE => exit;
when HELP_CODE => Explain_Context;
when EXPLAIN_CODE => Explain ("ATTRIBKEYS");
when others => null;
end case;
end if;
end loop;
Pop_Environment;
Clear;
Refresh_Without_Update;
Delete (P);
Update_Panels; Update_Screen;
end Demo;
end Sample.Curses_Demo.Attributes;
AdaCurses-20211021/samples/ncurses2-attr_test.ads 0000644 0001751 0000144 00000006052 13615656212 020257 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000,2006 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.3 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
procedure ncurses2.attr_test;
AdaCurses-20211021/samples/ncurses2-getch.ads 0000644 0001751 0000144 00000006001 13615656212 017332 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.2 $
-- Binding Version 01.00
------------------------------------------------------------------------------
procedure getch_test;
AdaCurses-20211021/samples/sample-form_demo-handler.ads 0000644 0001751 0000144 00000007351 13615656212 021350 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Form_Demo.Handler --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2003,2009 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.11 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Terminal_Interface.Curses;
use Terminal_Interface.Curses;
with Terminal_Interface.Curses.Panels;
use Terminal_Interface.Curses.Panels;
with Terminal_Interface.Curses.Forms;
use Terminal_Interface.Curses.Forms;
generic
with function My_Driver (Frm : Form;
K : Key_Code;
Pan : Panel) return Boolean;
package Sample.Form_Demo.Handler is
procedure Drive_Me (F : Form;
Lin : Line_Position;
Col : Column_Position;
Title : String := "");
-- Position the menu at the given point and drive it.
procedure Drive_Me (F : Form;
Title : String := "");
-- Center menu and drive it.
end Sample.Form_Demo.Handler;
AdaCurses-20211021/samples/sample-form_demo.adb 0000644 0001751 0000144 00000013433 13615656212 017712 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Form_Demo --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2006,2011 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.17 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
with Terminal_Interface.Curses.Forms; use Terminal_Interface.Curses.Forms;
with Terminal_Interface.Curses.Forms.Field_User_Data;
with Sample.My_Field_Type; use Sample.My_Field_Type;
with Sample.Explanation; use Sample.Explanation;
with Sample.Form_Demo.Aux; use Sample.Form_Demo.Aux;
with Sample.Function_Key_Setting; use Sample.Function_Key_Setting;
with Sample.Form_Demo.Handler;
with Terminal_Interface.Curses.Forms.Field_Types.Enumeration.Ada;
with Terminal_Interface.Curses.Forms.Field_Types.Enumeration;
use Terminal_Interface.Curses.Forms.Field_Types.Enumeration;
with Terminal_Interface.Curses.Forms.Field_Types.IntField;
use Terminal_Interface.Curses.Forms.Field_Types.IntField;
package body Sample.Form_Demo is
type User_Data is
record
Data : Integer;
end record;
type User_Access is access User_Data;
package Fld_U is new
Terminal_Interface.Curses.Forms.Field_User_Data (User_Data,
User_Access);
type Weekday is (Sunday, Monday, Tuesday, Wednesday, Thursday,
Friday, Saturday);
package Weekday_Enum is new
Terminal_Interface.Curses.Forms.Field_Types.Enumeration.Ada (Weekday);
Enum_Field : constant Enumeration_Field :=
Weekday_Enum.Create;
procedure Demo
is
Mft : constant My_Data := (Ch => 'X');
FA : Field_Array_Access := new Field_Array'
(Make (0, 14, "Sample Entry Form"),
Make (2, 0, "WeekdayEnumeration"),
Make (2, 20, "Numeric 1-10"),
Make (2, 34, "Only 'X'"),
Make (5, 0, "Multiple Lines offscreen(Scroll)"),
Make (Width => 18, Top => 3, Left => 0),
Make (Width => 12, Top => 3, Left => 20),
Make (Width => 12, Top => 3, Left => 34),
Make (Width => 46, Top => 6, Left => 0, Height => 4, Off_Screen => 2),
Null_Field
);
Frm : Terminal_Interface.Curses.Forms.Form := Create (FA);
I_F : constant Integer_Field := (Precision => 0,
Lower_Limit => 1,
Upper_Limit => 10);
F1, F2 : User_Access;
package Fh is new Sample.Form_Demo.Handler (Default_Driver);
begin
Push_Environment ("FORM00");
Notepad ("FORM-PAD00");
Default_Labels;
Set_Field_Type (FA.all (6), Enum_Field);
Set_Field_Type (FA.all (7), I_F);
Set_Field_Type (FA.all (8), Mft);
F1 := new User_Data'(Data => 4711);
Fld_U.Set_User_Data (FA.all (1), F1);
Fh.Drive_Me (Frm);
Fld_U.Get_User_Data (FA.all (1), F2);
pragma Assert (F1 = F2);
pragma Assert (F1.Data = F2.Data);
Pop_Environment;
Delete (Frm);
Free (FA, True);
end Demo;
end Sample.Form_Demo;
AdaCurses-20211021/samples/sample-menu_demo.adb 0000644 0001751 0000144 00000035125 13615656212 017715 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Menu_Demo --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2008,2011 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.20 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
with Terminal_Interface.Curses.Panels; use Terminal_Interface.Curses.Panels;
with Terminal_Interface.Curses.Menus; use Terminal_Interface.Curses.Menus;
with Terminal_Interface.Curses.Menus.Menu_User_Data;
with Terminal_Interface.Curses.Menus.Item_User_Data;
with Sample.Manifest; use Sample.Manifest;
with Sample.Function_Key_Setting; use Sample.Function_Key_Setting;
with Sample.Menu_Demo.Handler;
with Sample.Helpers; use Sample.Helpers;
with Sample.Explanation; use Sample.Explanation;
package body Sample.Menu_Demo is
package Spacing_Demo is
procedure Spacing_Test;
end Spacing_Demo;
package body Spacing_Demo is
procedure Spacing_Test
is
function My_Driver (M : Menu;
K : Key_Code;
P : Panel) return Boolean;
procedure Set_Option_Key;
procedure Set_Select_Key;
procedure Set_Description_Key;
procedure Set_Hide_Key;
package Mh is new Sample.Menu_Demo.Handler (My_Driver);
I : Item_Array_Access := new Item_Array'
(New_Item ("January", "31 Days"),
New_Item ("February", "28/29 Days"),
New_Item ("March", "31 Days"),
New_Item ("April", "30 Days"),
New_Item ("May", "31 Days"),
New_Item ("June", "30 Days"),
New_Item ("July", "31 Days"),
New_Item ("August", "31 Days"),
New_Item ("September", "30 Days"),
New_Item ("October", "31 Days"),
New_Item ("November", "30 Days"),
New_Item ("December", "31 Days"),
Null_Item);
M : Menu := New_Menu (I);
Flip_State : Boolean := True;
Hide_Long : Boolean := False;
type Format_Code is (Four_By_1, Four_By_2, Four_By_3);
type Operations is (Flip, Reorder, Reformat, Reselect, Describe);
type Change is array (Operations) of Boolean;
pragma Pack (Change);
No_Change : constant Change := Change'(others => False);
Current_Format : Format_Code := Four_By_1;
To_Change : Change := No_Change;
function My_Driver (M : Menu;
K : Key_Code;
P : Panel) return Boolean
is
begin
if M = Null_Menu then
raise Menu_Exception;
end if;
if P = Null_Panel then
raise Panel_Exception;
end if;
To_Change := No_Change;
if K in User_Key_Code'Range then
if K = QUIT then
return True;
end if;
end if;
if K in Special_Key_Code'Range then
case K is
when Key_F4 =>
To_Change (Flip) := True;
return True;
when Key_F5 =>
To_Change (Reformat) := True;
Current_Format := Four_By_1;
return True;
when Key_F6 =>
To_Change (Reformat) := True;
Current_Format := Four_By_2;
return True;
when Key_F7 =>
To_Change (Reformat) := True;
Current_Format := Four_By_3;
return True;
when Key_F8 =>
To_Change (Reorder) := True;
return True;
when Key_F9 =>
To_Change (Reselect) := True;
return True;
when Key_F10 =>
if Current_Format /= Four_By_3 then
To_Change (Describe) := True;
return True;
else
return False;
end if;
when Key_F11 =>
Hide_Long := not Hide_Long;
declare
O : Item_Option_Set;
begin
for J in I'Range loop
Get_Options (I.all (J), O);
O.Selectable := True;
if Hide_Long then
case J is
when 1 | 3 | 5 | 7 | 8 | 10 | 12 =>
O.Selectable := False;
when others => null;
end case;
end if;
Set_Options (I.all (J), O);
end loop;
end;
return False;
when others => null;
end case;
end if;
return False;
end My_Driver;
procedure Set_Option_Key
is
O : Menu_Option_Set;
begin
if Current_Format = Four_By_1 then
Set_Soft_Label_Key (8, "");
else
Get_Options (M, O);
if O.Row_Major_Order then
Set_Soft_Label_Key (8, "O-Col");
else
Set_Soft_Label_Key (8, "O-Row");
end if;
end if;
Refresh_Soft_Label_Keys_Without_Update;
end Set_Option_Key;
procedure Set_Select_Key
is
O : Menu_Option_Set;
begin
Get_Options (M, O);
if O.One_Valued then
Set_Soft_Label_Key (9, "Multi");
else
Set_Soft_Label_Key (9, "Singl");
end if;
Refresh_Soft_Label_Keys_Without_Update;
end Set_Select_Key;
procedure Set_Description_Key
is
O : Menu_Option_Set;
begin
if Current_Format = Four_By_3 then
Set_Soft_Label_Key (10, "");
else
Get_Options (M, O);
if O.Show_Descriptions then
Set_Soft_Label_Key (10, "-Desc");
else
Set_Soft_Label_Key (10, "+Desc");
end if;
end if;
Refresh_Soft_Label_Keys_Without_Update;
end Set_Description_Key;
procedure Set_Hide_Key
is
begin
if Hide_Long then
Set_Soft_Label_Key (11, "Enab");
else
Set_Soft_Label_Key (11, "Disab");
end if;
Refresh_Soft_Label_Keys_Without_Update;
end Set_Hide_Key;
begin
Push_Environment ("MENU01");
Notepad ("MENU-PAD01");
Default_Labels;
Set_Soft_Label_Key (4, "Flip");
Set_Soft_Label_Key (5, "4x1");
Set_Soft_Label_Key (6, "4x2");
Set_Soft_Label_Key (7, "4x3");
Set_Option_Key;
Set_Select_Key;
Set_Description_Key;
Set_Hide_Key;
Set_Format (M, 4, 1);
loop
Mh.Drive_Me (M);
exit when To_Change = No_Change;
if To_Change (Flip) then
if Flip_State then
Flip_State := False;
Set_Spacing (M, 3, 2, 0);
else
Flip_State := True;
Set_Spacing (M);
end if;
elsif To_Change (Reformat) then
case Current_Format is
when Four_By_1 => Set_Format (M, 4, 1);
when Four_By_2 => Set_Format (M, 4, 2);
when Four_By_3 =>
declare
O : Menu_Option_Set;
begin
Get_Options (M, O);
O.Show_Descriptions := False;
Set_Options (M, O);
Set_Format (M, 4, 3);
end;
end case;
Set_Option_Key;
Set_Description_Key;
elsif To_Change (Reorder) then
declare
O : Menu_Option_Set;
begin
Get_Options (M, O);
O.Row_Major_Order := not O.Row_Major_Order;
Set_Options (M, O);
Set_Option_Key;
end;
elsif To_Change (Reselect) then
declare
O : Menu_Option_Set;
begin
Get_Options (M, O);
O.One_Valued := not O.One_Valued;
Set_Options (M, O);
Set_Select_Key;
end;
elsif To_Change (Describe) then
declare
O : Menu_Option_Set;
begin
Get_Options (M, O);
O.Show_Descriptions := not O.Show_Descriptions;
Set_Options (M, O);
Set_Description_Key;
end;
else
null;
end if;
end loop;
Set_Spacing (M);
Pop_Environment;
pragma Assert (Get_Index (Items (M, 1)) = Get_Index (I (1)));
Delete (M);
Free (I, True);
end Spacing_Test;
end Spacing_Demo;
procedure Demo
is
-- We use this datatype only to test the instantiation of
-- the Menu_User_Data generic package. No functionality
-- behind it.
type User_Data is new Integer;
type User_Data_Access is access User_Data;
-- Those packages are only instantiated to test the usability.
-- No real functionality is shown in the demo.
package MUD is new Menu_User_Data (User_Data, User_Data_Access);
package IUD is new Item_User_Data (User_Data, User_Data_Access);
function My_Driver (M : Menu;
K : Key_Code;
P : Panel) return Boolean;
package Mh is new Sample.Menu_Demo.Handler (My_Driver);
Itm : Item_Array_Access := new Item_Array'
(New_Item ("Menu Layout Options"),
New_Item ("Demo of Hook functions"),
Null_Item);
M : Menu := New_Menu (Itm);
U1 : constant User_Data_Access := new User_Data'(4711);
U2 : User_Data_Access;
U3 : constant User_Data_Access := new User_Data'(4712);
U4 : User_Data_Access;
function My_Driver (M : Menu;
K : Key_Code;
P : Panel) return Boolean
is
Idx : constant Positive := Get_Index (Current (M));
begin
if K in User_Key_Code'Range then
if K = QUIT then
return True;
elsif K = SELECT_ITEM then
if Idx in Itm'Range then
Hide (P);
Update_Panels;
end if;
case Idx is
when 1 => Spacing_Demo.Spacing_Test;
when others => Not_Implemented;
end case;
if Idx in Itm'Range then
Top (P);
Show (P);
Update_Panels;
Update_Screen;
end if;
end if;
end if;
return False;
end My_Driver;
begin
Push_Environment ("MENU00");
Notepad ("MENU-PAD00");
Default_Labels;
Refresh_Soft_Label_Keys_Without_Update;
Set_Pad_Character (M, '|');
MUD.Set_User_Data (M, U1);
IUD.Set_User_Data (Itm.all (1), U3);
Mh.Drive_Me (M);
MUD.Get_User_Data (M, U2);
pragma Assert (U1 = U2 and U1.all = 4711);
IUD.Get_User_Data (Itm.all (1), U4);
pragma Assert (U3 = U4 and U3.all = 4712);
Pop_Environment;
Delete (M);
Free (Itm, True);
end Demo;
end Sample.Menu_Demo;
AdaCurses-20211021/samples/sample-function_key_setting.adb 0000644 0001751 0000144 00000017421 13615656212 022176 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Function_Key_Setting --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2009,2011 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.16 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Ada.Unchecked_Deallocation;
with Sample.Manifest; use Sample.Manifest;
-- This package implements a simple stack of function key label environments.
--
package body Sample.Function_Key_Setting is
Max_Label_Length : constant Positive := 8;
Number_Of_Keys : Label_Number := Label_Number'Last;
Justification : Label_Justification := Left;
subtype Label is String (1 .. Max_Label_Length);
type Label_Array is array (Label_Number range <>) of Label;
type Key_Environment (N : Label_Number := Label_Number'Last);
type Env_Ptr is access Key_Environment;
pragma Controlled (Env_Ptr);
type String_Access is access String;
pragma Controlled (String_Access);
Active_Context : String_Access := new String'("MAIN");
Active_Notepad : Panel := Null_Panel;
type Key_Environment (N : Label_Number := Label_Number'Last) is
record
Prev : Env_Ptr;
Help : String_Access;
Notepad : Panel;
Labels : Label_Array (1 .. N);
end record;
procedure Release_String is
new Ada.Unchecked_Deallocation (String,
String_Access);
procedure Release_Environment is
new Ada.Unchecked_Deallocation (Key_Environment,
Env_Ptr);
Top_Of_Stack : Env_Ptr := null;
procedure Push_Environment (Key : String;
Reset : Boolean := True)
is
P : constant Env_Ptr := new Key_Environment (Number_Of_Keys);
begin
-- Store the current labels in the environment
for I in 1 .. Number_Of_Keys loop
Get_Soft_Label_Key (I, P.all.Labels (I));
if Reset then
Set_Soft_Label_Key (I, " ");
end if;
end loop;
P.all.Prev := Top_Of_Stack;
-- now store active help context and notepad
P.all.Help := Active_Context;
P.all.Notepad := Active_Notepad;
-- The notepad must now vanish and the new notepad is empty.
if P.all.Notepad /= Null_Panel then
Hide (P.all.Notepad);
Update_Panels;
end if;
Active_Notepad := Null_Panel;
Active_Context := new String'(Key);
Top_Of_Stack := P;
if Reset then
Refresh_Soft_Label_Keys_Without_Update;
end if;
end Push_Environment;
procedure Pop_Environment
is
P : Env_Ptr := Top_Of_Stack;
begin
if Top_Of_Stack = null then
raise Function_Key_Stack_Error;
else
for I in 1 .. Number_Of_Keys loop
Set_Soft_Label_Key (I, P.all.Labels (I), Justification);
end loop;
pragma Assert (Active_Context /= null);
Release_String (Active_Context);
Active_Context := P.all.Help;
Refresh_Soft_Label_Keys_Without_Update;
Notepad_To_Context (P.all.Notepad);
Top_Of_Stack := P.all.Prev;
Release_Environment (P);
end if;
end Pop_Environment;
function Context return String
is
begin
if Active_Context /= null then
return Active_Context.all;
else
return "";
end if;
end Context;
function Find_Context (Key : String) return Boolean
is
P : Env_Ptr := Top_Of_Stack;
begin
if Active_Context.all = Key then
return True;
else
loop
exit when P = null;
if P.all.Help.all = Key then
return True;
else
P := P.all.Prev;
end if;
end loop;
return False;
end if;
end Find_Context;
procedure Notepad_To_Context (Pan : Panel)
is
W : Window;
begin
if Active_Notepad /= Null_Panel then
W := Get_Window (Active_Notepad);
Clear (W);
Delete (Active_Notepad);
Delete (W);
end if;
Active_Notepad := Pan;
if Pan /= Null_Panel then
Top (Pan);
end if;
Update_Panels;
Update_Screen;
end Notepad_To_Context;
procedure Initialize (Mode : Soft_Label_Key_Format := PC_Style;
Just : Label_Justification := Left)
is
begin
case Mode is
when PC_Style .. PC_Style_With_Index
=> Number_Of_Keys := 12;
when others
=> Number_Of_Keys := 8;
end case;
Init_Soft_Label_Keys (Mode);
Justification := Just;
end Initialize;
procedure Default_Labels
is
begin
Set_Soft_Label_Key (FKEY_QUIT, "Quit");
Set_Soft_Label_Key (FKEY_HELP, "Help");
Set_Soft_Label_Key (FKEY_EXPLAIN, "Keys");
Refresh_Soft_Label_Keys_Without_Update;
end Default_Labels;
function Notepad_Window return Window
is
begin
if Active_Notepad /= Null_Panel then
return Get_Window (Active_Notepad);
else
return Null_Window;
end if;
end Notepad_Window;
end Sample.Function_Key_Setting;
AdaCurses-20211021/samples/sample-explanation.ads 0000644 0001751 0000144 00000007044 13615656212 020307 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Explanation --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2003,2009 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.12 $
-- Binding Version 01.00
------------------------------------------------------------------------------
-- Poor mans help system. This scans a sequential file for key lines and
-- then reads the lines up to the next key. Those lines are presented in
-- a window as help or explanation.
--
package Sample.Explanation is
procedure Explain (Key : String);
-- Retrieve the text associated with this key and display it.
procedure Explain_Context;
-- Explain the current context.
procedure Notepad (Key : String);
-- Put a note on the screen and maintain it with the context
Explanation_Not_Found : exception;
Explanation_Error : exception;
end Sample.Explanation;
AdaCurses-20211021/samples/sample-menu_demo-aux.adb 0000644 0001751 0000144 00000021455 13615656212 020511 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Menu_Demo.Aux --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2006,2009 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.15 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Ada.Characters.Latin_1; use Ada.Characters.Latin_1;
with Sample.Manifest; use Sample.Manifest;
with Sample.Helpers; use Sample.Helpers;
with Sample.Keyboard_Handler; use Sample.Keyboard_Handler;
with Sample.Explanation; use Sample.Explanation;
package body Sample.Menu_Demo.Aux is
procedure Geometry (M : Menu;
L : out Line_Count;
C : out Column_Count;
Y : out Line_Position;
X : out Column_Position;
Fy : out Line_Position;
Fx : out Column_Position);
procedure Geometry (M : Menu;
L : out Line_Count; -- Lines used for menu
C : out Column_Count; -- Columns used for menu
Y : out Line_Position; -- Proposed Line for menu
X : out Column_Position; -- Proposed Column for menu
Fy : out Line_Position; -- Vertical inner frame
Fx : out Column_Position) -- Horiz. inner frame
is
Spc_Desc : Column_Position; -- spaces between description and item
begin
Set_Mark (M, Menu_Marker);
Spacing (M, Spc_Desc, Fy, Fx);
Scale (M, L, C);
Fx := Fx + Column_Position (Fy - 1); -- looks a bit nicer
L := L + 2 * Fy; -- count for frame at top and bottom
C := C + 2 * Fx; -- "
-- Calculate horizontal coordinate at the screen center
X := (Columns - C) / 2;
Y := 1; -- always startin line 1
end Geometry;
procedure Geometry (M : Menu;
L : out Line_Count; -- Lines used for menu
C : out Column_Count; -- Columns used for menu
Y : out Line_Position; -- Proposed Line for menu
X : out Column_Position) -- Proposed Column for menu
is
Fy : Line_Position;
Fx : Column_Position;
begin
Geometry (M, L, C, Y, X, Fy, Fx);
end Geometry;
function Create (M : Menu;
Title : String;
Lin : Line_Position;
Col : Column_Position) return Panel
is
W, S : Window;
L : Line_Count;
C : Column_Count;
Y, Fy : Line_Position;
X, Fx : Column_Position;
Pan : Panel;
begin
Geometry (M, L, C, Y, X, Fy, Fx);
W := New_Window (L, C, Lin, Col);
Set_Meta_Mode (W);
Set_KeyPad_Mode (W);
if Has_Colors then
Set_Background (Win => W,
Ch => (Ch => ' ',
Color => Menu_Back_Color,
Attr => Normal_Video));
Set_Foreground (Men => M, Color => Menu_Fore_Color);
Set_Background (Men => M, Color => Menu_Back_Color);
Set_Grey (Men => M, Color => Menu_Grey_Color);
Erase (W);
end if;
S := Derived_Window (W, L - Fy, C - Fx, Fy, Fx);
Set_Meta_Mode (S);
Set_KeyPad_Mode (S);
Box (W);
Set_Window (M, W);
Set_Sub_Window (M, S);
if Title'Length > 0 then
Window_Title (W, Title);
end if;
Pan := New_Panel (W);
Post (M);
return Pan;
end Create;
procedure Destroy (M : Menu;
P : in out Panel)
is
W, S : Window;
begin
W := Get_Window (M);
S := Get_Sub_Window (M);
Post (M, False);
Erase (W);
Delete (P);
Set_Window (M, Null_Window);
Set_Sub_Window (M, Null_Window);
Delete (S);
Delete (W);
Update_Panels;
end Destroy;
function Get_Request (M : Menu; P : Panel) return Key_Code
is
W : constant Window := Get_Window (M);
K : Real_Key_Code;
Ch : Character;
begin
Top (P);
loop
K := Get_Key (W);
if K in Special_Key_Code'Range then
case K is
when HELP_CODE => Explain_Context;
when EXPLAIN_CODE => Explain ("MENUKEYS");
when Key_Home => return REQ_FIRST_ITEM;
when QUIT_CODE => return QUIT;
when Key_Cursor_Down => return REQ_DOWN_ITEM;
when Key_Cursor_Up => return REQ_UP_ITEM;
when Key_Cursor_Left => return REQ_LEFT_ITEM;
when Key_Cursor_Right => return REQ_RIGHT_ITEM;
when Key_End => return REQ_LAST_ITEM;
when Key_Backspace => return REQ_BACK_PATTERN;
when Key_Next_Page => return REQ_SCR_DPAGE;
when Key_Previous_Page => return REQ_SCR_UPAGE;
when others => return K;
end case;
elsif K in Normal_Key_Code'Range then
Ch := Character'Val (K);
case Ch is
when CAN => return QUIT; -- CTRL-X
when SO => return REQ_NEXT_ITEM; -- CTRL-N
when DLE => return REQ_PREV_ITEM; -- CTRL-P
when NAK => return REQ_SCR_ULINE; -- CTRL-U
when EOT => return REQ_SCR_DLINE; -- CTRL-D
when ACK => return REQ_SCR_DPAGE; -- CTRL-F
when STX => return REQ_SCR_UPAGE; -- CTRL-B
when EM => return REQ_CLEAR_PATTERN; -- CTRL-Y
when BS => return REQ_BACK_PATTERN; -- CTRL-H
when SOH => return REQ_NEXT_MATCH; -- CTRL-A
when ENQ => return REQ_PREV_MATCH; -- CTRL-E
when DC4 => return REQ_TOGGLE_ITEM; -- CTRL-T
when CR | LF => return SELECT_ITEM;
when others => return K;
end case;
else
return K;
end if;
end loop;
end Get_Request;
end Sample.Menu_Demo.Aux;
AdaCurses-20211021/samples/ncurses2-genericputs.adb 0000644 0001751 0000144 00000012244 13615656212 020555 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000-2008,2009 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.5 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
with Terminal_Interface.Curses.Aux; use Terminal_Interface.Curses.Aux;
package body ncurses2.genericPuts is
procedure myGet (Win : Window := Standard_Window;
Str : out BS.Bounded_String;
Len : Integer := -1)
is
function Wgetnstr (Win : Window;
Str : char_array;
Len : int) return int;
pragma Import (C, Wgetnstr, "wgetnstr");
N : Integer := Len;
Txt : char_array (0 .. size_t (Max_Length));
xStr : String (1 .. Max_Length);
Cnt : Natural;
begin
if N < 0 then
N := Max_Length;
end if;
if N > Max_Length then
raise Constraint_Error;
end if;
Txt (0) := Interfaces.C.char'First;
if Wgetnstr (Win, Txt, C_Int (N)) = Curses_Err then
raise Curses_Exception;
end if;
To_Ada (Txt, xStr, Cnt, True);
Str := To_Bounded_String (xStr (1 .. Cnt));
end myGet;
procedure myPut (Str : out BS.Bounded_String;
i : Integer;
Base : Number_Base := 10) is
package Int_IO is new Integer_IO (Integer); use Int_IO;
tmp : String (1 .. BS.Max_Length);
begin
Put (tmp, i, Base);
Str := To_Bounded_String (tmp);
Trim (Str, Ada.Strings.Trim_End'(Ada.Strings.Left));
end myPut;
procedure myAdd (Str : BS.Bounded_String) is
begin
Add (Str => To_String (Str));
end myAdd;
-- from ncurses-aux
procedure Fill_String (Cp : chars_ptr;
Str : out BS.Bounded_String)
is
-- Fill the string with the characters referenced by the
-- chars_ptr.
--
Len : Natural;
begin
if Cp /= Null_Ptr then
Len := Natural (Strlen (Cp));
if Max_Length < Len then
raise Constraint_Error;
end if;
declare
S : String (1 .. Len);
begin
S := Value (Cp);
Str := To_Bounded_String (S);
end;
else
Str := Null_Bounded_String;
end if;
end Fill_String;
end ncurses2.genericPuts;
AdaCurses-20211021/samples/sample-form_demo-aux.adb 0000644 0001751 0000144 00000024764 13615656212 020516 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Form_Demo.Aux --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2004,2009 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.18 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Ada.Characters.Latin_1; use Ada.Characters.Latin_1;
with Sample.Manifest; use Sample.Manifest;
with Sample.Helpers; use Sample.Helpers;
with Sample.Keyboard_Handler; use Sample.Keyboard_Handler;
with Sample.Explanation; use Sample.Explanation;
package body Sample.Form_Demo.Aux is
procedure Geometry (F : Form;
L : out Line_Count; -- Lines used for menu
C : out Column_Count; -- Columns used for menu
Y : out Line_Position; -- Proposed Line for menu
X : out Column_Position) -- Proposed Column for menu
is
begin
Scale (F, L, C);
L := L + 2; -- count for frame at top and bottom
C := C + 2; -- "
-- Calculate horizontal coordinate at the screen center
X := (Columns - C) / 2;
Y := 1; -- start always in line 1
end Geometry;
function Create (F : Form;
Title : String;
Lin : Line_Position;
Col : Column_Position) return Panel
is
W, S : Window;
L : Line_Count;
C : Column_Count;
Y : Line_Position;
X : Column_Position;
Pan : Panel;
begin
Geometry (F, L, C, Y, X);
W := New_Window (L, C, Lin, Col);
Set_Meta_Mode (W);
Set_KeyPad_Mode (W);
if Has_Colors then
Set_Background (Win => W,
Ch => (Ch => ' ',
Color => Default_Colors,
Attr => Normal_Video));
Set_Character_Attributes (Win => W,
Color => Default_Colors,
Attr => Normal_Video);
Erase (W);
end if;
S := Derived_Window (W, L - 2, C - 2, 1, 1);
Set_Meta_Mode (S);
Set_KeyPad_Mode (S);
Box (W);
Set_Window (F, W);
Set_Sub_Window (F, S);
if Title'Length > 0 then
Window_Title (W, Title);
end if;
Pan := New_Panel (W);
Post (F);
return Pan;
end Create;
procedure Destroy (F : Form;
P : in out Panel)
is
W, S : Window;
begin
W := Get_Window (F);
S := Get_Sub_Window (F);
Post (F, False);
Erase (W);
Delete (P);
Set_Window (F, Null_Window);
Set_Sub_Window (F, Null_Window);
Delete (S);
Delete (W);
Update_Panels;
end Destroy;
function Get_Request (F : Form;
P : Panel;
Handle_CRLF : Boolean := True) return Key_Code
is
W : constant Window := Get_Window (F);
K : Real_Key_Code;
Ch : Character;
begin
Top (P);
loop
K := Get_Key (W);
if K in Special_Key_Code'Range then
case K is
when HELP_CODE => Explain_Context;
when EXPLAIN_CODE => Explain ("FORMKEYS");
when Key_Home => return F_First_Field;
when Key_End => return F_Last_Field;
when QUIT_CODE => return QUIT;
when Key_Cursor_Down => return F_Down_Char;
when Key_Cursor_Up => return F_Up_Char;
when Key_Cursor_Left => return F_Previous_Char;
when Key_Cursor_Right => return F_Next_Char;
when Key_Next_Page => return F_Next_Page;
when Key_Previous_Page => return F_Previous_Page;
when Key_Backspace => return F_Delete_Previous;
when Key_Clear_Screen => return F_Clear_Field;
when Key_Clear_End_Of_Line => return F_Clear_EOF;
when others => return K;
end case;
elsif K in Normal_Key_Code'Range then
Ch := Character'Val (K);
case Ch is
when CAN => return QUIT; -- CTRL-X
when ACK => return F_Next_Field; -- CTRL-F
when STX => return F_Previous_Field; -- CTRL-B
when FF => return F_Left_Field; -- CTRL-L
when DC2 => return F_Right_Field; -- CTRL-R
when NAK => return F_Up_Field; -- CTRL-U
when EOT => return F_Down_Field; -- CTRL-D
when ETB => return F_Next_Word; -- CTRL-W
when DC4 => return F_Previous_Word; -- CTRL-T
when SOH => return F_Begin_Field; -- CTRL-A
when ENQ => return F_End_Field; -- CTRL-E
when HT => return F_Insert_Char; -- CTRL-I
when SI => return F_Insert_Line; -- CTRL-O
when SYN => return F_Delete_Char; -- CTRL-V
when BS => return F_Delete_Previous; -- CTRL-H
when EM => return F_Delete_Line; -- CTRL-Y
when BEL => return F_Delete_Word; -- CTRL-G
when VT => return F_Clear_EOF; -- CTRL-K
when SO => return F_Next_Choice; -- CTRL-N
when DLE => return F_Previous_Choice; -- CTRL-P
when CR | LF =>
if Handle_CRLF then
return F_New_Line;
else
return K;
end if;
when others => return K;
end case;
else
return K;
end if;
end loop;
end Get_Request;
function Make (Top : Line_Position;
Left : Column_Position;
Text : String) return Field
is
Fld : Field;
C : constant Column_Count := Column_Count (Text'Length);
begin
Fld := New_Field (1, C, Top, Left);
Set_Buffer (Fld, 0, Text);
Switch_Options (Fld, (Active => True, others => False), False);
if Has_Colors then
Set_Background (Fld => Fld, Color => Default_Colors);
end if;
return Fld;
end Make;
function Make (Height : Line_Count := 1;
Width : Column_Count;
Top : Line_Position;
Left : Column_Position;
Off_Screen : Natural := 0) return Field
is
Fld : constant Field := New_Field (Height, Width, Top, Left, Off_Screen);
begin
if Has_Colors then
Set_Foreground (Fld => Fld, Color => Form_Fore_Color);
Set_Background (Fld => Fld, Color => Form_Back_Color);
else
Set_Background (Fld, (Reverse_Video => True, others => False));
end if;
return Fld;
end Make;
function Default_Driver (F : Form;
K : Key_Code;
P : Panel) return Boolean
is
begin
if P = Null_Panel then
raise Panel_Exception;
end if;
if K in User_Key_Code'Range and then K = QUIT then
if Driver (F, F_Validate_Field) = Form_Ok then
return True;
end if;
end if;
return False;
end Default_Driver;
function Count_Active (F : Form) return Natural
is
N : Natural := 0;
O : Field_Option_Set;
H : constant Natural := Field_Count (F);
begin
if H > 0 then
for I in 1 .. H loop
Get_Options (Fields (F, I), O);
if O.Active then
N := N + 1;
end if;
end loop;
end if;
return N;
end Count_Active;
end Sample.Form_Demo.Aux;
AdaCurses-20211021/samples/ncurses2-attr_test.adb 0000644 0001751 0000144 00000033674 13615656212 020250 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000-2007,2008 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.10 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with ncurses2.util; use ncurses2.util;
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
with Terminal_Interface.Curses.Terminfo;
use Terminal_Interface.Curses.Terminfo;
with Ada.Characters.Handling;
with Ada.Strings.Fixed;
procedure ncurses2.attr_test is
function subset (super, sub : Character_Attribute_Set) return Boolean;
function intersect (b, a : Character_Attribute_Set) return Boolean;
function has_A_COLOR (attr : Attributed_Character) return Boolean;
function show_attr (row : Line_Position;
skip : Natural;
attr : Character_Attribute_Set;
name : String;
once : Boolean) return Line_Position;
procedure attr_getc (skip : in out Integer;
fg, bg : in out Color_Number;
result : out Boolean);
function subset (super, sub : Character_Attribute_Set) return Boolean is
begin
if
(super.Stand_Out or not sub.Stand_Out) and
(super.Under_Line or not sub.Under_Line) and
(super.Reverse_Video or not sub.Reverse_Video) and
(super.Blink or not sub.Blink) and
(super.Dim_Character or not sub.Dim_Character) and
(super.Bold_Character or not sub.Bold_Character) and
(super.Alternate_Character_Set or not sub.Alternate_Character_Set) and
(super.Invisible_Character or not sub.Invisible_Character) -- and
-- (super.Protected_Character or not sub.Protected_Character) and
-- (super.Horizontal or not sub.Horizontal) and
-- (super.Left or not sub.Left) and
-- (super.Low or not sub.Low) and
-- (super.Right or not sub.Right) and
-- (super.Top or not sub.Top) and
-- (super.Vertical or not sub.Vertical)
then
return True;
else
return False;
end if;
end subset;
function intersect (b, a : Character_Attribute_Set) return Boolean is
begin
if
(a.Stand_Out and b.Stand_Out) or
(a.Under_Line and b.Under_Line) or
(a.Reverse_Video and b.Reverse_Video) or
(a.Blink and b.Blink) or
(a.Dim_Character and b.Dim_Character) or
(a.Bold_Character and b.Bold_Character) or
(a.Alternate_Character_Set and b.Alternate_Character_Set) or
(a.Invisible_Character and b.Invisible_Character) -- or
-- (a.Protected_Character and b.Protected_Character) or
-- (a.Horizontal and b.Horizontal) or
-- (a.Left and b.Left) or
-- (a.Low and b.Low) or
-- (a.Right and b.Right) or
-- (a.Top and b.Top) or
-- (a.Vertical and b.Vertical)
then
return True;
else
return False;
end if;
end intersect;
function has_A_COLOR (attr : Attributed_Character) return Boolean is
begin
if attr.Color /= Color_Pair (0) then
return True;
else
return False;
end if;
end has_A_COLOR;
-- Print some text with attributes.
function show_attr (row : Line_Position;
skip : Natural;
attr : Character_Attribute_Set;
name : String;
once : Boolean) return Line_Position is
function make_record (n : Integer) return Character_Attribute_Set;
function make_record (n : Integer) return Character_Attribute_Set is
-- unsupported means true
a : Character_Attribute_Set := (others => False);
m : Integer;
rest : Integer;
begin
-- ncv is a bitmap with these fields
-- A_STANDOUT,
-- A_UNDERLINE,
-- A_REVERSE,
-- A_BLINK,
-- A_DIM,
-- A_BOLD,
-- A_INVIS,
-- A_PROTECT,
-- A_ALTCHARSET
-- It means no_color_video,
-- video attributes that can't be used with colors
-- see man terminfo.5
m := n mod 2;
rest := n / 2;
if 1 = m then
a.Stand_Out := True;
end if;
m := rest mod 2;
rest := rest / 2;
if 1 = m then
a.Under_Line := True;
end if;
m := rest mod 2;
rest := rest / 2;
if 1 = m then
a.Reverse_Video := True;
end if;
m := rest mod 2;
rest := rest / 2;
if 1 = m then
a.Blink := True;
end if;
m := rest mod 2;
rest := rest / 2;
if 1 = m then
a.Bold_Character := True;
end if;
m := rest mod 2;
rest := rest / 2;
if 1 = m then
a.Invisible_Character := True;
end if;
m := rest mod 2;
rest := rest / 2;
if 1 = m then
a.Protected_Character := True;
end if;
m := rest mod 2;
rest := rest / 2;
if 1 = m then
a.Alternate_Character_Set := True;
end if;
return a;
end make_record;
ncv : constant Integer := Get_Number ("ncv");
begin
Move_Cursor (Line => row, Column => 8);
Add (Str => name & " mode:");
Move_Cursor (Line => row, Column => 24);
Add (Ch => '|');
if skip /= 0 then
-- printw("%*s", skip, " ")
Add (Str => Ada.Strings.Fixed."*" (skip, ' '));
end if;
if once then
Switch_Character_Attribute (Attr => attr);
else
Set_Character_Attributes (Attr => attr);
end if;
Add (Str => "abcde fghij klmno pqrst uvwxy z");
if once then
Switch_Character_Attribute (Attr => attr, On => False);
end if;
if skip /= 0 then
Add (Str => Ada.Strings.Fixed."*" (skip, ' '));
end if;
Add (Ch => '|');
if attr /= Normal_Video then
declare begin
if not subset (super => Supported_Attributes, sub => attr) then
Add (Str => " (N/A)");
elsif ncv > 0 and has_A_COLOR (Get_Background) then
declare
Color_Supported_Attributes :
constant Character_Attribute_Set := make_record (ncv);
begin
if intersect (Color_Supported_Attributes, attr) then
Add (Str => " (NCV) ");
end if;
end;
end if;
end;
end if;
return row + 2;
end show_attr;
procedure attr_getc (skip : in out Integer;
fg, bg : in out Color_Number;
result : out Boolean) is
ch : constant Key_Code := Getchar;
nc : constant Color_Number := Color_Number (Number_Of_Colors);
begin
result := True;
if Ada.Characters.Handling.Is_Digit (Character'Val (ch)) then
skip := ctoi (Code_To_Char (ch));
elsif ch = CTRL ('L') then
Touch;
Touch (Current_Window);
Refresh;
elsif Has_Colors then
case ch is
-- Note the mathematical elegance compared to the C version.
when Character'Pos ('f') => fg := (fg + 1) mod nc;
when Character'Pos ('F') => fg := (fg - 1) mod nc;
when Character'Pos ('b') => bg := (bg + 1) mod nc;
when Character'Pos ('B') => bg := (bg - 1) mod nc;
when others =>
result := False;
end case;
else
result := False;
end if;
end attr_getc;
-- pairs could be defined as array ( Color_Number(0) .. colors - 1) of
-- array (Color_Number(0).. colors - 1) of Boolean;
pairs : array (Color_Pair'Range) of Boolean := (others => False);
fg, bg : Color_Number := Black; -- = 0;
xmc : constant Integer := Get_Number ("xmc");
skip : Integer := xmc;
n : Integer;
use Int_IO;
begin
pairs (0) := True;
if skip < 0 then
skip := 0;
end if;
n := skip;
loop
declare
row : Line_Position := 2;
normal : Attributed_Character := Blank2;
-- ???
begin
-- row := 2; -- weird, row is set to 0 without this.
-- TODO delete the above line, it was a gdb quirk that confused me
if Has_Colors then
declare pair : constant Color_Pair :=
Color_Pair (fg * Color_Number (Number_Of_Colors) + bg);
begin
-- Go though each color pair. Assume that the number of
-- Redefinable_Color_Pairs is 8*8 with predefined Colors 0..7
if not pairs (pair) then
Init_Pair (pair, fg, bg);
pairs (pair) := True;
end if;
normal.Color := pair;
end;
end if;
Set_Background (Ch => normal);
Erase;
Add (Line => 0, Column => 20,
Str => "Character attribute test display");
row := show_attr (row, n, (Stand_Out => True, others => False),
"STANDOUT", True);
row := show_attr (row, n, (Reverse_Video => True, others => False),
"REVERSE", True);
row := show_attr (row, n, (Bold_Character => True, others => False),
"BOLD", True);
row := show_attr (row, n, (Under_Line => True, others => False),
"UNDERLINE", True);
row := show_attr (row, n, (Dim_Character => True, others => False),
"DIM", True);
row := show_attr (row, n, (Blink => True, others => False),
"BLINK", True);
-- row := show_attr (row, n, (Protected_Character => True,
-- others => False), "PROTECT", True);
row := show_attr (row, n, (Invisible_Character => True,
others => False), "INVISIBLE", True);
row := show_attr (row, n, Normal_Video, "NORMAL", False);
Move_Cursor (Line => row, Column => 8);
if xmc > -1 then
Add (Str => "This terminal does have the magic-cookie glitch");
else
Add (Str => "This terminal does not have the magic-cookie glitch");
end if;
Move_Cursor (Line => row + 1, Column => 8);
Add (Str => "Enter a digit to set gaps on each side of " &
"displayed attributes");
Move_Cursor (Line => row + 2, Column => 8);
Add (Str => "^L = repaint");
if Has_Colors then
declare tmp1 : String (1 .. 1);
begin
Add (Str => ". f/F/b/F toggle colors (");
Put (tmp1, Integer (fg));
Add (Str => tmp1);
Add (Ch => '/');
Put (tmp1, Integer (bg));
Add (Str => tmp1);
Add (Ch => ')');
end;
end if;
Refresh;
end;
declare result : Boolean; begin
attr_getc (n, fg, bg, result);
exit when not result;
end;
end loop;
Set_Background (Ch => Blank2);
Erase;
End_Windows;
end ncurses2.attr_test;
AdaCurses-20211021/samples/sample-manifest.ads 0000644 0001751 0000144 00000010075 13615656212 017571 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Manifest --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2002,2003 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.13 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
package Sample.Manifest is
QUIT : constant User_Key_Code := User_Key_Code'First;
SELECT_ITEM : constant User_Key_Code := QUIT + 1;
FKEY_HELP : constant Label_Number := 1;
HELP_CODE : constant Special_Key_Code := Key_F1;
FKEY_EXPLAIN : constant Label_Number := 2;
EXPLAIN_CODE : constant Special_Key_Code := Key_F2;
FKEY_QUIT : constant Label_Number := 3;
QUIT_CODE : constant Special_Key_Code := Key_F3;
Menu_Marker : constant String := "=> ";
Default_Colors : constant Redefinable_Color_Pair := 1;
Menu_Fore_Color : constant Redefinable_Color_Pair := 2;
Menu_Back_Color : constant Redefinable_Color_Pair := 3;
Menu_Grey_Color : constant Redefinable_Color_Pair := 4;
Form_Fore_Color : constant Redefinable_Color_Pair := 5;
Form_Back_Color : constant Redefinable_Color_Pair := 6;
Notepad_Color : constant Redefinable_Color_Pair := 7;
Help_Color : constant Redefinable_Color_Pair := 8;
Header_Color : constant Redefinable_Color_Pair := 9;
end Sample.Manifest;
AdaCurses-20211021/samples/status.ads 0000644 0001751 0000144 00000007060 13615656212 016027 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Status --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2002,2003 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Laurent Pautet
-- Modified by: Juergen Pfeifer, 1997
-- Version Control
-- $Revision: 1.11 $
-- Binding Version 01.00
------------------------------------------------------------------------------
-- This package has been contributed by Laurent Pautet --
-- --
with Ada.Interrupts.Names;
package Status is
pragma Warnings (Off); -- the next pragma exists since 3.11p
pragma Unreserve_All_Interrupts;
pragma Warnings (On);
protected Process is
procedure Stop;
function Continue return Boolean;
pragma Attach_Handler (Stop, Ada.Interrupts.Names.SIGINT);
private
Done : Boolean := False;
end Process;
end Status;
AdaCurses-20211021/samples/sample-form_demo.ads 0000644 0001751 0000144 00000006031 13615656212 017727 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Form_Demo --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2002,2003 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.11 $
-- Binding Version 01.00
------------------------------------------------------------------------------
package Sample.Form_Demo is
procedure Demo;
end Sample.Form_Demo;
AdaCurses-20211021/samples/rain.ads 0000644 0001751 0000144 00000006143 13615656212 015436 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Rain --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2002,2003 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Laurent Pautet
-- Modified by: Juergen Pfeifer, 1997
-- Version Control
-- $Revision: 1.8 $
-- Binding Version 01.00
------------------------------------------------------------------------------
-- --
procedure Rain;
AdaCurses-20211021/samples/sample-header_handler.adb 0000644 0001751 0000144 00000017566 13615656212 020703 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Header_Handler --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2011,2014 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.21 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Ada.Calendar; use Ada.Calendar;
with Terminal_Interface.Curses.Text_IO.Integer_IO;
with Sample.Manifest; use Sample.Manifest;
pragma Elaborate_All (Terminal_Interface.Curses.Text_Io.Integer_IO);
-- This package handles the painting of the header line of the screen.
--
package body Sample.Header_Handler is
package Int_IO is new
Terminal_Interface.Curses.Text_IO.Integer_IO (Integer);
use Int_IO;
Header_Window : Window := Null_Window;
Display_Hour : Integer := -1; -- hour last displayed
Display_Min : Integer := -1; -- minute last displayed
Display_Day : Integer := -1; -- day last displayed
Display_Month : Integer := -1; -- month last displayed
-- This is the routine handed over to the curses library to be called
-- as initialization routine when ripping of the header lines from
-- the screen. This routine must follow C conventions.
function Init_Header_Window (Win : Window;
Columns : Column_Count) return Integer;
pragma Convention (C, Init_Header_Window);
procedure Internal_Update_Header_Window (Do_Update : Boolean);
-- The initialization must be called before Init_Screen. It steals two
-- lines from the top of the screen.
procedure Init_Header_Handler
is
begin
Rip_Off_Lines (2, Init_Header_Window'Access);
end Init_Header_Handler;
procedure N_Out (N : Integer);
-- Emit a two digit number and ensure that a leading zero is generated if
-- necessary.
procedure N_Out (N : Integer)
is
begin
if N < 10 then
Add (Header_Window, '0');
Put (Header_Window, N, 1);
else
Put (Header_Window, N, 2);
end if;
end N_Out;
-- Paint the header window. The input parameter is a flag indicating
-- whether or not the screen should be updated physically after painting.
procedure Internal_Update_Header_Window (Do_Update : Boolean)
is
type Month_Name_Array is
array (Month_Number'First .. Month_Number'Last) of String (1 .. 9);
Month_Names : constant Month_Name_Array :=
("January ",
"February ",
"March ",
"April ",
"May ",
"June ",
"July ",
"August ",
"September",
"October ",
"November ",
"December ");
Now : constant Time := Clock;
Sec : constant Integer := Integer (Seconds (Now));
Hour : constant Integer := Sec / 3600;
Minute : constant Integer := (Sec - Hour * 3600) / 60;
Mon : constant Month_Number := Month (Now);
D : constant Day_Number := Day (Now);
begin
if Header_Window /= Null_Window then
if Minute /= Display_Min
or else Hour /= Display_Hour
or else Display_Day /= D
or else Display_Month /= Mon
then
Move_Cursor (Header_Window, 0, 0);
N_Out (D); Add (Header_Window, '.');
Add (Header_Window, Month_Names (Mon));
Move_Cursor (Header_Window, 1, 0);
N_Out (Hour); Add (Header_Window, ':');
N_Out (Minute);
Display_Min := Minute;
Display_Hour := Hour;
Display_Month := Mon;
Display_Day := D;
Refresh_Without_Update (Header_Window);
if Do_Update then
Update_Screen;
end if;
end if;
end if;
end Internal_Update_Header_Window;
-- This routine is called in the keyboard input timeout handler. So it will
-- periodically update the header line of the screen.
procedure Update_Header_Window
is
begin
Internal_Update_Header_Window (True);
end Update_Header_Window;
function Init_Header_Window (Win : Window;
Columns : Column_Count) return Integer
is
Title : constant String := "Ada 95 ncurses Binding Sample";
Pos : Column_Position;
begin
Header_Window := Win;
if Win /= Null_Window then
if Has_Colors then
Set_Background (Win => Win,
Ch => (Ch => ' ',
Color => Header_Color,
Attr => Normal_Video));
Set_Character_Attributes (Win => Win,
Attr => Normal_Video,
Color => Header_Color);
Erase (Win);
end if;
Leave_Cursor_After_Update (Win, True);
Pos := Columns - Column_Position (Title'Length);
Add (Win, 0, Pos / 2, Title);
-- In this phase we must not allow a physical update, because
-- ncurses is not properly initialized at this point.
Internal_Update_Header_Window (False);
return 0;
else
return -1;
end if;
end Init_Header_Window;
end Sample.Header_Handler;
AdaCurses-20211021/samples/ncurses2-demo_pad.adb 0000644 0001751 0000144 00000057762 13615656212 020013 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000-2011,2014 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.11 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with ncurses2.util; use ncurses2.util;
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
with Interfaces.C;
with System.Storage_Elements;
with System.Address_To_Access_Conversions;
with Ada.Text_IO;
-- with Ada.Real_Time; use Ada.Real_Time;
-- TODO is there a way to use Real_Time or Ada.Calendar in place of
-- gettimeofday?
-- Demonstrate pads.
procedure ncurses2.demo_pad is
type timestruct is record
seconds : Integer;
microseconds : Integer;
end record;
type myfunc is access function (w : Window) return Key_Code;
function gettime return timestruct;
procedure do_h_line (y : Line_Position;
x : Column_Position;
c : Attributed_Character;
to : Column_Position);
procedure do_v_line (y : Line_Position;
x : Column_Position;
c : Attributed_Character;
to : Line_Position);
function padgetch (win : Window) return Key_Code;
function panner_legend (line : Line_Position) return Boolean;
procedure panner_legend (line : Line_Position);
procedure panner_h_cleanup (from_y : Line_Position;
from_x : Column_Position;
to_x : Column_Position);
procedure panner_v_cleanup (from_y : Line_Position;
from_x : Column_Position;
to_y : Line_Position);
procedure panner (pad : Window;
top_xp : Column_Position;
top_yp : Line_Position;
portyp : Line_Position;
portxp : Column_Position;
pgetc : myfunc);
function gettime return timestruct is
retval : timestruct;
use Interfaces.C;
type timeval is record
tv_sec : long;
tv_usec : long;
end record;
pragma Convention (C, timeval);
-- TODO function from_timeval is new Ada.Unchecked_Conversion(
-- timeval_a, System.Storage_Elements.Integer_Address);
-- should Interfaces.C.Pointers be used here?
package myP is new System.Address_To_Access_Conversions (timeval);
use myP;
t : constant Object_Pointer := new timeval;
function gettimeofday
(TP : System.Storage_Elements.Integer_Address;
TZP : System.Storage_Elements.Integer_Address) return int;
pragma Import (C, gettimeofday, "gettimeofday");
tmp : int;
begin
tmp := gettimeofday (System.Storage_Elements.To_Integer
(myP.To_Address (t)),
System.Storage_Elements.To_Integer
(myP.To_Address (null)));
if tmp < 0 then
retval.seconds := 0;
retval.microseconds := 0;
else
retval.seconds := Integer (t.all.tv_sec);
retval.microseconds := Integer (t.all.tv_usec);
end if;
return retval;
end gettime;
-- in C, The behavior of mvhline, mvvline for negative/zero length is
-- unspecified, though we can rely on negative x/y values to stop the
-- macro. Except Ada makes Line_Position(-1) = Natural - 1 so forget it.
procedure do_h_line (y : Line_Position;
x : Column_Position;
c : Attributed_Character;
to : Column_Position) is
begin
if to > x then
Move_Cursor (Line => y, Column => x);
Horizontal_Line (Line_Size => Natural (to - x), Line_Symbol => c);
end if;
end do_h_line;
procedure do_v_line (y : Line_Position;
x : Column_Position;
c : Attributed_Character;
to : Line_Position) is
begin
if to > y then
Move_Cursor (Line => y, Column => x);
Vertical_Line (Line_Size => Natural (to - y), Line_Symbol => c);
end if;
end do_v_line;
function padgetch (win : Window) return Key_Code is
c : Key_Code;
c2 : Character;
begin
c := Getchar (win);
c2 := Code_To_Char (c);
case c2 is
when '!' =>
ShellOut (False);
return Key_Refresh;
when Character'Val (Character'Pos ('r') mod 16#20#) => -- CTRL('r')
End_Windows;
Refresh;
return Key_Refresh;
when Character'Val (Character'Pos ('l') mod 16#20#) => -- CTRL('l')
return Key_Refresh;
when 'U' =>
return Key_Cursor_Up;
when 'D' =>
return Key_Cursor_Down;
when 'R' =>
return Key_Cursor_Right;
when 'L' =>
return Key_Cursor_Left;
when '+' =>
return Key_Insert_Line;
when '-' =>
return Key_Delete_Line;
when '>' =>
return Key_Insert_Char;
when '<' =>
return Key_Delete_Char;
-- when ERR=> /* FALLTHRU */
when 'q' =>
return (Key_Exit);
when others =>
return (c);
end case;
end padgetch;
show_panner_legend : Boolean := True;
function panner_legend (line : Line_Position) return Boolean is
legend : constant array (0 .. 3) of String (1 .. 61) :=
(
"Use arrow keys (or U,D,L,R) to pan, q to quit (?,t,s flags) ",
"Use ! to shell-out. Toggle legend:?, timer:t, scroll mark:s.",
"Use +,- (or j,k) to grow/shrink the panner vertically. ",
"Use <,> (or h,l) to grow/shrink the panner horizontally. ");
legendsize : constant := 4;
n : constant Integer := legendsize - Integer (Lines - line);
begin
if line < Lines and n >= 0 then
Move_Cursor (Line => line, Column => 0);
if show_panner_legend then
Add (Str => legend (n));
end if;
Clear_To_End_Of_Line;
return show_panner_legend;
end if;
return False;
end panner_legend;
procedure panner_legend (line : Line_Position) is
begin
if not panner_legend (line) then
Beep;
end if;
end panner_legend;
procedure panner_h_cleanup (from_y : Line_Position;
from_x : Column_Position;
to_x : Column_Position) is
begin
if not panner_legend (from_y) then
do_h_line (from_y, from_x, Blank2, to_x);
end if;
end panner_h_cleanup;
procedure panner_v_cleanup (from_y : Line_Position;
from_x : Column_Position;
to_y : Line_Position) is
begin
if not panner_legend (from_y) then
do_v_line (from_y, from_x, Blank2, to_y);
end if;
end panner_v_cleanup;
procedure panner (pad : Window;
top_xp : Column_Position;
top_yp : Line_Position;
portyp : Line_Position;
portxp : Column_Position;
pgetc : myfunc) is
function f (y : Line_Position) return Line_Position;
function f (x : Column_Position) return Column_Position;
function greater (y1, y2 : Line_Position) return Integer;
function greater (x1, x2 : Column_Position) return Integer;
top_x : Column_Position := top_xp;
top_y : Line_Position := top_yp;
porty : Line_Position := portyp;
portx : Column_Position := portxp;
-- f[x] returns max[x - 1, 0]
function f (y : Line_Position) return Line_Position is
begin
if y > 0 then
return y - 1;
else
return y; -- 0
end if;
end f;
function f (x : Column_Position) return Column_Position is
begin
if x > 0 then
return x - 1;
else
return x; -- 0
end if;
end f;
function greater (y1, y2 : Line_Position) return Integer is
begin
if y1 > y2 then
return 1;
else
return 0;
end if;
end greater;
function greater (x1, x2 : Column_Position) return Integer is
begin
if x1 > x2 then
return 1;
else
return 0;
end if;
end greater;
pymax : Line_Position;
basey : Line_Position := 0;
pxmax : Column_Position;
basex : Column_Position := 0;
c : Key_Code;
scrollers : Boolean := True;
before, after : timestruct;
timing : Boolean := True;
package floatio is new Ada.Text_IO.Float_IO (Long_Float);
begin
Get_Size (pad, pymax, pxmax);
Allow_Scrolling (Mode => False); -- we don't want stdscr to scroll!
c := Key_Refresh;
loop
-- During shell-out, the user may have resized the window. Adjust
-- the port size of the pad to accommodate this. Ncurses
-- automatically resizes all of the normal windows to fit on the
-- new screen.
if top_x > Columns then
top_x := Columns;
end if;
if portx > Columns then
portx := Columns;
end if;
if top_y > Lines then
top_y := Lines;
end if;
if porty > Lines then
porty := Lines;
end if;
case c is
when Key_Refresh | Character'Pos ('?') =>
if c = Key_Refresh then
Erase;
else -- '?'
show_panner_legend := not show_panner_legend;
end if;
panner_legend (Lines - 4);
panner_legend (Lines - 3);
panner_legend (Lines - 2);
panner_legend (Lines - 1);
when Character'Pos ('t') =>
timing := not timing;
if not timing then
panner_legend (Lines - 1);
end if;
when Character'Pos ('s') =>
scrollers := not scrollers;
-- Move the top-left corner of the pad, keeping the
-- bottom-right corner fixed.
when Character'Pos ('h') =>
-- increase-columns: move left edge to left
if top_x = 0 then
Beep;
else
panner_v_cleanup (top_y, top_x, porty);
top_x := top_x - 1;
end if;
when Character'Pos ('j') =>
-- decrease-lines: move top-edge down
if top_y >= porty then
Beep;
else
if top_y /= 0 then
panner_h_cleanup (top_y - 1, f (top_x), portx);
end if;
top_y := top_y + 1;
end if;
when Character'Pos ('k') =>
-- increase-lines: move top-edge up
if top_y = 0 then
Beep;
else
top_y := top_y - 1;
panner_h_cleanup (top_y, top_x, portx);
end if;
when Character'Pos ('l') =>
-- decrease-columns: move left-edge to right
if top_x >= portx then
Beep;
else
if top_x /= 0 then
panner_v_cleanup (f (top_y), top_x - 1, porty);
end if;
top_x := top_x + 1;
end if;
-- Move the bottom-right corner of the pad, keeping the
-- top-left corner fixed.
when Key_Insert_Char =>
-- increase-columns: move right-edge to right
if portx >= pxmax or portx >= Columns then
Beep;
else
panner_v_cleanup (f (top_y), portx - 1, porty);
portx := portx + 1;
-- C had ++portx instead of portx++, weird.
end if;
when Key_Insert_Line =>
-- increase-lines: move bottom-edge down
if porty >= pymax or porty >= Lines then
Beep;
else
panner_h_cleanup (porty - 1, f (top_x), portx);
porty := porty + 1;
end if;
when Key_Delete_Char =>
-- decrease-columns: move bottom edge up
if portx <= top_x then
Beep;
else
portx := portx - 1;
panner_v_cleanup (f (top_y), portx, porty);
end if;
when Key_Delete_Line =>
-- decrease-lines
if porty <= top_y then
Beep;
else
porty := porty - 1;
panner_h_cleanup (porty, f (top_x), portx);
end if;
when Key_Cursor_Left =>
-- pan leftwards
if basex > 0 then
basex := basex - 1;
else
Beep;
end if;
when Key_Cursor_Right =>
-- pan rightwards
-- if (basex + portx - (pymax > porty) < pxmax)
if basex + portx -
Column_Position (greater (pymax, porty)) < pxmax
then
-- if basex + portx < pxmax or
-- (pymax > porty and basex + portx - 1 < pxmax) then
basex := basex + 1;
else
Beep;
end if;
when Key_Cursor_Up =>
-- pan upwards
if basey > 0 then
basey := basey - 1;
else
Beep;
end if;
when Key_Cursor_Down =>
-- pan downwards
-- same as if (basey + porty - (pxmax > portx) < pymax)
if basey + porty -
Line_Position (greater (pxmax, portx)) < pymax
then
-- if (basey + porty < pymax) or
-- (pxmax > portx and basey + porty - 1 < pymax) then
basey := basey + 1;
else
Beep;
end if;
when Character'Pos ('H') |
Key_Home |
Key_Find =>
basey := 0;
when Character'Pos ('E') |
Key_End |
Key_Select =>
if pymax < porty then
basey := 0;
else
basey := pymax - porty;
end if;
when others =>
Beep;
end case;
-- more writing off the screen.
-- Interestingly, the exception is not handled if
-- we put a block around this.
-- declare --begin
if top_y /= 0 and top_x /= 0 then
Add (Line => top_y - 1, Column => top_x - 1,
Ch => ACS_Map (ACS_Upper_Left_Corner));
end if;
if top_x /= 0 then
do_v_line (top_y, top_x - 1, ACS_Map (ACS_Vertical_Line), porty);
end if;
if top_y /= 0 then
do_h_line (top_y - 1, top_x, ACS_Map (ACS_Horizontal_Line), portx);
end if;
-- exception when Curses_Exception => null; end;
-- in C was ... pxmax > portx - 1
if scrollers and pxmax >= portx then
declare
length : constant Column_Position := portx - top_x - 1;
lowend, highend : Column_Position;
begin
-- Instead of using floats, I'll use integers only.
lowend := top_x + (basex * length) / pxmax;
highend := top_x + ((basex + length) * length) / pxmax;
do_h_line (porty - 1, top_x, ACS_Map (ACS_Horizontal_Line),
lowend);
if highend < portx then
Switch_Character_Attribute
(Attr => (Reverse_Video => True, others => False),
On => True);
do_h_line (porty - 1, lowend, Blank2, highend + 1);
Switch_Character_Attribute
(Attr => (Reverse_Video => True, others => False),
On => False);
do_h_line (porty - 1, highend + 1,
ACS_Map (ACS_Horizontal_Line), portx);
end if;
end;
else
do_h_line (porty - 1, top_x, ACS_Map (ACS_Horizontal_Line), portx);
end if;
if scrollers and pymax >= porty then
declare
length : constant Line_Position := porty - top_y - 1;
lowend, highend : Line_Position;
begin
lowend := top_y + (basey * length) / pymax;
highend := top_y + ((basey + length) * length) / pymax;
do_v_line (top_y, portx - 1, ACS_Map (ACS_Vertical_Line),
lowend);
if highend < porty then
Switch_Character_Attribute
(Attr => (Reverse_Video => True, others => False),
On => True);
do_v_line (lowend, portx - 1, Blank2, highend + 1);
Switch_Character_Attribute
(Attr => (Reverse_Video => True, others => False),
On => False);
do_v_line (highend + 1, portx - 1,
ACS_Map (ACS_Vertical_Line), porty);
end if;
end;
else
do_v_line (top_y, portx - 1, ACS_Map (ACS_Vertical_Line), porty);
end if;
if top_y /= 0 then
Add (Line => top_y - 1, Column => portx - 1,
Ch => ACS_Map (ACS_Upper_Right_Corner));
end if;
if top_x /= 0 then
Add (Line => porty - 1, Column => top_x - 1,
Ch => ACS_Map (ACS_Lower_Left_Corner));
end if;
declare
begin
-- Here is another place where it is possible
-- to write to the corner of the screen.
Add (Line => porty - 1, Column => portx - 1,
Ch => ACS_Map (ACS_Lower_Right_Corner));
exception
when Curses_Exception => null;
end;
before := gettime;
Refresh_Without_Update;
declare
-- the C version allows the panel to have a zero height
-- which raise the exception
begin
Refresh_Without_Update
(
pad,
basey, basex,
top_y, top_x,
porty - Line_Position (greater (pxmax, portx)) - 1,
portx - Column_Position (greater (pymax, porty)) - 1);
exception
when Curses_Exception => null;
end;
Update_Screen;
if timing then
declare
s : String (1 .. 7);
elapsed : Long_Float;
begin
after := gettime;
elapsed := (Long_Float (after.seconds - before.seconds) +
Long_Float (after.microseconds
- before.microseconds)
/ 1.0e6);
Move_Cursor (Line => Lines - 1, Column => Columns - 20);
floatio.Put (s, elapsed, Aft => 3, Exp => 0);
Add (Str => s);
Refresh;
end;
end if;
c := pgetc (pad);
exit when c = Key_Exit;
end loop;
Allow_Scrolling (Mode => True);
end panner;
Gridsize : constant := 3;
Gridcount : Integer := 0;
Pad_High : constant Line_Count := 200;
Pad_Wide : constant Column_Count := 200;
panpad : Window := New_Pad (Pad_High, Pad_Wide);
begin
if panpad = Null_Window then
Cannot ("cannot create requested pad");
return;
end if;
for i in 0 .. Pad_High - 1 loop
for j in 0 .. Pad_Wide - 1 loop
if i mod Gridsize = 0 and j mod Gridsize = 0 then
if i = 0 or j = 0 then
Add (panpad, '+');
else
-- depends on ASCII?
Add (panpad,
Ch => Character'Val (Character'Pos ('A') +
Gridcount mod 26));
Gridcount := Gridcount + 1;
end if;
elsif i mod Gridsize = 0 then
Add (panpad, '-');
elsif j mod Gridsize = 0 then
Add (panpad, '|');
else
declare
-- handle the write to the lower right corner error
begin
Add (panpad, ' ');
exception
when Curses_Exception => null;
end;
end if;
end loop;
end loop;
panner_legend (Lines - 4);
panner_legend (Lines - 3);
panner_legend (Lines - 2);
panner_legend (Lines - 1);
Set_KeyPad_Mode (panpad, True);
-- Make the pad (initially) narrow enough that a trace file won't wrap.
-- We'll still be able to widen it during a test, since that's required
-- for testing boundaries.
panner (panpad, 2, 2, Lines - 5, Columns - 15, padgetch'Access);
Delete (panpad);
End_Windows; -- Hmm, Erase after End_Windows
Erase;
end ncurses2.demo_pad;
AdaCurses-20211021/samples/ncurses2-acs_and_scroll.adb 0000644 0001751 0000144 00000063561 13615656212 021203 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2018,2020 Thomas E. Dickey --
-- Copyright 2000-2009,2011 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.13 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
-- Windows and scrolling tester.
-- Demonstrate windows
with Ada.Strings.Fixed;
with Ada.Strings;
with ncurses2.util; use ncurses2.util;
with ncurses2.genericPuts;
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
with Terminal_Interface.Curses.Mouse; use Terminal_Interface.Curses.Mouse;
with Terminal_Interface.Curses.PutWin; use Terminal_Interface.Curses.PutWin;
with Ada.Streams.Stream_IO; use Ada.Streams.Stream_IO;
with Ada.Streams; use Ada.Streams;
procedure ncurses2.acs_and_scroll is
Macro_Quit : constant Key_Code := Character'Pos ('Q') mod 16#20#;
Macro_Escape : constant Key_Code := Character'Pos ('[') mod 16#20#;
Quit : constant Key_Code := CTRL ('Q');
Escape : constant Key_Code := CTRL ('[');
Botlines : constant Line_Position := 4;
type pair is record
y : Line_Position;
x : Column_Position;
end record;
type Frame;
type FrameA is access Frame;
f : File_Type;
dumpfile : constant String := "screendump";
procedure Outerbox (ul, lr : pair; onoff : Boolean);
function HaveKeyPad (w : Window) return Boolean;
function HaveScroll (w : Window) return Boolean;
procedure newwin_legend (curpw : Window);
procedure transient (curpw : Window; msg : String);
procedure newwin_report (win : Window := Standard_Window);
procedure selectcell (uli : Line_Position;
ulj : Column_Position;
lri : Line_Position;
lrj : Column_Position;
p : out pair;
b : out Boolean);
function getwindow return Window;
procedure newwin_move (win : Window;
dy : Line_Position;
dx : Column_Position);
function delete_framed (fp : FrameA; showit : Boolean) return FrameA;
-- A linked list
-- I wish there was a standard library linked list. Oh well.
type Frame is record
next, last : FrameA;
do_scroll : Boolean;
do_keypad : Boolean;
wind : Window;
end record;
current : FrameA;
c : Key_Code;
procedure Outerbox (ul, lr : pair; onoff : Boolean) is
begin
if onoff then
-- Note the fix of an obscure bug
-- try making a 1x1 box then enlarging it, the is a blank
-- upper left corner!
Add (Line => ul.y - 1, Column => ul.x - 1,
Ch => ACS_Map (ACS_Upper_Left_Corner));
Add (Line => ul.y - 1, Column => lr.x + 1,
Ch => ACS_Map (ACS_Upper_Right_Corner));
Add (Line => lr.y + 1, Column => lr.x + 1,
Ch => ACS_Map (ACS_Lower_Right_Corner));
Add (Line => lr.y + 1, Column => ul.x - 1,
Ch => ACS_Map (ACS_Lower_Left_Corner));
Move_Cursor (Line => ul.y - 1, Column => ul.x);
Horizontal_Line (Line_Symbol => ACS_Map (ACS_Horizontal_Line),
Line_Size => Integer (lr.x - ul.x) + 1);
Move_Cursor (Line => ul.y, Column => ul.x - 1);
Vertical_Line (Line_Symbol => ACS_Map (ACS_Vertical_Line),
Line_Size => Integer (lr.y - ul.y) + 1);
Move_Cursor (Line => lr.y + 1, Column => ul.x);
Horizontal_Line (Line_Symbol => ACS_Map (ACS_Horizontal_Line),
Line_Size => Integer (lr.x - ul.x) + 1);
Move_Cursor (Line => ul.y, Column => lr.x + 1);
Vertical_Line (Line_Symbol => ACS_Map (ACS_Vertical_Line),
Line_Size => Integer (lr.y - ul.y) + 1);
else
Add (Line => ul.y - 1, Column => ul.x - 1, Ch => ' ');
Add (Line => ul.y - 1, Column => lr.x + 1, Ch => ' ');
Add (Line => lr.y + 1, Column => lr.x + 1, Ch => ' ');
Add (Line => lr.y + 1, Column => ul.x - 1, Ch => ' ');
Move_Cursor (Line => ul.y - 1, Column => ul.x);
Horizontal_Line (Line_Symbol => Blank2,
Line_Size => Integer (lr.x - ul.x) + 1);
Move_Cursor (Line => ul.y, Column => ul.x - 1);
Vertical_Line (Line_Symbol => Blank2,
Line_Size => Integer (lr.y - ul.y) + 1);
Move_Cursor (Line => lr.y + 1, Column => ul.x);
Horizontal_Line (Line_Symbol => Blank2,
Line_Size => Integer (lr.x - ul.x) + 1);
Move_Cursor (Line => ul.y, Column => lr.x + 1);
Vertical_Line (Line_Symbol => Blank2,
Line_Size => Integer (lr.y - ul.y) + 1);
end if;
end Outerbox;
function HaveKeyPad (w : Window) return Boolean is
begin
return Get_KeyPad_Mode (w);
exception
when Curses_Exception => return False;
end HaveKeyPad;
function HaveScroll (w : Window) return Boolean is
begin
return Scrolling_Allowed (w);
exception
when Curses_Exception => return False;
end HaveScroll;
procedure newwin_legend (curpw : Window) is
package p is new genericPuts (200);
use p;
use p.BS;
type string_a is access String;
type rrr is record
msg : string_a;
code : Integer range 0 .. 3;
end record;
legend : constant array (Positive range <>) of rrr :=
(
(
new String'("^C = create window"), 0
),
(
new String'("^N = next window"), 0
),
(
new String'("^P = previous window"), 0
),
(
new String'("^F = scroll forward"), 0
),
(
new String'("^B = scroll backward"), 0
),
(
new String'("^K = keypad(%s)"), 1
),
(
new String'("^S = scrollok(%s)"), 2
),
(
new String'("^W = save window to file"), 0
),
(
new String'("^R = restore window"), 0
),
(
new String'("^X = resize"), 0
),
(
new String'("^Q%s = exit"), 3
)
);
buf : Bounded_String;
do_keypad : constant Boolean := HaveKeyPad (curpw);
do_scroll : constant Boolean := HaveScroll (curpw);
pos : Natural;
mypair : pair;
begin
Move_Cursor (Line => Lines - 4, Column => 0);
for n in legend'Range loop
pos := Ada.Strings.Fixed.Index (Source => legend (n).msg.all,
Pattern => "%s");
buf := To_Bounded_String (legend (n).msg.all);
case legend (n).code is
when 0 => null;
when 1 =>
if do_keypad then
Replace_Slice (buf, pos, pos + 1, "yes");
else
Replace_Slice (buf, pos, pos + 1, "no");
end if;
when 2 =>
if do_scroll then
Replace_Slice (buf, pos, pos + 1, "yes");
else
Replace_Slice (buf, pos, pos + 1, "no");
end if;
when 3 =>
if do_keypad then
Replace_Slice (buf, pos, pos + 1, "/ESC");
else
Replace_Slice (buf, pos, pos + 1, "");
end if;
end case;
Get_Cursor_Position (Line => mypair.y, Column => mypair.x);
if Columns < mypair.x + 3 + Column_Position (Length (buf)) then
Add (Ch => newl);
elsif n /= 1 then -- n /= legen'First
Add (Str => ", ");
end if;
myAdd (Str => buf);
end loop;
Clear_To_End_Of_Line;
end newwin_legend;
procedure transient (curpw : Window; msg : String) is
begin
newwin_legend (curpw);
if msg /= "" then
Add (Line => Lines - 1, Column => 0, Str => msg);
Refresh;
Nap_Milli_Seconds (1000);
end if;
Move_Cursor (Line => Lines - 1, Column => 0);
if HaveKeyPad (curpw) then
Add (Str => "Non-arrow");
else
Add (Str => "All other");
end if;
Add (Str => " characters are echoed, window should ");
if not HaveScroll (curpw) then
Add (Str => "not ");
end if;
Add (Str => "scroll");
Clear_To_End_Of_Line;
end transient;
procedure newwin_report (win : Window := Standard_Window) is
y : Line_Position;
x : Column_Position;
use Int_IO;
tmp2a : String (1 .. 2);
tmp2b : String (1 .. 2);
begin
if win /= Standard_Window then
transient (win, "");
end if;
Get_Cursor_Position (win, y, x);
Move_Cursor (Line => Lines - 1, Column => Columns - 17);
Put (tmp2a, Integer (y));
Put (tmp2b, Integer (x));
Add (Str => "Y = " & tmp2a & " X = " & tmp2b);
if win /= Standard_Window then
Refresh;
else
Move_Cursor (win, y, x);
end if;
end newwin_report;
procedure selectcell (uli : Line_Position;
ulj : Column_Position;
lri : Line_Position;
lrj : Column_Position;
p : out pair;
b : out Boolean) is
c : Key_Code;
res : pair;
i : Line_Position := 0;
j : Column_Position := 0;
si : constant Line_Position := lri - uli + 1;
sj : constant Column_Position := lrj - ulj + 1;
begin
res.y := uli;
res.x := ulj;
loop
Move_Cursor (Line => uli + i, Column => ulj + j);
newwin_report;
c := Getchar;
case c is
when
Macro_Quit |
Macro_Escape =>
-- on the same line macro calls interfere due to the # comment
-- this is needed because keypad off affects all windows.
-- try removing the ESCAPE and see what happens.
b := False;
return;
when KEY_UP =>
i := i + si - 1;
-- same as i := i - 1 because of Modulus arithmetic,
-- on Line_Position, which is a Natural
-- the C version uses this form too, interestingly.
when KEY_DOWN =>
i := i + 1;
when KEY_LEFT =>
j := j + sj - 1;
when KEY_RIGHT =>
j := j + 1;
when Key_Mouse =>
declare
event : Mouse_Event;
y : Line_Position;
x : Column_Position;
Button : Mouse_Button;
State : Button_State;
begin
event := Get_Mouse;
Get_Event (Event => event,
Y => y,
X => x,
Button => Button,
State => State);
if y > uli and x > ulj then
i := y - uli;
j := x - ulj;
-- same as when others =>
res.y := uli + i;
res.x := ulj + j;
p := res;
b := True;
return;
else
Beep;
end if;
end;
when others =>
res.y := uli + i;
res.x := ulj + j;
p := res;
b := True;
return;
end case;
i := i mod si;
j := j mod sj;
end loop;
end selectcell;
function getwindow return Window is
rwindow : Window;
ul, lr : pair;
result : Boolean;
begin
Move_Cursor (Line => 0, Column => 0);
Clear_To_End_Of_Line;
Add (Str => "Use arrows to move cursor, anything else to mark corner 1");
Refresh;
selectcell (2, 1, Lines - Botlines - 2, Columns - 2, ul, result);
if not result then
return Null_Window;
end if;
Add (Line => ul.y - 1, Column => ul.x - 1,
Ch => ACS_Map (ACS_Upper_Left_Corner));
Move_Cursor (Line => 0, Column => 0);
Clear_To_End_Of_Line;
Add (Str => "Use arrows to move cursor, anything else to mark corner 2");
Refresh;
selectcell (ul.y, ul.x, Lines - Botlines - 2, Columns - 2, lr, result);
if not result then
return Null_Window;
end if;
rwindow := Sub_Window (Number_Of_Lines => lr.y - ul.y + 1,
Number_Of_Columns => lr.x - ul.x + 1,
First_Line_Position => ul.y,
First_Column_Position => ul.x);
Outerbox (ul, lr, True);
Refresh;
Refresh (rwindow);
Move_Cursor (Line => 0, Column => 0);
Clear_To_End_Of_Line;
return rwindow;
end getwindow;
procedure newwin_move (win : Window;
dy : Line_Position;
dx : Column_Position) is
cur_y, max_y : Line_Position;
cur_x, max_x : Column_Position;
begin
Get_Cursor_Position (win, cur_y, cur_x);
Get_Size (win, max_y, max_x);
cur_x := Column_Position'Min (Column_Position'Max (cur_x + dx, 0),
max_x - 1);
cur_y := Line_Position'Min (Line_Position'Max (cur_y + dy, 0),
max_y - 1);
Move_Cursor (win, Line => cur_y, Column => cur_x);
end newwin_move;
function delete_framed (fp : FrameA; showit : Boolean) return FrameA is
np : FrameA;
begin
fp.all.last.all.next := fp.all.next;
fp.all.next.all.last := fp.all.last;
if showit then
Erase (fp.all.wind);
Refresh (fp.all.wind);
end if;
Delete (fp.all.wind);
if fp = fp.all.next then
np := null;
else
np := fp.all.next;
end if;
-- TODO free(fp);
return np;
end delete_framed;
Mask : Event_Mask := No_Events;
Mask2 : Event_Mask;
usescr : Window;
begin
if Has_Mouse then
Register_Reportable_Event (
Button => Left,
State => Clicked,
Mask => Mask);
Mask2 := Start_Mouse (Mask);
end if;
c := CTRL ('C');
Set_Raw_Mode (SwitchOn => True);
loop
transient (Standard_Window, "");
case c is
when Character'Pos ('c') mod 16#20# => -- Ctrl('c')
declare
neww : constant FrameA := new Frame'(null, null,
False, False,
Null_Window);
begin
neww.all.wind := getwindow;
if neww.all.wind = Null_Window then
exit;
-- was goto breakout; ha ha ha
else
if current = null then
neww.all.next := neww;
neww.all.last := neww;
else
neww.all.next := current.all.next;
neww.all.last := current;
neww.all.last.all.next := neww;
neww.all.next.all.last := neww;
end if;
current := neww;
Set_KeyPad_Mode (current.all.wind, True);
current.all.do_keypad := HaveKeyPad (current.all.wind);
current.all.do_scroll := HaveScroll (current.all.wind);
end if;
end;
when Character'Pos ('N') mod 16#20# => -- Ctrl('N')
if current /= null then
current := current.all.next;
end if;
when Character'Pos ('P') mod 16#20# => -- Ctrl('P')
if current /= null then
current := current.all.last;
end if;
when Character'Pos ('F') mod 16#20# => -- Ctrl('F')
if current /= null and then HaveScroll (current.all.wind) then
Scroll (current.all.wind, 1);
end if;
when Character'Pos ('B') mod 16#20# => -- Ctrl('B')
if current /= null and then HaveScroll (current.all.wind) then
-- The C version of Scroll may return ERR which is ignored
-- we need to avoid the exception
-- with the 'and HaveScroll(current.wind)'
Scroll (current.all.wind, -1);
end if;
when Character'Pos ('K') mod 16#20# => -- Ctrl('K')
if current /= null then
current.all.do_keypad := not current.all.do_keypad;
Set_KeyPad_Mode (current.all.wind, current.all.do_keypad);
end if;
when Character'Pos ('S') mod 16#20# => -- Ctrl('S')
if current /= null then
current.all.do_scroll := not current.all.do_scroll;
Allow_Scrolling (current.all.wind, current.all.do_scroll);
end if;
when Character'Pos ('W') mod 16#20# => -- Ctrl('W')
if current /= current.all.next then
Create (f, Name => dumpfile); -- TODO error checking
if not Is_Open (f) then
raise Curses_Exception;
end if;
Put_Window (current.all.wind, f);
Close (f);
current := delete_framed (current, True);
end if;
when Character'Pos ('R') mod 16#20# => -- Ctrl('R')
declare
neww : FrameA := new Frame'(null, null, False, False,
Null_Window);
begin
Open (f, Mode => In_File, Name => dumpfile);
neww := new Frame'(null, null, False, False, Null_Window);
neww.all.next := current.all.next;
neww.all.last := current;
neww.all.last.all.next := neww;
neww.all.next.all.last := neww;
neww.all.wind := Get_Window (f);
Close (f);
Refresh (neww.all.wind);
end;
when Character'Pos ('X') mod 16#20# => -- Ctrl('X')
if current /= null then
declare
tmp, ul, lr : pair;
mx : Column_Position;
my : Line_Position;
tmpbool : Boolean;
begin
Move_Cursor (Line => 0, Column => 0);
Clear_To_End_Of_Line;
Add (Str => "Use arrows to move cursor, anything else " &
"to mark new corner");
Refresh;
Get_Window_Position (current.all.wind, ul.y, ul.x);
selectcell (ul.y, ul.x, Lines - Botlines - 2, Columns - 2,
tmp, tmpbool);
if not tmpbool then
-- the C version had a goto. I refuse gotos.
Beep;
else
Get_Size (current.all.wind, lr.y, lr.x);
lr.y := lr.y + ul.y - 1;
lr.x := lr.x + ul.x - 1;
Outerbox (ul, lr, False);
Refresh_Without_Update;
Get_Size (current.all.wind, my, mx);
if my > tmp.y - ul.y then
Get_Cursor_Position (current.all.wind, lr.y, lr.x);
Move_Cursor (current.all.wind, tmp.y - ul.y + 1, 0);
Clear_To_End_Of_Screen (current.all.wind);
Move_Cursor (current.all.wind, lr.y, lr.x);
end if;
if mx > tmp.x - ul.x then
for i in 0 .. my - 1 loop
Move_Cursor (current.all.wind, i, tmp.x - ul.x + 1);
Clear_To_End_Of_Line (current.all.wind);
end loop;
end if;
Refresh_Without_Update (current.all.wind);
lr := tmp;
-- The C version passes invalid args to resize
-- which returns an ERR. For Ada we avoid the exception.
if lr.y /= ul.y and lr.x /= ul.x then
Resize (current.all.wind, lr.y - ul.y + 0,
lr.x - ul.x + 0);
end if;
Get_Window_Position (current.all.wind, ul.y, ul.x);
Get_Size (current.all.wind, lr.y, lr.x);
lr.y := lr.y + ul.y - 1;
lr.x := lr.x + ul.x - 1;
Outerbox (ul, lr, True);
Refresh_Without_Update;
Refresh_Without_Update (current.all.wind);
Move_Cursor (Line => 0, Column => 0);
Clear_To_End_Of_Line;
Update_Screen;
end if;
end;
end if;
when Key_F10 =>
declare tmp : pair; tmpbool : Boolean;
begin
-- undocumented --- use this to test area clears
selectcell (0, 0, Lines - 1, Columns - 1, tmp, tmpbool);
Clear_To_End_Of_Screen;
Refresh;
end;
when Key_Cursor_Up =>
newwin_move (current.all.wind, -1, 0);
when Key_Cursor_Down =>
newwin_move (current.all.wind, 1, 0);
when Key_Cursor_Left =>
newwin_move (current.all.wind, 0, -1);
when Key_Cursor_Right =>
newwin_move (current.all.wind, 0, 1);
when Key_Backspace | Key_Delete_Char =>
declare
y : Line_Position;
x : Column_Position;
tmp : Line_Position;
begin
Get_Cursor_Position (current.all.wind, y, x);
-- x := x - 1;
-- I got tricked by the -1 = Max_Natural - 1 result
-- y := y - 1;
if not (x = 0 and y = 0) then
if x = 0 then
y := y - 1;
Get_Size (current.all.wind, tmp, x);
end if;
x := x - 1;
Delete_Character (current.all.wind, y, x);
end if;
end;
when others =>
-- TODO c = '\r' ?
if current /= null then
declare
begin
Add (current.all.wind, Ch => Code_To_Char (c));
exception
when Curses_Exception => null;
-- this happens if we are at the
-- lower right of a window and add a character.
end;
else
Beep;
end if;
end case;
newwin_report (current.all.wind);
if current /= null then
usescr := current.all.wind;
else
usescr := Standard_Window;
end if;
Refresh (usescr);
c := Getchar (usescr);
exit when c = Quit or (c = Escape and HaveKeyPad (usescr));
-- TODO when does c = ERR happen?
end loop;
-- TODO while current /= null loop
-- current := delete_framed(current, False);
-- end loop;
Allow_Scrolling (Mode => True);
End_Mouse (Mask2);
Set_Raw_Mode (SwitchOn => True);
Erase;
End_Windows;
end ncurses2.acs_and_scroll;
AdaCurses-20211021/samples/sample-menu_demo-handler.ads 0000644 0001751 0000144 00000007351 13615656212 021351 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Menu_Demo.Handler --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2003,2009 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.11 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Terminal_Interface.Curses;
use Terminal_Interface.Curses;
with Terminal_Interface.Curses.Panels;
use Terminal_Interface.Curses.Panels;
with Terminal_Interface.Curses.Menus;
use Terminal_Interface.Curses.Menus;
generic
with function My_Driver (Men : Menu;
K : Key_Code;
Pan : Panel) return Boolean;
package Sample.Menu_Demo.Handler is
procedure Drive_Me (M : Menu;
Lin : Line_Position;
Col : Column_Position;
Title : String := "");
-- Position the menu at the given point and drive it.
procedure Drive_Me (M : Menu;
Title : String := "");
-- Center menu and drive it.
end Sample.Menu_Demo.Handler;
AdaCurses-20211021/samples/ncurses2-trace_set.adb 0000644 0001751 0000144 00000041670 13615656212 020203 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses2.trace_set --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000-2011,2014 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.7 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with ncurses2.util; use ncurses2.util;
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
with Terminal_Interface.Curses.Trace; use Terminal_Interface.Curses.Trace;
with Terminal_Interface.Curses.Menus; use Terminal_Interface.Curses.Menus;
with Ada.Strings.Bounded;
-- interactively set the trace level
procedure ncurses2.trace_set is
function menu_virtualize (c : Key_Code) return Key_Code;
function subset (super, sub : Trace_Attribute_Set) return Boolean;
function trace_or (a, b : Trace_Attribute_Set) return Trace_Attribute_Set;
function trace_num (tlevel : Trace_Attribute_Set) return String;
function tracetrace (tlevel : Trace_Attribute_Set) return String;
function run_trace_menu (m : Menu; count : Integer) return Boolean;
function menu_virtualize (c : Key_Code) return Key_Code is
begin
case c is
when Character'Pos (newl) | Key_Exit =>
return Menu_Request_Code'Last + 1; -- MAX_COMMAND? TODO
when Character'Pos ('u') =>
return M_ScrollUp_Line;
when Character'Pos ('d') =>
return M_ScrollDown_Line;
when Character'Pos ('b') | Key_Next_Page =>
return M_ScrollUp_Page;
when Character'Pos ('f') | Key_Previous_Page =>
return M_ScrollDown_Page;
when Character'Pos ('n') | Key_Cursor_Down =>
return M_Next_Item;
when Character'Pos ('p') | Key_Cursor_Up =>
return M_Previous_Item;
when Character'Pos (' ') =>
return M_Toggle_Item;
when Key_Mouse =>
return c;
when others =>
Beep;
return c;
end case;
end menu_virtualize;
type string_a is access String;
type tbl_entry is record
name : string_a;
mask : Trace_Attribute_Set;
end record;
t_tbl : constant array (Positive range <>) of tbl_entry :=
(
(new String'("Disable"),
Trace_Disable),
(new String'("Times"),
Trace_Attribute_Set'(Times => True, others => False)),
(new String'("Tputs"),
Trace_Attribute_Set'(Tputs => True, others => False)),
(new String'("Update"),
Trace_Attribute_Set'(Update => True, others => False)),
(new String'("Cursor_Move"),
Trace_Attribute_Set'(Cursor_Move => True, others => False)),
(new String'("Character_Output"),
Trace_Attribute_Set'(Character_Output => True, others => False)),
(new String'("Ordinary"),
Trace_Ordinary),
(new String'("Calls"),
Trace_Attribute_Set'(Calls => True, others => False)),
(new String'("Virtual_Puts"),
Trace_Attribute_Set'(Virtual_Puts => True, others => False)),
(new String'("Input_Events"),
Trace_Attribute_Set'(Input_Events => True, others => False)),
(new String'("TTY_State"),
Trace_Attribute_Set'(TTY_State => True, others => False)),
(new String'("Internal_Calls"),
Trace_Attribute_Set'(Internal_Calls => True, others => False)),
(new String'("Character_Calls"),
Trace_Attribute_Set'(Character_Calls => True, others => False)),
(new String'("Termcap_TermInfo"),
Trace_Attribute_Set'(Termcap_TermInfo => True, others => False)),
(new String'("Maximium"),
Trace_Maximum)
);
package BS is new Ada.Strings.Bounded.Generic_Bounded_Length (300);
function subset (super, sub : Trace_Attribute_Set) return Boolean is
begin
if
(super.Times or not sub.Times) and
(super.Tputs or not sub.Tputs) and
(super.Update or not sub.Update) and
(super.Cursor_Move or not sub.Cursor_Move) and
(super.Character_Output or not sub.Character_Output) and
(super.Calls or not sub.Calls) and
(super.Virtual_Puts or not sub.Virtual_Puts) and
(super.Input_Events or not sub.Input_Events) and
(super.TTY_State or not sub.TTY_State) and
(super.Internal_Calls or not sub.Internal_Calls) and
(super.Character_Calls or not sub.Character_Calls) and
(super.Termcap_TermInfo or not sub.Termcap_TermInfo) and
True
then
return True;
else
return False;
end if;
end subset;
function trace_or (a, b : Trace_Attribute_Set) return Trace_Attribute_Set is
retval : Trace_Attribute_Set := Trace_Disable;
begin
retval.Times := (a.Times or b.Times);
retval.Tputs := (a.Tputs or b.Tputs);
retval.Update := (a.Update or b.Update);
retval.Cursor_Move := (a.Cursor_Move or b.Cursor_Move);
retval.Character_Output := (a.Character_Output or b.Character_Output);
retval.Calls := (a.Calls or b.Calls);
retval.Virtual_Puts := (a.Virtual_Puts or b.Virtual_Puts);
retval.Input_Events := (a.Input_Events or b.Input_Events);
retval.TTY_State := (a.TTY_State or b.TTY_State);
retval.Internal_Calls := (a.Internal_Calls or b.Internal_Calls);
retval.Character_Calls := (a.Character_Calls or b.Character_Calls);
retval.Termcap_TermInfo := (a.Termcap_TermInfo or b.Termcap_TermInfo);
return retval;
end trace_or;
-- Print the hexadecimal value of the mask so
-- users can set it from the command line.
function trace_num (tlevel : Trace_Attribute_Set) return String is
result : Integer := 0;
m : Integer := 1;
begin
if tlevel.Times then
result := result + m;
end if;
m := m * 2;
if tlevel.Tputs then
result := result + m;
end if;
m := m * 2;
if tlevel.Update then
result := result + m;
end if;
m := m * 2;
if tlevel.Cursor_Move then
result := result + m;
end if;
m := m * 2;
if tlevel.Character_Output then
result := result + m;
end if;
m := m * 2;
if tlevel.Calls then
result := result + m;
end if;
m := m * 2;
if tlevel.Virtual_Puts then
result := result + m;
end if;
m := m * 2;
if tlevel.Input_Events then
result := result + m;
end if;
m := m * 2;
if tlevel.TTY_State then
result := result + m;
end if;
m := m * 2;
if tlevel.Internal_Calls then
result := result + m;
end if;
m := m * 2;
if tlevel.Character_Calls then
result := result + m;
end if;
m := m * 2;
if tlevel.Termcap_TermInfo then
result := result + m;
end if;
m := m * 2;
return result'Img;
end trace_num;
function tracetrace (tlevel : Trace_Attribute_Set) return String is
use BS;
buf : Bounded_String := To_Bounded_String ("");
begin
-- The C version prints the hexadecimal value of the mask, we
-- won't do that here because this is Ada.
if tlevel = Trace_Disable then
Append (buf, "Trace_Disable");
else
if subset (tlevel,
Trace_Attribute_Set'(Times => True, others => False))
then
Append (buf, "Times");
Append (buf, ", ");
end if;
if subset (tlevel,
Trace_Attribute_Set'(Tputs => True, others => False))
then
Append (buf, "Tputs");
Append (buf, ", ");
end if;
if subset (tlevel,
Trace_Attribute_Set'(Update => True, others => False))
then
Append (buf, "Update");
Append (buf, ", ");
end if;
if subset (tlevel,
Trace_Attribute_Set'(Cursor_Move => True,
others => False))
then
Append (buf, "Cursor_Move");
Append (buf, ", ");
end if;
if subset (tlevel,
Trace_Attribute_Set'(Character_Output => True,
others => False))
then
Append (buf, "Character_Output");
Append (buf, ", ");
end if;
if subset (tlevel,
Trace_Ordinary)
then
Append (buf, "Ordinary");
Append (buf, ", ");
end if;
if subset (tlevel,
Trace_Attribute_Set'(Calls => True, others => False))
then
Append (buf, "Calls");
Append (buf, ", ");
end if;
if subset (tlevel,
Trace_Attribute_Set'(Virtual_Puts => True,
others => False))
then
Append (buf, "Virtual_Puts");
Append (buf, ", ");
end if;
if subset (tlevel,
Trace_Attribute_Set'(Input_Events => True,
others => False))
then
Append (buf, "Input_Events");
Append (buf, ", ");
end if;
if subset (tlevel,
Trace_Attribute_Set'(TTY_State => True,
others => False))
then
Append (buf, "TTY_State");
Append (buf, ", ");
end if;
if subset (tlevel,
Trace_Attribute_Set'(Internal_Calls => True,
others => False))
then
Append (buf, "Internal_Calls");
Append (buf, ", ");
end if;
if subset (tlevel,
Trace_Attribute_Set'(Character_Calls => True,
others => False))
then
Append (buf, "Character_Calls");
Append (buf, ", ");
end if;
if subset (tlevel,
Trace_Attribute_Set'(Termcap_TermInfo => True,
others => False))
then
Append (buf, "Termcap_TermInfo");
Append (buf, ", ");
end if;
if subset (tlevel,
Trace_Maximum)
then
Append (buf, "Maximium");
Append (buf, ", ");
end if;
end if;
if To_String (buf) (Length (buf) - 1) = ',' then
Delete (buf, Length (buf) - 1, Length (buf));
end if;
return To_String (buf);
end tracetrace;
function run_trace_menu (m : Menu; count : Integer) return Boolean is
i, p : Item;
changed : Boolean;
c, v : Key_Code;
begin
loop
changed := (count /= 0);
c := Getchar (Get_Window (m));
v := menu_virtualize (c);
case Driver (m, v) is
when Unknown_Request =>
return False;
when others =>
i := Current (m);
if i = Menus.Items (m, 1) then -- the first item
for n in t_tbl'First + 1 .. t_tbl'Last loop
if Value (i) then
Set_Value (i, False);
changed := True;
end if;
end loop;
else
for n in t_tbl'First + 1 .. t_tbl'Last loop
p := Menus.Items (m, n);
if Value (p) then
Set_Value (Menus.Items (m, 1), False);
changed := True;
exit;
end if;
end loop;
end if;
if not changed then
return True;
end if;
end case;
end loop;
end run_trace_menu;
nc_tracing, mask : Trace_Attribute_Set;
pragma Import (C, nc_tracing, "_nc_tracing");
items_a : constant Item_Array_Access :=
new Item_Array (t_tbl'First .. t_tbl'Last + 1);
mrows : Line_Count;
mcols : Column_Count;
menuwin : Window;
menu_y : constant Line_Position := 8;
menu_x : constant Column_Position := 8;
ip : Item;
m : Menu;
count : Integer;
newtrace : Trace_Attribute_Set;
begin
Add (Line => 0, Column => 0, Str => "Interactively set trace level:");
Add (Line => 2, Column => 0,
Str => " Press space bar to toggle a selection.");
Add (Line => 3, Column => 0,
Str => " Use up and down arrow to move the select bar.");
Add (Line => 4, Column => 0,
Str => " Press return to set the trace level.");
Add (Line => 6, Column => 0, Str => "(Current trace level is ");
Add (Str => tracetrace (nc_tracing) & " numerically: " &
trace_num (nc_tracing));
Add (Ch => ')');
Refresh;
for n in t_tbl'Range loop
items_a.all (n) := New_Item (t_tbl (n).name.all);
end loop;
items_a.all (t_tbl'Last + 1) := Null_Item;
m := New_Menu (items_a);
Set_Format (m, 16, 2);
Scale (m, mrows, mcols);
Switch_Options (m, (One_Valued => True, others => False), On => False);
menuwin := New_Window (mrows + 2, mcols + 2, menu_y, menu_x);
Set_Window (m, menuwin);
Set_KeyPad_Mode (menuwin, SwitchOn => True);
Box (menuwin);
Set_Sub_Window (m, Derived_Window (menuwin, mrows, mcols, 1, 1));
Post (m);
for n in t_tbl'Range loop
ip := Items (m, n);
mask := t_tbl (n).mask;
if mask = Trace_Disable then
Set_Value (ip, nc_tracing = Trace_Disable);
elsif subset (sub => mask, super => nc_tracing) then
Set_Value (ip, True);
end if;
end loop;
count := 1;
while run_trace_menu (m, count) loop
count := count + 1;
end loop;
newtrace := Trace_Disable;
for n in t_tbl'Range loop
ip := Items (m, n);
if Value (ip) then
mask := t_tbl (n).mask;
newtrace := trace_or (newtrace, mask);
end if;
end loop;
Trace_On (newtrace);
Trace_Put ("trace level interactively set to " &
tracetrace (nc_tracing));
Move_Cursor (Line => Lines - 4, Column => 0);
Add (Str => "Trace level is ");
Add (Str => tracetrace (nc_tracing));
Add (Ch => newl);
Pause; -- was just Add(); Getchar
Post (m, False);
-- menuwin has subwindows I think, which makes an error.
declare begin
Delete (menuwin);
exception when Curses_Exception => null; end;
-- free_menu(m);
-- free_item()
end ncurses2.trace_set;
AdaCurses-20211021/samples/rain.adb 0000644 0001751 0000144 00000014330 13615656212 015412 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Rain --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2007,2008 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Laurent Pautet
-- Modified by: Juergen Pfeifer, 1997
-- Version Control
-- $Revision: 1.9 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
-- --
with ncurses2.util; use ncurses2.util;
with Ada.Numerics.Float_Random; use Ada.Numerics.Float_Random;
with Status; use Status;
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
procedure Rain is
Visibility : Cursor_Visibility;
subtype X_Position is Line_Position;
subtype Y_Position is Column_Position;
Xpos : array (1 .. 5) of X_Position;
Ypos : array (1 .. 5) of Y_Position;
done : Boolean;
c : Key_Code;
N : Integer;
G : Generator;
Max_X, X : X_Position;
Max_Y, Y : Y_Position;
procedure Next (J : in out Integer);
procedure Cursor (X : X_Position; Y : Y_Position);
procedure Next (J : in out Integer) is
begin
if J = 5 then
J := 1;
else
J := J + 1;
end if;
end Next;
procedure Cursor (X : X_Position; Y : Y_Position) is
begin
Move_Cursor (Line => X, Column => Y);
end Cursor;
pragma Inline (Cursor);
begin
Init_Screen;
Set_NL_Mode;
Set_Echo_Mode (False);
Visibility := Invisible;
Set_Cursor_Visibility (Visibility);
Set_Timeout_Mode (Standard_Window, Non_Blocking, 0);
Max_X := Lines - 5;
Max_Y := Columns - 5;
for I in Xpos'Range loop
Xpos (I) := X_Position (Float (Max_X) * Random (G)) + 2;
Ypos (I) := Y_Position (Float (Max_Y) * Random (G)) + 2;
end loop;
N := 1;
done := False;
while not done and Process.Continue loop
X := X_Position (Float (Max_X) * Random (G)) + 2;
Y := Y_Position (Float (Max_Y) * Random (G)) + 2;
Cursor (X, Y);
Add (Ch => '.');
Cursor (Xpos (N), Ypos (N));
Add (Ch => 'o');
--
Next (N);
Cursor (Xpos (N), Ypos (N));
Add (Ch => 'O');
--
Next (N);
Cursor (Xpos (N) - 1, Ypos (N));
Add (Ch => '-');
Cursor (Xpos (N), Ypos (N) - 1);
Add (Str => "|.|");
Cursor (Xpos (N) + 1, Ypos (N));
Add (Ch => '-');
--
Next (N);
Cursor (Xpos (N) - 2, Ypos (N));
Add (Ch => '-');
Cursor (Xpos (N) - 1, Ypos (N) - 1);
Add (Str => "/\\");
Cursor (Xpos (N), Ypos (N) - 2);
Add (Str => "| O |");
Cursor (Xpos (N) + 1, Ypos (N) - 1);
Add (Str => "\\/");
Cursor (Xpos (N) + 2, Ypos (N));
Add (Ch => '-');
--
Next (N);
Cursor (Xpos (N) - 2, Ypos (N));
Add (Ch => ' ');
Cursor (Xpos (N) - 1, Ypos (N) - 1);
Add (Str => " ");
Cursor (Xpos (N), Ypos (N) - 2);
Add (Str => " ");
Cursor (Xpos (N) + 1, Ypos (N) - 1);
Add (Str => " ");
Cursor (Xpos (N) + 2, Ypos (N));
Add (Ch => ' ');
Xpos (N) := X;
Ypos (N) := Y;
c := Getchar;
case c is
when Character'Pos ('q') => done := True;
when Character'Pos ('Q') => done := True;
when Character'Pos ('s') => Set_NoDelay_Mode (Standard_Window, False);
when Character'Pos (' ') => Set_NoDelay_Mode (Standard_Window, True);
when others => null;
end case;
Nap_Milli_Seconds (50);
end loop;
Visibility := Normal;
Set_Cursor_Visibility (Visibility);
End_Windows;
Curses_Free_All;
end Rain;
AdaCurses-20211021/samples/sample.adb 0000644 0001751 0000144 00000020546 13615656212 015750 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2008,2011 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.19 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Text_IO;
with Ada.Exceptions; use Ada.Exceptions;
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
with Terminal_Interface.Curses.Panels; use Terminal_Interface.Curses.Panels;
with Terminal_Interface.Curses.Menus; use Terminal_Interface.Curses.Menus;
with Terminal_Interface.Curses.Menus.Menu_User_Data;
with Terminal_Interface.Curses.Menus.Item_User_Data;
with Sample.Manifest; use Sample.Manifest;
with Sample.Function_Key_Setting; use Sample.Function_Key_Setting;
with Sample.Keyboard_Handler; use Sample.Keyboard_Handler;
with Sample.Header_Handler; use Sample.Header_Handler;
with Sample.Explanation; use Sample.Explanation;
with Sample.Menu_Demo.Handler;
with Sample.Curses_Demo;
with Sample.Form_Demo;
with Sample.Menu_Demo;
with Sample.Text_IO_Demo;
with GNAT.OS_Lib;
package body Sample is
type User_Data is
record
Data : Integer;
end record;
type User_Access is access User_Data;
package Ud is new
Terminal_Interface.Curses.Menus.Menu_User_Data
(User_Data, User_Access);
package Id is new
Terminal_Interface.Curses.Menus.Item_User_Data
(User_Data, User_Access);
procedure Whow is
procedure Main_Menu;
procedure Main_Menu
is
function My_Driver (M : Menu;
K : Key_Code;
Pan : Panel) return Boolean;
package Mh is new Sample.Menu_Demo.Handler (My_Driver);
I : Item_Array_Access := new Item_Array'
(New_Item ("Curses Core Demo"),
New_Item ("Menu Demo"),
New_Item ("Form Demo"),
New_Item ("Text IO Demo"),
Null_Item);
M : Menu := New_Menu (I);
D1, D2 : User_Access;
I1, I2 : User_Access;
function My_Driver (M : Menu;
K : Key_Code;
Pan : Panel) return Boolean
is
Idx : constant Positive := Get_Index (Current (M));
begin
if K in User_Key_Code'Range then
if K = QUIT then
return True;
elsif K = SELECT_ITEM then
if Idx <= 4 then
Hide (Pan);
Update_Panels;
end if;
case Idx is
when 1 => Sample.Curses_Demo.Demo;
when 2 => Sample.Menu_Demo.Demo;
when 3 => Sample.Form_Demo.Demo;
when 4 => Sample.Text_IO_Demo.Demo;
when others => null;
end case;
if Idx <= 4 then
Top (Pan);
Show (Pan);
Update_Panels;
Update_Screen;
end if;
end if;
end if;
return False;
end My_Driver;
begin
if (1 + Item_Count (M)) /= I'Length then
raise Constraint_Error;
end if;
D1 := new User_Data'(Data => 4711);
Ud.Set_User_Data (M, D1);
I1 := new User_Data'(Data => 1174);
Id.Set_User_Data (I.all (1), I1);
Set_Spacing (Men => M, Row => 2);
Default_Labels;
Notepad ("MAINPAD");
Mh.Drive_Me (M, " Demo ");
Ud.Get_User_Data (M, D2);
pragma Assert (D1 = D2);
pragma Assert (D1.Data = D2.Data);
Id.Get_User_Data (I.all (1), I2);
pragma Assert (I1 = I2);
pragma Assert (I1.Data = I2.Data);
Delete (M);
Free (I, True);
end Main_Menu;
begin
Initialize (PC_Style_With_Index);
Init_Header_Handler;
Init_Screen;
if Has_Colors then
Start_Color;
Init_Pair (Pair => Default_Colors, Fore => Black, Back => White);
Init_Pair (Pair => Menu_Back_Color, Fore => Black, Back => Cyan);
Init_Pair (Pair => Menu_Fore_Color, Fore => Red, Back => Cyan);
Init_Pair (Pair => Menu_Grey_Color, Fore => White, Back => Cyan);
Init_Pair (Pair => Notepad_Color, Fore => Black, Back => Yellow);
Init_Pair (Pair => Help_Color, Fore => Blue, Back => Cyan);
Init_Pair (Pair => Form_Back_Color, Fore => Black, Back => Cyan);
Init_Pair (Pair => Form_Fore_Color, Fore => Red, Back => Cyan);
Init_Pair (Pair => Header_Color, Fore => Black, Back => Green);
Set_Background (Ch => (Color => Default_Colors,
Attr => Normal_Video,
Ch => ' '));
Set_Character_Attributes (Attr => Normal_Video,
Color => Default_Colors);
Erase;
Set_Soft_Label_Key_Attributes (Color => Header_Color);
-- This propagates the attributes to the label window
Refresh_Soft_Label_Keys;
end if;
Init_Keyboard_Handler;
Set_Echo_Mode (False);
Set_Raw_Mode;
Set_Meta_Mode;
Set_KeyPad_Mode;
-- Initialize the Function Key Environment
-- We have some fixed key throughout this sample
Main_Menu;
End_Windows;
Curses_Free_All;
exception
when Event : others =>
Terminal_Interface.Curses.End_Windows;
Text_IO.Put ("Exception: ");
Text_IO.Put (Exception_Name (Event));
Text_IO.New_Line;
GNAT.OS_Lib.OS_Exit (1);
end Whow;
end Sample;
AdaCurses-20211021/samples/ncurses2-overlap_test.adb 0000644 0001751 0000144 00000015457 14114650007 020734 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020,2021 Thomas E. Dickey --
-- Copyright 2000-2014,2015 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.9 $
-- $Date: 2021/09/04 10:52:55 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with ncurses2.util; use ncurses2.util;
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
-- test effects of overlapping windows
procedure ncurses2.overlap_test is
procedure fillwin (win : Window; ch : Character);
procedure crosswin (win : Window; ch : Character);
procedure fillwin (win : Window; ch : Character) is
y1 : Line_Position;
x1 : Column_Position;
begin
Get_Size (win, y1, x1);
for y in 0 .. y1 - 1 loop
Move_Cursor (win, y, 0);
for x in 0 .. x1 - 1 loop
Add (win, Ch => ch);
end loop;
end loop;
exception
when Curses_Exception => null;
-- write to lower right corner
end fillwin;
procedure crosswin (win : Window; ch : Character) is
y1 : Line_Position;
x1 : Column_Position;
begin
Get_Size (win, y1, x1);
for y in 0 .. y1 - 1 loop
for x in 0 .. x1 - 1 loop
if ((x > (x1 - 1) / 3) and (x <= (2 * (x1 - 1)) / 3)) or
(((y > (y1 - 1) / 3) and (y <= (2 * (y1 - 1)) / 3)))
then
Move_Cursor (win, y, x);
Add (win, Ch => ch);
end if;
end loop;
end loop;
end crosswin;
-- In a 24x80 screen like some xterms are, the instructions will
-- be overwritten.
ch : Character;
win1 : Window := New_Window (9, 20, 3, 3);
win2 : Window := New_Window (9, 20, 9, 16);
begin
Set_Raw_Mode (SwitchOn => True);
Refresh;
Move_Cursor (Line => 0, Column => 0);
Add (Str => "This test shows the behavior of wnoutrefresh() with " &
"respect to");
Add (Ch => newl);
Add (Str => "the shared region of two overlapping windows A and B. " &
"The cross");
Add (Ch => newl);
Add (Str => "pattern in each window does not overlap the other.");
Add (Ch => newl);
Move_Cursor (Line => 18, Column => 0);
Add (Str => "a = refresh A, then B, then doupdate. b = refresh B, " &
"then A, then doupdate");
Add (Ch => newl);
Add (Str => "c = fill window A with letter A. d = fill window B " &
"with letter B.");
Add (Ch => newl);
Add (Str => "e = cross pattern in window A. f = cross pattern " &
"in window B.");
Add (Ch => newl);
Add (Str => "g = clear window A. h = clear window B.");
Add (Ch => newl);
Add (Str => "i = overwrite A onto B. j = overwrite " &
"B onto A.");
Add (Ch => newl);
Add (Str => "^Q/ESC = terminate test.");
loop
ch := Code_To_Char (Getchar);
exit when ch = CTRL ('Q') or ch = CTRL ('['); -- QUIT or ESCAPE
case ch is
when 'a' => -- refresh window A first, then B
Refresh_Without_Update (win1);
Refresh_Without_Update (win2);
Update_Screen;
when 'b' => -- refresh window B first, then A
Refresh_Without_Update (win2);
Refresh_Without_Update (win1);
Update_Screen;
when 'c' => -- fill window A so it is visible
fillwin (win1, 'A');
when 'd' => -- fill window B so it is visible
fillwin (win2, 'B');
when 'e' => -- cross test pattern in window A
crosswin (win1, 'A');
when 'f' => -- cross test pattern in window B
crosswin (win2, 'B');
when 'g' => -- clear window A
Clear (win1);
Move_Cursor (win1, 0, 0);
when 'h' => -- clear window B
Clear (win2);
Move_Cursor (win2, 0, 0);
when 'i' => -- overwrite A onto B
Overwrite (win1, win2);
when 'j' => -- overwrite B onto A
Overwrite (win2, win1);
when others => null;
end case;
end loop;
Delete (win2);
Delete (win1);
Erase;
End_Windows;
end ncurses2.overlap_test;
AdaCurses-20211021/samples/ncurses2-getopt.adb 0000644 0001751 0000144 00000015662 13615656212 017536 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000-2008,2011 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.9 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
-- A simplified version of the GNU getopt function
-- copyright Free Software Foundtion
with Ada.Strings.Fixed;
with Ada.Strings.Bounded;
with Ada.Text_IO; use Ada.Text_IO;
package body ncurses2.getopt is
nextchar : Natural := 0;
-- Ncurses doesn't use the non option elements so we are spared
-- the job of computing those.
-- also the user is not allowed to modify argv or argc
-- Doing so is Erroneous execution.
-- long options are not handled.
procedure Qgetopt (retval : out Integer;
argc : Integer;
argv : stringfunc;
-- argv will be the Argument function.
optstring : String;
optind : in out Integer;
-- ignored for ncurses, must be initialized to 1 by
-- the caller
Optarg : out stringa
-- a garbage collector would be useful here.
) is
package BS is new Ada.Strings.Bounded.Generic_Bounded_Length (200);
use BS;
optargx : Bounded_String;
begin
if argc < optind then
retval := -1;
return;
end if;
optargx := To_Bounded_String ("");
if nextchar = 0 then
if argv (optind) = "--" then
-- the rest are non-options, we ignore them
retval := -1;
return;
end if;
if argv (optind)(1) /= '-' or argv (optind)'Length = 1 then
optind := optind + 1;
Optarg := new String'(argv (optind));
retval := 1;
return;
end if;
nextchar := 2; -- skip the one hyphen.
end if;
-- Look at and handle the next short option-character.
declare
c : Character := argv (optind) (nextchar);
temp : constant Natural :=
Ada.Strings.Fixed.Index (optstring, String'(1 => c));
begin
if temp = 0 or c = ':' then
Put_Line (Standard_Error,
argv (optind) & ": invalid option -- " & c);
c := '?';
return;
end if;
if optstring (temp + 1) = ':' then
if optstring (temp + 2) = ':' then
-- This is an option that accepts an argument optionally.
if nextchar /= argv (optind)'Length then
optargx := To_Bounded_String
(argv (optind) (nextchar .. argv (optind)'Length));
else
Optarg := null;
end if;
else
-- This is an option that requires an argument.
if nextchar /= argv (optind)'Length then
optargx := To_Bounded_String
(argv (optind) (nextchar .. argv (optind)'Length));
optind := optind + 1;
elsif optind = argc then
Put_Line (Standard_Error,
argv (optind) &
": option requires an argument -- " & c);
if optstring (optstring'First) = ':' then
c := ':';
else
c := '?';
end if;
else
-- increment it again when taking next ARGV-elt as argument.
optind := optind + 1;
optargx := To_Bounded_String (argv (optind));
optind := optind + 1;
end if;
end if;
nextchar := 0;
else -- no argument for the option
if nextchar = argv (optind)'Length then
optind := optind + 1;
nextchar := 0;
else
nextchar := nextchar + 1;
end if;
end if;
retval := Character'Pos (c);
Optarg := new String'(To_String (optargx));
return;
end;
end Qgetopt;
end ncurses2.getopt;
AdaCurses-20211021/samples/ncurses2-acs_display.adb 0000644 0001751 0000144 00000025025 13615656212 020521 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000-2006,2008 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.7 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with ncurses2.util; use ncurses2.util;
with ncurses2.genericPuts;
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
with Ada.Strings.Unbounded;
with Ada.Strings.Fixed;
procedure ncurses2.acs_display is
use Int_IO;
procedure show_upper_chars (first : Integer);
function show_1_acs (N : Integer;
name : String;
code : Attributed_Character)
return Integer;
procedure show_acs_chars;
procedure show_upper_chars (first : Integer) is
C1 : constant Boolean := (first = 128);
last : constant Integer := first + 31;
package p is new ncurses2.genericPuts (200);
use p;
use p.BS;
use Ada.Strings.Unbounded;
tmpa : Unbounded_String;
tmpb : BS.Bounded_String;
begin
Erase;
Switch_Character_Attribute
(Attr => (Bold_Character => True, others => False));
Move_Cursor (Line => 0, Column => 20);
tmpa := To_Unbounded_String ("Display of ");
if C1 then
tmpa := tmpa & "C1";
else
tmpa := tmpa & "GR";
end if;
tmpa := tmpa & " Character Codes ";
myPut (tmpb, first);
Append (tmpa, To_String (tmpb));
Append (tmpa, " to ");
myPut (tmpb, last);
Append (tmpa, To_String (tmpb));
Add (Str => To_String (tmpa));
Switch_Character_Attribute
(On => False,
Attr => (Bold_Character => True, others => False));
Refresh;
for code in first .. last loop
declare
row : constant Line_Position
:= Line_Position (4 + ((code - first) mod 16));
col : constant Column_Position
:= Column_Position (((code - first) / 16) *
Integer (Columns) / 2);
tmp3 : String (1 .. 3);
tmpx : String (1 .. Integer (Columns / 4));
reply : Key_Code;
begin
Put (tmp3, code);
myPut (tmpb, code, 16);
tmpa := To_Unbounded_String (tmp3 & " (" & To_String (tmpb) & ')');
Ada.Strings.Fixed.Move (To_String (tmpa), tmpx,
Justify => Ada.Strings.Right);
Add (Line => row, Column => col,
Str => tmpx & ' ' & ':' & ' ');
if C1 then
Set_NoDelay_Mode (Mode => True);
end if;
Add_With_Immediate_Echo (Ch => Code_To_Char (Key_Code (code)));
-- TODO check this
if C1 then
reply := Getchar;
while reply /= Key_None loop
Add (Ch => Code_To_Char (reply));
Nap_Milli_Seconds (10);
reply := Getchar;
end loop;
Set_NoDelay_Mode (Mode => False);
end if;
end;
end loop;
end show_upper_chars;
function show_1_acs (N : Integer;
name : String;
code : Attributed_Character)
return Integer is
height : constant Integer := 16;
row : constant Line_Position := Line_Position (4 + (N mod height));
col : constant Column_Position := Column_Position ((N / height) *
Integer (Columns) / 2);
tmpx : String (1 .. Integer (Columns) / 3);
begin
Ada.Strings.Fixed.Move (name, tmpx,
Justify => Ada.Strings.Right,
Drop => Ada.Strings.Left);
Add (Line => row, Column => col, Str => tmpx & ' ' & ':' & ' ');
-- we need more room than C because our identifiers are longer
-- 22 chars actually
Add (Ch => code);
return N + 1;
end show_1_acs;
procedure show_acs_chars is
n : Integer;
begin
Erase;
Switch_Character_Attribute
(Attr => (Bold_Character => True, others => False));
Add (Line => 0, Column => 20,
Str => "Display of the ACS Character Set");
Switch_Character_Attribute (On => False,
Attr => (Bold_Character => True,
others => False));
Refresh;
-- the following is useful to generate the below
-- grep '^[ ]*ACS_' ../src/terminal_interface-curses.ads |
-- awk '{print "n := show_1_acs(n, \""$1"\", ACS_Map("$1"));"}'
n := show_1_acs (0, "ACS_Upper_Left_Corner",
ACS_Map (ACS_Upper_Left_Corner));
n := show_1_acs (n, "ACS_Lower_Left_Corner",
ACS_Map (ACS_Lower_Left_Corner));
n := show_1_acs (n, "ACS_Upper_Right_Corner",
ACS_Map (ACS_Upper_Right_Corner));
n := show_1_acs (n, "ACS_Lower_Right_Corner",
ACS_Map (ACS_Lower_Right_Corner));
n := show_1_acs (n, "ACS_Left_Tee", ACS_Map (ACS_Left_Tee));
n := show_1_acs (n, "ACS_Right_Tee", ACS_Map (ACS_Right_Tee));
n := show_1_acs (n, "ACS_Bottom_Tee", ACS_Map (ACS_Bottom_Tee));
n := show_1_acs (n, "ACS_Top_Tee", ACS_Map (ACS_Top_Tee));
n := show_1_acs (n, "ACS_Horizontal_Line",
ACS_Map (ACS_Horizontal_Line));
n := show_1_acs (n, "ACS_Vertical_Line", ACS_Map (ACS_Vertical_Line));
n := show_1_acs (n, "ACS_Plus_Symbol", ACS_Map (ACS_Plus_Symbol));
n := show_1_acs (n, "ACS_Scan_Line_1", ACS_Map (ACS_Scan_Line_1));
n := show_1_acs (n, "ACS_Scan_Line_9", ACS_Map (ACS_Scan_Line_9));
n := show_1_acs (n, "ACS_Diamond", ACS_Map (ACS_Diamond));
n := show_1_acs (n, "ACS_Checker_Board", ACS_Map (ACS_Checker_Board));
n := show_1_acs (n, "ACS_Degree", ACS_Map (ACS_Degree));
n := show_1_acs (n, "ACS_Plus_Minus", ACS_Map (ACS_Plus_Minus));
n := show_1_acs (n, "ACS_Bullet", ACS_Map (ACS_Bullet));
n := show_1_acs (n, "ACS_Left_Arrow", ACS_Map (ACS_Left_Arrow));
n := show_1_acs (n, "ACS_Right_Arrow", ACS_Map (ACS_Right_Arrow));
n := show_1_acs (n, "ACS_Down_Arrow", ACS_Map (ACS_Down_Arrow));
n := show_1_acs (n, "ACS_Up_Arrow", ACS_Map (ACS_Up_Arrow));
n := show_1_acs (n, "ACS_Board_Of_Squares",
ACS_Map (ACS_Board_Of_Squares));
n := show_1_acs (n, "ACS_Lantern", ACS_Map (ACS_Lantern));
n := show_1_acs (n, "ACS_Solid_Block", ACS_Map (ACS_Solid_Block));
n := show_1_acs (n, "ACS_Scan_Line_3", ACS_Map (ACS_Scan_Line_3));
n := show_1_acs (n, "ACS_Scan_Line_7", ACS_Map (ACS_Scan_Line_7));
n := show_1_acs (n, "ACS_Less_Or_Equal", ACS_Map (ACS_Less_Or_Equal));
n := show_1_acs (n, "ACS_Greater_Or_Equal",
ACS_Map (ACS_Greater_Or_Equal));
n := show_1_acs (n, "ACS_PI", ACS_Map (ACS_PI));
n := show_1_acs (n, "ACS_Not_Equal", ACS_Map (ACS_Not_Equal));
n := show_1_acs (n, "ACS_Sterling", ACS_Map (ACS_Sterling));
if n = 0 then
raise Constraint_Error;
end if;
end show_acs_chars;
c1 : Key_Code;
c : Character := 'a';
begin
loop
case c is
when 'a' =>
show_acs_chars;
when '0' | '1' | '2' | '3' =>
show_upper_chars (ctoi (c) * 32 + 128);
when others =>
null;
end case;
Add (Line => Lines - 3, Column => 0,
Str => "Note: ANSI terminals may not display C1 characters.");
Add (Line => Lines - 2, Column => 0,
Str => "Select: a=ACS, 0=C1, 1,2,3=GR characters, q=quit");
Refresh;
c1 := Getchar;
c := Code_To_Char (c1);
exit when c = 'q' or c = 'x';
end loop;
Pause;
Erase;
End_Windows;
end ncurses2.acs_display;
AdaCurses-20211021/samples/ncurses2-util.ads 0000644 0001751 0000144 00000007641 13615656212 017230 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses2.util --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000,2006 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.3 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
with Ada.Text_IO;
package ncurses2.util is
Blank : constant Character := ' ';
Blank2 : constant Attributed_Character :=
(Ch => Blank, Attr => Normal_Video, Color => Color_Pair'First);
newl : constant Character := Character'Val (10);
function CTRL (c : Character) return Key_Code;
function CTRL (c : Character) return Character;
function Getchar (win : Window := Standard_Window) return Key_Code;
procedure Getchar (win : Window := Standard_Window);
procedure Pause;
procedure Cannot (s : String);
procedure ShellOut (message : Boolean);
package Int_IO is new Ada.Text_IO.Integer_IO (Integer);
function Is_Digit (c : Key_Code) return Boolean;
procedure P (s : String);
function Code_To_Char (c : Key_Code) return Character;
function ctoi (c : Character) return Integer;
end ncurses2.util;
AdaCurses-20211021/samples/sample-menu_demo.ads 0000644 0001751 0000144 00000006031 13615656212 017730 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Menu_Demo --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2002,2003 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.11 $
-- Binding Version 01.00
------------------------------------------------------------------------------
package Sample.Menu_Demo is
procedure Demo;
end Sample.Menu_Demo;
AdaCurses-20211021/samples/ncurses.adb 0000644 0001751 0000144 00000006153 13615656212 016147 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.2 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with ncurses2.m; use ncurses2.m;
with GNAT.OS_Lib; use GNAT.OS_Lib;
procedure ncurses is
begin
OS_Exit (main);
end ncurses;
AdaCurses-20211021/samples/ncurses2-slk_test.adb 0000644 0001751 0000144 00000017304 13615656212 020057 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2018,2020 Thomas E. Dickey --
-- Copyright 2000-2009,2011 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.11 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with ncurses2.util; use ncurses2.util;
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
with Ada.Strings.Unbounded;
with Interfaces.C;
with Terminal_Interface.Curses.Aux;
procedure ncurses2.slk_test is
procedure myGet (Win : Window := Standard_Window;
Str : out Ada.Strings.Unbounded.Unbounded_String;
Len : Integer := -1);
procedure myGet (Win : Window := Standard_Window;
Str : out Ada.Strings.Unbounded.Unbounded_String;
Len : Integer := -1)
is
use Ada.Strings.Unbounded;
use Interfaces.C;
use Terminal_Interface.Curses.Aux;
function Wgetnstr (Win : Window;
Str : char_array;
Len : int) return int;
pragma Import (C, Wgetnstr, "wgetnstr");
-- FIXME: how to construct "(Len > 0) ? Len : 80"?
Ask : constant Interfaces.C.size_t := Interfaces.C.size_t'Val (Len + 80);
Txt : char_array (0 .. Ask);
begin
Txt (0) := Interfaces.C.char'First;
if Wgetnstr (Win, Txt, Txt'Length) = Curses_Err then
raise Curses_Exception;
end if;
Str := To_Unbounded_String (To_Ada (Txt, True));
end myGet;
use Ada.Strings.Unbounded;
c : Key_Code;
buf : Unbounded_String;
c2 : Character;
fmt : Label_Justification := Centered;
tmp : Integer;
begin
c := CTRL ('l');
loop
Move_Cursor (Line => 0, Column => 0);
c2 := Code_To_Char (c);
case c2 is
when Character'Val (Character'Pos ('l') mod 16#20#) => -- CTRL('l')
Erase;
Switch_Character_Attribute (Attr => (Bold_Character => True,
others => False));
Add (Line => 0, Column => 20,
Str => "Soft Key Exerciser");
Switch_Character_Attribute (On => False,
Attr => (Bold_Character => True,
others => False));
Move_Cursor (Line => 2, Column => 0);
P ("Available commands are:");
P ("");
P ("^L -- refresh screen");
P ("a -- activate or restore soft keys");
P ("d -- disable soft keys");
P ("c -- set centered format for labels");
P ("l -- set left-justified format for labels");
P ("r -- set right-justified format for labels");
P ("[12345678] -- set label; labels are numbered 1 through 8");
P ("e -- erase stdscr (should not erase labels)");
P ("s -- test scrolling of shortened screen");
P ("x, q -- return to main menu");
P ("");
P ("Note: if activating the soft keys causes your terminal to");
P ("scroll up one line, your terminal auto-scrolls when anything");
P ("is written to the last screen position. The ncurses code");
P ("does not yet handle this gracefully.");
Refresh;
Restore_Soft_Label_Keys;
when 'a' =>
Restore_Soft_Label_Keys;
when 'e' =>
Clear;
when 's' =>
Add (Line => 20, Column => 0,
Str => "Press Q to stop the scrolling-test: ");
loop
c := Getchar;
c2 := Code_To_Char (c);
exit when c2 = 'Q';
-- c = ERR?
-- TODO when c is not a character (arrow key)
-- the behavior is different from the C version.
Add (Ch => c2);
end loop;
when 'd' =>
Clear_Soft_Label_Keys;
when 'l' =>
fmt := Left;
when 'c' =>
fmt := Centered;
when 'r' =>
fmt := Right;
when '1' | '2' | '3' | '4' | '5' | '6' | '7' | '8' =>
Add (Line => 20, Column => 0,
Str => "Please enter the label value: ");
Set_Echo_Mode (SwitchOn => True);
myGet (Str => buf);
Set_Echo_Mode (SwitchOn => False);
tmp := ctoi (c2);
Set_Soft_Label_Key (Label_Number (tmp), To_String (buf), fmt);
Refresh_Soft_Label_Keys;
Move_Cursor (Line => 20, Column => 0);
Clear_To_End_Of_Line;
when 'x' | 'q' =>
exit;
-- the C version needed a goto, ha ha
-- breaks exit the case not the loop because fall-through
-- happens in C!
when others =>
Beep;
end case;
c := Getchar;
-- TODO exit when c = EOF
end loop;
Erase;
End_Windows;
end ncurses2.slk_test;
AdaCurses-20211021/samples/ncurses2-menu_test.ads 0000644 0001751 0000144 00000006011 13615656212 020244 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.2 $
-- Binding Version 01.00
------------------------------------------------------------------------------
procedure ncurses2.menu_test;
AdaCurses-20211021/samples/ncurses2-acs_and_scroll.ads 0000644 0001751 0000144 00000006016 13615656212 021214 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.2 $
-- Binding Version 01.00
------------------------------------------------------------------------------
procedure ncurses2.acs_and_scroll;
AdaCurses-20211021/samples/ncurses2.ads 0000644 0001751 0000144 00000006051 13615656212 016247 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.2 $
-- Binding Version 01.00
------------------------------------------------------------------------------
package ncurses2 is
pragma Pure (ncurses2);
end ncurses2;
AdaCurses-20211021/samples/sample-curses_demo-mouse.adb 0000644 0001751 0000144 00000021432 13615656212 021377 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Curses_Demo.Mouse --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2006,2008 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.17 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
with Terminal_Interface.Curses.Panels; use Terminal_Interface.Curses.Panels;
with Terminal_Interface.Curses.Mouse; use Terminal_Interface.Curses.Mouse;
with Terminal_Interface.Curses.Text_IO; use Terminal_Interface.Curses.Text_IO;
with Terminal_Interface.Curses.Text_IO.Integer_IO;
with Terminal_Interface.Curses.Text_IO.Enumeration_IO;
with Sample.Helpers; use Sample.Helpers;
with Sample.Manifest; use Sample.Manifest;
with Sample.Keyboard_Handler; use Sample.Keyboard_Handler;
with Sample.Function_Key_Setting; use Sample.Function_Key_Setting;
with Sample.Explanation; use Sample.Explanation;
package body Sample.Curses_Demo.Mouse is
package Int_IO is new
Terminal_Interface.Curses.Text_IO.Integer_IO (Integer);
use Int_IO;
package Button_IO is new
Terminal_Interface.Curses.Text_IO.Enumeration_IO (Mouse_Button);
use Button_IO;
package State_IO is new
Terminal_Interface.Curses.Text_IO.Enumeration_IO (Button_State);
use State_IO;
procedure Demo is
type Controls is array (1 .. 3) of Panel;
Frame : Window;
Msg : Window;
Ctl : Controls;
Pan : Panel;
K : Real_Key_Code;
V : Cursor_Visibility := Invisible;
W : Window;
Note : Window;
Msg_L : constant Line_Count := 8;
Lins : Line_Position := Lines;
Cols : Column_Position;
Mask : Event_Mask;
procedure Show_Mouse_Event;
procedure Show_Mouse_Event
is
Evt : constant Mouse_Event := Get_Mouse;
Y : Line_Position;
X : Column_Position;
Button : Mouse_Button;
State : Button_State;
W : Window;
begin
Get_Event (Evt, Y, X, Button, State);
Put (Msg, "Event at");
Put (Msg, " X="); Put (Msg, Integer (X), 3);
Put (Msg, ", Y="); Put (Msg, Integer (Y), 3);
Put (Msg, ", Btn="); Put (Msg, Button, 10);
Put (Msg, ", Stat="); Put (Msg, State, 15);
for I in Ctl'Range loop
W := Get_Window (Ctl (I));
if Enclosed_In_Window (W, Evt) then
Transform_Coordinates (W, Y, X, From_Screen);
Put (Msg, ",Box(");
Put (Msg, (I), 1); Put (Msg, ",");
Put (Msg, Integer (Y), 1); Put (Msg, ",");
Put (Msg, Integer (X), 1); Put (Msg, ")");
end if;
end loop;
New_Line (Msg);
Flush (Msg);
Update_Panels; Update_Screen;
end Show_Mouse_Event;
begin
Push_Environment ("MOUSE00");
Notepad ("MOUSE-PAD00");
Default_Labels;
Set_Cursor_Visibility (V);
Note := Notepad_Window;
if Note /= Null_Window then
Get_Window_Position (Note, Lins, Cols);
end if;
Frame := Create (Msg_L, Columns, Lins - Msg_L, 0);
if Has_Colors then
Set_Background (Win => Frame,
Ch => (Color => Default_Colors,
Attr => Normal_Video,
Ch => ' '));
Set_Character_Attributes (Win => Frame,
Attr => Normal_Video,
Color => Default_Colors);
Erase (Frame);
end if;
Msg := Derived_Window (Frame, Msg_L - 2, Columns - 2, 1, 1);
Pan := Create (Frame);
Set_Meta_Mode;
Set_KeyPad_Mode;
Mask := Start_Mouse;
Box (Frame);
Window_Title (Frame, "Mouse Protocol");
Refresh_Without_Update (Frame);
Allow_Scrolling (Msg, True);
declare
Middle_Column : constant Integer := Integer (Columns) / 2;
Middle_Index : constant Natural := Ctl'First + (Ctl'Length / 2);
Width : constant Column_Count := 5;
Height : constant Line_Count := 3;
Half : constant Column_Count := Width / 2;
Space : constant Column_Count := 3;
Position : Integer;
W : Window;
begin
for I in Ctl'Range loop
Position := ((I) - Integer (Middle_Index)) *
Integer (Half + Space + Width) + Middle_Column;
W := Create (Height,
Width,
1,
Column_Position (Position));
if Has_Colors then
Set_Background (Win => W,
Ch => (Color => Menu_Back_Color,
Attr => Normal_Video,
Ch => ' '));
Set_Character_Attributes (Win => W,
Attr => Normal_Video,
Color => Menu_Fore_Color);
Erase (W);
end if;
Ctl (I) := Create (W);
Box (W);
Move_Cursor (W, 1, Half);
Put (W, (I), 1);
Refresh_Without_Update (W);
end loop;
end;
Update_Panels; Update_Screen;
loop
K := Get_Key;
if K in Special_Key_Code'Range then
case K is
when QUIT_CODE => exit;
when HELP_CODE => Explain_Context;
when EXPLAIN_CODE => Explain ("MOUSEKEYS");
when Key_Mouse => Show_Mouse_Event;
when others => null;
end case;
end if;
end loop;
for I in Ctl'Range loop
W := Get_Window (Ctl (I));
Clear (W);
Delete (Ctl (I));
Delete (W);
end loop;
Clear (Frame);
Delete (Pan);
Delete (Msg);
Delete (Frame);
Set_Cursor_Visibility (V);
End_Mouse (Mask);
Pop_Environment;
Update_Panels; Update_Screen;
end Demo;
end Sample.Curses_Demo.Mouse;
AdaCurses-20211021/samples/ncurses2-getopt.ads 0000644 0001751 0000144 00000007217 13615656212 017554 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000,2006 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.3 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
package ncurses2.getopt is
type stringa is access String;
type stringfunc is access
function (n : Positive) return String;
procedure Qgetopt (retval : out Integer;
argc : Integer;
argv : stringfunc;
optstring : String;
optind : in out Integer;
-- ignored for ncurses, must be initialized to 0
-- by the caller
Optarg : out stringa
-- a garbage collector would be useful here.
);
end ncurses2.getopt;
AdaCurses-20211021/samples/ncurses2-color_edit.adb 0000644 0001751 0000144 00000024313 13615656212 020350 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000-2006,2009 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.7 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with ncurses2.util; use ncurses2.util;
with ncurses2.genericPuts;
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
procedure ncurses2.color_edit is
use Int_IO;
type RGB_Enum is (Redx, Greenx, Bluex);
procedure change_color (current : Color_Number;
field : RGB_Enum;
value : RGB_Value;
usebase : Boolean);
procedure change_color (current : Color_Number;
field : RGB_Enum;
value : RGB_Value;
usebase : Boolean) is
red, green, blue : RGB_Value;
begin
if usebase then
Color_Content (current, red, green, blue);
else
red := 0;
green := 0;
blue := 0;
end if;
case field is
when Redx => red := red + value;
when Greenx => green := green + value;
when Bluex => blue := blue + value;
end case;
declare
begin
Init_Color (current, red, green, blue);
exception
when Curses_Exception => Beep;
end;
end change_color;
package x is new ncurses2.genericPuts (100); use x;
tmpb : x.BS.Bounded_String;
tmp4 : String (1 .. 4);
tmp6 : String (1 .. 6);
tmp8 : String (1 .. 8);
-- This would be easier if Ada had a Bounded_String
-- defined as a class instead of the inferior generic package,
-- then I could define Put, Add, and Get for them. Blech.
value : RGB_Value := 0;
red, green, blue : RGB_Value;
max_colors : constant Natural := Number_Of_Colors;
current : Color_Number := 0;
field : RGB_Enum := Redx;
this_c : Key_Code := 0;
begin
Refresh;
for i in Color_Number'(0) .. Color_Number (Number_Of_Colors) loop
Init_Pair (Color_Pair (i), White, i);
end loop;
Move_Cursor (Line => Lines - 2, Column => 0);
Add (Str => "Number: ");
myPut (tmpb, Integer (value));
myAdd (Str => tmpb);
loop
Switch_Character_Attribute (On => False,
Attr => (Bold_Character => True,
others => False));
Add (Line => 0, Column => 20, Str => "Color RGB Value Editing");
Switch_Character_Attribute (On => False,
Attr => (Bold_Character => True,
others => False));
for i in Color_Number'(0) .. Color_Number (Number_Of_Colors) loop
Move_Cursor (Line => 2 + Line_Position (i), Column => 0);
if current = i then
Add (Ch => '>');
else
Add (Ch => ' ');
end if;
-- TODO if i <= color_names'Max then
Put (tmp8, Integer (i));
Set_Character_Attributes (Color => Color_Pair (i));
Add (Str => " ");
Set_Character_Attributes;
Refresh;
Color_Content (i, red, green, blue);
Add (Str => " R = ");
if current = i and field = Redx then
Switch_Character_Attribute (On => True,
Attr => (Stand_Out => True,
others => False));
end if;
Put (tmp4, Integer (red));
Add (Str => tmp4);
if current = i and field = Redx then
Set_Character_Attributes;
end if;
Add (Str => " G = ");
if current = i and field = Greenx then
Switch_Character_Attribute (On => True,
Attr => (Stand_Out => True,
others => False));
end if;
Put (tmp4, Integer (green));
Add (Str => tmp4);
if current = i and field = Greenx then
Set_Character_Attributes;
end if;
Add (Str => " B = ");
if current = i and field = Bluex then
Switch_Character_Attribute (On => True,
Attr => (Stand_Out => True,
others => False));
end if;
Put (tmp4, Integer (blue));
Add (Str => tmp4);
if current = i and field = Bluex then
Set_Character_Attributes;
end if;
Set_Character_Attributes;
Add (Ch => ')');
end loop;
Add (Line => Line_Position (Number_Of_Colors + 3), Column => 0,
Str => "Use up/down to select a color, left/right to change " &
"fields.");
Add (Line => Line_Position (Number_Of_Colors + 4), Column => 0,
Str => "Modify field by typing nnn=, nnn-, or nnn+. ? for help.");
Move_Cursor (Line => 2 + Line_Position (current), Column => 0);
this_c := Getchar;
if Is_Digit (this_c) then
value := 0;
end if;
case this_c is
when KEY_UP =>
current := (current - 1) mod Color_Number (max_colors);
when KEY_DOWN =>
current := (current + 1) mod Color_Number (max_colors);
when KEY_RIGHT =>
field := RGB_Enum'Val ((RGB_Enum'Pos (field) + 1) mod 3);
when KEY_LEFT =>
field := RGB_Enum'Val ((RGB_Enum'Pos (field) - 1) mod 3);
when
Character'Pos ('0') |
Character'Pos ('1') |
Character'Pos ('2') |
Character'Pos ('3') |
Character'Pos ('4') |
Character'Pos ('5') |
Character'Pos ('6') |
Character'Pos ('7') |
Character'Pos ('8') |
Character'Pos ('9') =>
value := value * 10 + RGB_Value (ctoi (Code_To_Char (this_c)));
when Character'Pos ('+') =>
change_color (current, field, value, True);
when Character'Pos ('-') =>
change_color (current, field, -value, True);
when Character'Pos ('=') =>
change_color (current, field, value, False);
when Character'Pos ('?') =>
Erase;
P (" RGB Value Editing Help");
P ("");
P ("You are in the RGB value editor. Use the arrow keys to " &
"select one of");
P ("the fields in one of the RGB triples of the current colors;" &
" the one");
P ("currently selected will be reverse-video highlighted.");
P ("");
P ("To change a field, enter the digits of the new value; they" &
" are echoed");
P ("as entered. Finish by typing `='. The change will take" &
" effect instantly.");
P ("To increment or decrement a value, use the same procedure," &
" but finish");
P ("with a `+' or `-'.");
P ("");
P ("To quit, do `x' or 'q'");
Pause;
Erase;
when Character'Pos ('q') |
Character'Pos ('x') =>
null;
when others =>
Beep;
end case;
Move_Cursor (Line => Lines - 2, Column => 0);
Put (tmp6, Integer (value));
Add (Str => "Number: " & tmp6);
Clear_To_End_Of_Line;
exit when this_c = Character'Pos ('x') or
this_c = Character'Pos ('q');
end loop;
Erase;
End_Windows;
end ncurses2.color_edit;
AdaCurses-20211021/samples/sample-my_field_type.ads 0000644 0001751 0000144 00000007165 13615656212 020622 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.My_Field_Type --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2003,2006 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.13 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Terminal_Interface.Curses.Forms; use Terminal_Interface.Curses.Forms;
with Terminal_Interface.Curses.Forms.Field_Types.User;
use Terminal_Interface.Curses.Forms.Field_Types.User;
-- This is a very simple user defined field type. It accepts only a
-- defined character as input into the field.
--
package Sample.My_Field_Type is
type My_Data is new User_Defined_Field_Type with
record
Ch : Character;
end record;
function Field_Check (Fld : Field;
Typ : My_Data) return Boolean;
function Character_Check (Ch : Character;
Typ : My_Data) return Boolean;
end Sample.My_Field_Type;
AdaCurses-20211021/samples/ncurses2-getch_test.adb 0000644 0001751 0000144 00000024011 13615656212 020351 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000-2009,2014 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.10 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
-- Character input test
-- test the keypad feature
with ncurses2.util; use ncurses2.util;
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
with Terminal_Interface.Curses.Mouse; use Terminal_Interface.Curses.Mouse;
with Ada.Characters.Handling;
with Ada.Strings.Bounded;
with ncurses2.genericPuts;
procedure ncurses2.getch_test is
use Int_IO;
function mouse_decode (ep : Mouse_Event) return String;
function mouse_decode (ep : Mouse_Event) return String is
Y : Line_Position;
X : Column_Position;
Button : Mouse_Button;
State : Button_State;
package BS is new Ada.Strings.Bounded.Generic_Bounded_Length (200);
use BS;
buf : Bounded_String := To_Bounded_String ("");
begin
-- Note that these bindings do not allow
-- two button states,
-- The C version can print {click-1, click-3} for example.
-- They also don't have the 'id' or z coordinate.
Get_Event (ep, Y, X, Button, State);
-- TODO Append (buf, "id "); from C version
Append (buf, "at (");
Append (buf, Column_Position'Image (X));
Append (buf, ", ");
Append (buf, Line_Position'Image (Y));
Append (buf, ") state");
Append (buf, Mouse_Button'Image (Button));
Append (buf, " = ");
Append (buf, Button_State'Image (State));
return To_String (buf);
end mouse_decode;
buf : String (1 .. 1024); -- TODO was BUFSIZE
n : Integer;
c : Key_Code;
blockflag : Timeout_Mode := Blocking;
firsttime : Boolean := True;
tmp2 : Event_Mask;
tmp6 : String (1 .. 6);
tmp20 : String (1 .. 20);
x : Column_Position;
y : Line_Position;
tmpx : Integer;
incount : Integer := 0;
begin
Refresh;
tmp2 := Start_Mouse (All_Events);
Add (Str => "Delay in 10ths of a second ( for blocking input)? ");
Set_Echo_Mode (SwitchOn => True);
Get (Str => buf);
Set_Echo_Mode (SwitchOn => False);
Set_NL_Mode (SwitchOn => False);
if Ada.Characters.Handling.Is_Digit (buf (1)) then
Get (Item => n, From => buf, Last => tmpx);
Set_Timeout_Mode (Mode => Delayed, Amount => n * 100);
blockflag := Delayed;
end if;
c := Character'Pos ('?');
Set_Raw_Mode (SwitchOn => True);
loop
if not firsttime then
Add (Str => "Key pressed: ");
Put (tmp6, Integer (c), 8);
Add (Str => tmp6);
Add (Ch => ' ');
if c = Key_Mouse then
declare
event : Mouse_Event;
begin
event := Get_Mouse;
Add (Str => "KEY_MOUSE, ");
Add (Str => mouse_decode (event));
Add (Ch => newl);
end;
elsif c >= Key_Min then
Key_Name (c, tmp20);
Add (Str => tmp20);
-- I used tmp and got bitten by the length problem:->
Add (Ch => newl);
elsif c > 16#80# then -- TODO fix, use constant if possible
declare
c2 : constant Character := Character'Val (c mod 16#80#);
begin
if Ada.Characters.Handling.Is_Graphic (c2) then
Add (Str => "M-");
Add (Ch => c2);
else
Add (Str => "M-");
Add (Str => Un_Control ((Ch => c2,
Color => Color_Pair'First,
Attr => Normal_Video)));
end if;
Add (Str => " (high-half character)");
Add (Ch => newl);
end;
else
declare
c2 : constant Character := Character'Val (c mod 16#80#);
begin
if Ada.Characters.Handling.Is_Graphic (c2) then
Add (Ch => c2);
Add (Str => " (ASCII printable character)");
Add (Ch => newl);
else
Add (Str => Un_Control ((Ch => c2,
Color => Color_Pair'First,
Attr => Normal_Video)));
Add (Str => " (ASCII control character)");
Add (Ch => newl);
end if;
end;
end if;
-- TODO I am not sure why this was in the C version
-- the delay statement scroll anyway.
Get_Cursor_Position (Line => y, Column => x);
if y >= Lines - 1 then
Move_Cursor (Line => 0, Column => 0);
end if;
Clear_To_End_Of_Line;
end if;
firsttime := False;
if c = Character'Pos ('g') then
declare
package p is new ncurses2.genericPuts (1024);
use p;
use p.BS;
timedout : Boolean := False;
boundedbuf : Bounded_String;
begin
Add (Str => "getstr test: ");
Set_Echo_Mode (SwitchOn => True);
-- Note that if delay mode is set
-- Get can raise an exception.
-- The C version would print the string it had so far
-- also TODO get longer length string, like the C version
declare begin
myGet (Str => boundedbuf);
exception when Curses_Exception =>
Add (Str => "Timed out.");
Add (Ch => newl);
timedout := True;
end;
-- note that the Ada Get will stop reading at 1024.
if not timedout then
Set_Echo_Mode (SwitchOn => False);
Add (Str => " I saw '");
myAdd (Str => boundedbuf);
Add (Str => "'.");
Add (Ch => newl);
end if;
end;
elsif c = Character'Pos ('s') then
ShellOut (True);
elsif c = Character'Pos ('x') or
c = Character'Pos ('q') or
(c = Key_None and blockflag = Blocking)
then
exit;
elsif c = Character'Pos ('?') then
Add (Str => "Type any key to see its keypad value. Also:");
Add (Ch => newl);
Add (Str => "g -- triggers a getstr test");
Add (Ch => newl);
Add (Str => "s -- shell out");
Add (Ch => newl);
Add (Str => "q -- quit");
Add (Ch => newl);
Add (Str => "? -- repeats this help message");
Add (Ch => newl);
end if;
loop
c := Getchar;
exit when c /= Key_None;
if blockflag /= Blocking then
Put (tmp6, incount); -- argh string length!
Add (Str => tmp6);
Add (Str => ": input timed out");
Add (Ch => newl);
else
Put (tmp6, incount);
Add (Str => tmp6);
Add (Str => ": input error");
Add (Ch => newl);
exit;
end if;
incount := incount + 1;
end loop;
end loop;
End_Mouse (tmp2);
Set_Timeout_Mode (Mode => Blocking, Amount => 0); -- amount is ignored
Set_Raw_Mode (SwitchOn => False);
Set_NL_Mode (SwitchOn => True);
Erase;
End_Windows;
end ncurses2.getch_test;
AdaCurses-20211021/samples/tour.adb 0000644 0001751 0000144 00000006027 13615656212 015456 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- tour --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2002,2003 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.11 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Sample; use Sample;
procedure Tour is
begin
Whow;
end Tour;
AdaCurses-20211021/samples/sample-keyboard_handler.adb 0000644 0001751 0000144 00000020215 13615656212 021234 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Keyboard_Handler --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2006,2011 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.17 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Ada.Strings; use Ada.Strings;
with Ada.Strings.Fixed; use Ada.Strings.Fixed;
with Ada.Strings.Maps.Constants; use Ada.Strings.Maps.Constants;
with Ada.Characters.Latin_1; use Ada.Characters.Latin_1;
with Ada.Characters.Handling; use Ada.Characters.Handling;
with Terminal_Interface.Curses.Panels; use Terminal_Interface.Curses.Panels;
with Terminal_Interface.Curses.Forms; use Terminal_Interface.Curses.Forms;
with Terminal_Interface.Curses.Forms.Field_Types.Enumeration;
use Terminal_Interface.Curses.Forms.Field_Types.Enumeration;
with Sample.Header_Handler; use Sample.Header_Handler;
with Sample.Form_Demo.Aux; use Sample.Form_Demo.Aux;
with Sample.Manifest; use Sample.Manifest;
with Sample.Form_Demo.Handler;
-- This package contains a centralized keyboard handler used throughout
-- this example. The handler establishes a timeout mechanism that provides
-- periodical updates of the common header lines used in this example.
--
package body Sample.Keyboard_Handler is
In_Command : Boolean := False;
function Get_Key (Win : Window := Standard_Window) return Real_Key_Code
is
K : Real_Key_Code;
function Command return Real_Key_Code;
function Command return Real_Key_Code
is
function My_Driver (F : Form;
C : Key_Code;
P : Panel) return Boolean;
package Fh is new Sample.Form_Demo.Handler (My_Driver);
type Label_Array is array (Label_Number) of String (1 .. 8);
Labels : Label_Array;
FA : Field_Array_Access := new Field_Array'
(Make (0, 0, "Command:"),
Make (Top => 0, Left => 9, Width => Columns - 11),
Null_Field);
K : Real_Key_Code := Key_None;
N : Natural := 0;
function My_Driver (F : Form;
C : Key_Code;
P : Panel) return Boolean
is
Ch : Character;
begin
if P = Null_Panel then
raise Panel_Exception;
end if;
if C in User_Key_Code'Range and then C = QUIT then
if Driver (F, F_Validate_Field) = Form_Ok then
K := Key_None;
return True;
end if;
elsif C in Normal_Key_Code'Range then
Ch := Character'Val (C);
if Ch = LF or else Ch = CR then
if Driver (F, F_Validate_Field) = Form_Ok then
declare
Buffer : String (1 .. Positive (Columns - 11));
Cmdc : String (1 .. 8);
begin
Get_Buffer (Fld => FA.all (2), Str => Buffer);
Trim (Buffer, Left);
if Buffer (1) /= ' ' then
Cmdc := To_Upper (Buffer (Cmdc'Range));
for I in Labels'Range loop
if Cmdc = Labels (I) then
K := Function_Key_Code
(Function_Key_Number (I));
exit;
end if;
end loop;
end if;
return True;
end;
end if;
end if;
end if;
return False;
end My_Driver;
begin
In_Command := True;
for I in Label_Number'Range loop
Get_Soft_Label_Key (I, Labels (I));
Trim (Labels (I), Left);
Translate (Labels (I), Upper_Case_Map);
if Labels (I) (1) /= ' ' then
N := N + 1;
end if;
end loop;
if N > 0 then -- some labels were really set
declare
Enum_Info : Enumeration_Info (N);
Enum_Field : Enumeration_Field;
J : Positive := Enum_Info.Names'First;
Frm : Form := Create (FA);
begin
for I in Label_Number'Range loop
if Labels (I) (1) /= ' ' then
Enum_Info.Names (J) := new String'(Labels (I));
J := J + 1;
end if;
end loop;
Enum_Field := Create (Enum_Info, True);
Set_Field_Type (FA.all (2), Enum_Field);
Set_Background (FA.all (2), Normal_Video);
Fh.Drive_Me (Frm, Lines - 3, 0);
Delete (Frm);
Update_Panels; Update_Screen;
end;
end if;
Free (FA, True);
In_Command := False;
return K;
end Command;
begin
Set_Timeout_Mode (Win, Delayed, 30000);
loop
K := Get_Keystroke (Win);
if K = Key_None then -- a timeout occurred
Update_Header_Window;
elsif K = 3 and then not In_Command then -- CTRL-C
K := Command;
exit when K /= Key_None;
else
exit;
end if;
end loop;
return K;
end Get_Key;
procedure Init_Keyboard_Handler is
begin
null;
end Init_Keyboard_Handler;
end Sample.Keyboard_Handler;
AdaCurses-20211021/samples/ncurses2-color_test.adb 0000644 0001751 0000144 00000015034 13615656212 020402 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000-2006,2008 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.4 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with ncurses2.util; use ncurses2.util;
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
with Ada.Strings.Fixed;
procedure ncurses2.color_test is
use Int_IO;
procedure show_color_name (y, x : Integer; color : Integer);
color_names : constant array (0 .. 15) of String (1 .. 7) :=
(
"black ",
"red ",
"green ",
"yellow ",
"blue ",
"magenta",
"cyan ",
"white ",
"BLACK ",
"RED ",
"GREEN ",
"YELLOW ",
"BLUE ",
"MAGENTA",
"CYAN ",
"WHITE "
);
procedure show_color_name (y, x : Integer; color : Integer) is
tmp5 : String (1 .. 5);
begin
if Number_Of_Colors > 8 then
Put (tmp5, color);
Add (Line => Line_Position (y), Column => Column_Position (x),
Str => tmp5);
else
Add (Line => Line_Position (y), Column => Column_Position (x),
Str => color_names (color));
end if;
end show_color_name;
top, width : Integer;
hello : String (1 .. 5);
-- tmp3 : String (1 .. 3);
-- tmp2 : String (1 .. 2);
begin
Refresh;
Add (Str => "There are ");
-- Put(tmp3, Number_Of_Colors*Number_Of_Colors);
Add (Str => Ada.Strings.Fixed.Trim (Integer'Image (Number_Of_Colors *
Number_Of_Colors),
Ada.Strings.Left));
Add (Str => " color pairs");
Add (Ch => newl);
if Number_Of_Colors > 8 then
width := 4;
else
width := 8;
end if;
if Number_Of_Colors > 8 then
hello := "Test ";
else
hello := "Hello";
end if;
for Bright in Boolean loop
if Number_Of_Colors > 8 then
top := 0;
else
top := Boolean'Pos (Bright) * (Number_Of_Colors + 3);
end if;
Clear_To_End_Of_Screen;
Move_Cursor (Line => Line_Position (top) + 1, Column => 0);
-- Put(tmp2, Number_Of_Colors);
Add (Str => Ada.Strings.Fixed.Trim (Integer'Image (Number_Of_Colors),
Ada.Strings.Left));
Add (Ch => 'x');
Add (Str => Ada.Strings.Fixed.Trim (Integer'Image (Number_Of_Colors),
Ada.Strings.Left));
Add (Str => " matrix of foreground/background colors, bright *");
if Bright then
Add (Str => "on");
else
Add (Str => "off");
end if;
Add (Ch => '*');
for i in 0 .. Number_Of_Colors - 1 loop
show_color_name (top + 2, (i + 1) * width, i);
end loop;
for i in 0 .. Number_Of_Colors - 1 loop
show_color_name (top + 3 + i, 0, i);
end loop;
for i in 1 .. Number_Of_Color_Pairs - 1 loop
Init_Pair (Color_Pair (i), Color_Number (i mod Number_Of_Colors),
Color_Number (i / Number_Of_Colors));
-- attron((attr_t) COLOR_PAIR(i)) -- Huh?
Set_Color (Pair => Color_Pair (i));
if Bright then
Switch_Character_Attribute (Attr => (Bold_Character => True,
others => False));
end if;
Add (Line => Line_Position (top + 3 + (i / Number_Of_Colors)),
Column => Column_Position ((i mod Number_Of_Colors + 1) *
width),
Str => hello);
Set_Character_Attributes;
end loop;
if Number_Of_Colors > 8 or Bright then
Pause;
end if;
end loop;
Erase;
End_Windows;
end ncurses2.color_test;
AdaCurses-20211021/samples/sample-my_field_type.adb 0000644 0001751 0000144 00000007344 13615656212 020600 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.My_Field_Type --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2006,2008 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.17 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
-- This is a very simple user defined field type. It accepts only a
-- defined character as input into the field.
--
package body Sample.My_Field_Type is
-- That's simple. There are minimal field validity checks.
function Field_Check (Fld : Field;
Typ : My_Data) return Boolean
is
begin
if Fld = Null_Field or Typ.Ch = Character'Val (0) then
return False;
end if;
return True;
end Field_Check;
-- Check exactly against the specified character.
function Character_Check (Ch : Character;
Typ : My_Data) return Boolean
is
C : constant Character := Typ.Ch;
begin
return Ch = C;
end Character_Check;
end Sample.My_Field_Type;
AdaCurses-20211021/samples/ncurses2-genericputs.ads 0000644 0001751 0000144 00000010037 13615656212 020574 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000-2006,2009 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.4 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Strings.Bounded;
use Ada.Strings.Bounded;
with Interfaces.C; use Interfaces.C;
with Interfaces.C.Strings; use Interfaces.C.Strings;
with Terminal_Interface.Curses;
generic
Max : Natural;
-- type mystring is private;
-- type myint is
package ncurses2.genericPuts is
package BS is new
Ada.Strings.Bounded.Generic_Bounded_Length (Max);
use BS;
procedure myGet (Win : Terminal_Interface.Curses.Window
:= Terminal_Interface.Curses.Standard_Window;
Str : out BS.Bounded_String;
Len : Integer := -1);
procedure myPut (Str : out BS.Bounded_String;
i : Integer;
Base : Number_Base := 10);
-- the default should be Ada.Text_IO.Integer_IO.Default_Base
-- but Default_Base is hidden in the generic so doesn't exist!
procedure myAdd (Str : BS.Bounded_String);
procedure Fill_String (Cp : chars_ptr; Str : out BS.Bounded_String);
end ncurses2.genericPuts;
AdaCurses-20211021/samples/sample-function_key_setting.ads 0000644 0001751 0000144 00000011114 13615656212 022210 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Function_Key_Setting --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2009,2011 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.12 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
with Terminal_Interface.Curses.Panels; use Terminal_Interface.Curses.Panels;
-- This package implements a simple stack of function key label environments.
--
package Sample.Function_Key_Setting is
procedure Push_Environment (Key : String;
Reset : Boolean := True);
-- Push the definition of the current function keys on an internal
-- stack. If the reset flag is true, all labels are reset while
-- pushed, so the new environment can assume a tabula rasa.
-- The Key defines the new Help Context associated with the new
-- Environment. This saves also the currently active Notepad.
procedure Pop_Environment;
-- Pop the Definitions from the stack and make them the current ones.
-- This also restores the Help context and the previous Notepad.
procedure Initialize (Mode : Soft_Label_Key_Format := PC_Style;
Just : Label_Justification := Left);
-- Initialize the environment
function Context return String;
-- Return the current context identifier
function Find_Context (Key : String) return Boolean;
-- Look for a context, return true if it is in the stack,
-- false otherwise.
procedure Notepad_To_Context (Pan : Panel);
-- Add a panel representing a notepad to the current context.
Function_Key_Stack_Error : exception;
procedure Default_Labels;
-- Set the default labels used in all environments
function Notepad_Window return Window;
-- Return the current notepad window or Null_Window if there is none.
end Sample.Function_Key_Setting;
AdaCurses-20211021/samples/ncurses2-color_test.ads 0000644 0001751 0000144 00000006012 13615656212 020417 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.2 $
-- Binding Version 01.00
------------------------------------------------------------------------------
procedure ncurses2.color_test;
AdaCurses-20211021/samples/ncurses2-acs_display.ads 0000644 0001751 0000144 00000006013 13615656212 020536 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.2 $
-- Binding Version 01.00
------------------------------------------------------------------------------
procedure ncurses2.acs_display;
AdaCurses-20211021/samples/README 0000644 0001751 0000144 00000005055 13615656212 014675 0 ustar tom users -------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998,2006 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN --
-- NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE --
-- USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
-------------------------------------------------------------------------------
-- $Id: README,v 1.3 2020/02/02 23:34:34 tom Exp $
-------------------------------------------------------------------------------
The intention of the demo at this point in time is not to demonstrate all
the features of (n)curses and its subsystems, but to give some sample
sources how to use the binding at all.
Ideally in the future we can combine both goals.
AdaCurses-20211021/samples/sample-menu_demo-aux.ads 0000644 0001751 0000144 00000010304 13615656212 020521 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Menu_Demo.Aux --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2009,2011 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.12 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
with Terminal_Interface.Curses.Panels; use Terminal_Interface.Curses.Panels;
with Terminal_Interface.Curses.Menus; use Terminal_Interface.Curses.Menus;
package Sample.Menu_Demo.Aux is
procedure Geometry (M : Menu;
L : out Line_Count;
C : out Column_Count;
Y : out Line_Position;
X : out Column_Position);
-- Calculate the geometry for a panel being able to be used to display
-- the menu.
function Create (M : Menu;
Title : String;
Lin : Line_Position;
Col : Column_Position) return Panel;
-- Create a panel decorated with a frame and the title at the specified
-- position. The dimension of the panel is derived from the menus layout.
procedure Destroy (M : Menu;
P : in out Panel);
-- Destroy all the windowing structures associated with this menu and
-- panel.
function Get_Request (M : Menu; P : Panel) return Key_Code;
-- Centralized request driver for all menus in this sample. This
-- gives us a common key binding for all menus.
end Sample.Menu_Demo.Aux;
AdaCurses-20211021/samples/sample-curses_demo.ads 0000644 0001751 0000144 00000006035 13615656212 020274 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Curses_Demo --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2002,2003 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.11 $
-- Binding Version 01.00
------------------------------------------------------------------------------
package Sample.Curses_Demo is
procedure Demo;
end Sample.Curses_Demo;
AdaCurses-20211021/samples/ncurses2-color_edit.ads 0000644 0001751 0000144 00000006012 13615656212 020365 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.2 $
-- Binding Version 01.00
------------------------------------------------------------------------------
procedure ncurses2.color_edit;
AdaCurses-20211021/samples/ncurses2-demo_pad.ads 0000644 0001751 0000144 00000006010 13615656212 020010 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.2 $
-- Binding Version 01.00
------------------------------------------------------------------------------
procedure ncurses2.demo_pad;
AdaCurses-20211021/samples/Makefile.in 0000644 0001751 0000144 00000013171 14070103035 016042 0 ustar tom users ##############################################################################
# Copyright 2018-2020,2021 Thomas E. Dickey #
# Copyright 1998-2015,2018 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 "Software"), #
# to deal in the Software without restriction, including without limitation #
# the rights to use, copy, modify, merge, publish, distribute, distribute #
# with modifications, 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. #
# #
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR #
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, #
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL #
# THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER #
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING #
# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER #
# DEALINGS IN THE SOFTWARE. #
# #
# Except as contained in this notice, the name(s) of the above copyright #
# holders shall not be used in advertising or otherwise to promote the sale, #
# use or other dealings in this Software without prior written #
# authorization. #
##############################################################################
#
# Author: Juergen Pfeifer, 1996
#
# $Id: Makefile.in,v 1.64 2021/07/03 15:45:33 tom Exp $
#
.SUFFIXES:
SHELL = @SHELL@
VPATH = @srcdir@
THIS = Makefile
x = @EXEEXT@
srcdir = @srcdir@
prefix = @prefix@
exec_prefix = @exec_prefix@
bindir = @bindir@
datarootdir = @datarootdir@
datadir = @datadir@
libdir = @libdir@
includedir = @includedir@
INSTALL = @INSTALL@ @INSTALL_OPT_O@
INSTALL_DATA = @INSTALL_DATA@
AWK = @AWK@
LN_S = @LN_S@
CC = @CC@
CFLAGS = @CFLAGS@ @EXTRA_CFLAGS@
CPPFLAGS = @ACPPFLAGS@ \
-DHAVE_CONFIG_H -I$(srcdir)
CCFLAGS = $(CPPFLAGS) $(CFLAGS)
CFLAGS_NORMAL = $(CCFLAGS) -DNCURSES_STATIC
CFLAGS_DEBUG = $(CCFLAGS) -DNCURSES_STATIC @CC_G_OPT@ -DTRACE
CFLAGS_PROFILE = $(CCFLAGS) -DNCURSES_STATIC -pg
CFLAGS_SHARED = $(CCFLAGS) @CC_SHARED_OPTS@
CFLAGS_DEFAULT = $(CFLAGS_@DFT_UPR_MODEL@)
REL_VERSION = @cf_cv_rel_version@
ABI_VERSION = @cf_cv_abi_version@
LOCAL_LIBDIR = @top_builddir@/lib
LINK = $(CC)
LDFLAGS = @LDFLAGS@ @LD_MODEL@ @LIBS@
RANLIB = @RANLIB@
################################################################################
BINDIR = $(DESTDIR)$(bindir)
DATADIR = $(DESTDIR)$(datadir)
LIBDIR = $(DESTDIR)$(libdir)
MY_DATADIR = $(DATADIR)/@ADA_LIBNAME@
THIS_DATADIR = $(datadir)/@ADA_LIBNAME@
################################################################################
ada_srcdir = ../src
LD_FLAGS = @LD_MODEL@ $(LOCAL_LIBS) @LDFLAGS@ @LIBS@ @LOCAL_LDFLAGS2@ $(LDFLAGS)
ADA = @cf_ada_compiler@
ADAPREP = gnatprep
ADAFLAGS = @ADAFLAGS@ -I$(srcdir)
ADAMAKE = @cf_ada_make@
ADAMAKEFLAGS = -a \
-A$(srcdir) \
-A$(ada_srcdir) \
-A$(srcdir)/$(ada_srcdir)
ALIB = @cf_ada_package@
ABASE = $(ALIB)-curses
THISLIB = sample
CARGS = -cargs $(ADAFLAGS)
LARGS = -largs -L../lib -l@ADA_LIBNAME@ @TEST_ARG2@ $(LD_FLAGS) @TEST_LIBS2@
PROGS = tour$x ncurses$x @USE_GNAT_SIGINT@ rain$x
################################################################################
@MAKE_PHONY@.PHONY : all
@MAKE_PHONY@.PHONY : clean
@MAKE_PHONY@.PHONY : distclean
@MAKE_PHONY@.PHONY : install
@MAKE_PHONY@.PHONY : install.examples
@MAKE_PHONY@.PHONY : install.libs
@MAKE_PHONY@.PHONY : libs
@MAKE_PHONY@.PHONY : mostlyclean
@MAKE_PHONY@.PHONY : realclean
@MAKE_PHONY@.PHONY : sources
@MAKE_PHONY@.PHONY : uninstall
@MAKE_PHONY@.PHONY : uninstall.examples
@MAKE_PHONY@.PHONY : uninstall.libs
all :: $(PROGS)
@echo made $@
sources :
@echo made $@
libs \
install \
install.libs ::
@echo made $@
uninstall \
uninstall.libs ::
@echo made $@
install.examples :: $(BINDIR) $(PROGS)
$(INSTALL) $(PROGS) $(BINDIR)
install.examples :: $(MY_DATADIR)
$(INSTALL_DATA) explain.txt $(MY_DATADIR)
uninstall.examples ::
-( cd $(BINDIR) && rm -f $(PROGS) )
-rmdir $(BINDIR)
-rm -f $(MY_DATADIR)/explain.txt
-rmdir $(MY_DATADIR)
$(BINDIR) \
$(MY_DATADIR) :
mkdir -p $@
AUTO_SRC = $(THISLIB)-explanation.adb
ncurses$x : $(AUTO_SRC)
$(ADAMAKE) $(ADAMAKEFLAGS) ncurses $(CARGS) $(LARGS)
tour$x : $(AUTO_SRC)
$(ADAMAKE) $(ADAMAKEFLAGS) tour $(CARGS) $(LARGS)
rain$x : $(AUTO_SRC)
$(ADAMAKE) $(ADAMAKEFLAGS) rain $(CARGS) $(LARGS)
mostlyclean:
@echo made $@
clean :: mostlyclean
rm -f *.o *.ali b_t*.* *.s $(PROGS) a.out core b_*_test.c *.xr[bs] \
rm -f $(AUTO_SRC)
rm -f trace screendump b~*.ad[bs]
distclean :: clean
rm -f Makefile
realclean :: distclean
@echo made $@
$(THISLIB)-explanation.adb : $(srcdir)/$(THISLIB)-explanation.adb_p
rm -f $@
$(AWK) -v this_datadir=$(THIS_DATADIR) -f $(srcdir)/split-path.awk < $(srcdir)/$(THISLIB)-explanation.adb_p >$@
AdaCurses-20211021/samples/sample-form_demo-aux.ads 0000644 0001751 0000144 00000011751 13615656212 020527 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Form_Demo.Aux --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2009,2011 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.12 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
with Terminal_Interface.Curses.Panels; use Terminal_Interface.Curses.Panels;
with Terminal_Interface.Curses.Forms; use Terminal_Interface.Curses.Forms;
package Sample.Form_Demo.Aux is
procedure Geometry (F : Form;
L : out Line_Count;
C : out Column_Count;
Y : out Line_Position;
X : out Column_Position);
-- Calculate the geometry for a panel being able to be used to display
-- the menu.
function Create (F : Form;
Title : String;
Lin : Line_Position;
Col : Column_Position) return Panel;
-- Create a panel decorated with a frame and the title at the specified
-- position. The dimension of the panel is derived from the menus layout.
procedure Destroy (F : Form;
P : in out Panel);
-- Destroy all the windowing structures associated with this menu and
-- panel.
function Get_Request (F : Form;
P : Panel;
Handle_CRLF : Boolean := True) return Key_Code;
-- Centralized request driver for all menus in this sample. This
-- gives us a common key binding for all menus.
function Make (Top : Line_Position;
Left : Column_Position;
Text : String) return Field;
-- create a label
function Make (Height : Line_Count := 1;
Width : Column_Count;
Top : Line_Position;
Left : Column_Position;
Off_Screen : Natural := 0) return Field;
-- create a editable field
function Default_Driver (F : Form;
K : Key_Code;
P : Panel) return Boolean;
function Count_Active (F : Form) return Natural;
-- Count the number of active fields in the form
end Sample.Form_Demo.Aux;
AdaCurses-20211021/samples/ncurses2-trace_set.ads 0000644 0001751 0000144 00000006011 13615656212 020212 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses2.trace_set --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.2 $
-- Binding Version 01.00
------------------------------------------------------------------------------
procedure ncurses2.trace_set;
AdaCurses-20211021/samples/sample-text_io_demo.ads 0000644 0001751 0000144 00000006037 13615656212 020445 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Text_IO_Demo --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2002,2003 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.11 $
-- Binding Version 01.00
------------------------------------------------------------------------------
package Sample.Text_IO_Demo is
procedure Demo;
end Sample.Text_IO_Demo;
AdaCurses-20211021/samples/ncurses2-test_sgr_attributes.adb 0000644 0001751 0000144 00000017620 13615656212 022330 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000,2006 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.3 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
with ncurses2.util; use ncurses2.util;
-- Graphic-rendition test (adapted from vttest)
procedure ncurses2.test_sgr_attributes is
procedure xAdd (l : Line_Position; c : Column_Position; s : String);
procedure xAdd (l : Line_Position; c : Column_Position; s : String) is
begin
Add (Line => l, Column => c, Str => s);
end xAdd;
normal, current : Attributed_Character;
begin
for pass in reverse Boolean loop
if pass then
normal := (Ch => ' ', Attr => Normal_Video, Color => 0);
else
normal := (Ch => ' ', Attr =>
(Reverse_Video => True, others => False), Color => 0);
end if;
-- Use non-default colors if possible to exercise bce a little
if Has_Colors then
Init_Pair (1, White, Blue);
normal.Color := 1;
end if;
Set_Background (Ch => normal);
Erase;
xAdd (1, 20, "Graphic rendition test pattern:");
xAdd (4, 1, "vanilla");
current := normal;
current.Attr.Bold_Character := not current.Attr.Bold_Character;
Set_Background (Ch => current);
xAdd (4, 40, "bold");
current := normal;
current.Attr.Under_Line := not current.Attr.Under_Line;
Set_Background (Ch => current);
xAdd (6, 6, "underline");
current := normal;
current.Attr.Bold_Character := not current.Attr.Bold_Character;
current.Attr.Under_Line := not current.Attr.Under_Line;
Set_Background (Ch => current);
xAdd (6, 45, "bold underline");
current := normal;
current.Attr.Blink := not current.Attr.Blink;
Set_Background (Ch => current);
xAdd (8, 1, "blink");
current := normal;
current.Attr.Blink := not current.Attr.Blink;
current.Attr.Bold_Character := not current.Attr.Bold_Character;
Set_Background (Ch => current);
xAdd (8, 40, "bold blink");
current := normal;
current.Attr.Under_Line := not current.Attr.Under_Line;
current.Attr.Blink := not current.Attr.Blink;
Set_Background (Ch => current);
xAdd (10, 6, "underline blink");
current := normal;
current.Attr.Bold_Character := not current.Attr.Bold_Character;
current.Attr.Under_Line := not current.Attr.Under_Line;
current.Attr.Blink := not current.Attr.Blink;
Set_Background (Ch => current);
xAdd (10, 45, "bold underline blink");
current := normal;
current.Attr.Reverse_Video := not current.Attr.Reverse_Video;
Set_Background (Ch => current);
xAdd (12, 1, "negative");
current := normal;
current.Attr.Bold_Character := not current.Attr.Bold_Character;
current.Attr.Reverse_Video := not current.Attr.Reverse_Video;
Set_Background (Ch => current);
xAdd (12, 40, "bold negative");
current := normal;
current.Attr.Under_Line := not current.Attr.Under_Line;
current.Attr.Reverse_Video := not current.Attr.Reverse_Video;
Set_Background (Ch => current);
xAdd (14, 6, "underline negative");
current := normal;
current.Attr.Bold_Character := not current.Attr.Bold_Character;
current.Attr.Under_Line := not current.Attr.Under_Line;
current.Attr.Reverse_Video := not current.Attr.Reverse_Video;
Set_Background (Ch => current);
xAdd (14, 45, "bold underline negative");
current := normal;
current.Attr.Blink := not current.Attr.Blink;
current.Attr.Reverse_Video := not current.Attr.Reverse_Video;
Set_Background (Ch => current);
xAdd (16, 1, "blink negative");
current := normal;
current.Attr.Bold_Character := not current.Attr.Bold_Character;
current.Attr.Blink := not current.Attr.Blink;
current.Attr.Reverse_Video := not current.Attr.Reverse_Video;
Set_Background (Ch => current);
xAdd (16, 40, "bold blink negative");
current := normal;
current.Attr.Under_Line := not current.Attr.Under_Line;
current.Attr.Blink := not current.Attr.Blink;
current.Attr.Reverse_Video := not current.Attr.Reverse_Video;
Set_Background (Ch => current);
xAdd (18, 6, "underline blink negative");
current := normal;
current.Attr.Bold_Character := not current.Attr.Bold_Character;
current.Attr.Under_Line := not current.Attr.Under_Line;
current.Attr.Blink := not current.Attr.Blink;
current.Attr.Reverse_Video := not current.Attr.Reverse_Video;
Set_Background (Ch => current);
xAdd (18, 45, "bold underline blink negative");
Set_Background (Ch => normal);
Move_Cursor (Line => Lines - 2, Column => 1);
if pass then
Add (Str => "Dark");
else
Add (Str => "Light");
end if;
Add (Str => " background. ");
Clear_To_End_Of_Line;
Pause;
end loop;
Set_Background (Ch => Blank2);
Erase;
End_Windows;
end ncurses2.test_sgr_attributes;
AdaCurses-20211021/samples/ncurses2-flushinp_test.ads 0000644 0001751 0000144 00000006127 13615656212 021140 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.2 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Terminal_Interface.Curses;
procedure ncurses2.flushinp_test (win : Terminal_Interface.Curses.Window);
AdaCurses-20211021/samples/sample-curses_demo-attributes.ads 0000644 0001751 0000144 00000006063 13615656212 022461 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Curses_Demo.Attributes --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2002,2003 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.11 $
-- Binding Version 01.00
------------------------------------------------------------------------------
package Sample.Curses_Demo.Attributes is
procedure Demo;
end Sample.Curses_Demo.Attributes;
AdaCurses-20211021/samples/sample-explanation.adb_p 0000644 0001751 0000144 00000035066 13615656212 020612 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Explanation --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2019,2020 Thomas E. Dickey --
-- --
-- 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, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.5 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
-- Poor mans help system. This scans a sequential file for key lines and
-- then reads the lines up to the next key. Those lines are presented in
-- a window as help or explanation.
--
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Unchecked_Deallocation;
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
with Terminal_Interface.Curses.Panels; use Terminal_Interface.Curses.Panels;
with Sample.Keyboard_Handler; use Sample.Keyboard_Handler;
with Sample.Manifest; use Sample.Manifest;
with Sample.Function_Key_Setting; use Sample.Function_Key_Setting;
with Sample.Helpers; use Sample.Helpers;
package body Sample.Explanation is
Help_Keys : constant String := "HELPKEYS";
In_Help : constant String := "INHELP";
File_Name : constant String := "explain.txt";
F : File_Type;
type Help_Line;
type Help_Line_Access is access Help_Line;
pragma Controlled (Help_Line_Access);
type String_Access is access String;
pragma Controlled (String_Access);
type Help_Line is
record
Prev, Next : Help_Line_Access;
Line : String_Access;
end record;
procedure Explain (Key : String;
Win : Window);
procedure Release_String is
new Ada.Unchecked_Deallocation (String,
String_Access);
procedure Release_Help_Line is
new Ada.Unchecked_Deallocation (Help_Line,
Help_Line_Access);
function Search (Key : String) return Help_Line_Access;
procedure Release_Help (Root : in out Help_Line_Access);
function Check_File (Name : String) return Boolean;
procedure Explain (Key : String)
is
begin
Explain (Key, Null_Window);
end Explain;
procedure Explain (Key : String;
Win : Window)
is
-- Retrieve the text associated with this key and display it in this
-- window. If no window argument is passed, the routine will create
-- a temporary window and use it.
function Filter_Key return Real_Key_Code;
procedure Unknown_Key;
procedure Redo;
procedure To_Window (C : in out Help_Line_Access;
More : in out Boolean);
Frame : Window := Null_Window;
W : Window := Win;
K : Real_Key_Code;
P : Panel;
Height : Line_Count;
Width : Column_Count;
Help : Help_Line_Access := Search (Key);
Current : Help_Line_Access;
Top_Line : Help_Line_Access;
Has_More : Boolean := True;
procedure Unknown_Key
is
begin
Add (W, "Help message with ID ");
Add (W, Key);
Add (W, " not found.");
Add (W, Character'Val (10));
Add (W, "Press the Function key labeled 'Quit' key to continue.");
end Unknown_Key;
procedure Redo
is
H : Help_Line_Access := Top_Line;
begin
if Top_Line /= null then
for L in 0 .. (Height - 1) loop
Add (W, L, 0, H.all.Line.all);
exit when H.all.Next = null;
H := H.all.Next;
end loop;
else
Unknown_Key;
end if;
end Redo;
function Filter_Key return Real_Key_Code
is
K : Real_Key_Code;
begin
loop
K := Get_Key (W);
if K in Special_Key_Code'Range then
case K is
when HELP_CODE =>
if not Find_Context (In_Help) then
Push_Environment (In_Help, False);
Explain (In_Help, W);
Pop_Environment;
Redo;
end if;
when EXPLAIN_CODE =>
if not Find_Context (Help_Keys) then
Push_Environment (Help_Keys, False);
Explain (Help_Keys, W);
Pop_Environment;
Redo;
end if;
when others => exit;
end case;
else
exit;
end if;
end loop;
return K;
end Filter_Key;
procedure To_Window (C : in out Help_Line_Access;
More : in out Boolean)
is
L : Line_Position := 0;
begin
loop
Add (W, L, 0, C.all.Line.all);
L := L + 1;
exit when C.all.Next = null or else L = Height;
C := C.all.Next;
end loop;
if C.all.Next /= null then
pragma Assert (L = Height);
More := True;
else
More := False;
end if;
end To_Window;
begin
if W = Null_Window then
Push_Environment ("HELP");
Default_Labels;
Frame := New_Window (Lines - 2, Columns, 0, 0);
if Has_Colors then
Set_Background (Win => Frame,
Ch => (Ch => ' ',
Color => Help_Color,
Attr => Normal_Video));
Set_Character_Attributes (Win => Frame,
Attr => Normal_Video,
Color => Help_Color);
Erase (Frame);
end if;
Box (Frame);
Set_Character_Attributes (Frame, (Reverse_Video => True,
others => False));
Add (Frame, Lines - 3, 2, "Cursor Up/Down scrolls");
Set_Character_Attributes (Frame); -- Back to default.
Window_Title (Frame, "Explanation");
W := Derived_Window (Frame, Lines - 4, Columns - 2, 1, 1);
Refresh_Without_Update (Frame);
Get_Size (W, Height, Width);
Set_Meta_Mode (W);
Set_KeyPad_Mode (W);
Allow_Scrolling (W, True);
Set_Echo_Mode (False);
P := Create (Frame);
Top (P);
Update_Panels;
else
Clear (W);
Refresh_Without_Update (W);
end if;
Current := Help; Top_Line := Help;
if null = Help then
Unknown_Key;
loop
K := Filter_Key;
exit when K = QUIT_CODE;
end loop;
else
To_Window (Current, Has_More);
if Has_More then
-- This means there are more lines available, so we have to go
-- into a scroll manager.
loop
K := Filter_Key;
if K in Special_Key_Code'Range then
case K is
when Key_Cursor_Down =>
if Current.all.Next /= null then
Move_Cursor (W, Height - 1, 0);
Scroll (W, 1);
Current := Current.all.Next;
Top_Line := Top_Line.all.Next;
Add (W, Current.all.Line.all);
end if;
when Key_Cursor_Up =>
if Top_Line.all.Prev /= null then
Move_Cursor (W, 0, 0);
Scroll (W, -1);
Top_Line := Top_Line.all.Prev;
Current := Current.all.Prev;
Add (W, Top_Line.all.Line.all);
end if;
when QUIT_CODE => exit;
when others => null;
end case;
end if;
end loop;
else
loop
K := Filter_Key;
exit when K = QUIT_CODE;
end loop;
end if;
end if;
Clear (W);
if Frame /= Null_Window then
Clear (Frame);
Delete (P);
Delete (W);
Delete (Frame);
Pop_Environment;
end if;
Update_Panels;
Update_Screen;
Release_Help (Help);
end Explain;
function Search (Key : String) return Help_Line_Access
is
Last : Natural;
Buffer : String (1 .. 256);
Root : Help_Line_Access := null;
Current : Help_Line_Access;
Tail : Help_Line_Access := null;
function Next_Line return Boolean;
function Next_Line return Boolean
is
H_End : constant String := "#END";
begin
Get_Line (F, Buffer, Last);
if Last = H_End'Length and then H_End = Buffer (1 .. Last) then
return False;
else
return True;
end if;
end Next_Line;
begin
Reset (F);
Outer :
loop
exit Outer when not Next_Line;
if Last = (1 + Key'Length)
and then Key = Buffer (2 .. Last)
and then Buffer (1) = '#'
then
loop
exit when not Next_Line;
exit when Buffer (1) = '#';
Current := new Help_Line'(null, null,
new String'(Buffer (1 .. Last)));
if Tail = null then
Release_Help (Root);
Root := Current;
else
Tail.all.Next := Current;
Current.all.Prev := Tail;
end if;
Tail := Current;
end loop;
exit Outer;
end if;
end loop Outer;
return Root;
end Search;
procedure Release_Help (Root : in out Help_Line_Access)
is
Next : Help_Line_Access;
begin
loop
exit when Root = null;
Next := Root.all.Next;
Release_String (Root.all.Line);
Release_Help_Line (Root);
Root := Next;
end loop;
end Release_Help;
procedure Explain_Context
is
begin
Explain (Context);
end Explain_Context;
procedure Notepad (Key : String)
is
H : constant Help_Line_Access := Search (Key);
T : Help_Line_Access := H;
N : Line_Count := 1;
L : Line_Position := 0;
W : Window;
P : Panel;
begin
if H /= null then
loop
T := T.all.Next;
exit when T = null;
N := N + 1;
end loop;
W := New_Window (N + 2, Columns, Lines - N - 2, 0);
if Has_Colors then
Set_Background (Win => W,
Ch => (Ch => ' ',
Color => Notepad_Color,
Attr => Normal_Video));
Set_Character_Attributes (Win => W,
Attr => Normal_Video,
Color => Notepad_Color);
Erase (W);
end if;
Box (W);
Window_Title (W, "Notepad");
P := New_Panel (W);
T := H;
loop
Add (W, L + 1, 1, T.all.Line.all, Integer (Columns - 2));
L := L + 1;
T := T.all.Next;
exit when T = null;
end loop;
T := H;
Release_Help (T);
Refresh_Without_Update (W);
Notepad_To_Context (P);
end if;
end Notepad;
function Check_File (Name : String) return Boolean is
The_File : File_Type;
begin
Open (The_File, In_File, Name);
Close (The_File);
return True;
exception
when Name_Error =>
return False;
end Check_File;
begin
if Check_File
($THIS_DATADIR
& File_Name)
then
Open (F, In_File,
$THIS_DATADIR
& File_Name);
elsif Check_File (File_Name) then
Open (F, In_File, File_Name);
else
Put_Line (Standard_Error,
"The file "
& File_Name
& " was not found in "
& $THIS_DATADIR
);
raise Name_Error;
end if;
end Sample.Explanation;
-- vile:adamode
AdaCurses-20211021/samples/ncurses2-menu_test.adb 0000644 0001751 0000144 00000015166 13615656212 020236 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000-2006,2011 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.9 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with ncurses2.util; use ncurses2.util;
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
with Terminal_Interface.Curses.Menus; use Terminal_Interface.Curses.Menus;
with Terminal_Interface.Curses.Mouse; use Terminal_Interface.Curses.Mouse;
procedure ncurses2.menu_test is
function menu_virtualize (c : Key_Code) return Key_Code;
procedure xAdd (l : Line_Position; c : Column_Position; s : String);
function menu_virtualize (c : Key_Code) return Key_Code is
begin
case c is
when Character'Pos (newl) | Key_Exit =>
return Menu_Request_Code'Last + 1; -- MAX_COMMAND? TODO
when Character'Pos ('u') =>
return M_ScrollUp_Line;
when Character'Pos ('d') =>
return M_ScrollDown_Line;
when Character'Pos ('b') | Key_Next_Page =>
return M_ScrollUp_Page;
when Character'Pos ('f') | Key_Previous_Page =>
return M_ScrollDown_Page;
when Character'Pos ('n') | Key_Cursor_Down =>
return M_Next_Item;
when Character'Pos ('p') | Key_Cursor_Up =>
return M_Previous_Item;
when Character'Pos (' ') =>
return M_Toggle_Item;
when Key_Mouse =>
return c;
when others =>
Beep;
return c;
end case;
end menu_virtualize;
MENU_Y : constant Line_Count := 8;
MENU_X : constant Column_Count := 8;
type String_Access is access String;
animals : constant array (Positive range <>) of String_Access :=
(new String'("Lions"),
new String'("Tigers"),
new String'("Bears"),
new String'("(Oh my!)"),
new String'("Newts"),
new String'("Platypi"),
new String'("Lemurs"));
items_a : constant Item_Array_Access :=
new Item_Array (1 .. animals'Last + 1);
tmp : Event_Mask;
procedure xAdd (l : Line_Position; c : Column_Position; s : String) is
begin
Add (Line => l, Column => c, Str => s);
end xAdd;
mrows : Line_Count;
mcols : Column_Count;
menuwin : Window;
m : Menu;
c1 : Key_Code;
c : Driver_Result;
r : Key_Code;
begin
tmp := Start_Mouse;
xAdd (0, 0, "This is the menu test:");
xAdd (2, 0, " Use up and down arrow to move the select bar.");
xAdd (3, 0, " 'n' and 'p' act like arrows.");
xAdd (4, 0, " 'b' and 'f' scroll up/down (page), 'u' and 'd' (line).");
xAdd (5, 0, " Press return to exit.");
Refresh;
for i in animals'Range loop
items_a.all (i) := New_Item (animals (i).all);
end loop;
items_a.all (animals'Last + 1) := Null_Item;
m := New_Menu (items_a);
Set_Format (m, Line_Position (animals'Last + 1) / 2, 1);
Scale (m, mrows, mcols);
menuwin := Create (mrows + 2, mcols + 2, MENU_Y, MENU_X);
Set_Window (m, menuwin);
Set_KeyPad_Mode (menuwin, True);
Box (menuwin); -- 0,0?
Set_Sub_Window (m, Derived_Window (menuwin, mrows, mcols, 1, 1));
Post (m);
loop
c1 := Getchar (menuwin);
r := menu_virtualize (c1);
c := Driver (m, r);
exit when c = Unknown_Request; -- E_UNKNOWN_COMMAND?
if c = Request_Denied then
Beep;
end if;
-- continue ?
end loop;
Move_Cursor (Line => Lines - 2, Column => 0);
Add (Str => "You chose: ");
Add (Str => Name (Current (m)));
Add (Ch => newl);
Pause; -- the C version didn't use Pause, it spelled it out
Post (m, False); -- unpost, not clear :-(
declare begin
Delete (menuwin);
exception when Curses_Exception => null; end;
-- menuwin has children so will raise the exception.
Delete (m);
End_Mouse (tmp);
end ncurses2.menu_test;
AdaCurses-20211021/samples/ncurses2-demo_panels.ads 0000644 0001751 0000144 00000006041 13615656212 020532 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.2 $
-- Binding Version 01.00
------------------------------------------------------------------------------
procedure ncurses2.demo_panels (nap_mseci : Integer);
AdaCurses-20211021/samples/ncurses2-overlap_test.ads 0000644 0001751 0000144 00000006014 13615656212 020753 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.2 $
-- Binding Version 01.00
------------------------------------------------------------------------------
procedure ncurses2.overlap_test;
AdaCurses-20211021/samples/ncurses2-m.adb 0000644 0001751 0000144 00000036337 13615656212 016472 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2018,2020 Thomas E. Dickey --
-- Copyright 2000-2007,2008 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.11 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
-- TODO use Default_Character where appropriate
-- This is an Ada version of ncurses
-- I translated this because it tests the most features.
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
with Terminal_Interface.Curses.Trace; use Terminal_Interface.Curses.Trace;
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Characters.Latin_1;
with Ada.Command_Line; use Ada.Command_Line;
with Ada.Strings.Unbounded;
with ncurses2.util; use ncurses2.util;
with ncurses2.getch_test;
with ncurses2.attr_test;
with ncurses2.color_test;
with ncurses2.demo_panels;
with ncurses2.color_edit;
with ncurses2.slk_test;
with ncurses2.acs_display;
with ncurses2.acs_and_scroll;
with ncurses2.flushinp_test;
with ncurses2.test_sgr_attributes;
with ncurses2.menu_test;
with ncurses2.demo_pad;
with ncurses2.demo_forms;
with ncurses2.overlap_test;
with ncurses2.trace_set;
with ncurses2.getopt; use ncurses2.getopt;
package body ncurses2.m is
function To_trace (n : Integer) return Trace_Attribute_Set;
procedure usage;
procedure Set_Terminal_Modes;
function Do_Single_Test (c : Character) return Boolean;
function To_trace (n : Integer) return Trace_Attribute_Set is
a : Trace_Attribute_Set := (others => False);
m : Integer;
rest : Integer;
begin
m := n mod 2;
if 1 = m then
a.Times := True;
end if;
rest := n / 2;
m := rest mod 2;
if 1 = m then
a.Tputs := True;
end if;
rest := rest / 2;
m := rest mod 2;
if 1 = m then
a.Update := True;
end if;
rest := rest / 2;
m := rest mod 2;
if 1 = m then
a.Cursor_Move := True;
end if;
rest := rest / 2;
m := rest mod 2;
if 1 = m then
a.Character_Output := True;
end if;
rest := rest / 2;
m := rest mod 2;
if 1 = m then
a.Calls := True;
end if;
rest := rest / 2;
m := rest mod 2;
if 1 = m then
a.Virtual_Puts := True;
end if;
rest := rest / 2;
m := rest mod 2;
if 1 = m then
a.Input_Events := True;
end if;
rest := rest / 2;
m := rest mod 2;
if 1 = m then
a.TTY_State := True;
end if;
rest := rest / 2;
m := rest mod 2;
if 1 = m then
a.Internal_Calls := True;
end if;
rest := rest / 2;
m := rest mod 2;
if 1 = m then
a.Character_Calls := True;
end if;
rest := rest / 2;
m := rest mod 2;
if 1 = m then
a.Termcap_TermInfo := True;
end if;
return a;
end To_trace;
-- these are type Stdscr_Init_Proc;
function rip_footer (
Win : Window;
Columns : Column_Count) return Integer;
pragma Convention (C, rip_footer);
function rip_footer (
Win : Window;
Columns : Column_Count) return Integer is
begin
Set_Background (Win, (Ch => ' ',
Attr => (Reverse_Video => True, others => False),
Color => 0));
Erase (Win);
Move_Cursor (Win, 0, 0);
Add (Win, "footer:" & Columns'Img & " columns");
Refresh_Without_Update (Win);
return 0; -- Curses_OK;
end rip_footer;
function rip_header (
Win : Window;
Columns : Column_Count) return Integer;
pragma Convention (C, rip_header);
function rip_header (
Win : Window;
Columns : Column_Count) return Integer is
begin
Set_Background (Win, (Ch => ' ',
Attr => (Reverse_Video => True, others => False),
Color => 0));
Erase (Win);
Move_Cursor (Win, 0, 0);
Add (Win, "header:" & Columns'Img & " columns");
-- 'Img is a GNAT extension
Refresh_Without_Update (Win);
return 0; -- Curses_OK;
end rip_header;
procedure usage is
-- type Stringa is access String;
use Ada.Strings.Unbounded;
-- tbl : constant array (Positive range <>) of Stringa := (
tbl : constant array (Positive range <>) of Unbounded_String
:= (
To_Unbounded_String ("Usage: ncurses [options]"),
To_Unbounded_String (""),
To_Unbounded_String ("Options:"),
To_Unbounded_String (" -a f,b set default-colors " &
"(assumed white-on-black)"),
To_Unbounded_String (" -d use default-colors if terminal " &
"supports them"),
To_Unbounded_String (" -e fmt specify format for soft-keys " &
"test (e)"),
To_Unbounded_String (" -f rip-off footer line " &
"(can repeat)"),
To_Unbounded_String (" -h rip-off header line " &
"(can repeat)"),
To_Unbounded_String (" -s msec specify nominal time for " &
"panel-demo (default: 1, to hold)"),
To_Unbounded_String (" -t mask specify default trace-level " &
"(may toggle with ^T)")
);
begin
for n in tbl'Range loop
Put_Line (Standard_Error, To_String (tbl (n)));
end loop;
-- exit(EXIT_FAILURE);
-- TODO should we use Set_Exit_Status and throw and exception?
end usage;
procedure Set_Terminal_Modes is begin
Set_Raw_Mode (SwitchOn => False);
Set_Cbreak_Mode (SwitchOn => True);
Set_Echo_Mode (SwitchOn => False);
Allow_Scrolling (Mode => True);
Use_Insert_Delete_Line (Do_Idl => True);
Set_KeyPad_Mode (SwitchOn => True);
end Set_Terminal_Modes;
nap_msec : Integer := 1;
function Do_Single_Test (c : Character) return Boolean is
begin
case c is
when 'a' =>
getch_test;
when 'b' =>
attr_test;
when 'c' =>
if not Has_Colors then
Cannot ("does not support color.");
else
color_test;
end if;
when 'd' =>
if not Has_Colors then
Cannot ("does not support color.");
elsif not Can_Change_Color then
Cannot ("has hardwired color values.");
else
color_edit;
end if;
when 'e' =>
slk_test;
when 'f' =>
acs_display;
when 'o' =>
demo_panels (nap_msec);
when 'g' =>
acs_and_scroll;
when 'i' =>
flushinp_test (Standard_Window);
when 'k' =>
test_sgr_attributes;
when 'm' =>
menu_test;
when 'p' =>
demo_pad;
when 'r' =>
demo_forms;
when 's' =>
overlap_test;
when 't' =>
trace_set;
when '?' =>
null;
when others => return False;
end case;
return True;
end Do_Single_Test;
command : Character;
my_e_param : Soft_Label_Key_Format := Four_Four;
assumed_colors : Boolean := False;
default_colors : Boolean := False;
default_fg : Color_Number := White;
default_bg : Color_Number := Black;
-- nap_msec was an unsigned long integer in the C version,
-- yet napms only takes an int!
c : Integer;
c2 : Character;
optind : Integer := 1; -- must be initialized to one.
optarg : getopt.stringa;
length : Integer;
tmpi : Integer;
package myio is new Ada.Text_IO.Integer_IO (Integer);
save_trace : Integer := 0;
save_trace_set : Trace_Attribute_Set;
function main return Integer is
begin
loop
Qgetopt (c, Argument_Count, Argument'Access,
"a:de:fhs:t:", optind, optarg);
exit when c = -1;
c2 := Character'Val (c);
case c2 is
when 'a' =>
-- Ada doesn't have scanf, it doesn't even have a
-- regular expression library.
assumed_colors := True;
myio.Get (optarg.all, Integer (default_fg), length);
myio.Get (optarg.all (length + 2 .. optarg.all'Length),
Integer (default_bg), length);
when 'd' =>
default_colors := True;
when 'e' =>
myio.Get (optarg.all, tmpi, length);
if tmpi > 3 then
usage;
return 1;
end if;
my_e_param := Soft_Label_Key_Format'Val (tmpi);
when 'f' =>
Rip_Off_Lines (-1, rip_footer'Access);
when 'h' =>
Rip_Off_Lines (1, rip_header'Access);
when 's' =>
myio.Get (optarg.all, nap_msec, length);
when 't' =>
myio.Get (optarg.all, save_trace, length);
when others =>
usage;
return 1;
end case;
end loop;
-- the C version had a bunch of macros here.
-- if (!isatty(fileno(stdin)))
-- isatty is not available in the standard Ada so skip it.
save_trace_set := To_trace (save_trace);
Trace_On (save_trace_set);
Init_Soft_Label_Keys (my_e_param);
Init_Screen;
Set_Background (Ch => (Ch => Blank,
Attr => Normal_Video,
Color => Color_Pair'First));
if Has_Colors then
Start_Color;
if default_colors then
Use_Default_Colors;
elsif assumed_colors then
Assume_Default_Colors (default_fg, default_bg);
end if;
end if;
Set_Terminal_Modes;
Save_Curses_Mode (Curses);
End_Windows;
-- TODO add macro #if blocks.
Put_Line ("Welcome to " & Curses_Version & ". Press ? for help.");
loop
Put_Line ("This is the ncurses main menu");
Put_Line ("a = keyboard and mouse input test");
Put_Line ("b = character attribute test");
Put_Line ("c = color test pattern");
Put_Line ("d = edit RGB color values");
Put_Line ("e = exercise soft keys");
Put_Line ("f = display ACS characters");
Put_Line ("g = display windows and scrolling");
Put_Line ("i = test of flushinp()");
Put_Line ("k = display character attributes");
Put_Line ("m = menu code test");
Put_Line ("o = exercise panels library");
Put_Line ("p = exercise pad features");
Put_Line ("q = quit");
Put_Line ("r = exercise forms code");
Put_Line ("s = overlapping-refresh test");
Put_Line ("t = set trace level");
Put_Line ("? = repeat this command summary");
Put ("> ");
Flush;
command := Ada.Characters.Latin_1.NUL;
-- get_input:
-- loop
declare
Ch : Character;
begin
Get (Ch);
-- TODO if read(ch) <= 0
-- TODO ada doesn't have an Is_Space function
command := Ch;
-- TODO if ch = '\n' or '\r' are these in Ada?
end;
-- end loop get_input;
declare
begin
if Do_Single_Test (command) then
Flush_Input;
Set_Terminal_Modes;
Reset_Curses_Mode (Curses);
Clear;
Refresh;
End_Windows;
if command = '?' then
Put_Line ("This is the ncurses capability tester.");
Put_Line ("You may select a test from the main menu by " &
"typing the");
Put_Line ("key letter of the choice (the letter to left " &
"of the =)");
Put_Line ("at the > prompt. The commands `x' or `q' will " &
"exit.");
end if;
-- continue; --why continue in the C version?
end if;
exception
when Curses_Exception => End_Windows;
end;
exit when command = 'q';
end loop;
Curses_Free_All;
return 0; -- TODO ExitProgram(EXIT_SUCCESS);
end main;
end ncurses2.m;
AdaCurses-20211021/samples/sample-header_handler.ads 0000644 0001751 0000144 00000006507 13615656212 020715 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Header_Handler --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2002,2003 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.11 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
-- This package handles the painting of the header line of the screen.
--
package Sample.Header_Handler is
procedure Init_Header_Handler;
-- Initialize the handler for the headerlines.
procedure Update_Header_Window;
-- Update the information in the header window
end Sample.Header_Handler;
AdaCurses-20211021/samples/ncurses2-getch_test.ads 0000644 0001751 0000144 00000006012 13615656212 020373 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.2 $
-- Binding Version 01.00
------------------------------------------------------------------------------
procedure ncurses2.getch_test;
AdaCurses-20211021/samples/ncurses2-m.ads 0000644 0001751 0000144 00000006062 13615656212 016503 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.2 $
-- Binding Version 01.00
------------------------------------------------------------------------------
package ncurses2.m is
function main return Integer;
end ncurses2.m;
AdaCurses-20211021/samples/sample-text_io_demo.adb 0000644 0001751 0000144 00000015704 13615656212 020425 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Text_IO_Demo --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2018,2020 Thomas E. Dickey --
-- Copyright 1998-2006,2011 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.19 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Ada.Numerics.Generic_Elementary_Functions;
with Ada.Numerics.Complex_Types;
use Ada.Numerics.Complex_Types;
with Terminal_Interface.Curses;
use Terminal_Interface.Curses;
with Terminal_Interface.Curses.Panels;
use Terminal_Interface.Curses.Panels;
with Terminal_Interface.Curses.Text_IO;
use Terminal_Interface.Curses.Text_IO;
with Terminal_Interface.Curses.Text_IO.Integer_IO;
with Terminal_Interface.Curses.Text_IO.Float_IO;
with Terminal_Interface.Curses.Text_IO.Enumeration_IO;
with Terminal_Interface.Curses.Text_IO.Complex_IO;
with Terminal_Interface.Curses.Text_IO.Decimal_IO;
with Terminal_Interface.Curses.Text_IO.Modular_IO;
with Sample.Manifest; use Sample.Manifest;
with Sample.Function_Key_Setting; use Sample.Function_Key_Setting;
with Sample.Keyboard_Handler; use Sample.Keyboard_Handler;
with Sample.Explanation; use Sample.Explanation;
pragma Elaborate_All (Terminal_Interface.Curses.Text_Io.Complex_IO);
pragma Elaborate_All (Terminal_Interface.Curses.Text_Io.Decimal_IO);
pragma Elaborate_All (Terminal_Interface.Curses.Text_Io.Enumeration_IO);
pragma Elaborate_All (Terminal_Interface.Curses.Text_Io.Float_IO);
pragma Elaborate_All (Terminal_Interface.Curses.Text_Io.Integer_IO);
pragma Elaborate_All (Terminal_Interface.Curses.Text_Io.Modular_IO);
package body Sample.Text_IO_Demo is
type Weekday is (Sunday,
Monday,
Tuesday,
Wednesday,
Thursday,
Friday,
Saturday);
type Dec is delta 0.01 digits 5 range 0.0 .. 4.0;
type Md is mod 5;
package Math is new
Ada.Numerics.Generic_Elementary_Functions (Float);
package Int_IO is new
Terminal_Interface.Curses.Text_IO.Integer_IO (Integer);
use Int_IO;
package Real_IO is new
Terminal_Interface.Curses.Text_IO.Float_IO (Float);
use Real_IO;
package Enum_IO is new
Terminal_Interface.Curses.Text_IO.Enumeration_IO (Weekday);
use Enum_IO;
package C_IO is new
Terminal_Interface.Curses.Text_IO.Complex_IO (Ada.Numerics.Complex_Types);
use C_IO;
package D_IO is new
Terminal_Interface.Curses.Text_IO.Decimal_IO (Dec);
use D_IO;
package M_IO is new
Terminal_Interface.Curses.Text_IO.Modular_IO (Md);
use M_IO;
procedure Demo
is
W : Window;
P : Panel := Create (Standard_Window);
K : Real_Key_Code;
Im : constant Complex := (0.0, 1.0);
Fx : constant Dec := 3.14;
Dc : constant Dec := 2.72;
L : Md;
begin
Push_Environment ("TEXTIO");
Default_Labels;
Notepad ("TEXTIO-PAD00");
Set_Echo_Mode (False);
Set_Meta_Mode;
Set_KeyPad_Mode;
W := Sub_Window (Standard_Window, Lines - 2, Columns - 2, 1, 1);
Box;
Refresh_Without_Update;
Set_Meta_Mode (W);
Set_KeyPad_Mode (W);
Immediate_Update_Mode (W, True);
Set_Window (W);
for I in 1 .. 10 loop
Put ("Square root of ");
Put (Item => I, Width => 5);
Put (" is ");
Put (Item => Math.Sqrt (Float (I)), Exp => 0, Aft => 7);
New_Line;
end loop;
for W in Weekday loop
Put (Item => W); Put (' ');
end loop;
New_Line;
L := Md'First;
for I in 1 .. 2 loop
for J in Md'Range loop
Put (L); Put (' ');
L := L + 1;
end loop;
end loop;
New_Line;
Put (Im); New_Line;
Put (Fx); New_Line;
Put (Dc); New_Line;
loop
K := Get_Key;
if K in Special_Key_Code'Range then
case K is
when QUIT_CODE => exit;
when HELP_CODE => Explain_Context;
when EXPLAIN_CODE => Explain ("TEXTIOKEYS");
when others => null;
end case;
end if;
end loop;
Set_Window (Null_Window);
Erase; Refresh_Without_Update;
Delete (P);
Delete (W);
Pop_Environment;
end Demo;
end Sample.Text_IO_Demo;
AdaCurses-20211021/samples/explain.txt 0000644 0001751 0000144 00000017024 14114005443 016202 0 ustar tom users #VERSION
This is Version 00.90.00 of the demo package.
#MENUKEYS
In a menu you can use the following Keys in the whole application:
- CTRL-X eXit the menu
- CTRL-N Go to next item
- CTRL-P Go to previous item
- CTRL-U Scroll up one line
- CTRL-D Scroll down one line
- CTRL-F Scroll down one page
- PAGE DOWN Scroll down one page
- PAGE UP Scroll back one page
- CTRL-B Scroll back one page
- CTRL-Y Clear pattern
- CTRL-H Delete last character from pattern
- Backspace Delete last character from pattern
- CTRL-A Next pattern match
- CTRL-E Previous pattern match
- CTRL-T Toggle item in a multi-selection menu
- CR or LF Select an item
- HOME Key Go to the first item
- F3 Quit the menu
- Cursor Down Down one item
- Cursor Up Up one item
- Cursor Left Left one item
- Cursor Right Right one item
- END Key Go to last item
#FORMKEYS
- CTRL-X eXit the form
- CTRL-F Go forward to the next field
- CTRL-B Go backward to the previous field
- CTRL-L Go to the field left of the current one
- CTRL-R Go to the field right of the current one
- CTRL-U Go to the field above the current one
- CTRL-D Go to the field below the current one
- CTRL-W Go to the next word in the field
- CTRL-T Go to the previous word in the field
- CTRL-A Go to the beginning of the field
- CTRL-E Go to the end of the field
- CTRL-I Insert a blank character at the current position
- CTRL-O Insert a line
- CTRL-V Delete a character
- CTRL-H Delete previous character
- CTRL-Y Delete a line
- CTRL-G Delete a word
- CTRL-K Clear to end of field
- CTRL-N Next choice in a choice field (Enumerations etc.)
- CTRL-P Previous choice in a choice field.
#HELP
#HELPKEYS
You may scroll with the Cursor Up/Down Keys.
You may leave the help with the Function Key labeled 'Quit'.
#INHELP
You are already in the help system.
You may leave the help with the Function Key labeled 'Quit'.
#MAIN
This is the main menu of the sample program for the ncurses Ada95
binding. The main intention of the demo is not to demonstrate or
test all the features of ncurses and its subsystems, but to provide
to you some sample code how to use the binding with Ada95.
You may select this options:
* Look at some ncurses core functions
* Look at some features of the menu subsystem
* Look at some features of the form subsystem
* Look at the output of the Ada.Text_IO like functions
for ncurses.
#MAINPAD
You may press at any place in this demo CTRL-C. This will give you a command
window. You can just type in the Label-String of a function key, then this
key will be simulated. This should help you to run the application even if
you run it on a terminal with no or only a few function keys. With CTRL-N
and CTRL-P you may browse through the possible values in the command window.
#MENU00
Here we give you a selection of various menu demonstrations.
#MENU-PAD00
This menu itself is a demo for a single valued, 1-column menu with
descriptions for the items, a marker and a padding character between
the item name and the description.
#MENU01
This is a demo of the some of the menu layout options. One of them
is the spacing functionality. Just press the Key labeled "Flip" to
flip between the non-spaced and a spaced version of the menu. Please
note that this functionality is unique for ncurses and is not found
in the SVr4 menu implementation.
This is a menu that sometimes does not fit into its window and
therefore it becomes a scroll menu.
You can also see here very nicely the pattern matching functionality
of menus. Type for example a 'J' and you will be positioned to the
next item after the current starting with a 'J'. Any more characters
you type in make the pattern more specific. With CTRL-A and CTRL-Z
(for more details press the Key labeled "Keys") you can browse
through all the items matching the pattern.
You may change the format of the menu. Just press one of the keys
labeled "4x1", "4x2" or "4x3" to get a menu with that many rows
and columns.
With the Keys "O-Row" or "O-Col" (they occupy the same label and
switch on selection) you can change the major order scheme for
the menu. If "O-Col" is visible, the menu is currently major
ordered by rows, you can switch to major column order by pressing
the key. If "O-Row" is visible, it is just the reverse situation.
This Key is not visible in "4x1" layout mode, because in this case
the functionality makes no sense.
With the Keys "Multi" or "Singl" (they occupy the same label and
switch on selection) you can change whether or not the menu allows
multiple or only single selection.
With the Keys "+Desc" or "-Desc" (they occupy the same label and
switch on selection) you can change whether or not the descriptions
for each item should be displayed. Please not that this key is
not visible in the "4x3" layout mode, because in this case the
menu would not fit on a typical 80x24 screen.
With the Keys "Disab" or "Enab" (they occupy the same label and
switch on selection) you can dis- or enable the selectability of
the month with 31 days.
#MENU-PAD01
You may press "Flip" to see the effect of ncurses unique menu-spacing.
The Keys "4x1", "4x2" and "4x3" will change the format of the menu.
Please note that this is a scrolling menu. You may also play with the
pattern matching functionality or try to change the format of the menu.
For more details press the Key labeled "Help".
#FORM00
This is a demo of the forms package.
#FORM-PAD00
Please note that this demo is far from being complete. It really shows
only a small part of the functionality of the forms package. Let's hope
the next version will have a richer demo (You want to contribute ?).
#NOTIMPL
Sorry this functionality of the demo is not implemented at the moment.
Remember this is a freeware project, so I can use only my very rare
free time to continue coding. If you would like to contribute, you
are very welcome !
#CURSES00
This is a menu where you can select some different demos of the ncurses
functionality.
#CURSES-PAD00
Please note that this demo is far from being complete. It really shows
only a small part of the functionality of the curses package. Let's hope
the next version will have a richer demo (You want to contribute ?).
#MOUSEKEYS
In this demo you may use this keys:
- Key labeled "Help" to get a help
- Key labeled "Keys" is what you are reading now
- Key labeled "Quit" to leave the demo
You may click the mouse buttons at any location at the screen and look
at the protocol window !
#MOUSE00
A rather simple use of a mouse as demo. It is there just to test the
code and to provide the sample source.
It might be of interest, that the output into the protocol window is
done by the (n)curses Text_IO subpackages. Especially the output of
the button and state names is done by Ads's enumeration IO, which
allows you to print the names of enumeration literals. That's really
nice.
#MOUSE-PAD00
This is a very simple demo of the mouse features of ncurses. It is there
just to test whether or not the generated code for the binding really
works on the different architectures (seems so).
#ATTRIBDEMO
Again this is a more than simple demo and just here to give you the
sourcecode.
#ATTRIBKEYS
You may press one of the three well known standard keys of this demo.
#ATTRIB-PAD00
Again this is a more than simple demo and just here to give you the
source code. Feel free to contribute more.
#TEXTIO
#TEXTIOKEYS
#TEXTIO-PAD00
#END
AdaCurses-20211021/samples/sample-form_demo-handler.adb 0000644 0001751 0000144 00000011016 13615656212 021320 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Form_Demo.Handler --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2004,2009 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.15 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Sample.Form_Demo.Aux;
package body Sample.Form_Demo.Handler is
package Aux renames Sample.Form_Demo.Aux;
procedure Drive_Me (F : Form;
Title : String := "")
is
L : Line_Count;
C : Column_Count;
Y : Line_Position;
X : Column_Position;
begin
Aux.Geometry (F, L, C, Y, X);
Drive_Me (F, Y, X, Title);
end Drive_Me;
procedure Drive_Me (F : Form;
Lin : Line_Position;
Col : Column_Position;
Title : String := "")
is
Pan : Panel := Aux.Create (F, Title, Lin, Col);
V : Cursor_Visibility := Normal;
Handle_CRLF : Boolean := True;
begin
Set_Cursor_Visibility (V);
if Aux.Count_Active (F) = 1 then
Handle_CRLF := False;
end if;
loop
declare
K : constant Key_Code := Aux.Get_Request (F, Pan, Handle_CRLF);
R : Driver_Result;
begin
if (K = 13 or else K = 10) and then not Handle_CRLF then
R := Unknown_Request;
else
R := Driver (F, K);
end if;
case R is
when Form_Ok => null;
when Unknown_Request =>
if My_Driver (F, K, Pan) then
exit;
end if;
when others => Beep;
end case;
end;
end loop;
Set_Cursor_Visibility (V);
Aux.Destroy (F, Pan);
end Drive_Me;
end Sample.Form_Demo.Handler;
AdaCurses-20211021/samples/ncurses2-test_sgr_attributes.ads 0000644 0001751 0000144 00000006023 13615656212 022344 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.2 $
-- Binding Version 01.00
------------------------------------------------------------------------------
procedure ncurses2.test_sgr_attributes;
AdaCurses-20211021/samples/sample-helpers.ads 0000644 0001751 0000144 00000006523 13615656212 017430 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Helpers --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2009,2011 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.12 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
-- This package contains some convenient helper routines used throughout
-- this example.
--
package Sample.Helpers is
procedure Window_Title (Win : Window;
Title : String);
-- Put a title string into the first line of the window
procedure Not_Implemented;
end Sample.Helpers;
AdaCurses-20211021/samples/split-path.awk 0000644 0001751 0000144 00000005325 13615656212 016606 0 ustar tom users ##############################################################################
# Copyright 2020 Thomas E. Dickey #
# #
# 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, distribute #
# with modifications, 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. #
# #
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR #
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, #
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL #
# THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER #
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING #
# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER #
# DEALINGS IN THE SOFTWARE. #
# #
# Except as contained in this notice, the name(s) of the above copyright #
# holders shall not be used in advertising or otherwise to promote the sale, #
# use or other dealings in this Software without prior written #
# authorization. #
##############################################################################
#
# Author: Thomas E. Dickey
#
# $Id: split-path.awk,v 1.3 2020/02/02 23:34:34 tom Exp $
BEGIN { cols = 72; }
/[$]THIS_DATADIR/ {
gsub("[$]THIS_DATADIR", "\"" this_datadir "\"");
if ( length ($0) > cols ) {
indent = index($0, "\"") - 1;
broken = index($0, "&");
if (broken > 0 && broken < indent)
indent = broken - 1;
leader = sprintf ("%*s& ", indent, " ");
buffer = $0;
first = 1;
while ( length(buffer) > cols ) {
printf("%.*s\"\n", cols, buffer);
buffer = leader "\"" substr(buffer, cols + 1);
}
if ( buffer != "" && buffer != leader "\"\"" )
printf("%.*s\n", cols, buffer);
next;
}
}
{
print;
}
AdaCurses-20211021/samples/sample-menu_demo-handler.adb 0000644 0001751 0000144 00000012047 13615656212 021326 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Menu_Demo.Handler --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2004,2009 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.17 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Sample.Menu_Demo.Aux;
with Sample.Manifest; use Sample.Manifest;
with Terminal_Interface.Curses.Mouse; use Terminal_Interface.Curses.Mouse;
package body Sample.Menu_Demo.Handler is
package Aux renames Sample.Menu_Demo.Aux;
procedure Drive_Me (M : Menu;
Title : String := "")
is
L : Line_Count;
C : Column_Count;
Y : Line_Position;
X : Column_Position;
begin
Aux.Geometry (M, L, C, Y, X);
Drive_Me (M, Y, X, Title);
end Drive_Me;
procedure Drive_Me (M : Menu;
Lin : Line_Position;
Col : Column_Position;
Title : String := "")
is
Mask : Event_Mask := No_Events;
Old : Event_Mask;
Pan : Panel := Aux.Create (M, Title, Lin, Col);
V : Cursor_Visibility := Invisible;
begin
-- We are only interested in Clicks with the left button
Register_Reportable_Events (Left, All_Clicks, Mask);
Old := Start_Mouse (Mask);
Set_Cursor_Visibility (V);
loop
declare
K : Key_Code := Aux.Get_Request (M, Pan);
R : constant Driver_Result := Driver (M, K);
begin
case R is
when Menu_Ok => null;
when Unknown_Request =>
declare
I : constant Item := Current (M);
O : Item_Option_Set;
begin
if K = Key_Mouse then
K := SELECT_ITEM;
end if;
Get_Options (I, O);
if K = SELECT_ITEM and then not O.Selectable then
Beep;
else
if My_Driver (M, K, Pan) then
exit;
end if;
end if;
end;
when others => Beep;
end case;
end;
end loop;
End_Mouse (Old);
Aux.Destroy (M, Pan);
end Drive_Me;
end Sample.Menu_Demo.Handler;
AdaCurses-20211021/samples/ncurses2-slk_test.ads 0000644 0001751 0000144 00000006010 13615656212 020070 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.2 $
-- Binding Version 01.00
------------------------------------------------------------------------------
procedure ncurses2.slk_test;
AdaCurses-20211021/samples/ncurses2-util.adb 0000644 0001751 0000144 00000015532 13615656212 017205 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses2.util --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000-2008,2014 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.10 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Ada.Text_IO; use Ada.Text_IO;
with Terminal_Interface.Curses.Trace; use Terminal_Interface.Curses.Trace;
with Interfaces.C;
with Interfaces.C.Strings;
with Ada.Characters.Handling;
with ncurses2.genericPuts;
package body ncurses2.util is
-- #defines from C
-- #define CTRL(x) ((x) & 0x1f)
function CTRL (c : Character) return Key_Code is
begin
return Character'Pos (c) mod 16#20#;
-- uses a property of ASCII
-- A = 16#41#; a = 16#61#; ^A = 1 or 16#1#
end CTRL;
function CTRL (c : Character) return Character is
begin
return Character'Val (Character'Pos (c) mod 16#20#);
-- uses a property of ASCII
-- A = 16#41#; a = 16#61#; ^A = 1 or 16#1#
end CTRL;
save_trace : Trace_Attribute_Set;
-- Common function to allow ^T to toggle trace-mode in the middle of a test
-- so that trace-files can be made smaller.
function Getchar (win : Window := Standard_Window) return Key_Code is
c : Key_Code;
begin
-- #ifdef TRACE
c := Get_Keystroke (win);
while c = CTRL ('T') loop
-- if _nc_tracing in C
if Current_Trace_Setting /= Trace_Disable then
save_trace := Current_Trace_Setting;
Trace_Put ("TOGGLE-TRACING OFF");
Current_Trace_Setting := Trace_Disable;
else
Current_Trace_Setting := save_trace;
end if;
Trace_On (Current_Trace_Setting);
if Current_Trace_Setting /= Trace_Disable then
Trace_Put ("TOGGLE-TRACING ON");
end if;
end loop;
-- #else c := Get_Keystroke;
return c;
end Getchar;
procedure Getchar (win : Window := Standard_Window) is
begin
if Getchar (win) < 0 then
Beep;
end if;
end Getchar;
procedure Pause is
begin
Move_Cursor (Line => Lines - 1, Column => 0);
Add (Str => "Press any key to continue... ");
Getchar;
end Pause;
procedure Cannot (s : String) is
use Interfaces.C;
use Interfaces.C.Strings;
function getenv (x : char_array) return chars_ptr;
pragma Import (C, getenv, "getenv");
tmp1 : char_array (0 .. 10);
package p is new ncurses2.genericPuts (1024);
use p;
use p.BS;
tmpb : BS.Bounded_String;
Length : size_t;
begin
To_C ("TERM", tmp1, Length);
Fill_String (getenv (tmp1), tmpb);
Add (Ch => newl);
myAdd (Str => "This " & tmpb & " terminal " & s);
Pause;
end Cannot;
procedure ShellOut (message : Boolean) is
use Interfaces.C;
Txt : char_array (0 .. 10);
Length : size_t;
procedure system (x : char_array);
pragma Import (C, system, "system");
begin
To_C ("sh", Txt, Length);
if message then
Add (Str => "Shelling out...");
end if;
Save_Curses_Mode (Mode => Curses);
End_Windows;
system (Txt);
if message then
Add (Str => "returned from shellout.");
Add (Ch => newl);
end if;
Refresh;
end ShellOut;
function Is_Digit (c : Key_Code) return Boolean is
begin
if c >= 16#100# then
return False;
else
return Ada.Characters.Handling.Is_Digit (Character'Val (c));
end if;
end Is_Digit;
procedure P (s : String) is
begin
Add (Str => s);
Add (Ch => newl);
end P;
function Code_To_Char (c : Key_Code) return Character is
begin
if c > Character'Pos (Character'Last) then
return Character'Val (0);
-- maybe raise exception?
else
return Character'Val (c);
end if;
end Code_To_Char;
-- This was untestable due to a bug in GNAT (3.12p)
-- Hmm, what bug? I don't remember.
function ctoi (c : Character) return Integer is
begin
return Character'Pos (c) - Character'Pos ('0');
end ctoi;
end ncurses2.util;
AdaCurses-20211021/samples/status.adb 0000644 0001751 0000144 00000006643 13615656212 016014 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Status --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2002,2003 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Laurent Pautet
-- Modified by: Juergen Pfeifer, 1997
-- Version Control
-- $Revision: 1.9 $
-- Binding Version 01.00
------------------------------------------------------------------------------
-- This package has been contributed by Laurent Pautet --
-- --
package body Status is
protected body Process is
procedure Stop is
begin
Done := True;
end Stop;
function Continue return Boolean is
begin
return not Done;
end Continue;
end Process;
end Status;
AdaCurses-20211021/samples/tour.ads 0000644 0001751 0000144 00000005742 13615656212 015502 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Tour --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2002,2003 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.11 $
-- Binding Version 01.00
------------------------------------------------------------------------------
procedure Tour;
AdaCurses-20211021/samples/sample-curses_demo.adb 0000644 0001751 0000144 00000014307 13615656212 020254 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Curses_Demo --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2004,2011 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.18 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
with Terminal_Interface.Curses.Menus; use Terminal_Interface.Curses.Menus;
with Terminal_Interface.Curses.Mouse; use Terminal_Interface.Curses.Mouse;
with Terminal_Interface.Curses.Panels; use Terminal_Interface.Curses.Panels;
with Terminal_Interface.Curses.Panels.User_Data;
with Sample.Manifest; use Sample.Manifest;
with Sample.Helpers; use Sample.Helpers;
with Sample.Function_Key_Setting; use Sample.Function_Key_Setting;
with Sample.Explanation; use Sample.Explanation;
with Sample.Menu_Demo.Handler;
with Sample.Curses_Demo.Mouse;
with Sample.Curses_Demo.Attributes;
package body Sample.Curses_Demo is
type User_Data is new Integer;
type User_Data_Access is access all User_Data;
package PUD is new Panels.User_Data (User_Data, User_Data_Access);
-- We use above instantiation of the generic User_Data package to
-- demonstrate and test the use of the user data mechanism.
procedure Demo
is
function My_Driver (M : Menu;
K : Key_Code;
Pan : Panel) return Boolean;
package Mh is new Sample.Menu_Demo.Handler (My_Driver);
Itm : Item_Array_Access := new Item_Array'
(New_Item ("Attributes Demo"),
New_Item ("Mouse Demo"),
Null_Item);
M : Menu := New_Menu (Itm);
U1 : constant User_Data_Access := new User_Data'(4711);
U2 : User_Data_Access;
function My_Driver (M : Menu;
K : Key_Code;
Pan : Panel) return Boolean
is
Idx : constant Positive := Get_Index (Current (M));
Result : Boolean := False;
begin
PUD.Set_User_Data (Pan, U1); -- set some user data, just for fun
if K in User_Key_Code'Range then
if K = QUIT then
Result := True;
elsif K = SELECT_ITEM then
if Idx in Itm'Range then
Hide (Pan);
Update_Panels;
end if;
case Idx is
when 1 => Sample.Curses_Demo.Attributes.Demo;
when 2 => Sample.Curses_Demo.Mouse.Demo;
when others => Not_Implemented;
end case;
if Idx in Itm'Range then
Top (Pan);
Show (Pan);
Update_Panels;
Update_Screen;
end if;
end if;
end if;
PUD.Get_User_Data (Pan, U2); -- get the user data
pragma Assert (U1.all = U2.all and then U1 = U2);
return Result;
end My_Driver;
begin
if (1 + Item_Count (M)) /= Itm'Length then
raise Constraint_Error;
end if;
if not Has_Mouse then
declare
O : Item_Option_Set;
begin
Get_Options (Itm.all (2), O);
O.Selectable := False;
Set_Options (Itm.all (2), O);
end;
end if;
Push_Environment ("CURSES00");
Notepad ("CURSES-PAD00");
Default_Labels;
Refresh_Soft_Label_Keys_Without_Update;
Mh.Drive_Me (M, " Demo ");
Pop_Environment;
Delete (M);
Free (Itm, True);
end Demo;
end Sample.Curses_Demo;
AdaCurses-20211021/samples/sample-curses_demo-mouse.ads 0000644 0001751 0000144 00000006051 13615656212 021420 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Curses_Demo.Mouse --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2002,2003 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.11 $
-- Binding Version 01.00
------------------------------------------------------------------------------
package Sample.Curses_Demo.Mouse is
procedure Demo;
end Sample.Curses_Demo.Mouse;
AdaCurses-20211021/samples/ncurses2-demo_forms.ads 0000644 0001751 0000144 00000006012 13615656212 020374 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.2 $
-- Binding Version 01.00
------------------------------------------------------------------------------
procedure ncurses2.demo_forms;
AdaCurses-20211021/samples/sample-helpers.adb 0000644 0001751 0000144 00000007217 13615656212 017410 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample.Helpers --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2009,2011 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.15 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Sample.Explanation; use Sample.Explanation;
-- This package contains some convenient helper routines used throughout
-- this example.
--
package body Sample.Helpers is
procedure Window_Title (Win : Window;
Title : String)
is
Height : Line_Count;
Width : Column_Count;
Pos : Column_Position := 0;
begin
Get_Size (Win, Height, Width);
if Title'Length < Width then
Pos := (Width - Title'Length) / 2;
end if;
Add (Win, 0, Pos, Title);
end Window_Title;
procedure Not_Implemented is
begin
Explain ("NOTIMPL");
end Not_Implemented;
end Sample.Helpers;
AdaCurses-20211021/samples/ncurses2-demo_forms.adb 0000644 0001751 0000144 00000041710 14114650007 020346 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020,2021 Thomas E. Dickey --
-- Copyright 2000-2011,2014 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.9 $
-- $Date: 2021/09/04 10:52:55 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with ncurses2.util; use ncurses2.util;
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
with Terminal_Interface.Curses.Forms; use Terminal_Interface.Curses.Forms;
with Terminal_Interface.Curses.Forms.Field_User_Data;
with Ada.Characters.Handling;
with Ada.Strings;
with Ada.Strings.Bounded;
procedure ncurses2.demo_forms is
package BS is new Ada.Strings.Bounded.Generic_Bounded_Length (80);
type myptr is access Integer;
-- The C version stores a pointer in the userptr and
-- converts it into a long integer.
-- The correct, but inconvenient way to do it is to use a
-- pointer to long and keep the pointer constant.
-- It just adds one memory piece to allocate and deallocate (not done here)
package StringData is new
Terminal_Interface.Curses.Forms.Field_User_Data (Integer, myptr);
function edit_secure (me : Field; c_in : Key_Code) return Key_Code;
function form_virtualize (f : Form; w : Window) return Key_Code;
function my_form_driver (f : Form; c : Key_Code) return Boolean;
function make_label (frow : Line_Position;
fcol : Column_Position;
label : String) return Field;
function make_field (frow : Line_Position;
fcol : Column_Position;
rows : Line_Count;
cols : Column_Count;
secure : Boolean) return Field;
procedure display_form (f : Form);
procedure erase_form (f : Form);
-- prints '*' instead of characters.
-- Not that this keeps a bug from the C version:
-- type in the psasword field then move off and back.
-- the cursor is at position one, but
-- this assumes it as at the end so text gets appended instead
-- of overwtitting.
function edit_secure (me : Field; c_in : Key_Code) return Key_Code is
rows, frow : Line_Position;
nrow : Natural;
cols, fcol : Column_Position;
nbuf : Buffer_Number;
c : Key_Code := c_in;
c2 : Character;
use StringData;
begin
Info (me, rows, cols, frow, fcol, nrow, nbuf);
-- TODO if result = Form_Ok and nbuf > 0 then
-- C version checked the return value
-- of Info, the Ada binding throws an exception I think.
if nbuf > 0 then
declare
temp : BS.Bounded_String;
temps : String (1 .. 10);
-- TODO Get_Buffer povides no information on the field length?
len : myptr;
begin
Get_Buffer (me, 1, Str => temps);
-- strcpy(temp, field_buffer(me, 1));
Get_User_Data (me, len);
temp := BS.To_Bounded_String (temps (1 .. len.all));
if c <= Key_Max then
c2 := Code_To_Char (c);
if Ada.Characters.Handling.Is_Graphic (c2) then
BS.Append (temp, c2);
len.all := len.all + 1;
Set_Buffer (me, 1, BS.To_String (temp));
c := Character'Pos ('*');
else
c := 0;
end if;
else
case c is
when REQ_BEG_FIELD |
REQ_CLR_EOF |
REQ_CLR_EOL |
REQ_DEL_LINE |
REQ_DEL_WORD |
REQ_DOWN_CHAR |
REQ_END_FIELD |
REQ_INS_CHAR |
REQ_INS_LINE |
REQ_LEFT_CHAR |
REQ_NEW_LINE |
REQ_NEXT_WORD |
REQ_PREV_WORD |
REQ_RIGHT_CHAR |
REQ_UP_CHAR =>
c := 0; -- we don't want to do inline editing
when REQ_CLR_FIELD =>
if len.all /= 0 then
temp := BS.To_Bounded_String ("");
Set_Buffer (me, 1, BS.To_String (temp));
len.all := 0;
end if;
when REQ_DEL_CHAR |
REQ_DEL_PREV =>
if len.all /= 0 then
BS.Delete (temp, BS.Length (temp), BS.Length (temp));
Set_Buffer (me, 1, BS.To_String (temp));
len.all := len.all - 1;
end if;
when others => null;
end case;
end if;
end;
end if;
return c;
end edit_secure;
mode : Key_Code := REQ_INS_MODE;
function form_virtualize (f : Form; w : Window) return Key_Code is
type lookup_t is record
code : Key_Code;
result : Key_Code;
-- should be Form_Request_Code, but we need MAX_COMMAND + 1
end record;
lookup : constant array (Positive range <>) of lookup_t :=
(
(
Character'Pos ('A') mod 16#20#, REQ_NEXT_CHOICE
),
(
Character'Pos ('B') mod 16#20#, REQ_PREV_WORD
),
(
Character'Pos ('C') mod 16#20#, REQ_CLR_EOL
),
(
Character'Pos ('D') mod 16#20#, REQ_DOWN_FIELD
),
(
Character'Pos ('E') mod 16#20#, REQ_END_FIELD
),
(
Character'Pos ('F') mod 16#20#, REQ_NEXT_PAGE
),
(
Character'Pos ('G') mod 16#20#, REQ_DEL_WORD
),
(
Character'Pos ('H') mod 16#20#, REQ_DEL_PREV
),
(
Character'Pos ('I') mod 16#20#, REQ_INS_CHAR
),
(
Character'Pos ('K') mod 16#20#, REQ_CLR_EOF
),
(
Character'Pos ('L') mod 16#20#, REQ_LEFT_FIELD
),
(
Character'Pos ('M') mod 16#20#, REQ_NEW_LINE
),
(
Character'Pos ('N') mod 16#20#, REQ_NEXT_FIELD
),
(
Character'Pos ('O') mod 16#20#, REQ_INS_LINE
),
(
Character'Pos ('P') mod 16#20#, REQ_PREV_FIELD
),
(
Character'Pos ('R') mod 16#20#, REQ_RIGHT_FIELD
),
(
Character'Pos ('S') mod 16#20#, REQ_BEG_FIELD
),
(
Character'Pos ('U') mod 16#20#, REQ_UP_FIELD
),
(
Character'Pos ('V') mod 16#20#, REQ_DEL_CHAR
),
(
Character'Pos ('W') mod 16#20#, REQ_NEXT_WORD
),
(
Character'Pos ('X') mod 16#20#, REQ_CLR_FIELD
),
(
Character'Pos ('Y') mod 16#20#, REQ_DEL_LINE
),
(
Character'Pos ('Z') mod 16#20#, REQ_PREV_CHOICE
),
(
Character'Pos ('[') mod 16#20#, -- ESCAPE
Form_Request_Code'Last + 1
),
(
Key_Backspace, REQ_DEL_PREV
),
(
KEY_DOWN, REQ_DOWN_CHAR
),
(
Key_End, REQ_LAST_FIELD
),
(
Key_Home, REQ_FIRST_FIELD
),
(
KEY_LEFT, REQ_LEFT_CHAR
),
(
KEY_LL, REQ_LAST_FIELD
),
(
Key_Next, REQ_NEXT_FIELD
),
(
KEY_NPAGE, REQ_NEXT_PAGE
),
(
KEY_PPAGE, REQ_PREV_PAGE
),
(
Key_Previous, REQ_PREV_FIELD
),
(
KEY_RIGHT, REQ_RIGHT_CHAR
),
(
KEY_UP, REQ_UP_CHAR
),
(
Character'Pos ('Q') mod 16#20#, -- QUIT
Form_Request_Code'Last + 1 -- TODO MAX_FORM_COMMAND + 1
)
);
c : Key_Code := Getchar (w);
me : constant Field := Current (f);
begin
if c = Character'Pos (']') mod 16#20# then
if mode = REQ_INS_MODE then
mode := REQ_OVL_MODE;
else
mode := REQ_INS_MODE;
end if;
c := mode;
else
for n in lookup'Range loop
if lookup (n).code = c then
c := lookup (n).result;
exit;
end if;
end loop;
end if;
-- Force the field that the user is typing into to be in reverse video,
-- while the other fields are shown underlined.
if c <= Key_Max then
c := edit_secure (me, c);
Set_Background (me, (Reverse_Video => True, others => False));
elsif c <= Form_Request_Code'Last then
c := edit_secure (me, c);
Set_Background (me, (Under_Line => True, others => False));
end if;
return c;
end form_virtualize;
function my_form_driver (f : Form; c : Key_Code) return Boolean is
flag : constant Driver_Result := Driver (f, F_Validate_Field);
begin
if c = Form_Request_Code'Last + 1 and
flag = Form_Ok
then
return True;
else
Beep;
return False;
end if;
end my_form_driver;
function make_label (frow : Line_Position;
fcol : Column_Position;
label : String) return Field is
f : constant Field := Create (1, label'Length, frow, fcol, 0, 0);
o : Field_Option_Set := Get_Options (f);
begin
if f /= Null_Field then
Set_Buffer (f, 0, label);
o.Active := False;
Set_Options (f, o);
end if;
return f;
end make_label;
function make_field (frow : Line_Position;
fcol : Column_Position;
rows : Line_Count;
cols : Column_Count;
secure : Boolean) return Field is
f : Field;
use StringData;
len : myptr;
begin
if secure then
f := Create (rows, cols, frow, fcol, 0, 1);
else
f := Create (rows, cols, frow, fcol, 0, 0);
end if;
if f /= Null_Field then
Set_Background (f, (Under_Line => True, others => False));
len := new Integer;
len.all := 0;
Set_User_Data (f, len);
end if;
return f;
end make_field;
procedure display_form (f : Form) is
w : Window;
rows : Line_Count;
cols : Column_Count;
begin
Scale (f, rows, cols);
w := New_Window (rows + 2, cols + 4, 0, 0);
if w /= Null_Window then
Set_Window (f, w);
Set_Sub_Window (f, Derived_Window (w, rows, cols, 1, 2));
Box (w); -- 0,0
Set_KeyPad_Mode (w, True);
end if;
-- TODO if Post(f) /= Form_Ok then it is a procedure
declare
begin
Post (f);
exception
when
Eti_System_Error |
Eti_Bad_Argument |
Eti_Posted |
Eti_Connected |
Eti_Bad_State |
Eti_No_Room |
Eti_Not_Posted |
Eti_Unknown_Command |
Eti_No_Match |
Eti_Not_Selectable |
Eti_Not_Connected |
Eti_Request_Denied |
Eti_Invalid_Field |
Eti_Current =>
Refresh (w);
end;
-- end if;
end display_form;
procedure erase_form (f : Form) is
w : Window := Get_Window (f);
s : Window := Get_Sub_Window (f);
begin
Post (f, False);
Erase (w);
Refresh (w);
Delete (s);
Delete (w);
end erase_form;
finished : Boolean := False;
f : constant Field_Array_Access := new Field_Array (1 .. 12);
secure : Field;
myform : Form;
w : Window;
c : Key_Code;
result : Driver_Result;
begin
Move_Cursor (Line => 18, Column => 0);
Add (Str => "Defined form-traversal keys: ^Q/ESC- exit form");
Add (Ch => newl);
Add (Str => "^N -- go to next field ^P -- go to previous field");
Add (Ch => newl);
Add (Str => "Home -- go to first field End -- go to last field");
Add (Ch => newl);
Add (Str => "^L -- go to field to left ^R -- go to field to right");
Add (Ch => newl);
Add (Str => "^U -- move upward to field ^D -- move downward to field");
Add (Ch => newl);
Add (Str => "^W -- go to next word ^B -- go to previous word");
Add (Ch => newl);
Add (Str => "^S -- go to start of field ^E -- go to end of field");
Add (Ch => newl);
Add (Str => "^H -- delete previous char ^Y -- delete line");
Add (Ch => newl);
Add (Str => "^G -- delete current word ^C -- clear to end of line");
Add (Ch => newl);
Add (Str => "^K -- clear to end of field ^X -- clear field");
Add (Ch => newl);
Add (Str => "Arrow keys move within a field as you would expect.");
Add (Line => 4, Column => 57, Str => "Forms Entry Test");
Refresh;
-- describe the form
f.all (1) := make_label (0, 15, "Sample Form");
f.all (2) := make_label (2, 0, "Last Name");
f.all (3) := make_field (3, 0, 1, 18, False);
f.all (4) := make_label (2, 20, "First Name");
f.all (5) := make_field (3, 20, 1, 12, False);
f.all (6) := make_label (2, 34, "Middle Name");
f.all (7) := make_field (3, 34, 1, 12, False);
f.all (8) := make_label (5, 0, "Comments");
f.all (9) := make_field (6, 0, 4, 46, False);
f.all (10) := make_label (5, 20, "Password:");
f.all (11) := make_field (5, 30, 1, 9, True);
secure := f.all (11);
f.all (12) := Null_Field;
myform := New_Form (f);
display_form (myform);
w := Get_Window (myform);
Set_Raw_Mode (SwitchOn => True);
Set_NL_Mode (SwitchOn => True); -- lets us read ^M's
while not finished loop
c := form_virtualize (myform, w);
result := Driver (myform, c);
case result is
when Form_Ok =>
Add (Line => 5, Column => 57, Str => Get_Buffer (secure, 1));
Clear_To_End_Of_Line;
Refresh;
when Unknown_Request =>
finished := my_form_driver (myform, c);
when others =>
Beep;
end case;
end loop;
erase_form (myform);
-- TODO Free_Form(myform);
-- for (c = 0; f[c] != 0; c++) free_field(f[c]);
Set_Raw_Mode (SwitchOn => False);
Set_NL_Mode (SwitchOn => True);
end ncurses2.demo_forms;
AdaCurses-20211021/samples/ncurses2-flushinp_test.adb 0000644 0001751 0000144 00000012775 13615656212 021125 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 2000 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.2 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
with ncurses2.util; use ncurses2.util;
procedure ncurses2.flushinp_test (win : Window) is
procedure Continue (win : Window);
procedure Continue (win : Window) is
begin
Set_Echo_Mode (False);
Move_Cursor (win, 10, 1);
Add (win, 10, 1, " Press any key to continue");
Refresh (win);
Getchar (win);
end Continue;
h, by, sh : Line_Position;
w, bx, sw : Column_Position;
subWin : Window;
begin
Clear (win);
Get_Size (win, h, w);
Get_Window_Position (win, by, bx);
sw := w / 3;
sh := h / 3;
subWin := Sub_Window (win, sh, sw, by + h - sh - 2, bx + w - sw - 2);
if Has_Colors then
Init_Pair (2, Cyan, Blue);
Change_Background (subWin,
Attributed_Character'(Ch => ' ', Color => 2,
Attr => Normal_Video));
end if;
Set_Character_Attributes (subWin,
(Bold_Character => True, others => False));
Box (subWin);
Add (subWin, 2, 1, "This is a subwindow");
Refresh (win);
Set_Cbreak_Mode (True);
Add (win, 0, 1, "This is a test of the flushinp() call.");
Add (win, 2, 1, "Type random keys for 5 seconds.");
Add (win, 3, 1,
"These should be discarded (not echoed) after the subwindow " &
"goes away.");
Refresh (win);
for i in 0 .. 4 loop
Move_Cursor (subWin, 1, 1);
Add (subWin, Str => "Time = ");
Add (subWin, Str => Integer'Image (i));
Refresh (subWin);
Nap_Milli_Seconds (1000);
Flush_Input;
end loop;
Delete (subWin);
Erase (win);
Flash_Screen;
Refresh (win);
Nap_Milli_Seconds (1000);
Add (win, 2, 1,
Str => "If you were still typing when the window timer expired,");
Add (win, 3, 1,
"or else you typed nothing at all while it was running,");
Add (win, 4, 1,
"test was invalid. You'll see garbage or nothing at all. ");
Add (win, 6, 1, "Press a key");
Move_Cursor (win, 9, 10);
Refresh (win);
Set_Echo_Mode (True);
Getchar (win);
Flush_Input;
Add (win, 12, 0,
"If you see any key other than what you typed, flushinp() is broken.");
Continue (win);
Move_Cursor (win, 9, 10);
Delete_Character (win);
Refresh (win);
Move_Cursor (win, 12, 0);
Clear_To_End_Of_Line;
Add (win,
"What you typed should now have been deleted; if not, wdelch() " &
"failed.");
Continue (win);
Set_Cbreak_Mode (True);
end ncurses2.flushinp_test;
AdaCurses-20211021/samples/sample.ads 0000644 0001751 0000144 00000006003 13615656212 015761 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- Sample --
-- --
-- S P E C --
-- --
------------------------------------------------------------------------------
-- Copyright 2020 Thomas E. Dickey --
-- Copyright 1998-2002,2003 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
-- $Revision: 1.11 $
-- Binding Version 01.00
------------------------------------------------------------------------------
package Sample is
procedure Whow;
end Sample;
AdaCurses-20211021/samples/ncurses2-demo_panels.adb 0000644 0001751 0000144 00000031007 13615656212 020511 0 ustar tom users ------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding Samples --
-- --
-- ncurses --
-- --
-- B O D Y --
-- --
------------------------------------------------------------------------------
-- Copyright 2018,2020 Thomas E. Dickey --
-- Copyright 2000-2008,2011 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno 2000
-- Version Control
-- $Revision: 1.9 $
-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with ncurses2.util; use ncurses2.util;
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
with Terminal_Interface.Curses.Panels; use Terminal_Interface.Curses.Panels;
with Terminal_Interface.Curses.Panels.User_Data;
with ncurses2.genericPuts;
procedure ncurses2.demo_panels (nap_mseci : Integer) is
function mkpanel (color : Color_Number;
rows : Line_Count;
cols : Column_Count;
tly : Line_Position;
tlx : Column_Position) return Panel;
procedure rmpanel (pan : in out Panel);
procedure pflush;
procedure wait_a_while (msec : Integer);
procedure saywhat (text : String);
procedure fill_panel (pan : Panel);
nap_msec : Integer := nap_mseci;
function mkpanel (color : Color_Number;
rows : Line_Count;
cols : Column_Count;
tly : Line_Position;
tlx : Column_Position) return Panel is
win : Window;
pan : Panel := Null_Panel;
begin
win := New_Window (rows, cols, tly, tlx);
if Null_Window /= win then
pan := New_Panel (win);
if pan = Null_Panel then
Delete (win);
elsif Has_Colors then
declare
fg, bg : Color_Number;
begin
if color = Blue then
fg := White;
else
fg := Black;
end if;
bg := color;
Init_Pair (Color_Pair (color), fg, bg);
Set_Background (win, (Ch => ' ',
Attr => Normal_Video,
Color => Color_Pair (color)));
end;
else
Set_Background (win, (Ch => ' ',
Attr => (Bold_Character => True,
others => False),
Color => Color_Pair (color)));
end if;
end if;
return pan;
end mkpanel;
procedure rmpanel (pan : in out Panel) is
win : Window := Panel_Window (pan);
begin
Delete (pan);
Delete (win);
end rmpanel;
procedure pflush is
begin
Update_Panels;
Update_Screen;
end pflush;
procedure wait_a_while (msec : Integer) is
begin
-- The C version had some #ifdef blocks here
if msec = 1 then
Getchar;
else
Nap_Milli_Seconds (msec);
end if;
end wait_a_while;
procedure saywhat (text : String) is
begin
Move_Cursor (Line => Lines - 1, Column => 0);
Clear_To_End_Of_Line;
Add (Str => text);
end saywhat;
-- from sample-curses_demo.adb
type User_Data is new String (1 .. 2);
type User_Data_Access is access all User_Data;
package PUD is new Panels.User_Data (User_Data, User_Data_Access);
use PUD;
procedure fill_panel (pan : Panel) is
win : constant Window := Panel_Window (pan);
num : constant Character := Get_User_Data (pan).all (2);
tmp6 : String (1 .. 6) := "-panx-";
maxy : Line_Count;
maxx : Column_Count;
begin
Move_Cursor (win, 1, 1);
tmp6 (5) := num;
Add (win, Str => tmp6);
Clear_To_End_Of_Line (win);
Box (win);
Get_Size (win, maxy, maxx);
for y in 2 .. maxy - 3 loop
for x in 1 .. maxx - 3 loop
Move_Cursor (win, y, x);
Add (win, num);
end loop;
end loop;
exception
when Curses_Exception => null;
end fill_panel;
modstr : constant array (0 .. 5) of String (1 .. 5) :=
("test ",
"TEST ",
"(**) ",
"*()* ",
"<--> ",
"LAST "
);
package p is new ncurses2.genericPuts (1024);
use p;
use p.BS;
-- the C version said register int y, x;
tmpb : BS.Bounded_String;
begin
Refresh;
for y in 0 .. Integer (Lines - 2) loop
for x in 0 .. Integer (Columns - 1) loop
myPut (tmpb, (y + x) mod 10);
myAdd (Str => tmpb);
end loop;
end loop;
for y in 0 .. 4 loop
declare
p1, p2, p3, p4, p5 : Panel;
U1 : constant User_Data_Access := new User_Data'("p1");
U2 : constant User_Data_Access := new User_Data'("p2");
U3 : constant User_Data_Access := new User_Data'("p3");
U4 : constant User_Data_Access := new User_Data'("p4");
U5 : constant User_Data_Access := new User_Data'("p5");
begin
p1 := mkpanel (Red, Lines / 2 - 2, Columns / 8 + 1, 0, 0);
Set_User_Data (p1, U1);
p2 := mkpanel (Green, Lines / 2 + 1, Columns / 7, Lines / 4,
Columns / 10);
Set_User_Data (p2, U2);
p3 := mkpanel (Yellow, Lines / 4, Columns / 10, Lines / 2,
Columns / 9);
Set_User_Data (p3, U3);
p4 := mkpanel (Blue, Lines / 2 - 2, Columns / 8, Lines / 2 - 2,
Columns / 3);
Set_User_Data (p4, U4);
p5 := mkpanel (Magenta, Lines / 2 - 2, Columns / 8, Lines / 2,
Columns / 2 - 2);
Set_User_Data (p5, U5);
fill_panel (p1);
fill_panel (p2);
fill_panel (p3);
fill_panel (p4);
fill_panel (p5);
Hide (p4);
Hide (p5);
pflush;
saywhat ("press any key to continue");
wait_a_while (nap_msec);
saywhat ("h3 s1 s2 s4 s5; press any key to continue");
Move (p1, 0, 0);
Hide (p3);
Show (p1);
Show (p2);
Show (p4);
Show (p5);
pflush;
wait_a_while (nap_msec);
saywhat ("s1; press any key to continue");
Show (p1);
pflush;
wait_a_while (nap_msec);
saywhat ("s2; press any key to continue");
Show (p2);
pflush;
wait_a_while (nap_msec);
saywhat ("m2; press any key to continue");
Move (p2, Lines / 3 + 1, Columns / 8);
pflush;
wait_a_while (nap_msec);
saywhat ("s3;");
Show (p3);
pflush;
wait_a_while (nap_msec);
saywhat ("m3; press any key to continue");
Move (p3, Lines / 4 + 1, Columns / 15);
pflush;
wait_a_while (nap_msec);
saywhat ("b3; press any key to continue");
Bottom (p3);
pflush;
wait_a_while (nap_msec);
saywhat ("s4; press any key to continue");
Show (p4);
pflush;
wait_a_while (nap_msec);
saywhat ("s5; press any key to continue");
Show (p5);
pflush;
wait_a_while (nap_msec);
saywhat ("t3; press any key to continue");
Top (p3);
pflush;
wait_a_while (nap_msec);
saywhat ("t1; press any key to continue");
Top (p1);
pflush;
wait_a_while (nap_msec);
saywhat ("t2; press any key to continue");
Top (p2);
pflush;
wait_a_while (nap_msec);
saywhat ("t3; press any key to continue");
Top (p3);
pflush;
wait_a_while (nap_msec);
saywhat ("t4; press any key to continue");
Top (p4);
pflush;
wait_a_while (nap_msec);
for itmp in 0 .. 5 loop
declare
w4 : constant Window := Panel_Window (p4);
w5 : constant Window := Panel_Window (p5);
begin
saywhat ("m4; press any key to continue");
Move_Cursor (w4, Lines / 8, 1);
Add (w4, modstr (itmp));
Move (p4, Lines / 6, Column_Position (itmp) * (Columns / 8));
Move_Cursor (w5, Lines / 6, 1);
Add (w5, modstr (itmp));
pflush;
wait_a_while (nap_msec);
saywhat ("m5; press any key to continue");
Move_Cursor (w4, Lines / 6, 1);
Add (w4, modstr (itmp));
Move (p5, Lines / 3 - 1, (Column_Position (itmp) * 10) + 6);
Move_Cursor (w5, Lines / 8, 1);
Add (w5, modstr (itmp));
pflush;
wait_a_while (nap_msec);
end;
end loop;
saywhat ("m4; press any key to continue");
Move (p4, Lines / 6, 6 * (Columns / 8));
-- Move(p4, Lines / 6, itmp * (Columns / 8));
pflush;
wait_a_while (nap_msec);
saywhat ("t5; press any key to continue");
Top (p5);
pflush;
wait_a_while (nap_msec);
saywhat ("t2; press any key to continue");
Top (p2);
pflush;
wait_a_while (nap_msec);
saywhat ("t1; press any key to continue");
Top (p1);
pflush;
wait_a_while (nap_msec);
saywhat ("d2; press any key to continue");
rmpanel (p2);
pflush;
wait_a_while (nap_msec);
saywhat ("h3; press any key to continue");
Hide (p3);
pflush;
wait_a_while (nap_msec);
saywhat ("d1; press any key to continue");
rmpanel (p1);
pflush;
wait_a_while (nap_msec);
saywhat ("d4; press any key to continue");
rmpanel (p4);
pflush;
wait_a_while (nap_msec);
saywhat ("d5; press any key to continue");
rmpanel (p5);
pflush;
wait_a_while (nap_msec);
if nap_msec = 1 then
exit;
else
nap_msec := 100;
end if;
end;
end loop;
Erase;
End_Windows;
end ncurses2.demo_panels;
AdaCurses-20211021/NEWS 0000644 0001751 0000144 00002456224 14134116417 013055 0 ustar tom users -------------------------------------------------------------------------------
-- Copyright 2018-2020,2021 Thomas E. Dickey --
-- Copyright 1998-2017,2018 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 --
-- "Software"), to deal in the Software without restriction, including --
-- without limitation the rights to use, copy, modify, merge, publish, --
-- distribute, distribute with modifications, 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. --
-- --
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN --
-- NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE --
-- USE OR OTHER DEALINGS IN THE SOFTWARE. --
-- --
-- Except as contained in this notice, the name(s) of the above copyright --
-- holders shall not be used in advertising or otherwise to promote the --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
-------------------------------------------------------------------------------
-- $Id: NEWS,v 1.3732 2021/10/20 22:49:51 tom Exp $
-------------------------------------------------------------------------------
This is a log of changes that ncurses has gone through since Zeyd started
working with Pavel Curtis' original work, pcurses, in 1992.
Changes through 1.9.9e are recorded by Zeyd M Ben-Halim.
Changes since 1.9.9e are recorded by Thomas E Dickey.
Contributors include those who have provided patches (even small ones), as well
as those who provide useful information (bug reports, analyses). Changes with
no cited author are the work of Thomas E Dickey (TD).
A few contributors may be cited in this file by their initials.
Each accounts for half of one percent or more of the changes since 1.9.9e.
See the AUTHORS file for the corresponding full names.
Changes through 1.9.9e did not credit all contributions;
it is not possible to add this information.
20211021 6.3 release for upload to ftp.gnu.org
+ update release notes
+ add "ncu2openbsd" script, to illustrate how to update an OpenBSD
system to use a current ncurses release.
20211018
+ check for screen size-change in scr_init() and scr_restore(), in case
a screen dump does not match the current screen dimensions (report by
Frank Tkalcevic).
20211017
+ amend change for pkg-config to account for "none" being returned in
the libdir-path result rather than "no" (report by Gabriele Balducci).
20211016
+ build-fix for pmake with libtool.
+ improve make-tar.sh scripts, adding COPYING to tar file, and clean up
shellcheck warnings.
+ add link for "reset6" manpage in test-package ncurses6-doc
+ revise configure option --with-pkg-config-libdir, using the actual
search path from pkg-config or pkgconf using the output from --debug
(report by Pascal Pignard).
+ freeze ABI in ".map" files.
20211009
+ implement "+m" option in tabs program.
+ fill in some details for infoton -TD
+ fix spelling/consistency in several descriptions -TD
+ use vt420+lrmm in vt420 -TD
+ modify save_tty_settings() to avoid opening /dev/tty for cases other
than reset/init, e.g., for clear.
+ modify output of "toe -as" to show first description found rather
than the last.
+ improve tic checks for number of parameters of smglp, smgrp, smgtp,
and smgbp (cf: 20020525).
+ correct off-by-one comparison in last_char(), which did not allow
special case of ":" in a terminfo description field (cf: 20120407).
+ remove check in tic that assumes that none or both parameterized and
non-parameterized margin-setting capabilities are present
(cf: 20101002).
20211002
+ use return-value from vsnprintf to reallocate as needed to allow for
buffers larger than the screen size (report by "_RuRo_").
+ modify tset "-q" option to refrain from modifying terminal modes, to
match the documentation.
+ add section on margins to terminfo.5, adapted from X/Open Curses.
+ make tput/tset warning messages consistently using alias names when
those are used, rather than the underlying program's name.
+ improve tput usage message for aliases such as clear, by eliminating
tput-specific portions.
+ add a check in toe to ensure that a "termcap file" is text rather
than binary.
+ further build-fixes for OpenBSD 6.9, whose header files differ from
the other BSDs.
20210925
+ add kbeg to xterm+keypad to accommodate termcap applications -TD
+ add smglp and smgrp to vt420+lrmm, to provide useful data for the
"tabs" +m option -TD
+ build-fix for gcc 3.4.3 with Solaris10, which does not allow forward
reference of anonymous struct typedef.
+ modify tput to allow multiple commands per line.
+ minor fixes for tset manpage.
20210911
+ adjust ifdef in test_opaque.c to fix build with ncurses 5.7
+ add testing note for xterm-{hp|sco|sun} -TD
+ corrected description for ansi.sys-old -TD
+ add xterm+nopcfkeys, to fill in keys for xterm-hp, xterm-sun -TD
+ use hp+arrows in a few places -TD
+ use hp+pfk-cr in a few places -TD
20210905
+ correct logic in filtering of redefinitions (report by Sven Joachim,
cf: 20210828).
20210904
+ modify linux3.0 entry to reflect default mapping of shift-tab by
kbd 1.14 (report by Jan Engelhardt) -TD
+ add historical note to tput, curses-terminfo and curses-color
manpages based on source-code for SVr2, SVr3 and SVr4.
+ minor grammatical fixes for "it's" vs "its" (report by Nick Black).
+ amend fix for --disable-root-environ (report by Arnav Singh).
+ build-fix for compiling link_test
+ drop symbols GCC_PRINTF and GCC_SCANF from curses.h.in, to simplify
use (Debian #993179).
20210828
+ correct reversed check for --disable-root-environ (report/analysis
by Arnav Singh, cf: 20210626).
+ apply gcc format attribute to prototypes which use a va_list
parameter rather than a "..." variable-length parameter list
(prompted by discussion in a tmux pull-request).
+ modify configure scripts to filter out redefinitions of _XOPEN_SOURCE,
e.g., for NetBSD which generally supports 500, but 600 is needed for
ncursesw.
+ improve documentation for tparm and static/dynamic variables.
+ improve typography in terminfo.5 (patch by Branden Robinson).
20210821
+ improve tparm implementation of %P and %g, more closely matching
SVr4 terminfo.
+ move internals of TERMINAL structure to new header term.priv.h
+ add "check" rule for ncurses/Makefile
+ corrected tsl capability for terminator -TD
+ add check in tic to report instances where tparm would detect an
error in an expression (cf: 20201010).
+ correct a few places where SP->_pair_limit was used rather than
SP->_pair_alloc (cf: 20170812).
+ fix missing "%d" for setaf/setab code 8-15 in xterm+direct16 (report
by Florian Weimer) -TD
+ fix some documentation errata from OpenBSD changes.
+ update config.sub
20210814
+ add workaround for broken pcre2 package in Debian 10, from xterm #369.
20210807
+ ignore "--dynamic-linker" option in generated pkg/config files,
adapted from "distr1" patch.
+ add CF_SHARED_OPTS case for Haiku, from patch in haikuports.
20210731
+ add extensions in xterm+tmux and ecma+strikeout to ms-terminal,
but cancel the non-working Cr and Ms capabilities -TD
+ add foot and foot-direct -TD
20210724
+ add workaround for Windows Terminal's problems with CR/LF mapping to
ms-terminal (patch by Juergen Pfeifer).
+ review/update current Windows Terminal vs ms-terminal -TD
20210718
+ correct typo in "vip" comments (report by Nick Black), reviewed this
against Glink manual -TD
+ fill in some missing pieces for pccons, to make it comparable to the
vt220 entry -TD
+ modify mk-1st.awk to account for extra-suffix configure option
(report by Juergen Pfeifer).
+ change default for --disable-wattr-macros option to help packagers
who reuse wide ncursesw header file with non-wide ncurses library.
+ build-fix for test/test_opaque.c, for configurations without opaque
curses structs.
20210710
+ improve history section for tset manpage based on the 1BSD tarball,
which preceded BSD's SCCS checkins by more than three years.
+ improve CF_XOPEN_CURSES macro used in test/configure (report by Urs
Jansen).
+ further improvement of libtool configuration, adding a dependency of
the install.tic rule, etc., on the library in the build-tree.
+ update config.sub
20210703
+ amend libtool configuration to add dependency for install.tic, etc.,
in ncurses/Makefile on the lower-level libraries.
+ modify configure script to support ".PHONY" make program feature.
20210626
+ add configure option --disable-root-access, which tells ncurses to
disallow most file-opens by setuid processes.
+ use default colors in pccon "op" -TD
+ correct rmacs/smacs in aaa+dec, aaa+rv -TD
+ add hpterm-color2 and hp98550-color (Martin Trusler)
+ regenerate man-html documentation.
20210619
+ improve configure-macro used for dependencies of --disable-leaks such
as --with-valgrind
+ trim trailing blanks from files
20210612
+ fixes for scan-build, valgrind build/testing.
+ update config.guess
20210605
+ add a summary of ncurses-specific preprocessor symbols to curses.h
(prompted by discussion with Peter Farley, Bill Gray).
20210522
+ regenerate configure scripts with autoconf 2.52.20210509 to eliminate
an unnecessary warning in config.log (report by Miroslav Lichvar).
+ add a note in manual page to explain ungetch vs unget_wch (prompted
by discussion with Peter Farley).
+ add sp-funcs for erasewchar, killwchar.
+ modify wgetnstr, wgetn_wstr to improve compatibility with SVr4 curses
in its treatment of interrupt and quit characters (prompted by
report/testcase by Bill Gray)
+ update config.guess, config.sub
20210515
+ improve manual pages for wgetnstr, newwin (prompted by
report/testcase by Bill Gray).
20210508
+ modify tputs' error check to allow it to be used without first
calling tgetent or setupterm, noting that terminfo initialization
is required for supporting the terminfo delay feature (report by
Sebastiano Vigna).
+ fix several warnings from clang --analyze
+ add null-pointer check in comp_parse.c, when a "use=" clause refers
to a nonexisting terminal description (report/patch by Miroslav
Lichvar, cf: 20210227).
20210501
+ add a special case in the configure script to work around one of the
build-time breakages reported for OpenBSD 6 here:
https://www.mail-archive.com/bugs@openbsd.org/msg13200.html
There is no workaround for the other issue, a broken linker spec.
+ modify configure check for libtool to prevent accidental use of an
OpenBSD program which uses the same name.
+ update config.guess, config.sub
20210424
+ avoid using broken system macros for snprintf which interfere with
_nc_SLIMIT's conditionally adding a parameter when the string-hacks
configure option is enabled.
+ add a "all::" rule before the new "check" rule in test/Makefile.in
20210418
+ improve CF_LINK_FUNCS by ensuring that the source-file is closed
before linking to the target.
+ add "check" rules for headers in c++, progs and test-directories.
+ build-fix for termsort module when configured with termcap (reports
by Rajeev V Pillai, Rudi Heitbaum).
20210417
+ extend --disable-pkg-ldflags option to also control whether $LDFLAGS
from the build is provided in -config and .pc files (Debian #986764).
+ fix some cppcheck warnings, mostly style, in ncurses and c++
libraries and progs directory.
+ fix off-by-one limit for tput's processing command-line arguments
(patch by Hadrien Lacour).
20210403
+ fix some cppcheck warnings, mostly style, in ncurses library and
progs directory.
+ improve description of BSD-style padding in curs_termcap.3x
+ improved CF_C11_NORETURN macro, from byacc changes.
+ fix "--enable-leak" in CF_DISABLE_LEAKS to allow turning
leak-checking off later in a set of options.
+ relax modification-time comparison in CF_LINK_FUNCS to allow it to
accept link() function with NFS filesystems which change the mtime
on the link target, e.g., several BSD systems.
+ call delay_output_sp to handle BSD-style padding when tputs_sp is
called, whether directly or internally, to ensure that the SCREEN
pointer is passed correctly (reports by Henric Jungheim, Juraj
Lutter).
20210327
+ build-fixes for Solaris10 /bin/sh
+ fix some cppcheck warnings, mostly style, in ncurses test-programs,
form and menu libraries.
20210323
+ add configure option --enable-stdnoreturn, making the _Noreturn
keyword optional to ease transition (prompted by report by
Rajeev V Pillai).
20210320
+ improve parameter-checking in tput by forcing it to analyze any
extended string capability, e.g., as used in the Cs and Ms
capabilities of the tmux description (report by Brad Town,
cf: 20200531).
+ remove an incorrect free in the fallback (non-checking) version of
_nc_free_and_exit (report by Miroslav Lichvar).
+ correct use-ordering in some xterm-direct flavors -TD
+ add hterm, hterm-256color (Mike Frysinger)
+ if the build-time compiler accepts c11's _Noreturn keyword, use that
rather than gcc's attribute.
+ change configure-check for gcc's noreturn attribute to assume it is
a prefix rather than suffix, matching c11's _Noreturn convention.
+ add "lint" rule to c++/Makefile, e.g., with cppcheck.
20210313
+ improve configure CF_LD_SEARCHPATH macro used for ncurses*-config and
".pc" files, from dialog changes.
+ reduce dependency of math-library in test programs.
+ minor fixes for test_tparm.c (cf: 20210306)
+ mention "ncurses" prefix in curses_version() manpage (report by
Michal Bielinski).
20210306
+ improved test/test_tparm.c, by limiting the tests to capabilities
that might have parameters or padding, and combined with tputs test.
+ improve discussion of padding versus tparm and tputs in
man/curs_terminfo.3x
+ update portability note for FreeBSD in man/tput.1
20210227
+ modify tic/infocmp to eliminate unnecessary "\" to escape ":" in
terminfo format.
+ add check in tic for duplicate "use=" clauses.
20210220
+ improve tic warning when oc/op do not mention SGR 39/49 for xterm
compatible XT flag.
+ revert change to lib_addch.c in waddch_literal() from 20210130, since
the followup fix in PutCharLR() actually corrects the problem while
this change causes too-early filling/wrapping (report by Johannes
Altmanninger).
+ add/use vt220+pcedit and vt220+vtedit -TD
+ add scrt/securecrt and absolute -TD
+ add nel to xterm-new, though supported since X11R5 -TD
+ add/use xterm+nofkeys -TD
+ move use of ecma+italics from xterm-basic to xterm+nofkeys -TD
20210213
+ add test/back_ground.c, to exercise the wide-character background
functions.
+ add a check in _nc_build_wch() in case the background character is a
wide-character, rather than a new part of a multibyte character.
+ improve tracemunch's coverage of form/menu/panel libraries.
+ improve tracemunch's checking/reporting the type for the first
parameter, e.g., "WINDOW*" rather than "#1".
20210206
+ provide for wide-characters as background character in wbkgrnd
(report/testcase by Anton Vidovic)
+ add name for Fedora's pcre2 to configure check for "--with-pcre2"
option, from xterm #363 -TD
+ modify adjustment in PutCharLR to restore the cursor position before
writing to the lower-right corner, rather than decrementing the
cursor column, in case it was a double-width character (cf: 20210130).
20210130
+ correct an off-by-one in comparison in waddch_literal() which caused
scrolling when a double-cell character would not fit at the lower
right corner of the screen (report by Benno Schulenberg).
+ split-out att610+cvis, vt220+cvis, vt220+cvis8 -TD
+ add vt220-base, for terminal emulators which generally have not
supported att610's blinking cursor control -TD
+ use vt220+cvis in vt220, etc -TD
+ use att610+cvis, xterm+tmux and ansi+enq in kitty -TD
+ use vt220+cvis in st, terminology, termite since they ignore
blinking-cursor detail in att610+cvis -TD
20210123
+ modify package/config scripts to provide an explicit -L option for
cases when the loader search path has other directories preceding
the one in which ncurses is installed (report by Yuri Victorovich).
+ minor build-fixes in configure script and makefiles to work around
quirks of pmake.
20210116
+ add comment for linux2.6 regarding CONFIG_CONSOLE_TRANSLATIONS
(report by Patrick McDermott) -TD
+ make opts extension for getcchar work as documented for ncurses 6.1,
adding "-g" flag to test/demo_new_pair to illustrate.
20210109
+ fix errata in man/ncurses.3x from recent updates.
+ improve quoting/escaping in configure script, uses some features of
autoconf 2.52.20210105
20210102
+ update man/curs_memleaks.3x, to include which declares
exit_terminfo.
+ clarify man/curs_terminfo.3x, to mention why the macro setterm is
defined in , and remove it from the list of prototypes
(prompted by patch by Graeme McCutcheon).
+ amend man/curs_terminfo.3x, to note that is required
for certain functions, e.g., those using chtype or attr_t for
types, as well as mvcur (cf: 20201031).
+ use parameter-names in prototypes in curs_sp_funcs.3x, for
consistency with other manpages.
20201227
+ update terminology entry to 1.8.1 -TD
+ fix some compiler-warnings which gcc8 reports incorrectly.
20201219
+ suppress hyphenation in generated html for manpages, to address
regression in upgrade of groff 1.22.2 to 1.22.3.
+ fix inconsistent sort-order in see-also sections of manpages (report
by Chris Bennett).
20201212
+ improve manual pages for form field-types.
20201205
+ amend build-fixes for gnat 10 to work with certain systems lacking
gprbuild (cf: 20200627).
+ eliminate an additional strlen and wsclen.
+ eliminate an unnecessary strlen in waddnstr() (suggested by Benjamin
Abendroth).
+ modify inopts manpage, separating the items for nodelay and notimeout
(patch by Benno Schulenberg).
+ correct mlterm3 kf1-kf4 (Debian #975322) -TD
+ add flash to mlterm3 -TD
20201128
+ add Smulx to alacritty (Christian Duerr).
+ add rep to PuTTY -TD
+ add putty+keypad -TD
+ add another fflush(stdout) in _nc_flush() to handle time-delays in
the middle of strings such as flash when the application uses
low-level calls rather than curses (cf: 20161217).
+ modify configure check for c89/c99 aliases of clang to use its
-std option instead, because some platforms, in particular macOS,
do not provide workable c89/c99 aliases.
20201121
+ fix some compiler-warnings in experimental Windows-10 driver.
+ add the definitions needed in recent configure-check for clang
(report by Steven Pitman).
20201114
+ fix some compiler-warnings in experimental Windows-10 driver.
+ modify a check for parameters in terminfo capabilities to handle the
special case where short extended capability strings were not
converted from terminfo to termcap format.
+ modify CF_MIXEDCASE_FILENAMES macro, adding darwin as special case
when cross-compiling (report by Eli Rykoff).
20201107
+ update kitty+common -TD
+ add putty+screen and putty-screen (suggested by Alexandre Montaron).
+ explain in ncurses.3x that functions in the tinfo library do not rely
upon wide-characters (prompted by discussion with Reuben Thomas).
20201031
+ modify MKterm.h.in so that it is not necessary to include
before (prompted by discussion with Reuben Thomas).
+ review/improve synopsis for curs_sp_funcs.3x (prompted by discussion
with Reuben Thomas).
+ improve format of output in tic's check_infotocap() function, to
ensure that the messages contain only printable text.
+ modify configure-check for clang to verify that -Qunused-arguments
is supported. IBM's xlclang does not support it (report by Steven
Pitman).
20201024
+ provide workaround configure-check for bool when cross-compiling.
+ fix a potential indexing error in _nc_parse_entry(), seen with
Herlim's test data using address-sanitizer.
+ change a null-pointer check in set_curterm to a valid-string check,
needed in to tic's use-resolution when pad_char is cancelled
(report/testcase by Robert Sebastian Herlim)
+ improve tic's -c option to validate the number and type of parameters
and compare against expected number/type before deciding which set of
parameter-lists to use in tparm calls (report/testcase by Robert
Sebastian Herlim).
+ fix a link for tabs.1 manpage in announce.html.in (report by Nick
Black), as well as some fixes via linklint.
20201017
+ improve manpage typography.
+ improve discussion in curs_addch.3x of the use of unctrl to display
nonprintable characters.
+ add a note in terminfo.5 explaining that no-parameter strings such
as sgr0 or cnorm should not be used with tparm.
20201010
+ correct sgr in aaa+rv (report by Florian Weimer) -TD
+ fix some sgr inconsistencies in d230c, ibm6153, ibm6154,
ncrvt100an -TD
+ improve tic's check for errors detected in tparm (prompted by
discussion with Florian Weimer).
+ set output-mode to binary in experimental Windows-10 driver (Juergen
Pfeifer).
20201003
+ remove output-related checks for nl/nonl (report by Leon Winter).
+ change tmux's kbs to ^? (report by Premysl Eric Janouch)
+ simplify mlterm initialization with DECSTR -TD
+ fix a typo in man/curs_terminfo.3 (Reuben Thomas).
+ add tmux-direct (tmux #2370, Debian #895754)
+ add user-defined capabilities from mintty to Caps-ncurses, for
checking consistency with tic.
20200926
+ correct configure-check for gnurx library.
+ regenerate llib-* files.
+ modify tracemunch and the panel library to show readable traces for
panel- and user-pointers.
20200919
+ update mlterm3 for 3.9.0 (report by Premysl Eric Janouch) -TD
20200918
+ corrected condition for appending curses.events to the generated
curses.h (report by Sven Joachim, Debian #970545).
20200912
+ add configure-check for systre/tre with mingw configuration, to get
the library-dependencies as seen in msys2 configuration for mingw64.
+ build-fixes for the win32-driver configuration.
+ use more defensive binary mode setting for Win32 (Juergen Pfeifer).
20200907
+ fix regression in setupterm validating non-empty $TERM (report by
Soren Tempel).
20200906
+ merge/adapt in-progress work by Juergen Pfeifer for new version of
win32-driver.
+ correct description of vt330/vt340 (Ross Combs).
20200831
+ build-fix for awk-scripts modified for win32-driver (report by Werner
Fink).
20200829
+ remove a redundant NCURSES_EXPORT as a build-fix for "Maarten
Anonymous".
+ merge/adapt in-progress work by Juergen Pfeifer for new version of
win32-driver.
+ modify configure script, moving gcc -Werror options to EXTRA_CFLAGS
to avoid breaking configure-checks (adapted from ongoing work on
mawk and lynx).
> errata for terminfo.src (report by Florian Weimer):
+ correct icl6404 csr
+ correct ti916 cup
+ improve ndr9500
20200822
+ improve version-number extraction in MKlib_gen.sh
+ make the test-package for manpages installable by adjusting the
man_db.renames file.
+ correct an off-by-one loop-limit in convert_strings function
(report by Yue Tai).
+ add CF_SHARED_OPTS cases for HPE NonStop systems (Randall S Becker).
+ modify CF_SHARED_OPTS case for NetBSD to use the same "-shared"
option for the non-rpath case as for the rpath case, to allow gcc to
provide suitable runtime initialization (report by Rajeev V Pillai).
20200817
+ reduce build-warnings by excluding ncurses-internals from deprecation
warnings.
+ mark wgetch-events feature as deprecated.
+ add definition for $(LIBS) to ncurses/Makefile.in, to simplify builds
using the string-hacks option.
+ prevent KEY_EVENT from appearing in curses.h unless the configure
option --enable-wgetch-events is used (report by Werner Fink).
20200816
+ amend tic/infocmp check to allow for the respective tool's absence
(report by Steve Wills, cf: 20200808).
+ improved some of the build-scripts with shellcheck
+ filter out -MT/-MD/-MTd/-MDd options in script for Visual Studio C++
(discussion with "Maarten Anonymous").
20200808
+ improve discussion of the system's tic utility when used as part
of cross-compiling (discussion with Keith Marshall).
+ modify configuration checks for build-time tic/infocmp to use
AC_CHECK_TOOL. That can still be overridden by --with-tic-path and
--with-infocmp-path when fallbacks are used, but even if not using
fallbacks, the improved check may help with cross-compiling
(discussion with Keith Marshall).
+ other build-fixes for Ada95 with MinGW.
+ modify Ada95 source-generation utility to write to a file given as
parameter rather than to the standard output, allowing builds with
MinGW.
20200801
+ remove remaining parts of checks for ISC Unix (cf: 20121006).
+ add user32.lib to LDFLAGS for Visual Studio C++ configuration
(discussion with "Maarten Anonymous").
+ modify MKkey_defs.sh to hide ncurses' definition of KEY_EVENTS to
reduce Visual Studio C++ redefinition warnings.
+ improve/update checks for external functions in test/configure
20200725
+ set LINK_TESTS in CF_SHARED_OPTS for msvc (patch by
"Maarten Anonymous")
+ improved workaround for redefinition-warnings for KEY_EVENT.
+ improve man/term.5 section on legacy storage format (report by
Florian Weimer).
20200718
+ reduce redefinition-warnings for KEY_EVENT when building with Visual
Studio C++.
+ define NCURSES_STATIC when compiling programs to link with static
libraries, to work with MinGW vs Visual Studio C++.
> additional changes for building with Visual Studio C++ and msys2
(reports/patches by "Maarten Anonymous")
+ modify c++/Makefile.in to set the current directory while compiling
the main program, so the linker can find related objects.
+ several changes to allow the c++/demo program to compile/link.
+ change an ifdef in test-directory, to use VC++ wide-character funcs.
20200711
+ fix pound-sign mapping in acsc of linux2.6 entry (report by Ingo
Bruckl).
+ additional changes for building with Visual Studio C++ and msys2
(reports/patches by "Maarten Anonymous")
+ build-improvements for Windows 10 and MinGW (patch by Juergen
Pfeifer).
+ fix a typo in curs_printw.3x (patch by William Pursell).
+ fix two errors in infotocap which allowed indexing outside the
buffer (report/testcases by Zhang Gan).
+ update length of strings in infocmp's usage function to restore a
trailing null on the longest string (report/testcase by Zhang Gen).
20200704
+ modify version-check with Ada generics to use the same pattern as in
the check for supported gnat versions (report by Pascal Pignard).
> additional changes for building with Visual Studio C++ and msys2
(patches by "Maarten Anonymous"):
+ adjust headers/declarations to provide for "dllimport" vs "dllexport"
declarations when constructing DLLs, to worko with Visual Studio C++.
20200627
+ build-fixes for gnat 10.1.1, whose gnatmake drops integration with
gprbuild.
+ correct buffer-length in test/color_name.h
20200613
+ update list of functions in ncurses.3x
+ move dlclose() call from lib_mouse.c to delscreen() to avoid a case
in the former which could be called from SIGTSTP handler (Debian
#961097).
20200606
+ add xterm+256color2, xterm+88color2, to deprecate nonstandard usage
in xterm+256color, xterm+88color -TD
+ add shifted Linux console keys in linux+sfkeys entry for
screen.linux (report by Alexandre Montaron).
+ use vt100+enq in screen (report by Alexandre Montaron).
+ add screen.linux-s alias (suggested by Alexandre Montaron).
20200531
+ correct configure version-check/warnng for g++ to allow for 10.x
+ re-enable "bel" in konsole-base (report by Nia Huang)
+ add linux-s entry (patch by Alexandre Montaron).
+ drop long-obsolete convert_configure.pl
+ add test/test_tparm.c, for checking tparm changes.
+ improve parameter-checking for tparm, adding function _nc_tiparm() to
handle the most-used case, which accepts only numeric parameters
(report/testcase by "puppet-meteor").
+ use a more conservative estimate of the buffer-size in lib_tparm.c's
save_text() and save_number(), in case the sprintf() function
passes-through unexpected characters from a format specifier
(report/testcase by "puppet-meteor").
+ add a check for end-of-string in cvtchar to handle a malformed
string in infotocap (report/testcase by "puppet-meteor").
20200523
+ update version-check for gnat to allow for gnat 10.x to 99.x
+ fix an uninitialized variable in lib_mouse.c changes (cf: 20200502)
+ add a check in EmitRange to guard against repeat_char emitting digits
which could be interpreted as BSD-style padding when --enable-bsdpad
is configured (report/patch by Hiltjo Posthuma).
+ add --disable-pkg-ldflags to suppress EXTRA_LDFLAGS from the
generated pkg-config and ncurses*-config files, to simplify
configuring in the case where rpath is used but the packager wants
to hide the feature (report by Michael Stapelberg).
> fixes for building with Visual Studio C++ and msys2 (patches by
"Maarten Anonymous"):
+ modify CF_SHARED_OPTS to generate a script which translates linker
options into Visual Studio's dialect.
+ omit parentheses around function-names in generated lib_gen.c to
work around a Visual Studio C++ limitation.
20200516
+ add notes on termcap.h header in curs_termcap.3x
+ update notes on vscode / xterm.js -TD
20200509
+ add "-r" option to the dots test-programs, to help with scripting
a performance comparison.
+ build-fix test/move_field.c for NetBSD curses, whose form headers
use different names than SVr4 or ncurses.
20200502
+ add details on the change to Linux SGR 21 in 2018 -TD
+ add xterm-direct16 and xterm-direct256 -TD
+ modify lib_mouse.c to check for out-of-range button numbers, convert
those to position reports.
20200425
+ use vt100+fnkeys in putty -TD
+ fix a typo in tput.1; "columns" should be "cols".
20200418
+ improve tracemunch logic for "RUN" compaction.
+ fix a special case in wresize() where copying the old text did not
check if the last cell on a row was the beginning of a fullwidth
character (adapted from patch by Benno Schulenberg).
+ use vt52+keypad in xterm-vt52, from xterm #354 -TD
+ improve see-also section of user_caps.5
20200411
+ fix find_pair(), overlooked when refactoring for _nc_reserve_pairs()
(report/testcase by Brad Town, cf: 20170812).
+ add a trailing null for magic-string in putwin, flagged by gcc 10
+ update check for gcc version versus gnat to work with gcc 10.x
20200404
+ modify -fvisibility check to work with g++
> fixes for building with Visual Studio C++ and msys2 (patches by
"Maarten Anonymous"):
+ add configure option and check for gcc -fvisibility=hidden feature
+ define NCURSES_NOMACROS in lib_gen.c to work around Visual Studio
C++ preprocessor limitations.
+ modify some of the configure-macros, as well as mk-1st.awk to work
with Visual Studio C++ default filenaming.
20200328
+ correct length of buffer copied in dup_field().
+ remove "$(srcdir)/" from path of library.gpr, needed for out-of-tree
builds of Ada95 (patch by Adam Van Ymeren).
20200321
+ improve configure-checks to reduce warnings about unused variables.
+ improve description of error-returns in waddch and waddnstr manual
pages (prompted by patch by Benno Schulenberg).
+ add test/move_field.c to demonstrate move_field(), and a stub for
a corresponding demo of dup_field().
20200314
+ add history note to curs_scanw.3x for and
+ add history note to curs_printw.3x for and
+ add portability note to ncurses.3x regarding
20200308
+ update copyright notices in test-packages.
+ modify tracemunch to guard against errors in its known_p1 table.
+ add several --with-xxx-libname options, to help with pkgsrc (prompted
by discussion with Thomas Klausner).
20200301
+ modify wbkgd() and wbkgrnd() to avoid storing a null in the
background character, because it may be used in cases where the
corresponding 0x80 is not treated as a null (report by Marc Rechte,
cf: 20181208).
20200229
+ modify CF_NCURSES_CONFIG to work around xcode's c99 "-W" option,
which conflicts with conventional use for passing linker options.
> fixes for building with Visual Studio C++ and msys2 (patches by
"Maarten Anonymous"):
+ check for pcre2posix.h instead of pcre2-posix.h
+ add case in CF_SHARED_OPTS for msys2 + msvc
+ add fallback definition for STDIN_FILENO in progs.priv.h
+ modify win_driver.c to use _alloca() rather than gcc's variable
length array feature.
+ add NCURSES_IMPEXP to ncurses wrapped-variable declarations
+ remove NCURSES_IMPEXP from class variables in c++/cursslk.h
+ remove fallback prototype for exit() from c++/etip.h.in
+ use configured check for in a couple of places
+ conditionally include winsock.h in ncurses/win32con/gettimeofday.c,
because Visual Studio needs this for the timestruct declaration.
+ adjust syntax in a couple of files using the NCURSES_API symbol.
20200222
+ expanded note in ncurses.3x regarding automatically-included headers
+ improve vt50h and vt52 based on DECScope manual -TD
+ add/use vt52+keypad and vt52-basic -TD
+ check/workaround for line-too-long in Ada95 generate utility when
building out-of-tree.
+ improve/update HEADER_DEPS in */Makefile.in
+ add "check" rule to include/Makefile, to demonstrate that the headers
include all of the required headers for the types used.
20200215
+ improve manual page for panel library, extending the portability
section as well as documenting error-returns.
+ show tic's version when installing terminal database in run_tic.sh
+ correct check for gcc vs other compilers used in ncurses 6.0, from
FreeBSD patch by Kyle Evans (cf: 20150725).
+ add notes for 6.2 to INSTALL.
20200212 6.2 release for upload to ftp.gnu.org
+ update release notes
+ minor build-fixes, mostly to test-package scripts
20200208
+ modify check for sizeof(wchar_t) to ensure it gives useful result
when cross-compiling.
+ drop assumption in configure script that Cygwin's linker is broken.
+ define NCURSES_BROKEN_LINKER if the broken-linker feature is used,
to simplify configure-checks for ncurses-examples.
20200202
+ reassert copyright on ncurses, per discussion in ncurses FAQ:
https://invisible-island.net/ncurses/ncurses.faq.html#relicensed
20200201
+ modify comparison in make_hash.c to correct a special case in
collision handling for Caps-hpux11
+ add testing utility report_hashing to check hash-tables used for
terminfo and termcap names.
+ fix a missing prototype for _nc_free_and_exit().
+ update a few comments about tack 1.07
+ use an awk script to split too-long pathnames used in Ada95 sample
programs for explain.txt
20200118
+ expanded description of XM in user_caps.5
+ improve xm example for xterm+x11mouse, xterm+sm+1006 -TD
+ add history section to curs_slk.3x and curs_terminfo.3x manpages.
+ update alacritty entries for 0.4.0 (prompted by patch by
Christian Durr) -TD
+ correct spelling errors found with codespell.
+ fix for test/configure, from xterm #352.
20200111
+ improve configure macros which check for the X11/Intrinsic.h header,
to accommodate recent MacOS changes.
+ suppress gcc's -Winline warning; it has not been useful for some time
+ update config.guess, config.sub
20200104
+ modify a couple of macros in aclocal.m4 to allow autoconf 2.69 to
"work", to help illustrate discussion in
https://invisible-island.net/autoconf/my-autoconf.html
+ fix some warnings from autoheader-252
20191228
+ in gen-pkgconfig.in, move the RPATH_LIST and PRIVATE_LIBS assignments
past the various prefix/libdir assignments, to allow for using those
symbols, e.g., as done via CF_SHARED_OPTS.
+ improve ncurses*-config and pc-files by filtering out linker-specs.
+ modify test-package to more closely match Fedora's configuration
for PIE/PIC feature and debug-packages.
20191221
+ correct pathname used in Ada95 sample programs for explain.txt, to
work with test-packages.
+ improve tracemunch:
+ keep track of TERMINAL* values
+ if tracing was first turned on after initialization, attempt to
show distinct screen, window and terminal names anyway.
+ ensure that GCC_NORETURN is defined in term.h, because the prototype
for exit_terminfo() uses it (report by Werner Fink).
20191214
+ add exit_curses() and exit_terminfo() to replace internal symbols for
leak-checking.
20191207
+ fix a few warnings for test-package builds
+ add curses_trace(), to replace trace().
20191130
+ add portability section to curs_getcchar manpage (prompted by
discussion with Nick Black).
+ improve portability discussion of ACS characters in curs_addch
manpage.
+ improve typography for double-quotes in manpages.
20191123
+ fix typo for MinGW rpm test-package.
+ workaround in rpm specs for NFS problems in Fedora 31.
20191116
+ modify ncurses/Makefile.in to fix a case where Debian/testing changes
to the ld --as-needed configuration broke ncurses-examples test
packages.
+ drop library-dependency on psapi for MinGW port, since win_driver.c
defines PSAPI_VERSION to 2, making it use GetProcessImageFileName
from kernel32.dll (prompted by patch by Simon Sobish, cf: 20140503).
20191109
+ add warning-check in tic for terminals with parm_dch vs parm_ich.
+ drop ich1 from rxvt-basic, Eterm and mlterm to improve compatibility
with old non-curses programs -TD
+ reviewed st 0.8.2, updated some details -TD
+ use ansi+rep several places -TD
+ corrected tic's check for ich1 (report by Sebastian J. Bronner,
cf: 20020901).
20191102
+ check parameter of set_escdelay, return ERR if negative.
+ check parameter of set_tabsize, return ERR if not greater than zero
(report/patch by Anthony Sottile).
+ revise CF_ADD_LIBS macro to prepend rather than append libraries.
+ add "xterm-mono" to help packagers (report by Sven Joachim) -TD
20191026
+ add a note in man/curs_add_wch.3x about Unicode terminology for the
line-drawing characters (report by Nick Black).
+ improve comment in lib_tgoto.c regarding the use of \200 where a
\0 would be intended by the caller (report by "64 bit", cf: 20000923).
+ modify linux-16color to accommodate Linux console driver change in
early 2018 (report by Dino Petrucci).
20191019
+ modify make_hash to not require --disable-leaks, to simplify building
with address-sanitizer.
+ modify tic to exit if it cannot remove a conflicting name, because
treating that as a partial success can cause an infinite loop in
use-resolution (report/testcase by Hongxu Chen, cf: 20111001).
20191015
+ improve buffer-checks in captoinfo.c, for some cases when the
input string is shorter than expected.
> fix two errata in tic (report/testcases by Hongxu Chen):
+ check for missing character after backslash in write_it
+ check for missing characters after "%>" when converting from termcap
syntax (cf: 980530).
20191012
+ amend recent changes to ncurses*-config and pc-files to filter out
Debian linker-flags (report by Sven Joachim, cf: 20150516).
+ clarify relationship between tic, infocmp and captoinfo in manpage.
+ check for invalid hashcode in _nc_find_type_entry and
_nc_find_name_entry.
> fix several errata in tic (reports/testcases by "zjuchenyuan"):
+ check for invalid hashcode in _nc_find_entry.
+ check for missing character after backslash in fmt_entry
+ check for acsc with odd length in dump_entry in check for one-one
mapping (cf: 20060415);
+ check length when converting from old AIX box_chars_1 capability,
overlooked in changes to eliminate strcpy (cf: 20001007).
20191005
+ modify the ncurse*-config and pc-files to more closely match for the
-I and -l options.
20190928
+ amend the ncurses*-config and pc-files to take into account the rpath
hack which differed between those files.
+ improve -L option filtering in ncurses*-config
+ improve recovery from error when reading command-character in
test/ncurses.c, showing the relevant error message and not exiting on
EINTR (cf: 20180922)
20190921
+ add a note in resizeterm manpage about top-level windows which touch
the screen's borders.
+ modify configure-checks for gnat to identify each of the tools path
and version.
20190914
+ build-fixes for Ada95 configure-script and corresponding test package
20190907
+ add --with-ada-libname option and modify Ada95 configuration to
allow renaming the "AdaCurses" library (prompted by proposed changes
by Pascal Pignard).
+ modify configure script to distinguish gcc from icc and clang when
the --enable-warnings option is not used, to avoid unnecessary
warnings about unrecognized inline options (report by Sven Joachim).
20190831
+ build-fixes for configuration using --program-suffix with Ada95,
noticed with MacOS but applicable to other platforms without
libpanelw, etc.
20190824
+ fix some cppcheck warnings, mostly style, in ncurses test-programs.
20190817
+ amend 20181208 changes for wbkgd() and wbkgrnd(), fixing a few
details where it still differed from SVr4.
+ fix some cppcheck warnings, mostly style, in ncurses test-programs.
20190810
+ fix a few more coverity warnings.
20190803
+ improve loop limits in _nc_scroll_window() to handle a case where
the scrolled data is a pad which is taller than the window (patch
by Rob King).
+ amend the change to screen, because tmux relies upon that entry
and does not support that feature (Debian #933572) -TD
+ updated ms-terminal entry & notes -TD
+ updated kitty entry & notes -TD
+ updated alacritty+common entry & notes -TD
+ use xterm+sl-twm for consistency -TD
20190728
+ fix a few more coverity warnings.
+ more documentation updates based on tctest.
20190727
+ fix a few coverity warnings.
+ documentation updates based on tctest.
20190720
+ fix a few warnings for gcc 4.x
+ add some portability/historical details to the tic, toe and infocmp
manual pages.
+ correct fix for broken link from terminfo(5) to tabs(1) manpage
(report by Sven Joachim).
20190713
+ change reset's behavior for margins to simply clear soft-margins if
possible, rather than clearing and then setting them according to the
terminal's width (suggested by Thomas Wolff).
+ correct order of one wbkgd versus start_color call in test/padview.c
20190706
+ add domterm -TD
+ improve comments for recent changes, add alias xterm.js -TD
20190630
+ add --with-tic-path and --with-infocmp-path to work around problems
building fallback source using pre-6.0 tic/infocmp.
+ add a check in tic for paired indn/rin
+ correct a buffer-limit in write_entry.c for systems that use caseless
filenames.
+ add ms-terminal -TD
+ add vscode, vscode-direct -TD
20190623
+ improve the tabs.1 manual page to distinguish the PWB/Unix and 7th
Edition versions of the tabs utility.
+ add configure check for getenv() to work around implementation shown
in Emscripten #6766, use that to optionally suppress START_TRACE
macro, whose call to getenv() may not work properly (report by Ilya
Ig Petrov).
+ modify initialization functions to avoid relying upon persistent
data for the result from getenv().
+ update config.guess, config.sub
20190615
+ expand the portability section of the man/tabs.1 manual page.
+ regenerate HTML manpages.
20190609
+ add mintty, mintty-direct (adapted from patch by Thomas Wolff).
Some of the suggested user-defined capabilities are commented-out,
to allow builds with ncurses 5.9 and 6.0
+ add Smol/Rmol for tmux, vte-2018 (patch by Nicholas Marriott).
+ add rs1 to konsole, mlterm -TD
+ modify _nc_merge_entry() to make a copy of the data which it merges,
to avoid modifying the source-data when aligning extended names.
20190601
+ modify an internal call to vid_puts to pass extended color pairs
e.g., from tty_update.c and lib_mvcur.c (report by Niegodziwy Beru).
+ improve manual page description of init_tabs capability and TABSIZE
variable.
20190525
+ modify reset_cmd.c to allow for tabstops at intervals other than 8
(report by Vincent Huisman).
20190518
+ update xterm-new to xterm patch #345 -TD
+ add/use xterm+keypad in xterm-new (report by Alain D D Williams) -TD
+ update terminator entry -TD
+ remove hard-tabs from ti703 (report by Robert Clausecker)
+ mention meml/memu/box1 in user_caps manual page.
+ mention user_caps.5 in tic and infocmp manual pages.
20190511
+ fix a spurious blank line seen with "infocmp -1fx xterm+x11mouse"
+ add checks in repair_subwindows() to keep the current position and
scroll-margins inside the resized subwindow.
+ add a limit check in newline_forces_scroll() for the case where the
row is inside scroll-margins, but not at the end (report by Toshio
Kuratomi, cf: 20170729).
+ corrected a warning message in tic for extended capabilities versus
number of parameters.
20190504
+ improve workaround for Solaris wcwidth versus line-drawing characters
(report by Pavel Stehule).
+ add special case in tic to validate RGB string-capability extension.
+ corrected string/parameter-field for RGB in Caps-ncurses.
20190427
+ corrected problem in terminfo load/realignment which prevented
infocmp from comparing extended capabilities with the same name
but different types.
20190420
+ improve ifdef's for TABSIZE variable, to help with AIX/HPUX ports.
20190413
+ check for TABSIZE variable in test/configure script.
+ used test/test_arrays.c to improve Caps.aix1 and Caps.hpux11
+ corrected filtering of comments in MKparametrized.sh
+ reduce duplication across Caps* files by moving some parts which do
not depend on order into Caps-ncurses.
20190406
+ modify MKcaptab.sh, MKkey_defs.sh, and MKhashsize.sh to handle
split-up Caps-files.
+ build-fixes if extended-functions are disabled.
20190330
+ add "screen5", to mention italics (report by Stefan Assmann)
+ modify description of xterm+x11hilite to eliminate unused p5 -TD
+ add configure script checks to help with a port to Ultrix 3.1
(report by Dennis Grevenstein).
+ check if "b" binary feature of fopen works
+ check for missing feature of locale.h
+ add fallback for strstr() in test-programs
+ add fallback for STDOUT_FILENO in test-programs
+ update config.guess, config.sub
20190323
+ move macro for is_linetouched() inside NCURSES_NOMACROS ifndef.
+ corrected prototypes in several manpages using script to extract
those in compilable form.
+ use _nc_copy_termtype2() rather than direct assignment in setupterm,
in case it is called repeatedly using fallback terminfo descriptions
(report/patch by Werner Fink).
20190317
+ regenerate llib-* files.
+ modify tic to also use new function for user-defined capability info.
+ modify _nc_parse_entry() to check if a user-defined capability has
an unexpected type; ignore it in that case.
+ fix a special case of link-anchors in generated Ada html files.
+ use newer rel=author tag in generated html rather than rev=made,
which did not become accepted.
20190309
+ in-progress changes to add parameter-checking for common user-defined
capabilities in tic.
+ update MKcodes.awk and MKnames.awk to ignore the new "userdef"
data in Caps-ncurses (cf: 20190302).
20190302
+ corrected some of the undocumented terminfo names in Caps.hpux11
+ add "Caps-ncurses" file to help with checking inconsistencies in some
user-defined capabilities.
+ amend check for repeat_char to handle a case where setlocale() was
called after initscr() (report by "Ampera").
20190223
+ fix typo in adds200 -TD
+ add tic check for consistent alternate character set capabilities.
+ improve check in mvcur() to decide whether to use hard-tabs, using
xt, tbc and hts as clues.
+ replace check in reset command for obsolete "pt" capability using
tbc and hts capabilities as clues (report by Nicolas Marriott).
20190216
+ improve manual page description of TABSIZE.
+ add test/demo_tabs program.
20190209
+ add check in tic to provide warnings for mismatched number of
parameters in the documented user-capability extensions.
20190202
+ modify rpm test-package ".spec" file to work around naming conflict
with Redhat's package for ncurses6.
+ modify no-leaks code in test/picsmap to avoid non-standard tdestroy.
+ amend change to configure script which altered the top-level makefile
to avoid attempting to install the terminfo database when it was not
configured, to allow for installing the ".pc" files which are also
in the misc directory (report by Steve Wills).
20190126
+ change some "%define" statements in test-packages for RPMs to
"%global" to work around changes in rpm 4.14 from recent Redhat.
+ fixes for O_INPUT_FIELD extension (patch by Leon Winter).
+ eliminate fixed buffer-size when reading $TERMCAP variable.
+ correct logic in read_entry.c which prevented $TERMCAP variable from
being interpreted as a fallback to terminfo entry (prompted by
Savannah #54556, cf: 20110924).
20190121
+ add a check in test/configure to work around non-ncurses termcap.h
file in Slackware.
+ corrected flag for "seq" method of db 1.8.5 interface, needed by toe
on some of the BSDs.
+ updated "string-hacks" feature.
+ minor improvements to manpage typography.
+ corrected conditionally-compiled limit on color pairs (report by
"Hudd").
+ add -x option to test/pair_content, test/color_content for testing
init_extended_pair, extended_pair_content, init_extended_color,
extended_color_content
+ add -p option to test/pair_content, test/color_content to show the
return values from the tested functions.
+ improve manual page curs_color.3x discussion of error returns and
extensions.
+ add O_INPUT_FIELD extension to form library (patch by Leon Winter).
+ override/suppress --enable-db-install if --disable-database configure
option was given.
+ change a too-large terminal entry in tic from a fatal error to a
warning (prompted by discussion with Gabriele Balducci).
20190112
+ fix typo in term(5), improve explanation of format (report by Otto
Modinos).
+ add nsterm-direct -TD
+ use SGR 1006 mouse for konsole-base -TD
+ use SGR 1006 mouse for putty -TD
+ add ti703/ti707, ti703-w/ti707-w (Robert Clausecker)
20190105
+ add dummy "check" rule in top-level and test-Makefile to simply
building test-packages for Arch.
+ modify configure script to avoid conflict with a non-POSIX feature
that enables all parts of the system headers by default. Some
packagers have come to rely upon this behavior (FreeBSD #234049).
+ update config.guess, config.sub
20181229
+ improve man/curs_mouse.3x with regard to xterm
+ modify tracemunch to accept filename parameters in addition to use
as a pipe/filter.
+ minor optimization to reduce calls to _nc_reserve_pairs (prompted by
discussion with Bryan Christ).
+ add test/pair_content.c and test/color_content.c
+ modify infocmp to omit filtering of "OTxx" names which are used for
obsolete capabilities, when the output is sorted by long-names.
Doing this helps when making a table of the short/long capability
names.
20181215
+ several fixes for gcc8 strict compiler warnings.
+ fix a typo in comments (Aaron Gyes).
+ add nsterm-build309 to replace nsterm-256color, assigning the latter
as an alias of nsterm, to make mouse work with nsterm-256color -TD
+ base gnome-256color entry on "gnome", not "vte", for consistency -TD
+ updates for configure macros from work on tin and xterm:
+ CF_GNU_SOURCE, allow for Cygwin's newlib when checking for the
_DEFAULT_SOURCE symbol.
+ CF_VA_COPY, add fallback check if neither va_copy/__va_copy is
supported, to try copying the pointers for va_list, or as an array.
Also add another fallback check, for __builtin_va_copy(), which
could be used with AIX xlc in c89 mode.
20181208
+ modify wbkgd() and wbkgrnd() to improve compatibility with SVr4
curses, changing the way the window rendition is updated when the
background character is modified (report by Valery Ushakov).
20181201
+ add midnightbsd to CF_XOPEN_SOURCE macro (patch by Urs Jansen).
+ add "@" command to test/ncurses F-test, to allow rapid jump to
different character pages.
+ update config.guess, config.sub from
http://git.savannah.gnu.org/cgit/config.git
20181125
+ build-fix (reports by Chih-Hsuan Yen, Sven Joachim).
20181124
+ check --with-fallbacks option to ensure there is a value, and add
the fallback information to top-level Makefile summary.
+ add some traces in initialization to show whether a fallback entry is
used.
+ build-fix for test/movewindow with ncurses-examples on Solaris.
+ add "-l" option to test/background, to dump screen contents in a form
that lets different curses implementations be compared.
+ modify the initialization checks for mouse so that the xterm+sm+1006
block will work with terminal descriptions not mentioning xterm
(report by Tomas Janousek).
20181117
+ ignore the hex/b64 $TERMINFO in toe's listing.
+ correct a status-check in _nc_read_tic_entry() so that if reading
a hex/b64 $TERMINFO, and the $TERM does not match, fall-through to
the compiled-in search list.
20181110
+ several workarounds to ensure proper C compiler used in parts of
Ada95 tree.
+ update config.guess, config.sub from
http://git.savannah.gnu.org/cgit/config.git
20181027
+ add OpenGL clients alacritty and kitty -TD
+ add Smulx for tmux, vte-2018 -Nicholas Marriott
20181020
+ ignore $TERMINFO as a default value in configure script if it came
from the infocmp -Q option.
+ allow value for --with-versioned-syms to be a relative pathname
+ add a couple of broken-linker symbols to the list of versioned
symbols to help with link-time optimization versus weak symbols.
+ apply shift/control/alt logic when decoding xterm's 1006 mode to
wheel-mouse events (Redhat #1610681).
20181013
+ amend change from 20180818, which undid a fix for the $INSTALL value
to make it an absolute path.
20181006
+ improve a configure check to work with newer optimizers (report by
Denis Pronin, Gentoo #606142).
+ fix typo in tput.c (Sven Joachim, cf: 20180825).
20180929
+ fix typo in tvi955 -TD
+ corrected acsc for regent60 -TD
+ add alias n7900 -TD
+ corrected acsc for tvi950 -TD
+ remove bogus kf0 from tvi950 -TD
+ added function-key definitions to agree with Televideo 950 manual -TD
+ add bel to tvi950 -TD
+ add shifted function-keys to regent60 -TD
+ renumber regent40 function-keys to match manual -TD
+ add cd (clr_eos) to adds200 -TD
20180923
+ build-fix: remove a _tracef call which was used for debugging (report
by Chris Clayton).
20180922
+ ignore interrupted system-call in test/ncurses's command-line, e.g.,
if the terminal were resized.
+ add shift/control/alt logic for decoding xterm's 1006 mode (Redhat
#1610681, cf: 20141011).
+ modify rpm test-packages to not use --disable-relink with Redhat,
since Fedora 28's tools do not work with that feature.
20180908
+ document --with-pcre2 configure option in INSTALL.
+ improve workaround for special case in PutAttrChar() where a cell is
marked as alternate-character set, to handle a case where the
character in the cell does not correspond to any of the ASCII
fallbacks (report by Leon Winter, cf: 20180505).
+ amend change to form library which attempted to avoid unnecessary
update of cursor position in non-public fields, to simply disable
output in this case (patch by Leon Winter, cf: 20180414).
+ improve check for LINE_MAX runtime limit, to accommodate broken
implementations of sysconf().
20180901
+ improve manual page for wgetnstr, giving background for the length
parameter.
+ define a limit for wgetnstr, wgetn_wstr when length is negative or
"too large".
+ update configure script to autoconf 2.52.20180819 (Debian #887390).
20180825
+ add a section to tput manual page clarifying how it determines the
terminal size (prompted by discussion with Grant Jenks).
+ add "--disable-relink" to rpm test-packages, for consistency with the
deb test-packages.
+ split spec-file into ncurses6.spec and ncursest6.spec to work around
toolset breakage in Fedora 28.
+ drop mention of "--disable-touching", which was not in the final
20180818 updates.
20180818
+ build-fix for PDCurses with ncurses-examples.
+ improved CF_CC_ENV_FLAGS.
+ modify configure scripts to reduce relinking/ranlib during library
install (Debian #903790):
+ use "install -p" when available, to avoid need for ranlib of
static libraries.
+ modify scripts which use "--disable-relink" to add a 1-second
sleep to work around tools which use whole-second timestamps, e.g.,
in utime() rather than the actual file system resolution.
20180804
+ improve logic for clear with E3 extension, in case the terminal
scrolls content onto its saved-lines before actually clearing
the display, by clearing the saved-lines after clearing the
display (report/patch by Nicholas Marriott).
20180728
+ improve documentation regarding feature-test macros in curses.h
+ improve documentation regarding the virtual and physical screens.
+ formatting fixes for manpages, regenerate man-html documentation.
20180721
+ build-fixes for gcc8.
+ corrected acsc for wy50 -TD
+ add wy50 and wy60 shifted function-keys as kF1 to kF16 -TD
+ remove ansi+rep mis-added to interix in 2018-02-23 -TD
20180714
+ add enum, regex examples to test/demo_forms
+ add configure check for pcre-posix library to help with MinGW port.
20180707
+ build-fixes for gcc8.
+ correct order of WINDOW._ttytype versus WINDOW._windowlist in
report_offsets.
+ fix a case where tiparm could return null if the format-string was
empty (Debian #902630).
20180630
+ add acsc string to vi200 (Nibby Nebbulous)
add right/down-arrow to vi200's acsc -TD
+ add "x" to tput's getopt string so that "tput -x clear" works
(Nicholas Marriott).
+ minor fixes prompted by anonymous report on stack overflow:
+ correct order of checks in _nc_get_locale(), for systems lacking
locale support.
+ add "#error" in a few places to flag unsupported configurations
20180623
+ use _WIN32/_WIN64 in preference to __MINGW32__/__MINGW64__ symbols
to simplify building with MSVC, since the former are defined in both
compiler configurations (report by Ali Abdulkadir).
+ further improvements to configure-checks from work on dialog, i.e.,
updated CF_ADD_INCDIR, CF_FIND_LINKAGE, CF_GCC_WARNINGS,
CF_GNU_SOURCE, CF_LARGEFILE, CF_POSIX_C_SOURCE, CF_SIZECHANGE, and
CF_TRY_XOPEN_SOURCE.
+ update config.guess, config.sub from
http://git.savannah.gnu.org/cgit/config.git
20180616
+ build-fix for ncurses-examples related to gcc8-fixes (cf: 20180526).
+ reduce use of _GNU_SOURCE for current glibc where _DEFAULT_SOURCE
combines with _XOPEN_SOURCE (Debian #900987).
+ change target configure level for _XOPEN_SOURCE to 600 to address
use of vsscanf and setenv.
+ improved configure-checks CF_SIZECHANGE and CF_STRUCT_TERMIOS from
work on dialog.
20180609
+ modify generated ncurses*config and ncurses.pc, ncursesw.pc, etc.,
to list helper libraries such as gpm for static linking (Debian
#900839).
+ marked vwprintw and vwscanw as deprecated; recommend using vw_printw
and vw_scanw, respectively.
20180602
+ add RPM test-package "ncursest-examples".
+ modified RPM test-package to work with Mageia6.
20180526
+ add note in curs_util.3x about unctrl.h
+ review/improve header files to ensure that those include necessary
files except for the previously-documented cases (report by Isaac
Pascual Monells).
+ improved test-package scripts, adapted from byacc 1.9 20180525.
+ fix some gcc8 warnings seen in Redhat package build, but
work around bug in gcc8 compiler warnings in comp_parse.c
20180519
+ formatting fixes for manpages, regenerate man-html documentation.
+ trim spurious whitespace from tmux in 2018-02-24 changes;
fix some inconsistencies in/between tmux- and iterm2-entries for SGR
(report by C Anthony Risinger)
+ improve iterm2 using some xterm features which it has adapted -TD
+ add check in pair_content() to handle the case where caller asks
for an uninitialized pair (Debian #898658).
20180512
+ remove trailing ';' from GCC_DEPRECATED definition.
+ repair a change from 20110730 which left an error-check/warning dead.
+ fix several minor Coverity warnings.
20180505
+ add deprecation warnings for internal functions called by older
versions of tack.
+ fix a special case in PutAttrChar() where a cell is marked as
alternate-character set, but the terminal does not actually support
the given graphic character. This would happen in an older terminal
such as vt52, which lacks most line-drawing capability.
+ use configure --with-config-suffix option to work around filename
conflict with Debian packages versus test-packages.
+ update tracemunch to work with perl 5.26.2, which changed the rules
for escaping regular expressions.
20180428
+ document new form-extension O_EDGE_INSERT_STAY (report by Leon
Winter).
+ correct error-returns listed in manual pages for a few form functions
(report by Leon Winter).
+ add a check in form-library for null-pointer dereference:
unfocus_current_field (form);
form_driver (form, REQ_VALIDATION);
(patch by Leon Winter).
20180414
+ modify form library to optionally delay cursor movement on a field
edge/boundary (patch by Leon Winter).
+ modify form library to avoid unnecessary update of cursor position in
non-public fields (patch by Leon Winter).
+ remove unused _nc_import_termtype2() function.
+ also add/improve null-pointer checks in other places
+ add a null-pointer check in _nc_parse_entry to handle an error when
a use-name is invalid syntax (report by Chung-Yi Lin).
20180407
+ clarify in manual pages that vwprintw and vwscanw are obsolete,
not part of X/Open Curses since 2007.
+ use "const" in some prototypes rather than NCURSES_CONST where X/Open
Curses was updated to do this, e.g., wscanw, newterm, the terminfo
interface. Also use "const" for consistency in the termcap
interface, which was withdrawn by X/Open Curses in Issue 5 (2007).
As of Issue 7, X/Open Curses still lacks "const" for certain return
values, e.g., keyname().
20180331
+ improve terminfo write/read by modifying the fourth item of the
extended header to denote the number of valid strings in the extended
string table (prompted by a comment in unibilium's sources).
20180324
+ amend Scaled256() macro in test/picsmap.c to cover the full range
0..1000 (report by Roger Pau Monne).
+ add some checks in tracemunch for undefined variables.
+ trim some redundant capabilities from st-0.7 -TD
+ trim unnecessary setf/setb from interix -TD
20180317
+ fix a check in infotocap which may not have detected a problem when
it should have.
+ add a check in tic for the case where setf/setb are given using
different strings, but provide identical results to setaf/setab.
+ further improve fix for terminfo.5 (patch by Kir Kolyshkin).
+ reorder loop-limit checks in winsnstr() in case the string has no
terminating null and only the number of characters is used (patch
by Gyorgy Jeney).
20180303
+ modify TurnOn/TurnOff macros in lib_vidattr.c and lib_vid_attr.c to
avoid expansion of "CUR" in trace.
+ improve a few lintian warnings in test-packages.
+ modify lib_setup to avoid calling pthread_self() without first
verifying that the address is valid, i.e., for weak symbols
(report/patch by Werner Fink).
+ modify generated terminfo.5 to not use "expand" and related width
on the last column of tables, making layout on wide terminals look
better (adapted from patch by Kir Kolyshkin).
+ add a category to report_offsets, e.g., "w" for wide-character, "t"
for threads to make the report more readable. Reorganized the
structures reported to make the categories more apparent.
+ simplify some ifdef's for extended-colors.
+ add NCURSES_GLOBALS and NCURSES_PRESCREEN to report_offsets, to show
how similar the different tinfo configurations are.
20180224
+ modify _nc_resolve_uses2() to detect incompatible types when merging
a "use=" clause of extended capabilities. The problem was seen in a
defective terminfo integrated from simpleterm sources in 20171111,
compounded by repair in 20180121.
+ correct Ss/Ms interchange in st-0.7 entry (tmux #1264) -TD
+ fix remaining flash capabilities with trailing mandatory delays -TD
+ correct cut/paste in NEWS (report by Sven Joachim).
20180217
+ remove incorrect free() from 20170617 changes (report by David Macek).
+ correct type for "U8" in user_caps.5; it is a number not boolean.
+ add a null-pointer check in safe_sprintf.c (report by Steven Noonan).
+ improve fix for Debian #882620 by reusing limit2 variable (report by
Julien Cristau, Sven Joachim).
20180210
+ modify misc/Makefile.in to install/uninstall explicit list in case
the build-directory happens to have no ".pc" files when an uninstall
is performed (report by Jeffrey Walton).
+ deprecate safe-sprintf, since the vsnprintf function, which does what
was needed, was standardized long ago.
+ add several development/experimental options to development packages.
+ minor reordering of options in configure script to make the threaded
and reentrant options distinct from the other extensions which are
normally enabled.
20180203
+ minor fixes to test/*.h to make them idempotent.
+ add/use test/parse_rgb.h to show how the "RGB" capability works.
+ add a clarification in user_caps.5 regarding "RGB" capability.
+ add extended_slk_color{,_sp} symbols to the appropriate
package/*.{map,sym} files (report by Sven Joachim, cf: 20170401).
20180129
+ update "VERSION" file, used in shared-library naming.
20180127 6.1 release for upload to ftp.gnu.org
20180127
+ updated release notes
+ amend a warning message from tic which should have flagged misuse
of "XT" capability in "screen" terminal description.
> terminfo changes:
+ trim "XT" from screen entry, add comments to explain why it was
not suitable -TD
+ modify iterm to use xterm+sl-twm building block -TD
+ mark konsole-420pc, konsole-vt100, konsole-xf3x obsolete reflecting
konsole's removal in 2008 -TD
+ expanded the history section of konsole to explain its flawed
imitation of xterm's keyboard -TD
+ use xterm+x11mouse in screen.* entries because screen does not yet
support xterm's 1006 mode -TD
+ add nsterm-build400 for macOS 10.13 -TD
+ add ansi+idc1, use that in ansi+idc adding dch for consistency -TD
+ update vte to vte-2017 -TD
+ add ecma+strikeout to vte-2017 -TD
+ add iterm2-direct -TD
+ updated teraterm, added teraterm-256color -TD
+ add mlterm-direct -TD
+ add descriptions for ANSI building-blocks -TD
20180121 pre-release
> terminfo changes:
+ add xterm+noalt, xterm+titlestack, xterm+alt1049, xterm+alt+title
blocks from xterm #331 -TD
+ add xterm+direct, xterm+indirect, xterm-direct entries from xterm
#331 -TD
+ modify xterm+256color and xterm+256setaf to use correct number of
color pairs, for ncurses 6.1 -TD
+ add rs1 capability to xterm-256color -TD
+ modify xterm-r5, xterm-r6 and xterm-xf86-v32 to use xterm+kbs to
match xterm #272, reflecting packager's changes -TD
+ remove "boolean" Se, Ss from st-0.7 -TD
+ add konsole-direct and st-direct -TD
+ remove unsupported "Tc" capability from st-0.7; use st-direct if
direct-colors are wanted -TD
+ add vte-direct -TD
+ add XT, hpa, indn, and vpa to screen, and invis, E3 to tmux (patch by
Pierre Carru)
+ use xterm+sm+1006 in xterm-new, vte-2014 -TD
+ use xterm+x11mouse in iterm, iterm2, mlterm3 because xterm's 1006
mode does not work with those programs. konsole is debatable -TD
+ add "termite" entry (report by Markus Pfeiffer) -TD
> merge branch begun April 2, 2017 which provides these features:
+ support read/write new binary-format for terminfo which stores
numeric capabilities as a signed 32-bit integer. The test programs
such as picsmap, ncurses were created or updated during 2017 to use
this feature.
+ the new format is written by the wide-character configuration of
tic when it finds a numeric capability larger than 32767.
+ other applications such as infocmp built with the wide-character
ncurses library work as expected.
+ applications built with the "narrow" (8-bit) configuration will
read the new format, but will limit those extended values to 32767.
+ in either wide/narrow configuration, the structure defined in
term.h still uses signed 16-bit values.
+ because it is incompatible with the legacy (mid-1980s) binary format,
a new magic value is provided for the "file" program.
+ the term.5 manual page is updated to describe this new format.
+ the limit on file-size for compiled terminfo is increased in the
wide-character configuration to 32768.
20180120
+ build-fix in picsmap.c for stdint.h existence.
+ add --disable-stripping option to configure scripts.
+ modify ncurses-examples to install test-scripts in the data directory.
+ work around tool-breakage in Debian 9 and later by invoking
gprconfig to specify the C compiler to be used by gnatmake,
and conditionally suppressing Library_Options line for static
libraries.
+ bump the compat level for test-packages to 7, i.e., Debian 5.
20180106
+ fixes for writing extended color pairs in putwin.
+ modify test/savescreen.c to add test patterns that exercise 88-,
256-, etc., colors.
+ modify configure option --with-build-cc, adding clang, c89 and c99
as possible default values.
+ modify ncurses-examples configure script to use pkg-config for the
extra form/menu/panel libraries, to be more consistent with the
handling of the curses/ncurses library.
+ modify test-packages for mingw to supply "pc" files.
+ modify gen-pkgconfig.in to list -lpthread as a private library when
configured to access it via weak symbols.
+ simplify gen-pkgconfig.in, adding -ltinfo without the special linker
checks because some versions of the linker simply hard-code the
behavior.
+ update URLs for ncurses website to use https.
+ modify CF_CURSES_LIBS to fill in $cf_nculib_root in case the
ncurses-examples are built with a system ncurses that lacks the
standard "curses" symbolic link, as done by SuSE. The symbol is
needed to make a followup check for the pthread library work, and
would be set properly using the options "--with-screen", etc.
+ generate misc/*.pc with "all" rule, as done for "sources" rule
(report by Jeffrey Walton).
20171230
+ build-fix for ncurses-examples with Fedora27, adding check for
reset_color_pairs() -- not yet in Fedora's package.
+ consistently add $CFLAGS to $MK_SHARED_LIB symbol in configure
script when the latter happens to use the C compiler rather than
directly using the loader (report by Jeffrey Walton).
+ set ABI for upcoming 6.1 release in "*.map" files. While there are
some remaining internals to apply, no ABI-related changes are
anticipated.
+ add configure --with-config-suffix option to work around filename
conflict with Redhat packages versus test-packages.
20171223
+ modify ncurses-examples to quiet const-warnings when building with
PDCurses.
+ modify toe to not exit if unable to read a terminal description,
e.g., if there is a permission problem.
+ minor fix for progs/toe.c, using _nc_free_termtype2.
+ assign 0 to pointer in _nc_tgetent_leak() after freeing it. Also
avoid reusing pointer from previous successful call to tgetent
if the latest call is unsuccessful (patch by Michael Schroeder,
OpenSuSE #1070450).
+ minor fix for test/tracemunch, initialize $awaiting variable.
20171216
+ repair template in test/package/ncurses-examples.spec (cf: 20171111).
+ improve tic's warning about the number of parameters tparm might use
for u1-u9 by making a special case for u6.
+ improve curs_attr.3x discussion of color pairs.
20171209
+ modify misc/ncurses-config.in to make output with --includedir
consistent with --cflags, i.e., when --disable-overwrite option was
configured the output should show the subdirectory where headers
are.
+ modify MKlib_gen.sh to suppress macros when calling an "implemented"
function in link_test.c
+ updated ftp-url used in test-packages, etc.
+ modify order of -pie/-shared options in configure script in case
LDFLAGS uses "-pie", working around a defect or limitation in the GNU
linker (prompted by patch by Yogesh Prasad, forwarded by Jay Shah).
+ add entry in man_db.renames for user_caps.5
20171125
+ modify MKlib_gen.sh to avoid tracing result from getstr/getnstr
before initialized.
+ add "-a" aspect-ratio option to picsmap.
+ add configure check for default path of rgb.txt, used in picsmap.
+ modify _nc_write_entry() to truncate too-long filename (report by
Hosein Askari, Debian #882620).
+ build-fix for ncurses-examples with NetBSD curses:
+ it lacks the use_env() function.
+ it lacks libpanel; a recent change used the wrong ifdef symbol.
+ add a macro for is_linetouched() and adjust the function's return
value to make it possible for most applications to check for an
error-return (report by Midolikawa H).
+ additional manpage cleanup.
+ update config.guess, config.sub from
http://git.savannah.gnu.org/cgit/config.git
20171118
+ add a note to curs_addch.3x on portability.
+ add a note to curs_pad.3x on the origin and portability of pads.
+ improve manpage description of getattrs (report by Midolikawa H).
+ improve manpage macros (prompted by discussion in Debian #880551.
+ reviewed test-programs using KEY_RESIZE, made fixes to test/worm.c
+ add a "-d" option to picsmap for default-colors.
+ modify old terminology entry and a few other terminal emulators to
account for xon -TD
+ correct sgr string for tmux, which used screen's "standout" code
rather than the standard code (patch by Roman Kagan)
+ correct sgr/sgr0 strings in a few other cases reported by tic, making
those correspond to the non-sgr settings where they differ, but
otherwise use ECMA-48 consistently:
jaixterm, aixterm, att5420_2, att4424, att500, decansi, d410-7b,
dm80, hpterm, emu-220, hp2, iTerm2.app, mterm-ansi, ncrvt100an,
st-0.7, vi603, vwmterm -TD
+ build-fix for diagnostics warning in lib_mouse.c for pre-5.0 versions
of gcc which did not recognize the diagnostic "push" pragma (patch by
Vassili Courzakis).
20171111
+ add "op" to xterm+256setaf -TD
+ reviewed terminology 1.0.0 -TD
+ reviewed st 0.7 -TD
+ suppress debug-package for ncurses-examples rpm build.
20171104
+ check for interrupt in color-pair initialization of dots_curses.c,
dots_xcurses.c
+ add z/Z zoom feature to test/ncurses.c C/c screens.
+ add '<' and '>' commands to test/ncurses.c S/s screens, to better
test off-by-ones in the overlap/copywin functions.
20171028
+ improve man/curs_inwstr.3x, correct end-logic for lib_inwstr.c
(report by Midolikawa H).
+ fix typo in a few places for "improvements" (patch by Sven Joachim).
+ clear the other half of a double-width character on which a line
drawing character is drawn.
+ make test/ncurses.c "s" test easier to understand which subtests are
available; add a "S" wide-character overlap test-screen.
+ modify test/ncurses.c C/c tests to allow for extended color pairs.
+ add endwin() call in error-returns from test/ncurses.c omitted in
recent redesign of its menu (cf: 20170923).
+ improve install of hashed-db by removing the ".db" file as done for
directory-tree terminal databases.
+ repair a few overlooked items in include/ncurses_defs from recent
port/refactoring of test-programs (cf: 20170909).
+ add test/padview.c, to compare pads with direct updates in view.c
20171021
+ modify test/view.c to expand tabs using the ncurses library rather
than in the test-program.
+ remove very old SIGWINCH example in test/view.c, just use KEY_RESIZE.
+ add -T, -e, -f -m options to "dots" test-programs.
+ fix a few typos in usage-messages for test-programs.
20171014
+ minor cleanup to test/view.c:
+ eliminate "-n" option by simply reading the whole file.
+ implement page up/down commands.
+ add check in tput for init/reset operands to ensure those use a
terminal.
+ improve manual pages which discuss chtype, cchar_t types and the
attribute values which can be stored in those types.
+ correct array-index when parsing "-T" command-line option in tabs
program.
+ modify demo_new_pair.c to pass extended pairs to setcchar().
+ add test/dots_xcurses.c to illustrate a different approach used for
extended colors which can be contrasted with dots_curses.c.
+ add a check in tic to note when a description uses non-mandatory
delays without xon_xoff. This is not an error, but some descriptions
for a terminal emulator may use the combination incorrectly.
20171007
+ modify "-T" option of clear and tput to call use_tioctl() to obtain
the operating system's notion of the screensize if possible.
+ review/repair some exit-codes for tput, making usage-message exit
with 2 rather than 1, and a failure to open terminal 4+errno.
+ amend check in tput, tabs and clear to allow those to use the
database-only features in cron if a -T option gives a suitable
terminal name (report by Lauri Tirkkonen).
+ correct an ifdef in test/ncurses.c for systems with soft-keys but
not slk_color().
+ regenerate man-html documentation.
20170930
+ fix a symbol conflict that made ncurses.c C/c menu not work with
Solaris xpg4 curses.
+ add refresh() call to dots_mvcur.c, needed to use mvcur() with
Solaris xpg4 curses after calling newterm().
+ minor fixes for configure script from work on ncurses-examples and
tin.
+ improve animation in test/xmas.c by adding a time-delay in blinkit().
+ modify several test programs to reflect that ncurses honors existing
signal handlers in initscr(), while other implementations do not.
+ modify bs.c to make it easier to quit.
+ change ncurses-examples to use attr_t vs chtype to follow X/Open
documentation more closely since Solaris xpg4-curses uses different
values for WA_xxx vs A_xxx that rely on attr_t being an unsigned
short. Tru64 aka OSF1, HPUX, AIX did as ncurses does, equating the
two sets.
20170923
+ modify menu for test/ncurses.c to fit on 24-line screen.
+ build-fix for configure --with-caps=uwin
+ add options to test_arrays.c, for selecting termcap vs terminfo, etc.
20170916
+ minor fix to test/filter.c to avoid clearing the command in one case.
+ modify filter() to discard clr_eos if back_color_erase is set.
20170909
+ improve wide-character implementation of myADDNSTR() in frm_driver.c,
which was inconsistent with the normal implementation.
+ save/restore cursor position in Undo_Justification(), matching
behavior of Buffer_To_Window() (report by Leon Winter).
+ modify test/knight to provide the "slow" solution for small screens
using "R", noting that Warnsdorf's method is easily done with "a".
+ modify several test-programs which call use_default_colors() to
consistently do this only if "-d" option is given.
+ additional changes to test with non-standard variants of curses:
+ modify a loop limit in firework.c to work around absence of limit
checks in some libraries.
+ fill the last row of a window with "?" in firstlast if waddch does
not return ERR on the lower-right corner.
+ add checks in test/configure for some functions not in 4.3BSD curses.
+ fix a regression in test/configure (cf: 20170826).
20170902
+ amend change for endwin-state for better consistency with the older
logic (report/patch by Jeb Rosen, cf: 20170722).
+ modify check in fmt_entry() to handle a cancelled reset string
(Debian #873746). Make similar fixes in other parts of dump_entry.c
and tput.c
20170827
+ fix a bug in repeat_char logic (cf: 20170729, report by Chris Clayton).
20170826
+ fixes for "iterm2" (report by Leonardo Brondani Schenkel) -TD
+ corrected a warning from tic about keys which are the same, to skip
over missing/cancelled values.
+ add check in tic for unnecessary use of "2" to denote a shifted
special key.
+ improve checks in trim_sgr0, comp_parse.c and parse_entry.c, for
cancelled string capabilities.
+ add check in _nc_parse_entry() for invalid entry name, setting the
name to "invalid" to avoid problems storing entries.
+ add/improve checks in tic's parser to address invalid input
+ add a check in comp_scan.c to handle the special case where a
nontext file ending with a NUL rather than newline is given to tic
as input (Redhat #1484274).
+ allow for cancelled capabilities in _nc_save_str (Redhat #1484276).
+ add validity checks for "use=" target in _nc_parse_entry (Redhat
#1484284).
+ check for invalid strings in postprocess_termcap (Redhat #1484285)
+ reset secondary pointers on EOF in next_char() (Redhat #1484287).
+ guard _nc_safe_strcpy() and _nc_safe_strcat() against calls using
cancelled strings (Redhat #1484291).
+ correct typo in curs_memleaks.3x (Sven Joachim).
+ improve test/configure checks for some curses variants not based on
X/Open Curses.
+ add options for test/configure to disable checks for form, menu and
panel libraries.
20170819
+ update "iterm" entry -TD
+ add "iterm2" entry (report by Leonardo Brondani Schenkel) -TD
+ regenerate llib-* files.
+ regenerate HTML manpages.
+ improve picsmap test-program:
+ reduce memory used for tsearch
+ add report in log file showing cumulative color coverage.
+ add -x option to clear/tput to make the E3 extension optional
(cf: 20130622).
+ add options -T and -V to clear command for compatibility with tput.
+ add usage message to clear command (Debian #371855).
+ improve usage messages for tset and tput.
+ minor fixes to "RGB" extension and reset_color_pairs().
20170812
+ improve description of -R option in infocmp manual page (report by
Stephane Chazelas).
+ add reset_color_pairs() function.
+ add user_caps.5 manual page to document the terminfo extensions used
by ncurses.
+ improve build scripts, using SIGQUIT vs SIGTRAP; add other configure
script fixes from work on xterm, lynx and tack.
+ modify install-rule for ncurses-examples to put the data files in
/usr/share/ncurses-examples
+ improve tracemunch, by changing address-parameters of add_wch(),
color_content() and pair_content() to dummy parameters.
+ minor optimization to _nc_change_pair, to return quickly when the
current screen is marked for clearing.
+ in-progress changes to improve performance of test/picsmap.c for
loading image files.
+ modify allocation for SCREEN's color-pair table to start small, grow
on demand up to the existing limit.
+ add "RGB" extension capability for direct-color support, use this to
improve color_content().
+ improve picsmap test-program:
+ if no palette file is needed, attempt to load one based on $TERM,
checking first in the current directory, then by adding ".dat"
suffix, and finally in the data-directory, e.g.,
/usr/share/ncurses-examples
+ add "-l" option for logging
+ add "-d" option for debugging
+ add "-s" option for stepping automatically through list of images,
with time delay.
+ use tsearch to improve time for loading color table for images.
+ update config.guess, config.sub from
http://git.savannah.gnu.org/cgit/config.git
20170729
+ update interix entry using tack and SFU on Windows 7 Ultimate -TD
+ use ^? for kdch1 in interix (reported by Jonathan de Boyne Pollard)
+ add "rep" to xterm-new, available since 1997/01/26 -TD
+ move SGR 24 and 27 from vte-2014 to vte-2012 (request by Alain
Williams) -TD
+ add a check in newline_forces_scroll() in case a program moves the
cursor outside scrolling margins (report by Robert King).
+ improve _nc_tparm_analyze, using that to extend the checks made by
tic for reporting inconsistencies between the expected number of
parameters for a capability and the actual.
+ amend handling of repeat_char capability in EmitRange (adapted from
report/patch by Dick Wesseling):
+ translate the character to the alternate character set when the
alternate character set is enabled.
+ do not use repeat_char for characters past 255.
+ document "_nc_free_tinfo" in manual page, because it could be used in
tack for memory-leak checking.
+ add "--without-tack" configure option to refine "--with-progs"
configure option. Normally tack is no longer built in-tree, but
a few packagers combine it during the build. If term_entry.h is
installed, there is no advantage to in-tree builds.
+ adjust configure-script to define HAVE_CURSES_DATA_BOOLNAMES symbol
needed for tack 1.08 when built in-tree. Rather than relying upon
internal "_nc_" functions, tack now uses the boolean, number and
string capability name-arrays provided by ncurses and SVr4 Unix
curses. It still uses term_entry.h for the definitions of the
extended capability arrays.
+ add an overlooked null-pointer check in mvcur changes from 20170722
20170722
+ improve test-packages for ncurses-examples and AdaCurses for lintian
+ modify logic for endwin-state to be able to detect the case where
the screen was never initialized, using that to trigger a flush of
ncurses' buffer for mvcur, e.g., in test/dots_mvcur.c for the
term-driver configuration.
+ add dependency upon ncurses_cfg.h to a few other internal header
files to allow each to be compiled separately.
+ add dependency upon ncurses_cfg.h to tic's header-files; any program
using tic-library will have to supply this file. Legacy tack
versions supply this file; ongoing tack development has dropped the
dependency upon tic-library and new releases will not be affected.
20170715
+ modify command-line parameters for "convert" used in picsmap to work
with ImageMagick 6.8 and newer.
+ fix build-problem with tack and ABI-5 (Debian #868328).
+ repair termcap-format from tic/infocmp broken in 20170701 fixes
(Debian #868266).
+ reformat terminfo.src with 20170513 updates.
+ improve test-packages to address lintian warnings.
20170708
+ add a note to tic manual page about -W versus -f options.
+ correct a limit-check in fixes from 20170701 (report by Sven Joachim).
20170701
+ modify update_getenv() in db_iterator.c to ensure that environment
variables which are not initially set will be checked later if an
application happens to set them (patch by Guillaume Maudoux).
+ remove initialization-check for calling napms() in the term-driver
configuration; none is needed.
+ add help-screen to test/test_getstr.c and test/test_get_wstr.c
+ improve compatibility between different configurations of new_prescr,
fixing a case with threaded code and term-driver where c++/demo did
not work (cf: 20160213).
+ the fixes for Redhat #1464685 obscured a problem subsequently
reported in Redhat #1464687; the given test-case was no longer
reproducible. Testing without the fixes for the earlier reports
showed a problem with buffer overflow in dump_entry.c, which is
addressed by reducing the use of a fixed-size buffer.
+ add/improve checks in tic's parser to address invalid input
(Redhat #1464684, #1464685, #1464686, #1464691).
+ alloc_entry.c, add a check for a null-pointer.
+ parse_entry.c, add several checks for valid pointers as well as
one check to ensure that a single character on a line is not
treated as the 2-character termcap short-name.
+ fix a memory leak in delscreen() (report by Bai Junq).
+ improve tracemunch, showing thread identifiers as names.
+ fix a use-after-free in NCursesMenu::~NCursesMenu()
+ further amend incorrect calls for memory-leaks from 20170617 changes
(report by Allen Hewes).
20170624
+ modify c++/etip.h.in to accommodate deprecation of throw() and
throws() in c++17 (prompted by patch by Romain Geissler).
+ remove some incorrect calls for memory-leaks from 20170617 changes
(report by Allen Hewes).
+ add test-programs for termattrs and term_attrs.
+ modify _nc_outc_wrapper to use the standard output if the screen was
not initialized, rather than returning an error.
+ improve checks for low-level terminfo functions when the terminal
has not been initialized (Redhat #1345963).
+ modify make_hash to allow building with address-sanitizer,
assuming that --disable-leaks is configured.
+ amend changes for number_format() in 20170506 to avoid undefined
behavior when shifting (patch by Emanuele Giaquinta).
20170617
+ fill in some places where TERMTYPE2 vs TERMTYPE was not used
(report by Allen Hewes).
+ use ExitTerminfo() internally in error-exits for ncurses' setupterm
to help with leak checking.
+ use ExitProgram() in error-exit from initscr() to help with leak
checking.
+ review test-programs, adding checks for cases where the terminal
cannot be initialized.
20170610
+ add option "-xp" to picsmap.c, to use init_extended_pair().
+ make simple performance fixes for picsmap.c
+ improve aspect ratio of images read from "convert" in picsmap.c
20170603
+ add option to picsmap to use color-palette files, e.g., for mapping
to xterm-256color.
+ move the data in SCREEN used for the alloc_pair() function to the
end, to restore compatibility between ncurses/ncursesw libtinfo
(report/patch by Miroslav Lichvar).
+ add build-time utility "report_offsets" to help show when the various
configurations of tinfo library are compatible or not.
20170527
+ improved test/picsmap.c:
+ lookup named colors for xpm files in rgb.txt
+ accept blanks in color-keys for xpm files.
+ if neither xbm/xpm work, try "convert", which may be available.
20170520
+ modify test/picsmap.c to read xpm files.
+ modify package/debian/* to create documentation packages, so the
related files can be checked with lintian.
+ fix some typos in manpages (report/patch by Sven Joachim).
20170513
+ add test/picsmap.c to fill in some testing issues not met by dots.
The initial version reads X bitmap (".xbm") files.
+ repair logic which forces a repaint where a color-pair's content is
changed (cf: 20170311).
+ improve tracemunch, showing screenXX pointers as names.
20170506
+ modify tic/infocmp display of numeric values to use hexadecimal when
they are "close" to a power of two, making the result more readable.
+ improve discussion of portability in curs_mouse.3x
+ change line-length for generated html/manpages to 78 columns from 65.
+ improve discussion of line-drawing characters in curs_add_wch.3x
(prompted by discussion with Lorinczy Zsigmond).
+ cleanup formatting of hackguide.html and ncurses-intro.html
+ add examples for WACS_D_PLUS and WACS_T_PLUS to test/ncurses.c
20170429
+ corrected a case where $with_gpm was set to "maybe" after CF_WITH_GPM,
overlooked in 20160528 fixes (report by Alexandre Bury).
+ improve a couple of test-program's help-messages.
+ corrected loop in rain.c from 20170415 changes.
+ modify winnstr and winchnstr to return error if the output pointer is
null, as well as adding a null pointer check of the window pointer
for better compatibility with other implementations.
+ improve discussion of NetBSD curses in scr_dump.5
+ modify LIMIT_TYPED macro in new_pair.h to avoid changing sign of the
value to be limited (reports by Darby Payne, Rob Boudreau).
+ update config.guess, config.sub from
http://git.savannah.gnu.org/cgit/config.git
20170422
+ build-fix for termcap-configuration (report by Chi-Hsuan Yen).
+ improve terminfo manual page discussion of control- and graphics-
characters.
+ remove tic warning about "^?" in string capabilities, which was
marked as an extension (cf: 20000610, 20110820); however all Unix
implementations support this and X/Open Curses does not address it.
On the other hand, termcap never did support this feature.
+ correct missing comma-separator between string capabilities in
icl6402 and m2-nam -TD
+ restore rmir/smir in ansi+idc to better match original ansiterm+idc,
add alias ansiterm (report by Robert King).
+ amend an old check for ambiguous use of "ma" in terminfo versus
a termcap use, if the capability is cancelled to treat it as number.
+ correct a case in _nc_captoinfo() which read "%%" and emitted "%".
+ modify sscanf calls in _nc_infotocap() for patterns "%{number}%+%c"
and "%'char'%+%c" to check that the final character is really 'c',
avoiding a case in icl6404 which cannot be converted to termcap.
+ in _nc_infotocap(), add a check to ensure that terminfo "^?" is not
written to termcap, because the BSDs did not implement that.
+ in _nc_tic_expand() and _nc_infotocap(), improve string-length check
when deciding whether to use "^X" or "\xxx" format for control
characters, to make the output of tic/infocmp more predictable.
+ limit termcap "%d" width to 2 digits on input, and use "%2" in
preference to "%02" on output.
+ correct terminfo/termcap conversion of "%02" and "%03" into "%2" and
"%3"; the result repeated the last character.
+ add man/scr_dump.5 to document screen-dump format.
20170415
+ modify several test programs to use new popup_msgs, adapted from
help-screen used in test/edit_field.c
+ drop two symbols obsoleted in 2004: _nc_check_termtype, and
_nc_resolve_uses
+ fix some old copyright dates (cf: 20031025).
+ build-fixes for test/savescreen.c to work with AIX and HPUX.
+ minor fix to configure script, adding a backslash/continuation.
+ extend TERMINAL structure for ABI 6 to store numbers internally as
integers rather than short, by adding new data for this purpose.
+ more fixes for minor memory-leaks in test-programs.
20170408
+ change logic in wins_nwstr() to avoid addressing data past the output
of mbstowcs().
+ correct a call to setcchar() in Data_Entry_w() from 20131207 changes.
+ fix minor memory-leaks in test-programs.
+ further improve ifdef in term_entry.h for internal definitions not
used by tack.
20170401
+ minor fixes for vt100+4bsd, e.g., delay in sgr for consistency -TD
+ add smso for env230, to match sgr -TD
+ remove p7/protect from sgr in fbterm -TD
+ drop setf/setb from fbterm; setaf/setab are enough -TD
+ make xterm-pcolor sgr consistent with other capabilities -TD
+ add rmxx/smxx ECMA-48 strikeout extension to tmux and xterm-basic
(discussion with Nicholas Marriott)
+ add test-programs sp_tinfo and extended_color
+ modify no-leaks code for lib_cur_term.c to account for the tgetent()
cache.
+ modify setupterm() to save original tty-modes so that erasechar()
works as expected. Also modify _nc_setupscreen() to avoid redundant
calls to get original tty-modes.
+ modify set_curterm() to update ttytype[] data used by longname().
+ modify wattr_set() and wattr_get() to return ERR if win-parameter is
null, as documented.
+ improve cast used for null-pointer checks in header macros, to
reduce compiler warnings.
+ modify several functions, using the reserved "opts" parameter to pass
color- and pair-values larger than 16-bits:
+ getcchar(), setcchar(), slk_attr_set(), vid_puts(), wattr_get(),
wattr_set(), wchgat(), wcolor_set().
+ Other functions call these with the corresponding altered behavior,
including chgat(), mvchgat(), mvwchgat(), slk_color_on(),
slk_color_off(), vid_attr().
+ add new functions for manipulating color- and pair-values larger
than 16-bits. These are extended_color_content(),
extended_pair_content(), extended_slk_color(), init_extended_color(),
init_extended_pair(), and the corresponding sp-funcs.
20170325
+ fix a memory leak in the window-list when creating multiple screens
(reports by Andres Martinelli, Debian #783486).
+ reviewed calls from link_test.c, added a few more null-pointer
checks.
+ add a null-pointer check in ungetmouse, in case mousemask was not
called (report by "Kau").
+ updated curs_sp_funcs.3x for new functions.
20170318
+ change TERMINAL structure in term.h to make it opaque. Some
applications misuse its members, e.g., directly modifying it
rather than using def_prog_mode().
+ modify utility headers such as tic.h to make it clearer which are
externals that are used by tack.
+ improve curs_slk.3x in particular its discussion of portability.
+ fix cut/paste in legacy_encoding.3x
+ add prototype for find_pair() to new_pair.3x (report by Branden
Robinson).
+ fix a couple of broken links in generated man-html documentation.
+ regenerate man-html documentation.
20170311
+ modify vt100 rs2 string to reset vt52 mode and scrolling regions
(report/analysis by Robert King) -TD
+ add vt100+4bsd building block, use that for older terminals rather
than "vt100" which is now mostly used as a building block for
terminal emulators -TD
+ correct a few spelling errors in terminfo.src comments -TD
+ add fbterm -TD
+ fix a typo in ncurses.c test_attr legend (patch by Petr Vanek).
+ changed internal colorpair_t to a struct, eliminating an internal
8-bit limit on colors
+ add ncurses/new_pair.h
+ add ncurses/base/new_pair.c with alloc_pair(), find_pair() and
free_pair() functions
+ add test/demo_new_pair.c
20170304
+ improve terminfo manual description of terminfo syntax.
+ clarify the use of wint_t vs wchar_t in curs_get_wstr.3x
+ improve description of endwin() in manual.
+ modify setcchar() and getcchar() to treat negative color-pair as an
error.
+ fix a typo in include/hashed_db.h (Andre Sa).
20170225
+ fixes for CF_CC_ENV_FLAGS (report by Ross Burton).
20170218
+ fix several formatting issues with manual pages.
+ correct read of terminfo entry in which all strings are absent or
explicitly cancelled. Before this fix, the result was that all were
treated as only absent.
+ modify infocmp to suppress mixture of absent/cancelled capabilities
that would only show as "NULL, NULL", unless the -q option is used,
e.g., to show "-, @" or "@, -".
20170212
+ build-fixes for PGI compilers (report by Adam J. Stewart)
+ accept whitespace in sed expression for generating expanded.c
+ modify configure check that g++ compiler warnings are not used.
+ add configure check for -fPIC option needed for shared libraries.
+ let configure --disable-ext-funcs override the default for the
--enable-sp-funcs option.
+ mark some structs in form/menu/panel libraries as potentially opaque
without modifying API/ABI.
+ add configure option --enable-opaque-curses for ncurses library and
similar options for the other libraries.
20170204
+ trim newlines, tabs and escaped newlines from terminfo "paths" passed
to db-iterator.
+ ignore zero-length files in db-iterator; these are useful for
instance to suppress "$HOME/.terminfo" when not wanted.
+ amended "b64:" encoder to work with the terminfo reader.
+ modify terminfo reader to accept "b64:" format using RFC-3548 in
as well as RFC-4648 url/filename-safe format.
+ modify terminfo reader to accept "hex:" format as generated by
"infocmp -0qQ1" (cf: 20150905).
+ adjust authors comment to reflect drop below 1% for SV.
20170128
+ minor comment-fixes to help automate links to bug-urls -TD
+ add dvtm, dvtm-256color -TD
+ add settings corresponding to xterm-keys option to tmux entry to
reflect upcoming change to make that option "on" by default
(patch by Nicholas Marriott).
+ uncancel Ms in tmux entry (Harry Gindi, Nicholas Marriott).
+ add dumb-emacs-ansi -TD
20170121
+ improve discussion of early history of tput program.
+ incorporate A_COLOR mask into COLOR_PAIR(), in case user application
provides an out-of-range pair number (report by Elijah Stone).
+ clarify description in tput manual page regarding support for
termcap names (prompted by FreeBSD #214709).
+ remove a restriction in tput's support for termcap names which
omitted capabilities normally not shown in termcap translations
(cf: 990123).
+ modify configure script for clang as used on FreeBSD, to work around
clang's differences in exit codes vs gcc.
20170114
+ improve discussion of early history of tset/reset programs.
+ clarify in manual pages that the optional verbose option level is
available only when ncurses is configured for tracing.
+ amend change from 20161231 to avoid writing traces to the standard
error after initializing the trace feature using the environment
variable.
20170107
+ amend changes for tput to reset tty modes to "sane" if the program
is run as "reset", like tset. Likewise, ensure that tset sends
either reset- or init-strings.
+ improve manual page descriptions of tput init/reset and tset/reset,
to make it easier to see how they are similar and different.
+ move a static result from key_name() to _nc_globals
+ modify _nc_get_screensize to allow for use_env() and use_tioctl()
state to be per-screen when sp-funcs are configured, better matching
the behavior when using the term-driver configuration.
+ improve cross-references in manual pages for often used functions
+ move SCREEN field for use_tioctl() data before the ncursesw fields,
and limit that to the sp-funcs configuration to improve termlib
compatibility (cf: 20120714).
+ correct order of initialization for traces in use_env() and
use_tioctl() versus first trace calls.
20161231
+ fix errata for ncurses-howto (report by Damien Ruscoe).
+ fix a few places in configure/build scripts where DESTDIR and rpath
were combined (report by Thomas Klausner).
+ merge current st description (report by Harry Gindi) -TD
+ modify flash capability for linux and wyse entries to put the delay
between the reverse/normal escapes rather than after -TD
+ modify program tabs to pass the actual tty file descriptor to
setupterm rather than the standard output, making padding work
consistently.
+ explain in clear's manual page that it writes to stdout.
+ add special case for verbose debugging traces of command-line
utilities which write to stderr (cf: 20161126).
+ remove a trace with literal escapes from skip_DECSCNM(), added in
20161203.
+ update config.guess, config.sub from
http://git.savannah.gnu.org/cgit/config.git
20161224
+ correct parameters for copywin call in _nc_Synchronize_Attributes()
(patch by Leon Winter).
+ improve color-handling section in terminfo manual page (prompted by
patch by Mihail Konev).
+ modify programs clear, tput and tset to pass the actual tty file
descriptor to setupterm rather than the standard output, making
padding work.
20161217
+ add tput-colorcube demo script.
+ add -r and -s options to tput-initc demo, to match usage in xterm.
+ flush the standard output in _nc_flush for the case where SP is zero,
e.g., when called via putp. This fixes a scenario where "tput flash"
did not work after changes in 20130112.
20161210
+ add configure script option --disable-wattr-macros for use in cases
where one wants to use the same headers for ncurses5/ncurses6
development, by suppressing the wattr* macros which differ due to
the introduction of extended colors (prompted by comments in
Debian #230990, Redhat #1270534).
+ add test/tput-initc to demonstrate tput used to initialize palette
from a data file.
+ modify test/xterm*.dat to use the newer color4/color12 values.
20161203
+ improve discussion of field validation in form_driver.3x manual page.
+ update curs_trace.3x manual page.
20161126
+ modify linux-16color to not mask dim, standout or reverse with the
ncv capability -TD
+ add 0.1sec mandatory delay to flash capabilities using the VT100
reverse-video control -TD
+ omit selection of ISO-8859-1 for G0 in enacs capability from linux2.6
entry, to avoid conflict with the user-defined mapping. The reset
feature will use ISO-8859-1 in any case (Mikulas Patocka).
+ improve check in tic for delays by also warning about beep/flash
when a delay is not embedded, or if those use the VT100 reverse
video escape without using a delay.
+ minor fix for syntax-check of delays from 20161119 changes.
+ modify trace() to avoid overwriting existing file (report by Maor
Shwartz).
20161119
+ add check in tic for some syntax errors of delays, as well as use of
proportional delays for non-line capabilities.
+ document history of the clear program and the E3 extension, prompted
by various discussions including
http://unix.stackexchange.com/questions/87469/clearing-the-old-scrollback-buffer
20161112
+ improve -W option in tic/infocmp:
+ correct order of size-adjustments in wrapped lines
+ if -f option splits line, do not further split it with -W
+ begin a new line when adding "use=" after a wrapped line
20161105
+ fix typo in man/terminfo.tail (Alain Williams).
+ correct program-name in adacurses6-config.1 manual page.
20161029
+ add new function "unfocus_current_field" (Leon Winter)
20161022
+ modify tset -w (and tput reset) to update the program's copy of the
screensize if it was already set in the system, to improve tabstop
setting which relies upon knowing the actual screensize.
+ add functionality of tset -w to tput, like the "-c" feature this is
not optional in tput.
+ add "clear" as a possible link/alias to tput.
+ improve tput's check for being called as "init" or "reset" to allow
for transformed names.
+ split-out the "clear" function from progs/clear.c, share with
tput to get the same behavior, e.g., the E3 extension.
20161015
+ amend internal use of tputs to consistently use the number of lines
affected, e.g., for insert/delete character operations. While
merging terminfo source early in 1995, several descriptions used the
"*" proportional delay for these operations, prompting a change in
doupdate.
+ regenerate llib-* files.
+ regenerate HTML manpages.
+ fix several formatting issues with manual pages.
20161008
+ adjust size in infocmp/tic to work with strlcpy.
+ fix configure script to record when strlcat is found on OpenBSD.
+ build-fix for "recent" OpenBSD vs baudrate.
20161001
+ add -W option to tic/infocmp to force long strings to wrap. This is
in addition to the -w option which attempts to fit capabilities into
a given line-length.
+ add linux-m1 minitel entries (patch by Alexandre Montaron).
+ correct rs2 string for vt100-nam -TD
20160924
+ modify _nc_tic_expand to escape comma if it immediately follows a
percent sign, to work with minitel change.
+ updated minitel and viewdata descriptions (Alexandre Montaron).
20160917
+ build-fix for gnat6, which unhelpfully attempts to compile C files.
+ fix typo in 20160910 changes (Debian #837892, patch by Sven Joachim).
20160910
+ trim dead code ifdef'd with HIDE_EINTR since 970830 (discussion with
Leon Winter).
+ trim some obsolete/incorrect wording about EINTR from wgetch manual
page (patch by Leon Winter).
+ really correct 20100515 change (patch by Rich Coe).
+ add "--enable-string-hacks" option to test/configure
+ completed string-hacks for "sprintf", etc., including test-programs.
+ make "--enable-string-hacks" work with Debian by checking for the
"bsd" library and its associated "" header.
20160903
+ correct 20100515 change for weak signals versus sigprocmask (report
by Rich Coe).
+ modify misc/Makefile.in to work around OpenBSD "make" which unlike
all other versions of "make" does not recognize continuation lines
of comments.
+ amend the last change to CF_C_ENV_FLAGS to move only the
preprocessor, optimization and warning flags to CPPFLAGS and CFLAGS,
leaving the residue in CC. That happens to work for gcc's various
"model" options, but may require tuning for other compilers (report
by Sven Joachim).
20160827
+ add "v" menu entry to test/ncurses.c to show baudrate and other
values.
+ add "newer" baudrate symbols from Linux and FreeBSD to progs/tset.c,
lib_baudrate.c
+ modify CF_XOPEN_SOURCE macro:
+ add "uclinux" to case for "linux" (patch by Yann E. Morin)
+ modify _GNU_SOURCE for cygwin headers, tested with cygwin 2.3, 2.5
(patch by Corinna Vinschen, from changes to tin).
+ improve CF_CC_ENV_FLAGS macro to allow for compiler wrappers such
as "ccache" (report by Enrico Scholz).
+ update config.guess, config.sub from
http://git.savannah.gnu.org/cgit/config.git
20160820
+ update tput manual page to reflect changes to manipulate terminal
modes by sharing functions with tset.
+ add the terminal-mode parts of "reset" (aka tset) to the "tput reset"
command, making the two almost the same except for window-size.
+ adapt logic used in dialog "--keep-tite" option for test/filter.c as
"-a" option. When set, test/filter attempts to suppress the
alternate screen.
+ correct a typo in interix entry -TD
20160813
+ add a dependency upon generated-sources in Ada95/src/Makefile.in to
handle a case of "configure && make install".
+ trim trailing blanks from include/Caps*, to work around a problem
in sed (Debian #818067).
20160806
+ improve CF_GNU_SOURCE configure macro to optionally define
_DEFAULT_SOURCE work around a nuisance in recent glibc releases.
+ move the terminfo-specific parts of tput's "reset" function into
the shared reset_cmd.c, making the two forms of reset use the same
strings.
+ split-out the terminal initialization functions from tset as
progs/reset_cmd.c, as part of changes to merge the reset-feature
with tput.
20160730
+ change tset's initialization to allow it to get settings from the
standard input as well as /dev/tty, to be more effective when
output or error are redirected.
+ improve discussion of history and portability for tset/reset/tput
manual pages.
20160723
+ improve error message from tset/reset when both stderr/stdout are
redirected to a file or pipe.
+ improve organization of curs_attr.3x, curs_color.3x
20160709
+ work around Debian's antique/unmaintained version of mawk when
building link_test.
+ improve test/list_keys.c, showing ncurses's convention of modifiers
for special keys, based on xterm.
20160702
+ improve test/list_keys.c, using $TERM if no parameters are given.
20160625
+ build-fixes for ncurses "test_progs" rule.
+ amend change to CF_CC_ENV_FLAGS in 20160521 to make multilib build
work (report by Sven Joachim).
20160618
+ build-fixes for ncurses-examples with NetBSD curses.
+ improve test/list_keys.c, fixing column-widths and sorting the list
to make it more readable.
20160611
+ revise fix for Debian #805618 (report by Vlado Potisk, cf: 20151128).
+ modify test/ncurses.c a/A screens to make exiting on an escape
character depend on the start of keypad and timeout modes, to allow
better testing of function-keys.
+ modify rs1 for xterm-16color, xterm-88color and xterm-256color to
reset palette using "oc" string as in linux -TD
+ use ANSI reply for u8 in xterm-new, to reflect vt220-style responses
that could be returned -TD
+ added a few capabilities fixed in recent vte -TD
20160604
+ correct logic for -f option in test/demo_terminfo.c
+ add test/list_keys.c
20160528
+ further workaround for PIE/PIC breakage which causes gpm to not link.
+ fix most cppcheck warnings, mostly style, in ncurses library.
20160521
+ improved manual page description of tset/reset versus window-size.
+ fixes to work with a slightly broken compiler configuration which
cannot compile "Hello World!" without adding compiler options
(report by Ola x Nilsson):
+ pass appropriate compiler options to the CF_PROG_CC_C_O macro.
+ when separating compiler and options in CF_CC_ENV_FLAGS, ensure
that all options are split-off into CFLAGS or CPPFLAGS
+ restore some -I options removed in 20140726 because they appeared
to be redundant. In fact, they are needed for a compiler that
cannot combine -c and -o options.
20160514
+ regenerate HTML manpages.
+ improve manual pages for wgetch and wget_wch to point out that they
might return values without names in curses.h (Debian #822426).
+ make linux3.0 entry the default linux entry (Debian #823658) -TD
+ modify linux2.6 entry to improve line-drawing so that the linux3.0
entry can be used in non-UTF-8 mode -TD
+ document return value of use_extended_names (report by Mike Gran).
20160507
+ amend change to _nc_do_color to restore the early return for the
special case used in _nc_screen_wrap (report by Dick Streefland,
cf: 20151017).
+ modify test/ncurses.c:
+ check return-value of putwin
+ correct ifdef which made the 'g' test's legend not reflect changes
to keypad- and scroll-modes.
+ correct return-value of extended putwin (report by Mike Gran).
20160423
+ modify test/ncurses.c 'd' edit-color menu to optionally read xterm
color palette directly from terminal, as well as handling KEY_RESIZE
and screen-repainting with control/L and control/R.
+ add 'oc' capability to xterm+256color, allowing palette reset for
xterm -TD
20160416
+ add workaround in configure script for inept transition to PIE vs
PIC builds documented in
https://fedoraproject.org/wiki/Changes/Harden_All_Packages
+ add "reset" to list of programs whose names might change in manpages
due to program-transformation configure options.
+ drop long-obsolete "-n" option from tset.
20160409
+ modify test/blue.c to use Unicode values for card-glyphs when
available, as well as improving the check for CP437 and CP850.
20160402
+ regenerate HTML manpages.
+ improve manual pages for utilities with respect to POSIX versus
X/Open Curses.
20160326
+ regenerate HTML manpages.
+ improve test/demo_menus.c, allowing mouse-click on the menu-headers
to switch the active menu. This requires a new extension option
O_MOUSE_MENU to tell the menu driver to put mouse events which do not
apply to the active menu back into the queue so that the application
can handle the event.
20160319
+ improve description of tgoto parameters (report by Steffen Nurpmeso).
+ amend workaround for Solaris line-drawing to restore a special case
that maps Unicode line-drawing characters into the acsc string for
non-Unicode locales (Debian #816888).
20160312
+ modified test/filter.c to illustrate an alternative to getnstr, that
polls for input while updating a clock on the right margin as well
as responding to window size-changes.
20160305
+ omit a redefinition of "inline" when traces are enabled, since this
does not work with gcc 5.3.x MinGW cross-compiling (cf: 20150912).
20160220
+ modify test/configure script to check for pthread dependency of
ncursest or ncursestw library when building ncurses examples, e.g.,
in case weak symbols are used.
+ modify configure macro for shared-library rules to use -Wl,-rpath
rather than -rpath to work around a bug in scons (FreeBSD #178732,
cf: 20061021).
+ double-width multibyte characters were not counted properly in
winsnstr and wins_nwstr (report/example by Eric Pruitt).
+ update config.guess, config.sub from
http://git.savannah.gnu.org/cgit/config.git
20160213
+ amend fix for _nc_ripoffline from 20091031 to make test/ditto.c work
in threaded configuration.
+ move _nc_tracebits, _tracedump and _tracemouse to curses.priv.h,
since they are not part of the suggested ABI6.
20160206
+ define WIN32_LEAN_AND_MEAN for MinGW port, making builds faster.
+ modify test/ditto.c to allow $XTERM_PROG environment variable to
override "xterm" as the name of the program to run in the threaded
configuration.
20160130
+ improve formatting of man/curs_refresh.3x and man/tset.1 manpages
+ regenerate HTML manpages using newer man2html to eliminate some
unwanted blank lines.
20160123
+ ifdef'd header-file definition of mouse_trafo() with NCURSES_NOMACROS
(report by Corey Minyard).
+ fix some strict compiler-warnings in traces.
20160116
+ tidy up comments about hardcoded 256color palette (report by
Leonardo Brondani Schenkel) -TD
+ add putty-noapp entry, and amend putty entry to use application mode
for better consistency with xterm (report by Leonardo Brondani
Schenkel) -TD
+ modify _nc_viscbuf2() and _tracecchar_t2() to trace wide-characters
as a whole rather than their multibyte equivalents.
+ minor fix in wadd_wchnstr() to ensure that each cell has nonzero
width.
+ move PUTC_INIT calls next to wcrtomb calls, to avoid carry-over of
error status when processing Unicode values which are not mapped.
20160102
+ modify ncurses c/C color test-screens to take advantage of wide
screens, reducing the number of lines used for 88- and 256-colors.
+ minor refinement to check versus ncv to ignore two parameters of
SGR 38 and 48 when those come from color-capabilities.
20151226
+ add check in tic for use of bold, etc., video attributes in the
color capabilities, accounting whether the feature is listed in ncv.
+ add check in tic for conflict between ritm, rmso, rmul versus sgr0.
20151219
+ add a paragraph to curs_getch.3x discussing key naming (discussion
with James Crippen).
+ amend workaround for Solaris vs line-drawing to take the configure
check into account.
+ add a configure check for wcwidth() versus the ncurses line-drawing
characters, to use in special-casing systems such as Solaris.
20151212
+ improve CF_XOPEN_CURSES macro used in test/configure, to define as
needed NCURSES_WIDECHAR for platforms where _XOPEN_SOURCE_EXTENDED
does not work. Also modified the test program to ensure that if
building with ncurses, that the cchar_t type is checked, since that
normally is since 20111030 ifdef'd depending on this test.
+ improve 20121222 workaround for broken acs, letting Solaris "work"
in spite of its misconfigured wcwidth which marks all of the line
drawing characters as double-width.
20151205
+ update form_cursor.3x, form_post.3x, menu_attributes.3x to list
function names in NAME section (patch by Jason McIntyre).
+ minor fixes to manpage NAME/SYNOPSIS sections to consistently use
rule that either all functions which are prototyped in SYNOPSIS are
listed in the NAME section, or the manual-page name is the sole item
listed in the NAME section. The latter is used to reduce clutter,
e.g., for the top-level library manual pages as well as for certain
feature-pages such as SP-funcs and threading (prompted by patches by
Jason McIntyre).
20151128
+ add option to preserve leading whitespace in form fields (patch by
Leon Winter).
+ add missing assignment in lib_getch.c to make notimeout() work
(Debian #805618).
+ add 't' toggle for notimeout() function in test/ncurses.c a/A screens
+ add viewdata terminal description (Alexandre Montaron).
+ fix a case in tic/infocmp for formatting capabilities where a
backslash at the end of a string was mishandled.
+ fix some typos in curs_inopts.3x (Benno Schulenberg).
20151121
+ fix some inconsistencies in the pccon* entries -TD
+ add bold to pccon+sgr+acs and pccon-base (Tati Chevron).
+ add keys f12-f124 to pccon+keys (Tati Chevron).
+ add test/test_sgr.c program to exercise all combinations of sgr.
20151107
+ modify tset's assignment to TERM in its output to reflect the name by
which the terminal description is found, rather than the primary
name. That was an unnecessary part from the initial conversion of
tset from termcap to terminfo. The termcap program in 4.3BSD did
this to avoid using the short 2-character name (report by Rich
Burridge).
+ minor fix to configure script to ensure that rules for resulting.map
are only generated when needed (cf: 20151101).
+ modify configure script to handle the case where tic-library is
renamed, but the --with-debug option is used by itself without
normal or shared libraries (prompted by comment in Debian #803482).
20151101
+ amend change for pkg-config which allows build of pc-files when no
valid pkg-config library directory was configured to suppress the
actual install if it is not overridden to a valid directory at
install time (cf: 20150822).
+ modify editing script which generates resulting.map to work with the
clang configuration on recent FreeBSD, which gives an error on an
empty "local" section.
+ fix a spurious "(Part)" message in test/ncurses.c b/B tests due
to incorrect attribute-masking.
20151024
+ modify MKexpanded.sh to update the expansion of a temporary filename
to "expanded.c", for use in trace statements.
+ modify layout of b/B tests in test/ncurses.c to allow for additional
annotation on the right margin; some terminals with partial support
did not display well.
+ fix typo in curs_attr.3x (patch by Sven Joachim).
+ fix typo in INSTALL (patch by Tomas Cech).
+ improve configure check for setting WILDCARD_SYMS variable; on ppc64
the variable is in the Data section rather than Text (patch by Michel
Normand, Novell #946048).
+ using configure option "--without-fallbacks" incorrectly caused
FALLBACK_LIST to be set to "no" (patch by Tomas Cech).
+ updated minitel entries to fix kel problem with emacs, and add
minitel1b-nb (Alexandre Montaron).
+ reviewed/updated nsterm entry Terminal.app in OSX -TD
+ replace some dead URLs in comments with equivalents from the
Internet Archive -TD
+ update config.guess, config.sub from
http://git.savannah.gnu.org/cgit/config.git
20151017
+ modify ncurses/Makefile.in to sort keys.list in POSIX locale
(Debian #801864, patch by Esa Peuha).
+ remove an early-return from _nc_do_color, which can interfere with
data needed by bkgd when ncurses is configured with extended colors
(patch by Denis Tikhomirov).
> fixes for OS/2 (patches by KO Myung-Hun)
+ use button instead of kbuf[0] in EMX-specific part of lib_mouse.c
+ support building with libtool on OS/2
+ use stdc++ on OS/2 kLIBC
+ clear cf_XOPEN_SOURCE on OS/2
20151010
+ add configure check for openpty to test/configure script, for ditto.
+ minor fixes to test/view.c in investigating Debian #790847.
+ update autoconf patch to 2.52.20150926, incorporates a fix for Cdk.
+ add workaround for breakage of POSIX makefiles by recent binutils
change.
+ improve check for working poll() by using posix_openpt() as a
fallback in case there is no valid terminal on the standard input
(prompted by discussion on bug-ncurses mailing list, Debian #676461).
20150926
+ change makefile rule for removing resulting.map to distclean rather
than clean.
+ add /lib/terminfo to terminfo-dirs in ".deb" test-package.
+ add note on portability of resizeterm and wresize to manual pages.
20150919
+ clarify in resizeterm.3x how KEY_RESIZE is pushed onto the input
stream.
+ clarify in curs_getch.3x that the keypad mode affects ability to
read KEY_MOUSE codes, but does not affect KEY_RESIZE.
+ add overlooked build-fix needed with Cygwin for separate Ada95
configure script, cf: 20150606 (report by Nicolas Boulenguez)
20150912
+ fixes for configure/build using clang on OSX (prompted by report by
William Gallafent).
+ do not redefine "inline" in ncurses_cfg.h; this was originally to
solve a problem with gcc/g++, but is aggravated by clang's misuse
of symbols to pretend it is gcc.
+ add braces to configure script to prevent unwanted add of
"-lstdc++" to the CXXLIBS symbol.
+ improve/update test-program used for checking existence of stdc++
library.
+ if $CXXLIBS is set, the linkage test uses that in addition to $LIBS
20150905
+ add note in curs_addch.3x about line-drawing when it depends upon
UTF-8.
+ add tic -q option for consistency with infocmp, use it to suppress
all comments from the "tic -I" output.
+ modify infocmp -q option to suppress the "Reconstructed from"
header.
+ add infocmp/tic -Q option, which allows one to dump the compiled
form of the terminal entry, in hexadecimal or base64.
20150822
+ sort options in usage message for infocmp, to make it simpler to
see unused letters.
+ update usage message for tic, adding "-0" option.
+ documented differences in ESCDELAY versus AIX's implementation.
+ fix some compiler warnings from ports.
+ modify --with-pkg-config-libdir option to make it possible to install
".pc" files even if pkg-config is not found (adapted from patch by
Joshua Root).
20150815
+ disallow "no" as a possible value for "--with-shlib-version" option,
overlooked in cleanup-changes for 20000708 (report by Tommy Alex).
+ update release notes in INSTALL.
+ regenerate llib-* files to help with review for release notes.
20150810
+ workaround for Debian #65617, which was fixed in mawk's upstream
releases in 2009 (report by Sven Joachim). See
https://invisible-island.net/mawk/CHANGES.html#t20090727
20150808 6.0 release for upload to ftp.gnu.org
20150808
+ build-fix for Ada95 on older platforms without stdint.h
+ build-fix for Solaris, whose /bin/sh and /usr/bin/sed are non-POSIX.
+ update release announcement, summarizing more than 800 changes across
more than 200 snapshots.
+ minor fixes to manpages, etc., to simplify linking from announcement
page.
20150725
+ updated llib-* files.
+ build-fixes for ncurses library "test_progs" rule.
+ use alternate workaround for gcc 5.x feature (adapted from patch by
Mikhail Peselnik).
+ add status line to tmux via xterm+sl (patch by Nicholas Marriott).
+ fixes for st 0.5 from testing with tack -TD
+ review/improve several manual pages to break up wall-of-text:
curs_add_wch.3x, curs_attr.3x, curs_bkgd.3x, curs_bkgrnd.3x,
curs_getcchar.3x, curs_getch.3x, curs_kernel.3x, curs_mouse.3x,
curs_outopts.3x, curs_overlay.3x, curs_pad.3x, curs_termattrs.3x
curs_trace.3x, and curs_window.3x
20150719
+ correct an old logic error for %A and %O in tparm (report by "zreed").
+ improve documentation for signal handlers by adding section in the
curs_initscr.3x page.
+ modify logic in make_keys.c to not assume anything about the size
of strnames and strfnames variables, since those may be functions
in the thread- or broken-linker configurations (problem found by
Coverity).
+ modify test/configure script to check for pthreads configuration,
e.g., ncursestw library.
20150711
+ modify scripts to build/use test-packages for the pthreads
configuration of ncurses6.
+ add references to ttytype and termcap symbols in demo_terminfo.c and
demo_termcap.c to ensure that when building ncursest.map, etc., that
the corresponding names such as _nc_ttytype are added to the list of
versioned symbols (report by Werner Fink)
+ fix regression from 20150704 (report/patch by Werner Fink).
20150704
+ fix a few problems reported by Coverity.
+ fix comparison against "/usr/include" in misc/gen-pkgconfig.in
(report by Daiki Ueno, Debian #790548, cf: 20141213).
20150627
+ modify configure script to remove deprecated ABI 5 symbols when
building ABI 6.
+ add symbols _nc_Default_Field, _nc_Default_Form, _nc_has_mouse to
map-files, but marked as deprecated so that they can easily be
suppressed from ABI 6 builds (Debian #788610).
+ comment-out "screen.xterm" entry, and inherit screen.xterm-256color
from xterm-new (report by Richard Birkett) -TD
+ modify read_entry.c to set the error-return to -1 if no terminal
databases were found, as documented for setupterm.
+ add test_setupterm.c to demonstrate normal/error returns from the
setupterm and restartterm functions.
+ amend cleanup change from 20110813 which removed redundant definition
of ret_error, etc., from tinfo_driver.c, to account for the fact that
it should return a bool rather than int (report/analysis by Johannes
Schindelin).
20150613
+ fix overflow warning for OSX with lib_baudrate.c (cf: 20010630).
+ modify script used to generate map/sym files to mark 5.9.20150530 as
the last "5.9" version, and regenerated the files. That makes the
files not use ".current" for the post-5.9 symbols. This also
corrects the label for _nc_sigprocmask used in when weak symbols are
configured for the ncursest/ncursestw libraries (prompted by
discussion with Sven Joachim).
+ fix typo in NEWS (report by Sven Joachim).
20150606 pre-release
+ make ABI 6 the default by updates to dist.mk and VERSION, with the
intention that the existing ABI 5 should build as before using the
"--with-abi-version=5" option.
+ regenerate ada- and man-html documentation.
+ minor fixes to color- and util-manpages.
+ fix a regression in Ada95/gen/Makefile.in, to handle special case of
Cygwin, which uses the broken-linker feature.
+ amend fix for CF_NCURSES_CONFIG used in test/configure to assume that
ncurses package scripts work when present for cross-compiling, as the
lessor of two evils (cf: 20150530).
+ add check in configure script to disallow conflicting options
"--with-termlib" and "--enable-term-driver".
+ move defaults for "--disable-lp64" and "--with-versioned-syms" into
CF_ABI_DEFAULTS macro.
20150530
+ change private type for Event_Mask in Ada95 binding to work when
mmask_t is set to 32-bits.
+ remove spurious "%;" from st entry (report by Daniel Pitts) -TD
+ add vte-2014, update vte to use that -TD
+ modify tic and infocmp to "move" a diagnostic for tparm strings that
have a syntax error to tic's "-c" option (report by Daniel Pitts).
+ fix two problems with configure script macros (Debian #786436,
cf: 20150425, cf: 20100529).
20150523
+ add 'P' menu item to test/ncurses.c, to show pad in color.
+ improve discussion in curs_color.3x about color rendering (prompted
by comment on Stack Overflow forum):
+ remove screen-bce.mlterm, since mlterm does not do "bce" -TD
+ add several screen.XXX entries to support the respective variations
for 256 colors -TD
+ add putty+fnkeys* building-block entries -TD
+ add smkx/rmkx to capabilities analyzed with infocmp "-i" option.
20150516
+ amend change to ".pc" files to only use the extra loader flags which
may have rpath options (report by Sven Joachim, cf: 20150502).
+ change versioning for dpkg's in test-packages for Ada95 and
ncurses-examples for consistency with Debian, to work with package
updates.
+ regenerate html manpages.
+ clarify handling of carriage return in waddch manual page; it was
discussed only in the portability section (prompted by comment on
Stack Overflow forum):
20150509
+ add test-packages for cross-compiling ncurses-examples using the
MinGW test-packages. These are only the Debian packages; RPM later.
+ cleanup format of debian/copyright files
+ add pc-files to the MinGW cross-compiling test-packages.
+ correct a couple of places in gen-pkgconfig.in to handle renaming of
the tinfo library.
20150502
+ modify the configure script to allow different default values
for ABI 5 versus ABI 6.
+ add wgetch-events to test-packages.
+ add a note on how to build ncurses-examples to test/README.
+ fix a memory leak in delscreen (report by Daniel Kahn Gillmor,
Debian #783486) -TD
+ remove unnecessary ';' from E3 capabilities -TD
+ add tmux entry, derived from screen (patch by Nicholas Marriott).
+ split-out recent change to nsterm-bce as nsterm-build326, and add
nsterm-build342 to reflect changes with successive releases of OSX
(discussion with Leonardo B Schenkel)
+ add xon, ich1, il1 to ibm3161 (patch by Stephen Powell, Debian
#783806)
+ add sample "magic" file, to document ext-putwin.
+ modify gen-pkgconfig.in to add explicit -ltinfo, etc., to the
generated ".pc" file when ld option "--as-needed" is used, or when
ncurses and tinfo are installed without using rpath (prompted by
discussion with Sylvain Bertrand).
+ modify test-package for ncurses6 to omit rpath feature when installed
in /usr.
+ add OSX's "*.dSYM" to clean-rules in makefiles.
+ make extra-suffix work for OSX configuration, e.g., for shared
libraries.
+ modify Ada95/configure script to work with pkg-config
+ move test-package for ncurses6 to /usr, since filename-conflicts have
been eliminated.
+ corrected build rules for Ada95/gen/generate; it does not depend on
the ncurses library aside from headers.
+ reviewed man pages, fixed a few other spelling errors.
+ fix a typo in curs_util.3x (Sven Joachim).
+ use extra-suffix in some overlooked shared library dependencies
found by 20150425 changes for test-packages.
+ update config.guess, config.sub from
http://git.savannah.gnu.org/cgit/config.git
20150425
+ expanded description of tgetstr's area pointer in manual page
(report by Todd M Lewis).
+ in-progress changes to modify test-packages to use ncursesw6 rather
than ncursesw, with updated configure scripts.
+ modify CF_NCURSES_CONFIG in Ada95- and test-configure scripts to
check for ".pc" files via pkg-config, but add a linkage check since
frequently pkg-config configurations are broken.
+ modify misc/gen-pkgconfig.in to include EXTRA_LDFLAGS, e.g., for the
rpath option.
+ add 'dim' capability to screen entry (report by Leonardo B Schenkel)
+ add several key definitions to nsterm-bce to match preconfigured
keys, e.g., with OSX 10.9 and 10.10 (report by Leonardo B Schenkel)
+ fix repeated "extra-suffix" in ncurses-config.in (cf: 20150418).
+ improve term_variables manual page, adding section on the terminfo
long-name symbols which are defined in the term.h header.
+ fix bug in lib_tracebits.c introduced in const-fixes (cf: 20150404).
20150418
+ avoid a blank line in output from tabs program by ending it with
a carriage return as done in FreeBSD (patch by James Clarke).
+ build-fix for the "--enable-ext-putwin" feature when not using
wide characters (report by Werner Fink).
+ modify autoconf macros to use scripting improvement from xterm.
+ add -brtl option to compiler options on AIX 5-7, needed to link
with the shared libraries.
+ add --with-extra-suffix option to help with installing nonconflicting
ncurses6 packages, e.g., avoiding header- and library-conflicts.
NOTE: as a side-effect, this renames
adacurses-config to adacurses5-config and
adacursesw-config to adacursesw5-config
+ modify debian/rules test package to suffix programs with "6".
+ clarify in curs_inopts.3x that window-specific settings do not
inherit into new windows.
20150404
+ improve description of start_color() in the manual.
+ modify several files in ncurses- and progs-directories to allow
const data used in internal tables to be put by the linker into the
readonly text segment.
20150329
+ correct cut/paste error for "--enable-ext-putwin" that made it the
same as "--enable-ext-colors" (report by Roumen Petrov)
20150328
+ add "-f" option to test/savescreen.c to help with testing/debugging
the extended putwin/getwin.
+ add logic for writing/reading combining characters in the extended
putwin/getwin.
+ add "--enable-ext-putwin" configure option to turn on the extended
putwin/getwin.
20150321
+ in-progress changes to provide an extended version of putwin and
getwin which will be capable of reading screen-dumps between the
wide/normal ncurses configurations. These are text files, except
for a magic code at the beginning:
0 string \210\210 Screen-dump (ncurses)
20150307
+ document limitations of getwin in manual page (prompted by discussion
with John S Urban).
+ extend test/savescreen.c to demonstrate that color pair values
and graphic characters can be restored using getwin.
20150228
+ modify win_driver.c to eliminate the constructor, to make it more
usable in an application which may/may not need the console window
(report by Grady Martin).
20150221
+ capture define's related to -D_XOPEN_SOURCE from the configure check
and add those to the *-config and *.pc files, to simplify use for
the wide-character libraries.
+ modify ncurses.spec to accommodate Fedora21's location of pkg-config
directory.
+ correct sense of "--disable-lib-suffixes" configure option (report
by Nicolas Boos, cf: 20140426).
20150214
+ regenerate html manpages using improved man2html from work on xterm.
+ regenerated ".map" and ".sym" files using improved script, accounting
for the "--enable-weak-symbols" configure option (report by Werner
Fink).
20150131
+ regenerated ".map" and ".sym" files using improved script, showing
the combinations of configure options used at each stage.
20150124
+ add configure check to determine if "local: _*;" can be used in the
".map" files to selectively omit symbols beginning with "_". On at
least recent FreeBSD, the wildcard applies to all "_" symbols.
+ remove obsolete/conflicting rule for ncurses.map from
ncurses/Makefile.in (cf: 20130706).
20150117
+ improve description in INSTALL of the --with-versioned-syms option.
+ add combination of --with-hashed-db and --with-ticlib to
configurations for ".map" files (report by Werner Fink).
20150110
+ add a step to generating ".map" files, to declare any remaining
symbols beginning with "_" as local, at the last version node.
+ improve configure checks for pkg-config, addressing a variant found
with FreeBSD ports.
+ modify win_driver.c to provide characters for special keys, like
ansi.sys, when keypad mode is off, rather than returning nothing at
all (discussion with Eli Zaretskii).
+ add "broken_linker" and "hashed-db" configure options to combinations
use for generating the ".map" and ".sym" files.
+ avoid using "ld" directly when creating shared library, to simplify
cross-compiles. Also drop "-Bsharable" option from shared-library
rules for FreeBSD and DragonFly (FreeBSD #196592).
+ fix a memory leak in form library Free_RegularExpression_Type()
(report by Pavel Balaev).
20150103
+ modify_nc_flush() to retry if interrupted (patch by Stian Skjelstad).
+ change map files to make _nc_freeall a global, since it may be used
via the Ada95 binding when checking for memory leaks.
+ improve sed script used in 20141220 to account for wide-, threaded-
variations in ABI 6.
20141227
+ regenerate ".map" files, using step overlooked in 20141213 to use
the same patch-dates across each file to match ncurses.map (report by
Sven Joachim).
20141221
+ fix an incorrect variable assignment in 20141220 changes (report by
Sven Joachim).
20141220
+ updated Ada95/configure with macro changes from 20141213
+ tie configure options --with-abi-version and --with-versioned-syms
together, so that ABI 6 libraries have distinct symbol versions from
the ABI 5 libraries.
+ replace obsolete/nonworking link to man2html with current one,
regenerate html-manpages.
20141213
+ modify misc/gen-pkgconfig.in to add -I option for include-directory
when using both --prefix and --disable-overwrite (report by Misty
De Meo).
+ add configure option --with-pc-suffix to allow minor renaming of
".pc" files and the corresponding library. Use this in the test
package for ncurses6.
+ modify configure script so that if pkg-config is not installed, it
is still possible to install ".pc" files (report by Misty De Meo).
+ updated ".sym" files, removing symbols which are marked as "local"
in the corresponding ".map" files.
+ updated ".map" files to reflect move of comp_captab and comp_hash
from tic-library to tinfo-library in 20090711 (report by Sven
Joachim).
20141206
+ updated ".map" files so that each symbol that may be shared across
the different library configurations has the same label. Some
review is needed to ensure these are really compatible.
+ modify MKlib_gen.sh to work around change in development version of
gcc introduced here:
https://gcc.gnu.org/ml/gcc-patches/2014-06/msg02185.html
https://gcc.gnu.org/ml/gcc-patches/2014-07/msg00236.html
(reports by Marcus Shawcroft, Maohui Lei).
+ improved configure macro CF_SUBDIR_PATH, from lynx changes.
20141129
+ improved ".map" files by generating them with a script that builds
ncurses with several related configurations and merges the results.
A further refinement is planned, to make the tic- and tinfo-library
symbols use the same versions across each of the four configurations
which are represented (reports by Sven Joachim, Werner Fink).
20141115
+ improve description of limits for color values and color pairs in
curs_color.3x (prompted by patch by Tim van der Molen).
+ add VERSION file, using first field in that to record the ABI version
used for configure --with-libtool --disable-libtool-version
+ add configure options for applying the ".map" and ".sym" files to
the ncurses, form, menu and panel libraries.
+ add ".map" and ".sym" files to show exported symbols, e.g., for
symbol-versioning.
20141101
+ improve strict compiler-warnings by adding a cast in TRACE_RETURN
and making a new TRACE_RETURN1 macro for cases where the cast does
not apply.
20141025
+ in-progress changes to integrate the win32 console driver with the
msys2 configuration.
20141018
+ reviewed terminology 0.6.1, add function key definitions. None of
the vt100-compatibility issues were improved -TD
+ improve infocmp conversion of extended capabilities to termcap by
correcting the limit check against parametrized[], as well as filling
in a check if the string happens to have parameters, e.g., "xm"
in recent changes.
+ add check for zero/negative dimensions for resizeterm and resize_term
(report by Mike Gran).
20141011
+ add experimental support for xterm's 1005 mouse mode, to use in a
demonstration of its limitations.
+ add experimental support for "%u" format to terminfo.
+ modify test/ncurses.c to also show position reports in 'a' test.
+ minor formatting fixes to _nc_trace_mmask_t, make this function
exported to help with debugging mouse changes.
+ improve behavior of wheel-mice for xterm protocol, noting that there
are only button-presses for buttons "4" and "5", so there is no need
to wait to combine events into double-clicks (report/analysis by
Greg Field).
+ provide examples xterm-1005 and xterm-1006 terminfo entries -TD
+ implement decoder for xterm SGR 1006 mouse mode.
20140927
+ implement curs_set in win_driver.c
+ implement flash in win_driver.c
+ fix an infinite loop in win_driver.c if the command-window loses
focus.
+ improve the non-buffered mode, i.e., NCURSES_CONSOLE2, of
win_driver.c by temporarily changing the buffer-size to match the
window-size to eliminate the scrollback. Also enforce a minimum
screen-size of 24x80 in the non-buffered mode.
+ modify generated misc/Makefile to suppress install.data from the
dependencies if the --disable-db-install option is used, compensating
for the top-level makefile changes used to add ncurses*-config in the
20140920 changes (report by Steven Honeyman).
20140920
+ add ncurses*-config to bin-directory of sample package-scripts.
+ add check to ensure that getopt is available; this is a problem in
some older cross-compiler environments.
+ expanded on the description of --disable-overwrite in INSTALL
(prompted by reports by Joakim Tjernlund, Thomas Klausner).
See Gentoo #522586 and NetBSD #49200 for examples.
which relates to the clarified guidelines.
+ remove special logic from CF_INCLUDE_DIRS which adds the directory
for the --includedir from the build (report by Joakim Tjernlund).
+ add case for Unixware to CF_XOPEN_SOURCE, from lynx changes.
+ update config.sub from
http://git.savannah.gnu.org/cgit/config.git
20140913
+ add a configure check to ignore some of the plethora of non-working
C++ cross-compilers.
+ build-fixes for Ada95 with gnat 4.9
20140906
+ build-fix and other improvements for port of ncurses-examples to
NetBSD.
+ minor compiler-warning fixes.
20140831
+ modify test/demo_termcap.c and test/demo_terminfo.c to make their
options more directly comparable, and add "-i" option to specify
a terminal description filename to parse for names to lookup.
20140823
+ fix special case where double-width character overwrites a single-
width character in the first column (report by Egmont Koblinger,
cf: 20050813).
20140816
+ fix colors in ncurses 'b' test which did not work after changing
it to put the test-strings in subwindows (cf: 20140705).
+ merge redundant SEE-ALSO sections in form and menu manpages.
20140809
+ modify declarations for user-data pointers in C++ binding to use
reinterpret_cast to facilitate converting typed pointers to void*
in user's application (patch by Adam Jiang).
+ regenerated html manpages.
+ add note regarding cause and effect for TERM in ncurses manpage,
having noted clueless verbiage in Terminal.app's "help" file
which reverses cause/effect.
+ remove special fallback definition for NCURSES_ATTR_T, since macros
have resolved type-mismatches using casts (cf: 970412).
+ fixes for win_driver.c:
+ handle repainting on endwin/refresh combination.
+ implement beep().
+ minor cleanup.
20140802
+ minor portability fixes for MinGW:
+ ensure WINVER is defined in makefiles rather than using headers
+ add check for gnatprep "-T" option
+ work around bug introduced by gcc 4.8.1 in MinGW which breaks
"trace" feature:
http://stackoverflow.com/questions/20877689/gcc-4-8-1-minggw-d-option-does-not-work-as-usual
+ fix most compiler warnings for Cygwin ncurses-examples.
+ restore "redundant" -I options in test/Makefile.in, since they are
typically needed when building the derived ncurses-examples package
(cf: 20140726).
20140726
+ eliminate some redundant -I options used for building libraries, and
ensure that ${srcdir} is added to the include-options (prompted by
discussion with Paul Gilmartin).
+ modify configure script to work with Minix3.2
+ add form library extension O_DYNAMIC_JUSTIFY option which can be
used to override the different treatment of justification for static
versus dynamic fields (adapted from patch by Leon Winter).
+ add a null pointer check in test/edit_field.c (report/analysis by
Leon Winter, cf: 20130608).
20140719
+ make workarounds for compiling test-programs with NetBSD curses.
+ improve configure macro CF_ADD_LIBS, to eliminate repeated -l/-L
options, from xterm changes.
20140712
+ correct Charable() macro check for A_ALTCHARSET in wide-characters.
+ build-fix for position-debug code in tty_update.c, to work with or
without sp-funcs.
20140705
+ add w/W toggle to ncurses.c 'B' test, to demonstrate permutation of
video-attributes and colors with double-width character strings.
20140629
+ correct check in win_driver.c for saving screen contents, e.g., when
NCURSES_CONSOLE2 is set (cf: 20140503).
+ reorganize b/B menu items in ncurses.c, putting the test-strings into
subwindows. This is needed for a planned change to use Unicode
fullwidth characters in the test-screens.
+ correct update to form status for _NEWTOP, broken by fixes for
compiler warnings (patch by Leon Winter, cf: 20120616).
20140621
+ change shared-library suffix for AIX 5 and 6 to ".so", avoiding
conflict with the static library (report by Ben Lentz).
+ document RPATH_LIST in INSTALLATION file, as part of workarounds for
upgrading an ncurses library using the "--with-shared" option.
+ modify test/ncurses.c c/C tests to cycle through subsets of the
total number of colors, to better illustrate 8/16/88/256-colors by
providing directly comparable screens.
+ add test/dots_curses.c, for comparison with the low-level examples.
20140614
+ fix dereference before null check found by Coverity in tic.c
(cf: 20140524).
+ fix sign-extension bug in read_entry.c which prevented "toe" from
reading empty "screen+italics" entry.
+ modify sgr for screen.xterm-new to support dim capability -TD
+ add dim capability to nsterm+7 -TD
+ cancel dim capability for iterm -TD
+ add dim, invis capabilities to vte-2012 -TD
+ add sitm/ritm to konsole-base and mlterm3 -TD
20140609
> fix regression in screen terminfo entries (reports by Christian
Ebert, Gabriele Balducci) -TD
+ revert the change to screen; see notes for why this did not work -TD
+ cancel sitm/ritm for entries which extend "screen", to work around
screen's hardcoded behavior for SGR 3 -TD
20140607
+ separate masking for sgr in vidputs from sitm/ritm, which do not
overlap with sgr functionality.
+ remove unneeded -i option from adacurses-config; put -a in the -I
option for consistency (patch by Pascal Pignard).
+ update xterm-new terminfo entry to xterm patch #305 -TD
+ change format of test-scripts for Debian Ada95 and ncurses-examples
packages to quilted to work around Debian #700177 (cf: 20130907).
+ build fix for form_driver_w.c as part of ncurses-examples package for
older ncurses than 20131207.
+ add Hello World example to adacurses-config manpage.
+ remove unused --enable-pc-files option from Ada95/configure.
+ add --disable-gnat-projects option for testing.
+ revert changes to Ada95 project-files configuration (cf: 20140524).
+ corrected usage message in adacurses-config.
20140524
+ fix typo in ncurses manpage for the NCURSES_NO_MAGIC_COOKIE
environment variable.
+ improve discussion of input-echoing in curs_getch.3x
+ clarify discussion in curs_addch.3x of wrapping.
+ modify parametrized.h to make fln non-padded.
+ correct several entries which had termcap-style padding used in
terminfo: adm21, aj510, alto-h19, att605-pc, x820 -TD
+ correct syntax for padding in some entries: dg211, h19 -TD
+ correct ti924-8 which had confused padding versus octal escapes -TD
+ correct padding in sbi entry -TD
+ fix an old bug in the termcap emulation; "%i" was ignored in tparm()
because the parameters to be incremented were already on the internal
stack (report by Corinna Vinschen).
+ modify tic's "-c" option to take into account the "-C" option to
activate additional checks which compare the results from running
tparm() on the terminfo expressions versus the translated termcap
expressions.
+ modify tic to allow it to read from FIFOs (report by Matthieu Fronton,
cf: 20120324).
> patches by Nicolas Boulenguez:
+ explicit dereferences to suppress some style warnings.
+ when c_varargs_to_ada.c includes its header, use double quotes
instead of <>.
+ samples/ncurses2-util.adb: removed unused with clause. The warning
was removed by an obsolete pragma.
+ replaced Unreferenced pragmas with Warnings (Off). The latter,
available with older GNATs, needs no configure test. This also
replaces 3 untested Unreferenced pragmas.
+ simplified To_C usage in trace handling. Using two parameters allows
some basic formatting, and avoids a warning about security with some
compiler flags.
+ for generated Ada sources, replace many snippets with one pure
package.
+ removed C_Chtype and its conversions.
+ removed C_AttrType and its conversions.
+ removed conversions between int, Item_Option_Set, Menu_Option_Set.
+ removed int, Field_Option_Set, Item_Option_Set conversions.
+ removed C_TraceType, Attribute_Option_Set conversions.
+ replaced C.int with direct use of Eti_Error, now enumerated. As it
was used in a case statement, values were tested by the Ada compiler
to be consecutive anyway.
+ src/Makefile.in: remove duplicate stanza
+ only consider using a project for shared libraries.
+ style. Silent gnat-4.9 warning about misplaced "then".
+ generate shared library project to honor ADAFLAGS, LDFLAGS.
20140510
+ cleanup recently introduced compiler warnings for MingW port.
+ workaround for ${MAKEFLAGS} configure check versus GNU make 4.0,
which introduces more than one gratuitous incompatibility.
20140503
+ add vt520ansi terminfo entry (patch by Mike Gran)
+ further improve MinGW support for the scenario where there is an
ANSI-escapes handler such as ansicon running in the console window
(patch by Juergen Pfeifer).
20140426
+ add --disable-lib-suffixes option (adapted from patch by Juergen
Pfeifer).
+ merge some changes from Juergen Pfeifer's work with MSYS2, to
simplify later merging:
+ use NC_ISATTY() macro for isatty() in library
+ add _nc_mingw_isatty() and related functions to windows-driver
+ rename terminal driver entrypoints to simplify grep's
+ remove a check in the sp-funcs flavor of newterm() which allowed only
the first call to newterm() to succeed (report by Thomas Beierlein,
cf: 20090927).
20140419
+ update config.guess, config.sub from
http://git.savannah.gnu.org/cgit/config.git
20140412
+ modify configure script:
+ drop the -no-gcc option from Intel compiler, from lynx changes.
+ extend the --with-hashed-db configure option to simplify building
with different versions of Berkeley database using FreeBSD ports.
+ improve initialization for MinGW port (Juergen Pfeifer):
+ enforce Windows-style path-separator if cross-compiling,
+ add a driver-name method to each of the drivers,
+ allow the Windows driver name to match "unknown", ignoring case,
+ lengthen the built-in name for the Windows console driver to
"#win32console", and
+ move the comparison of driver-names allowing abbreviation, e.g.,
to "#win32con" into the Windows console driver.
20140329
+ add check in tic for mismatch between ccc and initp/initc
+ cancel ccc in putty-256color and konsole-256color for consistency
with the cancelled initc capability (patch by Sven Zuhlsdorf).
+ add xterm+256setaf building block for various terminals which only
get the 256-color feature half-implemented -TD
+ updated "st" entry (leaving the 0.1.1 version as "simpleterm") to
0.4.1 -TD
20140323
+ fix typo in "mlterm" entry (report by Gabriele Balducci) -TD
20140322
+ use types from in sample build-scripts for chtype, etc.
+ modify configure script and curses.h.in to allow the types specified
using --with-chtype and related options to be defined in
+ add terminology entry -TD
+ add mlterm3 entry, use that as "mlterm" -TD
+ inherit mlterm-256color from mlterm -TD
20140315
+ modify _nc_New_TopRow_and_CurrentItem() to ensure that the menu's
top-row is adjusted as needed to ensure that the current item is
on the screen (patch by Johann Klammer).
+ add wgetdelay() to retrieve _delay member of WINDOW if it happens to
be opaque, e.g., in the pthread configuration (prompted by patch by
Soren Brinkmann).
20140308
+ modify ifdef in read_entry.c to handle the case where
NCURSES_USE_DATABASE is not defined (patch by Xin Li).
+ add cast in form_driver_w() to fix ARM build (patch by Xin Li).
+ add logic to win_driver.c to save/restore screen contents when not
allocating a console-buffer (cf: 20140215).
20140301
+ clarify error-returns from newwin (report by Ruslan Nabioullin).
20140222
+ fix some compiler warnings in win_driver.c
+ updated notes for wsvt25 based on tack and vttest -TD
+ add teken entry to show actual properties of FreeBSD's "xterm"
console -TD
20140215
+ in-progress changes to win_driver.c to implement output without
allocating a console-buffer. This uses a pre-existing environment
variable NCGDB used by Juergen Pfeifer for debugging (prompted by
discussion with Erwin Waterlander regarding Console2, which hangs
when reading in an allocated console-buffer).
+ add -t option to gdc.c, and modify to accept "S" to step through the
scrolling-stages.
+ regenerate NCURSES-Programming-HOWTO.html to fix some of the broken
html emitted by docbook.
20140209
+ modify CF_XOPEN_SOURCE macro to omit followup check to determine if
_XOPEN_SOURCE can/should be defined. g++ 4.7.2 built on Solaris 10
has some header breakage due to its own predefinition of this symbol
(report by Jean-Pierre Flori, Sage #15796).
20140201
+ add/use symbol NCURSES_PAIRS_T like NCURSES_COLOR_T, to illustrate
which "short" types are for color pairs and which are color values.
+ fix build for s390x, by correcting field bit offsets in generated
representation clauses when int=32 long=64 and endian=big, or at
least on s390x (patch by Nicolas Boulenguez).
+ minor cleanup change to test/form_driver_w.c (patch by Gaute Hope).
20140125
+ remove unnecessary ifdef's in Ada95/gen/gen.c, which reportedly do
not work as is with gcc 4.8 due to fixes using chtype cast made for
new compiler warnings by gcc 4.8 in 20130824 (Debian #735753, patch
by Nicolas Boulenguez).
20140118
+ apply includesubdir variable which was introduced in 20130805 to
gen-pkgconfig.in (Debian #735782).
20131221
+ further improved man2html, used this to fix broken links in html
manpages. See
ftp://ftp.invisible-island.net/ncurses/patches/man2html
20131214
+ modify configure-script/ifdef's to allow OLD_TTY feature to be
suppressed if the type of ospeed is configured using the option
--with-ospeed to not be a short. By default, it is a short for
termcap-compatibility (adapted from suggestion by Christian
Weisgerber).
+ correct a typo in _nc_baudrate() (patch by Christian Weisgerber,
cf: 20061230).
+ fix a few -Wlogical-op warnings.
+ updated llib-l* files.
20131207
+ add form_driver_w() entrypoint to wide-character forms library, as
well as test program form_driver_w (adapted from patch by Gaute
Hope).
20131123
+ minor fix for CF_GCC_WARNINGS to special-case options which are not
recognized by clang.
20131116
+ add special case to configure script to move _XOPEN_SOURCE_EXTENDED
definition from CPPFLAGS to CFLAGS if it happens to be needed for
Solaris, because g++ errors with that definition (report by
Jean-Pierre Flori, Sage #15268).
+ correct logic in infocmp's -i option which was intended to ignore
strings which correspond to function-keys as candidates for piecing
together initialization- or reset-strings. The problem dates to
1.9.7a, but was overlooked until changes in -Wlogical-op warnings for
gcc 4.8 (report by David Binderman).
+ updated CF_GCC_WARNINGS to documented options for gcc 4.9.0, moving
checks for -Wextra and -Wdeclaration-after-statement into the macro,
and adding checks for -Wignored-qualifiers, -Wlogical-op and
-Wvarargs
+ updated CF_CURSES_UNCTRL_H and CF_SHARED_OPTS macros from ongoing
work on cdk.
+ update config.sub from
http://git.savannah.gnu.org/cgit/config.git
20131110
+ minor cleanup of terminfo.tail
20131102
+ use TS extension to describe xterm's title-escapes -TD
+ modify terminator and nsterm-s to use xterm+sl-twm building block -TD
+ update hurd.ti, add xenl to reflect 2011-03-06 change in
http://git.savannah.gnu.org/cgit/hurd/hurd.git/log/console/display.c
(Debian #727119).
+ simplify pfkey expression in ansi.sys -TD
20131027
+ correct/simplify ifdef's for cur_term versus broken-linker and
reentrant options (report by Jean-Pierre Flori, cf: 20090530).
+ modify release/version combinations in test build-scripts to make
them more consistent with other packages.
20131019
+ add nc_mingw.h to installed headers for MinGW port; needed for
compiling ncurses-examples.
+ add rpm-script for testing cross-compile of ncurses-examples.
20131014
+ fix new typo in CF_ADA_INCLUDE_DIRS macro (report by Roumen Petrov).
20131012
+ fix a few compiler warnings in progs and test.
+ minor fix to package/debian-mingw/rules, do not strip dll's.
+ minor fixes to configure script for empty $prefix, e.g., when doing
cross-compiles to MinGW.
+ add script for building test-packages of binaries cross-compiled to
MinGW using NSIS.
20131005
+ minor fixes for ncurses-example package and makefile.
+ add scripts for test-builds of cross-compiler packages for ncurses6
to MinGW.
20130928
+ some build-fixes for ncurses-examples with NetBSD-6.0 curses, though
it lacks some common functions such as use_env() which is not yet
addressed.
+ build-fix and some compiler warning fixes for ncurses-examples with
OpenBSD 5.3
+ fix a possible null-pointer reference in a trace message from newterm.
+ quiet a few warnings from NetBSD 6.0 namespace pollution by
nonstandard popcount() function in standard strings.h header.
+ ignore g++ 4.2.1 warnings for "-Weffc++" in c++/cursesmain.cc
+ fix a few overlooked places for --enable-string-hacks option.
20130921
+ fix typo in curs_attr.3x (patch by Sven Joachim, cf: 20130831).
+ build-fix for --with-shared option for DragonFly and FreeBSD (report
by Rong-En Fan, cf: 20130727).
20130907
+ build-fixes for MSYS for two test-programs (patches by Ray Donnelly,
Alexey Pavlov).
+ revert change to two of the dpkg format files, to work with dpkg
before/after Debian #700177.
+ fix gcc -Wconversion warning in wattr_get() macro.
+ add msys and msysdll to known host/configuration types (patch by
Alexey Pavlov).
+ modify CF_RPATH_HACK configure macro to not rely upon "-u" option
of sort, improving portability.
+ minor improvements for test-programs from reviewing Solaris port.
+ update config.guess, config.sub from
http://git.savannah.gnu.org/cgit/config.git
20130831
+ modify test/ncurses.c b/B tests to display lines only for the
attributes which a given terminal supports, to make room for an
italics test.
+ completed ncv table in terminfo.tail; it did not list the wide
character codes listed in X/Open Curses issue 7.
+ add A_ITALIC extension (prompted by discussion with Egmont Koblinger).
20130824
+ fix some gcc 4.8 -Wconversion warnings.
+ change format of dpkg test-scripts to quilted to work around bug
introduced by Debian #700177.
+ discard cached keyname() values if meta() is changed after a value
was cached using (report by Kurban Mallachiev).
20130816
+ add checks in tic to warn about terminals which lack cursor
addressing, capabilities or having those, are marked as hard_copy or
generic_type.
+ use --without-progs in mingw-ncurses rpm.
+ split out _nc_init_termtype() from alloc_entry.c to use in MinGW
port when tic and other programs are not needed.
20130805
+ minor fixes to the --disable-overwrite logic, to ensure that the
configured $(includedir) is not cancelled by the mingwxx-filesystem
rpm macros.
+ add --disable-db-install configure option, to simplify building
cross-compile support packages.
+ add mingw-ncurses.spec file, for testing cross-compiles.
20130727
+ improve configure macros from ongoing work on cdk, dialog, xterm:
+ CF_ADD_LIB_AFTER - fix a problem with -Wl options
+ CF_RPATH_HACK - add missing result-message
+ CF_SHARED_OPTS - modify to use $rel_builddir in cygwin and mingw
dll symbols (which can be overridden) rather than explicit "../".
+ CF_SHARED_OPTS - modify NetBSD and DragonFly symbols to use ${CC}
rather than ${LD} to improve rpath support.
+ CF_SHARED_OPTS - add a symbol to denote the temporary files that
are created by the macro, to simplify clean-rules.
+ CF_X_ATHENA - trim extra libraries to work with -Wl,--as-needed
+ fix a regression in hashed-database support for NetBSD, which uses
the key-size differently from other implementations (cf: 20121229).
20130720
+ further improvements for setupterm manpage, clarifying the
initialization of cur_term.
20130713
+ improve manpages for initscr and setupterm.
+ minor compiler-warning fixes
20130706
+ add fallback defs for and (cf: 20120225).
+ add check for size of wchar_t, use that to suppress a chunk of
wcwidth.h in MinGW port.
+ quiet linker warnings for MinGW cross-compile with dll's using the
--enable-auto-import flag.
+ add ncurses.map rule to ncurses/Makefile to help diagnose symbol
table issues.
20130622
+ modify the clear program to take into account the E3 extended
capability to clear the terminal's scrollback buffer (patch by
Miroslav Lichvar, Redhat #815790).
+ clarify in resizeterm manpage that LINES and COLS are updated.
+ updated ansi example in terminfo.tail, correct misordered example
of sgr.
+ fix other doclifter warnings for manpages
+ remove unnecessary ".ta" in terminfo.tail, add missing ".fi"
(patch by Eric Raymond).
20130615
+ minor changes to some configure macros to make them more reusable.
+ fixes for tabs program (prompted by report by Nick Andrik).
+ corrected logic in command-line parsing of -a and -c predefined
tab-lists options.
+ allow "-0" and "-8" options to be combined with others, e.g.,"-0d".
+ make warning messages more consistent with the other utilities by
not printing the full pathname of the program.
+ add -V option for consistency with other utilities.
+ fix off-by-one in columns for tabs program when processing an option
such as "-5" (patch by Nick Andrik).
20130608
+ add to test/demo_forms.c examples of using the menu-hooks as well
as showing how the menu item user-data can be used to pass a callback
function pointer.
+ add test/dots_termcap.c
+ remove setupterm call from test/demo_termcap.c
+ build-fix if --disable-ext-funcs configure option is used.
+ modified test/edit_field.c and test/demo_forms.c to move the lengths
into a user-data structure, keeping the original string for later
expansion to free-format input/out demo.
+ modified test/demo_forms.c to load data from file.
+ added note to clarify Terminal.app's non-emulation of the various
terminal types listed in the preferences dialog -TD
+ fix regression in error-reporting in lib_setup.c (Debian #711134,
cf: 20121117).
+ build-fix for a case where --enable-broken_linker and
--enable-reentrant options are combined (report by George R Goffe).
20130525
+ modify mvcur() to distinguish between internal use by the ncurses
library, and external callers, preventing it from reading the content
of the screen which is only nonblank when curses calls have updated
it. This makes test/dots_mvcur.c avoid painting colored cells in
the left margin of the display.
+ minor fix to test/dots_mvcur.c
+ move configured symbols USE_DATABASE and USE_TERMCAP to term.h as
NCURSES_USE_DATABASE and NCURSES_USE_TERMCAP to allow consistent
use of these symbols in term_entry.h
20130518
+ corrected ifdefs in test/testcurs.c to allow comparison of mouse
interface versus pdcurses (cf: 20130316).
+ add pow() to configure-check for math library, needed since
20121208 for test/hanoi (Debian #708056).
+ regenerated html manpages.
+ update doctype used for html documentation.
20130511
+ move nsterm-related entries out of "obsolete" section to more
plausible "ansi consoles" -TD
+ additional cleanup of table-of-contents by reordering -TD
+ revise fix for check for 8-bit value in _nc_insert_ch(); prior fix
prevented inserts when video attributes were attached to the data
(cf: 20121215) (Redhat #959534).
20130504
+ fixes for issues found by Coverity:
+ correct FNKEY() macro in progs/dump_entry.c, allowing kf11-kf63 to
display when infocmp's -R option is used for HP or AIX subsets.
+ fix dead-code issue with test/movewindow.c
+ improve limited-checking in _nc_read_termtype().
20130427
+ fix clang 3.2 warning in progs/dump_entry.c
+ drop AC_TYPE_SIGNAL check; ncurses relies on c89 and later.
20130413
+ add MinGW to cases where ncurses installs by default into /usr
(prompted by discussion with Daniel Silva Ferreira).
+ add -D option to infocmp's usage-message (patch by Miroslav Lichvar).
+ add a missing 'int' type for main function in configure check for
type of bool variable, to work with clang 3.2 (report by Dmitri
Gribenko).
+ improve configure check for static_cast, to work with clang 3.2
(report by Dmitri Gribenko).
+ re-order rule for demo.o and macros defining header dependencies in
c++/Makefile.in to accommodate gmake (report by Dmitri Gribenko).
20130406
+ improve parameter checking in copywin().
+ modify configure script to work around OS X's "libtool" program, to
choose glibtool instead. At the same time, chance the autoconf macro
to look for a "tool" rather than a "prog", to help with potential use
in cross-compiling.
+ separate the rpath usage for c++ library from demo program
(Redhat #911540)
+ update/correct header-dependencies in c++ makefile (report by Werner
Fink).
+ add --with-cxx-shared to dpkg-script, as done for rpm-script.
20130324
+ build-fix for libtool configuration (reports by Daniel Silva Ferreira
and Roumen Petrov).
20130323
+ build-fix for OS X, to handle changes for --with-cxx-shared feature
(report by Christian Ebert).
+ change initialization for vt220, similar entries for consistency
with cursor-key strings (NetBSD #47674) -TD
+ further improvements to linux-16color (Benjamin Sittler)
20130316
+ additional fix for tic.c, to allocate missing buffer space.
+ eliminate configure-script warnings for gen-pkgconfig.in
+ correct typo in sgr string for sun-color,
add bold for consistency with sgr,
change smso for consistency with sgr -TD
+ correct typo in sgr string for terminator -TD
+ add blink to the attributes masked by ncv in linux-16color (report
by Benjamin Sittler)
+ improve warning message from post-load checking for missing "%?"
operator by tic/infocmp by showing the entry name and capability.
+ minor formatting improvement to tic/infocmp -f option to ensure
line split after "%;".
+ amend scripting for --with-cxx-shared option to handle the debug
library "libncurses++_g.a" (report by Sven Joachim).
20130309
+ amend change to toe.c for reading from /dev/zero, to ensure that
there is a buffer for the temporary filename (cf: 20120324).
+ regenerated html manpages.
+ fix typo in terminfo.head (report by Sven Joachim, cf: 20130302).
+ updated some autoconf macros:
+ CF_ACVERSION_CHECK, from byacc 1.9 20130304
+ CF_INTEL_COMPILER, CF_XOPEN_SOURCE from luit 2.0-20130217
+ add configure option --with-cxx-shared to permit building
libncurses++ as a shared library when using g++, e.g., the same
limitations as libtool but better integrated with the usual build
configuration (Redhat #911540).
+ modify MKkey_defs.sh to filter out build-path which was unnecessarily
shown in curses.h (Debian #689131).
20130302
+ add section to terminfo manpage discussing user-defined capabilities.
+ update manpage description of NCURSES_NO_SETBUF, explaining why it
is obsolete.
+ add a check in waddch_nosync() to ensure that tab characters are
treated as control characters; some broken locales claim they are
printable.
+ add some traces to the Windows console driver.
+ initialize a temporary array in _nc_mbtowc, needed for some cases
of raw input in MinGW port.
20130218
+ correct ifdef on change to lib_twait.c (report by Werner Fink).
+ update config.guess, config.sub
20130216
+ modify test/testcurs.c to work with mouse for ncurses as it does for
pdcurses.
+ modify test/knight.c to work with mouse for pdcurses as it does for
ncurses.
+ modify internal recursion in wgetch() which handles cooked mode to
check if the call to wgetnstr() returned an error. This can happen
when both nocbreak() and nodelay() are set, for instance (report by
Nils Christopher Brause) (cf: 960418).
+ fixes for issues found by Coverity:
+ add a check for valid position in ClearToEOS()
+ fix in lib_twait.c when --enable-wgetch-events is used, pointer
use after free.
+ improve a limit-check in make_hash.c
+ fix a memory leak in hashed_db.c
20130209
+ modify test/configure script to make it simpler to override names
of curses-related libraries, to help with linking with pdcurses in
MinGW environment.
+ if the --with-terminfo-dirs configure option is not used, there is
no corresponding compiled-in value for that. Fill in "no default
value" for that part of the manpage substitution.
20130202
+ correct initialization in knight.c which let it occasionally make
an incorrect move (cf: 20001028).
+ improve documentation of the terminfo/termcap search path.
20130126
+ further fixes to mvcur to pass callback function (cf: 20130112),
needed to make test/dots_mvcur work.
+ reduce calls to SetConsoleActiveScreenBuffer in win_driver.c, to
help reduce flicker.
+ modify configure script to omit "+b" from linker options for very
old HP-UX systems (report by Dennis Grevenstein)
+ add HP-UX workaround for missing EILSEQ on old HP-UX systems (patch
by Dennis Grevenstein).
+ restore memmove/strdup support for antique systems (request by
Dennis Grevenstein).
+ change %l behavior in tparm to push the string length onto the stack
rather than saving the formatted length into the output buffer
(report by Roy Marples, cf: 980620).
20130119
+ fixes for issues found by Coverity:
+ fix memory leak in safe_sprintf.c
+ add check for return-value in tty_update.c
+ correct initialization for -s option in test/view.c
+ add check for numeric overflow in lib_instr.c
+ improve error-checking in copywin
+ add advice in infocmp manpage for termcap users (Debian #698469).
+ add "-y" option to test/demo_termcap and test/demo_terminfo to
demonstrate behavior with/without extended capabilities.
+ updated termcap manpage to document legacy termcap behavior for
matching capability names.
+ modify name-comparison for tgetstr, etc., to accommodate legacy
applications as well as to improve compatibility with BSD 4.2
termcap implementations (Debian #698299) (cf: 980725).
20130112
+ correct prototype in manpage for vid_puts.
+ drop ncurses/tty/tty_display.h, ncurses/tty/tty_input.h, since they
are unused in the current driver model.
+ modify mvcur to use stdout except when called within the ncurses
library.
+ modify vidattr and vid_attr to use stdout as documented in manpage.
+ amend changes made to buffering in 20120825 so that the low-level
putp() call uses stdout rather than ncurses' internal buffering.
The putp_sp() call does the same, for consistency (Redhat #892674).
20130105
+ add "-s" option to test/view.c to allow it to start in single-step
mode, reducing size of trace files when it is used for debugging
MinGW changes.
+ revert part of 20121222 change to tinfo_driver.c
+ add experimental logic in win_driver.c to improve optimization of
screen updates. This does not yet work with double-width characters,
so it is ifdef'd out for the moment (prompted by report by Erwin
Waterlander regarding screen flicker).
20121229
+ fix Coverity warnings regarding copying into fixed-size buffers.
+ add throw-declarations in the c++ binding per Coverity warning.
+ minor changes to new-items for consistent reference to bug-report
numbers.
20121222
+ add *.dSYM directories to clean-rule in ncurses directory makefile,
for Mac OS builds.
+ add a configure check for gcc option -no-cpp-precomp, which is not
available in all Mac OS X configurations (report by Andras Salamon,
cf: 20011208).
+ improve 20021221 workaround for broken acs, handling a case where
that ACS_xxx character is not in the acsc string but there is a known
wide-character which can be used.
20121215
+ fix several warnings from clang 3.1 --analyze, includes correcting
a null-pointer check in _nc_mvcur_resume.
+ correct display of double-width characters with MinGW port (report
by Erwin Waterlander).
+ replace MinGW's wcrtomb(), fixing a problem with _nc_viscbuf
> fixes based on Coverity report:
+ correct coloring in test/bs.c
+ correct check for 8-bit value in _nc_insert_ch().
+ remove dead code in progs/tset.c, test/linedata.h
+ add null-pointer checks in lib_tracemse.c, panel.priv.h, and some
test-programs.
20121208
+ modify test/knight.c to show the number of choices possible for
each position in automove option, e.g., to allow user to follow
Warnsdorff's rule to solve the puzzle.
+ modify test/hanoi.c to show the minimum number of moves possible for
the given number of tiles (prompted by patch by Lucas Gioia).
> fixes based on Coverity report:
+ remove a few redundant checks.
+ correct logic in test/bs.c, when randomly placing a specific type of
ship.
+ check return value from remove/unlink in tic.
+ check return value from sscanf in test/ncurses.c
+ fix a null dereference in c++/cursesw.cc
+ fix two instances of uninitialized variables when configuring for the
terminal driver.
+ correct scope of variable used in SetSafeOutcWrapper macro.
+ set umask when calling mkstemp in tic.
+ initialize wbkgrndset() temporary variable when extended-colors are
used.
20121201
+ also replace MinGW's wctomb(), fixing a problem with setcchar().
+ modify test/view.c to load UTF-8 when built with MinGW by using
regular win32 API because the MinGW functions mblen() and mbtowc()
do not work.
20121124
+ correct order of color initialization versus display in some of the
test-programs, e.g., test_addstr.c
> fixes based on Coverity report:
+ delete windows on exit from some of the test-programs.
20121117
> fixes based on Coverity report:
+ add missing braces around FreeAndNull in two places.
+ various fixes in test/ncurses.c
+ improve limit-checks in tinfo/make_hash.c, tinfo/read_entry.c
+ correct malloc size in progs/infocmp.c
+ guard against negative array indices in test/knight.c
+ fix off-by-one limit check in test/color_name.h
+ add null-pointer check in progs/tabs.c, test/bs.c, test/demo_forms.c,
test/inchs.c
+ fix memory-leak in tinfo/lib_setup.c, progs/toe.c,
test/clip_printw.c, test/demo_menus.c
+ delete unused windows in test/chgat.c, test/clip_printw.c,
test/insdelln.c, test/newdemo.c on error-return.
20121110
+ modify configure macro CF_INCLUDE_DIRS to put $CPPFLAGS after the
local -I include options in case someone has set conflicting -I
options in $CPPFLAGS (prompted by patch for ncurses/Makefile.in by
Vassili Courzakis).
+ modify the ncurses*-config scripts to eliminate relative paths from
the RPATH_LIST variable, e.g., "../lib" as used in installing shared
libraries or executables.
20121102
+ realign these related pages:
curs_add_wchstr.3x
curs_addchstr.3x
curs_addstr.3x
curs_addwstr.3x
and fix a long-ago error in curs_addstr.3x which said that a -1
length parameter would only write as much as fit onto one line
(report by Reuben Thomas).
+ remove obsolete fallback _nc_memmove() for memmove()/bcopy().
+ remove obsolete fallback _nc_strdup() for strdup().
+ cancel any debug-rpm in package/ncurses.spec
+ reviewed vte-2012, reverted most of the change since it was incorrect
based on testing with tack -TD
+ un-cancel the initc in vte-256color, since this was implemented
starting with version 0.20 in 2009 -TD
20121026
+ improve malloc/realloc checking (prompted by discussion in Redhat
#866989).
+ add ncurses test-program as "ncurses6" to the rpm- and dpkg-scripts.
+ updated configure macros CF_GCC_VERSION and CF_WITH_PATHLIST. The
first corrects pattern used for Mac OS X's customization of gcc.
20121017
+ fix change to _nc_scroll_optimize(), which incorrectly freed memory
(Redhat #866989).
20121013
+ add vte-2012, gnome-2012, making these the defaults for vte/gnome
(patch by Christian Persch).
20121006
+ improve CF_GCC_VERSION to work around Debian's customization of gcc
--version message.
+ improve configure macros as done in byacc:
+ drop 2.13 compatibility; use 2.52.xxxx version only since EMX port
has used that for a while.
+ add 3rd parameter to AC_DEFINE's to allow autoheader to run, i.e.,
for experimental use.
+ remove unused configure macros.
+ modify configure script and makefiles to quiet new autoconf warning
for LIBS_TO_MAKE variable.
+ modify configure script to show $PATH_SEPARATOR variable.
+ update config.guess, config.sub
20120922
+ modify setupterm to set its copy of TERM to "unknown" if configured
for the terminal driver and TERM was null or empty.
+ modify treatment of TERM variable for MinGW port to allow explicit
use of the windows console driver by checking if $TERM is set to
"#win32con" or an abbreviation of that.
+ undo recent change to fallback definition of vsscanf() to build with
older Solaris compilers (cf: 20120728).
20120908
+ add test-screens to test/ncurses to show 256-characters at a time,
to help with MinGW port.
20120903
+ simplify varargs logic in lib_printw.c; va_copy is no longer needed
there.
+ modifications for MinGW port to make wide-character display usable.
20120902
+ regenerate configure script (report by Sven Joachim, cf: 20120901).
20120901
+ add a null-pointer check in _nc_flush (cf: 20120825).
+ fix a case in _nc_scroll_optimize() where the _oldnums_list array
might not be allocated.
+ improve comparisons in configure.in for unset shell variables.
20120826
+ increase size of ncurses' output-buffer, in case of very small
initial screen-sizes.
+ fix evaluation of TERMINFO and TERMINFO_DIRS default values as needed
after changes to use --datarootdir (reports by Gabriele Balducci,
Roumen Petrov).
20120825
+ change output buffering scheme, using buffer maintained by ncurses
rather than stdio, to avoid problems with SIGTSTP handling (report
by Brian Bloniarz).
20120811
+ update autoconf patch to 2.52.20120811, adding --datarootdir
(prompted by discussion with Erwin Waterlander).
+ improve description of --enable-reentrant option in README and the
INSTALL file.
+ add nsterm-256color, make this the default nsterm -TD
+ remove bw from nsterm-bce, per testing with tack -TD
20120804
+ update test/configure, adding check for tinfo library.
+ improve limit-checks for the getch fifo (report by Werner Fink).
+ fix a remaining mismatch between $with_echo and the symbols updated
for CF_DISABLE_ECHO affecting parameters for mk-2nd.awk (report by
Sven Joachim, cf: 20120317).
+ modify followup check for pkg-config's library directory in the
--enable-pc-files option to validate syntax (report by Sven Joachim,
cf: 20110716).
20120728
+ correct path for ncurses_mingw.h in include/headers, in case build
is done outside source-tree (patch by Roumen Petrov).
+ modify some older xterm entries to align with xterm source -TD
+ separate "xterm-old" alias from "xterm-r6" -TD
+ add E3 extended capability to xterm-basic and putty -TD
+ parenthesize parameters of other macros in curses.h -TD
+ parenthesize parameter of COLOR_PAIR and PAIR_NUMBER in curses.h
in case it happens to be a comma-expression, etc. (patch by Nick
Black).
20120721
+ improved form_request_by_name() and menu_request_by_name().
+ eliminate two fixed-size buffers in toe.c
+ extend use_tioctl() to have expected behavior when use_env(FALSE) and
use_tioctl(TRUE) are called.
+ modify ncurses test-program, adding -E and -T options to demonstrate
use_env() versus use_tioctl().
20120714
+ add use_tioctl() function (adapted from patch by Werner Fink,
Novell #769788):
20120707
+ add ncurses_mingw.h to installed headers (prompted by patch by
Juergen Pfeifer).
+ clarify return-codes from wgetch() in response to SIGWINCH (prompted
by Novell #769788).
+ modify resizeterm() to always push a KEY_RESIZE onto the fifo, even
if screensize is unchanged. Modify _nc_update_screensize() to push a
KEY_RESIZE if there was a SIGWINCH, even if it does not call
resizeterm(). These changes eliminate the case where a SIGWINCH is
received, but ERR returned from wgetch or wgetnstr because the screen
dimensions did not change (Novell #769788).
20120630
+ add --enable-interop to sample package scripts (suggested by Juergen
Pfeifer).
+ update CF_PATH_SYNTAX macro, from mawk changes.
+ modify mk-0th.awk to allow for generating llib-ltic, etc., though
some work is needed on cproto to work with lib_gen.c to update
llib-lncurses.
+ remove redundant getenv() cal in database-iterator leftover from
cleanup in 20120622 changes (report by Sven Joachim).
20120622
+ add -d, -e and -q options to test/demo_terminfo and test/demo_termcap
+ fix caching of environment variables in database-iterator (patch by
Philippe Troin, Redhat #831366).
20120616
+ add configure check to distinguish clang from gcc to eliminate
warnings about unused command-line parameters when compiler warnings
are enabled.
+ improve behavior when updating terminfo entries which are hardlinked
by allowing for the possibility that an alias has been repurposed to
a new primary name.
+ fix some strict compiler warnings based on package scripts.
+ further fixes for configure check for working poll (Debian #676461).
20120608
+ fix an uninitialized variable in -c/-n logic for infocmp changes
(cf: 20120526).
+ corrected fix for building c++ binding with clang 3.0 (report/patch
by Richard Yao, Gentoo #417613, cf: 20110409)
+ correct configure check for working poll, fixing the case where stdin
is redirected, e.g., in rpm/dpkg builds (Debian #676461).
+ add rpm- and dpkg-scripts, to test those build-environments.
The resulting packages are used only for testing.
20120602
+ add kdch1 aka "Remove" to vt220 and vt220-8 entries -TD
+ add kdch1, etc., to qvt108 -TD
+ add dl1/il1 to some entries based on dl/il values -TD
+ add dl to simpleterm -TD
+ add consistency-checks in tic for insert-line vs delete-line
controls, and insert/delete-char keys
+ correct no-leaks logic in infocmp when doing comparisons, fixing
duplicate free of entries given via the command-line, and freeing
entries loaded from the last-but-one of files specified on the
command-line.
+ add kdch1 to wsvt25 entry from NetBSD CVS (reported by David Lord,
analysis by Martin Husemann).
+ add cnorm/civis to wsvt25 entry from NetBSD CVS (report/analysis by
Onno van der Linden).
20120526
+ extend -c and -n options of infocmp to allow comparing more than two
entries.
+ correct check in infocmp for number of terminal names when more than
two are given.
+ correct typo in curs_threads.3x (report by Yanhui Shen on
freebsd-hackers mailing list).
20120512
+ corrected 'op' for bterm (report by Samuel Thibault) -TD
+ modify test/background.c to demonstrate a background character
holding a colored ACS_HLINE. The behavior differs from SVr4 due to
the thick- and double-line extension (cf: 20091003).
+ modify handling of acs characters in PutAttrChar to avoid mapping an
unmapped character to a space with A_ALTCHARSET set.
+ rewrite vt520 entry based on vt420 -TD
20120505
+ remove p6 (bold) from opus3n1+ for consistency -TD
+ remove acs stuff from env230 per clues in Ingres termcap -TD
+ modify env230 sgr/sgr0 to match other capabilities -TD
+ modify smacs/rmacs in bq300-8 to match sgr/sgr0 -TD
+ make sgr for dku7202 agree with other caps -TD
+ make sgr for ibmpc agree with other caps -TD
+ make sgr for tek4107 agree with other caps -TD
+ make sgr for ndr9500 agree with other caps -TD
+ make sgr for sco-ansi agree with other caps -TD
+ make sgr for d410 agree with other caps -TD
+ make sgr for d210 agree with other caps -TD
+ make sgr for d470c, d470c-7b agree with other caps -TD
+ remove redundant AC_DEFINE for NDEBUG versus Makefile definition.
+ fix a back-link in _nc_delink_entry(), which is needed if ncurses is
configured with --enable-termcap and --disable-getcap.
20120428
+ fix some inconsistencies between vt320/vt420, e.g., cnorm/civis -TD
+ add eslok flag to dec+sl -TD
+ dec+sl applies to vt320 and up -TD
+ drop wsl width from xterm+sl -TD
+ reuse xterm+sl in putty and nsca-m -TD
+ add ansi+tabs to vt520 -TD
+ add ansi+enq to vt220-vt520 -TD
+ fix a compiler warning in example in ncurses-intro.doc (Paul Waring).
+ added paragraph in keyname manpage telling how extended capabilities
are interpreted as key definitions.
+ modify tic's check of conflicting key definitions to include extended
capability strings in addition to the existing check on predefined
keys.
20120421
+ improve cleanup of temporary files in tic using atexit().
+ add msgr to vt420, similar DEC vtXXX entries -TD
+ add several missing vt420 capabilities from vt220 -TD
+ factor out ansi+pp from several entries -TD
+ change xterm+sl and xterm+sl-twm to include only the status-line
capabilities and not "use=xterm", making them more generally useful
as building-blocks -TD
+ add dec+sl building block, as example -TD
20120414
+ add XT to some terminfo entries to improve usefulness for other
applications than screen, which would like to pretend that xterm's
title is a status-line. -TD
+ change use-clauses in ansi-mtabs, hp2626, and hp2622 based on review
of ordering and overrides -TD
+ add consistency check in tic for screen's "XT" capability.
+ add section in terminfo.src summarizing the user-defined capabilities
used in that file -TD
20120407
+ fix an inconsistency between tic/infocmp "-x" option; tic omits all
non-standard capabilities, while infocmp was ignoring only the user
definable capabilities.
+ improve special case in tic parsing of description to allow it to be
followed by terminfo capabilities. Previously the description had to
be the last field on an input line to allow tic to distinguish
between termcap and terminfo format while still allowing commas to be
embedded in the description.
+ correct variable name in gen_edit.sh which broke configurability of
the --with-xterm-kbs option.
+ revert 2011-07-16 change to "linux" alias, return to "linux2.2" -TD
+ further amend 20110910 change, providing for configure-script
override of the "linux" terminfo entry to install and changing the
default for that to "linux2.2" (Debian #665959).
20120331
+ update Ada95/configure to use CF_DISABLE_ECHO (cf: 20120317).
+ correct order of use-clauses in st-256color -TD
+ modify configure script to look for gnatgcc if the Ada95 binding
is built, in preference to the default gcc/cc (suggested by
Nicolas Boulenguez).
+ modify configure script to ensure that the same -On option used for
the C compiler in CFLAGS is used for ADAFLAGS rather than simply
using "-O3" (suggested by Nicolas Boulenguez)
20120324
+ amend an old fix so that next_char() exits properly for empty files,
e.g., from reading /dev/null (cf: 20080804).
+ modify tic so that it can read from the standard input, or from
a character device. Because tic uses seek's, this requires writing
the data to a temporary file first (prompted by remark by Sven
Joachim) (cf: 20000923).
20120317
+ correct a check made in lib_napms.c, so that terminfo applications
can again use napms() (cf: 20110604).
+ add a note in tic.h regarding required casts for ABSENT_BOOLEAN
(cf: 20040327).
+ correct scripting for --disable-echo option in test/configure.
+ amend check for missing c++ compiler to work when no error is
reported, and no variables set (cf: 20021206).
+ add/use configure macro CF_DISABLE_ECHO.
20120310
+ fix some strict compiler warnings for abi6 and 64-bits.
+ use begin_va_copy/end_va_copy macros in lib_printw.c (cf: 20120303).
+ improve a limit-check in infocmp.c (Werner Fink):
20120303
+ minor tidying of terminfo.tail, clarify reason for limitation
regarding mapping of \0 to \200
+ minor improvement to _nc_copy_termtype(), using memcpy to replace
loops.
+ fix no-leaks checking in test/demo_termcap.c to account for multiple
calls to setupterm().
+ modified the libgpm change to show previous load as a problem in the
debug-trace.
> merge some patches from OpenSUSE rpm (Werner Fink):
+ ncurses-5.7-printw.dif, fixes for varargs handling in lib_printw.c
+ ncurses-5.7-gpm.dif, do not dlopen libgpm if already loaded by
runtime linker
+ ncurses-5.6-fallback.dif, do not free arrays and strings from static
fallback entries
20120228
+ fix breakage in tic/infocmp from 20120225 (report by Werner Fink).
20120225
+ modify configure script to allow creating dll's for MinGW when
cross-compiling.
+ add --enable-string-hacks option to control whether strlcat and
strlcpy may be used. The same issue applies to OpenBSD's warnings
about snprintf, noting that this function is weakly standardized.
+ add configure checks for strlcat, strlcpy and snprintf, to help
reduce bogus warnings with OpenBSD builds.
+ build-fix for OpenBSD 4.9 to supply consistent intptr_t declaration
(cf:20111231)
+ update config.guess, config.sub
20120218
+ correct CF_ETIP_DEFINES configure macro, making it exit properly on
the first success (patch by Pierre Labastie).
+ improve configure macro CF_MKSTEMP by moving existence-check for
mkstemp out of the AC_TRY_RUN, to help with cross-compiles.
+ improve configure macro CF_FUNC_POLL from luit changes to detect
broken implementations, e.g., with Mac OS X.
+ add configure option --with-tparm-arg
+ build-fix for MinGW cross-compiling, so that make_hash does not
depend on TTY definition (cf: 20111008).
20120211
+ make sgr for xterm-pcolor agree with other caps -TD
+ make sgr for att5425 agree with other caps -TD
+ make sgr for att630 agree with other caps -TD
+ make sgr for linux entries agree with other caps -TD
+ make sgr for tvi9065 agree with other caps -TD
+ make sgr for ncr260vt200an agree with other caps -TD
+ make sgr for ncr160vt100pp agree with other caps -TD
+ make sgr for ncr260vt300an agree with other caps -TD
+ make sgr for aaa-60-dec-rv, aaa+dec agree with other caps -TD
+ make sgr for cygwin, cygwinDBG agree with other caps -TD
+ add configure option --with-xterm-kbs to simplify configuration for
Linux versus most other systems.
20120204
+ improved tic -D option, avoid making target directory and provide
better diagnostics.
20120128
+ add mach-gnu (Debian #614316, patch by Samuel Thibault)
+ add mach-gnu-color, tweaks to mach-gnu terminfo -TD
+ make sgr for sun-color agree with smso -TD
+ make sgr for prism9 agree with other caps -TD
+ make sgr for icl6404 agree with other caps -TD
+ make sgr for ofcons agree with other caps -TD
+ make sgr for att5410v1, att4415, att620 agree with other caps -TD
+ make sgr for aaa-unk, aaa-rv agree with other caps -TD
+ make sgr for avt-ns agree with other caps -TD
+ amend fix intended to separate fixups for acsc to allow "tic -cv" to
give verbose warnings (cf: 20110730).
+ modify misc/gen-edit.sh to make the location of the tabset directory
consistent with misc/Makefile.in, i.e., using ${datadir}/tabset
(Debian #653435, patch by Sven Joachim).
20120121
+ add --with-lib-prefix option to allow configuring for old/new flavors
of OS/2 EMX.
+ modify check for gnat version to allow for year, as used in FreeBSD
port.
+ modify check_existence() in db_iterator.c to simply check if the
path is a directory or file, according to the need. Checking for
directory size also gives no usable result with OS/2 (cf: 20120107).
+ support OS/2 kLIBC (patch by KO Myung-Hun).
20120114
+ several improvements to test/movewindow.c (prompted by discussion on
Linux Mint forum):
+ modify movement commands to make them continuous
+ rewrote the test for mvderwin
+ rewrote the test for recursive mvwin
+ split-out reusable CF_WITH_NCURSES_ETC macro in test/configure.in
+ updated configure macro CF_XOPEN_SOURCE, build-fixes for Mac OS X
and OpenBSD.
+ regenerated html manpages.
20120107
+ various improvements for MinGW (Juergen Pfeifer):
+ modify stat() calls to ignore the st_size member
+ drop mk-dlls.sh script.
+ change recommended regular expression library.
+ modify rain.c to allow for threaded configuration.
+ modify tset.c to allow for case when size-change logic is not used.
20111231
+ modify toe's report when -a and -s options are combined, to add
a column showing which entries belong to a given database.
+ add -s option to toe, to sort its output.
+ modify progs/toe.c, simplifying use of db-iterator results to use
caching improvements from 20111001 and 20111126.
+ correct generation of pc-files when ticlib or termlib options are
given to rename the corresponding tic- or tinfo-libraries (report
by Sven Joachim).
20111224
+ document a portability issue with tput, i.e., that scripts which work
with ncurses may fail in other implementations that do no parameter
analysis.
+ add putty-sco entry -TD
20111217
+ review/fix places in manpages where --program-prefix configure option
was not being used.
+ add -D option to infocmp, to show the database locations that it
could use.
+ fix build for the special case where term-driver, ticlib and termlib
are all enabled. The terminal driver depends on a few features in
the base ncurses library, so tic's dependencies include both ncurses
and termlib.
+ fix build work for term-driver when --enable-wgetch-events option is
enabled.
+ use types to fix some questionable casts to void*.
20111210
+ modify configure script to check if thread library provides
pthread_mutexattr_settype(), e.g., not provided by Solaris 2.6
+ modify configure script to suppress check to define _XOPEN_SOURCE
for IRIX64, since its header files have a conflict versus
_SGI_SOURCE.
+ modify configure script to add ".pc" files for tic- and
tinfo-libraries, which were omitted in recent change (cf: 20111126).
+ fix inconsistent checks on $PKG_CONFIG variable in configure script.
20111203
+ modify configure-check for etip.h dependencies, supplying a temporary
copy of ncurses_dll.h since it is a generated file (prompted by
Debian #646977).
+ modify CF_CPP_PARAM_INIT "main" function to work with current C++.
20111126
+ correct database iterator's check for duplicate entries
(cf: 20111001).
+ modify database iterator to ignore $TERMCAP when it is not an
absolute pathname.
+ add -D option to tic, to show the database locations that it could
use.
+ improve description of database locations in tic manpage.
+ modify the configure script to generate a list of the ".pc" files to
generate, rather than deriving the list from the libraries which have
been built (patch by Mike Frysinger).
+ use AC_CHECK_TOOLS in preference to AC_PATH_PROGS when searching for
ncurses*-config, e.g., in Ada95/configure and test/configure (adapted
from patch by Mike Frysinger).
20111119
+ remove obsolete/conflicting fallback definition for _POSIX_SOURCE
from curses.priv.h, fixing a regression with IRIX64 and Tru64
(cf: 20110416)
+ modify _nc_tic_dir() to ensure that its return-value is nonnull,
i.e., the database iterator was not initialized. This case is needed
to when tic is translating to termcap, rather than loading the
database (cf: 20111001).
20111112
+ add pccon entries for OpenBSD console (Alexei Malinin).
+ build-fix for OpenBSD 4.9 with gcc 4.2.1, setting _XOPEN_SOURCE to
600 to work around inconsistent ifdef'ing of wcstof between C and
C++ header files.
+ modify capconvert script to accept more than exact match on "xterm",
e.g., the "xterm-*" variants, to exclude from the conversion (patch
by Robert Millan).
+ add -lc_r as alternative for -lpthread, allows build of threaded code
in older FreeBSD machines.
+ build-fix for MirBSD, which fails when either _XOPEN_SOURCE or
_POSIX_SOURCE are defined.
+ fix a typo misc/Makefile.in, used in uninstalling pc-files.
20111030
+ modify make_db_path() to allow creating "terminfo.db" in the same
directory as an existing "terminfo" directory. This fixes a case
where switching between hashed/filesystem databases would cause the
new hashed database to be installed in the next best location -
root's home directory.
+ add variable cf_cv_prog_gnat_correct to those passed to
config.status, fixing a problem with Ada95 builds (cf: 20111022).
+ change feature test from _XPG5 to _XOPEN_SOURCE in two places, to
accommodate broken implementations for _XPG6.
+ eliminate usage of NULL symbol from etip.h, to reduce header
interdependencies.
+ add configure check to decide when to add _XOPEN_SOURCE define to
compiler options, i.e., for Solaris 10 and later (cf: 20100403).
This is a workaround for gcc 4.6, which fails to build the c++
binding if that symbol is defined by the application, due to
incorrectly combining the corresponding feature test macros
(report by Peter Kruse).
20111022
+ correct logic for discarding mouse events, retaining the partial
events used to build up click, double-click, etc, until needed
(cf: 20110917).
+ fix configure script to avoid creating unused Ada95 makefile when
gnat does not work.
+ cleanup width-related gcc 3.4.3 warnings for 64-bit platform, for the
internal functions of libncurses. The external interface of courses
uses bool, which still produces these warnings.
20111015
+ improve description of --disable-tic-depends option to make it
clear that it may be useful whether or not the --with-termlib
option is also given (report by Sven Joachim).
+ amend termcap equivalent for set_pglen_inch to use the X/Open
"YI" rather than the obsolete Solaris 2.5 "sL" (cf: 990109).
+ improve manpage for tgetent differences from termcap library.
20111008
+ moved static data from db_iterator.c to lib_data.c
+ modify db_iterator.c for memory-leak checking, fix one leak.
+ modify misc/gen-pkgconfig.in to use Requires.private for the parts
of ncurses rather than Requires, as well as Libs.private for the
other library dependencies (prompted by Debian #644728).
20111001
+ modify tic "-K" option to only set the strict-flag rather than force
source-output. That allows the same flag to control the parser for
input and output of termcap source.
+ modify _nc_getent() to ignore backslash at the end of a comment line,
making it consistent with ncurses' parser.
+ restore a special-case check for directory needed to make termcap
text files load as if they were databases (cf: 20110924).
+ modify tic's resolution/collision checking to attempt to remove the
conflicting alias from the second entry in the pair, which is
normally following in the source file. Also improved the warning
message to make it simpler to see which alias is the problem.
+ improve performance of the database iterator by caching search-list.
20110925
+ add a missing "else" in changes to _nc_read_tic_entry().
20110924
+ modify _nc_read_tic_entry() so that hashed-database is checked before
filesystem.
+ updated CF_CURSES_LIBS check in test/configure script.
+ modify configure script and makefiles to split TIC_ARGS and
TINFO_ARGS into pieces corresponding to LDFLAGS and LIBS variables,
to help separate searches for tic- and tinfo-libraries (patch by Nick
Alcock aka "Nix").
+ build-fix for lib_mouse.c changes (cf: 20110917).
20110917
+ fix compiler warning for clang 2.9
+ improve merging of mouse events (integrated patch by Damien
Guibouret).
+ correct mask-check used in lib_mouse for wheel mouse buttons 4/5
(patch by Damien Guibouret).
20110910
+ modify misc/gen_edit.sh to select a "linux" entry which works with
the current kernel rather than assuming it is always "linux3.0"
(cf: 20110716).
+ revert a change to getmouse() which had the undesirable side-effect
of suppressing button-release events (report by Damien Guibouret,
cf: 20100102).
+ add xterm+kbs fragment from xterm #272 -TD
+ add configure option --with-pkg-config-libdir to provide control over
the actual directory into which pc-files are installed, do not use
the pkg-config environment variables (discussion with Frederic L W
Meunier).
+ add link to mailing-list archive in announce.html.in, as done in
FAQ (prompted by question by Andrius Bentkus).
+ improve manpage install by adjusting the "#include" examples to
show the ncurses-subdirectory used when --disable-overwrite option
is used.
+ install an alias for "curses" to the ncurses manpage, tied to the
--with-curses-h configure option (suggested by Reuben Thomas).
20110903
+ propagate error-returns from wresize, i.e., the internal
increase_size and decrease_size functions through resize_term (report
by Tim van der Molen, cf: 20020713).
+ fix typo in tset manpage (patch by Sven Joachim).
20110820
+ add a check to ensure that termcap files which might have "^?" do
not use the terminfo interpretation as "\177".
+ minor cleanup of X-terminal emulator section of terminfo.src -TD
+ add terminator entry -TD
+ add simpleterm entry -TD
+ improve wattr_get macros by ensuring that if the window pointer is
null, then the attribute and color values returned will be zero
(cf: 20110528).
20110813
+ add substitution for $RPATH_LIST to misc/ncurses-config.in
+ improve performance of tic with hashed-database by caching the
database connection, using atexit() to cleanup.
+ modify treatment of 2-character aliases at the beginning of termcap
entries so they are not counted in use-resolution, since these are
guaranteed to be unique. Also ignore these aliases when reporting
the primary name of the entry (cf: 20040501)
+ double-check gn (generic) flag in terminal descriptions to
accommodate old/buggy termcap databases which misused that feature.
+ minor fixes to _nc_tgetent(), ensure buffer is initialized even on
error-return.
20110807
+ improve rpath fix from 20110730 by ensuring that the new $RPATH_LIST
variable is defined in the makefiles which use it.
+ build-fix for DragonFlyBSD's pkgsrc in test/configure script.
+ build-fixes for NetBSD 5.1 with termcap support enabled.
+ corrected k9 in dg460-ansi, add other features based on manuals -TD
+ improve trimming of whitespace at the end of terminfo/termcap output
from tic/infocmp.
+ when writing termcap source, ensure that colons in the description
field are translated to a non-delimiter, i.e., "=".
+ add "-0" option to tic/infocmp, to make the termcap/terminfo source
use a single line.
+ add a null-pointer check when handling the $CC variable.
20110730
+ modify configure script and makefiles in c++ and progs to allow the
directory used for rpath option to be overridden, e.g., to work
around updates to the variables used by tic during an install.
+ add -K option to tic/infocmp, to provide stricter BSD-compatibility
for termcap output.
+ add _nc_strict_bsd variable in tic library which controls the
"strict" BSD termcap compatibility from 20110723, plus these
features:
+ allow escapes such as "\8" and "\9" when reading termcap
+ disallow "\a", "\e", "\l", "\s" and "\:" escapes when reading
termcap files, passing through "a", "e", etc.
+ expand "\:" as "\072" on output.
+ modify _nc_get_token() to reset the token's string value in case
there is a string-typed token lacking the "=" marker.
+ fix a few memory leaks in _nc_tgetent.
+ fix a few places where reading from a termcap file could refer to
freed memory.
+ add an overflow check when converting terminfo/termcap numeric
values, since terminfo stores those in a short, and they must be
positive.
+ correct internal variables used for translating to termcap "%>"
feature, and translating from termcap %B to terminfo, needed by
tctest (cf: 19991211).
+ amend a minor fix to acsc when loading a termcap file to separate it
from warnings needed for tic (cf: 20040710)
+ modify logic in _nc_read_entry() and _nc_read_tic_entry() to allow
a termcap file to be handled via TERMINFO_DIRS.
+ modify _nc_infotocap() to include non-mandatory padding when
translating to termcap.
+ modify _nc_read_termcap_entry(), passing a flag in the case where
getcap is used, to reduce interactive warning messages.
20110723
+ add a check in start_color() to limit color-pairs to 256 when
extended colors are not supported (patch by David Benjamin).
+ modify setcchar to omit no-longer-needed OR'ing of color pair in
the SetAttr() macro (patch by David Benjamin).
+ add kich1 to sun terminfo entry (Yuri Pankov)
+ use bold rather than reverse for smso in sun-color terminfo entry
(Yuri Pankov).
+ improve generation of termcap using tic/infocmp -C option, e.g.,
to correspond with 4.2BSD (prompted by discussion with Yuri Pankov
regarding Schilling's test program):
+ translate %02 and %03 to %2 and %3 respectively.
+ suppress string capabilities which use %s, not supported by tgoto
+ use \040 rather than \s
+ expand null characters as \200 rather than \0
+ modify configure script to support shared libraries for DragonFlyBSD.
20110716
+ replace an assert() in _nc_Free_Argument() with a regular null
pointer check (report/analysis by Franjo Ivancic).
+ modify configure --enable-pc-files option to take into account the
PKG_CONFIG_PATH variable (report by Frederic L W Meunier).
+ add/use xterm+tmux chunk from xterm #271 -TD
+ resync xterm-new entry from xterm #271 -TD
+ add E3 extended capability to linux-basic (Miroslav Lichvar)
+ add linux2.2, linux2.6, linux3.0 entries to give context for E3 -TD
+ add SI/SO change to linux2.6 entry (Debian #515609) -TD
+ fix inconsistent tabset path in pcmw (Todd C. Miller).
+ remove a backslash which continued comment, obscuring altos3
definition with OpenBSD toolset (Nicholas Marriott).
20110702
+ add workaround from xterm #271 changes to ensure that compiler flags
are not used in the $CC variable.
+ improve support for shared libraries, tested with AIX 5.3, 6.1 and
7.1 with both gcc 4.2.4 and cc.
+ modify configure checks for AIX to include release 7.x
+ add loader flags/libraries to libtool options so that dynamic loading
works properly, adapted from ncurses-5.7-ldflags-with-libtool.patch
at gentoo prefix repository (patch by Michael Haubenwallner).
20110626
+ move include of nc_termios.h out of term_entry.h, since the latter
is installed, e.g., for tack while the former is not (report by
Sven Joachim).
20110625
+ improve cleanup() function in lib_tstp.c, using _exit() rather than
exit() and checking for SIGTERM rather than SIGQUIT (prompted by
comments forwarded by Nicholas Marriott).
+ reduce name pollution from term.h, moving fallback #define's for
tcgetattr(), etc., to new private header nc_termios.h (report by
Sergio NNX).
+ two minor fixes for tracing (patch by Vassili Courzakis).
+ improve trace initialization by starting it in use_env() and
ripoffline().
+ review old email, add details for some changelog entries.
20110611
+ update minix entry to minix 3.2 (Thomas Cort).
+ fix a strict compiler warning in change to wattr_get (cf: 20110528).
20110604
+ fixes for MirBSD port:
+ set default prefix to /usr.
+ add support for shared libraries in configure script.
+ use S_ISREG and S_ISDIR consistently, with fallback definitions.
+ add a few more checks based on ncurses/link_test.
+ modify MKlib_gen.sh to handle sp-funcs renaming of NCURSES_OUTC type.
20110528
+ add case to CF_SHARED_OPTS for Interix (patch by Markus Duft).
+ used ncurses/link_test to check for behavior when the terminal has
not been initialized and when an application passes null pointers
to the library. Added checks to cover this (prompted by Redhat
#707344).
+ modify MKlib_gen.sh to make its main() function call each function
with zero parameters, to help find inconsistent checking for null
pointers, etc.
20110521
+ fix warnings from clang 2.7 "--analyze"
20110514
+ compiler-warning fixes in panel and progs.
+ modify CF_PKG_CONFIG macro, from changes to tin -TD
+ modify CF_CURSES_FUNCS configure macro, used in test directory
configure script:
+ work around (non-optimizer) bug in gcc 4.2.1 which caused
test-expression to be omitted from executable.
+ force the linker to see a link-time expression of a symbol, to
help work around weak-symbol issues.
20110507
+ update discussion of MKfallback.sh script in INSTALL; normally the
script is used automatically via the configured makefiles. However
there are still occasions when it might be used directly by packagers
(report by Gunter Schaffler).
+ modify misc/ncurses-config.in to omit the "-L" option from the
"--libs" output if the library directory is /usr/lib.
+ change order of tests for curses.h versus ncurses.h headers in the
configure scripts for Ada95 and test-directories, to look for
ncurses.h, from fixes to tin -TD
+ modify ncurses/tinfo/access.c to account for Tandem's root uid
(report by Joachim Schmitz).
20110430
+ modify rules in Ada95/src/Makefile.in to ensure that the PIC option
is not used when building a static library (report by Nicolas
Boulenguez):
+ Ada95 build-fix for big-endian architectures such as sparc. This
undoes one of the fixes from 20110319, which added an "Unused" member
to representation clauses, replacing that with pragmas to suppress
warnings about unused bits (patch by Nicolas Boulenguez).
20110423
+ add check in test/configure for use_window, use_screen.
+ add configure-checks for getopt's variables, which may be declared
as different types on some Unix systems.
+ add check in test/configure for some legacy curses types of the
function pointer passed to tputs().
+ modify init_pair() to accept -1's for color value after
assume_default_colors() has been called (Debian #337095).
+ modify test/background.c, adding commmand-line options to demonstrate
assume_default_colors() and use_default_colors().
20110416
+ modify configure script/source-code to only define _POSIX_SOURCE if
the checks for sigaction and/or termios fail, and if _POSIX_C_SOURCE
and _XOPEN_SOURCE are undefined (report by Valentin Ochs).
+ update config.guess, config.sub
20110409
+ fixes to build c++ binding with clang 3.0 (patch by Alexander
Kolesen).
+ add check for unctrl.h in test/configure, to work around breakage in
some ncurses packages.
+ add "--disable-widec" option to test/configure script.
+ add "--with-curses-colr" and "--with-curses-5lib" options to the
test/configure script to address testing with very old machines.
20110404 5.9 release for upload to ftp.gnu.org
20110402
+ various build-fixes for the rpm/dpkg scripts.
+ add "--enable-rpath-link" option to Ada95/configure, to allow
packages to suppress the rpath feature which is normally used for
the in-tree build of sample programs.
+ corrected definition of libdir variable in Ada95/src/Makefile.in,
needed for rpm script.
+ add "--with-shared" option to Ada95/configure script, to allow
making the C-language parts of the binding use appropriate compiler
options if building a shared library with gnat.
20110329
> portability fixes for Ada95 binding:
+ add configure check to ensure that SIGINT works with gnat. This is
needed for the "rain" sample program. If SIGINT does not work, omit
that sample program.
+ correct typo in check of $PKG_CONFIG variable in Ada95/configure
+ add ncurses_compat.c, to supply functions used in the Ada95 binding
which were added in 5.7 and later.
+ modify sed expression in CF_NCURSES_ADDON to eliminate a dependency
upon GNU sed.
20110326
+ add special check in Ada95/configure script for ncurses6 reentrant
code.
+ regen Ada html documentation.
+ build-fix for Ada shared libraries versus the varargs workaround.
+ add rpm and dpkg scripts for Ada95 and test directories, for test
builds.
+ update test/configure macros CF_CURSES_LIBS, CF_XOPEN_SOURCE and
CF_X_ATHENA_LIBS.
+ add configure check to determine if gnat's project feature supports
libraries, i.e., collections of .ali files.
+ make all dereferences in Ada95 samples explicit.
+ fix typo in comment in lib_add_wch.c (patch by Petr Pavlu).
+ add configure check for, ifdef's for math.h which is in a separate
package on Solaris and potentially not installed (report by Petr
Pavlu).
> fixes for Ada95 binding (Nicolas Boulenguez):
+ improve type-checking in Ada95 by eliminating a few warning-suppress
pragmas.
+ suppress unreferenced warnings.
+ make all dereferences in binding explicit.
20110319
+ regen Ada html documentation.
+ change order of -I options from ncurses*-config script when the
--disable-overwrite option was used, so that the subdirectory include
is listed first.
+ modify the make-tar.sh scripts to add a MANIFEST and NEWS file.
+ modify configure script to provide value for HTML_DIR in
Ada95/gen/Makefile.in, which depends on whether the Ada95 binding is
distributed separately (report by Nicolas Boulenguez).
+ modify configure script to add "-g" and/or "-O3" to ADAFLAGS if the
CFLAGS for the build has these options.
+ amend change from 20070324, to not add 1 to the result of getmaxx
and getmaxy in the Ada binding (report by Nicolas Boulenguez for
thread in comp.lang.ada).
+ build-fix Ada95/samples for gnat 4.5
+ spelling fixes for Ada95/samples/explain.txt
> fixes for Ada95 binding (Nicolas Boulenguez):
+ add item in Trace_Attribute_Set corresponding to TRACE_ATTRS.
+ add workaround for binding to set_field_type(), which uses varargs.
The original binding from 990220 relied on the prevalent
implementation of varargs which did not support or need va_copy().
+ add dependency on gen/Makefile.in needed for *-panels.ads
+ add Library_Options to library.gpr
+ add Languages to library.gpr, for gprbuild
20110307
+ revert changes to limit-checks from 20110122 (Debian #616711).
> minor type-cleanup of Ada95 binding (Nicolas Boulenguez):
+ corrected a minor sign error in a field of Low_Level_Field_Type, to
conform to form.h.
+ replaced C_Int by Curses_Bool as return type for some callbacks, see
fieldtype(3FORM).
+ modify samples/sample-explain.adb to provide explicit message when
explain.txt is not found.
20110305
+ improve makefiles for Ada95 tree (patch by Nicolas Boulenguez).
+ fix an off-by-one error in _nc_slk_initialize() from 20100605 fixes
for compiler warnings (report by Nicolas Boulenguez).
+ modify Ada95/gen/gen.c to declare unused bits in generated layouts,
needed to compile when chtype is 64-bits using gnat 4.4.5
20110226 5.8 release for upload to ftp.gnu.org
20110226
+ update release notes, for 5.8.
+ regenerated html manpages.
+ change open() in _nc_read_file_entry() to fopen() for consistency
with write_file().
+ modify misc/run_tic.in to create parent directory, in case this is
a new install of hashed database.
+ fix typo in Ada95/mk-1st.awk which causes error with original awk.
20110220
+ configure script rpath fixes from xterm #269.
+ workaround for cygwin's non-functional features.h, to force ncurses'
configure script to define _XOPEN_SOURCE_EXTENDED when building
wide-character configuration.
+ build-fix in run_tic.sh for OS/2 EMX install
+ add cons25-debian entry (patch by Brian M Carlson, Debian #607662).
20110212
+ regenerated html manpages.
+ use _tracef() in show_where() function of tic, to work correctly with
special case of trace configuration.
20110205
+ add xterm-utf8 entry as a demo of the U8 feature -TD
+ add U8 feature to denote entries for terminal emulators which do not
support VT100 SI/SO when processing UTF-8 encoding -TD
+ improve the NCURSES_NO_UTF8_ACS feature by adding a check for an
extended terminfo capability U8 (prompted by mailing list
discussion).
20110122
+ start documenting interface changes for upcoming 5.8 release.
+ correct limit-checks in derwin().
+ correct limit-checks in newwin(), to ensure that windows have nonzero
size (report by Garrett Cooper).
+ fix a missing "weak" declaration for pthread_kill (patch by Nicholas
Alcock).
+ improve documentation of KEY_ENTER in curs_getch.3x manpage (prompted
by discussion with Kevin Martin).
20110115
+ modify Ada95/configure script to make the --with-curses-dir option
work without requiring the --with-ncurses option.
+ modify test programs to allow them to be built with NetBSD curses.
+ document thick- and double-line symbols in curs_add_wch.3x manpage.
+ document WACS_xxx constants in curs_add_wch.3x manpage.
+ fix some warnings for clang 2.6 "--analyze"
+ modify Ada95 makefiles to make html-documentation with the project
file configuration if that is used.
+ update config.guess, config.sub
20110108
+ regenerated html manpages.
+ minor fixes to enable lint when trace is not enabled, e.g., with
clang --analyze.
+ fix typo in man/default_colors.3x (patch by Tim van der Molen).
+ update ncurses/llib-lncurses*
20110101
+ fix remaining strict compiler warnings in ncurses library ABI=5,
except those dealing with function pointers, etc.
20101225
+ modify nc_tparm.h, adding guards against repeated inclusion, and
allowing TPARM_ARG to be overridden.
+ fix some strict compiler warnings in ncurses library.
20101211
+ suppress ncv in screen entry, allowing underline (patch by Alejandro
R Sedeno).
+ also suppress ncv in konsole-base -TD
+ fixes in wins_nwstr() and related functions to ensure that special
characters, i.e., control characters are handled properly with the
wide-character configuration.
+ correct a comparison in wins_nwstr() (Redhat #661506).
+ correct help-messages in some of the test-programs, which still
referred to quitting with 'q'.
20101204
+ add special case to _nc_infotocap() to recognize the setaf/setab
strings from xterm+256color and xterm+88color, and provide a reduced
version which works with termcap.
+ remove obsolete emacs "Local Variables" section from documentation
(request by Sven Joachim).
+ update doc/html/index.html to include NCURSES-Programming-HOWTO.html
(report by Sven Joachim).
20101128
+ modify test/configure and test/Makefile.in to handle this special
case of building within a build-tree (Debian #34182):
mkdir -p build && cd build && ../test/configure && make
20101127
+ miscellaneous build-fixes for Ada95 and test-directories when built
out-of-tree.
+ use VPATH in makefiles to simplify out-of-tree builds (Debian #34182).
+ fix typo in rmso for tek4106 entry -Goran Weinholt
20101120
+ improve checks in test/configure for X libraries, from xterm #267
changes.
+ modify test/configure to allow it to use the build-tree's libraries
e.g., when using that to configure the test-programs without the
rpath feature (request by Sven Joachim).
+ repurpose "gnome" terminfo entries as "vte", retaining "gnome" items
for compatibility, but generally deprecating those since the VTE
library is what actually defines the behavior of "gnome", etc.,
since 2003 -TD
20101113
+ compiler warning fixes for test programs.
+ various build-fixes for test-programs with pdcurses.
+ updated configure checks for X packages in test/configure from xterm
#267 changes.
+ add configure check to gnatmake, to accommodate cygwin.
20101106
+ correct list of sub-directories needed in Ada95 tree for building as
a separate package.
+ modify scripts in test-directory to improve builds as a separate
package.
20101023
+ correct parsing of relative tab-stops in tabs program (report by
Philip Ganchev).
+ adjust configure script so that "t" is not added to library suffix
when weak-symbols are used, allowing the pthread configuration to
more closely match the non-thread naming (report by Werner Fink).
+ modify configure check for tic program, used for fallbacks, to a
warning if not found. This makes it simpler to use additional
scripts to bootstrap the fallbacks code using tic from the build
tree (report by Werner Fink).
+ fix several places in configure script using ${variable-value} form.
+ modify configure macro CF_LDFLAGS_STATIC to accommodate some loaders
which do not support selectively linking against static libraries
(report by John P. Hartmann)
+ fix an unescaped dash in man/tset.1 (report by Sven Joachim).
20101009
+ correct comparison used for setting 16-colors in linux-16color
entry (Novell #644831) -TD
+ improve linux-16color entry, using "dim" for color-8 which makes it
gray rather than black like color-0 -TD
+ drop misc/ncu-indent and misc/jpf-indent; they are provided by an
external package "cindent".
20101002
+ improve linkages in html manpages, adding references to the newer
pages, e.g., *_variables, curs_sp_funcs, curs_threads.
+ add checks in tic for inconsistent cursor-movement controls, and for
inconsistent printer-controls.
+ fill in no-parameter forms of cursor-movement where a parameterized
form is available -TD
+ fill in missing cursor controls where the form of the controls is
ANSI -TD
+ fix inconsistent punctuation in form_variables manpage (patch by
Sven Joachim).
+ add parameterized cursor-controls to linux-basic (report by Dae) -TD
> patch by Juergen Pfeifer:
+ document how to build 32-bit libraries in README.MinGW
+ fixes to filename computation in mk-dlls.sh.in
+ use POSIX locale in mk-dlls.sh.in rather than en_US (report by Sven
Joachim).
+ add a check in mk-dlls.sh.in to obtain the size of a pointer to
distinguish between 32-bit and 64-bit hosts. The result is stored
in mingw_arch
20100925
+ add "XT" capability to entries for terminals that support both
xterm-style mouse- and title-controls, for "screen" which
special-cases TERM beginning with "xterm" or "rxvt" -TD
> patch by Juergen Pfeifer:
+ use 64-Bit MinGW toolchain (recommended package from TDM, see
README.MinGW).
+ support pthreads when using the TDM MinGW toolchain
20100918
+ regenerated html manpages.
+ minor fixes for symlinks to curs_legacy.3x and curs_slk.3x manpages.
+ add manpage for sp-funcs.
+ add sp-funcs to test/listused.sh, for documentation aids.
20100911
+ add manpages for summarizing public variables of curses-, terminfo-
and form-libraries.
+ minor fixes to manpages for consistency (patch by Jason McIntyre).
+ modify tic's -I/-C dump to reformat acsc strings into canonical form
(sorted, unique mapping) (cf: 971004).
+ add configure check for pthread_kill(), needed for some old
platforms.
20100904
+ add configure option --without-tests, to suppress building test
programs (request by Frederic L W Meunier).
20100828
+ modify nsterm, xnuppc and tek4115 to make sgr/sgr0 consistent -TD
+ add check in terminfo source-reader to provide more informative
message when someone attempts to run tic on a compiled terminal
description (prompted by Debian #593920).
+ note in infotocap and captoinfo manpages that they read terminal
descriptions from text-files (Debian #593920).
+ improve acsc string for vt52, show arrow keys (patch by Benjamin
Sittler).
20100814
+ document in manpages that "mv" functions first use wmove() to check
the window pointer and whether the position lies within the window
(suggested by Poul-Henning Kamp).
+ fixes to curs_color.3x, curs_kernel.3x and wresize.3x manpages (patch
by Tim van der Molen).
+ modify configure script to transform library names for tic- and
tinfo-libraries so that those build properly with Mac OS X shared
library configuration.
+ modify configure script to ensure that it removes conftest.dSYM
directory leftover on checks with Mac OS X.
+ modify configure script to cleanup after check for symbolic links.
20100807
+ correct a typo in mk-1st.awk (patch by Gabriele Balducci)
(cf: 20100724)
+ improve configure checks for location of tic and infocmp programs
used for installing database and for generating fallback data,
e.g., for cross-compiling.
+ add Markus Kuhn's wcwidth function for compiling MinGW
+ add special case to CF_REGEX for cross-compiling to MinGW target.
20100731
+ modify initialization check for win32con driver to eliminate need for
special case for TERM "unknown", using terminal database if available
(prompted by discussion with Roumen Petrov).
+ for MinGW port, ensure that terminal driver is setup if tgetent()
is called (patch by Roumen Petrov).
+ document tabs "-0" and "-8" options in manpage.
+ fix Debian "lintian" issues with manpages reported in
http://lintian.debian.org/full/csmall@debian.org.html#ncurses
20100724
+ add a check in tic for missing set_tab if clear_all_tabs given.
+ improve use of symbolic links in makefiles by using "-f" option if
it is supported, to eliminate temporary removal of the target
(prompted by http://www.t2-project.org/packages/ncurses.html)
+ minor improvement to test/ncurses.c, reset color pairs in 'd' test
after exit from 'm' main-menu command.
+ improved ncu-indent, from mawk changes, allows more than one of
GCC_NORETURN, GCC_PRINTFLIKE and GCC_SCANFLIKE on a single line.
20100717
+ add hard-reset for rs2 to wsvt25 to help ensure that reset ends
the alternate character set (patch by Nicholas Marriott)
+ remove tar-copy.sh and related configure/Makefile chunks, since the
Ada95 binding is now installed using rules in Ada95/src.
20100703
+ continue integrating changes to use gnatmake project files in Ada95
+ add/use configure check to turn on project rules for Ada95/src.
+ revert the vfork change from 20100130, since it does not work.
20100626
+ continue integrating changes to use gnatmake project files in Ada95
+ old gnatmake (3.15) does not produce libraries using project-file;
work around by adding script to generate alternate makefile.
20100619
+ continue integrating changes to use gnatmake project files in Ada95
+ add configure --with-ada-sharedlib option, for the test_make rule.
+ move Ada95-related logic into aclocal.m4, since additional checks
will be needed to distinguish old/new implementations of gnat.
20100612
+ start integrating changes to use gnatmake project files in Ada95 tree
+ add test_make / test_clean / test_install rules in Ada95/src
+ change install-path for adainclude directory to /usr/share/ada (was
/usr/lib/ada).
+ update Ada95/configure.
+ add mlterm+256color entry, for mlterm 3.0.0 -TD
+ modify test/configure to use macros to ensure consistent order
of updating LIBS variable.
20100605
+ change search order of options for Solaris in CF_SHARED_OPTS, to
work with 64-bit compiles.
+ correct quoting of assignment in CF_SHARED_OPTS case for aix
(cf: 20081227)
20100529
+ regenerated html documentation.
+ modify test/configure to support pkg-config for checking X libraries
used by PDCurses.
+ add/use configure macro CF_ADD_LIB to force consistency of
assignments to $LIBS, etc.
+ fix configure script for combining --with-pthread
and --enable-weak-symbols options.
20100522
+ correct cross-compiling configure check for CF_MKSTEMP macro, by
adding a check cache variable set by AC_CHECK_FUNC (report by
Pierre Labastie).
+ simplify include-dependencies of make_hash and make_keys, to reduce
the need for setting BUILD_CPPFLAGS in cross-compiling when the
build- and target-machines differ.
+ repair broken-linker configuration by restoring a definition of SP
variable to curses.priv.h, and adjusting for cases where sp-funcs
are used.
+ improve configure macro CF_AR_FLAGS, allowing ARFLAGS environment
variable to override (prompted by report by Pablo Cazallas).
20100515
+ add configure option --enable-pthreads-eintr to control whether the
new EINTR feature is enabled.
+ modify logic in pthread configuration to allow EINTR to interrupt
a read operation in wgetch() (Novell #540571, patch by Werner Fink).
+ drop mkdirs.sh, use "mkdir -p".
+ add configure option --disable-libtool-version, to use the
"-version-number" feature which was added in libtool 1.5 (report by
Peter Haering). The default value for the option uses the newer
feature, which makes libraries generated using libtool compatible
with the standard builds of ncurses.
+ updated test/configure to match configure script macros.
+ fixes for configure script from lynx changes:
+ improve CF_FIND_LINKAGE logic for the case where a function is
found in predefined libraries.
+ revert part of change to CF_HEADER (cf: 20100424)
20100501
+ correct limit-check in wredrawln, accounting for begy/begx values
(patch by David Benjamin).
+ fix most compiler warnings from clang.
+ amend build-fix for OpenSolaris, to ensure that a system header is
included in curses.h before testing feature symbols, since they
may be defined by that route.
20100424
+ fix some strict compiler warnings in ncurses library.
+ modify configure macro CF_HEADER_PATH to not look for variations in
the predefined include directories.
+ improve configure macros CF_GCC_VERSION and CF_GCC_WARNINGS to work
with gcc 4.x's c89 alias, which gives warning messages for cases
where older versions would produce an error.
20100417
+ modify _nc_capcmp() to work with cancelled strings.
+ correct translation of "^" in _nc_infotocap(), used to transform
terminfo to termcap strings
+ add configure --disable-rpath-hack, to allow disabling the feature
which adds rpath options for libraries in unusual places.
+ improve CF_RPATH_HACK_2 by checking if the rpath option for a given
directory was already added.
+ improve CF_RPATH_HACK_2 by using ldd to provide a standard list of
directories (which will be ignored).
20100410
+ improve win_driver.c handling of mouse:
+ discard motion events
+ avoid calling _nc_timed_wait when there is a mouse event
+ handle 4th and "rightmost" buttons.
+ quote substitutions in CF_RPATH_HACK_2 configure macro, needed for
cases where there are embedded blanks in the rpath option.
20100403
+ add configure check for exctags vs ctags, to work around pkgsrc.
+ simplify logic in _nc_get_screensize() to make it easier to see how
environment variables may override system- and terminfo-values
(prompted by discussion with Igor Bujna).
+ make debug-traces for COLOR_PAIR and PAIR_NUMBER less verbose.
+ improve handling of color-pairs embedded in attributes for the
extended-colors configuration.
+ modify MKlib_gen.sh to build link_test with sp-funcs.
+ build-fixes for OpenSolaris aka Solaris 11, for wide-character
configuration as well as for rpath feature in *-config scripts.
20100327
+ refactor CF_SHARED_OPTS configure macro, making CF_RPATH_HACK more
reusable.
+ improve configure CF_REGEX, similar fixes.
+ improve configure CF_FIND_LINKAGE, adding add check between system
(default) and explicit paths, where we can find the entrypoint in the
given library.
+ add check if Gpm_Open() returns a -2, e.g., for "xterm". This is
normally suppressed but can be overridden using $NCURSES_GPM_TERMS.
Ensure that Gpm_Close() is called in this case.
20100320
+ rename atari and st52 terminfo entries to atari-old, st52-old, use
newer entries from FreeMiNT by Guido Flohr (from patch/report by Alan
Hourihane).
20100313
+ modify install-rule for manpages so that *-config manpages will
install when building with --srcdir (report by Sven Joachim).
+ modify CF_DISABLE_LEAKS configure macro so that the --enable-leaks
option is not the same as --disable-leaks (GenToo #305889).
+ modify #define's for build-compiler to suppress cchar_t symbol from
compile of make_hash and make_keys, improving cross-compilation of
ncursesw (report by Bernhard Rosenkraenzer).
+ modify CF_MAN_PAGES configure macro to replace all occurrences of
TPUT in tput.1's manpage (Debian #573597, report/analysis by Anders
Kaseorg).
20100306
+ generate manpages for the *-config scripts, adapted from help2man
(suggested by Sven Joachim).
+ use va_copy() in _nc_printf_string() to avoid conflicting use of
va_list value in _nc_printf_length() (report by Wim Lewis).
20100227
+ add Ada95/configure script, to use in tar-file created by
Ada95/make-tar.sh
+ fix typo in wresize.3x (patch by Tim van der Molen).
+ modify screen-bce.XXX entries to exclude ech, since screen's color
model does not clear with color for that feature -TD
20100220
+ add make-tar.sh scripts to Ada95 and test subdirectories to help with
making those separately distributable.
+ build-fix for static libraries without dlsym (Debian #556378).
+ fix a syntax error in man/form_field_opts.3x (patch by Ingo
Schwarze).
20100213
+ add several screen-bce.XXX entries -TD
20100206
+ update mrxvt terminfo entry -TD
+ modify win_driver.c to support mouse single-clicks.
+ correct name for termlib in ncurses*-config, e.g., if it is renamed
to provide a single file for ncurses/ncursesw libraries (patch by
Miroslav Lichvar).
20100130
+ use vfork in test/ditto.c if available (request by Mike Frysinger).
+ miscellaneous cleanup of manpages.
+ fix typo in curs_bkgd.3x (patch by Tim van der Molen).
+ build-fix for --srcdir (patch by Miroslav Lichvar).
20100123
+ for term-driver configuration, ensure that the driver pointer is
initialized in setupterm so that terminfo/termcap programs work.
+ amend fix for Debian #542031 to ensure that wattrset() returns only
OK or ERR, rather than the attribute value (report by Miroslav
Lichvar).
+ reorder WINDOWLIST to put WINDOW data after SCREEN pointer, making
_nc_screen_of() compatible between normal/wide libraries again (patch
by Miroslav Lichvar)
+ review/fix include-dependencies in modules files (report by Miroslav
Lichvar).
20100116
+ modify win_driver.c to initialize acs_map for win32 console, so
that line-drawing works.
+ modify win_driver.c to initialize TERMINAL struct so that programs
such as test/lrtest.c and test/ncurses.c which test string
capabilities can run.
+ modify term-driver modules to eliminate forward-reference
declarations.
20100109
+ modify configure macro CF_XOPEN_SOURCE, etc., to use CF_ADD_CFLAGS
consistently to add new -D's while removing duplicates.
+ modify a few configure macros to consistently put new options
before older in the list.
+ add tiparm(), based on review of X/Open Curses Issue 7.
+ minor documentation cleanup.
+ update config.guess, config.sub from
http://savannah.gnu.org/projects/config
(caveat - its maintainer put 2010 copyright date on files dated 2009)
20100102
+ minor improvement to tic's checking of similar SGR's to allow for the
most common case of SGR 0.
+ modify getmouse() to act as its documentation implied, returning on
each call the preceding event until none are left. When no more
events remain, it will return ERR.
20091227
+ change order of lookup in progs/tput.c, looking for terminfo data
first. This fixes a confusion between termcap "sg" and terminfo
"sgr" or "sgr0", originally from 990123 changes, but exposed by
20091114 fixes for hashing. With this change, only "dl" and "ed" are
ambiguous (Mandriva #56272).
20091226
+ add bterm terminfo entry, based on bogl 0.1.18 -TD
+ minor fix to rxvt+pcfkeys terminfo entry -TD
+ build-fixes for Ada95 tree for gnat 4.4 "style".
20091219
+ remove old check in mvderwin() which prevented moving a derived
window whose origin happened to coincide with its parent's origin
(report by Katarina Machalkova).
+ improve test/ncurses.c to put mouse droppings in the proper window.
+ update minix terminfo entry -TD
+ add bw (auto-left-margin) to nsterm* entries (Benjamin Sittler)
20091212
+ correct transfer of multicolumn characters in multirow
field_buffer(), which stopped at the end of the first row due to
filling of unused entries in a cchar_t array with nulls.
+ updated nsterm* entries (Benjamin Sittler, Emanuele Giaquinta)
+ modify _nc_viscbuf2() and _tracecchar_t2() to show wide-character
nulls.
+ use strdup() in set_menu_mark(), restore .marklen struct member on
failure.
+ eliminate clause 3 from the UCB copyrights in read_termcap.c and
tset.c per
ftp://ftp.cs.berkeley.edu/pub/4bsd/README.Impt.License.Change
(patch by Nicholas Marriott).
+ replace a malloc in tic.c with strdup, checking for failure (patch by
Nicholas Marriott).
+ update config.guess, config.sub from
http://savannah.gnu.org/projects/config
20091205
+ correct layout of working window used to extract data in
wide-character configured by set_field_buffer (patch by Rafael
Garrido Fernandez)
+ improve some limit-checks related to filename length in reading and
writing terminfo entries.
+ ensure that filename is always filled in when attempting to read
a terminfo entry, so that infocmp can report the filename (patch
by Nicholas Marriott).
20091128
+ modify mk-1st.awk to allow tinfo library to be built when term-driver
is enabled.
+ add error-check to configure script to ensure that sp-funcs is
enabled if term-driver is, since some internal interfaces rely upon
this.
20091121
+ fix case where progs/tput is used while sp-funcs is configure; this
requires save/restore of out-character function from _nc_prescreen
rather than the SCREEN structure (report by Charles Wilson).
+ fix typo in man/curs_trace.3x which caused incorrect symbolic links
+ improved configure macros CF_GCC_ATTRIBUTES, CF_PROG_LINT.
20091114
+ updated man/curs_trace.3x
+ limit hashing for termcap-names to 2-characters (Ubuntu #481740).
+ change a variable name in lib_newwin.c to make it clearer which
value is being freed on error (patch by Nicholas Marriott).
20091107
+ improve test/ncurses.c color-cycling test by reusing attribute-
and color-cycling logic from the video-attributes screen.
+ add ifdef'd with NCURSES_INTEROP_FUNCS experimental bindings in form
library which help make it compatible with interop applications
(patch by Juergen Pfeifer).
+ add configure option --enable-interop, for integrating changes
for generic/interop support to form-library by Juergen Pfeifer
20091031
+ modify use of $CC environment variable which is defined by X/Open
as a curses feature, to ignore it if it is not a single character
(prompted by discussion with Benjamin C W Sittler).
+ add START_TRACE in slk_init
+ fix a regression in _nc_ripoffline which made test/ncurses.c not show
soft-keys, broken in 20090927 merging.
+ change initialization of "hidden" flag for soft-keys from true to
false, broken in 20090704 merging (Ubuntu #464274).
+ update nsterm entries (patch by Benjamin C W Sittler, prompted by
discussion with Fabian Groffen in GenToo #206201).
+ add test/xterm-256color.dat
20091024
+ quiet some pedantic gcc warnings.
+ modify _nc_wgetch() to check for a -1 in the fifo, e.g., after a
SIGWINCH, and discard that value, to avoid confusing application
(patch by Eygene Ryabinkin, FreeBSD #136223).
20091017
+ modify handling of $PKG_CONFIG_LIBDIR to use only the first item in
a possibly colon-separated list (Debian #550716).
20091010
+ supply a null-terminator to buffer in _nc_viswibuf().
+ fix a sign-extension bug in unget_wch() (report by Mike Gran).
+ minor fixes to error-returns in default function for tputs, as well
as in lib_screen.c
20091003
+ add WACS_xxx definitions to wide-character configuration for thick-
and double-lines (discussion with Slava Zanko).
+ remove unnecessary kcan assignment to ^C from putty (Sven Joachim)
+ add ccc and initc capabilities to xterm-16color -TD
> patch by Benjamin C W Sittler:
+ add linux-16color
+ correct initc capability of linux-c-nc end-of-range
+ similar change for dg+ccc and dgunix+ccc
20090927
+ move leak-checking for comp_captab.c into _nc_leaks_tinfo() since
that module since 20090711 is in libtinfo.
+ add configure option --enable-term-driver, to allow compiling with
terminal-driver. That is used in MinGW port, and (being somewhat
more complicated) is an experimental alternative to the conventional
termlib internals. Currently, it requires the sp-funcs feature to
be enabled.
+ completed integrating "sp-funcs" by Juergen Pfeifer in ncurses
library (some work remains for forms library).
20090919
+ document return code from define_key (report by Mike Gran).
+ make some symbolic links in the terminfo directory-tree shorter
(patch by Daniel Jacobowitz, forwarded by Sven Joachim).).
+ fix some groff warnings in terminfo.5, etc., from recent Debian
changes.
+ change ncv and op capabilities in sun-color terminfo entry to match
Sun's entry for this (report by Laszlo Peter).
+ improve interix smso terminfo capability by using reverse rather than
bold (report by Kristof Zelechovski).
20090912
+ add some test programs (and make these use the same special keys
by sharing linedata.h functions):
test/test_addstr.c
test/test_addwstr.c
test/test_addchstr.c
test/test_add_wchstr.c
+ correct internal _nc_insert_ch() to use _nc_insert_wch() when
inserting wide characters, since the wins_wch() function that it used
did not update the cursor position (report by Ciprian Craciun).
20090906
+ fix typo s/is_timeout/is_notimeout/ which made "man is_notimeout" not
work.
+ add null-pointer checks to other opaque-functions.
+ add is_pad() and is_subwin() functions for opaque access to WINDOW
(discussion with Mark Dickinson).
+ correct merge to lib_newterm.c, which broke when sp-funcs was
enabled.
20090905
+ build-fix for building outside source-tree (report by Sven Joachim).
+ fix Debian lintian warning for man/tabs.1 by making section number
agree with file-suffix (report by Sven Joachim).
+ continue integrating "sp-funcs" by Juergen Pfeifer (incomplete).
20090829
+ workaround for bug in g++ 4.1-4.4 warnings for wattrset() macro on
amd64 (Debian #542031).
+ fix typo in curs_mouse.3x (Debian #429198).
20090822
+ continue integrating "sp-funcs" by Juergen Pfeifer (incomplete).
20090815
+ correct use of terminfo capabilities for initializing soft-keys,
broken in 20090510 merging.
+ modify wgetch() to ensure it checks SIGWINCH when it gets an error
in non-blocking mode (patch by Clemens Ladisch).
+ use PATH_SEPARATOR symbol when substituting into run_tic.sh, to
help with builds on non-Unix platforms such as OS/2 EMX.
+ modify scripting for misc/run_tic.sh to test configure script's
$cross_compiling variable directly rather than comparing host/build
compiler names (prompted by comment in GenToo #249363).
+ fix configure script option --with-database, which was coded as an
enable-type switch.
+ build-fixes for --srcdir (report by Frederic L W Meunier).
20090808
+ separate _nc_find_entry() and _nc_find_type_entry() from
implementation details of hash function.
20090803
+ add tabs.1 to man/man_db.renames
+ modify lib_addch.c to compensate for removal of wide-character test
from unctrl() in 20090704 (Debian #539735).
20090801
+ improve discussion in INSTALL for use of system's tic/infocmp for
cross-compiling and building fallbacks.
+ modify test/demo_termcap.c to correspond better to options in
test/demo_terminfo.c
+ continue integrating "sp-funcs" by Juergen Pfeifer (incomplete).
+ fix logic for 'V' in test/ncurses.c tests f/F.
20090728
+ correct logic in tigetnum(), which caused tput program to treat all
string capabilities as numeric (report by Rajeev V Pillai,
cf: 20090711).
20090725
+ continue integrating "sp-funcs" by Juergen Pfeifer (incomplete).
20090718
+ fix a null-pointer check in _nc_format_slks() in lib_slk.c, from
20090704 changes.
+ modify _nc_find_type_entry() to use hashing.
+ make CCHARW_MAX value configurable, noting that changing this would
change the size of cchar_t, and would be ABI-incompatible.
+ modify test-programs, e.g,. test/view.c, to address subtle
differences between Tru64/Solaris and HPUX/AIX getcchar() return
values.
+ modify length returned by getcchar() to count the trailing null
which is documented in X/Open (cf: 20020427).
+ fixes for test programs to build/work on HPUX and AIX, etc.
20090711
+ improve performance of tigetstr, etc., by using hashing code from tic.
+ minor fixes for memory-leak checking.
+ add test/demo_terminfo, for comparison with demo_termcap
20090704
+ remove wide-character checks from unctrl() (patch by Clemens Ladisch).
+ revise wadd_wch() and wecho_wchar() to eliminate dependency on
unctrl().
+ continue integrating "sp-funcs" by Juergen Pfeifer (incomplete).
20090627
+ update llib-lncurses[wt] to use sp-funcs.
+ various code-fixes to build/work with --disable-macros configure
option.
+ add several new files from Juergen Pfeifer which will be used when
integration of "sp-funcs" is complete. This includes a port to
MinGW.
20090613
+ move definition for NCURSES_WRAPPED_VAR back to ncurses_dll.h, to
make includes of term.h without curses.h work (report by "Nix").
+ continue integrating "sp-funcs" by Juergen Pfeifer (incomplete).
20090607
+ fix a regression in lib_tputs.c, from ongoing merges.
20090606
+ continue integrating "sp-funcs" by Juergen Pfeifer (incomplete).
20090530
+ fix an infinite recursion when adding a legacy-coding 8-bit value
using insch() (report by Clemens Ladisch).
+ free home-terminfo string in del_curterm() (patch by Dan Weber).
+ continue integrating "sp-funcs" by Juergen Pfeifer (incomplete).
20090523
+ continue integrating "sp-funcs" by Juergen Pfeifer (incomplete).
20090516
+ work around antique BSD game's manipulation of stdscr, etc., versus
SCREEN's copy of the pointer (Debian #528411).
+ add a cast to wattrset macro to avoid compiler warning when comparing
its result against ERR (adapted from patch by Matt Kraii, Debian
#528374).
20090510
+ continue integrating "sp-funcs" by Juergen Pfeifer (incomplete).
20090502
+ continue integrating "sp-funcs" by Juergen Pfeifer (incomplete).
+ add vwmterm terminfo entry (patch by Bryan Christ).
20090425
+ continue integrating "sp-funcs" by Juergen Pfeifer (incomplete).
20090419
+ build fix for _nc_free_and_exit() change in 20090418 (report by
Christian Ebert).
20090418
+ continue integrating "sp-funcs" by Juergen Pfeifer (incomplete).
20090411
+ continue integrating "sp-funcs" by Juergen Pfeifer (incomplete).
This change finishes merging for menu and panel libraries, does
part of the form library.
20090404
+ suppress configure check for static/dynamic linker flags for gcc on
Darwin (report by Nelson Beebe).
20090328
+ extend ansi.sys pfkey capability from kf1-kf10 to kf1-kf48, moving
function key definitions from emx-base for consistency -TD
+ correct missing final 'p' in pfkey capability of ansi.sys-old (report
by Kalle Olavi Niemitalo).
+ improve test/ncurses.c 'F' test, show combining characters in color.
+ quiet a false report by cppcheck in c++/cursesw.cc by eliminating
a temporary variable.
+ use _nc_doalloc() rather than realloc() in a few places in ncurses
library to avoid leak in out-of-memory condition (reports by William
Egert and Martin Ettl based on cppcheck tool).
+ add --with-ncurses-wrap-prefix option to test/configure (discussion
with Charles Wilson).
+ use ncurses*-config scripts if available for test/configure.
+ update test/aclocal.m4 and test/configure
> patches by Charles Wilson:
+ modify CF_WITH_LIBTOOL configure check to allow unreleased libtool
version numbers (e.g. which include alphabetic chars, as well as
digits, after the final '.').
+ improve use of -no-undefined option for libtool by setting an
intermediate variable LT_UNDEF in the configure script, and then
using that in the libtool link-commands.
+ fix an missing use of NCURSES_PUBLIC_VAR() in tinfo/MKcodes.awk
from 20090321 changes.
+ improve mk-1st.awk script by writing separate cases for the
LIBTOOL_LINK command, depending on which library (ncurses, ticlib,
termlib) is to be linked.
+ modify configure.in to allow broken-linker configurations, not just
enable-reentrant, to set public wrap prefix.
20090321
+ add TICS_LIST and SHLIB_LIST to allow libtool 2.2.6 on Cygwin to
build with tic and term libraries (patch by Charles Wilson).
+ add -no-undefined option to libtool for Cygwin, MinGW, U/Win and AIX
(report by Charles Wilson).
+ fix definition for c++/Makefile.in's SHLIB_LIST, which did not list
the form, menu or panel libraries (patch by Charles Wilson).
+ add configure option --with-wrap-prefix to allow setting the prefix
for functions used to wrap global variables to something other than
"_nc_" (discussion with Charles Wilson).
20090314
+ modify scripts to generate ncurses*-config and pc-files to add
dependency for tinfo library (patch by Charles Wilson).
+ improve comparison of program-names when checking for linked flavors
such as "reset" by ignoring the executable suffix (reports by Charles
Wilson, Samuel Thibault and Cedric Bretaudeau on Cygwin mailing
list).
+ suppress configure check for static/dynamic linker flags for gcc on
Solaris 10, since gcc is confused by absence of static libc, and
does not switch back to dynamic mode before finishing the libraries
(reports by Joel Bertrand, Alan Pae).
+ minor fixes to Intel compiler warning checks in configure script.
+ modify _nc_leaks_tinfo() so leak-checking in test/railroad.c works.
+ modify set_curterm() to make broken-linker configuration work with
changes from 20090228 (report by Charles Wilson).
20090228
+ continue integrating "sp-funcs" by Juergen Pfeifer (incomplete).
+ modify declaration of cur_term when broken-linker is used, but
enable-reentrant is not, to match pre-5.7 (report by Charles Wilson).
20090221
+ continue integrating "sp-funcs" by Juergen Pfeifer (incomplete).
20090214
+ add configure script --enable-sp-funcs to enable the new set of
extended functions.
+ start integrating patches by Juergen Pfeifer:
+ add extended functions which specify the SCREEN pointer for several
curses functions which use the global SP (these are incomplete;
some internals work is needed to complete these).
+ add special cases to configure script for MinGW port.
20090207
+ update several configure macros from lynx changes
+ append (not prepend) to CFLAGS/CPPFLAGS
+ change variable from PATHSEP to PATH_SEPARATOR
+ improve install-rules for pc-files (patch by Miroslav Lichvar).
+ make it work with $DESTDIR
+ create the pkg-config library directory if needed.
20090124
+ modify init_pair() to allow caller to create extra color pairs beyond
the color_pairs limit, which use default colors (request by Emanuele
Giaquinta).
+ add misc/terminfo.tmp and misc/*.pc to "sources" rule.
+ fix typo "==" where "=" is needed in ncurses-config.in and
gen-pkgconfig.in files (Debian #512161).
20090117
+ add -shared option to MK_SHARED_LIB when -Bsharable is used, for
*BSD's, without which "main" might be one of the shared library's
dependencies (report/analysis by Ken Dickey).
+ modify waddch_literal(), updating line-pointer after a multicolumn
character is found to not fit on the current row, and wrapping is
done. Since the line-pointer was not updated, the wrapped
multicolumn character was written to the beginning of the current row
(cf: 20041023, reported by "Nick" regarding problem with ncmpc
http://musicpd.org/mantis/bug_view_page.php?bug_id=1930).
20090110
+ add screen.Eterm terminfo entry (GenToo #124887) -TD
+ modify adacurses-config to look for ".ali" files in the adalib
directory.
+ correct install for Ada95, which omitted libAdaCurses.a used in
adacurses-config
+ change install for adacurses-config to provide additional flavors
such as adacursesw-config, for ncursesw (GenToo #167849).
20090105
+ remove undeveloped feature in ncurses-config.in for setting
prefix variable.
+ recent change to ncurses-config.in did not take into account the
--disable-overwrite option, which sets $includedir to the
subdirectory and using just that for a -I option does not work - fix
(report by Frederic L W Meunier).
20090104
+ modify gen-pkgconfig.in to eliminate a dependency on rpath when
deciding whether to add $LIBS to --libs output; that should be shown
for the ncurses and tinfo libraries without taking rpath into
account.
+ fix an overlooked change from $AR_OPTS to $ARFLAGS in mk-1st.awk,
used in static libraries (report by Marty Jack).
20090103
+ add a configure-time check to pick a suitable value for
CC_SHARED_OPTS for Solaris (report by Dagobert Michelsen).
+ add configure --with-pkg-config and --enable-pc-files options, along
with misc/gen-pkgconfig.in which can be used to generate ".pc" files
for pkg-config (request by Jan Engelhardt).
+ use $includedir symbol in misc/ncurses-config.in, add --includedir
option.
+ change makefiles to use $ARFLAGS rather than $AR_OPTS, provide a
configure check to detect whether a "-" is needed before "ar"
options.
+ update config.guess, config.sub from
http://savannah.gnu.org/projects/config
20081227
+ modify mk-1st.awk to work with extra categories for tinfo library.
+ modify configure script to allow building shared libraries with gcc
on AIX 5 or 6 (adapted from patch by Lital Natan).
20081220
+ modify to omit the opaque-functions from lib_gen.o when
--disable-ext-funcs is used.
+ add test/clip_printw.c to illustrate how to use printw without
wrapping.
+ modify ncurses 'F' test to demo wborder_set() with colored lines.
+ modify ncurses 'f' test to demo wborder() with colored lines.
20081213
+ add check for failure to open hashed-database needed for db4.6
(GenToo #245370).
+ corrected --without-manpages option; previous change only suppressed
the auxiliary rules install.man and uninstall.man
+ add case for FreeMINT to configure macro CF_XOPEN_SOURCE (patch from
GenToo #250454).
+ fixes from NetBSD port at
http://cvsweb.netbsd.org/bsdweb.cgi/pkgsrc/devel/ncurses/patches
patch-ac (build-fix for DragonFly)
patch-ae (use INSTALL_SCRIPT for installing misc/ncurses*-config).
+ improve configure script macros CF_HEADER_PATH and CF_LIBRARY_PATH
by adding CFLAGS, CPPFLAGS and LDFLAGS, LIBS values to the
search-lists.
+ correct title string for keybound manpage (patch by Frederic Culot,
OpenBSD documentation/6019),
20081206
+ move del_curterm() call from _nc_freeall() to _nc_leaks_tinfo() to
work for progs/clear, progs/tabs, etc.
+ correct buffer-size after internal resizing of wide-character
set_field_buffer(), broken in 20081018 changes (report by Mike Gran).
+ add "-i" option to test/filter.c to tell it to use initscr() rather
than newterm(), to investigate report on comp.unix.programmer that
ncurses would clear the screen in that case (it does not - the issue
was xterm's alternate screen feature).
+ add check in mouse-driver to disable connection if GPM returns a
zero, indicating that the connection is closed (Debian #506717,
adapted from patch by Samuel Thibault).
20081129
+ improve a workaround in adding wide-characters, when a control
character is found. The library (cf: 20040207) uses unctrl() to
obtain a printable version of the control character, but was not
passing color or video attributes.
+ improve test/ncurses.c 'a' test, using unctrl() more consistently to
display meta-characters.
+ turn on _XOPEN_CURSES definition in curses.h
+ add eterm-color entry (report by Vincent Lefevre) -TD
+ correct use of key_name() in test/ncurses.c 'A' test, which only
displays wide-characters, not key-codes since 20070612 (report by
Ricardo Cantu).
20081122
+ change _nc_has_mouse() to has_mouse(), reflect its use in C++ and
Ada95 (patch by Juergen Pfeifer).
+ document in TO-DO an issue with Cygwin's package for GNAT (report
by Mike Dennison).
+ improve error-checking of command-line options in "tabs" program.
20081115
+ change several terminfo entries to make consistent use of ANSI
clear-all-tabs -TD
+ add "tabs" program (prompted by Debian #502260).
+ add configure --without-manpages option (request by Mike Frysinger).
20081102 5.7 release for upload to ftp.gnu.org
20081025
+ add a manpage to discuss memory leaks.
+ add support for shared libraries for QNX (other than libtool, which
does not work well on that platform).
+ build-fix for QNX C++ binding.
20081018
+ build-fixes for OS/2 EMX.
+ modify form library to accept control characters such as newline
in set_field_buffer(), which is compatible with Solaris (report by
Nit Khair).
+ modify configure script to assume --without-hashed-db when
--disable-database is used.
+ add "-e" option in ncurses/Makefile.in when generating source-files
to force earlier exit if the build environment fails unexpectedly
(prompted by patch by Adrian Bunk).
+ change configure script to use CF_UTF8_LIB, improved variant of
CF_LIBUTF8.
20081012
+ add teraterm4.59 terminfo entry, use that as primary teraterm entry, rename
original to teraterm2.3 -TD
+ update "gnome" terminfo to 2.22.3 -TD
+ update "konsole" terminfo to 1.6.6, needs today's fix for tic -TD
+ add "aterm" terminfo -TD
+ add "linux2.6.26" terminfo -TD
+ add logic to tic for cancelling strings in user-defined capabilities,
overlooked til now.
20081011
+ regenerated html documentation.
+ add -m and -s options to test/keynames.c and test/key_names.c to test
the meta() function with keyname() or key_name(), respectively.
+ correct return value of key_name() on error; it is null.
+ document some unresolved issues for rpath and pthreads in TO-DO.
+ fix a missing prototype for ioctl() on OpenBSD in tset.c
+ add configure option --disable-tic-depends to make explicit whether
tic library depends on ncurses/ncursesw library, amends change from
20080823 (prompted by Debian #501421).
20081004
+ some build-fixes for configure --disable-ext-funcs (incomplete, but
works for C/C++ parts).
+ improve configure-check for awks unable to handle large strings, e.g.
AIX 5.1 whose awk silently gives up on large printf's.
20080927
+ fix build for --with-dmalloc by workaround for redefinition of
strndup between string.h and dmalloc.h
+ fix build for --disable-sigwinch
+ add environment variable NCURSES_GPM_TERMS to allow override to use
GPM on terminals other than "linux", etc.
+ disable GPM mouse support when $TERM does not happen to contain
"linux", since Gpm_Open() no longer limits its assertion to terminals
that it might handle, e.g., within "screen" in xterm.
+ reset mouse file-descriptor when unloading GPM library (report by
Miroslav Lichvar).
+ fix build for --disable-leaks --enable-widec --with-termlib
> patch by Juergen Pfeifer:
+ use improved initialization for soft-label keys in Ada95 sample code.
+ discard internal symbol _nc_slk_format (unused since 20080112).
+ move call of slk_paint_info() from _nc_slk_initialize() to
slk_intern_refresh(), improving initialization.
20080925
+ fix bug in mouse code for GPM from 20080920 changes (reported in
Debian #500103, also Miroslav Lichvar).
20080920
+ fix shared-library rules for cygwin with tic- and tinfo-libraries.
+ fix a memory leak when failure to connect to GPM.
+ correct check for notimeout() in wgetch() (report on linux.redhat
newsgroup by FurtiveBertie).
+ add an example warning-suppression file for valgrind,
misc/ncurses.supp (based on example from Reuben Thomas)
20080913
+ change shared-library configuration for OpenBSD, make rpath work.
+ build-fixes for using libutf8, e.g., on OpenBSD 3.7
20080907
+ corrected fix for --enable-weak-symbols (report by Frederic L W
Meunier).
20080906
+ corrected gcc options for building shared libraries on IRIX64.
+ add configure check for awk programs unable to handle big-strings,
use that to improve the default for --enable-big-strings option.
+ makefile-fixes for --enable-weak-symbols (report by Frederic L W
Meunier).
+ update test/configure script.
+ adapt ifdef's from library to make test/view.c build when mbrtowc()
is unavailable, e.g., with HPUX 10.20.
+ add configure check for wcsrtombs, mbsrtowcs, which are used in
test/ncurses.c, and use wcstombs, mbstowcs instead if available,
fixing build of ncursew for HPUX 11.00
20080830
+ fixes to make Ada95 demo_panels() example work.
+ modify Ada95 'rain' test program to accept keyboard commands like the
C-version.
+ modify BeOS-specific ifdef's to build on Haiku (patch by Scott
Mccreary).
+ add configure-check to see if the std namespace is legal for cerr
and endl, to fix a build issue with Tru64.
+ consistently use NCURSES_BOOL in lib_gen.c
+ filter #line's from lib_gen.c
+ change delimiter in MKlib_gen.sh from '%' to '@', to avoid
substitution by IBM xlc to '#' as part of its extensions to digraphs.
+ update config.guess, config.sub from
http://savannah.gnu.org/projects/config
(caveat - its maintainer removed support for older Linux systems).
20080823
+ modify configure check for pthread library to work with OSF/1 5.1,
which uses #define's to associate its header and library.
+ use pthread_mutexattr_init() for initializing pthread_mutexattr_t,
makes threaded code work on HPUX 11.23
+ fix a bug in demo_menus in freeing menus (cf: 20080804).
+ modify configure script for the case where tic library is used (and
possibly renamed) to remove its dependency upon ncurses/ncursew
library (patch by Dr Werner Fink).
+ correct manpage for menu_fore() which gave wrong default for
the attribute used to display a selected entry (report by Mike Gran).
+ add Eterm-256color, Eterm-88color and rxvt-88color (prompted by
Debian #495815) -TD
20080816
+ add configure option --enable-weak-symbols to turn on new feature.
+ add configure-check for availability of weak symbols.
+ modify linkage with pthread library to use weak symbols so that
applications not linked to that library will not use the mutexes,
etc. This relies on gcc, and may be platform-specific (patch by Dr
Werner Fink).
+ add note to INSTALL to document limitation of renaming of tic library
using the --with-ticlib configure option (report by Dr Werner Fink).
+ document (in manpage) why tputs does not detect I/O errors (prompted
by comments by Samuel Thibault).
+ fix remaining warnings from Klocwork report.
20080804
+ modify _nc_panelhook() data to account for a permanent memory leak.
+ fix memory leaks in test/demo_menus
+ fix most warnings from Klocwork tool (report by Larry Zhou).
+ modify configure script CF_XOPEN_SOURCE macro to add case for
"dragonfly" from xterm #236 changes.
+ modify configure script --with-hashed-db to let $LIBS override the
search for the db library (prompted by report by Samson Pierre).
20080726
+ build-fixes for gcc 4.3.1 (changes to gnat "warnings", and C inlining
thresholds).
20080713
+ build-fix (reports by Christian Ebert, Funda Wang).
20080712
+ compiler-warning fixes for Solaris.
20080705
+ use NCURSES_MOUSE_MASK() in definition of BUTTON_RELEASE(), etc., to
make those work properly with the "--enable-ext-mouse" configuration
(cf: 20050205).
+ improve documentation of build-cc options in INSTALL.
+ work-around a bug in gcc 4.2.4 on AIX, which does not pass the
-static/-dynamic flags properly to linker, causing test/bs to
not link.
20080628
+ correct some ifdef's needed for the broken-linker configuration.
+ make debugging library's $BAUDRATE feature work for termcap
interface.
+ make $NCURSES_NO_PADDING feature work for termcap interface (prompted
by comment on FreeBSD mailing list).
+ add screen.mlterm terminfo entry -TD
+ improve mlterm and mlterm+pcfkeys terminfo entries -TD
20080621
+ regenerated html documentation.
+ expand manpage description of parameters for form_driver() and
menu_driver() (prompted by discussion with Adam Spragg).
+ add null-pointer checks for cur_term in baudrate() and
def_shell_mode(), def_prog_mode()
+ fix some memory leaks in delscreen() and wide acs.
20080614
+ modify test/ditto.c to illustrate multi-threaded use_screen().
+ change CC_SHARED_OPTS from -KPIC to -xcode=pic32 for Solaris.
+ add "-shared" option to MK_SHARED_LIB for gcc on Solaris (report
by Poor Yorick).
20080607
+ finish changes to wgetch(), making it switch as needed to the
window's actual screen when calling wrefresh() and wgetnstr(). That
allows wgetch() to get used concurrently in different threads with
some minor restrictions, e.g., the application should not delete a
window which is being used in a wgetch().
+ simplify mutex's, combining the window- and screen-mutex's.
20080531
+ modify wgetch() to use the screen which corresponds to its window
parameter rather than relying on SP; some dependent functions still
use SP internally.
+ factor out most use of SP in lib_mouse.c, using parameter.
+ add internal _nc_keyname(), replacing keyname() to associate with a
particular SCREEN rather than the global SP.
+ add internal _nc_unctrl(), replacing unctrl() to associate with a
particular SCREEN rather than the global SP.
+ add internal _nc_tracemouse(), replacing _tracemouse() to eliminate
its associated global buffer _nc_globals.tracemse_buf now in SCREEN.
+ add internal _nc_tracechar(), replacing _tracechar() to use SCREEN in
preference to the global _nc_globals.tracechr_buf buffer.
20080524
+ modify _nc_keypad() to make it switch temporarily as needed to the
screen which must be updated.
+ wrap cur_term variable to help make _nc_keymap() thread-safe, and
always set the screen's copy of this variable in set_curterm().
+ restore curs_set() state after endwin()/refresh() (report/patch
Miroslav Lichvar)
20080517
+ modify configure script to note that --enable-ext-colors and
--enable-ext-mouse are not experimental, but extensions from
the ncurses ABI 5.
+ corrected manpage description of setcchar() (discussion with
Emanuele Giaquinta).
+ fix for adding a non-spacing character at the beginning of a line
(report/patch by Miroslav Lichvar).
20080503
+ modify screen.* terminfo entries using new screen+fkeys to fix
overridden keys in screen.rxvt (Debian #478094) -TD
+ modify internal interfaces to reduce wgetch()'s dependency on the
global SP.
+ simplify some loops with macros each_screen(), each_window() and
each_ripoff().
20080426
+ continue modifying test/ditto.c toward making it demonstrate
multithreaded use_screen(), using fifos to pass data between screens.
+ fix typo in form.3x (report by Mike Gran).
20080419
+ add screen.rxvt terminfo entry -TD
+ modify tic -f option to format spaces as \s to prevent them from
being lost when that is read back in unformatted strings.
+ improve test/ditto.c, using a "talk"-style layout.
20080412
+ change test/ditto.c to use openpty() and xterm.
+ add locks for copywin(), dupwin(), overlap(), overlay() on their
window parameters.
+ add locks for initscr() and newterm() on updates to the SCREEN
pointer.
+ finish table in curs_thread.3x manpage.
20080405
+ begin table in curs_thread.3x manpage describing the scope of data
used by each function (or symbol) for threading analysis.
+ add null-pointer checks to setsyx() and getsyx() (prompted by
discussion by Martin v. Lowis and Jeroen Ruigrok van der Werven on
python-dev2 mailing list).
20080329
+ add null-pointer checks in set_term() and delscreen().
+ move _nc_windows into _nc_globals, since windows can be pads, which
are not associated with a particular screen.
+ change use_screen() to pass the SCREEN* parameter rather than
stdscr to the callback function.
+ force libtool to use tag for 'CC' in case it does not detect this,
e.g., on aix when using CC=powerpc-ibm-aix5.3.0.0-gcc
(report/patch by Michael Haubenwallner).
+ override OBJEXT to "lo" when building with libtool, to work on
platforms such as AIX where libtool may use a different suffix for
the object files than ".o" (report/patch by Michael Haubenwallner).
+ add configure --with-pthread option, for building with the POSIX
thread library.
20080322
+ fill in extended-color pair two more places in wbkgrndset() and
waddch_nosync() (prompted by Sedeno's patch).
+ fill in extended-color pair in _nc_build_wch() to make colors work
for wide-characters using extended-colors (patch by Alejandro R
Sedeno).
+ add x/X toggles to ncurses.c C color test to test/demo
wide-characters with extended-colors.
+ add a/A toggles to ncurses.c c/C color tests.
+ modify test/ditto.c to use use_screen().
+ finish modifying test/rain.c to demonstrate threads.
20080308
+ start modifying test/rain.c for threading demo.
+ modify test/ncurses.c to make 'f' test accept the f/F/b/F/ toggles
that the 'F' accepts.
+ modify test/worm.c to show trail in reverse-video when other threads
are working concurrently.
+ fix a deadlock from improper nesting of mutexes for windowlist and
window.
20080301
+ fixes from 20080223 resolved issue with mutexes; change to use
recursive mutexes to fix memory leak in delwin() as called from
_nc_free_and_exit().
20080223
+ fix a size-difference in _nc_globals which caused hanging of mutex
lock/unlock when termlib was built separately.
20080216
+ avoid using nanosleep() in threaded configuration since that often
is implemented to suspend the entire process.
20080209
+ update test programs to build/work with various UNIX curses for
comparisons. This was to reinvestigate statement in X/Open Curses
that insnstr and winsnstr perform wrapping. None of the Unix-branded
implementations do this, as noted in manpage (cf: 20040228).
20080203
+ modify _nc_setupscreen() to set the legacy-coding value the same
for both narrow/wide models. It had been set only for wide model,
but is needed to make unctrl() work with locale in the narrow model.
+ improve waddch() and winsch() handling of EILSEQ from mbrtowc() by
using unctrl() to display illegal bytes rather than trying to append
further bytes to make up a valid sequence (reported by Andrey A
Chernov).
+ modify unctrl() to check codes in 128-255 range versus isprint().
If they are not printable, and locale was set, use a "M-" or "~"
sequence.
20080126
+ improve threading in test/worm.c (wrap refresh calls, and KEY_RESIZE
handling). Now it hangs in napms(), no matter whether nanosleep()
or poll() or select() are used on Linux.
20080119
+ fixes to build with --disable-ext-funcs
+ add manpage for use_window and use_screen.
+ add set_tabsize() and set_escdelay() functions.
20080112
+ remove recursive-mutex definitions, finish threading demo for worm.c
+ remove a redundant adjustment of lines in resizeterm.c's
adjust_window() which caused occasional misadjustment of stdscr when
softkeys were used.
20080105
+ several improvements to terminfo entries based on xterm #230 -TD
+ modify MKlib_gen.sh to handle keyname/key_name prototypes, so the
"link_test" builds properly.
+ fix for toe command-line options -u/-U to ensure filename is given.
+ fix allocation-size for command-line parsing in infocmp from 20070728
(report by Miroslav Lichvar)
+ improve resizeterm() by moving ripped-off lines, and repainting the
soft-keys (report by Katarina Machalkova)
+ add clarification in wclear's manpage noting that the screen will be
cleared even if a subwindow is cleared (prompted by Christer Enfors
question).
+ change test/ncurses.c soft-key tests to work with KEY_RESIZE.
20071222
+ continue implementing support for threading demo by adding mutex
for delwin().
20071215
+ add several functions to C++ binding which wrap C functions that
pass a WINDOW* parameter (request by Chris Lee).
20071201
+ add note about configure options needed for Berkeley database to the
INSTALL file.
+ improve checks for version of Berkeley database libraries.
+ amend fix for rpath to not modify LDFLAGS if the platform has no
applicable transformation (report by Christian Ebert, cf: 20071124).
20071124
+ modify configure option --with-hashed-db to accept a parameter which
is the install-prefix of a given Berkeley Database (prompted by
pierre4d2 comments).
+ rewrite wrapper for wcrtomb(), making it work on Solaris. This is
used in the form library to determine the length of the buffer needed
by field_buffer (report by Alfred Fung).
+ remove unneeded window-parameter from C++ binding for wresize (report
by Chris Lee).
20071117
+ modify the support for filesystems which do not support mixed-case to
generate 2-character (hexadecimal) codes for the lower-level of the
filesystem terminfo database (request by Michail Vidiassov).
+ add configure option --enable-mixed-case, to allow overriding the
configure script's check if the filesystem supports mixed-case
filenames.
+ add wresize() to C++ binding (request by Chris Lee).
+ define NCURSES_EXT_FUNCS and NCURSES_EXT_COLORS in curses.h to make
it simpler to tell if the extended functions and/or colors are
declared.
20071103
+ update memory-leak checks for changes to names.c and codes.c
+ correct acsc strings in h19, z100 (patch by Benjamin C W Sittler).
20071020
+ continue implementing support for threading demo by adding mutex
for use_window().
+ add mrxvt terminfo entry, add/fix xterm building blocks for modified
cursor keys -TD
+ compile with FreeBSD "contemporary" TTY interface (patch by
Rong-En Fan).
20071013
+ modify makefile rules to allow clear, tput and tset to be built
without libtic. The other programs (infocmp, tic and toe) rely on
that library.
+ add/modify null-pointer checks in several functions for SP and/or
the WINDOW* parameter (report by Thorben Krueger).
+ fixes for field_buffer() in formw library (see Redhat #310071,
patches by Miroslav Lichvar).
+ improve performance of NCURSES_CHAR_EQ code (patch by Miroslav
Lichvar).
+ update/improve mlterm and rxvt terminfo entries, e.g., for
the modified cursor- and keypad-keys -TD
20071006
+ add code to curses.priv.h ifdef'd with NCURSES_CHAR_EQ, which
changes the CharEq() macro to an inline function to allow comparing
cchar_t struct's without comparing gaps in a possibly unpacked
memory layout (report by Miroslav Lichvar).
20070929
+ add new functions to lib_trace.c to setup mutex's for the _tracef()
calls within the ncurses library.
+ for the reentrant model, move _nc_tputs_trace and _nc_outchars into
the SCREEN.
+ start modifying test/worm.c to provide threading demo (incomplete).
+ separated ifdef's for some BSD-related symbols in tset.c, to make
it compile on LynxOS (report by Greg Gemmer).
20070915
+ modify Ada95/gen/Makefile to use shlib script, to simplify building
shared-library configuration on platforms lacking rpath support.
+ build-fix for Ada95/src/Makefile to reflect changed dependency for
the terminal-interface-curses-aux.adb file which is now generated.
+ restructuring test/worm.c, for use_window() example.
20070908
+ add use_window() and use_screen() functions, to develop into support
for threaded library (incomplete).
+ fix typos in man/curs_opaque.3x which kept the install script from
creating symbolic links to two aliases created in 20070818 (report by
Rong-En Fan).
20070901
+ remove a spurious newline from output of html.m4, which caused links
for Ada95 html to be incorrect for the files generated using m4.
+ start investigating mutex's for SCREEN manipulation (incomplete).
+ minor cleanup of codes.c/names.c for --enable-const
+ expand/revise "Routine and Argument Names" section of ncurses manpage
to address report by David Givens in newsgroup discussion.
+ fix interaction between --without-progs/--with-termcap configure
options (report by Michail Vidiassov).
+ fix typo in "--disable-relink" option (report by Michail Vidiassov).
20070825
+ fix a sign-extension bug in infocmp's repair_acsc() function
(cf: 971004).
+ fix old configure script bug which prevented "--disable-warnings"
option from working (patch by Mike Frysinger).
20070818
+ add 9term terminal description (request by Juhapekka Tolvanen) -TD
+ modify comp_hash.c's string output to avoid misinterpreting a null
"\0" followed by a digit.
+ modify MKnames.awk and MKcodes.awk to support big-strings.
This only applies to the cases (broken linker, reentrant) where
the corresponding arrays are accessed via wrapper functions.
+ split MKnames.awk into two scripts, eliminating the shell redirection
which complicated the make process and also the bogus timestamp file
which was introduced to fix "make -j".
+ add test/test_opaque.c, test/test_arrays.c
+ add wgetscrreg() and wgetparent() for applications that may need it
when NCURSES_OPAQUE is defined (prompted by Bryan Christ).
20070812
+ amend treatment of infocmp "-r" option to retain the 1023-byte limit
unless "-T" is given (cf: 981017).
+ modify comp_captab.c generation to use big-strings.
+ make _nc_capalias_table and _nc_infoalias_table private accessed via
_nc_get_alias_table() since the tables are used only within the tic
library.
+ modify configure script to skip Intel compiler in CF_C_INLINE.
+ make _nc_info_hash_table and _nc_cap_hash_table private accessed via
_nc_get_hash_table() since the tables are used only within the tic
library.
20070728
+ make _nc_capalias_table and _nc_infoalias_table private, accessed via
_nc_get_alias_table() since they are used only by parse_entry.c
+ make _nc_key_names private since it is used only by lib_keyname.c
+ add --disable-big-strings configure option to control whether
unctrl.c is generated using the big-string optimization - which may
use strings longer than supported by a given compiler.
+ reduce relocation tables for tic, infocmp by changing type of
internal hash tables to short, and make those private symbols.
+ eliminate large fixed arrays from progs/infocmp.c
20070721
+ change winnstr() to stop at the end of the line (cf: 970315).
+ add test/test_get_wstr.c
+ add test/test_getstr.c
+ add test/test_inwstr.c
+ add test/test_instr.c
20070716
+ restore a call to obtain screen-size in _nc_setupterm(), which
is used in tput and other non-screen applications via setupterm()
(Debian #433357, reported by Florent Bayle, Christian Ohm,
cf: 20070310).
20070714
+ add test/savescreen.c test-program
+ add check to trace-file open, if the given name is a directory, add
".log" to the name and try again.
+ add konsole-256color entry -TD
+ add extra gcc warning options from xterm.
+ minor fixes for ncurses/hashmap test-program.
+ modify configure script to quiet c++ build with libtool when the
--disable-echo option is used.
+ modify configure script to disable ada95 if libtool is selected,
writing a warning message (addresses FreeBSD #114493).
+ update config.guess, config.sub
20070707
+ add continuous-move "M" to demo_panels to help test refresh changes.
+ improve fix for refresh of window on top of multi-column characters,
taking into account some split characters on left/right window
boundaries.
20070630
+ add "widec" row to _tracedump() output to help diagnose remaining
problems with multi-column characters.
+ partial fix for refresh of window on top of multi-column characters
which are partly overwritten (report by Sadrul H Chowdhury).
+ ignore A_CHARTEXT bits in vidattr() and vid_attr(), in case
multi-column extension bits are passed there.
+ add setlocale() call to demo_panels.c, needed for wide-characters.
+ add some output flags to _nc_trace_ttymode to help diagnose a bug
report by Larry Virden, i.e., ONLCR, OCRNL, ONOCR and ONLRET,
20070623
+ add test/demo_panels.c
+ implement opaque version of setsyx() and getsyx().
20070612
+ corrected xterm+pcf2 terminfo modifiers for F1-F4, to match xterm
#226 -TD
+ split-out key_name() from MKkeyname.awk since it now depends upon
wunctrl() which is not in libtinfo (report by Rong-En Fan).
20070609
+ add test/key_name.c
+ add stdscr cases to test/inchs.c and test/inch_wide.c
+ update test/configure
+ correct formatting of DEL (0x7f) in _nc_vischar().
+ null-terminate result of wunctrl().
+ add null-pointer check in key_name() (report by Andreas Krennmair,
cf: 20020901).
20070602
+ adapt mouse-handling code from menu library in form-library
(discussion with Clive Nicolson).
+ add a modification of test/dots.c, i.e., test/dots_mvcur.c to
illustrate how to use mvcur().
+ modify wide-character flavor of SetAttr() to preserve the
WidecExt() value stored in the .attr field, e.g., in case it
is overwritten by chgat (report by Aleksi Torhamo).
+ correct buffer-size for _nc_viswbuf2n() (report by Aleksi Torhamo).
+ build-fixes for Solaris 2.6 and 2.7 (patch by Peter O'Gorman).
20070526
+ modify keyname() to use "^X" form only if meta() has been called, or
if keyname() is called without initializing curses, e.g., via
initscr() or newterm() (prompted by LinuxBase #1604).
+ document some portability issues in man/curs_util.3x
+ add a shadow copy of TTY buffer to _nc_prescreen to fix applications
broken by moving that data into SCREEN (cf: 20061230).
20070512
+ add 'O' (wide-character panel test) in ncurses.c to demonstrate a
problem reported by Sadrul H Chowdhury with repainting parts of
a fullwidth cell.
+ modify slk_init() so that if there are preceding calls to
ripoffline(), those affect the available lines for soft-keys (adapted
from patch by Clive Nicolson).
+ document some portability issues in man/curs_getyx.3x
20070505
+ fix a bug in Ada95/samples/ncurses which caused a variable to
become uninitialized in the "b" test.
+ fix Ada95/gen/Makefile.in adahtml rule to account for recent
movement of files, fix a few incorrect manpage references in the
generated html.
+ add Ada95 binding to _nc_freeall() as Curses_Free_All to help with
memory-checking.
+ correct some functions in Ada95 binding which were using return value
from C where none was returned: idcok(), immedok() and wtimeout().
+ amend recent changes for Ada95 binding to make it build with
Cygwin's linker, e.g., with configure options
--enable-broken-linker --with-ticlib
20070428
+ add a configure check for gcc's options for inlining, use that to
quiet a warning message where gcc's default behavior changed from
3.x to 4.x.
+ improve warning message when checking if GPM is linked to curses
library by not warning if its use of "wgetch" is via a weak symbol.
+ add loader options when building with static libraries to ensure that
an installed shared library for ncurses does not conflict. This is
reported as problem with Tru64, but could affect other platforms
(report Martin Mokrejs, analysis by Tim Mooney).
+ fix build on cygwin after recent ticlib/termlib changes, i.e.,
+ adjust TINFO_SUFFIX value to work with cygwin's dll naming
+ revert a change from 20070303 which commented out dependency of
SHLIB_LIST in form/menu/panel/c++ libraries.
+ fix initialization of ripoff stack pointer (cf: 20070421).
20070421
+ move most static variables into structures _nc_globals and
_nc_prescreen, to simplify storage.
+ add/use configure script macro CF_SIG_ATOMIC_T, use the corresponding
type for data manipulated by signal handlers (prompted by comments
in mailing.openbsd.bugs newsgroup).
+ modify CF_WITH_LIBTOOL to allow one to pass options such as -static
to the libtool create- and link-operations.
20070414
+ fix whitespace in curs_opaque.3x which caused a spurious ';' in
the installed aliases (report by Peter Santoro).
+ fix configure script to not try to generate adacurses-config when
Ada95 tree is not built.
20070407
+ add man/curs_legacy.3x, man/curs_opaque.3x
+ fix acs_map binding for Ada95 when --enable-reentrant is used.
+ add adacurses-config to the Ada95 install, based on version from
FreeBSD port, in turn by Juergen Pfeifer in 2000 (prompted by
comment on comp.lang.ada newsgroup).
+ fix includes in c++ binding to build with Intel compiler
(cf: 20061209).
+ update install rule in Ada95 to use mkdirs.sh
> other fixes prompted by inspection for Coverity report:
+ modify ifdef's for c++ binding to use try/catch/throw statements
+ add a null-pointer check in tack/ansi.c request_cfss()
+ fix a memory leak in ncurses/base/wresize.c
+ corrected check for valid memu/meml capabilities in
progs/dump_entry.c when handling V_HPUX case.
> fixes based on Coverity report:
+ remove dead code in test/bs.c
+ remove dead code in test/demo_defkey.c
+ remove an unused assignment in progs/infocmp.c
+ fix a limit check in tack/ansi.c tools_charset()
+ fix tack/ansi.c tools_status() to perform the VT320/VT420
tests in request_cfss(). The function had exited too soon.
+ fix a memory leak in tic.c's make_namelist()
+ fix a couple of places in tack/output.c which did not check for EOF.
+ fix a loop-condition in test/bs.c
+ add index checks in lib_color.c for color palettes
+ add index checks in progs/dump_entry.c for version_filter() handling
of V_BSD case.
+ fix a possible null-pointer dereference in copywin()
+ fix a possible null-pointer dereference in waddchnstr()
+ add a null-pointer check in _nc_expand_try()
+ add a null-pointer check in tic.c's make_namelist()
+ add a null-pointer check in _nc_expand_try()
+ add null-pointer checks in test/cardfile.c
+ fix a double-free in ncurses/tinfo/trim_sgr0.c
+ fix a double-free in ncurses/base/wresize.c
+ add try/catch block to c++/cursesmain.cc
20070331
+ modify Ada95 binding to build with --enable-reentrant by wrapping
global variables (bug: acs_map does not yet work).
+ modify Ada95 binding to use the new access-functions, allowing it
to build/run when NCURSES_OPAQUE is set.
+ add access-functions and macros to return properties of the WINDOW
structure, e.g., when NCURSES_OPAQUE is set.
+ improved install-sh's quoting.
+ use mkdirs.sh rather than mkinstalldirs, e.g., to use fixes from
other programs.
20070324
+ eliminate part of the direct use of WINDOW data from Ada95 interface.
+ fix substitutions for termlib filename to make configure option
--enable-reentrant work with --with-termlib.
+ change a constructor for NCursesWindow to allow compiling with
NCURSES_OPAQUE set, since we cannot pass a reference to
an opaque pointer.
20070317
+ ignore --with-chtype=unsigned since unsigned is always added to
the type in curses.h; do the same for --with-mmask-t.
+ change warning regarding --enable-ext-colors and wide-character
in the configure script to an error.
+ tweak error message in CF_WITH_LIBTOOL to distinguish other programs
such as Darwin's libtool program (report by Michail Vidiassov)
+ modify edit_man.sh to allow for multiple substitutions per line.
+ set locale in misc/ncurses-config.in since it uses a range
+ change permissions libncurses++.a install (report by Michail
Vidiassov).
+ corrected length of temporary buffer in wide-character version
of set_field_buffer() (related to report by Bryan Christ).
20070311
+ fix mk-1st.awk script install_shlib() function, broken in 20070224
changes for cygwin (report by Michail Vidiassov).
20070310
+ increase size of array in _nc_visbuf2n() to make "tic -v" work
properly in its similar_sgr() function (report/analysis by Peter
Santoro).
+ add --enable-reentrant configure option for ongoing changes to
implement a reentrant version of ncurses:
+ libraries are suffixed with "t"
+ wrap several global variables (curscr, newscr, stdscr, ttytype,
COLORS, COLOR_PAIRS, COLS, ESCDELAY, LINES and TABSIZE) as
functions returning values stored in SCREEN or cur_term.
+ move some initialization (LINES, COLS) from lib_setup.c,
i.e., setupterm() to _nc_setupscreen(), i.e., newterm().
20070303
+ regenerated html documentation.
+ add NCURSES_OPAQUE symbol to curses.h, will use to make structs
opaque in selected configurations.
+ move the chunk in lib_acs.c which resets acs capabilities when
running on a terminal whose locale interferes with those into
_nc_setupscreen(), so the libtinfo/libtinfow files can be made
identical (requested by Miroslav Lichvar).
+ do not use configure variable SHLIB_LIBS for building libraries
outside the ncurses directory, since that symbol is customized
only for that directory, and using it introduces an unneeded
dependency on libdl (requested by Miroslav Lichvar).
+ modify mk-1st.awk so the generated makefile rules for linking or
installing shared libraries do not first remove the library, in
case it is in use, e.g., libncurses.so by /bin/sh (report by Jeff
Chua).
+ revised section "Using NCURSES under XTERM" in ncurses-intro.html
(prompted by newsgroup comment by Nick Guenther).
20070224
+ change internal return codes of _nc_wgetch() to check for cases
where KEY_CODE_YES should be returned, e.g., if a KEY_RESIZE was
ungetch'd, and read by wget_wch().
+ fix static-library build broken in 20070217 changes to remove "-ldl"
(report by Miroslav Lichvar).
+ change makefile/scripts for cygwin to allow building termlib.
+ use Form_Hook in manpages to match form.h
+ use Menu_Hook in manpages, as well as a few places in menu.h
+ correct form- and menu-manpages to use specific Field_Options,
Menu_Options and Item_Options types.
+ correct prototype for _tracechar() in manpage (cf: 20011229).
+ correct prototype for wunctrl() in manpage.
20070217
+ fixes for $(TICS_LIST) in ncurses/Makefile (report by Miroslav
Lichvar).
+ modify relinking of shared libraries to apply only when rpath is
enabled, and add --disable-relink option which can be used to
disable the feature altogether (reports by Michail Vidiassov,
Adam J Richter).
+ fix --with-termlib option for wide-character configuration, stripping
the "w" suffix in one place (report by Miroslav Lichvar).
+ remove "-ldl" from some library lists to reduce dependencies in
programs (report by Miroslav Lichvar).
+ correct description of --enable-signed-char in configure --help
(report by Michail Vidiassov).
+ add pattern for GNU/kFreeBSD configuration to CF_XOPEN_SOURCE,
which matches an earlier change to CF_SHARED_OPTS, from xterm #224
fixes.
+ remove "${DESTDIR}" from -install_name option used for linking
shared libraries on Darwin (report by Michail Vidiassov).
20070210
+ add test/inchs.c, test/inch_wide.c, to test win_wchnstr().
+ remove libdl from library list for termlib (report by Miroslav
Lichvar).
+ fix configure.in to allow --without-progs --with-termlib (patch by
Miroslav Lichvar).
+ modify win_wchnstr() to ensure that only a base cell is returned
for each multi-column character (prompted by report by Wei Kong
regarding change in mvwin_wch() cf: 20041023).
20070203
+ modify fix_wchnstr() in form library to strip attributes (and color)
from the cchar_t array (field cells) read from a field's window.
Otherwise, when copying the field cells back to the window, the
associated color overrides the field's background color (report by
Ricardo Cantu).
+ improve tracing for form library, showing created forms, fields, etc.
+ ignore --enable-rpath configure option if --with-shared was omitted.
+ add _nc_leaks_tinfo(), _nc_free_tic(), _nc_free_tinfo() entrypoints
to allow leak-checking when both tic- and tinfo-libraries are built.
+ drop CF_CPP_VSCAN_FUNC macro from configure script, since C++ binding
no longer relies on it.
+ disallow combining configure script options --with-ticlib and
--enable-termcap (report by Rong-En Fan).
+ remove tack from ncurses tree.
20070128
+ fix typo in configure script that broke --with-termlib option
(report by Rong-En Fan).
20070127
+ improve fix for FreeBSD gnu/98975, to allow for null pointer passed
to tgetent() (report by Rong-en Fan).
+ update tack/HISTORY and tack/README to tell how to build it after
it is removed from the ncurses tree.
+ fix configure check for libtool's version to trim blank lines
(report by sci-fi@hush.ai).
+ review/eliminate other original-file artifacts in cursesw.cc, making
its license consistent with ncurses.
+ use ncurses vw_scanw() rather than reading into a fixed buffer in
the c++ binding for scanw() methods (prompted by report by Nuno Dias).
+ eliminate fixed-buffer vsprintf() calls in c++ binding.
20070120
+ add _nc_leaks_tic() to separate leak-checking of tic library from
term/ncurses libraries, and thereby eliminate a library dependency.
+ fix test/mk-test.awk to ignore blank lines.
+ correct paths in include/headers, for --srcdir (patch by Miroslav
Lichvar).
20070113
+ add a break-statement in misc/shlib to ensure that it exits on the
_first_ matched directory (report by Paul Novak).
+ add tack/configure, which can be used to build tack outside the
ncurses build-tree.
+ add --with-ticlib option, to build/install the tic-support functions
in a separate library (suggested by Miroslav Lichvar).
20070106
+ change MKunctrl.awk to reduce relocation table for unctrl.o
+ change MKkeyname.awk to reduce relocation table for keyname.o
(patch by Miroslav Lichvar).
20061230
+ modify configure check for libtool's version to trim blank lines
(report by sci-fi@hush.ai).
+ modify some modules to allow them to be reentrant if _REENTRANT is
defined: lib_baudrate.c, resizeterm.c (local data only)
+ eliminate static data from some modules: add_tries.c, hardscroll.c,
lib_ttyflags.c, lib_twait.c
+ improve manpage install to add aliases for the transformed program
names, e.g., from --program-prefix.
+ used linklint to verify links in the HTML documentation, made fixes
to manpages as needed.
+ fix a typo in curs_mouse.3x (report by William McBrine).
+ fix install-rule for ncurses5-config to make the bin-directory.
20061223
+ modify configure script to omit the tic (terminfo compiler) support
from ncurses library if --without-progs option is given.
+ modify install rule for ncurses5-config to do this via "install.libs"
+ modify shared-library rules to allow FreeBSD 3.x to use rpath.
+ update config.guess, config.sub
20061217 5.6 release for upload to ftp.gnu.org
20061217
+ add ifdef's for for HPUX, which has the corresponding
definitions in .
+ revert the va_copy() change from 20061202, since it was neither
correct nor portable.
+ add $(LOCAL_LIBS) definition to progs/Makefile.in, needed for
rpath on Solaris.
+ ignore wide-acs line-drawing characters that wcwidth() claims are
not one-column. This is a workaround for Solaris' broken locale
support.
20061216
+ modify configure --with-gpm option to allow it to accept a parameter,
i.e., the name of the dynamic GPM library to load via dlopen()
(requested by Bryan Henderson).
+ add configure option --with-valgrind, changes from vile.
+ modify configure script AC_TRY_RUN and AC_TRY_LINK checks to use
'return' in preference to 'exit()'.
20061209
+ change default for --with-develop back to "no".
+ add XTABS to tracing of TTY bits.
+ updated autoconf patch to ifdef-out the misfeature which declares
exit() for configure tests. This fixes a redefinition warning on
Solaris.
+ use ${CC} rather than ${LD} in shared library rules for IRIX64,
Solaris to help ensure that initialization sections are provided for
extra linkage requirements, e.g., of C++ applications (prompted by
comment by Casper Dik in newsgroup).
+ rename "$target" in CF_MAN_PAGES to make it easier to distinguish
from the autoconf predefined symbol. There was no conflict,
since "$target" was used only in the generated edit_man.sh file,
but SuSE's rpm package contains a patch.
20061202
+ update man/term.5 to reflect extended terminfo support and hashed
database configuration.
+ updates for test/configure script.
+ adapted from SuSE rpm package:
+ remove long-obsolete workaround for broken-linker which declared
cur_term in tic.c
+ improve error recovery in PUTC() macro when wcrtomb() does not
return usable results for an 8-bit character.
+ patches from rpm package (SuSE):
+ use va_copy() in extra varargs manipulation for tracing version
of printw, etc.
+ use a va_list rather than a null in _nc_freeall()'s call to
_nc_printf_string().
+ add some see-also references in manpages to show related
wide-character functions (suggested by Claus Fischer).
20061125
+ add a check in lib_color.c to ensure caller does not increase COLORS
above max_colors, which is used as an array index (discussion with
Simon Sasburg).
+ add ifdef's allowing ncurses to be built with tparm() using either
varargs (the existing status), or using a fixed-parameter list (to
match X/Open).
20061104
+ fix redrawing of windows other than stdscr using wredrawln() by
touching the corresponding rows in curscr (discussion with Dan
Gookin).
+ add test/redraw.c
+ add test/echochar.c
+ review/cleanup manpage descriptions of error-returns for form- and
menu-libraries (prompted by FreeBSD docs/46196).
20061028
+ add AUTHORS file -TD
+ omit the -D options from output of the new config script --cflags
option (suggested by Ralf S Engelschall).
+ make NCURSES_INLINE unconditionally defined in curses.h
20061021
+ revert change to accommodate bash 3.2, since that breaks other
platforms, e.g., Solaris.
+ minor fixes to NEWS file to simplify scripting to obtain list of
contributors.
+ improve some shared-library configure scripting for Linux, FreeBSD
and NetBSD to make "--with-shlib-version" work.
+ change configure-script rules for FreeBSD shared libraries to allow
for rpath support in versions past 3.
+ use $(DESTDIR) in makefile rules for installing/uninstalling the
package config script (reports/patches by Christian Wiese,
Ralf S Engelschall).
+ fix a warning in the configure script for NetBSD 2.0, working around
spurious blanks embedded in its ${MAKEFLAGS} symbol.
+ change test/Makefile to simplify installing test programs in a
different directory when --enable-rpath is used.
20061014
+ work around bug in bash 3.2 by adding extra quotes (Jim Gifford).
+ add/install a package config script, e.g., "ncurses5-config" or
"ncursesw5-config", according to configuration options.
20061007
+ add several GNU Screen terminfo variations with 16- and 256-colors,
and status line (Alain Bench).
+ change the way shared libraries (other than libtool) are installed.
Rather than copying the build-tree's libraries, link the shared
objects into the install directory. This makes the --with-rpath
option work except with $(DESTDIR) (cf: 20000930).
20060930
+ fix ifdef in c++/internal.h for QNX 6.1
+ test-compiled with (old) egcs-1.1.2, modified configure script to
not unset the $CXX and related variables which would prevent this.
+ fix a few terminfo.src typos exposed by improvements to "-f" option.
+ improve infocmp/tic "-f" option formatting.
20060923
+ make --disable-largefile option work (report by Thomas M Ott).
+ updated html documentation.
+ add ka2, kb1, kb3, kc2 to vt220-keypad as an extension -TD
+ minor improvements to rxvt+pcfkeys -TD
20060916
+ move static data from lib_mouse.c into SCREEN struct.
+ improve ifdef's for _POSIX_VDISABLE in tset to work with Mac OS X
(report by Michail Vidiassov).
+ modify CF_PATH_SYNTAX to ensure it uses the result from --prefix
option (from lynx changes) -TD
+ adapt AC_PROG_EGREP check, noting that this is likely to be another
place aggravated by POSIXLY_CORRECT.
+ modify configure check for awk to ensure that it is found (prompted
by report by Christopher Parker).
+ update config.sub
20060909
+ add kon, kon2 and jfbterm terminfo entry (request by Till Maas) -TD
+ remove invis capability from klone+sgr, mainly used by linux entry,
since it does not really do this -TD
20060903
+ correct logic in wadd_wch() and wecho_wch(), which did not guard
against passing the multi-column attribute into a call on waddch(),
e.g., using data returned by win_wch() (cf: 20041023)
(report by Sadrul H Chowdhury).
20060902
+ fix kterm's acsc string -TD
+ fix for change to tic/infocmp in 20060819 to ensure no blank is
embedded into a termcap description.
+ workaround for 20050806 ifdef's change to allow visbuf.c to compile
when using --with-termlib --with-trace options.
+ improve tgetstr() by making the return value point into the user's
buffer, if provided (patch by Miroslav Lichvar (see Redhat #202480)).
+ correct libraries needed for foldkeys (report by Stanislav Ievlev)
20060826
+ add terminfo entries for xfce terminal (xfce) and multi gnome
terminal (mgt) -TD
+ add test/foldkeys.c
20060819
+ modify tic and infocmp to avoid writing trailing blanks on terminfo
source output (Debian #378783).
+ modify configure script to ensure that if the C compiler is used
rather than the loader in making shared libraries, the $(CFLAGS)
variable is also used (Redhat #199369).
+ port hashed-db code to db2 and db3.
+ fix a bug in tgetent() from 20060625 and 20060715 changes
(patch/analysis by Miroslav Lichvar (see Redhat #202480)).
20060805
+ updated xterm function-keys terminfo to match xterm #216 -TD
+ add configure --with-hashed-db option (tested only with FreeBSD 6.0,
e.g., the db 1.8.5 interface).
20060729
+ modify toe to access termcap data, e.g., via cgetent() functions,
or as a text file if those are not available.
+ use _nc_basename() in tset to improve $SHELL check for csh/sh.
+ modify _nc_read_entry() and _nc_read_termcap_entry() so infocmp,
can access termcap data when the terminfo database is disabled.
20060722
+ widen the test for xterm kmous a little to allow for other strings
than \E[M, e.g., for xterm-sco functionality in xterm.
+ update xterm-related terminfo entries to match xterm patch #216 -TD
+ update config.guess, config.sub
20060715
+ fix for install-rule in Ada95 to add terminal_interface.ads
and terminal_interface.ali (anonymous posting in comp.lang.ada).
+ correction to manpage for getcchar() (report by William McBrine).
+ add test/chgat.c
+ modify wchgat() to mark updated cells as changed so a refresh will
repaint those cells (comments by Sadrul H Chowdhury and William
McBrine).
+ split up dependency of names.c and codes.c in ncurses/Makefile to
work with parallel make (report/analysis by Joseph S Myers).
+ suppress a warning message (which is ignored) for systems without
an ldconfig program (patch by Justin Hibbits).
+ modify configure script --disable-symlinks option to allow one to
disable symlink() in tic even when link() does not work (report by
Nigel Horne).
+ modify MKfallback.sh to use tic -x when constructing fallback tables
to allow extended capabilities to be retrieved from a fallback entry.
+ improve leak-checking logic in tgetent() from 20060625 to ensure that
it does not free the current screen (report by Miroslav Lichvar).
20060708
+ add a check for _POSIX_VDISABLE in tset (NetBSD #33916).
+ correct _nc_free_entries() and related functions used for memory leak
checking of tic.
20060701
+ revert a minor change for magic-cookie support from 20060513, which
caused unexpected reset of attributes, e.g., when resizing test/view
in color mode.
+ note in clear manpage that the program ignores command-line
parameters (prompted by Debian #371855).
+ fixes to make lib_gen.c build properly with changes to the configure
--disable-macros option and NCURSES_NOMACROS (cf: 20060527)
+ update/correct several terminfo entries -TD
+ add some notes regarding copyright to terminfo.src -TD
20060625
+ fixes to build Ada95 binding with gnat-4.1.0
+ modify read_termtype() so the term_names data is always allocated as
part of the str_table, a better fix for a memory leak (cf: 20030809).
+ reduce memory leaks in repeated calls to tgetent() by remembering the
last TERMINAL* value allocated to hold the corresponding data and
freeing that if the tgetent() result buffer is the same as the
previous call (report by "Matt" for FreeBSD gnu/98975).
+ modify tack to test extended capability function-key strings.
+ improved gnome terminfo entry (GenToo #122566).
+ improved xterm-256color terminfo entry (patch by Alain Bench).
20060617
+ fix two small memory leaks related to repeated tgetent() calls
with TERM=screen (report by "Matt" for FreeBSD gnu/98975).
+ add --enable-signed-char to simplify Debian package.
+ reduce name-pollution in term.h by removing #define's for HAVE_xxx
symbols.
+ correct typo in curs_terminfo.3x (Debian #369168).
20060603
+ enable the mouse in test/movewindow.c
+ improve a limit-check in frm_def.c (John Heasley).
+ minor copyright fixes.
+ change configure script to produce test/Makefile from data file.
20060527
+ add a configure option --enable-wgetch-events to enable
NCURSES_WGETCH_EVENTS, and correct the associated loop-logic in
lib_twait.c (report by Bernd Jendrissek).
+ remove include/nomacros.h from build, since the ifdef for
NCURSES_NOMACROS makes that obsolete.
+ add entrypoints for some functions which were only provided as macros
to make NCURSES_NOMACROS ifdef work properly: getcurx(), getcury(),
getbegx(), getbegy(), getmaxx(), getmaxy(), getparx() and getpary(),
wgetbkgrnd().
+ provide ifdef for NCURSES_NOMACROS which suppresses most macro
definitions from curses.h, i.e., where a macro is defined to override
a function to improve performance. Allowing a developer to suppress
these definitions can simplify some application (discussion with
Stanislav Ievlev).
+ improve description of memu/meml in terminfo manpage.
20060520
+ if msgr is false, reset video attributes when doing an automargin
wrap to the next line. This makes the ncurses 'k' test work properly
for hpterm.
+ correct caching of keyname(), which was using only half of its table.
+ minor fixes to memory-leak checking.
+ make SCREEN._acs_map and SCREEN._screen_acs_map pointers rather than
arrays, making ACS_LEN less visible to applications (suggested by
Stanislav Ievlev).
+ move chunk in SCREEN ifdef'd for USE_WIDEC_SUPPORT to the end, so
_screen_acs_map will have the same offset in both ncurses/ncursesw,
making the corresponding tinfo/tinfow libraries binary-compatible
(cf: 20041016, report by Stanislav Ievlev).
20060513
+ improve debug-tracing for EmitRange().
+ change default for --with-develop to "yes". Add NCURSES_NO_HARD_TABS
and NCURSES_NO_MAGIC_COOKIE environment variables to allow runtime
suppression of the related hard-tabs and xmc-glitch features.
+ add ncurses version number to top-level manpages, e.g., ncurses, tic,
infocmp, terminfo as well as form, menu, panel.
+ update config.guess, config.sub
+ modify ncurses.c to work around a bug in NetBSD 3.0 curses
(field_buffer returning null for a valid field). The 'r' test
appears to not work with that configuration since the new_fieldtype()
function is broken in that implementation.
20060506
+ add hpterm-color terminfo entry -TD
+ fixes to compile test-programs with HPUX 11.23
20060422
+ add copyright notices to files other than those that are generated,
data or adapted from pdcurses (reports by William McBrine, David
Taylor).
+ improve rendering on hpterm by not resetting attributes at the end
of doupdate() if the terminal has the magic-cookie feature (report
by Bernd Rieke).
+ add 256color variants of terminfo entries for programs which are
reported to implement this feature -TD
20060416
+ fix typo in change to NewChar() macro from 20060311 changes, which
broke tab-expansion (report by Frederic L W Meunier).
20060415
+ document -U option of tic and infocmp.
+ modify tic/infocmp to suppress smacs/rmacs when acsc is suppressed
due to size limit, e.g., converting to termcap format. Also
suppress them if the output format does not contain acsc and it
was not VT100-like, i.e., a one-one mapping (Novell #163715).
+ add configure check to ensure that SIGWINCH is defined on platforms
such as OS X which exclude that when _XOPEN_SOURCE, etc., are
defined (report by Nicholas Cole)
20060408
+ modify write_object() to not write coincidental extensions of an
entry made due to it being referenced in a use= clause (report by
Alain Bench).
+ another fix for infocmp -i option, which did not ensure that some
escape sequences had comparable prefixes (report by Alain Bench).
20060401
+ improve discussion of init/reset in terminfo and tput manpages
(report by Alain Bench).
+ use is3 string for a fallback of rs3 in the reset program; it was
using is2 (report by Alain Bench).
+ correct logic for infocmp -i option, which did not account for
multiple digits in a parameter (cf: 20040828) (report by Alain
Bench).
+ move _nc_handle_sigwinch() to lib_setup.c to make --with-termlib
option work after 20060114 changes (report by Arkadiusz Miskiewicz).
+ add copyright notices to test-programs as needed (report by William
McBrine).
20060318
+ modify ncurses.c 'F' test to combine the wide-characters with color
and/or video attributes.
+ modify test/ncurses to use CTL/Q or ESC consistently for exiting
a test-screen (some commands used 'x' or 'q').
20060312
+ fix an off-by-one in the scrolling-region change (cf_ 20060311).
20060311
+ add checks in waddchnstr() and wadd_wchnstr() to stop copying when
a null character is found (report by Igor Bogomazov).
+ modify progs/Makefile.in to make "tput init" work properly with
cygwin, i.e., do not pass a ".exe" in the reference string used
in check_aliases (report by Samuel Thibault).
+ add some checks to ensure current position is within scrolling
region before scrolling on a new line (report by Dan Gookin).
+ change some NewChar() usage to static variables to work around
stack garbage introduced when cchar_t is not packed (Redhat #182024).
20060225
+ workarounds to build test/movewindow with PDcurses 2.7.
+ fix for nsterm-16color entry (patch by Alain Bench).
+ correct a typo in infocmp manpage (Debian #354281).
20060218
+ add nsterm-16color entry -TD
+ updated mlterm terminfo entry -TD
+ remove 970913 feature for copying subwindows as they are moved in
mvwin() (discussion with Bryan Christ).
+ modify test/demo_menus.c to demonstrate moving a menu (both the
window and subwindow) using shifted cursor-keys.
+ start implementing recursive mvwin() in movewindow.c (incomplete).
+ add a fallback definition for GCC_PRINTFLIKE() in test.priv.h,
for movewindow.c (report by William McBrine).
+ add help-message to test/movewindow.c
20060211
+ add test/movewindow.c, to test mvderwin().
+ fix ncurses soft-key test so color changes are shown immediately
rather than delayed.
+ modify ncurses soft-key test to hide the keys when exiting the test
screen.
+ fixes to build test programs with PDCurses 2.7, e.g., its headers
rely on autoconf symbols, and it declares stubs for nonfunctional
terminfo and termcap entrypoints.
20060204
+ improved test/configure to build test/ncurses on HPUX 11 using the
vendor curses.
+ documented ALTERNATE CONFIGURATIONS in the ncurses manpage, for the
benefit of developers who do not read INSTALL.
20060128
+ correct form library Window_To_Buffer() change (cf: 20040516), which
should ignore the video attributes (report by Ricardo Cantu).
20060121
+ minor fixes to xmc-glitch experimental code:
+ suppress line-drawing
+ implement max_attributes
tested with xterm.
+ minor fixes for the database iterator.
+ fix some buffer limits in c++ demo (comment by Falk Hueffner in
Debian #348117).
20060114
+ add toe -a option, to show all databases. This uses new private
interfaces in the ncurses library for iterating through the list of
databases.
+ fix toe from 20000909 changes which made it not look at
$HOME/.terminfo
+ make toe's -v option parameter optional as per manpage.
+ improve SIGWINCH handling by postponing its effect during newterm(),
etc., when allocating screens.
20060111
+ modify wgetnstr() to return KEY_RESIZE if a sigwinch occurs. Use
this in test/filter.c
+ fix an error in filter() modification which caused some applications
to fail.
20060107
+ check if filter() was called when getting the screensize. Keep it
at 1 if so (based on Redhat #174498).
+ add extension nofilter().
+ refined the workaround for ACS mapping.
+ make ifdef's consistent in curses.h for the extended colors so the
header file can be used for the normal curses library. The header
file installed for extended colors is a variation of the
wide-character configuration (report by Frederic L W Meunier).
20051231
+ add a workaround to ACS mapping to allow applications such as
test/blue.c to use the "PC ROM" characters by masking them with
A_ALTCHARSET. This worked up til 5.5, but was lost in the revision
of legacy coding (report by Michael Deutschmann).
+ add a null-pointer check in the wide-character version of
calculate_actual_width() (report by Victor Julien).
+ improve test/ncurses 'd' (color-edit) test by allowing the RGB
values to be set independently (patch by William McBrine).
+ modify test/configure script to allow building test programs with
PDCurses/X11.
+ modified test programs to allow some to work with NetBSD curses.
Several do not because NetBSD curses implements a subset of X/Open
curses, and also lacks much of SVr4 additions. But it's enough for
comparison.
+ update config.guess and config.sub
20051224
+ use BSD-specific fix for return-value from cgetent() from CVS where
an unknown terminal type would be reportd as "database not found".
+ make tgetent() return code more readable using new symbols
TGETENT_YES, etc.
+ remove references to non-existent "tctest" program.
+ remove TESTPROGS from progs/Makefile.in (it was referring to code
that was never built in that directory).
+ typos in curs_addchstr.3x, some doc files (noticed in OpenBSD CVS).
20051217
+ add use_legacy_coding() function to support lynx's font-switching
feature.
+ fix formatting in curs_termcap.3x (report by Mike Frysinger).
+ modify MKlib_gen.sh to change preprocessor-expanded _Bool back to
bool.
20051210
+ extend test/ncurses.c 's' (overlay window) test to exercise overlay(),
overwrite() and copywin() with different combinations of colors and
attributes (including background color) to make it easy to see the
effect of the different functions.
+ corrections to menu/m_global.c for wide-characters (report by
Victor Julien).
20051203
+ add configure option --without-dlsym, allowing developers to
configure GPM support without using dlsym() (discussion with Michael
Setzer).
+ fix wins_nwstr(), which did not handle single-column non-8bit codes
(Debian #341661).
20051126
+ move prototypes for wide-character trace functions from curses.tail
to curses.wide to avoid accidental reference to those if
_XOPEN_SOURCE_EXTENDED is defined without ensuring that is
included.
+ add/use NCURSES_INLINE definition.
+ change some internal functions to use int/unsigned rather than the
short equivalents.
20051119
+ remove a redundant check in lib_color.c (Debian #335655).
+ use ld's -search_paths_first option on Darwin to work around odd
search rules on that platform (report by Christian Gennerat, analysis
by Andrea Govoni).
+ remove special case for Darwin in CF_XOPEN_SOURCE configure macro.
+ ignore EINTR in tcgetattr/tcsetattr calls (Debian #339518).
+ fix several bugs in test/bs.c (patch by Stephen Lindholm).
20051112
+ other minor fixes to cygwin based on tack -TD
+ correct smacs in cygwin (Debian #338234, report by Baurzhan
Ismagulov, who noted that it was fixed in Cygwin).
20051029
+ add shifted up/down arrow codes to xterm-new as kind/kri strings -TD
+ modify wbkgrnd() to avoid clearing the A_CHARTEXT attribute bits
since those record the state of multicolumn characters (Debian
#316663).
+ modify werase to clear multicolumn characters that extend into
a derived window (Debian #316663).
20051022
+ move assignment from environment variable ESCDELAY from initscr()
down to newterm() so the environment variable affects timeouts for
terminals opened with newterm() as well.
+ fix a memory leak in keyname().
+ add test/demo_altkeys.c
+ modify test/demo_defkey.c to exit from loop via 'q' to allow
leak-checking, as well as fix a buffer size in winnstr() call.
20051015
+ correct order of use-clauses in rxvt-basic entry which made codes for
f1-f4 vt100-style rather than vt220-style (report by Gabor Z Papp).
+ suppress configure check for gnatmake if Ada95/Makefile.in is not
found.
+ correct a typo in configure --with-bool option for the case where
--without-cxx is used (report by Daniel Jacobowitz).
+ add a note to INSTALL's discussion of --with-normal, pointing out
that one may wish to use --without-gpm to ensure a completely
static link (prompted by report by Felix von Leitner).
20051010 5.5 release for upload to ftp.gnu.org
20051008
+ document in demo_forms.c some portability issues.
20051001
+ document side-effect of werase() which sets the cursor position.
+ save/restore the current position in form field editing to make
overlay mode work.
20050924
+ correct header dependencies in progs, allowing parallel make (report
by Daniel Jacobowitz).
+ modify CF_BUILD_CC to ensure that pre-setting $BUILD_CC overrides
the configure check for --with-build-cc (report by Daniel Jacobowitz).
+ modify CF_CFG_DEFAULTS to not use /usr as the default prefix for
NetBSD.
+ update config.guess and config.sub from
http://subversions.gnu.org/cgi-bin/viewcvs/config/config/
20050917
+ modify sed expression which computes path for /usr/lib/terminfo
symbolic link in install to ensure that it does not change unexpected
levels of the path (Gentoo #42336).
+ modify default for --disable-lp64 configure option to reduce impact
on existing 64-bit builds. Enabling the _LP64 option may change the
size of chtype and mmask_t. However, for ABI 6, it is enabled by
default (report by Mike Frysinger).
+ add configure script check for --enable-ext-mouse, bump ABI to 6 by
default if it is used.
+ improve configure script logic for bumping ABI to omit this if the
--with-abi-version option was used.
+ update address for Free Software Foundation in tack's source.
+ correct wins_wch(), which was not marking the filler-cells of
multi-column characters (cf: 20041023).
20050910
+ modify mouse initialization to ensure that Gpm_Open() is called only
once. Otherwise GPM gets confused in its initialization of signal
handlers (Debian #326709).
20050903
+ modify logic for backspacing in a multiline form field to ensure that
it works even when the preceding line is full (report by Frank van
Vugt).
+ remove comment about BUGS section of ncurses manpage (Debian #325481)
20050827
+ document some workarounds for shared and libtool library
configurations in INSTALL (see --with-shared and --with-libtool).
+ modify CF_GCC_VERSION and CF_GXX_VERSION macros to accommodate
cross-compilers which emit the platform name in their version
message, e.g.,
arm-sa1100-linux-gnu-g++ (GCC) 4.0.1
(report by Frank van Vugt).
20050820
+ start updating documentation for upcoming 5.5 release.
+ fix to make libtool and libtinfo work together again (cf: 20050122).
+ fixes to allow building traces into libtinfo
+ add debug trace to tic that shows if/how ncurses will write to the
lower corner of a terminal's screen.
+ update llib-l* files.
20050813
+ modify initializers in c++ binding to build with old versions of g++.
+ improve special case for 20050115 repainting fix, ensuring that if
the first changed cell is not a character that the range to be
repainted is adjusted to start at a character's beginning (Debian
#316663).
20050806
+ fixes to build on QNX 6.1
+ improve configure script checks for Intel 9.0 compiler.
+ remove #include's for libc.h (obsolete).
+ adjust ifdef's in curses.priv.h so that when cross-compiling to
produce comp_hash and make_keys, no dependency on wchar.h is needed.
That simplifies the build-cppflags (report by Frank van Vugt).
+ move modules related to key-binding into libtinfo to fix linkage
problem caused by 20050430 changes to MKkeyname.sh (report by
Konstantin Andreev).
20050723
+ updates/fixes for configure script macros from vile -TD
+ make prism9's sgr string agree with the rest of the terminfo -TD
+ make vt220's sgr0 string consistent with sgr string, do this for
several related cases -TD
+ improve translation to termcap by filtering the 'me' (sgr0) strings
as in the runtime call to tgetent() (prompted by a discussion with
Thomas Klausner).
+ improve tic check for sgr0 versus sgr(0), to help ensure that sgr0
resets line-drawing.
20050716
+ fix special cases for trimming sgr0 for hurd and vt220 (Debian
#318621).
+ split-out _nc_trim_sgr0() from modifications made to tgetent(), to
allow it to be used by tic to provide information about the runtime
changes that would be made to sgr0 for termcap applications.
+ modify make_sed.sh to make the group-name in the NAME section of
form/menu library manpage agree with the TITLE string when renaming
is done for Debian (Debian #78866).
20050702
+ modify parameter type in c++ binding for insch() and mvwinsch() to
be consistent with underlying ncurses library (was char, is chtype).
+ modify treatment of Intel compiler to allow _GNU_SOURCE to be defined
on Linux.
+ improve configure check for nanosleep(), checking that it works since
some older systems such as AIX 4.3 have a nonworking version.
20050625
+ update config.guess and config.sub from
http://subversions.gnu.org/cgi-bin/viewcvs/config/config/
+ modify misc/shlib to work in test-directory.
+ suppress $suffix in misc/run_tic.sh when cross-compiling. This
allows cross-compiles to use the host's tic program to handle the
"make install.data" step.
+ improve description of $LINES and $COLUMNS variables in manpages
(prompted by report by Dave Ulrick).
+ improve description of cross-compiling in INSTALL
+ add NCURSES-Programming-HOWTO.html by Pradeep Padala
(see http://tldp.org/HOWTO/NCURSES-Programming-HOWTO/).
+ modify configure script to obtain soname for GPM library (discussion
with Daniel Jacobowitz).
+ modify configure script so that --with-chtype option will still
compute the unsigned literals suffix for constants in curses.h
(report by Daniel Jacobowitz:
+ patches from Daniel Jacobowitz:
+ the man_db.renames entry for tack.1 was backwards.
+ tack.1 had some 1m's that should have been 1M's.
+ the section for curs_inwstr.3 was wrong.
20050619
+ correction to --with-chtype option (report by Daniel Jacobowitz).
20050618
+ move build-time edit_man.sh and edit_man.sed scripts to top directory
to simplify reusing them for renaming tack's manpage (prompted by a
review of Debian package).
+ revert minor optimization from 20041030 (Debian #313609).
+ libtool-specific fixes, tested with libtool 1.4.3, 1.5.0, 1.5.6,
1.5.10 and 1.5.18 (all work except as noted previously for the c++
install using libtool 1.5.0):
+ modify the clean-rule in c++/Makefile.in to work with IRIX64 make
program.
+ use $(LIBTOOL_UNINSTALL) symbol, overlooked in 20030830
+ add configure options --with-chtype and --with-mmask-t, to allow
overriding of the non-LP64 model's use of the corresponding types.
+ revise test for size of chtype (and mmask_t), which always returned
"long" due to an uninitialized variable (report by Daniel Jacobowitz).
20050611
+ change _tracef's that used "%p" format for va_list values to ignore
that, since on some platforms those are not pointers.
+ fixes for long-formats in printf's due to largefile support.
20050604
+ fixes for termcap support:
+ reset pointer to _nc_curr_token.tk_name when the input stream is
closed, which could point to free memory (cf: 20030215).
+ delink TERMTYPE data which is used by the termcap reader, so that
extended names data will be freed consistently.
+ free pointer to TERMTYPE data in _nc_free_termtype() rather than
its callers.
+ add some entrypoints for freeing permanently allocated data via
_nc_freeall() when NO_LEAKS is defined.
+ amend 20041030 change to _nc_do_color to ensure that optimization is
applied only when the terminal supports back_color_erase (bce).
20050528
+ add sun-color terminfo entry -TD
+ correct a missing assignment in c++ binding's method
NCursesPanel::UserPointer() from 20050409 changes.
+ improve configure check for large-files, adding check for dirent64
from vile -TD
+ minor change to configure script to improve linker options for the
Ada95 tree.
20050515
+ document error conditions for ncurses library functions (report by
Stanislav Ievlev).
+ regenerated html documentation for ada binding.
see ftp://ftp.invisible-island.net/ncurses/patches/gnathtml
20050507
+ regenerated html documentation for manpages.
+ add $(BUILD_EXEEXT) suffix to invocation of make_keys in
ncurses/Makefile (Gentoo #89772).
+ modify c++/demo.cc to build with g++ -fno-implicit-templates option
(patch by Mike Frysinger).
+ modify tic to filter out long extended names when translating to
termcap format. Only two characters are permissible for termcap
capability names.
20050430
+ modify terminfo entries xterm-new and rxvt to add strings for
shift-, control-cursor keys.
+ workaround to allow c++ binding to compile with g++ 2.95.3, which
has a broken implementation of static_cast<> (patch by Jeff Chua).
+ modify initialization of key lookup table so that if an extended
capability (tic -x) string is defined, and its name begins with 'k',
it will automatically be treated as a key.
+ modify test/keynames.c to allow for the possibility of extended
key names, e.g., via define_key(), or via "tic -x".
+ add test/demo_termcap.c to show the contents of given entry via the
termcap interface.
20050423
+ minor fixes for vt100/vt52 entries -TD
+ add configure option --enable-largefile
+ corrected libraries used to build Ada95/gen/gen, found in testing
gcc 4.0.0.
20050416
+ update config.guess, config.sub
+ modify configure script check for _XOPEN_SOURCE, disable that on
Darwin whose header files have problems (patch by Chris Zubrzycki).
+ modify form library Is_Printable_String() to use iswprint() rather
than wcwidth() for determining if a character is printable. The
latter caused it to reject menu items containing non-spacing
characters.
+ modify ncurses test program's F-test to handle non-spacing characters
by combining them with a reverse-video blank.
+ review/fix several gcc -Wconversion warnings.
20050409
+ correct an off-by-one error in m_driver() for mouse-clicks used to
position the mouse to a particular item.
+ implement test/demo_menus.c
+ add some checks in lib_mouse to ensure SP is set.
+ modify C++ binding to make 20050403 changes work with the configure
--enable-const option.
20050403
+ modify start_color() to return ERR if it cannot allocate memory.
+ address g++ compiler warnings in C++ binding by adding explicit
member initialization, assignment operators and copy constructors.
Most of the changes simply preserve the existing semantics of the
binding, which can leak memory, etc., but by making these features
visible, it provides a framework for improving the binding.
+ improve C++ binding using static_cast, etc.
+ modify configure script --enable-warnings to add options to g++ to
correspond to the gcc --enable-warnings.
+ modify C++ binding to use some C internal functions to make it
compile properly on Solaris (and other platforms).
20050327
+ amend change from 20050320 to limit it to configurations with a
valid locale.
+ fix a bug introduced in 20050320 which broke the translation of
nonprinting characters to uparrow form (report by Takahashi Tamotsu).
20050326
+ add ifdef's for _LP64 in curses.h to avoid using wasteful 64-bits for
chtype and mmask_t, but add configure option --disable-lp64 in case
anyone used that configuration.
+ update misc/shlib script to account for Mac OS X (report by Michail
Vidiassov).
+ correct comparison for wrapping multibyte characters in
waddch_literal() (report by Takahashi Tamotsu).
20050320
+ add -c and -w options to tset to allow user to suppress ncurses'
resizing of the terminal emulator window in the special case where it
is not able to detect the true size (report by Win Delvaux, Debian
#300419).
+ modify waddch_nosync() to account for locale zn_CH.GBK, which uses
codes 128-159 as part of multibyte characters (report by Wang
WenRui, Debian #300512).
20050319
+ modify ncurses.c 'd' test to make it work with 88-color
configuration, i.e., by implementing scrolling.
+ improve scrolling in ncurses.c 'c' and 'C' tests, e.g., for 88-color
configuration.
20050312
+ change tracemunch to use strict checking.
+ modify ncurses.c 'p' test to test line-drawing within a pad.
+ implement environment variable NCURSES_NO_UTF8_ACS to support
miscellaneous terminal emulators which ignore alternate character
set escape sequences when in UTF-8 mode.
20050305
+ change NCursesWindow::err_handler() to a virtual function (request by
Steve Beal).
+ modify fty_int.c and fty_num.c to handle wide characters (report by
Wolfgang Gutjahr).
+ adapt fix for fty_alpha.c to fty_alnum.c, which also handled normal
and wide characters inconsistently (report by Wolfgang Gutjahr).
+ update llib-* files to reflect internal interface additions/changes.
20050226
+ improve test/configure script, adding tests for _XOPEN_SOURCE, etc.,
from lynx.
+ add aixterm-16color terminfo entry -TD
+ modified xterm-new terminfo entry to work with tgetent() changes -TD
+ extended changes in tgetent() from 20040710 to allow the substring of
sgr0 which matches rmacs to be at the beginning of the sgr0 string
(request by Thomas Wolff). Wolff says the visual effect in
combination with pre-20040710 ncurses is improved.
+ fix off-by-one in winnstr() call which caused form field validation
of multibyte characters to ignore the last character in a field.
+ correct logic in winsch() for inserting multibyte strings; the code
would clear cells after the insertion rather than push them to the
right (cf: 20040228).
+ fix an inconsistency in Check_Alpha_Field() between normal and wide
character logic (report by Wolfgang Gutjahr).
20050219
+ fix a bug in editing wide-characters in form library: deleting a
nonwide character modified the previous wide-character.
+ update manpage to describe NCURSES_MOUSE_VERSION 2.
+ correct manpage description of mouseinterval() (Debian #280687).
+ add a note to default_colors.3x explaining why this extension was
added (Debian #295083).
+ add traces to panel library.
20050212
+ improve editing of wide-characters in form library: left/right
cursor movement, and single-character deletions work properly.
+ disable GPM mouse support when $TERM happens to be prefixed with
"xterm". Gpm_Open() would otherwise assert that it can deal with
mouse events in this case.
+ modify GPM mouse support so it closes the server connection when
the caller disables the mouse (report by Stanislav Ievlev).
20050205
+ add traces for callback functions in form library.
+ add experimental configure option --enable-ext-mouse, which defines
NCURSES_MOUSE_VERSION 2, and modifies the encoding of mouse events to
support wheel mice, which may transmit buttons 4 and 5. This works
with xterm and similar X terminal emulators (prompted by question by
Andreas Henningsson, this is also related to Debian #230990).
+ improve configure macros CF_XOPEN_SOURCE and CF_POSIX_C_SOURCE to
avoid redefinition warnings on cygwin.
20050129
+ merge remaining development changes for extended colors (mostly
complete, does not appear to break other configurations).
+ add xterm-88color.dat (part of extended colors testing).
+ improve _tracedump() handling of color pairs past 96.
+ modify return-value from start_color() to return OK if colors have
already been started.
+ modify curs_color.3x list error conditions for init_pair(),
pair_content() and color_content().
+ modify pair_content() to return -1 for consistency with init_pair()
if it corresponds to the default-color.
+ change internal representation of default-color to allow application
to use color number 255. This does not affect the total number of
color pairs which are allowed.
+ add a top-level tags rule.
20050122
+ add a null-pointer check in wgetch() in case it is called without
first calling initscr().
+ add some null-pointer checks for SP, which is not set by libtinfo.
+ modify misc/shlib to ensure that absolute pathnames are used.
+ modify test/Makefile.in, etc., to link test programs only against the
libraries needed, e.g., omit form/menu/panel library for the ones
that are curses-specific.
+ change SP->_current_attr to a pointer, adjust ifdef's to ensure that
libtinfo.so and libtinfow.so have the same ABI. The reason for this
is that the corresponding data which belongs to the upper-level
ncurses library has a different size in each model (report by
Stanislav Ievlev).
20050115
+ minor fixes to allow test-compiles with g++.
+ correct column value shown in tic's warnings, which did not account
for leading whitespace.
+ add a check in _nc_trans_string() for improperly ended strings, i.e.,
where a following line begins in column 1.
+ modify _nc_save_str() to return a null pointer on buffer overflow.
+ improve repainting while scrolling wide-character data (Eungkyu Song).
20050108
+ merge some development changes to extend color capabilities.
20050101
+ merge some development changes to extend color capabilities.
+ fix manpage typo (FreeBSD report docs/75544).
+ update config.guess, config.sub
> patches for configure script (Albert Chin-A-Young):
+ improved fix to make mbstate_t recognized on HPUX 11i (cf:
20030705), making vsscanf() prototype visible on IRIX64. Tested for
on HP-UX 11i, Solaris 7, 8, 9, AIX 4.3.3, 5.2, Tru64 UNIX 4.0D, 5.1,
IRIX64 6.5, Redhat Linux 7.1, 9, and RHEL 2.1, 3.0.
+ print the result of the --disable-home-terminfo option.
+ use -rpath when compiling with SGI C compiler.
20041225
+ add trace calls to remaining public functions in form and menu
libraries.
+ fix check for numeric digits in test/ncurses.c 'b' and 'B' tests.
+ fix typo in test/ncurses.c 'c' test from 20041218.
20041218
+ revise test/ncurses.c 'c' color test to improve use for xterm-88color
and xterm-256color, added 'C' test using the wide-character color_set
and attr_set functions.
20041211
+ modify configure script to work with Intel compiler.
+ fix an limit-check in wadd_wchnstr() which caused labels in the
forms-demo to be one character short.
+ fix typo in curs_addchstr.3x (Jared Yanovich).
+ add trace calls to most functions in form and menu libraries.
+ update working-position for adding wide-characters when window is
scrolled (prompted by related report by Eungkyu Song).
20041204
+ replace some references on Linux to wcrtomb() which use it to obtain
the length of a multibyte string with _nc_wcrtomb, since wcrtomb() is
broken in glibc (see Debian #284260).
+ corrected length-computation in wide-character support for
field_buffer().
+ some fixes to frm_driver.c to allow it to accept multibyte input.
+ modify configure script to work with Intel 8.0 compiler.
20041127
+ amend change to setupterm() in 20030405 which would reuse the value
of cur_term if the same output was selected. This now reuses it only
when setupterm() is called from tgetent(), which has no notion of
separate SCREENs. Note that tgetent() must be called after initscr()
or newterm() to use this feature (Redhat #140326).
+ add a check in CF_BUILD_CC macro to ensure that developer has given
the --with-build-cc option when cross-compiling (report by Alexandre
Campo).
+ improved configure script checks for _XOPEN_SOURCE and
_POSIX_C_SOURCE (fix for IRIX 5.3 from Georg Schwarz, _POSIX_C_SOURCE
updates from lynx).
+ cosmetic fix to test/gdc.c to recolor the bottom edge of the box
for consistency (comment by Dan Nelson).
20041120
+ update wsvt25 terminfo entry -TD
+ modify test/ins_wide.c to test all flavors of ins_wstr().
+ ignore filler-cells in wadd_wchnstr() when adding a cchar_t array
which consists of multi-column characters, since this function
constructs them (cf: 20041023).
+ modify winnstr() to return multibyte character strings for the
wide-character configuration.
20041106
+ fixes to make slk_set() and slk_wset() accept and store multibyte
or multicolumn characters.
20041030
+ improve color optimization a little by making _nc_do_color() check
if the old/new pairs are equivalent to the default pair 0.
+ modify assume_default_colors() to not require that
use_default_colors() be called first.
20041023
+ modify term_attrs() to use termattrs(), add the extended attributes
such as enter_horizontal_hl_mode for WA_HORIZONTAL to term_attrs().
+ add logic in waddch_literal() to clear orphaned cells when one
multi-column character partly overwrites another.
+ improved logic for clearing cells when a multi-column character
must be wrapped to a new line.
+ revise storage of cells for multi-column characters to correct a
problem with repainting. In the old scheme, it was possible for
doupdate() to decide that only part of a multi-column character
should be repainted since the filler cells stored only an attribute
to denote them as fillers, rather than the character value and the
attribute.
20041016
+ minor fixes for traces.
+ add SP->_screen_acs_map[], used to ensure that mapping of missing
line-drawing characters is handled properly. For example, ACS_DARROW
is absent from xterm-new, and it was coincidentally displayed the
same as ACS_BTEE.
20041009
+ amend 20021221 workaround for broken acs to reset the sgr, rmacs
and smacs strings as well. Also modify the check for screen's
limitations in that area to allow the multi-character shift-in
and shift-out which seem to work.
+ change GPM initialization, using dl library to load it dynamically
at runtime (Debian #110586).
20041002
+ correct logic for color pair in setcchar() and getcchar() (patch by
Marcin 'Qrczak' Kowalczyk).
+ add t/T commands to ncurses b/B tests to allow a different color to
be tested for the attrset part of the test than is used in the
background color.
20040925
+ fix to make setcchar() to work when its wchar_t* parameter is
pointing to a string which contains more data than can be converted.
+ modify wget_wstr() and example in ncurses.c to work if wchar_t and
wint_t are different sizes (report by Marcin 'Qrczak' Kowalczyk).
20040918
+ remove check in wget_wch() added to fix an infinite loop, appears to
have been working around a transitory glibc bug, and interferes
with normal operation (report by Marcin 'Qrczak' Kowalczyk).
+ correct wadd_wch() and wecho_wch(), which did not pass the rendition
information (report by Marcin 'Qrczak' Kowalczyk).
+ fix aclocal.m4 so that the wide-character version of ncurses gets
compiled as libncursesw.5.dylib, instead of libncurses.5w.dylib
(adapted from patch by James J Ramsey).
+ change configure script for --with-caps option to indicate that it
is no longer experimental.
+ change configure script to reflect the fact that --enable-widec has
not been "experimental" since 5.3 (report by Bruno Lustosa).
20040911
+ add 'B' test to ncurses.c, to exercise some wide-character functions.
20040828
+ modify infocmp -i option to match 8-bit controls against its table
entries, e.g., so it can analyze the xterm-8bit entry.
+ add morphos terminfo entry, improve amiga-8bit entry (Pavel Fedin).
+ correct translation of "%%" in terminfo format to termcap, e.g.,
using "tic -C" (Redhat #130921).
+ modified configure script CF_XOPEN_SOURCE macro to ensure that if
it defines _POSIX_C_SOURCE, that it defines it to a specific value
(comp.os.stratus newsgroup comment).
20040821
+ fixes to build with Ada95 binding with gnat 3.4 (all warnings are
fatal, and gnat does not follow the guidelines for pragmas).
However that did find a coding error in Assume_Default_Colors().
+ modify several terminfo entries to ensure xterm mouse and cursor
visibility are reset in rs2 string: hurd, putty, gnome,
konsole-base, mlterm, Eterm, screen (Debian #265784, Debian #55637).
The xterm entries are left alone - old ones for compatibility, and
the new ones do not require this change. -TD
20040814
+ fake a SIGWINCH in newterm() to accommodate buggy terminal emulators
and window managers (Debian #265631).
> terminfo updates -TD
+ remove dch/dch1 from rxvt because they are implemented inconsistently
with the common usage of bce/ech
+ remove khome from vt220 (vt220's have no home key)
+ add rxvt+pcfkeys
20040807
+ modify test/ncurses.c 'b' test, adding v/V toggles to cycle through
combinations of video attributes so that for instance bold and
underline can be tested. This made the legend too crowded, added
a help window as well.
+ modify test/ncurses.c 'b' test to cycle through default colors if
the -d option is set.
+ update putty terminfo entry (Robert de Bath).
20040731
+ modify test/cardfile.c to allow it to read more data than can be
displayed.
+ correct logic in resizeterm.c which kept it from processing all
levels of window hierarchy (reports by Folkert van Heusden,
Chris Share).
20040724
+ modify "tic -cv" to ignore delays when comparing strings. Also
modify it to ignore a canceled sgr string, e.g., for terminals which
cannot properly combine attributes in one control sequence.
+ corrections for gnome and konsole entries (Redhat #122815, patch by
Hans de Goede)
> terminfo updates -TD
+ make ncsa-m rmacs/smacs consistent with sgr
+ add sgr, rc/sc and ech to syscons entries
+ add function-keys to decansi
+ add sgr to mterm-ansi
+ add sgr, civis, cnorm to emu
+ correct/simplify cup in addrinfo
20040717
> terminfo updates -TD
+ add xterm-pc-fkeys
+ review/update gnome and gnome-rh90 entries (prompted by Redhat
#122815).
+ review/update konsole entries
+ add sgr, correct sgr0 for kterm and mlterm
+ correct tsl string in kterm
20040711
+ add configure option --without-xterm-new
20040710
+ add check in wget_wch() for printable bytes that are not part of a
multibyte character.
+ modify wadd_wchnstr() to render text using window's background
attributes.
+ improve tic's check to compare sgr and sgr0.
+ fix c++ directory's .cc.i rule.
+ modify logic in tgetent() which adjusts the termcap "me" string
to work with ISO-2022 string used in xterm-new (cf: 20010908).
+ modify tic's check for conflicting function keys to omit that if
converting termcap to termcap format.
+ add -U option to tic and infocmp.
+ add rmam/smam to linux terminfo entry (Trevor Van Bremen)
> terminfo updates -TD
+ minor fixes for emu
+ add emu-220
+ change wyse acsc strings to use 'i' map rather than 'I'
+ fixes for avatar0
+ fixes for vp3a+
20040703
+ use tic -x to install terminfo database -TD
+ add -x to infocmp's usage message.
+ correct field used for comparing O_ROWMAJOR in set_menu_format()
(report/patch by Tony Li).
+ fix a missing nul check in set_field_buffer() from 20040508 changes.
> terminfo updates -TD
+ make xterm-xf86-v43 derived from xterm-xf86-v40 rather than
xterm-basic -TD
+ align with xterm patch #192's use of xterm-new -TD
+ update xterm-new and xterm-8bit for cvvis/cnorm strings -TD
+ make xterm-new the default "xterm" entry -TD
20040626
+ correct BUILD_CPPFLAGS substitution in ncurses/Makefile.in, to allow
cross-compiling from a separate directory tree (report/patch by
Dan Engel).
+ modify is_term_resized() to ensure that window sizes are nonzero,
as documented in the manpage (report by Ian Collier).
+ modify CF_XOPEN_SOURCE configure macro to make Hurd port build
(Debian #249214, report/patch by Jeff Bailey).
+ configure-script mods from xterm, e.g., updates to CF_ADD_CFLAGS
+ update config.guess, config.sub
> terminfo updates -TD
+ add mlterm
+ add xterm-xf86-v44
+ modify xterm-new aka xterm-xfree86 to accommodate luit, which
relies on G1 being used via an ISO-2022 escape sequence (report by
Juliusz Chroboczek)
+ add 'hurd' entry
20040619
+ reconsidered winsnstr(), decided after comparing other
implementations that wrapping is an X/Open documentation error.
+ modify test/inserts.c to test all flavors of insstr().
20040605
+ add setlocale() calls to a few test programs which may require it:
demo_forms.c, filter.c, ins_wide.c, inserts.c
+ correct a few misspelled function names in ncurses-intro.html (report
by Tony Li).
+ correct internal name of key_defined() manpage, which conflicted with
define_key().
20040529
+ correct size of internal pad used for holding wide-character
field_buffer() results.
+ modify data_ahead() to work with wide-characters.
20040522
+ improve description of terminfo if-then-else expressions (suggested
by Arne Thomassen).
+ improve test/ncurses.c 'd' test, allow it to use external file for
initial palette (added xterm-16color.dat and linux-color.dat), and
reset colors to the initial palette when starting/ending the test.
+ change limit-check in init_color() to allow r/g/b component to
reach 1000 (cf: 20020928).
20040516
+ modify form library to use cchar_t's rather than char's in the
wide-character configuration for storing data for field buffers.
+ correct logic of win_wchnstr(), which did not work for more than
one cell.
20040508
+ replace memset/memcpy usage in form library with for-loops to
simplify changing the datatype of FIELD.buf, part of wide-character
changes.
+ fix some inconsistent use of #if/#ifdef (report by Alain Guibert).
20040501
+ modify menu library to account for actual number of columns used by
multibyte character strings, in the wide-character configuration
(adapted from patch by Philipp Tomsich).
+ add "-x" option to infocmp like tic's "-x", for use in "-F"
comparisons. This modifies infocmp to only report extended
capabilities if the -x option is given, making this more consistent
with tic. Some scripts may break, since infocmp previous gave this
information without an option.
+ modify termcap-parsing to retain 2-character aliases at the beginning
of an entry if the "-x" option is used in tic.
20040424
+ minor compiler-warning and test-program fixes.
20040417
+ modify tic's missing-sgr warning to apply to terminfo only.
+ free some memory leaks in tic.
+ remove check in post_menu() that prevented menus from extending
beyond the screen (request by Max J. Werner).
+ remove check in newwin() that prevents allocating windows
that extend beyond the screen. Solaris curses does this.
+ add ifdef in test/color_set.c to allow it to compile with older
curses.
+ add napms() calls to test/dots.c to make it not be a CPU hog.
20040403
+ modify unctrl() to return null if its parameter does not correspond
to an unsigned char.
+ add some limit-checks to guard isprint(), etc., from being used on
values that do not fit into an unsigned char (report by Sami Farin).
20040328
+ fix a typo in the _nc_get_locale() change.
20040327
+ modify _nc_get_locale() to use setlocale() to query the program's
current locale rather than using getenv(). This fixes a case in tin
which relies on legacy treatment of 8-bit characters when the locale
is not initialized (reported by Urs Jansen).
+ add sgr string to screen's and rxvt's terminfo entries -TD.
+ add a check in tic for terminfo entries having an sgr0 but no sgr
string. This confuses Tru64 and HPUX curses when combined with
color, e.g., making them leave line-drawing characters in odd places.
+ correct casts used in ABSENT_BOOLEAN, CANCELLED_BOOLEAN, matches the
original definitions used in Debian package to fix PowerPC bug before
20030802 (Debian #237629).
20040320
+ modify PutAttrChar() and PUTC() macro to improve use of
A_ALTCHARSET attribute to prevent line-drawing characters from
being lost in situations where the locale would otherwise treat the
raw data as nonprintable (Debian #227879).
20040313
+ fix a redefinition of CTRL() macro in test/view.c for AIX 5.2 (report
by Jim Idle).
+ remove ".PP" after ".SH NAME" in a few manpages; this confuses
some apropos script (Debian #237831).
20040306
+ modify ncurses.c 'r' test so editing commands, like inserted text,
set the field background, and the state of insert/overlay editing
mode is shown in that test.
+ change syntax of dummy targets in Ada95 makefiles to work with pmake.
+ correct logic in test/ncurses.c 'b' for noncolor terminals which
did not recognize a quit-command (cf: 20030419).
20040228
+ modify _nc_insert_ch() to allow for its input to be part of a
multibyte string.
+ split out lib_insnstr.c, to prepare to rewrite it. X/Open states
that this function performs wrapping, unlike all of the other
insert-functions. Currently it does not wrap.
+ check for nl_langinfo(CODESET), use it if available (report by
Stanislav Ievlev).
+ split-out CF_BUILD_CC macro, actually did this for lynx first.
+ fixes for configure script CF_WITH_DBMALLOC and CF_WITH_DMALLOC,
which happened to work with bash, but not with Bourne shell (report
by Marco d'Itri via tin-dev).
20040221
+ some changes to adapt the form library to wide characters, incomplete
(request by Mike Aubury).
+ add symbol to curses.h which can be used to suppress include of
stdbool.h, e.g.,
#define NCURSES_ENABLE_STDBOOL_H 0
#include
(discussion on XFree86 mailing list).
20040214
+ modify configure --with-termlib option to accept a value which sets
the name of the terminfo library. This would allow a packager to
build libtinfow.so renamed to coincide with libtinfo.so (discussion
with Stanislav Ievlev).
+ improve documentation of --with-install-prefix, --prefix and
$(DESTDIR) in INSTALL (prompted by discussion with Paul Lew).
+ add configure check if the compiler can use -c -o options to rename
its output file, use that to omit the 'cd' command which was used to
ensure object files are created in a separate staging directory
(prompted by comments by Johnny Wezel, Martin Mokrejs).
20040208 5.4 release for upload to ftp.gnu.org
+ update TO-DO.
20040207 pre-release
+ minor fixes to _nc_tparm_analyze(), i.e., do not count %i as a param,
and do not count %d if it follows a %p.
+ correct an inconsistency between handling of codes in the 128-255
range, e.g., as illustrated by test/ncurses.c f/F tests. In POSIX
locale, the latter did not show printable results, while the former
did.
+ modify MKlib_gen.sh to compensate for broken C preprocessor on Mac
OS X, which alters "%%" to "% % " (report by Robert Simms, fix
verified by Scott Corscadden).
20040131 pre-release
+ modify SCREEN struct to align it between normal/wide curses flavors
to simplify future changes to build a single version of libtinfo
(patch by Stanislav Ievlev).
+ document handling of carriage return by addch() in manpage.
+ document special features of unctrl() in manpage.
+ documented interface changes in INSTALL.
+ corrected control-char test in lib_addch.c to account for locale
(Debian #230335, cf: 971206).
+ updated test/configure.in to use AC_EXEEXT and AC_OBJEXT.
+ fixes to compile Ada95 binding with Debian gnat 3.15p-4 package.
+ minor configure-script fixes for older ports, e.g., BeOS R4.5.
20040125 pre-release
+ amend change to PutAttrChar() from 20030614 which computed the number
of cells for a possibly multi-cell character. The 20030614 change
forced the cell to a blank if the result from wcwidth() was not
greater than zero. However, wcwidth() called for parameters in the
range 128-255 can give this return value. The logic now simply
ensures that the number of cells is greater than zero without
modifying the displayed value.
20040124 pre-release
+ looked good for 5.4 release for upload to ftp.gnu.org (but see above)
+ modify configure script check for ranlib to use AC_CHECK_TOOL, since
that works better for cross-compiling.
20040117 pre-release
+ modify lib_get_wch.c to prefer mblen/mbtowc over mbrlen/mbrtowc to
work around core dump in Solaris 8's locale support, e.g., for
zh_CN.GB18030 (report by Saravanan Bellan).
+ add includes for and in configure script macro
to make check work with Tru64 4.0d.
+ add terminfo entry for U/Win -TD
+ add terminfo entries for SFU aka Interix aka OpenNT (Federico
Bianchi).
+ modify tput's error messages to prefix them with the program name
(report by Vincent Lefevre, patch by Daniel Jacobowitz (see Debian
#227586)).
+ correct a place in tack where exit_standout_mode was used instead of
exit_attribute_mode (patch by Jochen Voss (see Debian #224443)).
+ modify c++/cursesf.h to use const in the Enumeration_Field method.
+ remove an ambiguous (actually redundant) method from c++/cursesf.h
+ make $HOME/.terminfo update optional (suggested by Stanislav Ievlev).
+ improve sed script which extracts libtool's version in the
CF_WITH_LIBTOOL macro.
+ add ifdef'd call to AC_PROG_LIBTOOL to CF_WITH_LIBTOOL macro (to
simplify local patch for Albert Chin-A-Young)..
+ add $(CXXFLAGS) to link command in c++/Makefile.in (adapted from
patch by Albert Chin-A-Young)..
+ fix a missing substitution in configure.in for "$target" needed for
HPUX .so/.sl case.
+ resync CF_XOPEN_SOURCE configure macro with lynx; fixes IRIX64 and
NetBSD 1.6 conflicts with _XOPEN_SOURCE.
+ make check for stdbool.h more specific, to ensure that including it
will actually define/declare bool for the configured compiler.
+ rewrite ifdef's in curses.h relating NCURSES_BOOL and bool. The
intention of that is to #define NCURSES_BOOL as bool when the
compiler declares bool, and to #define bool as NCURSES_BOOL when it
does not (reported by Jim Gifford, Sam Varshavchik, cf: 20031213).
20040110 pre-release
+ change minor version to 4, i.e., ncurses 5.4
+ revised/improved terminfo entries for tvi912b, tvi920b (Benjamin C W
Sittler).
+ simplified ncurses/base/version.c by defining the result from the
configure script rather than using sprintf (suggested by Stanislav
Ievlev).
+ remove obsolete casts from c++/cursesw.h (reported by Stanislav
Ievlev).
+ modify configure script so that when configuring for termlib, programs
such as tic are not linked with the upper-level ncurses library
(suggested by Stanislav Ievlev).
+ move version.c from ncurses/base to ncurses/tinfo to allow linking
of tic, etc., using libtinfo (suggested by Stanislav Ievlev).
20040103
+ adjust -D's to build ncursesw on OpenBSD.
+ modify CF_PROG_EXT to make OS/2 build with EXEEXT.
+ add pecho_wchar().
+ remove include from lib_slk_wset.c which is not needed (or
available) on older platforms.
20031227
+ add -D's to build ncursew on FreeBSD 5.1.
+ modify shared library configuration for FreeBSD 4.x/5.x to add the
soname information (request by Marc Glisse).
+ modify _nc_read_tic_entry() to not use MAX_ALIAS, but PATH_MAX only
for limiting the length of a filename in the terminfo database.
+ modify termname() to return the terminal name used by setupterm()
rather than $TERM, without truncating to 14 characters as documented
by X/Open (report by Stanislav Ievlev, cf: 970719).
+ re-add definition for _BSD_TYPES, lost in merge (cf: 20031206).
20031220
+ add configure option --with-manpage-format=catonly to address
behavior of BSDI, allow install of man+cat files on NetBSD, whose
behavior has diverged by requiring both to be present.
+ remove leading blanks from comment-lines in manlinks.sed script to
work with Tru64 4.0d.
+ add screen.linux terminfo entry (discussion on mutt-users mailing
list).
20031213
+ add a check for tic to flag missing backslashes for termcap
continuation lines. ncurses reads the whole entry, but termcap
applications do not.
+ add configure option "--with-manpage-aliases" extending
"--with-manpage-aliases" to provide the option of generating ".so"
files rather than symbolic links for manpage aliases.
+ add bool definition in include/curses.h.in for configurations with no
usable C++ compiler (cf: 20030607).
+ fix pathname of SigAction.h for building with --srcdir (reported by
Mike Castle).
20031206
+ folded ncurses/base/sigaction.c into includes of ncurses/SigAction.h,
since that header is used only within ncurses/tty/lib_tstp.c, for
non-POSIX systems (discussion with Stanislav Ievlev).
+ remove obsolete _nc_outstr() function (report by Stanislav Ievlev
).
+ add test/background.c and test/color_set.c
+ modify color_set() function to work with color pair 0 (report by
George Andreou ).
+ add configure option --with-trace, since defining TRACE seems too
awkward for some cases.
+ remove a call to _nc_free_termtype() from read_termtype(), since the
corresponding buffer contents were already zeroed by a memset (cf:
20000101).
+ improve configure check for _XOPEN_SOURCE and related definitions,
adding special cases for Solaris' __EXTENSIONS__ and FreeBSD's
__BSD_TYPES (reports by Marc Glisse ).
+ small fixes to compile on Solaris and IRIX64 using cc.
+ correct typo in check for pre-POSIX sort options in MKkey_defs.sh
(cf: 20031101).
20031129
+ modify _nc_gettime() to avoid a problem with arithmetic on unsigned
values (Philippe Blain).
+ improve the nanosleep() logic in napms() by checking for EINTR and
restarting (Philippe Blain).
+ correct expression for "%D" in lib_tgoto.c (Juha Jarvi
).
20031122
+ add linux-vt terminfo entry (Andrey V Lukyanov ).
+ allow "\|" escape in terminfo; tic should not warn about this.
+ save the full pathname of the trace-file the first time it is opened,
to avoid creating it in different directories if the application
opens and closes it while changing its working directory.
+ modify configure script to provide a non-empty default for
$BROKEN_LINKER
20031108
+ add DJGPP to special case of DOS-style drive letters potentially
appearing in TERMCAP environment variable.
+ fix some spelling in comments (reports by Jason McIntyre, Jonathon
Gray).
+ update config.guess, config.sub
20031101
+ fix a memory leak in error-return from setupterm() (report by
Stanislav Ievlev ).
+ use EXEEXT and OBJEXT consistently in makefiles.
+ amend fixes for cross-compiling to use separate executable-suffix
BUILD_EXEEXT (cf: 20031018).
+ modify MKkey_defs.sh to check for sort utility that does not
recognize key options, e.g., busybox (report by Peter S Mazinger
).
+ fix potential out-of-bounds indexing in _nc_infotocap() (found by
David Krause using some of the new malloc debugging features
under OpenBSD, patch by Ted Unangst).
+ modify CF_LIB_SUFFIX for Itanium releases of HP-UX, which use a
".so" suffix (patch by Jonathan Ward ).
20031025
+ update terminfo for xterm-xfree86 -TD
+ add check for multiple "tc=" clauses in a termcap to tic.
+ check for missing op/oc in tic.
+ correct _nc_resolve_uses() and _nc_merge_entry() to allow infocmp and
tic to show cancelled capabilities. These functions were ignoring
the state of the target entry, which should be untouched if cancelled.
+ correct comment in tack/output.c (Debian #215806).
+ add some null-pointer checks to lib_options.c (report by Michael
Bienia).
+ regenerated html documentation.
+ correction to tar-copy.sh, remove a trap command that resulted in
leaving temporary files (cf: 20030510).
+ remove contact/maintainer addresses for Juergen Pfeifer (his request).
20031018
+ updated test/configure to reflect changes for libtool (cf: 20030830).
+ fix several places in tack/pad.c which tested and used the parameter-
and parameterless strings inconsistently, i.e., in pad_rin(),
pad_il(), pad_indn() and pad_dl() (Debian #215805).
+ minor fixes for configure script and makefiles to cleanup executables
generated when cross-compiling for DJGPP.
+ modify infocmp to omit check for $TERM for operations that do not
require it, e.g., "infocmp -e" used to build fallback list (report by
Egmont Koblinger).
20031004
+ add terminfo entries for DJGPP.
+ updated note about maintainer in ncurses-intro.html
20030927
+ update terminfo entries for gnome terminal.
+ modify tack to reset colors after each color test, correct a place
where exit_standout_mode was used instead of exit_attribute_mode.
+ improve tack's bce test by making it set colors other than black
on white.
+ plug a potential recursion between napms() and _nc_timed_wait()
(report by Philippe Blain).
20030920
+ add --with-rel-version option to allow workaround to allow making
libtool on Darwin generate the "same" library names as with the
--with-shared option. The Darwin ld program does not work well
with a zero as the minor-version value (request by Chris Zubrzycki).
+ modify CF_MIXEDCASE_FILENAMES macro to work with cross-compiling.
+ modify tack to allow it to run from fallback terminfo data.
> patch by Philippe Blain:
+ improve PutRange() by adjusting call to EmitRange() and corresponding
return-value to not emit unchanged characters on the end of the
range.
+ improve a check for changed-attribute by exiting a loop when the
change is found.
+ improve logic in TransformLine(), eliminating a duplicated comparison
in the clr_bol logic.
20030913
> patch by Philippe Blain:
+ in ncurses/tty/lib_mvcur.c,
move the label 'nonlocal' just before the second gettimeofday() to
be able to compute the diff time when 'goto nonlocal' used.
Rename 'msec' to 'microsec' in the debug-message.
+ in ncurses/tty/lib_mvcur.c,
Use _nc_outch() in carriage return/newline movement instead of
putchar() which goes to stdout. Move test for xold>0 out of loop.
+ in ncurses/tinfo/setbuf.c,
Set the flag SP->_buffered at the end of operations when all has been
successful (typeMalloc can fail).
+ simplify NC_BUFFERED macro by moving check inside _nc_setbuf().
20030906
+ modify configure script to avoid using "head -1", which does not
work if POSIXLY_CORRECT (sic) is set.
+ modify run_tic.in to avoid using wrong shared libraries when
cross-compiling (Dan Kegel).
20030830
+ alter configure script help message to make it clearer that
--with-build-cc does not specify a cross-compiler (suggested by Dan
Kegel ).
+ modify configure script to accommodate libtool 1.5, as well as add an
parameter to the "--with-libtool" option which can specify the
pathname of libtool (report by Chris Zubrzycki). We note that
libtool 1.5 has more than one bug in its C++ support, so it is not
able to install libncurses++, for instance, if $DESTDIR or the option
--with-install-prefix is used.
20030823
> patch by Philippe Blain:
+ move assignments to SP->_cursrow, SP->_curscol into online_mvcur().
+ make baudrate computation in delay_output() consistent with the
assumption in _nc_mvcur_init(), i.e., a byte is 9 bits.
20030816
+ modify logic in waddch_literal() to take into account zh_TW.Big5
whose multibyte sequences may contain "printable" characters, e.g.,
a "g" in the sequence "\247g" (Debian #204889, cf: 20030621).
+ improve storage used by _nc_safe_strcpy() by ensuring that the size
is reset based on the initialization call, in case it were called
after other strcpy/strcat calls (report by Philippe Blain).
> patch by Philippe Blain:
+ remove an unused ifdef for REAL_ATTR & WANT_CHAR
+ correct a place where _cup_cost was used rather than _cuu_cost
20030809
+ fix a small memory leak in _nc_free_termtype().
+ close trace-file if trace() is called with a zero parameter.
+ free memory allocated for soft-key strings, in delscreen().
+ fix an allocation size in safe_sprintf.c for the "*" format code.
+ correct safe_sprintf.c to not return a null pointer if the format
happens to be an empty string. This applies to the "configure
--enable-safe-sprintf" option (Redhat #101486).
20030802
+ modify casts used for ABSENT_BOOLEAN and CANCELLED_BOOLEAN (report by
Daniel Jacobowitz).
> patch by Philippe Blain:
+ change padding for change_scroll_region to not be proportional to
the size of the scroll-region.
+ correct error-return in _nc_safe_strcat().
20030726
+ correct limit-checks in _nc_scroll_window() (report and test-case by
Thomas Graf cf: 20011020).
+ re-order configure checks for _XOPEN_SOURCE to avoid conflict with
_GNU_SOURCE check.
20030719
+ use clr_eol in preference to blanks for bce terminals, so select and
paste will have fewer trailing blanks, e.g., when using xterm
(request by Vincent Lefevre).
+ correct prototype for wunctrl() in manpage.
+ add configure --with-abi-version option (discussion with Charles
Wilson).
> cygwin changes from Charles Wilson:
+ aclocal.m4: on cygwin, use autodetected prefix for import
and static lib, but use "cyg" for DLL.
+ include/ncurses_dll.h: correct the comments to reflect current
status of cygwin/mingw port. Fix compiler warning.
+ misc/run_tic.in: ensure that tic.exe can find the uninstalled
DLL, by adding the lib-directory to the PATH variable.
+ misc/terminfo.src (nxterm|xterm-color): make xterm-color
primary instead of nxterm, to match XFree86's xterm.terminfo
usage and to prevent circular links.
(rxvt): add additional codes from rxvt.org.
(rxvt-color): new alias
(rxvt-xpm): new alias
(rxvt-cygwin): like rxvt, but with special acsc codes.
(rxvt-cygwin-native): ditto. rxvt may be run under XWindows, or
with a "native" MSWin GUI. Each takes different acsc codes,
which are both different from the "normal" rxvt's acsc.
(cygwin): cygwin-in-cmd.exe window. Lots of fixes.
(cygwinDBG): ditto.
+ mk-1st.awk: use "cyg" for the DLL prefix, but "lib" for import
and static libs.
20030712
+ update config.guess, config.sub
+ add triples for configuring shared libraries with the Debian
GNU/FreeBSD packages (patch by Robert Millan ).
20030705
+ modify CF_GCC_WARNINGS so it only applies to gcc, not g++. Some
platforms have installed g++ along with the native C compiler, which
would not accept gcc warning options.
+ add -D_XOPEN_SOURCE=500 when configuring with --enable-widec, to
get mbstate_t declaration on HPUX 11.11 (report by David Ellement).
+ add _nc_pathlast() to get rid of casts in _nc_basename() calls.
+ correct a sign-extension in wadd_wch() and wecho_wchar() from
20030628 (report by Tomohiro Kubota).
+ work around omission of btowc() and wctob() from wide-character
support (sic) in NetBSD 1.6 using mbtowc() and wctomb() (report by
Gabor Z Papp).
+ add portability note to curs_get_wstr.3x (Debian #199957).
20030628
+ rewrite wadd_wch() and wecho_wchar() to call waddch() and wechochar()
respectively, to avoid calling waddch_noecho() with wide-character
data, since that function assumes its input is 8-bit data.
Similarly, modify waddnwstr() to call wadd_wch().
+ remove logic from waddnstr() which transformed multibyte character
strings into wide-characters. Rewrite of waddch_literal() from
20030621 assumes its input is raw multibyte data rather than wide
characters (report by Tomohiro Kubota).
20030621
+ write getyx() and related 2-return macros in terms of getcury(),
getcurx(), etc.
+ modify waddch_literal() in case an application passes bytes of a
multibyte character directly to waddch(). In this case, waddch()
must reassemble the bytes into a wide-character (report by Tomohiro
Kubota ).
20030614
+ modify waddch_literal() in case a multibyte value occupies more than
two cells.
+ modify PutAttrChar() to compute the number of character cells that
are used in multibyte values. This fixes a problem displaying
double-width characters (report/test by Mitsuru Chinen
).
+ add a null-pointer check for result of keyname() in _tracechar()
+ modify _tracechar() to work around glibc sprintf bug.
20030607
+ add a call to setlocale() in cursesmain.cc, making demo display
properly in a UTF-8 locale.
+ add a fallback definition in curses.priv.h for MB_LEN_MAX (prompted
by discussion with Gabor Z Papp).
+ use macros NCURSES_ACS() and NCURSES_WACS() to hide cast needed to
appease -Wchar-subscript with g++ 3.3 (Debian #195732).
+ fix a redefinition of $RANLIB in the configure script when libtool
is used, which broke configure on Mac OS X (report by Chris Zubrzycki
).
+ simplify ifdef for bool declaration in curses.h.in (suggested by
Albert Chin-A-Young).
+ remove configure script check to allow -Wconversion for older
versions of gcc (suggested by Albert Chin-A-Young).
20030531
+ regenerated html manpages.
+ modify ifdef's in curses.h.in that disabled use of __attribute__()
for g++, since recent versions implement the cases which ncurses uses
(Debian #195230).
+ modify _nc_get_token() to handle a case where an entry has no
description, and capabilities begin on the same line as the entry
name.
+ fix a typo in ncurses_dll.h reported by gcc 3.3.
+ add an entry for key_defined.3x to man_db.renames.
20030524
+ modify setcchar() to allow converting control characters to complex
characters (report/test by Mitsuru Chinen ).
+ add tkterm entry -TD
+ modify parse_entry.c to allow a terminfo entry with a leading
2-character name (report by Don Libes).
+ corrected acsc in screen.teraterm, which requires a PC-style mapping.
+ fix trace statements in read_entry.c to use lseek() rather than
tell().
+ fix signed/unsigned warnings from Sun's compiler (gcc should give
these warnings, but it is unpredictable).
+ modify configure script to omit -Winline for gcc 3.3, since that
feature is broken.
+ modify manlinks.sed to add a few functions that were overlooked since
they return function pointers: field_init, field_term, form_init,
form_term, item_init, item_term, menu_init and menu_term.
20030517
+ prevent recursion in wgetch() via wgetnstr() if the connection cannot
be switched between cooked/raw modes because it is not a TTY (report
by Wolfgang Gutjahr ).
+ change parameter of define_key() and key_defined() to const (prompted
by Debian #192860).
+ add a check in test/configure for ncurses extensions, since there
are some older versions, etc., which would not compile with the
current test programs.
+ corrected demo in test/ncurses.c of wgetn_wstr(), which did not
convert wchar_t string to multibyte form before printing it.
+ corrections to lib_get_wstr.c:
+ null-terminate buffer passed to setcchar(), which occasionally
failed.
+ map special characters such as erase- and kill-characters into
key-codes so those will work as expected even if they are not
mentioned in the terminfo.
+ modify PUTC() and Charable() macros to make wide-character line
drawing work for POSIX locale on Linux console (cf: 20021221).
20030510
+ make typography for program options in manpages consistent (report
by Miloslav Trmac ).
+ correct dependencies in Ada95/src/Makefile.in, so the builds with
"--srcdir" work (report by Warren L Dodge).
+ correct missing definition of $(CC) in Ada95/gen/Makefile.in
(reported by Warren L Dodge ).
+ fix typos and whitespace in manpages (patch by Jason McIntyre
).
20030503
+ fix form_driver() cases for REQ_CLR_EOF, REQ_CLR_EOL, REQ_DEL_CHAR,
REQ_DEL_PREV and REQ_NEW_LINE, which did not ensure the cursor was at
the editing position before making modifications.
+ add test/demo_forms and associated test/edit_field.c demos.
+ modify test/configure.in to use test/modules for the list of objects
to compile rather than using the list of programs.
20030419
+ modify logic of acsc to use the original character if no mapping is
defined, noting that Solaris does this.
+ modify ncurses 'b' test to avoid using the acs_map[] array since
20021231 changes it to no longer contain information from the acsc
string.
+ modify makefile rules in c++, progs, tack and test to ensure that
the compiler flags (e.g., $CFLAGS or $CCFLAGS) are used in the link
command (report by Jose Luis Rico Botella ).
+ modify soft-key initialization to use A_REVERSE if A_STANDOUT would
not be shown when colors are used, i.e., if ncv#1 is set in the
terminfo as is done in "screen".
20030412
+ add a test for slk_color(), in ncurses.c
+ fix some issues reported by valgrind in the slk_set() and slk_wset()
code, from recent rewrite.
+ modify ncurses 'E' test to use show previous label via slk_label(),
as in 'e' test.
+ modify wide-character versions of NewChar(), NewChar2() macros to
ensure that the whole struct is initialized.
20030405
+ modify setupterm() to check if the terminfo and terminal-modes have
already been read. This ensures that it does not reinvoke
def_prog_mode() when an application calls more than one function,
such as tgetent() and initscr() (report by Olaf Buddenhagen).
20030329
+ add 'E' test to ncurses.c, to exercise slk_wset().
+ correct handling of carriage-return in wgetn_wstr(), used in demo of
slk_wset().
+ first draft of slk_wset() function.
20030322
+ improved warnings in tic when suppressing items to fit in termcap's
1023-byte limit.
+ built a list in test/README showing which externals are being used
by either programs in the test-directory or via internal library
calls.
+ adjust include-options in CF_ETIP_DEFINES to avoid missing
ncurses_dll.h, fixing special definitions that may be needed for
etip.h (reported by Greg Schafer ).
20030315
+ minor fixes for cardfile.c, to make it write the updated fields to
a file when ^W is given.
+ add/use _nc_trace_bufcat() to eliminate some fixed buffer limits in
trace code.
20030308
+ correct a case in _nc_remove_string(), used by define_key(), to avoid
infinite loop if the given string happens to be a substring of other
strings which are assigned to keys (report by John McCutchan).
+ add key_defined() function, to tell which keycode a string is bound
to (discussion with John McCutchan ).
+ correct keybound(), which reported definitions in the wrong table,
i.e., the list of definitions which are disabled by keyok().
+ modify demo_keydef.c to show the details it changes, and to check
for errors.
20030301
+ restructured test/configure script, make it work for libncursesw.
+ add description of link_fieldtype() to manpage (report by
L Dee Holtsclaw ).
20030222
+ corrected ifdef's relating to configure check for wchar_t, etc.
+ if the output is a socket or other non-tty device, use 1 millisecond
for the cost in mvcur; previously it was 9 milliseconds because the
baudrate was not known.
+ in _nc_get_tty_mode(), initialize the TTY buffer on error, since
glibc copies uninitialized data in that case, as noted by valgrind.
+ modify tput to use the same parameter analysis as tparm() does, to
provide for user-defined strings, e.g., for xterm title, a
corresponding capability might be
title=\E]2;%p1%s^G,
+ modify MKlib_gen.sh to avoid passing "#" tokens through the C
preprocessor. This works around Mac OS X's preprocessor, which
insists on adding a blank on each side of the token (report/analysis
by Kevin Murphy ).
20030215
+ add configure check for wchar_t and wint_t types, rather than rely
on preprocessor definitions. Also work around for gcc fixinclude
bug which creates a shadow copy of curses.h if it sees these symbols
apparently typedef'd.
+ if database is disabled, do not generate run_tic.sh
+ minor fixes for memory-leak checking when termcap is read.
20030208
+ add checking in tic for incomplete line-drawing character mapping.
+ updated configure script to reflect fix for AC_PROG_GCC_TRADITIONAL,
which is broken in autoconf 2.5x for Mac OS X 10.2.3 (report by
Gerben Wierda ).
+ make return value from _nc_printf_string() consistent. Before,
depending on whether --enable-safe-sprintf was used, it might not be
cached for reallocating.
20030201
+ minor fixes for memory-leak checking in lib_tparm.c, hardscroll.c
+ correct a potentially-uninitialized value if _read_termtype() does
not read as much data as expected (report by Wolfgang Rohdewald
).
+ correct several places where the aclocal.m4 macros relied on cache
variable names which were incompatible (as usual) between autoconf
2.13 and 2.5x, causing the test for broken-linker to give incorrect
results (reports by Gerben Wierda and Thomas Esser
).
+ do not try to open gpm mouse driver if standard output is not a tty;
the gpm library does not make this check (bug report for dialog
by David Oliveira ).
20030125
+ modified emx.src to correspond more closely to terminfo.src, added
emx-base to the latter -TD
+ add configure option for FreeBSD sysmouse, --with-sysmouse, and
implement support for that in lib_mouse.c, lib_getch.c
20030118
+ revert 20030105 change to can_clear_with(), does not work for the
case where the update is made on cells which are blanks with
attributes, e.g., reverse.
+ improve ifdef's to guard against redefinition of wchar_t and wint_t
in curses.h (report by Urs Jansen).
20030111
+ improve mvcur() by checking if it is safe to move when video
attributes are set (msgr), and if not, reset/restore attributes
within that function rather than doing it separately in the GoTo()
function in tty_update.c (suggested by Philippe Blain).
+ add a message in run_tic.in to explain more clearly what does not
work when attempting to create a symbolic link for /usr/lib/terminfo
on OS/2 and other platforms with no symbolic links (report by John
Polterak).
+ change several sed scripts to avoid using "\+" since it is not a BRE
(basic regular expression). One instance caused terminfo.5 to be
misformatted on FreeBSD (report by Kazuo Horikawa
(see FreeBSD docs/46709)).
+ correct misspelled 'wint_t' in curs_get_wch.3x (Michael Elkins).
20030105
+ improve description of terminfo operators, especially static/dynamic
variables (comments by Mark I Manning IV ).
+ demonstrate use of FIELDTYPE by modifying test/ncurses 'r' test to
use the predefined TYPE_ALPHA field-type, and by defining a
specialized type for the middle initial/name.
+ fix MKterminfo.sh, another workaround for POSIXLY_CORRECT misfeature
of sed 4.0
> patch by Philippe Blain:
+ optimize can_clear_with() a little by testing first if the parameter
is indeed a "blank".
+ simplify ClrBottom() a little by allowing it to use clr_eos to clear
sections as small as one line.
+ improve ClrToEOL() by checking if clr_eos is available before trying
to use it.
+ use tputs() rather than putp() in a few cases in tty_update.c since
the corresponding delays are proportional to the number of lines
affected: repeat_char, clr_eos, change_scroll_region.
20021231
+ rewrite of lib_acs.c conflicts with copying of SCREEN acs_map to/from
global acs_map[] array; removed the lines that did the copying.
20021228
+ change some overlooked tputs() calls in scrolling code to use putp()
(report by Philippe Blain).
+ modify lib_getch.c to avoid recursion via wgetnstr() when the input
is not a tty and consequently mode-changes do not work (report by
).
+ rewrote lib_acs.c to allow PutAttrChar() to decide how to render
alternate-characters, i.e., to work with Linux console and UTF-8
locale.
+ correct line/column reference in adjust_window(), needed to make
special windows such as curscr track properly when resizing (report
by Lucas Gonze ).
> patch by Philippe Blain:
+ correct the value used for blank in ClrBottom() (broken in 20000708).
+ correct an off-by-one in GoTo() parameter in _nc_scrolln().
20021221
+ change several tputs() calls in scrolling code to use putp(), to
enable padding which may be needed for some terminals (patch by
Philippe Blain).
+ use '%' as sed substitute delimiter in run_tic script to avoid
problems with pathname delimiters such as ':' and '@' (report by John
Polterak).
+ implement a workaround so that line-drawing works with screen's
crippled UTF-8 support (tested with 3.9.13). This only works with
the wide-character support (--enable-widec); the normal library will
simply suppress line-drawing when running in a UTF-8 locale in screen.
20021214
+ allow BUILD_CC and related configure script variables to be
overridden from the environment.
+ make build-tools variables in ncurses/Makefile.in consistent with
the configure script variables (report by Maciej W Rozycki).
+ modify ncurses/modules to allow
configure --disable-leaks --disable-ext-funcs
to build (report by Gary Samuelson).
+ fix a few places in configure.in which lacked quotes (report by
Gary Samuelson ).
+ correct handling of multibyte characters in waddch_literal() which
force wrapping because they are started too late on the line (report
by Sam Varshavchik).
+ small fix for CF_GNAT_VERSION to ignore the help-message which
gnatmake adds to its version-message.
> Maciej W Rozycki :
+ use AC_CHECK_TOOL to get proper values for AR and LD for cross
compiling.
+ use $cross_compiling variable in configure script rather than
comparing $host_alias and $target alias, since "host" is
traditionally misused in autoconf to refer to the target platform.
+ change configure --help message to use "build" rather than "host"
when referring to the --with-build-XXX options.
20021206
+ modify CF_GNAT_VERSION to print gnatmake's version, and to allow for
possible gnat versions such as 3.2 (report by Chris Lingard
).
+ modify #define's for CKILL and other default control characters in
tset to use the system's default values if they are defined.
+ correct interchanged defaults for kill and interrupt characters
in tset, which caused it to report unnecessarily (Debian #171583).
+ repair check for missing C++ compiler, which is broken in autoconf
2.5x by hardcoding it to g++ (report by Martin Mokrejs).
+ update config.guess, config.sub (2002-11-30)
+ modify configure script to skip --with-shared, etc., when the
--with-libtool option is given, since they would be ignored anyway.
+ fix to allow "configure --with-libtool --with-termlib" to build.
+ modify configure script to show version number of libtool, to help
with bug reports. libtool still gets confused if the installed
ncurses libraries are old, since it ignores the -L options at some
point (tested with libtool 1.3.3 and 1.4.3).
+ reorder configure script's updating of $CPPFLAGS and $CFLAGS to
prevent -I options in the user's environment from introducing
conflicts with the build -I options (may be related to reports by
Patrick Ash and George Goffe).
+ rename test/define_key.c to test/demo_defkey.c, test/keyok.c to
test/demo_keyok.c to allow building these with libtool.
20021123
+ add example program test/define_key.c for define_key().
+ add example program test/keyok.c for keyok().
+ add example program test/ins_wide.c for wins_wch() and wins_wstr().
+ modify wins_wch() and wins_wstr() to interpret tabs by using the
winsch() internal function.
+ modify setcchar() to allow for wchar_t input strings that have
more than one spacing character.
20021116
+ fix a boundary check in lib_insch.c (patch by Philippe Blain).
+ change type for *printw functions from NCURSES_CONST to const
(prompted by comment by Pedro Palhoto Matos ,
but really from a note on X/Open's website stating that either is
acceptable, and the latter will be used in a future revision).
+ add xterm-1002, xterm-1003 terminfo entries to demonstrate changes in
lib_mouse.c (20021026) -TD
+ add screen-bce, screen-s entries from screen 3.9.13 (report by
Adam Lazur ) -TD
+ add mterm terminfo entries -TD
20021109
+ split-out useful fragments in terminfo for vt100 and vt220 numeric
keypad, i.e., vt100+keypad, vt100+pfkeys, vt100+fnkeys and
vt220+keypad. The last as embedded in various entries had ka3 and
kb2 interchanged (report/discussion with Leonard den Ottolander
).
+ add check in tic for keypads consistent with vt100 layout.
+ improve checks in tic for color capabilities
20021102
+ check for missing/empty/illegal terminfo name in _nc_read_entry()
(report by Martin Mokrejs, where $TERM was set to an empty string).
+ rewrote lib_insch.c, combining it with lib_insstr.c so both handle
tab and other control characters consistently (report by Philippe
Blain).
+ remove an #undef for KEY_EVENT from curses.tail used in the
experimental NCURSES_WGETCH_EVENTS feature. The #undef confuses
dpkg's build script (Debian #165897).
+ fix MKlib_gen.sh, working around the ironically named POSIXLY_CORRECT
feature of GNU sed 4.0 (reported by Ervin Nemeth ).
20021026
+ implement logic in lib_mouse.c to handle position reports which are
generated when XFree86 xterm is initialized with private modes 1002
or 1003. These are returned to the application as the
REPORT_MOUSE_POSITION mask, which was not implemented. Tested both
with ncurses 'a' menu (prompted by discussion with Larry Riedel
).
+ modify lib_mouse.c to look for "XM" terminfo string, which allows
one to override the escape sequence used to enable/disable mouse
mode. In particular this works for XFree86 xterm private modes
1002 and 1003. If "XM" is missing (note that this is an extended
name), lib_mouse uses the conventional private mode 1000.
+ correct NOT_LOCAL() macro in lib_mvcur.c to refer to screen_columns
where it used screen_lines (report by Philippe Blain).
+ correct makefile rules for the case when both --with-libtool and
--with-gpm are given (report by Mr E_T ).
+ add note to terminfo manpage regarding the differences between
setaf/setab and setf/setb capabilities (report by Pavel Roskin).
20021019
+ remove redundant initialization of TABSIZE in newterm(), since it is
already done in setupterm() (report by Philippe Blain).
+ add test/inserts.c, to test winnstr() and winsch().
+ replace 'sort' in dist.mk with script that sets locale to POSIX.
+ update URLs in announce.html.in (patch by Frederic L W Meunier).
+ remove glibc add-on files, which are no longer needed (report by
Frederic L W Meunier).
20021012 5.3 release for upload to ftp.gnu.org
+ modify ifdef's in etip.h.in to allow the etip.h header to compile
with gcc 3.2 (patch by Dimitar Zhekov ).
+ add logic to setupterm() to make it like initscr() and newterm(),
by checking for $NCURSES_TRACE environment variable and enabling
the debug trace in that case.
+ modify setupterm() to ensure that it initializes the baudrate, for
applications such as tput (report by Frank Henigman).
+ modify definition of bits used for command-line and library debug
traces to avoid overlap, using new definition TRACE_SHIFT to relate
the two.
+ document tput's interpretation of parameterized strings according to
whether parameters are given, etc. (discussion with Robert De Bath).
20021005 pre-release
+ correct winnwstr() to account for non-character cells generated when
a double-width character is added (report by Michael Bienia
).
+ modify _nc_viswbuf2n() to provide better results using wctomb().
+ correct logic in _nc_varargs() which broke tracing of parameters for
formats such as "%.*s".
+ correct scale factor in linux-c and linux-c-nc terminfo entries
(report Floyd Davidson).
+ change tic -A option to -t, add the same option to infocmp for
consistency.
+ correct "%c" implementation in lib_tparm.c, which did not map a null
character to a 128 (cf: 980620) (patch by Frank Henigman
).
20020928 pre-release
+ modify MKkey_defs.sh to check for POSIX sort -k option, use that if
it is found, to accommodate newer utility which dropped the
compatibility support for +number options (reported by Andrey A
Chernov).
+ modify linux terminfo entry to use color palette feature from
linux-c-nc entry (comments by Tomasz Wasiak and Floyd Davidson).
+ restore original color definitions in endwin() if init_color() was
used, and resume those colors on the next doupdate() or refresh()
(report by Tomasz Wasiak ).
+ improve debug-traces by modifying MKlib_gen.sh to generate calls
to returnBool() and returnAttr().
+ add/use _nc_visbufn() and _nc_viswbufn() to limit the debug trace
of waddnstr() and similar functions to match the parameters as used.
+ add/use _nc_retrace_bool() and _nc_retrace_unsigned().
+ correct type used by _nc_retrace_chtype().
+ add debug traces to some functions in lib_mouse.c
+ modify lib_addch.c to handle non-spacing characters.
+ correct parameter of RemAttr() in lib_bkgd.c, which caused the c++
demo's boxes to lose the A_ALTCHARSET flag (broken in 20020629).
+ correct width computed in _tracedump(), which did not account for
the attributes (broken in 20010602).
+ modify test/tracemunch to replace addresses for windows other than
curscr, newscr and stdscr with window0, window1, etc.
20020921 pre-release
+ redid fix for edit_man.sed path.
+ workaround for Cygwin bug which makes subprocess writes to stdout
result in core dump.
+ documented getbegx(), etc.
+ minor fixes to configure script to use '%' consistently as a sed
delimiter rather than '@'.
> patch by Philippe Blain:
+ add check in lib_overlay.c to ensure that the windows to be merged
actually overlap, and in copywin(), limit the area to be touched
to the lines given for the destination window.
20020914 pre-release
+ modified curses.h so that if the wide-character version is installed
overwriting /usr/include/curses.h, and if it relied on libutf8.h,
then applications that use that header for wide-character support
must define HAVE_LIBUTF8_H.
+ modify putwin(), getwin() and dupwin() to allow them to operate on
pads (request by Philippe Blain).
+ correct attribute-merging in wborder(), broken in 20020216 (report
by Tomasz Wasiak ).
> patch by Philippe Blain:
+ corrected pop-counts in tparam_internal() to '!' and '~' cases.
+ use sizeof(NCURSES_CH_T) in one place that used sizeof(chtype).
+ remove some unused variables from mvcur test-driver.
20020907 pre-release
+ change configure script to allow install of widec-character
(ncursesw) headers to overwrite normal (ncurses) headers, since the
latter is a compatible subset of the former.
+ fix path of edit_man.sed in configure script, needed to regenerate
html manpages on Debian.
+ fix mismatched enums in vsscanf.c, which caused warning on Solaris.
+ update README.emx to reflect current patch used for autoconf.
+ change web- and ftp-site to invisible-island.net
> patch by Philippe Blain:
+ change case for 'P' in tparam_internal() to indicate that it pops
a variable from the stack.
+ correct sense of precision and width in parse_format(), to avoid
confusion.
+ modify lib_tparm.c, absorb really_get_space() into get_space().
+ modify getwin() and dupwin() to copy the _notimeout, _idlok and
_idcok window fields.
+ better fix for _nc_set_type(), using typeMalloc().
20020901 pre-release
+ change minor version to 3, i.e., ncurses 5.3
+ update config.guess, config.sub
+ retest build with each configure option; minor ifdef fixes.
+ make keyname() return a null pointer rather than "UNKNOWN STRING" to
match XSI.
+ modify handling of wide line-drawing character functions to use the
normal line-drawing characters when not in UTF-8 locale.
+ add check/fix to comp_parse.c to suppress warning about missing acsc
string. This happens in configurations where raw termcap information
is processed; tic already does this and other checks.
+ modify tic's check for ich/ich1 versus rmir/smir to only warn about
ich1, to match xterm patch #70 notes.
+ moved information for ripped-off lines into SCREEN struct to allow
use in resizeterm().
+ add experimental wgetch_events(), ifdef'd with NCURSES_WGETCH_EVENTS
(adapted from patch by Ilya Zakharevich - see ncurses/README.IZ).
+ amend check in kgetch() from 20020824 to look only for function-keys,
otherwise escape sequences are not resolved properly.
> patch by Philippe Blain:
+ removed redundant assignment to SP->_checkfd from newterm().
+ check return-value of setupterm() in restartterm().
+ use sizeof(NCURSES_CH_T) in a few places that used sizeof(chtype).
+ prevent dupwin() from duplicating a pad.
+ prevent putwin() from writing a pad.
+ use typeRealloc() or typeMalloc() in preference to direct calls on
_nc_doalloc().
20020824
+ add a check in kgetch() for cooked characters in the fifo to avoid
calling fifo_push() when a KEY_RESIZE is available (report/analysis
by Sam Varshavchik ).
+ fix an overlooked case for Redhat #68199 (Philippe Blain).
+ ensure clearerr() is called before using ferror() e.g., in
lib_screen.c (report by Philippe Blain).
20020817
+ modify lib_screen.c and lib_newwin.c to maintain the SCREEN-specific
pointers for curscr/stdscr/newscr when scr_save() and scr_restore()
modify the global curscr/stdscr/newscr variables. Fixes Redhat
#68199.
+ add checks for null pointer in calls to tparm() and tgoto() based on
FreeBSD bug report. If ncurses were built with termcap support, and
the first call to tgoto() were a zero-length string, the result would
be a null pointer, which was not handled properly.
+ correct a typo in terminfo.head, which gave the octal code for colon
rather than comma.
+ remove the "tic -u" option from 20020810, since it did not account
for nested "tc=" clauses, and when that was addressed, was still
unsatisfactory.
20020810
+ add tic -A option to suppress capabilities which are commented out
when translating to termcap.
+ add tic -u option to provide older behavior of "tc=" clauses.
+ modified tic to expand all but the final "tc=" clause in a termcap
entry, to accommodate termcap libraries which do not handle multiple
tc clauses.
+ correct typo in curs_inopts.3x regarding CS8/CS7 usage (report by
Philippe Blain).
+ remove a couple of redundant uses of A_ATTRIBUTES in expressions
using AttrOf(), which already incorporates that mask (report by
Philippe Blain).
+ document TABSIZE variable.
+ add NCURSES_ASSUMED_COLORS environment variable, to allow users to
override compiled-in default black-on-white assumption used in
assume_default_colors().
+ correct an off-by-one comparison against max_colors in COLORFGBG
logic.
+ correct a use of uninitialized memory found by valgrind (reported by
Olaf Buddenhagen ).
+ modified wresize() to ensure that a failed realloc will not corrupt
the window structure, and to make subwindows fit within the resized
window (completes Debian #87678, Debian #101699)
20020803
+ fix an off-by-one in lib_pad.c check for limits of pad (patch by
Philippe Blain).
+ revise logic for BeOS in lib_twait.c altered in 20011013 to restore
logic used by lib_getch.c's support for GPM or EMX mouse (report by
Philippe Blain)
+ remove NCURSES_CONST from several prototypes in curses.wide, to make
the --enable-const --enable-widec configure options to work together
(report by George Goffe ).
20020727
+ finish no-leak checking in cardfile.c, using this for testing changes
to resizeterm().
+ simplify _nc_freeall() using delscreen().
20020720
+ check error-return from _nc_set_tty_mode() in _nc_initscr() and
reset_prog_mode() (report/patch by Philippe Blain).
+ regenerate configure using patch for autoconf 2.52, to address
problem with identifying C++ bool type.
+ correct/improve logic to produce an exit status for errors in tput,
which did not exit with an error when told to put a string not in the
current terminfo entry (report by David Gomez ).
+ modify configure script AC_OUTPUT() call to work around defect in
autoconf 2.52 which adds an ifdef'd include to the generated
configure definitions.
+ remove fstat() check from scr_init(), which also fixes a missing
include for from 20020713 (reported by David Ellement,
fix suggested by Philippe Blain).
+ update curs_scanw.3x manpage to note that XSI curses differs from
SVr4 curses: return-values are incompatible.
+ correct several prototypes in manpages which used const
inconsistently with the curses.h file, and removed spurious const's
in a few places from curses.h, e.g., for wbkgd() (report by Glenn
Maynard ).
+ change internal type used by tparm() to long, to work with LP64 model.
+ modify nc_alloc.h to allow building with g++, for testing.
20020713
+ add resize-handling to cardfile.c test program.
+ altered resizeterm() to avoid having it fail when a child window
cannot be resized because it would be larger than its parent. (More
work must be done on this, but it works well enough to integrate).
+ improve a limit-check in lib_refresh.c
+ remove check in lib_screen.c relating dumptime to file's modification
times, since that would not necessarily work for remotely mounted
filesystems.
+ modify lrtest to simplify debugging changes to resizeterm, e.g.,
t/T commands to enable/disable tracing.
+ updated status of multibyte support in TO-DO.
+ update contact info in source-files (patch by Juergen Pfeifer).
20020706
+ add Caps.hpux11, as an example.
+ modify version_filter(), used to implement -R option for tic and
infocmp, to use computed array offsets based on the Caps.* file which
is actually configured, rather than constants which correspond to
the Caps file.
+ reorganized lib_raw.c to avoid updating SP and cur_term state if the
functions fail (reported by Philippe Blain).
+ add -Wundef to gcc warnings, adjust a few ifdef's to accommodate gcc.
20020629
+ correct parameters to setcchar() in ncurses.c (cf: 20020406).
+ set locale in most test programs (view.c and ncurses.c were the
only ones).
+ add configure option --with-build-cppflags (report by Maksim A
Nikulin ).
+ correct a typo in wide-character logic for lib_bkgnd.c (Philippe
Blain).
+ modify lib_wacs.c to not cancel the acsc, smacs, rmacs strings when
in UTF-8 locale. Wide-character functions use Unicode values, while
narrow-character functions use the terminfo data.
+ fix a couple of places in Ada95/samples which did not compile with
gnat 3.14
+ modify mkinstalldirs so the DOS-pathname case is locale-independent.
+ fix locale problem in MKlib_gen.sh by forcing related variables to
POSIX (C), using same approach as autoconf (set variables only if
they were set before). Update MKterminfo.sh and MKtermsort.sh to
match.
20020622
+ add charset to generated html.
+ add mvterm entry, adapted from a FreeBSD bug-report by Daniel Rudy
-TD
+ add rxvt-16color, ibm+16color entries -TD
+ modify check in --disable-overwrite option so that it is used by
default unless the --prefix/$prefix value is not /usr, in attempt to
work around packagers, e.g., for Sun's freeware, who do not read the
INSTALL notes.
20020615
+ modify wgetch() to allow returning ungetch'd KEY_RESIZE as a function
key code in get_wch().
+ extended resize-handling in test/ncurses 'a' menu to the entire
stack of windows created with 'w' commands.
+ improve $COLORFGBG feature by interpreting an out-of-range color
value as an SGR 39 or 49, for foreground/background respectively.
+ correct a typo in configure --enable-colorfgbg option, and move it
to the experimental section (cf: 20011208).
20020601
+ add logic to dump_entry.c to remove function-key definitions that do
not fit into the 1023-byte limit for generated termcaps. This makes
hds200 fit.
+ more improvements to tic's warnings, including logic to ignore
differences between delay values in sgr strings.
+ move definition of KEY_RESIZE into MKkeydefs.sh script, to
accommodate Caps.osf1r5 which introduced a conflicting definition.
20020525
+ add simple resize-handling in test/ncurses.c 'a' menu.
+ fixes in keyname() and _tracechar() to handle negative values.
+ make tic's warnings about mismatches in sgr strings easier to follow.
+ correct tic checks for number of parameters in smgbp and smglp.
+ improve scoansi terminfo entry, and add scoansi-new entry -TD
+ add pcvt25-color terminfo entry -TD
+ add kf13-kf48 strings to cons25w terminfo entry (reported by Stephen
Hurd in newsgroup lucky.freebsd.bugs) -TD
+ add entrypoint _nc_trace_ttymode(), use this to distinguish the
Ottyb and Nttyb members of terminal (aka cur_term), for tracing.
20020523
+ correct and simplify logic for lib_pad.c change in 20020518 (reported
by Mike Castle).
20020518
+ fix lib_pad.c for case of drawing a double-width character which
falls off the left margin of the pad (patch by Kriang Lerdsuwanakij
)
+ modify configure script to work around broken gcc 3.1 "--version"
option, which adds unnecessary trash to the requested information.
+ adjust ifdef's in case SIGWINCH is not defined, e.g., with DJGPP
(reported by Ben Decker ).
20020511
+ implement vid_puts(), vid_attr(), term_attrs() based on the narrow-
character versions as well.
+ implement erasewchar(), killwchar() based on erasechar() and
killchar().
+ modify erasechar() and killchar() to return ERR if the value was
VDISABLE.
+ correct a bug in wresize() in handling subwindows (based on patch by
Roger Gammans , report by Scott Beck
).
+ improve test/tclock.c by making the second-hand update more often
if gettimeofday() is available.
20020429
+ workaround for Solaris sed with MKlib_gen.sh (reported by Andy
Tsouladze ).
20020427
+ correct return-value from getcchar(), making it consistent with
Solaris and Tru64.
+ reorder loops that generate makefile rules for different models vs
subsets so configure --with-termlib works again. This was broken by
logic added to avoid duplicate rules in changes to accommodate cygwin
dll's (reported by George.R.Goffe@seagate.com).
+ update config.guess, config.sub
20020421
+ modify ifdef's in write_entry.c to allow use of symbolic links on
platforms with no hard links, e.g., BeOS.
+ modify a few includes to allow compile with BeOS, which has stdbool.h
with a conflicting definition for 'bool' versus its OS.h definition.
+ amend MKlib_gen.sh to work with gawk, which defines 'func' as an
alias for 'function'.
20020420
+ correct form of prototype for ripoffline().
+ modify MKlib_gen.sh to test that all functions marked as implemented
can be linked.
20020413
+ add manpages: curs_get_wstr.3x, curs_in_wchstr.3x
+ implement wgetn_wstr().
+ implement win_wchnstr().
+ remove redefinition of unget_wch() in lib_gen.c (reported by
Jungshik Shin ).
20020406
+ modified several of the test programs to allow them to compile with
vendor curses implementations, e.g., Solaris, AIX -TD
20020323
+ modified test/configure to allow configuring against ncursesw.
+ change WACS_xxx definition to use address, to work like Tru64 curses.
20020317
+ add 'e' and 'm' toggles to 'a', 'A' tests in ncurses.c to demonstrate
effect of echo/noecho and meta modes.
+ add 'A' test to ncurses.c to demonstrate wget_wch() and related
functions.
+ add manpage: curs_get_wch.3x
+ implement unget_wch().
+ implement wget_wch().
20020310
+ regenerated html manpages.
+ add manpages: curs_in_wch.3x, curs_ins_wch.3x, curs_ins_wstr.3x
+ implement wins_wch().
+ implement win_wch().
+ implement wins_nwstr(), wins_wstr().
20020309
+ add manpages: curs_addwstr.3x, curs_winwstr.3x
+ implement winnwstr(), winwstr().
20020223
+ add manpages: curs_add_wchstr.3x, curs_bkgrnd.3x
+ document wunctrl, key_name.
+ implement key_name().
+ remove const's in lib_box.c incorrectly leftover after splitting off
lib_box_set.c
+ update llib-lncurses, llib-ncursesw, fix configure script related to
these.
20020218
+ remove quotes on "SYNOPSIS" in man/curs_box_set.3x, which resulted
in spurious symlinks on install.
20020216
+ implement whline_set(), wvline_set(), add manpage curs_border_set.
+ add subtest 'b' to 'F' and 'f' in ncurses.c to demonstrate use of
box() and box_set() functions.
+ add subtest 'u' to 'F' in ncurses.c, to demonstrate use of addstr()
given UTF-8 string equivalents of WACS_xxx symbols.
+ minor fixes to several manpages based on groff -ww output.
+ add descriptions of external variables of termcap interface to
the manpage (report by Bruce Evans ).
> patches by Bernhard Rosenkraenzer:
+ correct configure option --with-bool, which was executed as
--with-ospeed.
+ add quotes for parameters of --with-bool and --with-ospeed configure
options.
> patch by Sven Verdoolaege (report by Gerhard Haering
):
+ correct typos in definitions of several wide-character macros:
waddwstr, wgetbkgrnd, mvaddwstr, mvwadd_wchnstr, mvwadd_wchnstr,
mvwaddwstr.
+ pass $(CPPFLAGS) to MKlib_gen.sh, thereby fixing a missing definition
of _XOPEN_SOURCE_EXTENDED, e.g., on Solaris
20020209
+ implement wide-acs characters for UTF-8 locales. When in UTF-8
locale, ignore narrow version of acs. Add 'F' test to test/ncurses.c
to demonstrate.
+ correct prototype in keybound manpage (noted from a Debian mailing
list item).
20020202
+ add several cases to the wscanw() example in testcurs.c, showing the
format.
+ implement a simple vsscanf() fallback function which uses the %n
conversion to help parse the input data (prompted by discussion with
Albert Chin-A-Young).
+ modify mk-1st.awk and test/Makefile.in to add $(LDFLAGS) when making
shared libraries, and to use $(CFLAGS) when linking test programs
(patch by Albert Chin-A-Young).
+ add a call to _nc_keypad() in keypad() to accommodate applications
such as nvi, which use curses for output but not for input (fixes
Debian #131263, cf: 20011215).
+ add entrypoints to resizeterm.c which provide better control over the
process: is_term_resized() and resize_term(). The latter restores
the original design of resizeterm() before KEY_RESIZE was added in
970906. Do this to accommodate 20010922 changes to view.c, but allow
for programs with their own sigwinch handler, such as lynx (reported
by Russell Ruby ).
20020127
+ fix a typo in change to mk-1st.awk, which broke the shared-library
makefile rules (reported by Martin Mokrejs).
20020126
+ update config.guess, config.sub
+ finish changes needed to build dll's on cygwin.
+ fix a typo in mvwchat() macro (reported by Cy ).
+ add configure check for mbstate_t, needed for wide-character
configuration. On some platforms we must include to
define this (reported by Daniel Jacobowitz).
+ incorporate some of the changes needed to build dll's on cygwin.
20020112a
+ workaround for awk did not work with mawk, adjusted shell script.
20020112
+ add Caps.osf1r5, as an example.
+ modify behavior of can_clear_with() so that if an application is
running in a non-bce terminals with default colors enabled, it
returns true, allowing the user to select/paste text without picking
up extraneous trailing blanks (adapted from patch by Daniel
Jacobowitz ).
+ modify generated curses.h to ifdef-out prototypes for extensions if
they are disabled, and to define curses_version() as a string in that
case. This is needed to make the programs such as tic build in that
configuration.
+ modified generated headers.sh to remove a gzip'd version of the
target file if it exists, in case non-gzip'd manpages are installed
into a directory where gzip'd ones exist. In that case, the latter
would be found.
+ corrected a redundant initialization of signal handlers from 20010922
changes.
+ clarified bug-reporting address in terminfo.src (report by John H
DuBois III ).
> several fixes from Robert Joop:
+ do not use "-v" option of awk in MKkey_defs.sh because it does not
work with SunOS nawk.
+ modify definitions for libutf8 in curses.h to avoid redefinition
warnings for mblen
+ quoted references to compiler in shell command in misc/Makefile, in
case it uses multiple tokens.
20011229
+ restore special case from 20010922 changes to omit SA_RESTART when
setting up SIGWINCH handler, which is needed to allow wgetch() to be
interrupted by that signal.
+ updated configure macro CF_WITH_PATHLIST, to omit some double quotes
not needed with autoconf 2.52
+ revert configure script to autoconf 2.13 patched with
autoconf-2.13-19990117.patch.gz (or later)
from
ftp://invisible-island.net/autoconf/
because autoconf 2.52 macro AC_PROG_AWK does not work on HPUX 11.0
(report by David Ellement ). This also fixes a
different problem configuring with Mac OS X (reported by Marc Smith
).
20011222
+ modify include/edit_cfg.h to eliminate BROKEN_LINKER symbol from
term.h
+ move prototype for _nc_vsscanf() into curses.h.in to omit
HAVE_VSSCANF symbol from curses.h, which was dependent upon the
ncurses_cfg.h file which is not installed.
+ use ACS_LEN rather than SIZEOF(acs_map) in trace code of lib_acs.c,
to work with broken linker configuration, e.g., cygwin (report by
Robert Joop ).
+ make napms() call _nc_timed_wait() rather than poll() or select(),
to work around broken implementations of these on cygwin.
20011218
+ drop configure macro CF_WIDEC_SHIFT, since that was rendered obsolete
by Sven Verdoolaege's rewrite of wide-character support. This makes
libncursesw incompatible again, but makes the header files almost the
same as in the narrow-character configuration.
+ simplify definitions that combine wide/narrow versions of bkgd, etc.,
to eliminate differences between the wide/narrow versions of curses.h
+ correct typo in configure macro CF_FUNC_VSSCANF
+ correct location of call to _nc_keypad() from 20011215 changes which
prevented keypad() from being disabled (reported by Lars Hecking).
20011215
+ rewrote ncurses 'a' test to exercise wgetch() and keypad() functions
better, e.g., by adding a 'w' command to create new windows which
may have different keypad() settings.
+ corrected logic of keypad() by adding internal screen state to track
whether the terminal's keypad-mode has been set. Use this in
wgetch() to update the keypad-mode according to whether the
associated window's keypad-mode has been set with keypad(). This
corrects a related problem restoring terminal state after handling
SIGTSTP (reported by Mike Castle).
+ regenerate configure using patch for autoconf 2.52
autoconf-2.52-patch.gz
at
ftp://invisible-island.net/autoconf/
+ update config.guess, config.sub from
http://subversions.gnu.org/cgi-bin/viewcvs/config/config/
+ minor changes to quoting in configure script to allow it to work
with autoconf 2.52
20011208
+ modify final checks in lib_setup.c for line and col values, making
them independent.
+ modify acs_map[] if configure --broken-linker is specified, to make
it use a function rather than an array (prompted by an incorrect
implementation in cygwin package).
+ correct spelling of configure option --enable-colorfgbg, which
happened to work if --with-develop was set (noted in cygwin package
for ncurses).
+ modify ifdef for genericerror() to compile with SUNWspro Sun WorkShop
6 update 1 C++ 5.2 (patch by Sullivan N Beck ).
+ add configure checks to see if ncurses' fallback vsscanf() will
compile either of the special cases for FILE structs, and if not,
force it to the case which simply returns an error (report by
Sullivan N Beck indicates that Solaris 8 with
64-bits does not allow access to FILE's fields).
+ modify ifdef's for c++/cursesw.cc to use the fallback vsscanf() in
the ncurses library if no better substitute for this can be found
in the C++ runtime.
+ modify the build to name dynamic libraries according to the
convention used on OS X and Darwin. Rather than something like
libncurses.dylib.5.2, Darwin would name it libncurses. 5.dylib.
There are a few additional minor fixes, such as setting the library
version and compatibility version numbers (patch by Jason Evans
).
+ use 'sh' to run mkinstalldirs, to work around problems with buggy
versions of 'make' on OS/2 (report by John Polterak ).
+ correct typo in manpage description of curs_set() (Debian #121548).
+ replace the configure script existence-check for mkstemp() by one
that checks if the function works, needed for older glibc and
AmigaOS.
20011201
+ modify script that generates fallbacks.c to compile a temporary
copy of the terminfo source in case the host does not contain all of
the entries requested for fallbacks (request by Greg Roelofs).
+ modify configure script to accommodate systems such as Mac OS X whose
header defines a 'bool' type inconsistent with ncurses,
which normally makes 'bool' consistent with C++. Include
from curses.h to force consistent usage, define a new type
NCURSES_BOOL and related that to the exported 'bool' as either a
typedef or definition, according to whether is present
(based on a bug report for tin 1.5.9 by Aaron Adams ).
20011124
+ added/updated terminfo entries for M$ telnet and KDE konsole -TD
20011117
+ updated/expanded Apple_Terminal and Darwin PowerPC terminfo entries
(Benjamin C W Sittler).
+ add putty terminfo entry -TD
+ if configuring for wide-curses, define _XOPEN_SOURCE_EXTENDED, since
this may not otherwise be defined to make test/view.c compile.
20011110
+ review/correct several missing/generated items in curses.wide, sorted
the lists to make subsequent diff's easier to track.
20011103
+ add manual pages for add_wch(), echo_wchar(), getcchar(),
mvadd_wch(), mvwadd_wch(), setcchar(), wadd_wch() and wecho_wchar().
+ implement wecho_wchar()
+ modify _tracedump() to handle wide-characters by mapping them to '?'
and control-characters to '.', to make the trace file readable. Also
dynamically allocate the buffer used by _tracedump() for formatting
the results.
+ modify T_CALLED/T_RETURN macros to ease balancing call/return lines
in a trace by using curly braces.
+ implement _nc_viscbuf(), for tracing cchar_t arrays.
+ correct trace-calls in setcchar() and getcchar() functions, which
traced the return values but not the entry to each function.
+ correct usage message in test/view.c, which still mentioned -u flag.
20011027
+ modify configure script to allow building with termcap only, or with
fallbacks only. In this case, we do not build tic and toe.
+ add configure --with-termpath option, to override default TERMPATH
value of /etc/termcap:/usr/share/misc/termcap.
+ cosmetic change to tack: make menu descriptions agree with menu
titles.
20011020
+ rewrote limit-checks in wscrl() and associated _nc_scroll_window(),
to ensure that if the parameter of wscrl() is larger than the size of
the scrolling region, then the scrolling region will be cleared
(report by Ben Kohlen ).
+ add trace/varargs.c, using this to trace parameters in lib_printw.c
+ implement _tracecchar_t2() and _tracecchar_t().
+ split-out trace/visbuf.c
+ correct typo in lib_printw.c changes from 20010922 (report by Mike
Castle).
20011013
+ modify run_tic.sh to check if the build is a cross-compile. In that
case, do not use the build's tic to install the terminfo database
(report by Rafael Rodriguez Velilla ).
+ modify mouse click resolution so that mouseinterval(-1) will disable
it, e.g., to handle touchscreens via a slow connection (request by
Byron Stanoszek ).
+ correct mouseinterval() default value shown in curs_mouse.3x
+ remove conflicting definition of mouse_trafo() (reported by Lars
Hecking, using gcc 2.95.3).
20011001
+ simpler fix for signal_name(), to replace the one overlooked in
20010929 (reported by Larry Virden).
20010929
+ add -i option to view.c, to test ncurses' check for non-default
signal handler for SIGINT, etc.
+ add cases for shared-libraries on Darwin/OS X (patch by Rob Braun
).
+ modify tset to restore original I/O modes if an error is encountered.
Also modify to use buffered stderr consistently rather than mixing
with write().
+ change signal_name() function to use if-then-else rather than case
statement, since signal-values aren't really integers (reported by
Larry Virden).
+ add limit checks in wredrawln(), fixing a problem where lynx was
repainting a pad which was much larger than the screen.
20010922
+ fix: PutRange() was counting the second part of a wide character as
part of a run, resulting in a cursor position that was one too far
(patch by Sven Verdoolaege).
+ modify resizeterm() to not queue a KEY_RESIZE if there was no
SIGWINCH, thereby separating the two styles of SIGWINCH handling
in test/view.c
+ simplified lib_tstp.c, modify it to use SA_RESTART flag for SIGWINCH.
+ eliminate several static buffers in the terminfo compiler, using
allocated buffers.
+ modify MKkeyname.awk so that keyname() does not store its result into
a static buffer that is overwritten by the next call.
+ reorganize the output of infocmp -E and -e options to compile cleanly
with gcc -Wwrite-strings warnings.
+ remove redefinition of chgat/wchgat/mvwchgat from curses.wide
20010915
+ add label to test/view.c, showing the name of the last key or signal
that made the screen repaint, to make it clearer when a sigwinch
does this.
+ use ExitProgram() consistently in the test-programs to make it
simpler to test leaks with dmalloc, etc.
+ move hashtab static data out of hashmap.c into SCREEN struct.
+ make NO_LEAK code compile with revised WINDOWLIST structs.
20010908
+ modify tgetent() to check if exit_attribute_mode resets the alternate
character set, and if so, attempt to adjust the copy of the termcap
"me" string which it will return to eliminate that part. In
particular, 'screen' would lose track of line-drawing characters
(report by Frederic L W Meunier <0@pervalidus.net>, analysis by
Michael Schroeder).
20010901
+ specify DOCTYPE in html manpages.
+ add missing macros for several "generated" functions: attr_get(),
attr_off(), attr_on(), attr_set(), chgat(), mvchgat(), mvwchgat() and
mouse_trafo().
+ modify view.c to agree with non-experimental status of ncurses'
sigwinch handler:
+ change the sense of the -r option, making it default to ncurses'
sigwinch handler.
+ add a note explaining what functions are unsafe in a signal
handler.
+ add a -c option, to set color display, for testing.
+ unset $data variable in MKterminfo.sh script, to address potential
infinite loop if shell malfunction (report by Samuel Mikes
, for bash 2.05.0 on a Linux 2.0.36 system).
+ change kbs in mach terminfo entries to ^? (Marcus Brinkmann
).
+ correct logic for COLORFGBG environment variable: if rxvt is compiled
with xpm support, the variable has three fields, making it slightly
incompatible with itself. In either case, the background color is
the last field.
20010825
+ move calls to def_shell_mode() and def_prog_mode() before loop with
callbacks in lib_set_term.c, since the c++ demo otherwise initialized
the tty modes before saving them (patch by John David Anglin
).
+ duplicate logic used to initialize trace in newterm(), in initscr()
to avoid confusing trace of initscr().
+ simplify allocation of WINDOW and WINDOWLIST structs by making the
first a part of the second rather than storing a pointer. This saves
a call to malloc for each window (discussion with Philippe Blain).
+ remove unused variable 'used_ncv' from lib_vidattr.c (Philippe
Blain).
+ modify c++/Makefile.in to accommodate archive programs that are
different for C++ than for C, and add cases for vendor's C++
compilers on Solaris and IRIX (report by Albert Chin-A-Young).
+ correct manpage description of criteria for deciding if the terminal
supports xterm mouse controls.
+ add several configure script options to aid with cross-compiling:
--with-build-cc, --with-build-cflags, --with-build-ldflags, and
--with-build-libs (request by Greg Roelofs).
+ change criteria for deciding if configure is cross-compiling from
host/build mismatch to host/target mismatch (request by Greg Roelofs
).
+ correct logic for infocmp -e and -E options which writes the data for
the ext_Names[] array. This is needed if one constructs a fallback
table for a terminfo entry which uses extended termcap names, e.g.,
AX in a color xterm.
+ fix undefined NCURSES_PATHSEP when configure --disable-database
option is given.
20010811
+ fix for VALID_BOOLEAN() macro when char is not signed.
+ modify 'clean' rule for C++ binding to work with Sun compiler, which
caches additional information in a subdirectory of the objects.
+ added llib-ncursesw.
20010804
+ add Caps.keys example for experimental extended function keys
(adapted from a patch by Ilya Zakharevich).
+ correct parameter types of vidputs() and vidattr() to agree with
header files (report by William P Setzer).
+ fix typos in several man-pages (patch by William P Setzer).
+ remove unneeded ifdef for __GNUG__ in CF_CPP_VSCAN_FUNC configure
macro, which made ncurses C++ binding fail to build with other
C++ compilers such as HPUX 11.x (report by Albert Chin-A-Young).
+ workaround for bug in HPUX 11.x C compiler: add a blank after
NCURSES_EXPORT macro in form.h (report by Albert Chin-A-Young)
+ ignore blank lines in Caps* files in MKkey_defs.sh script (report by
Albert Chin-A-Young).
+ correct definition of key_end in Caps.aix4, which left KEY_END
undefined (report by Albert Chin-A-Young).
+ remove a QNX-specific fallback prototype for vsscanf(), which is
obsolete with QNX RTP.
+ review/fix some of the T() and TR() macro calls, having noticed that
there was no data for delwin() in a trace of dialog because there was
no returnVoid call for wtimeout(). Also, traces in lib_twait.c are
now selected under TRACE_IEVENT rather than TRACE_CALLS.
20010728
+ add a _nc_access() check before opening files listed via $TERMPATH.
+ using modified man2html, regenerate some of the html manpages to fix
broken HREF's where the link was hyphenated.
20010721
+ add some limit/pointer checks to -S option of tputs.
+ updated/expanded Apple_Terminal and Darwin PowerPC terminfo entries
(Benjamin C W Sittler).
+ add a note in curs_termcap.3x regarding a defect in the XSI
description of tgetent (based on a discussion with Urs Jansen
regarding the HPUX 11.x implementation, whose termcap interface is
not compatible with existing termcap programs).
+ modify manhtml rule in dist.mk to preserve copyright notice on the
generated files, as well as to address HTML style issues reported by
tidy and weblint. Regenerated/updated corresponding html files.
+ comment out use of Protected_Character and related rarely used
attributes in ncurses Ada95 test/demo to compile with wide-character
configuration.
20010714
+ implement a simple example in C++ demo to test scanw().
+ corrected stdio function used to implement scanw() in cursesw.cc
+ correct definition of RemAttr() macro from 20010602 changes, which
caused C++ SillyDemo to not show line-drawing characters.
+ modify C++ binding, adding getKey() which can be overridden by user
to substitute functions other than getch() for keyboard processing
of forms and menus (patch by Juergen Pfeifer).
20010707
+ fix some of the trace calls which needed modification to work with
new wide-character structures.
+ modify magic-cookie code in tty_update.c to compile with new
wide-character structures (report by ).
+ ensure that _XOPEN_SOURCE_EXTENDED is defined in curses.priv.h if
compiling for wide-character configuration.
+ make addwnstr() handle non-spacing characters (patch by Sven
Verdoolaege).
20010630
+ add configure check to define _GNU_SOURCE, needed to prop up glibc
header files.
+ split-out include/curses.wide to solve spurious redefinitions caused
by defining _GNU_SOURCE, and move includes for before
to work around misdefinition of ERR in glibc 2.1.3 header
file.
+ extended ospeed change to NetBSD and OpenBSD -TD
+ modify logic in lib_baudrate.c for ospeed, for FreeBSD to make it
work properly for termcap applications (patch by Andrey A Chernov).
20010623
+ correct an overlooked CharOf/UChar instance (reports by Eugene Lee
, Sven Verdoolaege).
+ correct unneeded ifdef for wunctrl() (reported by Sven Verdoolaege)
20010618
+ change overlooked several CharOf/UChar instances.
> several patches from Sven Verdoolaege:
+ correct a typo in wunctrl(), which made it appear that botwc() was
needed (no such function: use btowc()).
+ reimplement wide-character demo in test/view.c, using new functions.
+ implement getcchar(), setcchar(), wadd_wchnstr() and related macros.
+ fix a syntax problem with do/if/while in PUTC macro (curses.priv.h).
20010616
+ add parentheses in macros for malloc in test.priv.h, fixes an
expression in view.c (report by Wolfgang Gutjahr ).
+ add Caps.uwin, as an example.
+ change the way curses.h is generated, making the list of function
key definitions extracted from the Caps file.
+ add #undef's before possible redefinition of ERR and OK in curses.h
+ modify logic in tic, toe, tput and tset which checks for basename of
argv[0] to work properly on systems such as OS/2 which have
case-independent filenames and/or program suffixes, e.g., ".ext".
20010609
+ add a configure check, if --enable-widec is specified, for putwc(),
which may be in libutf8.
+ remove some unnecessary text from curs_extend.3x and
default_colors.3x which caused man-db to make incorrect symbolic
links (Debian #99550).
+ add configure check if cast for _IO_va_list is needed to compile
C++ vscan code (Debian #97945).
> several patches from Sven Verdoolaege:
+ correct code that used non-standard auto-initialization of a struct,
which gcc allows (report by Larry Virden).
+ use putwc() in PUTC() macro.
+ make addstr() work for the special case where the codeset is
non-stateful (eg. UTF-8), as well as stateful codesets.
20010603
+ correct loop expression in NEXT_CHAR macro for lib_addstr.c changes
from 20010602 (report by Mike Castle).
20010602
+ modify mvcur() to avoid emitting newline characters when nonl() mode
is set. Normally this is not a problem since the actual terminal
mode is set to suppress nl/crlf translations, however it is useful to
allow the caller to manipulate the terminal mode to avoid staircasing
effects after spawning a process which writes messages (for lynx
2.8.4) -TD
> several patches from Sven Verdoolaege :
+ remove redundant type-conversion in fifo_push()
+ correct definition of addwstr() macro in curses.h.in
+ remove _nc_utf8_outch()
+ rename most existing uses of CharOf() to UChar(), e.g., where it is
used to prevent sign-extension in ctype macros.
+ change some chtype's to attr_t's where the corresponding variables
are used to manipulate attributes.
+ UpdateAttr() was applied to both attributes (attr_t) and characters
(chtype). Modify macro and calls to it to make these distinct.
+ add CharEq() macro, use in places where wide-character configuration
implementation uses a struct for cchar_t.
+ moved struct ldat into curses.priv.h, to hide implementation details.
+ change CharOf() macro to use it for masking A_CHARTEXT data from
chtype's.
+ add L() macro to curses.priv.h, for long-character literals.
+ replace several assignments from struct ldat entries to chtype or
char values with combinations of CharOf() and AttrOf() macros.
+ add/use intermediate ChAttrOf() and ChCharOf() macros where we know
we are using chtype data.
+ add/use lowlevel attribute manipulation macros AddAttr(), RemAttr()
and SetAttr().
+ add/use SetChar() macro, to change a cchar_t based on a character and
attributes.
+ convert most internal use of chtype to NCURSES_CH_T, to simplify use
of cchar_t for wide-character configuration. Similarly, use ARG_CH_T
where a pointer would be more useful.
+ add stubs for tracing cchar_t values.
+ add/use macro ISBLANK()
+ add/use constructors for cchar_t's: NewChar(), NewChar2().
+ add/use macros CHREF(), CHDEREF(), AttrOfD(), CharOfD() to facilitate
passing cchar_t's by address.
+ add/use PUTC_DATA, PUTC() macros.
+ for wide-character configuration, move the window background data to
the end of the WINDOW struct so that whether _XOPEN_SOURCE_EXTENDED
is defined or not, the offsets in the struct will not change.
+ modify addch() to work with wide-characters.
+ mark several wide-character functions as generated in curses.h.in
+ implement wunctrl(), wadd_wch(), wbkgrndset(), wbkgrnd(),
wborder_set() and waddnwstr().
20010526
+ add experimental --with-caps=XXX option to customize to similar
terminfo database formats such as AIX 4.x
+ add Caps.aix4 as an example.
+ modify Caps to add columns for the the KEY_xxx symbols.
+ modify configure --with-widec to suppress overwrite of libcurses.so
and curses.h
+ add checks to toe.c to avoid being confused by files and directories
where we would expect the reverse, e.g., source-files in the
top-level terminfo levels as is the case for AIX.
20010519
+ add top-level 'depend' rule for the C sources, assuming that the
makedepend program is available. As a side-effect, this makes
the generated sources, as in "make sources" (prompted by a report
by Mike Castle that "make -j" fails because the resulting parallel
processes race to generate ncurses/names.c).
+ modify configure script so that --disable-overwrite option's action
to add a symbolic link for libcurses applies to the static library as
well as the shared library when both are configured (report by Felix
Natter ).
+ add ELKS terminfo entries (Federico Bianchi
)
+ add u6 (CSR) to Eterm (Michael Jennings).
20010512
+ modify test/ncurses.c to work with xterm-256color, which has fewer
color pairs than colors*colors (report by David Ellement
).
20010505
+ corrected screen.xterm-xfree86 entry.
+ update comment in Caps regarding IBM (AIX) function-key definitions.
20010421
+ modify c++/Makefile.in to link with libncurses++w.a when configured
for wide-characters (patch by Sven Verdoolaege).
+ add check in _nc_trace_buf() to refrain from freeing a null pointer.
+ improve CF_PROG_INSTALL macro using CF_DIRNAME.
+ update config.guess, config.sub from autoconf 2.49e (alpha).
20010414
+ add secondary check in tic.c, similar_sgr() to see if the reason
for mismatch was that the individual capabilities used a time-delay
while sgr did not. Used this to cleanup mismatches, e.g., in vt100,
and remove time-delay from Apple_Terminal entries.
+ add Apple_Terminal terminfo entries (Benjamin C W Sittler
).
+ correct definitions of shifted editing keys for xterm-xfree86 -TD
+ fix a bug in test/bs.c from 20010407 (patch by Erik Sigra).
+ prevent relative_move() from doing an overwrite if it detects 8-bit
characters when configured for UTF-8 (reported by Sven Verdoolaege
).
20010407
+ add configure checks for strstream.h vscan function, and similar
stdio-based function which may be used in C++ binding for gcc 3.0
(reports by George Goffe, Lars Hecking, Mike Castle).
+ rewrite parts of configure.in which used changequote(). That feature
is broken in the latest autoconf alphas (e.g., 2.49d).
+ add a missing pathname for ncurses_dll.h, needed when building in
a directory outside the source tree (patch by Sven Verdoolaege
).
> fix 2 bugs in test/bs.c Erik Sigra :
+ no ships were ever placed in the last row or in the last column.
This made the game very easy to win, because you never had to waste
any shots there, but the computer did.
+ the squares around a sunken ship that belonged to the player were not
displayed as already hit by the computer, like it does for the
player.
20010331
+ add some examples of customizing screen's terminfo:
screen.xterm-xfree86, screen.xterm-r6, screen.teraterm -TD
+ modify screen's terminfo entry to match the khome/kend in screen
3.09.08 (Debian #92215).
+ correct a memory leak in forms library (report by Stefan Vogtner
) (patch by Juergen Pfeifer).
20010324
+ change symbols used to guard against repeated includes to begin
consistently with "NCURSES_" rather than a leading underscore. There
are other symbols defined in the header files which begin with a
leading underscore, but they are part of the legacy interface.
+ reorder includes in c++ binding so that rcs identifiers can be
compiled-in.
+ add .cc.ii rule to c++ makefile, to get preprocessor output for
debugging.
+ correct configure script handling of @keyword@ substitutions when the
--with-manpage-renames option is given (cf: 20000715, fixes Debian
#89939).
+ report stack underflow/overflow in tparm() when tic -cv option is
given.
+ remove spurious "%|" operator from xterm-xfree86 terminfo entry,
(reported by Adam Costello , Debian #89222).
20010310
+ cleanup of newdemo.c, fixing some ambiguous expressions noted by gcc
2.95.2, and correcting some conflicting color pair initializations.
+ add missing copyright notice for cursesw.h
+ review, make minor fixes for use of '::' for referring to C-language
interface from C++ binding.
+ modify configure check for g++ library slightly to accommodate
nonstandard version number, e.g., -2.7 (report by Ronald Ho
).
+ add configure check for c++ header, replace hardcoded
ifdef.
+ workaround for pre-release of gcc 3.0 libstdc++, which has dropped
vscan from strstreambuf to follow standard, use wrapper for C vscanf
instead (report by George Goffe and Matt Taggart
, fixes Debian .
20010303
+ modify interface of _nc_get_token() to pass 'silent' parameter to it,
to make quieter loading of /etc/termcap (patch by Todd C Miller).
+ correct a few typos in curs_slk.3x and curs_outopts.3x manpages
(patch by Todd C Miller).
20010224
+ compiler-warning fixes (reported by Nelson Beebe).
20010210
+ modify screen terminfo entry to use new 3.9.8 feature allowing xterm
mouse controls -TD
20010203
+ broaden patterns used to match OS/2 EMX in configure script to cover
variant used in newer config.guess/config.sub
+ remove changequote() calls from configure script, since this feature
is broken in the autoconf 2.49c alpha, maintainers decline to fix.
+ remove macro callPutChar() from tty_update.c, since this is no longer
needed (reported by Philippe Blain).
+ add a null-pointer check in tic.c to handle the case when the input
file is really empty. Modify the next_char() function in comp_scan.c
to allow arbitrarily long lines, and incidentally supply a newline to
files that do not end in a newline. These changes improve tic's
recovery from attempts to read binary files, e.g., its output from
the terminfo database (reported by Bernhard Rosenkraenzer).
20010127
+ revert change to c++/demo.cc from 20001209, which changed definition
of main() apparently to accommodate cygwin linker, but broke the demo
program.
+ workaround for broken egcs 2.91.66 which calls member functions
(i.e., lines() and colors() of NCursesWindow before calling its
constructor. Add calls to initialize() in a few constructors which
did not do this already.
+ use the GNAT preprocessor to make the necessary switch between TRACE
and NO_TRACE configurations (patch by Juergen Pfeifer).
> patches by Bernhard Rosenkraenzer:
+ modify kterm terminfo entry to use SCS sequence to support alternate
character set (it does not work with SI/SO).
+ --with-ospeed=something didn't work. configure.in checked for a
$enableval where it should check for $withval. Also,
ncurses/llib-lncurses still had a hardcoded short.
20010114
+ correction to my merge of Tom Riddle's patch that broke tic in some
conditions (reported by Enoch Wexler ) -TD
20010113
+ modify view.c to test halfdelay(). Like other tests, this recognizes
the 's' and space commands for stopping/starting polled input, shows
a freerunning clock in the header. If given a parameter to 's', that
makes view.c use halfdelay() with that parameter rather than
nodelay().
+ fix to allow compile with the experimental configure option
--disable-hashmap.
+ modify postprocess_termcap() to avoid overwriting key_backspace,
key_left, key_down when processing a non-base entry (report/patch by
Tom Riddle).
+ modify _nc_wrap_entry(), adding option to reallocate the string
table, needed in _nc_merge_entry() when merging termcap entries.
(adapted from report/patch by Tom Riddle ).
+ modify a few configure script macros to keep $CFLAGS used only for
compiler options, preprocessor options in $CPPFLAGS.
20001230
+ correct marker positions in lrtest.c after receiving a sigwinch.
+ fix ifdef's in ncurses.c to build against pre-5.2 for testing.
+ fixes to tclock for resizing behavior, redundant computation (report
and patch by A M Kuchling ).
20001216
+ improved scoansi terminfo entry -TD
+ modify configure script and makefile in Ada95/src to compile a stub
for the trace functions when ncurses does not provide those.
20001209
+ add ncurses_dll.h and related definitions to support generating DLL's
with cygwin (adapted from a patch by Charles Wilson
, changed NCURSES_EXPORT macro to make it
work with 'indent') -TD
20001202
+ correct prototypes for some functions in curs_termcap.3x, matching
termcap.h, which matches X/Open.
> patch by Juergen Pfeifer:
+ a revised version of the Ada enhancements sent in by "H.
Nanosecond", aka Eugene V Melaragno . This
patch includes
- small fixes to the existing ncurses binding
- addition of some more low-level functions to the binding, including
termcap and terminfo functions
- An Ada implementation of the "ncurses" test application originally
written in C.
20001125
+ modify logic in lib_setup.c to allow either lines or columns value
from terminfo to be used if the screen size cannot be determined
dynamically rather than requiring both (patch by Ehud Karni
).
+ add check in lib_tgoto.c's is_termcap() function to reject null or
empty strings (reported by Valentin Nechayev to
freebsd-bugs).
+ add definition from configure script that denotes the path-separator,
which is normally a colon. The path-separator is a semicolon on
OS/2 EMX and similar systems which may use a colon within pathnames.
+ alter logic to set default for --disable-overwrite option to set it
to 'yes' if the --prefix/$prefix value is not /usr/local, thereby
accommodating the most common cause of problems: gcc's nonstandard
search rules. Other locations such as /usr/local/ncurses will
default to overwriting (report by Lars Hecking ).
20001118
+ modify default for --disable-overwrite configure option to disable
if the --prefix or $prefix value is not /usr.
+ add cygwin to systems for which ncurses is installed by default into
/usr rather than /usr/local.
20001111
+ minor optimization in comp_error.c and lib_termname.c, using
strncat() to replace strncpy() (patch by Solar Designer).
+ add a use_terminfo_vars() check for $HOME/.termcap, and check for
geteuid() to use_terminfo_vars() (patch by Solar Designer
).
+ improved cygwin terminfo entry, based on patch by
.
+ modify _nc_write_entry() to allow for the possibility that linking
aliases on a filesystem that ignores case would not succeed because
the source and destination differ only by case, e.g., NCR260VT300WPP0
on cygwin (report by Neil Zanella).
+ fix a typo in the curs_deleteln.3x man page (patch by Bernhard
Rosenkraenzer ).
20001104
+ add configure option --with-ospeed to assist packagers in transition
to 5.3 change to ospeed type.
+ add/use CharOf() macro to suppress sign-extension of char type on
platforms where this is a problem in ctype macros, e.g., Solaris.
+ change trace output to binary format.
+ correct a missing quote adjustment in CF_PATH_SYNTAX autoconf
macro, for OS/2 EMX configuration.
+ rearrange a few configure macros, moving preprocessor options to
$CPPFLAGS (a now-obsolete version of autoconf did not consistently
use $CPPFLAGS in both the compile and preprocessor checks).
+ add a check in relative_move() to guard against buffer overflow in
the overwrite logic.
20001028
+ add message to configure script showing g++ version.
+ resync config.guess, config.sub
+ modify lib_delwin.c, making it return ERR if the window did not exist
(suggested by Neil Zanella).
+ add cases for FreeBSD 3.1 to tdlint and makellib scripts, used this
to test/review ncurses library. (Would use lclint, but it doesn't
work).
+ reorganized knight.c to avoid forward references. Correct screen
updates when backtracking, especially to the first cell. Add F/B/a
commands.
20001021 5.2 release for upload to ftp.gnu.org
+ update generated html files from manpages.
+ modify dist.mk to use edit_man.sh to substitute autoconf'd variables
in html manpages.
+ fix an uninitialized pointer in read_termcap.c (report by Todd C
Miller, from report/patch by Philip Guenther ).
+ correct help-message and array limit in knight.c (patch by Brian
Raiter ).
> patch by Juergen Pfeifer:
+ fix to avoid warning by GNAT-3.13p about use of inconsistent casing
for some identifiers defined in the standard package.
+ cosmetic change to forms/fty_enum.c
20001014
+ correct an off-by-one position in test/railroad.c which could cause
wrapping at the right margin.
+ test/repair some issues with libtool configuration. Make
--disable-echo force libtool --silent. (Libtool does not work for
OS/2 EMX, works partly for SCO - libtool is still very specific to
gcc).
+ change default of --with-manpage-tbl to "no", since for most of the
platforms which do have tbl installed, the system "man" program
understands how to run tbl automatically.
+ minor improvement to force_bar() in comp_parse.c (Bernhard
Rosenkraenzer ).
+ modify lib_tparm.c to use get_space() before writing terminating
null character, both for consistency as well as to ensure that if
save_char() was called immediately before, that the allocated memory
is enough (patch by Sergei Ivanov).
+ add note about termcap ML capability which is duplicated between two
different capabilities: smgl and smglr (reported by Sergei Ivanov
).
+ correct parameter counts in include/Caps for dclk as well as some
printer-specific capabilities: csnm, defc, scs, scsd, smgtp, smglp.
> patch by Johnny C Lam :
+ add support for building with libtool (apparently version 1.3.5,
since old versions do not handle -L../lib), using new configure
option --with-libtool.
+ add configure option --with-manpage-tbl, which causes the manpages to
be preprocessed by tbl(1) prior to installation,
+ add configure option --without-curses-h, which causes the
installation process to install curses.h as ncurses.h and make
appropriate changes to headers and manpages.
20001009
+ correct order of options/parameters in run_tic.in invocation of tic,
which did not work with standard getopt() (reported by Ethan
Butterfield ).
+ correct logic for 'reverse' variable in lib_vidattr.c, which was
setting it true without checking if newmode had A_REVERSE set, e.g.,
using $TERM=ansi on OS/2 EMX (see 20000917).
> patch by Todd C Miller:
+ add a few missing use_terminfo_vars() and fixes up _nc_tgetent().
Previously, _nc_cgetset() would still get called on cp so the
simplest thing is to set cp to NULL if !use_terminfo_vars().
+ added checks for an empty $HOME environment variable.
> patches for OS/2 EMX (Ilya Zakharevich):
+ modify convert_configure.pl to support INSTALL. Change compiler
options in that script to use multithreading, needed for the mouse.
+ modify OS/2 mouse support, retrying as a 2-button mouse if code fails
to set up a 3-button mouse.
+ improve code for OS/2 mouse support, using _nc_timed_wait() to
replace select() call.
20001007
+ change type of ospeed variable back to short to match its use in
legacy applications (reported by Andrey A Chernov).
+ add case to configure script for --enable-rpath on IRIX (patch by
Albert Chin-A-Young).
+ minor fix to position_check() function, to ensure it gets the whole
cursor report before decoding.
+ add configure option --disable-assumed-color, to allow pre-5.1
convention of default colors used for color-pair 0 to be configured
(see assume_default_colors()).
+ rename configure option --enable-hashmap --disable-hashmap, and
reorder the configure options, splitting the experimental and
development
+ add configure option --disable-root-environ, which tells ncurses to
disregard $TERMINFO and similar environment variables if the current
user is root, or running setuid/setgid (based on discussion with
several people).
+ modified misc/run_tic.in to use tic -o, to eliminate dependency on
$TERMINFO variable for installs.
+ add table entry for plab_norm to tput, so it passes in strings
for that capability.
+ modify parse_format() in lib_tparm.c to ignore precision if it is
longer than 10000 (report by Jouko Pynnonen).
+ rewrote limit checks in lib_mvcur.c using new functions
_nc_safe_strcat(), etc. Made other related changes to check lengths
used for strcat/strcpy (report by Jouko Pynnonen
).
20000930
+ modify several descriptions, including those for setaf, setab, in
include/Caps to indicate that the entries are parameterized. This
information is used to tell which strings are translated when
converting to termcap. Fixes a problem where the generated termcap
would contain a spurious "%p1" for the terminfo "%p1%d".
+ modify ld -rpath options (e.g., Linux, and Solaris) to use an
absolute pathname for the build tree's lib directory (prompted by
discussion with Albert Chin-A-Young).
+ modify "make install.man" and "make uninstall.man" to include tack's
man-page.
+ various fixes for install scripts used to support configure --srcdir
and --with-install-prefix (reported by Matthew Clarke
).
+ make configure script checks on variables $GCC and $GXX consistently
compare against 'yes' rather than test if they are nonnull, since
either may be set to the corresponding name of the C or C++ compiler
(report/patch by Albert Chin-A-Young).
20000923
+ modify rs2 capability in xterm-r6 and similar where cursor
save/restore bracketed the sequence for resetting video attributes.
The cursor restore would undo that (report by John Hawkinson
(see NetBSD misc/11052)).
+ using parameter check added to tic, corrected 27 typos in
terminfo.src -TD
+ modify tic to verify that its inputs are really files, in case
someone tries to read a directory (or /dev/zero).
+ add a check for empty buffers returned by fgets() in comp_scan.c
next_char() function, in case tic is run on a non-text file (fixes
a core dump reported by Aaron Campbell ).
+ add to railroad.c some code exercising tgoto(), providing an
alternate form of display if the terminal supports cursor addressing.
+ split-out tgoto() again, this time into new file lib_tgoto.c, and
implement a conventional BSD-style tgoto() which is used if the
capability string does not contain terminfo-style padding or
parameters (requested by Andrey A Chernov).
+ add check to tic which reports capabilities that do not reference
the expected number of parameters.
+ add error checking to infocmp's -v and -m options to ensure that
the option value is indeed a number.
+ some cleanup of logic in _nc_signal_handler() to verify if SIGWINCH
handler is setup. Separated the old/new sigaction data for SIGTSTP
from the other signals.
20000917
+ add S0, E0 extensions to screen's terminfo entry, which is another
way to solve the misconfiguration issue -TD
+ completed special case for tgoto from 20000916
20000916
+ update xterm terminfo entries to match XFree86 xterm patch #146 -TD
+ add Matrix Orbital terminfo entries (from Eric Z Ayers
).
+ add special case to lib_tparm.c to allow 'screen' program to use a
termcap-style parameter "%." to tgoto() for switching character sets.
+ use LN_S substitution in run_tic.in, to work on OS/2 EMX which has
no symbolic links.
+ updated notes in README.emx regarding autoconf patches.
+ replace a lookup table in lib_vidattr.c used to decode no_color_video
with a logic expression (suggested by Philippe Blain).
+ add a/A toggle to ncurses.c 'b' test, which clears/sets alternate
character set attribute from the displayed text.
+ correct inequality in parameter analysis of rewritten lib_tparm.c
which had the effect of ignoring p9 in set_attributes (sgr), breaking
alternate character set (reported by Piotr Majka ).
+ correct ifdef'ing for GCC_PRINTF, GCC_SCANF which would not compile
with Sun WorkShop compilers since these tokens were empty (cf:
20000902, reported by Albert Chin-A-Young).
20000909
+ correct an uninitialized parameter to open_tempfile() in tic.c which
made "tic -I" give an ambiguous error message about tmpnam.
+ add special case in lib_vidattr.c to reset underline and standout for
devices that have no sgr0 defined (patch by Don Lewis
). Note that this will not work for bold
mode, since there is no exit-bold-mode capability.
+ improved patch for Make_Enum_Type (patch by Juergen Pfeifer).
+ modify tparm to disallow arithmetic on strings, analyze the varargs
list to read strings as strings and numbers as numbers.
+ modify tparm's internal function spop() to treat a null pointer as
an empty string.
+ modify tput program so it can be renamed or invoked via a link as
'reset' or 'init', producing the same effect as 'tput reset' or 'tput
init'.
+ add private entrypoint _nc_basename(), use to consolidate related
code in progs, as well as accommodating OS/2 EMX pathnames.
+ remove NCURSES_CONST line from edit_cfg.sh to compensate for its
removal (except via AC_SUBST) from configure.in, making
--enable-const work again (reported by Juergen Pfeifer).
+ regen'd configure to pick up "hpux*" change from 20000902.
20000902
+ modify tset.c to check for transformed "reset" program name, if any.
+ add a check for null pointer in Make_Enum_Type() (reported by Steven
W Orr ).
+ change functions _nc_parse_entry() and postprocess_termcap() to avoid
using strtok(), because it is non-reentrant (reported by Andrey A
Chernov ).
+ remove "hpux10.*" case from CF_SHARED_OPTS configure script macro.
This differed from the "hpux*" case by using reversed symbolic
links, which made the 5.1 version not match the configuration of
5.0 shared libraries (reported by Albert Chin-A-Young).
+ correct a dependency in Ada95/src/Makefile.in which prevented
building with configure --srcdir (patch by H Nanosecond
).
+ modify ifdef's in curses.h.in to avoid warning if GCC_PRINTF or
GCC_SCANF was not previously defined (reported by Pavel Roskin
).
+ add MKncurses_def.sh to generate fallback definitions for
ncurses_cfg.h, to quiet gcc -Wundef warnings, modified ifdef's in
code to consistently use "#if" rather than "#ifdef".
20000826
+ add QNX qansi entries to terminfo -TD
+ add os2 entry to misc/emx.src ().
+ add configure option --with-database to allow specifying a different
terminfo source-file to install. On OS/2 EMX, this defaults to
misc/emx.src
+ change misc/run_tic.sh to derive it from misc/run_tic.in, to simplify
setting .exe extension on OS/2 EMX.
+ add .exe extension in Ada95/gen/Makefile.in,
Ada95/samples/Makefile.in, for OS/2 EMX (reported by
).
+ add configure check for filesystems (such as OS/2 EMX) which do not
distinguish between upper/lowercase filenames, use this to fix tags
rules in makefiles.
+ initialize fds[] array to 0's in _nc_timed_wait(); apparently poll()
only sets the revents members of that array when there is activity
corresponding to the related file (report by Glenn Cooper
, using Purify on Solaris 5.6).
+ change configure script to use AC_CANONICAL_SYSTEM rather than
AC_CANONICAL_HOST, which means that configure --target will set
a default program-prefix.
+ add note on cross-compiling to INSTALL (which does not rely on the
AC_CANONICAL_* macros).
20000819
+ add cases for EMX OS/2 to config.guess, config.sub
+ new version of config.guess, config.sub from lynx 2.8.4dev.7
+ add definitions via transform.h to allow tic and tput to check for
the transformed aliases rather than the original infotocap, etc.
+ simplify transform-expressions in progs/Makefile.in, make the
uninstall rule work for transformed program names.
+ change symbol used by --install-prefix configure option from
INSTALL_PREFIX to DESTDIR (the latter has become common usage
although the name is misleading).
+ modify programs to use curses_version() string to report the version
of ncurses with which they are compiled rather than the
NCURSES_VERSION string. The function returns the patch level in
addition to the major and minor version numbers.
20000812
+ modify CF_MAN_PAGES configure macro to make transformed program names
a parameter to that macro rather than embedding them in the macro.
+ newer config.guess, config.sub (reference version used in lynx
2.8.4dev.7).
+ add configure option --with-default-terminfo-dir=DIR to allow
specifying the default terminfo database directory (request by Albert
Chin-A-Young).
+ minor updates for terminfo.src from FreeBSD termcap change-history.
+ correct notes in README and INSTALL regarding documentation files
that were moved from misc directory to doc (report by Rich Kulawiec
).
+ change most remaining unquoted parameters of 'test' in configure
script to use quotes, for instance fixing a problem in the
--disable-database option (reported by Christian Mondrup