Vendor import of ncurses 5.9 20140222 snapshot.
This commit is contained in:
Xin LI
parent
6826a395a6
commit
cea297eb34
1204
Ada95/aclocal.m4
vendored
1204
Ada95/aclocal.m4
vendored
File diff suppressed because it is too large
Load Diff
4343
Ada95/configure
vendored
4343
Ada95/configure
vendored
File diff suppressed because it is too large
Load Diff
@ -1,5 +1,5 @@
|
||||
dnl***************************************************************************
|
||||
dnl Copyright (c) 2010,2011 Free Software Foundation, Inc. *
|
||||
dnl Copyright (c) 2010-2012,2013 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 *
|
||||
@ -28,24 +28,20 @@ dnl***************************************************************************
|
||||
dnl
|
||||
dnl Author: Thomas E. Dickey
|
||||
dnl
|
||||
dnl $Id: configure.in,v 1.30 2011/03/31 22:49:22 tom Exp $
|
||||
dnl $Id: configure.in,v 1.49 2013/11/16 20:06:37 tom Exp $
|
||||
dnl Process this file with autoconf to produce a configure script.
|
||||
dnl
|
||||
dnl See http://invisible-island.net/autoconf/ for additional information.
|
||||
dnl
|
||||
dnl ---------------------------------------------------------------------------
|
||||
AC_PREREQ(2.13.20020210)
|
||||
AC_REVISION($Revision: 1.30 $)
|
||||
AC_PREREQ(2.52.20030208)
|
||||
AC_REVISION($Revision: 1.49 $)
|
||||
AC_INIT(gen/gen.c)
|
||||
AC_CONFIG_HEADER(include/ncurses_cfg.h:include/ncurses_cfg.hin)
|
||||
|
||||
CF_TOP_BUILDDIR
|
||||
|
||||
CF_CHECK_CACHE([AC_CANONICAL_SYSTEM])
|
||||
AC_ARG_WITH(system-type,
|
||||
[ --with-system-type=XXX test: override derived host system-type],
|
||||
[AC_MSG_WARN(overriding system type to $withval)
|
||||
cf_cv_system_name=$withval])
|
||||
CF_WITH_SYSTYPE
|
||||
|
||||
### Save the given $CFLAGS to allow user-override.
|
||||
cf_user_CFLAGS="$CFLAGS"
|
||||
@ -54,15 +50,10 @@ cf_user_CFLAGS="$CFLAGS"
|
||||
CF_CFG_DEFAULTS
|
||||
|
||||
### Checks for programs.
|
||||
AC_PROG_CC
|
||||
CF_GCC_VERSION
|
||||
|
||||
CF_PROG_CC(gnatgcc gcc cc)
|
||||
AC_PROG_CPP
|
||||
AC_PROG_GCC_TRADITIONAL
|
||||
CF_PROG_CC_C_O(CC)
|
||||
AC_ISC_POSIX
|
||||
CF_ANSI_CC_REQD
|
||||
CF_PROG_EXT
|
||||
|
||||
AC_ARG_PROGRAM
|
||||
|
||||
@ -75,28 +66,8 @@ AC_SYS_LONG_FILE_NAMES
|
||||
|
||||
# if we find pkg-config, check if we should install the ".pc" files.
|
||||
CF_PKG_CONFIG
|
||||
|
||||
if test "$PKG_CONFIG" != none ; then
|
||||
AC_MSG_CHECKING(if we should install .pc files for $PKG_CONFIG)
|
||||
|
||||
# Leave this as something that can be overridden in the environment.
|
||||
if test -z "$PKG_CONFIG_LIBDIR" ; then
|
||||
PKG_CONFIG_LIBDIR=`echo "$PKG_CONFIG" | sed -e 's,/[[^/]]*/[[^/]]*$,,'`/lib/pkgconfig
|
||||
fi
|
||||
PKG_CONFIG_LIBDIR=`echo "$PKG_CONFIG_LIBDIR" | sed -e 's/^://' -e 's/:.*//'`
|
||||
if test -n "$PKG_CONFIG_LIBDIR" && test -d "$PKG_CONFIG_LIBDIR" ; then
|
||||
AC_ARG_ENABLE(pc-files,
|
||||
[ --enable-pc-files generate and install .pc files for pkg-config],
|
||||
[enable_pc_files=$enableval],
|
||||
[enable_pc_files=no])
|
||||
AC_MSG_RESULT($enable_pc_files)
|
||||
else
|
||||
AC_MSG_RESULT(no)
|
||||
AC_MSG_WARN(did not find library $PKG_CONFIG_LIBDIR)
|
||||
enable_pc_files=no
|
||||
fi
|
||||
fi
|
||||
AC_SUBST(PKG_CONFIG_LIBDIR)
|
||||
CF_WITH_PKG_CONFIG_LIBDIR
|
||||
CF_ENABLE_PC_FILES
|
||||
|
||||
AC_MSG_CHECKING(if you want to build test-programs)
|
||||
AC_ARG_WITH(tests,
|
||||
@ -130,6 +101,7 @@ 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
|
||||
@ -186,9 +158,7 @@ AC_SUBST(DFT_UPR_MODEL)dnl the default model ("NORMAL")
|
||||
|
||||
CF_NCURSES_ADDON
|
||||
|
||||
CF_LIB_PREFIX(cf_prefix)
|
||||
LIB_PREFIX=$cf_prefix
|
||||
AC_SUBST(LIB_PREFIX)
|
||||
CF_WITH_LIB_PREFIX(cf_prefix)
|
||||
|
||||
LIB_SUFFIX=
|
||||
AC_SUBST(LIB_SUFFIX)
|
||||
@ -235,8 +205,6 @@ fi
|
||||
###############################################################################
|
||||
CF_HELP_MESSAGE(Fine-Tuning Your Configuration:)
|
||||
|
||||
CF_PATHSEP
|
||||
|
||||
### use option --enable-broken-linker to force on use of broken-linker support
|
||||
AC_MSG_CHECKING(if you want broken-linker support code)
|
||||
AC_ARG_ENABLE(broken_linker,
|
||||
@ -272,7 +240,7 @@ AC_ARG_WITH(rcs-ids,
|
||||
[with_rcs_ids=$withval],
|
||||
[with_rcs_ids=no])
|
||||
AC_MSG_RESULT($with_rcs_ids)
|
||||
test "$with_rcs_ids" = yes && AC_DEFINE(USE_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:)
|
||||
@ -286,8 +254,8 @@ AC_ARG_ENABLE(ext-funcs,
|
||||
AC_MSG_RESULT($with_ext_funcs)
|
||||
if test "$with_ext_funcs" = yes ; then
|
||||
NCURSES_EXT_FUNCS=1
|
||||
AC_DEFINE(HAVE_USE_DEFAULT_COLORS)
|
||||
AC_DEFINE(NCURSES_EXT_FUNCS)
|
||||
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
|
||||
@ -337,12 +305,12 @@ else
|
||||
fi
|
||||
|
||||
if test $cf_cv_weak_symbols = yes ; then
|
||||
AC_DEFINE(USE_WEAK_SYMBOLS)
|
||||
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)
|
||||
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
|
||||
@ -370,7 +338,7 @@ if test "$with_reentrant" = yes ; then
|
||||
elif test "$assume_reentrant" = no ; then
|
||||
LIB_SUFFIX="t${LIB_SUFFIX}"
|
||||
fi
|
||||
AC_DEFINE(USE_REENTRANT)
|
||||
AC_DEFINE(USE_REENTRANT,1,[Define to 1 to compile with experimental reentrant code])
|
||||
else
|
||||
cf_cv_enable_reentrant=0
|
||||
fi
|
||||
@ -388,24 +356,13 @@ else
|
||||
NCURSES_WRAP_PREFIX=_nc_
|
||||
fi
|
||||
AC_SUBST(NCURSES_WRAP_PREFIX)
|
||||
AC_DEFINE_UNQUOTED(NCURSES_WRAP_PREFIX,"$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
|
||||
AC_MSG_CHECKING(if you want to display full commands during build)
|
||||
AC_ARG_ENABLE(echo,
|
||||
[ --enable-echo build: display "compiling" commands (default)],
|
||||
[with_echo=$enableval],
|
||||
[with_echo=yes])
|
||||
if test "$with_echo" = yes; then
|
||||
ECHO_LINK=
|
||||
else
|
||||
ECHO_LINK='@ echo linking $@ ... ;'
|
||||
fi
|
||||
AC_MSG_RESULT($with_echo)
|
||||
AC_SUBST(ECHO_LINK)
|
||||
CF_DISABLE_ECHO
|
||||
|
||||
### use option --enable-warnings to turn on all gcc warnings
|
||||
AC_MSG_CHECKING(if you want to see compiler warnings)
|
||||
@ -416,7 +373,7 @@ AC_MSG_RESULT($with_warnings)
|
||||
|
||||
if test "x$with_warnings" = "xyes"; then
|
||||
CF_ADD_ADAFLAGS(-gnatg)
|
||||
CF_GCC_WARNINGS(Wdeclaration-after-statement Wextra Wno-unknown-pragmas Wswitch-enum)
|
||||
CF_GCC_WARNINGS(Wno-unknown-pragmas Wswitch-enum)
|
||||
fi
|
||||
CF_GCC_ATTRIBUTES
|
||||
|
||||
@ -431,7 +388,6 @@ if test -n "$GCC"
|
||||
then
|
||||
if test "$with_assertions" = no
|
||||
then
|
||||
AC_DEFINE(NDEBUG)
|
||||
CPPFLAGS="$CPPFLAGS -DNDEBUG"
|
||||
else
|
||||
CF_ADD_ADAFLAGS(-gnata)
|
||||
@ -439,17 +395,17 @@ then
|
||||
fi
|
||||
|
||||
### use option --disable-leaks to suppress "permanent" leaks, for testing
|
||||
AC_DEFINE(HAVE_NC_ALLOC_H)
|
||||
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)])
|
||||
[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)])
|
||||
[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:
|
||||
@ -485,7 +441,7 @@ AC_CHECK_FUNC(gettimeofday,
|
||||
AC_DEFINE(HAVE_GETTIMEOFDAY),[
|
||||
|
||||
AC_CHECK_LIB(bsd, gettimeofday,
|
||||
AC_DEFINE(HAVE_GETTIMEOFDAY)
|
||||
AC_DEFINE(HAVE_GETTIMEOFDAY,1,[Define to 1 if we have gettimeofday])
|
||||
LIBS="$LIBS -lbsd")])dnl CLIX: bzero, select, gettimeofday
|
||||
;;
|
||||
esac
|
||||
@ -505,8 +461,6 @@ CF_LINK_DATAONLY
|
||||
### Checks for library functions.
|
||||
CF_MKSTEMP
|
||||
|
||||
AC_TYPE_SIGNAL
|
||||
|
||||
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)
|
||||
@ -514,24 +468,13 @@ if test -z "$cf_user_CFLAGS" && test "$with_no_leaks" = no ; then
|
||||
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
|
||||
|
||||
# make ADAFLAGS consistent with CFLAGS
|
||||
case "$CFLAGS" in
|
||||
*-g*)
|
||||
CF_ADD_ADAFLAGS(-g)
|
||||
;;
|
||||
esac
|
||||
case "$CFLAGS" in
|
||||
*-O*)
|
||||
CF_ADD_ADAFLAGS(-O3)
|
||||
;;
|
||||
esac
|
||||
CF_FIXUP_ADAFLAGS
|
||||
|
||||
CF_GNAT_GENERICS
|
||||
CF_GNAT_SIGINT
|
||||
@ -556,8 +499,10 @@ fi
|
||||
################################################################################
|
||||
|
||||
# not needed
|
||||
TINFO_ARGS2=
|
||||
AC_SUBST(TINFO_ARGS2)
|
||||
TINFO_LDFLAGS2=
|
||||
AC_SUBST(TINFO_LDFLAGS2)
|
||||
TINFO_LIBS=
|
||||
AC_SUBST(TINFO_LIBS)
|
||||
|
||||
### Construct the list of include-directories to be generated
|
||||
CF_INCLUDE_DIRS
|
||||
@ -586,6 +531,9 @@ if test "$DFT_LWR_MODEL" = shared ; then
|
||||
cygwin*)
|
||||
# "lib" files have ".dll.a" suffix, "cyg" files have ".dll"
|
||||
;;
|
||||
msys*)
|
||||
# "lib" files have ".dll.a" suffix, "msys-" files have ".dll"
|
||||
;;
|
||||
esac
|
||||
fi
|
||||
|
||||
@ -594,7 +542,7 @@ fi
|
||||
|
||||
SUB_MAKEFILES="gen/adacurses${DFT_ARG_SUFFIX}-config:gen/adacurses-config.in"
|
||||
|
||||
AC_DEFINE_UNQUOTED(NCURSES_PATHSEP,'$PATH_SEPARATOR')
|
||||
AC_DEFINE_UNQUOTED(NCURSES_PATHSEP,'$PATH_SEPARATOR',[Define to override ':' as the library path-separator])
|
||||
|
||||
### Now that we're done running tests, add the compiler-warnings, if any
|
||||
CF_ADD_CFLAGS($EXTRA_CFLAGS)
|
||||
@ -656,8 +604,8 @@ fi
|
||||
AWK="$AWK"
|
||||
DFT_ARG_SUFFIX="$DFT_ARG_SUFFIX"
|
||||
DFT_LWR_MODEL="$DFT_LWR_MODEL"
|
||||
ECHO_LINK="$ECHO_LINK"
|
||||
LIB_NAME="$LIB_NAME"
|
||||
LIB_PREFIX="$LIB_PREFIX"
|
||||
LIB_SUFFIX="$LIB_SUFFIX"
|
||||
LN_S="$LN_S"
|
||||
NCURSES_MAJOR="$NCURSES_MAJOR"
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
# $Id: Makefile.in,v 1.2 2011/03/26 19:26:17 tom Exp $
|
||||
# $Id: Makefile.in,v 1.3 2012/08/11 21:31:56 tom Exp $
|
||||
##############################################################################
|
||||
# Copyright (c) 2011 Free Software Foundation, Inc. #
|
||||
# #
|
||||
@ -38,6 +38,7 @@ DESTDIR = @DESTDIR@
|
||||
srcdir = @srcdir@
|
||||
prefix = @prefix@
|
||||
exec_prefix = @exec_prefix@
|
||||
datarootdir = @datarootdir@
|
||||
datadir = @datadir@
|
||||
mandir = @mandir@
|
||||
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
##############################################################################
|
||||
# Copyright (c) 1998-2010,2011 Free Software Foundation, Inc. #
|
||||
# Copyright (c) 1998-2011,2012 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"), #
|
||||
@ -28,7 +28,7 @@
|
||||
#
|
||||
# Author: Juergen Pfeifer, 1996
|
||||
#
|
||||
# $Id: Makefile.in,v 1.74 2011/03/26 23:36:30 tom Exp $
|
||||
# $Id: Makefile.in,v 1.77 2012/10/06 18:58:48 tom Exp $
|
||||
#
|
||||
.SUFFIXES:
|
||||
|
||||
@ -36,7 +36,7 @@ SHELL = /bin/sh
|
||||
VPATH = @srcdir@
|
||||
THIS = Makefile
|
||||
|
||||
x = @PROG_EXT@
|
||||
x = @EXEEXT@
|
||||
|
||||
top_srcdir = @top_srcdir@
|
||||
DESTDIR = @DESTDIR@
|
||||
@ -73,7 +73,7 @@ ABI_VERSION = @cf_cv_abi_version@
|
||||
LOCAL_LIBDIR = @top_builddir@/lib
|
||||
|
||||
LINK = $(HOST_CC)
|
||||
LD_FLAGS = @LD_MODEL@ $(LOCAL_LIBS) @LDFLAGS@ @LIBS@ @LOCAL_LDFLAGS2@ $(LDFLAGS) @TINFO_ARGS2@
|
||||
LD_FLAGS = @LD_MODEL@ $(LOCAL_LIBS) @TINFO_LDFLAGS2@ @LDFLAGS@ @LIBS@ @LOCAL_LDFLAGS2@ $(LDFLAGS) @TINFO_LIBS@
|
||||
|
||||
RANLIB = @RANLIB@
|
||||
|
||||
@ -179,7 +179,7 @@ uninstall.libs ::
|
||||
-rm -f $(DESTDIR)$(bindir)/$(ADACURSES_CONFIG)
|
||||
|
||||
$(PROG_GENERATE): gen.o
|
||||
@ECHO_LINK@ $(LINK) $(CFLAGS_NORMAL) gen.o $(LD_FLAGS) -o $@
|
||||
@ECHO_LD@ $(LINK) $(CFLAGS_NORMAL) gen.o $(LD_FLAGS) -o $@
|
||||
|
||||
gen.o: $(srcdir)/gen.c
|
||||
$(HOST_CC) $(CFLAGS_NORMAL) -c -o $@ $(srcdir)/gen.c
|
||||
@ -411,7 +411,7 @@ adahtml:
|
||||
@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 .
|
||||
@USE_GNAT_PROJECTS@ ln -sf ../static-ali/*.ali .
|
||||
@echo "Filtering generated files"
|
||||
@for f in $(GEN_SRC); do \
|
||||
h=`basename $$f` ;\
|
||||
|
||||
224
Ada95/gen/gen.c
224
Ada95/gen/gen.c
@ -1,5 +1,5 @@
|
||||
/****************************************************************************
|
||||
* Copyright (c) 1998,2010,2011 Free Software Foundation, Inc. *
|
||||
* Copyright (c) 1998-2013,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 *
|
||||
@ -32,7 +32,7 @@
|
||||
|
||||
/*
|
||||
Version Control
|
||||
$Id: gen.c,v 1.59 2011/03/31 23:50:24 tom Exp $
|
||||
$Id: gen.c,v 1.64 2014/02/01 19:52:47 tom Exp $
|
||||
--------------------------------------------------------------------------*/
|
||||
/*
|
||||
This program generates various record structures and constants from the
|
||||
@ -57,9 +57,14 @@
|
||||
#include <menu.h>
|
||||
#include <form.h>
|
||||
|
||||
#define UChar(c) ((unsigned char)(c))
|
||||
#undef UCHAR
|
||||
#undef UINT
|
||||
#define UChar(c) ((UCHAR)(c))
|
||||
#define RES_NAME "Reserved"
|
||||
|
||||
typedef unsigned char UCHAR;
|
||||
typedef unsigned int UINT;
|
||||
|
||||
static const char *model = "";
|
||||
static int little_endian = 0;
|
||||
|
||||
@ -70,45 +75,43 @@ typedef struct
|
||||
}
|
||||
name_attribute_pair;
|
||||
|
||||
static int
|
||||
find_pos(char *s, unsigned len, int *low, int *high)
|
||||
static UCHAR
|
||||
bit_is_set(const UCHAR * const data,
|
||||
const UINT offset)
|
||||
{
|
||||
unsigned int i, j;
|
||||
int l = 0;
|
||||
const UCHAR byte = data[offset >> 3];
|
||||
UINT bit;
|
||||
|
||||
*high = -1;
|
||||
*low = (int)(8 * len);
|
||||
if (little_endian)
|
||||
bit = offset; /* offset */
|
||||
else /* or */
|
||||
bit = ~offset; /* 7 - offset */
|
||||
bit &= 7; /* modulo 8 */
|
||||
return byte & (UCHAR) (1 << bit);
|
||||
}
|
||||
|
||||
for (i = 0; i < len; i++, s++)
|
||||
/* 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++)
|
||||
{
|
||||
if (*s)
|
||||
{
|
||||
for (j = 0; j < 8 * sizeof(char); j++)
|
||||
|
||||
{
|
||||
if (((little_endian && ((*s) & 0x01)) ||
|
||||
(!little_endian && ((*s) & 0x80))))
|
||||
{
|
||||
if (l > *high)
|
||||
*high = l;
|
||||
if (l < *low)
|
||||
*low = l;
|
||||
}
|
||||
l++;
|
||||
if (little_endian)
|
||||
{
|
||||
*s >>= 1;
|
||||
}
|
||||
else
|
||||
{
|
||||
*s = (char)(*s << 1);
|
||||
}
|
||||
}
|
||||
}
|
||||
else
|
||||
l += 8;
|
||||
}
|
||||
return (*high >= 0 && (*low <= *high)) ? *low : -1;
|
||||
*low = offset;
|
||||
|
||||
return -1;
|
||||
}
|
||||
|
||||
/*
|
||||
@ -116,63 +119,38 @@ find_pos(char *s, unsigned len, int *low, int *high)
|
||||
* record type defined in the binding.
|
||||
* We are only dealing with record types which are of 32 or 16
|
||||
* bit size, i.e. they fit into an (u)int or a (u)short.
|
||||
* Any pair with a 0 attr field will be ignored.
|
||||
*/
|
||||
static void
|
||||
gen_reps(
|
||||
const name_attribute_pair * nap, /* array of name_attribute_pair records */
|
||||
const char *name, /* name of the represented record type */
|
||||
int len, /* size of the record in bytes */
|
||||
int bias)
|
||||
const UINT len, /* size of the record in bytes */
|
||||
const UINT bias)
|
||||
{
|
||||
const char *unused_name = "Unused";
|
||||
int long_bits = (8 * (int)sizeof(unsigned long));
|
||||
int len_bits = (8 * len);
|
||||
int i, j, n, l, cnt = 0, low, high;
|
||||
const UINT len_bits = len << 3;
|
||||
int i, l;
|
||||
UINT low, high;
|
||||
int width = strlen(RES_NAME) + 3;
|
||||
unsigned long a;
|
||||
unsigned long mask = 0;
|
||||
|
||||
assert(nap != NULL);
|
||||
|
||||
for (i = 0; nap[i].name != (char *)0; i++)
|
||||
{
|
||||
cnt++;
|
||||
l = (int)strlen(nap[i].name);
|
||||
if (l > width)
|
||||
width = l;
|
||||
}
|
||||
if (nap[i].attr)
|
||||
{
|
||||
l = (int)strlen(nap[i].name);
|
||||
if (l > width)
|
||||
width = l;
|
||||
}
|
||||
assert(width > 0);
|
||||
|
||||
printf(" type %s is\n", name);
|
||||
printf(" record\n");
|
||||
for (i = 0; nap[i].name != (char *)0; i++)
|
||||
{
|
||||
mask |= nap[i].attr;
|
||||
printf(" %-*s : Boolean;\n", width, nap[i].name);
|
||||
}
|
||||
|
||||
/*
|
||||
* Compute a mask for the unused bits in this target.
|
||||
*/
|
||||
mask = ~mask;
|
||||
/*
|
||||
* Bits in the biased area are unused by the target.
|
||||
*/
|
||||
for (j = 0; j < bias; ++j)
|
||||
{
|
||||
mask &= (unsigned long)(~(1L << j));
|
||||
}
|
||||
/*
|
||||
* Bits past the target's size are really unused.
|
||||
*/
|
||||
for (j = len_bits + bias; j < long_bits; ++j)
|
||||
{
|
||||
mask &= (unsigned long)(~(1L << j));
|
||||
}
|
||||
if (mask != 0)
|
||||
{
|
||||
printf(" %-*s : Boolean;\n", width, unused_name);
|
||||
}
|
||||
if (nap[i].attr)
|
||||
{
|
||||
printf(" %-*s : Boolean;\n", width, nap[i].name);
|
||||
}
|
||||
printf(" end record;\n");
|
||||
printf(" pragma Convention (C, %s);\n\n", name);
|
||||
|
||||
@ -180,24 +158,16 @@ gen_reps(
|
||||
printf(" record\n");
|
||||
|
||||
for (i = 0; nap[i].name != (char *)0; i++)
|
||||
{
|
||||
a = nap[i].attr;
|
||||
l = find_pos((char *)&a, sizeof(a), &low, &high);
|
||||
if (l >= 0)
|
||||
printf(" %-*s at 0 range %2d .. %2d;\n", width, nap[i].name,
|
||||
low - bias, high - bias);
|
||||
}
|
||||
if (mask != 0)
|
||||
{
|
||||
l = find_pos((char *)&mask, sizeof(mask), &low, &high);
|
||||
if (l >= 0)
|
||||
printf(" %-*s at 0 range %2d .. %2d;\n", width, unused_name,
|
||||
low - bias, high - bias);
|
||||
}
|
||||
i = 1;
|
||||
n = cnt;
|
||||
if (nap[i].attr)
|
||||
{
|
||||
if (find_pos((const UCHAR *)(&(nap[i].attr)) + bias, len, &low, &high))
|
||||
printf(" %-*s at 0 range %2d .. %2d;\n", width, nap[i].name,
|
||||
low, high);
|
||||
}
|
||||
printf(" end record;\n");
|
||||
printf(" pragma Warnings (Off);");
|
||||
printf(" for %s'Size use %d;\n", name, len_bits);
|
||||
printf(" pragma Warnings (On);\n");
|
||||
printf(" -- Please note: this rep. clause is generated and may be\n");
|
||||
printf(" -- different on your system.");
|
||||
}
|
||||
@ -207,10 +177,9 @@ chtype_rep(const char *name, attr_t mask)
|
||||
{
|
||||
attr_t x = (attr_t)-1;
|
||||
attr_t t = x & mask;
|
||||
int low, high;
|
||||
int l = find_pos((char *)&t, sizeof(t), &low, &high);
|
||||
UINT low, high;
|
||||
|
||||
if (l >= 0)
|
||||
if (find_pos((const UCHAR *)(&t), sizeof(t), &low, &high))
|
||||
printf(" %-5s at 0 range %2d .. %2d;\n", name, low, high);
|
||||
}
|
||||
|
||||
@ -231,10 +200,9 @@ gen_chtype_rep(const char *name)
|
||||
static void
|
||||
mrep_rep(const char *name, void *rec)
|
||||
{
|
||||
int low, high;
|
||||
int l = find_pos((char *)rec, sizeof(MEVENT), &low, &high);
|
||||
UINT low, high;
|
||||
|
||||
if (l >= 0)
|
||||
if (find_pos((const UCHAR *)rec, sizeof(MEVENT), &low, &high))
|
||||
printf(" %-7s at 0 range %3d .. %3d;\n", name, low, high);
|
||||
}
|
||||
|
||||
@ -278,54 +246,26 @@ gen_attr_set(const char *name)
|
||||
* 1999-2000), the ifdef's also were needed since the proposed bit-layout
|
||||
* for wide characters allocated 16-bits for A_CHARTEXT, leaving too few
|
||||
* bits for a few of the A_xxx symbols.
|
||||
* Some preprocessors are not able to test the values because they
|
||||
* now (2014) contain an explicit cast to chtype, so we avoid ifdef.
|
||||
*/
|
||||
static const name_attribute_pair nap[] =
|
||||
{
|
||||
#if A_STANDOUT
|
||||
{"Stand_Out", A_STANDOUT},
|
||||
#endif
|
||||
#if A_UNDERLINE
|
||||
{"Under_Line", A_UNDERLINE},
|
||||
#endif
|
||||
#if A_REVERSE
|
||||
{"Reverse_Video", A_REVERSE},
|
||||
#endif
|
||||
#if A_BLINK
|
||||
{"Blink", A_BLINK},
|
||||
#endif
|
||||
#if A_DIM
|
||||
{"Dim_Character", A_DIM},
|
||||
#endif
|
||||
#if A_BOLD
|
||||
{"Bold_Character", A_BOLD},
|
||||
#endif
|
||||
#if A_ALTCHARSET
|
||||
{"Alternate_Character_Set", A_ALTCHARSET},
|
||||
#endif
|
||||
#if A_INVIS
|
||||
{"Invisible_Character", A_INVIS},
|
||||
#endif
|
||||
#if A_PROTECT
|
||||
{"Protected_Character", A_PROTECT},
|
||||
#endif
|
||||
#if A_HORIZONTAL
|
||||
{"Horizontal", A_HORIZONTAL},
|
||||
#endif
|
||||
#if A_LEFT
|
||||
{"Left", A_LEFT},
|
||||
#endif
|
||||
#if A_LOW
|
||||
{"Low", A_LOW},
|
||||
#endif
|
||||
#if A_RIGHT
|
||||
{"Right", A_RIGHT},
|
||||
#endif
|
||||
#if A_TOP
|
||||
{"Top", A_TOP},
|
||||
#endif
|
||||
#if A_VERTICAL
|
||||
{"Vertical", A_VERTICAL},
|
||||
#endif
|
||||
{(char *)0, 0}
|
||||
};
|
||||
chtype attr = A_ATTRIBUTES & ~A_COLOR;
|
||||
@ -348,7 +288,9 @@ gen_attr_set(const char *name)
|
||||
}
|
||||
attr = attr >> 1;
|
||||
}
|
||||
gen_reps(nap, name, (len + 7) / 8, little_endian ? start : 0);
|
||||
gen_reps(nap, name,
|
||||
(UINT) ((len + 7) / 8),
|
||||
(UINT) (little_endian ? start >> 3 : 0));
|
||||
}
|
||||
|
||||
static void
|
||||
@ -371,7 +313,9 @@ gen_trace(const char *name)
|
||||
{"Attributes_And_Colors", TRACE_ATTRS},
|
||||
{(char *)0, 0}
|
||||
};
|
||||
gen_reps(nap, name, sizeof(int), 0);
|
||||
|
||||
gen_reps(nap, name, sizeof(UINT),
|
||||
little_endian ? 0 : sizeof(nap[0].attr) - sizeof(UINT));
|
||||
}
|
||||
|
||||
static void
|
||||
@ -399,7 +343,9 @@ gen_menu_opt_rep(const char *name)
|
||||
#endif
|
||||
{(char *)0, 0}
|
||||
};
|
||||
gen_reps(nap, name, sizeof(int), 0);
|
||||
|
||||
gen_reps(nap, name, sizeof(Menu_Options),
|
||||
little_endian ? 0 : sizeof(nap[0].attr) - sizeof(Menu_Options));
|
||||
}
|
||||
|
||||
static void
|
||||
@ -412,7 +358,9 @@ gen_item_opt_rep(const char *name)
|
||||
#endif
|
||||
{(char *)0, 0}
|
||||
};
|
||||
gen_reps(nap, name, sizeof(int), 0);
|
||||
|
||||
gen_reps(nap, name, sizeof(Item_Options),
|
||||
little_endian ? 0 : sizeof(nap[0].attr) - sizeof(Item_Options));
|
||||
}
|
||||
|
||||
static void
|
||||
@ -428,7 +376,9 @@ gen_form_opt_rep(const char *name)
|
||||
#endif
|
||||
{(char *)0, 0}
|
||||
};
|
||||
gen_reps(nap, name, sizeof(int), 0);
|
||||
|
||||
gen_reps(nap, name, sizeof(Form_Options),
|
||||
little_endian ? 0 : sizeof(nap[0].attr) - sizeof(Form_Options));
|
||||
}
|
||||
|
||||
/*
|
||||
@ -471,7 +421,9 @@ gen_field_opt_rep(const char *name)
|
||||
#endif
|
||||
{(char *)0, 0}
|
||||
};
|
||||
gen_reps(nap, name, sizeof(int), 0);
|
||||
|
||||
gen_reps(nap, name, sizeof(Field_Options),
|
||||
little_endian ? 0 : sizeof(nap[0].attr) - sizeof(Field_Options));
|
||||
}
|
||||
|
||||
/*
|
||||
|
||||
@ -38,7 +38,7 @@ include(M4MACRO)dnl
|
||||
------------------------------------------------------------------------------
|
||||
-- Author: Juergen Pfeifer, 1996
|
||||
-- Version Control:
|
||||
-- $Revision: 1.16 $
|
||||
-- $Revision: 1.17 $
|
||||
-- Binding Version 01.00
|
||||
------------------------------------------------------------------------------
|
||||
with Interfaces.C;
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
# $Id: ncurses_defs,v 1.41 2008/11/16 00:19:59 juergen Exp $
|
||||
# $Id: ncurses_defs,v 1.44 2013/04/27 19:50:17 tom Exp $
|
||||
##############################################################################
|
||||
# Copyright (c) 2000-2007,2008 Free Software Foundation, Inc. #
|
||||
# Copyright (c) 2000-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"), #
|
||||
@ -33,7 +33,6 @@
|
||||
|
||||
BROKEN_LINKER
|
||||
BSD_TPUTS
|
||||
CC_HAS_PROTOS
|
||||
CPP_HAS_PARAM_INIT
|
||||
CURSES_ACS_ARRAY acs_map
|
||||
CURSES_WACS_ARRAY _nc_wacs
|
||||
@ -120,7 +119,6 @@ HAVE_SIGVEC
|
||||
HAVE_SIZECHANGE
|
||||
HAVE_SLK_COLOR
|
||||
HAVE_SLK_INIT 1
|
||||
HAVE_STRDUP
|
||||
HAVE_STRSTR
|
||||
HAVE_SYMLINK
|
||||
HAVE_SYS_BSDTYPES_H
|
||||
@ -174,7 +172,6 @@ NCURSES_PATHSEP ':'
|
||||
NEED_PTEM_H
|
||||
NO_LEAKS
|
||||
PURE_TERMINFO
|
||||
RETSIGTYPE
|
||||
STDC_HEADERS
|
||||
SVR4_ACTION
|
||||
SVR4_TERMIO
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
#!/bin/sh
|
||||
# $Id: make-tar.sh,v 1.12 2011/03/26 19:07:38 tom Exp $
|
||||
# $Id: make-tar.sh,v 1.14 2013/10/26 23:10:24 tom Exp $
|
||||
##############################################################################
|
||||
# Copyright (c) 2010,2011 Free Software Foundation, Inc. #
|
||||
# Copyright (c) 2010-2011,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"), #
|
||||
@ -66,11 +66,11 @@ edit_specfile() {
|
||||
make_changelog() {
|
||||
test -f $1 && chmod u+w $1
|
||||
cat >$1 <<EOF
|
||||
`echo $PKG_NAME|tr '[A-Z]' '[a-z]'` ($NCURSES_PATCH) unstable; urgency=low
|
||||
`echo $PKG_NAME|tr '[A-Z]' '[a-z]'` ($NCURSES_MAJOR.$NCURSES_MINOR-$NCURSES_PATCH) unstable; urgency=low
|
||||
|
||||
* snapshot of ncurses subpackage for $PKG_NAME.
|
||||
|
||||
-- `head -1 $HOME/.signature` `date -R`
|
||||
-- `head -n 1 $HOME/.signature` `date -R`
|
||||
EOF
|
||||
}
|
||||
|
||||
@ -108,7 +108,10 @@ for spec in $BUILD/$ROOTNAME/package/*.spec
|
||||
do
|
||||
edit_specfile $spec
|
||||
done
|
||||
make_changelog $BUILD/$ROOTNAME/package/debian/changelog
|
||||
for spec in $BUILD/$ROOTNAME/package/debian*
|
||||
do
|
||||
make_changelog $spec/changelog
|
||||
done
|
||||
|
||||
cp -p ../man/MKada_config.in $BUILD/$ROOTNAME/doc/
|
||||
if test -z "$NO_HTML_DOCS"
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
##############################################################################
|
||||
# Copyright (c) 1998-2010,2011 Free Software Foundation, Inc. #
|
||||
# Copyright (c) 1998-2011,2012 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"), #
|
||||
@ -28,7 +28,7 @@
|
||||
#
|
||||
# Author: Juergen Pfeifer, 1996
|
||||
#
|
||||
# $Id: Makefile.in,v 1.46 2011/03/28 23:45:08 tom Exp $
|
||||
# $Id: Makefile.in,v 1.48 2012/10/06 19:00:42 tom Exp $
|
||||
#
|
||||
.SUFFIXES:
|
||||
|
||||
@ -36,12 +36,13 @@ SHELL = /bin/sh
|
||||
VPATH = @srcdir@
|
||||
THIS = Makefile
|
||||
|
||||
x = @PROG_EXT@
|
||||
x = @EXEEXT@
|
||||
|
||||
srcdir = @srcdir@
|
||||
prefix = @prefix@
|
||||
exec_prefix = @exec_prefix@
|
||||
bindir = @bindir@
|
||||
datarootdir = @datarootdir@
|
||||
datadir = @datadir@
|
||||
libdir = @libdir@
|
||||
includedir = @includedir@
|
||||
|
||||
@ -28,7 +28,7 @@
|
||||
#
|
||||
# Author: Juergen Pfeifer, 1996
|
||||
#
|
||||
# $Id: Makefile.in,v 1.60 2011/03/31 09:46:16 tom Exp $
|
||||
# $Id: Makefile.in,v 1.62 2011/04/30 22:24:45 tom Exp $
|
||||
#
|
||||
.SUFFIXES:
|
||||
|
||||
@ -218,7 +218,9 @@ $(ABASE)-trace.adb : $(srcdir)/$(ABASE)-trace.adb_p
|
||||
$(ADAPREP) -DADA_TRACE=@ADA_TRACE@ -DPRAGMA_UNREF=@PRAGMA_UNREF@ $(srcdir)/$(ABASE)-trace.adb_p $@
|
||||
|
||||
###############################################################################
|
||||
C_OBJS = c_varargs_to_ada.o ncurses_compat.o
|
||||
# Use these definitions when building a shared library.
|
||||
SHARED_C_OBJS = c_varargs_to_ada.o ncurses_compat.o
|
||||
SHARED_OBJS = $(SHARED_C_OBJS) @USE_OLD_MAKERULES@$(LIBOBJS) @cf_generic_objects@
|
||||
|
||||
c_varargs_to_ada.o : $(srcdir)/c_varargs_to_ada.c
|
||||
$(CC) $(CFLAGS_DEFAULT) -c -o $@ $(srcdir)/c_varargs_to_ada.c
|
||||
@ -227,13 +229,22 @@ ncurses_compat.o : $(srcdir)/ncurses_compat.c
|
||||
$(CC) $(CFLAGS_DEFAULT) -c -o $@ $(srcdir)/ncurses_compat.c
|
||||
|
||||
###############################################################################
|
||||
# Use these definitions when building a static library.
|
||||
STATIC_C_OBJS = static_c_varargs_to_ada.o static_ncurses_compat.o
|
||||
STATIC_OBJS = $(STATIC_C_OBJS) @USE_OLD_MAKERULES@$(LIBOBJS) @cf_generic_objects@
|
||||
|
||||
MIXED_OBJS = $(C_OBJS) @USE_OLD_MAKERULES@$(LIBOBJS) @cf_generic_objects@
|
||||
static_c_varargs_to_ada.o : $(srcdir)/c_varargs_to_ada.c
|
||||
$(CC) $(CFLAGS_NORMAL) -c -o $@ $(srcdir)/c_varargs_to_ada.c
|
||||
|
||||
static_ncurses_compat.o : $(srcdir)/ncurses_compat.c
|
||||
$(CC) $(CFLAGS_NORMAL) -c -o $@ $(srcdir)/ncurses_compat.c
|
||||
|
||||
###############################################################################
|
||||
|
||||
@USE_OLD_MAKERULES@$(BUILD_DIR_LIB)/$(STATIC_LIBNAME) :: \
|
||||
@USE_OLD_MAKERULES@ $(BUILD_DIR_LIB) \
|
||||
@USE_OLD_MAKERULES@ $(MIXED_OBJS)
|
||||
@USE_OLD_MAKERULES@ $(AR) $(ARFLAGS) $@ $(MIXED_OBJS)
|
||||
@USE_OLD_MAKERULES@ $(STATIC_OBJS)
|
||||
@USE_OLD_MAKERULES@ $(AR) $(ARFLAGS) $@ $(STATIC_OBJS)
|
||||
|
||||
$(BUILD_DIR)/static-ali : ; mkdir -p $@
|
||||
$(BUILD_DIR)/static-obj : ; mkdir -p $@
|
||||
@ -245,10 +256,10 @@ STATIC_DIRS = \
|
||||
|
||||
@USE_GNAT_PROJECTS@$(BUILD_DIR_LIB)/$(STATIC_LIBNAME) :: \
|
||||
@USE_GNAT_PROJECTS@ $(ABASE)-trace.adb \
|
||||
@USE_GNAT_PROJECTS@ $(C_OBJS) \
|
||||
@USE_GNAT_PROJECTS@ $(STATIC_C_OBJS) \
|
||||
@USE_GNAT_PROJECTS@ $(STATIC_DIRS)
|
||||
@USE_GNAT_PROJECTS@ $(ADAMAKE) $(ADAMAKEFLAGS) -XLIB_KIND=static
|
||||
@USE_GNAT_PROJECTS@ $(AR) $(ARFLAGS) $@ $(C_OBJS)
|
||||
@USE_GNAT_PROJECTS@ $(AR) $(ARFLAGS) $@ $(STATIC_C_OBJS)
|
||||
@USE_GNAT_PROJECTS@
|
||||
@USE_GNAT_LIBRARIES@install \
|
||||
@USE_GNAT_LIBRARIES@install.libs :: \
|
||||
@ -274,8 +285,11 @@ SHARED_DIRS = \
|
||||
$(BUILD_DIR)/dynamic-obj
|
||||
|
||||
@MAKE_ADA_SHAREDLIB@all :: $(BUILD_DIR_LIB)/$(SHARED_LIBNAME)
|
||||
@MAKE_ADA_SHAREDLIB@$(BUILD_DIR_LIB)/$(SHARED_LIBNAME) :: $(ABASE)-trace.adb $(SHARED_DIRS)
|
||||
@MAKE_ADA_SHAREDLIB@ cp $(MIXED_OBJS) $(BUILD_DIR)/dynamic-obj/
|
||||
@MAKE_ADA_SHAREDLIB@$(BUILD_DIR_LIB)/$(SHARED_LIBNAME) :: \
|
||||
@MAKE_ADA_SHAREDLIB@ $(ABASE)-trace.adb \
|
||||
@MAKE_ADA_SHAREDLIB@ $(SHARED_DIRS) \
|
||||
@MAKE_ADA_SHAREDLIB@ $(SHARED_OBJS)
|
||||
@MAKE_ADA_SHAREDLIB@ cp $(SHARED_OBJS) $(BUILD_DIR)/dynamic-obj/
|
||||
@MAKE_ADA_SHAREDLIB@ $(ADAMAKE) $(ADAMAKEFLAGS) -XLIB_KIND=dynamic
|
||||
|
||||
install \
|
||||
|
||||
28
COPYING
Normal file
28
COPYING
Normal file
@ -0,0 +1,28 @@
|
||||
Copyright (c) 1998-2013,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.
|
||||
|
||||
-- vile:txtmode fc=72
|
||||
-- $Id: COPYING,v 1.2 2014/01/18 23:59:29 tom Exp $
|
||||
104
INSTALL
104
INSTALL
@ -1,5 +1,5 @@
|
||||
-------------------------------------------------------------------------------
|
||||
-- Copyright (c) 1998-2010,2011 Free Software Foundation, Inc. --
|
||||
-- Copyright (c) 1998-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 --
|
||||
@ -25,7 +25,7 @@
|
||||
-- sale, use or other dealings in this Software without prior written --
|
||||
-- authorization. --
|
||||
-------------------------------------------------------------------------------
|
||||
-- $Id: INSTALL,v 1.155 2011/03/31 08:27:24 tom Exp $
|
||||
-- $Id: INSTALL,v 1.168 2013/08/03 23:15:23 tom Exp $
|
||||
---------------------------------------------------------------------
|
||||
How to install Ncurses/Terminfo on your system
|
||||
---------------------------------------------------------------------
|
||||
@ -315,6 +315,10 @@ SUMMARY OF CONFIGURE OPTIONS:
|
||||
programs are useful in this configuration, e.g., reset and tput versus
|
||||
infocmp and tic.
|
||||
|
||||
--disable-db-install
|
||||
Do not install the terminal database. This is used to omit features
|
||||
for packages, as done with --without-progs.
|
||||
|
||||
--disable-ext-funcs
|
||||
Disable function-extensions. Configure ncurses without the functions
|
||||
that are not specified by XSI. See ncurses/modules for the exact
|
||||
@ -407,13 +411,14 @@ SUMMARY OF CONFIGURE OPTIONS:
|
||||
|
||||
--disable-tic-depends
|
||||
When building shared libraries, normally the tic library is linked to
|
||||
depend upon the ncurses library (and in turn, on the term-library if
|
||||
the --with-termlib option was given). The tic- and term-libraries
|
||||
ABI does not depend on the --enable-widec option. Some packagers have
|
||||
used this to reduce the number of library files which are packaged
|
||||
by using only one copy of those libraries. To make this work properly,
|
||||
depend upon the ncurses library (or equivalently, on the tinfo-library
|
||||
if the --with-termlib option was given). The tic- and tinfo-library
|
||||
ABIs do not depend on the --enable-widec option. Some packagers have
|
||||
used this to reduce the number of library files which are packaged by
|
||||
using only one copy of those libraries. To make this work properly,
|
||||
the tic library must be built without an explicit dependency on the
|
||||
ncurses (or ncursesw) library. Use this configure option to do that.
|
||||
underlying library (ncurses vs ncursesw, tinfo vs tinfow). Use this
|
||||
configure option to do that.
|
||||
For example
|
||||
configure --with-ticlib --with-shared --disable-tic-depends
|
||||
|
||||
@ -555,6 +560,9 @@ SUMMARY OF CONFIGURE OPTIONS:
|
||||
library by reducing global and static variables. This option is also
|
||||
set if --with-pthread is used.
|
||||
|
||||
Enabling this option adds a "t" to the library names, except for the
|
||||
special case when --enable-weak-symbols is also used.
|
||||
|
||||
--enable-rpath
|
||||
Use rpath option when generating shared libraries, and (with some
|
||||
restrictions) when linking the corresponding programs. This originally
|
||||
@ -595,6 +603,14 @@ SUMMARY OF CONFIGURE OPTIONS:
|
||||
reducing the need for juggling the global SP value with set_term() and
|
||||
delscreen().
|
||||
|
||||
--enable-string-hacks
|
||||
Controls whether strlcat and strlcpy may be used. The same issue
|
||||
applies to OpenBSD's warnings about snprintf, noting that this function
|
||||
is weakly standardized.
|
||||
|
||||
Aside from stifling these warnings, there is no functional improvement
|
||||
in ncurses.
|
||||
|
||||
--enable-symlinks
|
||||
If your system supports symbolic links, make tic use symbolic links
|
||||
rather than hard links to save diskspace when writing aliases in the
|
||||
@ -616,6 +632,12 @@ SUMMARY OF CONFIGURE OPTIONS:
|
||||
match is found in the terminfo database. See also the --enable-getcap
|
||||
and --enable-getcap-cache options.
|
||||
|
||||
Termcap support requires run-time parsing rather than loading
|
||||
predigested data. If you have specified --with-ticlib, then you
|
||||
cannot have termcap support since run-time parsing is done in the
|
||||
tic library, which is intentionally not part of normal linkage
|
||||
dependencies.
|
||||
|
||||
--enable-warnings
|
||||
Turn on GCC compiler warnings. There should be only a few.
|
||||
|
||||
@ -740,6 +762,12 @@ SUMMARY OF CONFIGURE OPTIONS:
|
||||
executables, e.g., by setting "--with-chtype=long" (the configure
|
||||
script supplies "unsigned").
|
||||
|
||||
--with-cxx-shared
|
||||
When --with-shared is set, build libncurses++ as a shared library.
|
||||
This implicitly relies upon building with gcc/g++, since other
|
||||
compiler suites may have differences in the way shared libraries are
|
||||
built. libtool by the way has similar limitations.
|
||||
|
||||
--with-database=XXX
|
||||
Specify the terminfo source file to install. Usually you will wish
|
||||
to install ncurses' default (misc/terminfo.src). Certain systems
|
||||
@ -824,7 +852,17 @@ SUMMARY OF CONFIGURE OPTIONS:
|
||||
NOTE: a few systems build shared libraries with fixed pathnames; this
|
||||
option probably will not work for those configurations.
|
||||
|
||||
--with-libtool[=XXX]
|
||||
--with-lib-prefix=XXX
|
||||
OS/2 EMX used a different naming convention from most Unix-like
|
||||
platforms. It required that the "lib" part of a library name was
|
||||
omitted. Newer EMX as part of eComStation does not follow that
|
||||
convention. Use this option to override the configure script's
|
||||
assumptions about the library-prefix. If this option is omitted, it
|
||||
uses the original OS/2 EMX convention for that platform. Use
|
||||
"--with-lib-prefix=lib" for the newer EMX in eComStation. Use
|
||||
"--without-lib-prefix" to suppress it for other odd platforms.
|
||||
|
||||
--with-libtool[=XXX]
|
||||
Generate libraries with libtool. If this option is selected, then it
|
||||
overrides all other library model specifications. Note that libtool
|
||||
must already be installed, uses makefile rules dependent on GNU make,
|
||||
@ -904,6 +942,10 @@ SUMMARY OF CONFIGURE OPTIONS:
|
||||
--with-pkg-config=[DIR]
|
||||
Check for pkg-config, optionally specifying its path.
|
||||
|
||||
--with-pkg-config-libdir=[DIR]
|
||||
If pkg-config was found, override the automatic check for its library
|
||||
path.
|
||||
|
||||
--with-profile
|
||||
Generate profile-libraries These are named by adding "_p" to the root,
|
||||
e.g., libncurses_p.a
|
||||
@ -996,10 +1038,27 @@ SUMMARY OF CONFIGURE OPTIONS:
|
||||
library dependencies for tic and other programs built with the tic
|
||||
library.
|
||||
|
||||
--with-tparm-arg[=XXX]
|
||||
Override the type used for tparm() arguments, which normally is a
|
||||
"long". However the function must assume that its arguments can hold a
|
||||
pointer to char's which is not always workable for 64-bit platforms. A
|
||||
better choice would be intptr_t, which was not available at the time
|
||||
tparm's interface was defined.
|
||||
|
||||
If the option is not given, this defaults to "long".
|
||||
|
||||
--with-trace
|
||||
Configure the trace() function as part of the all models of the ncurses
|
||||
library. Normally it is part of the debug (libncurses_g) library only.
|
||||
|
||||
--with-xterm-kbs=XXX
|
||||
Configure xterm's terminfo entries to use either BS (^H, i.e., ASCII
|
||||
backspace) or DEL (^?, or 127). XXX can be BS (or bs, 8) or DEL
|
||||
(or del, 127).
|
||||
|
||||
During installation, the makefile and scripts modifies the "xterm+kbs"
|
||||
terminfo entry to use this setting.
|
||||
|
||||
--with-valgrind
|
||||
For testing, compile with debug option.
|
||||
This also sets the --disable-leaks option.
|
||||
@ -1024,6 +1083,8 @@ SUMMARY OF CONFIGURE OPTIONS:
|
||||
install as "ncurses.h" and modify the installed headers and manpages
|
||||
accordingly.
|
||||
|
||||
Likewise, do not install an alias "curses" for the ncurses manpage.
|
||||
|
||||
--without-cxx
|
||||
XSI curses declares "bool" as part of the interface. C++ also declares
|
||||
"bool". Neither specifies the size and type of booleans, but both
|
||||
@ -1726,20 +1787,37 @@ CONFIGURING FALLBACK ENTRIES:
|
||||
By default, there are no entries on the fallback list. After you have
|
||||
built the ncurses suite for the first time, you can change the list
|
||||
(the process needs infocmp(1)). To do so, use the script
|
||||
ncurses/tinfo/MKfallback.sh. A configure script option
|
||||
ncurses/tinfo/MKfallback.sh. The configure script option
|
||||
--with-fallbacks does this (it accepts a comma-separated list of the
|
||||
names you wish, and does not require a rebuild).
|
||||
|
||||
If you wanted (say) to have linux, vt100, and xterm fallbacks, you
|
||||
would use the commands
|
||||
might use the commands
|
||||
|
||||
cd ncurses;
|
||||
tinfo/MKfallback.sh linux vt100 xterm >fallback.c
|
||||
tinfo/MKfallback.sh \
|
||||
$TERMINFO \
|
||||
../misc/terminfo.src \
|
||||
`which tic` \
|
||||
linux vt100 xterm >fallback.c
|
||||
|
||||
The first three parameters of the script are normally supplied by
|
||||
the configured makefiles via the "--with-fallbacks" option. They
|
||||
are
|
||||
|
||||
1) the location of the terminfo database
|
||||
2) the source for the terminfo entries
|
||||
3) the location of the tic program, used to create a terminfo
|
||||
database.
|
||||
|
||||
Then just rebuild and reinstall the library as you would normally.
|
||||
You can restore the default empty fallback list with
|
||||
|
||||
tinfo/MKfallback.sh >fallback.c
|
||||
tinfo/MKfallback.sh \
|
||||
$TERMINFO \
|
||||
../misc/terminfo.src \
|
||||
`which tic` \
|
||||
>fallback.c
|
||||
|
||||
The overhead for an empty fallback list is one trivial stub function.
|
||||
Any non-empty fallback list is const-ed and therefore lives in sharable
|
||||
|
||||
52
MANIFEST
52
MANIFEST
@ -190,6 +190,7 @@
|
||||
./Ada95/src/terminal_interface-curses-text_io.ads
|
||||
./Ada95/src/terminal_interface-curses-trace.adb_p
|
||||
./Ada95/src/terminal_interface.ads
|
||||
./COPYING
|
||||
./INSTALL
|
||||
./MANIFEST
|
||||
./Makefile.in
|
||||
@ -545,6 +546,8 @@
|
||||
./include/nc_alloc.h
|
||||
./include/nc_mingw.h
|
||||
./include/nc_panel.h
|
||||
./include/nc_string.h
|
||||
./include/nc_termios.h
|
||||
./include/nc_tparm.h
|
||||
./include/ncurses_cfg.hin
|
||||
./include/ncurses_defs
|
||||
@ -656,6 +659,8 @@
|
||||
./man/legacy_coding.3x
|
||||
./man/make_sed.sh
|
||||
./man/man_db.renames
|
||||
./man/manhtml.aliases
|
||||
./man/manhtml.externs
|
||||
./man/manlinks.sed
|
||||
./man/menu.3x
|
||||
./man/menu_attributes.3x
|
||||
@ -764,7 +769,6 @@
|
||||
./mk-0th.awk
|
||||
./mk-1st.awk
|
||||
./mk-2nd.awk
|
||||
./mk-dlls.sh.in
|
||||
./mk-hdr.awk
|
||||
./ncurses/Makefile.in
|
||||
./ncurses/README
|
||||
@ -850,7 +854,6 @@
|
||||
./ncurses/base/lib_wattron.c
|
||||
./ncurses/base/lib_winch.c
|
||||
./ncurses/base/lib_window.c
|
||||
./ncurses/base/memmove.c
|
||||
./ncurses/base/nc_panel.c
|
||||
./ncurses/base/resizeterm.c
|
||||
./ncurses/base/safe_sprintf.c
|
||||
@ -867,6 +870,14 @@
|
||||
./ncurses/llib-lncursest
|
||||
./ncurses/llib-lncursestw
|
||||
./ncurses/llib-lncursesw
|
||||
./ncurses/llib-ltic
|
||||
./ncurses/llib-ltict
|
||||
./ncurses/llib-ltictw
|
||||
./ncurses/llib-lticw
|
||||
./ncurses/llib-ltinfo
|
||||
./ncurses/llib-ltinfot
|
||||
./ncurses/llib-ltinfotw
|
||||
./ncurses/llib-ltinfow
|
||||
./ncurses/modules
|
||||
./ncurses/tinfo/MKcaptab.awk
|
||||
./ncurses/tinfo/MKcaptab.sh
|
||||
@ -915,10 +926,10 @@
|
||||
./ncurses/tinfo/make_hash.c
|
||||
./ncurses/tinfo/make_keys.c
|
||||
./ncurses/tinfo/name_match.c
|
||||
./ncurses/tinfo/obsolete.c
|
||||
./ncurses/tinfo/parse_entry.c
|
||||
./ncurses/tinfo/read_entry.c
|
||||
./ncurses/tinfo/read_termcap.c
|
||||
./ncurses/tinfo/setbuf.c
|
||||
./ncurses/tinfo/strings.c
|
||||
./ncurses/tinfo/tinfo_driver.c
|
||||
./ncurses/tinfo/trim_sgr0.c
|
||||
@ -943,8 +954,6 @@
|
||||
./ncurses/tty/lib_tstp.c
|
||||
./ncurses/tty/lib_twait.c
|
||||
./ncurses/tty/lib_vidattr.c
|
||||
./ncurses/tty/tty_display.h
|
||||
./ncurses/tty/tty_input.h
|
||||
./ncurses/tty/tty_update.c
|
||||
./ncurses/wcwidth.h
|
||||
./ncurses/widechar/charable.c
|
||||
@ -967,9 +976,34 @@
|
||||
./ncurses/widechar/lib_vline_set.c
|
||||
./ncurses/widechar/lib_wacs.c
|
||||
./ncurses/widechar/lib_wunctrl.c
|
||||
./ncurses/widechar/widechars.c
|
||||
./ncurses/win32con/gettimeofday.c
|
||||
./ncurses/win32con/wcwidth.c
|
||||
./ncurses/win32con/win_driver.c
|
||||
./package/debian-mingw/changelog
|
||||
./package/debian-mingw/compat
|
||||
./package/debian-mingw/control
|
||||
./package/debian-mingw/copyright
|
||||
./package/debian-mingw/rules
|
||||
./package/debian-mingw/source/format
|
||||
./package/debian-mingw/watch
|
||||
./package/debian-mingw64/changelog
|
||||
./package/debian-mingw64/compat
|
||||
./package/debian-mingw64/control
|
||||
./package/debian-mingw64/copyright
|
||||
./package/debian-mingw64/rules
|
||||
./package/debian-mingw64/source/format
|
||||
./package/debian-mingw64/watch
|
||||
./package/debian/changelog
|
||||
./package/debian/compat
|
||||
./package/debian/control
|
||||
./package/debian/copyright
|
||||
./package/debian/rules
|
||||
./package/debian/source/format
|
||||
./package/debian/watch
|
||||
./package/mingw-ncurses.nsi
|
||||
./package/mingw-ncurses.spec
|
||||
./package/ncurses.spec
|
||||
./panel/Makefile.in
|
||||
./panel/headers
|
||||
./panel/llib-lpanel
|
||||
@ -1022,12 +1056,14 @@
|
||||
./test/cardfile.dat
|
||||
./test/chgat.c
|
||||
./test/clip_printw.c
|
||||
./test/color_name.h
|
||||
./test/color_set.c
|
||||
./test/configure
|
||||
./test/configure.in
|
||||
./test/demo_altkeys.c
|
||||
./test/demo_defkey.c
|
||||
./test/demo_forms.c
|
||||
./test/demo_forms.txt
|
||||
./test/demo_keyok.c
|
||||
./test/demo_menus.c
|
||||
./test/demo_panels.c
|
||||
@ -1036,6 +1072,7 @@
|
||||
./test/ditto.c
|
||||
./test/dots.c
|
||||
./test/dots_mvcur.c
|
||||
./test/dots_termcap.c
|
||||
./test/echochar.c
|
||||
./test/edit_field.c
|
||||
./test/edit_field.h
|
||||
@ -1043,6 +1080,7 @@
|
||||
./test/firework.c
|
||||
./test/firstlast.c
|
||||
./test/foldkeys.c
|
||||
./test/form_driver_w.c
|
||||
./test/gdc.6
|
||||
./test/gdc.c
|
||||
./test/hanoi.c
|
||||
@ -1073,6 +1111,7 @@
|
||||
./test/package/debian/rules
|
||||
./test/package/debian/source/format
|
||||
./test/package/debian/watch
|
||||
./test/package/mingw-ncurses-examples.spec
|
||||
./test/package/ncurses-examples.spec
|
||||
./test/programs
|
||||
./test/railroad.c
|
||||
@ -1092,12 +1131,15 @@
|
||||
./test/test_instr.c
|
||||
./test/test_inwstr.c
|
||||
./test/test_opaque.c
|
||||
./test/test_vid_puts.c
|
||||
./test/test_vidputs.c
|
||||
./test/testaddch.c
|
||||
./test/testcurs.c
|
||||
./test/testscanw.c
|
||||
./test/tracemunch
|
||||
./test/view.c
|
||||
./test/widechars-utf8.txt
|
||||
./test/widechars.h
|
||||
./test/worm.c
|
||||
./test/xmas.c
|
||||
./test/xterm-16color.dat
|
||||
|
||||
30
Makefile.in
30
Makefile.in
@ -1,6 +1,6 @@
|
||||
# $Id: Makefile.in,v 1.30 2010/11/27 21:45:27 tom Exp $
|
||||
# $Id: Makefile.in,v 1.38 2014/01/18 20:19:45 tom Exp $
|
||||
##############################################################################
|
||||
# Copyright (c) 1998-2008,2010 Free Software Foundation, Inc. #
|
||||
# Copyright (c) 1998-2013,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"), #
|
||||
@ -27,7 +27,7 @@
|
||||
# authorization. #
|
||||
##############################################################################
|
||||
#
|
||||
# Author: Thomas E. Dickey <dickey@clark.net> 1996,1997
|
||||
# Author: Thomas E. Dickey 1996-on
|
||||
#
|
||||
# Master Makefile for ncurses library.
|
||||
|
||||
@ -35,7 +35,8 @@ SHELL = /bin/sh
|
||||
VPATH = @srcdir@
|
||||
|
||||
DESTDIR=@DESTDIR@
|
||||
CF_MFLAGS = @cf_cv_makeflags@ DESTDIR="$(DESTDIR)"
|
||||
RPATH_LIST=@RPATH_LIST@
|
||||
TOP_MFLAGS = @cf_cv_makeflags@ DESTDIR="$(DESTDIR)" RPATH_LIST="$(RPATH_LIST)"
|
||||
|
||||
@SET_MAKE@
|
||||
|
||||
@ -48,13 +49,17 @@ srcdir = @srcdir@
|
||||
|
||||
prefix = @prefix@
|
||||
exec_prefix = @exec_prefix@
|
||||
datarootdir = @datarootdir@
|
||||
|
||||
bindir = @bindir@
|
||||
ticdir = @TERMINFO@
|
||||
includedir = @includedir@
|
||||
includesubdir = @includesubdir@
|
||||
libdir = @libdir@
|
||||
mandir = @mandir@
|
||||
|
||||
include_dir = ${includedir}${includesubdir}
|
||||
|
||||
INSTALL = @INSTALL@
|
||||
INSTALL_DATA = @INSTALL_DATA@
|
||||
|
||||
@ -74,25 +79,22 @@ preinstall :
|
||||
@ echo ''
|
||||
@ echo ' bin directory: '$(bindir)
|
||||
@ echo ' lib directory: '$(libdir)
|
||||
@ echo ' include directory: '$(includedir)
|
||||
@ echo ' include directory: '$(include_dir)
|
||||
@ echo ' man directory: '$(mandir)
|
||||
@MAKE_TERMINFO@ @ echo ' terminfo directory: '$(ticdir)
|
||||
@ echo ''
|
||||
@ test "$(includedir)" = "$(prefix)/include" || \
|
||||
@ test "$(include_dir)" = "$(prefix)/include" || \
|
||||
echo '** Include-directory is not in a standard location'
|
||||
@ test ! -f $(includedir)/termcap.h || \
|
||||
fgrep NCURSES_VERSION $(includedir)/termcap.h >/dev/null || \
|
||||
@ test ! -f $(include_dir)/termcap.h || \
|
||||
fgrep NCURSES_VERSION $(include_dir)/termcap.h >/dev/null || \
|
||||
echo '** Will overwrite non-ncurses termcap.h'
|
||||
@ test ! -f $(includedir)/curses.h || \
|
||||
fgrep NCURSES_VERSION $(includedir)/curses.h >/dev/null || \
|
||||
@ test ! -f $(include_dir)/curses.h || \
|
||||
fgrep NCURSES_VERSION $(include_dir)/curses.h >/dev/null || \
|
||||
echo '** Will overwrite non-ncurses curses.h'
|
||||
|
||||
dlls: libs
|
||||
$(SHELL) $(srcdir)/mk-dlls.sh
|
||||
|
||||
distclean \
|
||||
realclean ::
|
||||
-rm -f mk-dlls.sh mingw_arch
|
||||
|
||||
|
||||
# Put the common rules here so that we can easily construct the list of
|
||||
# directories to visit.
|
||||
|
||||
17
README
17
README
@ -1,5 +1,5 @@
|
||||
-------------------------------------------------------------------------------
|
||||
-- Copyright (c) 1998-2004,2006 Free Software Foundation, Inc. --
|
||||
-- Copyright (c) 1998-2011,2012 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 --
|
||||
@ -25,7 +25,7 @@
|
||||
-- sale, use or other dealings in this Software without prior written --
|
||||
-- authorization. --
|
||||
-------------------------------------------------------------------------------
|
||||
-- $Id: README,v 1.23 2006/04/22 22:19:37 tom Exp $
|
||||
-- $Id: README,v 1.25 2012/08/11 20:11:26 tom Exp $
|
||||
-------------------------------------------------------------------------------
|
||||
README file for the ncurses package
|
||||
|
||||
@ -78,6 +78,10 @@ features are provided by ifdef's in the header files. The wide-character
|
||||
library interfaces are not binary-compatible with the non-wide-character
|
||||
version.
|
||||
|
||||
If you configure using the --enable-reentrant option, a "t" is appended to the
|
||||
library names (e.g., libncursest.a) and the resulting libraries have a
|
||||
different binary interface which makes the ncurses interface more "opaque".
|
||||
|
||||
The ncurses libraries implement the curses API. The panel, menu and forms
|
||||
libraries implement clones of the SVr4 panel, menu and forms APIs. The source
|
||||
code for these lives in the `ncurses', `panel', `menu', and `form' directories
|
||||
@ -122,8 +126,9 @@ The utilities are as follows:
|
||||
tic -- terminfo source to binary compiler
|
||||
infocmp -- terminfo binary to source decompiler/comparator
|
||||
clear -- emits clear-screen for current terminal
|
||||
tabs -- set tabs on a terminal
|
||||
tput -- shell-script access to terminal capabilities.
|
||||
toe -- table of entries utility
|
||||
toe -- table of entries utility
|
||||
tset -- terminal-initialization utility
|
||||
|
||||
The first two (tic and infocmp) are used for manipulating terminfo
|
||||
@ -153,8 +158,10 @@ Thomas Dickey (maintainer for 1.9.9g through 4.1, resuming with FSF's 5.0):
|
||||
configuration scripts, porting, mods to adhere to XSI Curses in the
|
||||
areas of background color, terminal modes. Also memory leak testing,
|
||||
the wresize, default colors and key definition extensions and numerous
|
||||
bug fixes (more than half of those enumerated in NEWS beginning with
|
||||
the internal release 1.8.9).
|
||||
bug fixes -- more than half of those enumerated in NEWS beginning with
|
||||
the internal release 1.8.9, see
|
||||
|
||||
http://invisible-island.net/personal/changelogs.html
|
||||
|
||||
Florian La Roche (official maintainer for FSF's ncurses 4.2)
|
||||
Beginning with release 4.2, ncurses is distributed under an MIT-style
|
||||
|
||||
93
README.MinGW
93
README.MinGW
@ -1,5 +1,5 @@
|
||||
-------------------------------------------------------------------------------
|
||||
-- Copyright (c) 2008-2010,2011 Free Software Foundation, Inc. --
|
||||
-- Copyright (c) 2008-2011,2012 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 --
|
||||
@ -25,7 +25,7 @@
|
||||
-- sale, use or other dealings in this Software without prior written --
|
||||
-- authorization. --
|
||||
-------------------------------------------------------------------------------
|
||||
-- $Id: README.MinGW,v 1.5 2011/02/26 16:57:17 tom Exp $
|
||||
-- $Id: README.MinGW,v 1.9 2012/09/22 17:46:04 tom Exp $
|
||||
-- Author: Juergen Pfeifer
|
||||
-------------------------------------------------------------------------------
|
||||
|
||||
@ -39,7 +39,7 @@ from http://www.mingw.org
|
||||
To build ncurses for native Windows, you need the MinGW toolchain. The
|
||||
original MinGW toolchain from the above site is only for 32-Bit Windows. As
|
||||
Windows Server - and also regular workstations - are moving to 64-Bit, it
|
||||
seems to be reasonable to have a toolchain that supports both architectures.
|
||||
seems to be reasonable to have a toolchain that supports both architectures.
|
||||
I recommend to use the TDM gcc toolchain which you can find at
|
||||
http://tdm-gcc.tdragon.net/download. Go to the download section and select
|
||||
the bundle installer for tdm64 (MinGW-w64). This installs a multilib version
|
||||
@ -47,7 +47,7 @@ of the gcc toolchain that can compile for native 32- and 64-Bit Windows
|
||||
versions. It also comes with a working pthread implementation.
|
||||
|
||||
The latest config and build scripts we use for MinGW have only been tested
|
||||
for the gcc-4.4 compiler toolchain (or better).
|
||||
for the gcc-4.6.1 compiler toolchain (or better).
|
||||
|
||||
Using MinGW is a pragmatic decision, it's the easiest way to port this
|
||||
heavily UNIX based sourcebase to native Windows. The goal is of course
|
||||
@ -55,22 +55,13 @@ to provide the includes, libraries and DLLs to be used with the more
|
||||
common traditional development environments on Windows, mainly with
|
||||
Microsoft Visual Studio.
|
||||
|
||||
If you start a bash from the MSYS environment, please make sure that the
|
||||
Microsoft Development tools are in your PATH right after the MinGW
|
||||
tools. The LIB.EXE tool is the only one needed. You need this only if
|
||||
you want to build DLLs that work with native Windows programs. If you
|
||||
don't have any Microsoft Development tools on your machine, consider
|
||||
at least to get the free "Visual C++ 2010 Express Edition".
|
||||
It contains the LIB.EXE tool. You may also use this compiler to test
|
||||
writing native Windows programs using the ncurses DLLs without using
|
||||
MinGW then for writing apps.
|
||||
|
||||
It is necessary to unset the TERM environment variable, to activate the
|
||||
Windows console-driver.
|
||||
The TERM environment variable must be set specially to active the Windows
|
||||
console-driver. The driver checks if TERM is set to "#win32con" (explicit
|
||||
use) or if TERM is unset or empty (implicit).
|
||||
|
||||
Please also make sure that MSYS links to the correct directory containing
|
||||
your MinGW toolchain. For TDM this is usually C:\MinGW64. In your Windows
|
||||
CMD.EXE command shell go to the MSYS root directory (most probably
|
||||
CMD.EXE command shell go to the MSYS root directory (most probably
|
||||
C:\MSYS or C:\MSYS\1.0) and verify, that there is a junction point mingw
|
||||
that points to the MinGW toolchain directory. If not, delete the mingw
|
||||
directory and use the mklink command (or the linkd.exe utility on older
|
||||
@ -79,62 +70,60 @@ Windows) to create the junction point.
|
||||
This code requires WindowsNT 5.1 or better, which means on the client
|
||||
Windows XP or better, on the server Windows Server 2003 or better.
|
||||
|
||||
In order to build ncurses for the planned interop layer with .NET, we
|
||||
recommend to use these options with configure
|
||||
I recommend using libtool to build ncurses on MinGW, because libtool
|
||||
knows exactly how to build dll's on Windows for use with MinGW.
|
||||
|
||||
To build a modern but still small footprint ncurses that provides
|
||||
hooks for interop, I recommend using these options:
|
||||
|
||||
--with-libtool
|
||||
--disable-home-terminfo
|
||||
--enable-reentrant
|
||||
--enable-database
|
||||
--disable-termcap
|
||||
--enable-sp-funcs
|
||||
--enable-term-driver
|
||||
--enable-interop
|
||||
--with-pthread (if using TDM toolchain as recommended)
|
||||
|
||||
This is the configuration commandline as I'm using it at the moment:
|
||||
This is the configuration commandline as I'm using it at the moment (assuming
|
||||
environment variable MINGW_ROOT to hold the root directory name of your MinGW
|
||||
build):
|
||||
|
||||
./configure \
|
||||
--prefix=/mingw \
|
||||
--without-cxx-binding \
|
||||
--prefix=$MINGW_ROOT \
|
||||
--with-cxx \
|
||||
--without-ada \
|
||||
--enable-warnings \
|
||||
--enable-assertions \
|
||||
--enable-reentrant \
|
||||
--with-debug \
|
||||
--with-normal \
|
||||
--disable-home-terminfo \
|
||||
--enable-database \
|
||||
--enable-sp-funcs \
|
||||
--enable-term-driver \
|
||||
--enable-interop \
|
||||
--with-pthread
|
||||
--disable-termcap \
|
||||
--with-progs \
|
||||
--with-libtool \
|
||||
--enable-pc-files \
|
||||
--mandir=$MINGW_ROOT/share/man
|
||||
|
||||
If you are on a 64-Bit Windows system and want to build a 32-Bit version
|
||||
of ncurses, you may use this commandline for configuration (when using
|
||||
the TDM toolchain):
|
||||
Please note that it is also necessary to set this environment variable:
|
||||
|
||||
CC="gcc -m32" LD="ld -m32" ./configure \
|
||||
--prefix=/mingw \
|
||||
--without-cxx-binding \
|
||||
--without-ada \
|
||||
--enable-warnings \
|
||||
--enable-assertions \
|
||||
--enable-reentrant \
|
||||
--with-debug \
|
||||
--with-normal \
|
||||
--disable-home-terminfo \
|
||||
--enable-sp-funcs \
|
||||
--enable-term-driver \
|
||||
--enable-interop \
|
||||
--with-pthread
|
||||
export PATH_SEPARATOR=";"
|
||||
|
||||
in order to parse the terminfo paths correctly. Terminfo paths should
|
||||
always be separated by a seeeemicolon,even when running under MSYS.
|
||||
|
||||
To support regular expressions properly, ncurses under MinGW should be
|
||||
linked against the gnurx regex library, which must be built separately
|
||||
under MinGW. See
|
||||
|
||||
ftp.gnome.org/pub/GNOME/binaries/win32/dependencies/libgnurx-src-2.5.zip
|
||||
|
||||
All the options above are - like the whole Windows support -
|
||||
experimental.
|
||||
|
||||
In order to build the DLLs, after your regular make you must call
|
||||
|
||||
make dlls
|
||||
|
||||
A lot is still TODO, e.g.:
|
||||
|
||||
- Wide Character support
|
||||
- Wide Character support (display is workable, but input untested)
|
||||
The Win32Con driver should actually only use Unicode in the
|
||||
future.
|
||||
- Thread support (locking). If using TDM toolchain this is done by
|
||||
@ -145,5 +134,5 @@ A lot is still TODO, e.g.:
|
||||
- Workarounds for MinGW's filesystem access are necessary to make infocmp
|
||||
work (though tic works).
|
||||
|
||||
To support terminfo, we need to have an ioctl() simulation for the
|
||||
serial and networked Terminals.
|
||||
To support terminfo, we would need to have an ioctl() simulation for the
|
||||
serial and networked terminals.
|
||||
|
||||
1664
aclocal.m4
vendored
1664
aclocal.m4
vendored
File diff suppressed because it is too large
Load Diff
160
announce.html.in
160
announce.html.in
@ -1,8 +1,7 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<!--
|
||||
$Id: announce.html.in,v 1.85 2011/04/04 00:05:34 tom Exp $
|
||||
$Id: announce.html.in,v 1.89 2013/05/18 10:12:25 tom Exp $
|
||||
****************************************************************************
|
||||
* Copyright (c) 1998-2010,2011 Free Software Foundation, Inc. *
|
||||
* Copyright (c) 1998-2011,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 *
|
||||
@ -29,11 +28,12 @@
|
||||
* authorization. *
|
||||
****************************************************************************
|
||||
-->
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
|
||||
<html>
|
||||
<head>
|
||||
<meta name="generator" content=
|
||||
"HTML Tidy for Linux/x86 (vers 6 November 2007), see www.w3.org">
|
||||
"HTML Tidy for Linux (vers 25 March 2009), see www.w3.org">
|
||||
|
||||
<title>Announcing ncurses @VERSION@</title>
|
||||
<link rev="made" href="mailto:bug-ncurses@gnu.org">
|
||||
@ -42,12 +42,13 @@
|
||||
</head>
|
||||
|
||||
<body>
|
||||
<h1>Announcing ncurses @VERSION@</h1>The ncurses (new curses)
|
||||
library is a free software emulation of curses in System V
|
||||
Release 4.0, and more. It uses terminfo format, supports pads and
|
||||
color and multiple highlights and forms characters and
|
||||
function-key mapping, and has all the other SYSV-curses
|
||||
enhancements over BSD curses.
|
||||
<h1>Announcing ncurses @VERSION@</h1>
|
||||
|
||||
<p>The ncurses (new curses) library is a free software emulation
|
||||
of curses in System V Release 4.0, and more. It uses terminfo
|
||||
format, supports pads and color and multiple highlights and forms
|
||||
characters and function-key mapping, and has all the other
|
||||
SYSV-curses enhancements over BSD curses.</p>
|
||||
|
||||
<p>In mid-June 1995, the maintainer of 4.4BSD curses declared
|
||||
that he considered 4.4BSD curses obsolete, and encouraged the
|
||||
@ -73,38 +74,50 @@
|
||||
It is also available at <a href=
|
||||
"ftp://invisible-island.net/ncurses/">ftp://invisible-island.net/ncurses/</a> .</p>
|
||||
|
||||
<h1>Release Notes</h1>This release is designed to be upward
|
||||
compatible from ncurses 5.0 through 5.8; very few applications
|
||||
will require recompilation, depending on the platform. These are
|
||||
the highlights from the change-log since ncurses 5.8 release.
|
||||
<p>
|
||||
This is a bug-fix release, correcting a small number of urgent problems
|
||||
in the ncurses library from the 5.8 release.
|
||||
<p>
|
||||
It also improves the Ada95 binding:
|
||||
<h1>Release Notes</h1>
|
||||
|
||||
<p>This release is designed to be upward compatible from ncurses
|
||||
5.0 through 5.8; very few applications will require
|
||||
recompilation, depending on the platform. These are the
|
||||
highlights from the change-log since ncurses 5.8 release.</p>
|
||||
|
||||
<p>This is a bug-fix release, correcting a small number of urgent
|
||||
problems in the ncurses library from the 5.8 release.</p>
|
||||
|
||||
<p>It also improves the Ada95 binding:</p>
|
||||
|
||||
<ul>
|
||||
<li>fixes a longstanding portability problem with its use of the
|
||||
<a href="http://invisible-island.net/ncurses/man/form_fieldtype.3x">set_field_type</a>
|
||||
function. Because that function uses variable-length argument lists,
|
||||
its interface with gnat does not work with certain platforms.
|
||||
<li>improves configurability and portability, particularly when built
|
||||
separately from the main ncurses tree. The 5.8 release introduced
|
||||
scripts which can be used to construct separate tarballs for the
|
||||
Ada95 and ncurses examples.
|
||||
<p>Those were a proof of concept. For the 5.9 release, those
|
||||
scripts are augmented with rpm- and dpkg-scripts used in test builds
|
||||
against a variety of gnat- and system ncurses versions as old as
|
||||
gnat 3.15 and ncurses 5.4 (see snapshots and systems tested
|
||||
<a href="http://invisible-island.net/ncurses/ncurses-Ada95.html">here</a>.
|
||||
<li>additional improvements were made for portability of the
|
||||
ncurses examples, adding rpm- and dpkg-scripts for test-builds.
|
||||
See
|
||||
<a href="http://invisible-island.net/ncurses/ncurses-examples.html">this page</a>
|
||||
for snapshots and other information.
|
||||
<li>fixes a longstanding portability problem with its use of
|
||||
the <a href=
|
||||
"http://invisible-island.net/ncurses/man/form_fieldtype.3x">set_field_type</a>
|
||||
function. Because that function uses variable-length argument
|
||||
lists, its interface with gnat does not work with certain
|
||||
platforms.</li>
|
||||
|
||||
<li>improves configurability and portability, particularly when
|
||||
built separately from the main ncurses tree. The 5.8 release
|
||||
introduced scripts which can be used to construct separate
|
||||
tarballs for the Ada95 and ncurses examples.
|
||||
|
||||
<p>Those were a proof of concept. For the 5.9 release, those
|
||||
scripts are augmented with rpm- and dpkg-scripts used in test
|
||||
builds against a variety of gnat- and system ncurses versions
|
||||
as old as gnat 3.15 and ncurses 5.4 (see snapshots and
|
||||
systems tested <a href=
|
||||
"http://invisible-island.net/ncurses/ncurses-Ada95.html">here</a>.</p>
|
||||
</li>
|
||||
|
||||
<li>additional improvements were made for portability of the
|
||||
ncurses examples, adding rpm- and dpkg-scripts for test-builds.
|
||||
See <a href=
|
||||
"http://invisible-island.net/ncurses/ncurses-examples.html">this
|
||||
page</a> for snapshots and other information.</li>
|
||||
</ul>
|
||||
|
||||
<h1>Features of Ncurses</h1>The ncurses package is fully
|
||||
compatible with SVr4 (System V Release 4) curses:
|
||||
<h1>Features of Ncurses</h1>
|
||||
|
||||
<p>The ncurses package is fully compatible with SVr4 (System V
|
||||
Release 4) curses:</p>
|
||||
|
||||
<ul>
|
||||
<li>All 257 of the SVr4 calls have been implemented (and are
|
||||
@ -132,8 +145,10 @@
|
||||
entries for use with less capable
|
||||
<strong>curses</strong>/<strong>terminfo</strong> versions such
|
||||
as the HP/UX and AIX ports.</li>
|
||||
</ul>The ncurses package also has many useful extensions over
|
||||
SVr4:
|
||||
</ul>
|
||||
|
||||
<p>The ncurses package also has many useful extensions over
|
||||
SVr4:</p>
|
||||
|
||||
<ul>
|
||||
<li>The API is 8-bit clean and base-level conformant with the
|
||||
@ -249,12 +264,14 @@
|
||||
interface.</li>
|
||||
</ul>
|
||||
|
||||
<h1>State of the Package</h1>Numerous bugs present in earlier
|
||||
versions have been fixed; the library is far more reliable than
|
||||
it used to be. Bounds checking in many `dangerous' entry points
|
||||
has been improved. The code is now type-safe according to gcc
|
||||
-Wall. The library has been checked for malloc leaks and arena
|
||||
corruption by the Purify memory-allocation tester.
|
||||
<h1>State of the Package</h1>
|
||||
|
||||
<p>Numerous bugs present in earlier versions have been fixed; the
|
||||
library is far more reliable than it used to be. Bounds checking
|
||||
in many `dangerous' entry points has been improved. The code is
|
||||
now type-safe according to gcc -Wall. The library has been
|
||||
checked for malloc leaks and arena corruption by the Purify
|
||||
memory-allocation tester.</p>
|
||||
|
||||
<p>The ncurses code has been tested with a wide variety of
|
||||
applications including (versions starting with those noted):</p>
|
||||
@ -321,8 +338,10 @@
|
||||
|
||||
<dd>newsreader, supporting color, MIME <a href=
|
||||
"http://www.tin.org/">http://www.tin.org/</a></dd>
|
||||
</dl>as well as some that use ncurses for the terminfo support
|
||||
alone:
|
||||
</dl>
|
||||
|
||||
<p>as well as some that use ncurses for the terminfo support
|
||||
alone:</p>
|
||||
|
||||
<dl>
|
||||
<dt>minicom</dt>
|
||||
@ -341,15 +360,17 @@
|
||||
<p>The ncurses distribution includes a selection of test programs
|
||||
(including a few games).</p>
|
||||
|
||||
<h2>Who's Who and What's What</h2>Zeyd Ben-Halim started it from
|
||||
a previous package pcurses, written by Pavel Curtis. Eric S.
|
||||
Raymond continued development. Jürgen Pfeifer wrote most of
|
||||
the form and menu libraries. Ongoing work is being done by
|
||||
<a href="mailto:dickey@invisible-island.net">Thomas Dickey</a>.
|
||||
Thomas Dickey acts as the maintainer for the Free Software
|
||||
Foundation, which holds the copyright on ncurses. Contact the
|
||||
current maintainers at <a href=
|
||||
"mailto:bug-ncurses@gnu.org">bug-ncurses@gnu.org</a>.
|
||||
<h2>Who's Who and What's What</h2>
|
||||
|
||||
<p>Zeyd Ben-Halim started it from a previous package pcurses,
|
||||
written by Pavel Curtis. Eric S. Raymond continued development.
|
||||
Jürgen Pfeifer wrote most of the form and menu libraries.
|
||||
Ongoing work is being done by <a href=
|
||||
"mailto:dickey@invisible-island.net">Thomas Dickey</a>. Thomas
|
||||
Dickey acts as the maintainer for the Free Software Foundation,
|
||||
which holds the copyright on ncurses. Contact the current
|
||||
maintainers at <a href=
|
||||
"mailto:bug-ncurses@gnu.org">bug-ncurses@gnu.org</a>.</p>
|
||||
|
||||
<p>To join the ncurses mailing list, please write email to
|
||||
<code>bug-ncurses-request@gnu.org</code> containing the line:</p>
|
||||
@ -364,6 +385,13 @@
|
||||
are made available at <a href=
|
||||
"ftp://invisible-island.net/ncurses/">ftp://invisible-island.net/ncurses/</a> .</p>
|
||||
|
||||
<p>There is an archive of the mailing list here:</p>
|
||||
|
||||
<p><a href=
|
||||
"http://lists.gnu.org/archive/html/bug-ncurses">http://lists.gnu.org/archive/html/bug-ncurses</a>
|
||||
(also <a href=
|
||||
"https://lists.gnu.org/archive/html/bug-ncurses">https</a>)</p>
|
||||
|
||||
<h2>Future Plans</h2>
|
||||
|
||||
<ul>
|
||||
@ -371,15 +399,19 @@
|
||||
support.</li>
|
||||
|
||||
<li>Ports to more systems, including DOS and Windows.</li>
|
||||
</ul>We need people to help with these projects. If you are
|
||||
interested in working on them, please join the ncurses list.
|
||||
</ul>
|
||||
|
||||
<h2>Other Related Resources</h2>The distribution provides a newer
|
||||
version of the terminfo-format terminal description file once
|
||||
maintained by <a href="http://www.catb.org/~esr/terminfo/">Eric
|
||||
<p>We need people to help with these projects. If you are
|
||||
interested in working on them, please join the ncurses list.</p>
|
||||
|
||||
<h2>Other Related Resources</h2>
|
||||
|
||||
<p>The distribution provides a newer version of the
|
||||
terminfo-format terminal description file once maintained by
|
||||
<a href="http://www.catb.org/~esr/terminfo/">Eric
|
||||
Raymond</a> . Unlike the older version, the termcap and
|
||||
terminfo data are provided in the same file, and provides several
|
||||
user-definable extensions beyond the X/Open specification.
|
||||
user-definable extensions beyond the X/Open specification.</p>
|
||||
|
||||
<p>You can find lots of information on terminal-related topics
|
||||
not covered in the terminfo file at <a href=
|
||||
|
||||
115
c++/Makefile.in
115
c++/Makefile.in
@ -1,6 +1,6 @@
|
||||
# $Id: Makefile.in,v 1.93 2010/11/27 21:45:27 tom Exp $
|
||||
# $Id: Makefile.in,v 1.106 2013/08/04 20:20:45 tom Exp $
|
||||
##############################################################################
|
||||
# Copyright (c) 1998-2009,2010 Free Software Foundation, Inc. #
|
||||
# Copyright (c) 1998-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"), #
|
||||
@ -47,8 +47,12 @@ DESTDIR = @DESTDIR@
|
||||
srcdir = @srcdir@
|
||||
prefix = @prefix@
|
||||
exec_prefix = @exec_prefix@
|
||||
bindir = @bindir@
|
||||
libdir = @libdir@
|
||||
includedir = @includedir@
|
||||
includesubdir = @includesubdir@
|
||||
|
||||
INCLUDEDIR = $(DESTDIR)$(includedir)$(includesubdir)
|
||||
|
||||
LIBTOOL = @LIBTOOL_CXX@
|
||||
LIBTOOL_CLEAN = @LIB_CLEAN@
|
||||
@ -65,6 +69,9 @@ INSTALL_DATA = @INSTALL_DATA@
|
||||
|
||||
AR = @AR@
|
||||
ARFLAGS = @ARFLAGS@
|
||||
AWK = @AWK@
|
||||
LD = @LD@
|
||||
LN_S = @LN_S@
|
||||
|
||||
CXX_AR = @CXX_AR@
|
||||
CXX_ARFLAGS = @CXX_ARFLAGS@
|
||||
@ -109,35 +116,41 @@ LIBNAME_LIBTOOL = @LIB_PREFIX@$(LIBROOT)@LIB_SUFFIX@.la
|
||||
LIBNAME_NORMAL = @LIB_PREFIX@$(LIBROOT)@LIB_SUFFIX@.a
|
||||
LIBNAME = @LIB_PREFIX@$(LIBROOT)@CXX_LIB_SUFFIX@
|
||||
|
||||
MY_LIBRARY = ../lib/$(LIBNAME)
|
||||
LIBRARIES = @Libs_To_Make@
|
||||
|
||||
LINK_FLAGS = @EXTRA_LDFLAGS@ -L../lib -l$(LIBROOT)@LIB_SUFFIX@
|
||||
RPATH_LIST = @RPATH_LIST@
|
||||
MK_SHARED_LIB = @MK_SHARED_LIB@
|
||||
|
||||
LINK_LIBTOOL = @EXTRA_LDFLAGS@ -L../lib $(MY_LIBRARY)
|
||||
LINK_LIBTOOL = @EXTRA_LDFLAGS@ -L../lib $(LIBRARIES)
|
||||
LINK_NORMAL = $(LINK_FLAGS)
|
||||
LINK_DEBUG = $(LINK_FLAGS)
|
||||
LINK_PROFILE = $(LINK_FLAGS)
|
||||
LINK_SHARED = $(LINK_FLAGS)
|
||||
|
||||
# flags for test-programs
|
||||
TEST_LIBS = @TEST_LIBS@
|
||||
TEST_ARGS = @LDFLAGS_STATIC@ @TEST_ARGS@ @LDFLAGS_SHARED@
|
||||
|
||||
LDFLAGS = $(TEST_ARGS) @LDFLAGS@ \
|
||||
TEST_LDFLAGS = $(TEST_ARGS) @LDFLAGS@ \
|
||||
@LD_MODEL@ $(TEST_LIBS) @LIBS@ @LOCAL_LDFLAGS@ $(CXXLIBS)
|
||||
|
||||
LDFLAGS_LIBTOOL = $(LDFLAGS) $(CFLAGS_LIBTOOL)
|
||||
LDFLAGS_NORMAL = $(LDFLAGS) $(CFLAGS_NORMAL)
|
||||
LDFLAGS_DEBUG = $(LDFLAGS) $(CFLAGS_DEBUG)
|
||||
LDFLAGS_PROFILE = $(LDFLAGS) $(CFLAGS_PROFILE)
|
||||
LDFLAGS_SHARED = $(LDFLAGS) $(CFLAGS_SHARED) @LD_SHARED_OPTS@
|
||||
LDFLAGS_LIBTOOL = $(TEST_LDFLAGS) $(CFLAGS_LIBTOOL)
|
||||
LDFLAGS_NORMAL = $(TEST_LDFLAGS) $(CFLAGS_NORMAL)
|
||||
LDFLAGS_DEBUG = $(TEST_LDFLAGS) $(CFLAGS_DEBUG)
|
||||
LDFLAGS_PROFILE = $(TEST_LDFLAGS) $(CFLAGS_PROFILE)
|
||||
LDFLAGS_SHARED = $(TEST_LDFLAGS) $(CFLAGS_SHARED) @LD_SHARED_OPTS@
|
||||
|
||||
LDFLAGS_DEFAULT = $(LINK_@DFT_UPR_MODEL@) $(LDFLAGS_@DFT_UPR_MODEL@)
|
||||
|
||||
# flags for library built by this makefile
|
||||
LDFLAGS = $(TEST_ARGS) @LDFLAGS@ \
|
||||
@LD_MODEL@ $(TEST_LIBS) @LIBS@ $(CXXLIBS)
|
||||
|
||||
AUTO_SRC = \
|
||||
etip.h
|
||||
|
||||
all \
|
||||
libs :: $(AUTO_SRC) $(MY_LIBRARY)
|
||||
libs :: $(AUTO_SRC) $(LIBRARIES)
|
||||
|
||||
@MAKE_TESTS@all :: demo$x
|
||||
|
||||
@ -148,61 +161,16 @@ depend :
|
||||
tags:
|
||||
$(CTAGS) *.[h] *.cc
|
||||
|
||||
# Build a conventional library for installing, since a shared library would
|
||||
# pull in all of the ncurses libraries (panel, menu, form, ncurses) as direct
|
||||
# dependencies.
|
||||
LIB_OBJS = \
|
||||
$(MODEL)/cursesf$o \
|
||||
$(MODEL)/cursesm$o \
|
||||
$(MODEL)/cursesw$o \
|
||||
$(MODEL)/cursespad$o \
|
||||
$(MODEL)/cursesp$o \
|
||||
$(MODEL)/cursslk$o \
|
||||
$(MODEL)/cursesapp$o \
|
||||
$(MODEL)/cursesmain$o
|
||||
|
||||
../lib/$(LIBNAME_NORMAL) : $(LIB_OBJS)
|
||||
$(CXX_AR) $(CXX_ARFLAGS) $@ $?
|
||||
$(RANLIB) $@
|
||||
|
||||
../lib/$(LIBNAME_LIBTOOL) : $(LIB_OBJS)
|
||||
cd ../lib && $(LIBTOOL_LINK) $(CXX) $(CXXFLAGS) \
|
||||
-o $(LIBNAME) $(LIB_OBJS:$o=.lo) \
|
||||
-rpath $(INSTALL_PREFIX)$(libdir) \
|
||||
$(LIBTOOL_VERSION) $(NCURSES_MAJOR):$(NCURSES_MINOR) $(LT_UNDEF) $(SHLIB_LIST)
|
||||
|
||||
OBJS_DEMO = $(MODEL)/demo$o
|
||||
|
||||
$(MODEL)/demo$o : $(srcdir)/demo.cc \
|
||||
$(cursesf_h) $(cursesm_h) $(cursesapp_h)
|
||||
|
||||
demo$x: $(OBJS_DEMO) \
|
||||
$(MY_LIBRARY) \
|
||||
@TEST_DEPS@
|
||||
@ECHO_LINK@ $(LINK) -o $@ $(OBJS_DEMO) $(LDFLAGS_DEFAULT)
|
||||
|
||||
etip.h: $(srcdir)/etip.h.in $(srcdir)/edit_cfg.sh
|
||||
cp $(srcdir)/etip.h.in $@
|
||||
sh $(srcdir)/edit_cfg.sh ../include/ncurses_cfg.h $@
|
||||
|
||||
$(DESTDIR)$(libdir) :
|
||||
mkdir -p $@
|
||||
|
||||
install \
|
||||
install.libs:: $(MY_LIBRARY) $(DESTDIR)$(libdir)
|
||||
$(LIBTOOL_INSTALL) $(INSTALL_LIB) $(MY_LIBRARY) $(DESTDIR)$(libdir)/$(LIBNAME)
|
||||
|
||||
uninstall \
|
||||
uninstall.libs::
|
||||
-$(LIBTOOL_UNINSTALL) rm -f $(DESTDIR)$(libdir)/$(LIBNAME)
|
||||
|
||||
mostlyclean ::
|
||||
-rm -f core tags TAGS *~ *.bak *.i *.ii *.ln *.atac trace
|
||||
|
||||
clean :: mostlyclean
|
||||
-sh -c "if test -n '$x' ; then $(MAKE) clean x=''; fi"
|
||||
-rm -rf $(MODEL)/SunWS_cache
|
||||
-$(LIBTOOL_CLEAN) rm -f demo$x $(AUTO_SRC) $(MY_LIBRARY) $(LIB_OBJS) $(OBJS_DEMO)
|
||||
-$(LIBTOOL_CLEAN) rm -f demo$x $(AUTO_SRC) $(LIBRARIES) $(OBJS_DEMO)
|
||||
-rm -rf .libs
|
||||
|
||||
distclean :: clean
|
||||
@ -212,8 +180,16 @@ realclean :: distclean
|
||||
|
||||
###############################################################################
|
||||
|
||||
internal_h = $(srcdir)/internal.h \
|
||||
$(INCDIR)/ncurses_cfg.h \
|
||||
$(INCDIR)/nc_mingw.h \
|
||||
$(INCDIR)/nc_string.h
|
||||
|
||||
etip_h = etip.h \
|
||||
$(INCDIR)/ncurses_dll.h
|
||||
|
||||
cursesw_h = $(srcdir)/cursesw.h \
|
||||
etip.h \
|
||||
$(etip_h) \
|
||||
$(INCDIR)/curses.h
|
||||
|
||||
cursesp_h = $(srcdir)/cursesp.h \
|
||||
@ -243,6 +219,27 @@ $(INCDIR)/menu.h :
|
||||
$(INCDIR)/panel.h :
|
||||
cd ../panel && $(MAKE) $@
|
||||
|
||||
###############################################################################
|
||||
|
||||
OBJS_DEMO = $(MODEL)/demo$o
|
||||
|
||||
$(MODEL)/demo$o : $(srcdir)/demo.cc \
|
||||
$(internal_h) \
|
||||
$(cursesf_h) \
|
||||
$(cursesm_h) \
|
||||
$(cursesapp_h)
|
||||
@echo 'compiling demo (obj_s)'
|
||||
@$(LIBTOOL_COMPILE) $(CXX) $(CFLAGS_DEFAULT) -c $(srcdir)/demo.cc -o $@
|
||||
|
||||
demo$x: $(OBJS_DEMO) \
|
||||
$(LIBRARIES) \
|
||||
@TEST_DEPS@
|
||||
@ECHO_LD@ $(LINK) -o $@ $(OBJS_DEMO) $(LDFLAGS_DEFAULT)
|
||||
|
||||
etip.h: $(srcdir)/etip.h.in $(srcdir)/edit_cfg.sh
|
||||
cp $(srcdir)/etip.h.in $@
|
||||
sh $(srcdir)/edit_cfg.sh ../include/ncurses_cfg.h $@
|
||||
|
||||
###############################################################################
|
||||
# The remainder of this file is automatically generated during configuration
|
||||
###############################################################################
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
// * This makes emacs happy -*-Mode: C++;-*-
|
||||
/****************************************************************************
|
||||
* Copyright (c) 1998-2003,2005 Free Software Foundation, Inc. *
|
||||
* Copyright (c) 1998-2005,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 *
|
||||
@ -31,7 +31,7 @@
|
||||
* Author: Juergen Pfeifer, 1997 *
|
||||
****************************************************************************/
|
||||
|
||||
// $Id: cursesapp.h,v 1.11 2005/05/28 21:57:44 tom Exp $
|
||||
// $Id: cursesapp.h,v 1.12 2011/09/17 22:12:10 tom Exp $
|
||||
|
||||
#ifndef NCURSES_CURSESAPP_H_incl
|
||||
#define NCURSES_CURSESAPP_H_incl
|
||||
@ -80,6 +80,7 @@ protected:
|
||||
// This method is called to initialize the SLKs. Default is nothing.
|
||||
// You may rewrite this in your derived class
|
||||
virtual void init_labels(Soft_Label_Key_Set& S) const {
|
||||
(void) S;
|
||||
}
|
||||
|
||||
// Your derived class must implement this method. The return value must
|
||||
@ -118,6 +119,8 @@ public:
|
||||
// Process the commandline arguments. The default implementation simply
|
||||
// ignores them. Your derived class may rewrite this.
|
||||
virtual void handleArgs(int argc, char* argv[]) {
|
||||
(void) argc;
|
||||
(void) argv;
|
||||
}
|
||||
|
||||
// Does this application use colors?
|
||||
@ -138,37 +141,37 @@ public:
|
||||
|
||||
// Attributes to use for menu and forms foregrounds
|
||||
virtual chtype foregrounds() const {
|
||||
return b_Colors ? COLOR_PAIR(1) : A_BOLD;
|
||||
return b_Colors ? static_cast<chtype>(COLOR_PAIR(1)) : A_BOLD;
|
||||
}
|
||||
|
||||
// Attributes to use for menu and forms backgrounds
|
||||
virtual chtype backgrounds() const {
|
||||
return b_Colors ? COLOR_PAIR(2) : A_NORMAL;
|
||||
return b_Colors ? static_cast<chtype>(COLOR_PAIR(2)) : A_NORMAL;
|
||||
}
|
||||
|
||||
// Attributes to use for inactive (menu) elements
|
||||
virtual chtype inactives() const {
|
||||
return b_Colors ? (COLOR_PAIR(3)|A_DIM) : A_DIM;
|
||||
return b_Colors ? static_cast<chtype>(COLOR_PAIR(3)|A_DIM) : A_DIM;
|
||||
}
|
||||
|
||||
// Attributes to use for (form) labels and SLKs
|
||||
virtual chtype labels() const {
|
||||
return b_Colors ? COLOR_PAIR(4) : A_NORMAL;
|
||||
return b_Colors ? static_cast<chtype>(COLOR_PAIR(4)) : A_NORMAL;
|
||||
}
|
||||
|
||||
// Attributes to use for form backgrounds
|
||||
virtual chtype dialog_backgrounds() const {
|
||||
return b_Colors ? COLOR_PAIR(4) : A_NORMAL;
|
||||
return b_Colors ? static_cast<chtype>(COLOR_PAIR(4)) : A_NORMAL;
|
||||
}
|
||||
|
||||
// Attributes to use as default for (form) window backgrounds
|
||||
virtual chtype window_backgrounds() const {
|
||||
return b_Colors ? COLOR_PAIR(5) : A_NORMAL;
|
||||
return b_Colors ? static_cast<chtype>(COLOR_PAIR(5)) : A_NORMAL;
|
||||
}
|
||||
|
||||
// Attributes to use for the title window
|
||||
virtual chtype screen_titles() const {
|
||||
return b_Colors ? COLOR_PAIR(6) : A_BOLD;
|
||||
return b_Colors ? static_cast<chtype>(COLOR_PAIR(6)) : A_BOLD;
|
||||
}
|
||||
|
||||
};
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
// * this is for making emacs happy: -*-Mode: C++;-*-
|
||||
/****************************************************************************
|
||||
* Copyright (c) 1998-2003,2005 Free Software Foundation, Inc. *
|
||||
* Copyright (c) 1998-2005,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 *
|
||||
@ -35,7 +35,7 @@
|
||||
#include "cursesf.h"
|
||||
#include "cursesapp.h"
|
||||
|
||||
MODULE_ID("$Id: cursesf.cc,v 1.21 2005/08/13 18:09:06 tom Exp $")
|
||||
MODULE_ID("$Id: cursesf.cc,v 1.22 2011/09/17 22:12:10 tom Exp $")
|
||||
|
||||
NCursesFormField::~NCursesFormField ()
|
||||
{
|
||||
@ -234,11 +234,13 @@ NCursesForm::On_Form_Termination()
|
||||
void
|
||||
NCursesForm::On_Field_Init(NCursesFormField& field)
|
||||
{
|
||||
(void) field;
|
||||
}
|
||||
|
||||
void
|
||||
NCursesForm::On_Field_Termination(NCursesFormField& field)
|
||||
{
|
||||
(void) field;
|
||||
}
|
||||
|
||||
// call the form driver and do basic error checking.
|
||||
@ -260,16 +262,19 @@ NCursesForm::driver (int c)
|
||||
|
||||
void NCursesForm::On_Request_Denied(int c) const
|
||||
{
|
||||
(void) c;
|
||||
::beep();
|
||||
}
|
||||
|
||||
void NCursesForm::On_Invalid_Field(int c) const
|
||||
{
|
||||
(void) c;
|
||||
::beep();
|
||||
}
|
||||
|
||||
void NCursesForm::On_Unknown_Command(int c) const
|
||||
{
|
||||
(void) c;
|
||||
::beep();
|
||||
}
|
||||
|
||||
@ -373,6 +378,7 @@ NCursesForm::virtualize(int c)
|
||||
//
|
||||
bool _nc_xx_fld_fcheck(FIELD *f, const void *u)
|
||||
{
|
||||
(void) f;
|
||||
NCursesFormField* F = reinterpret_cast<NCursesFormField*>(const_cast<void *>(u));
|
||||
assert(F != 0);
|
||||
UserDefinedFieldType* udf = reinterpret_cast<UserDefinedFieldType*>(F->fieldtype());
|
||||
@ -405,6 +411,7 @@ FIELDTYPE* UserDefinedFieldType_With_Choice::generic_fieldtype_with_choice =
|
||||
|
||||
bool _nc_xx_next_choice(FIELD *f, const void *u)
|
||||
{
|
||||
(void) f;
|
||||
NCursesFormField* F = reinterpret_cast<NCursesFormField*>(const_cast<void *>(u));
|
||||
assert(F != 0);
|
||||
UserDefinedFieldType_With_Choice* udf =
|
||||
@ -415,6 +422,7 @@ bool _nc_xx_next_choice(FIELD *f, const void *u)
|
||||
|
||||
bool _nc_xx_prev_choice(FIELD *f, const void *u)
|
||||
{
|
||||
(void) f;
|
||||
NCursesFormField* F = reinterpret_cast<NCursesFormField*>(const_cast<void *>(u));
|
||||
assert(F != 0);
|
||||
UserDefinedFieldType_With_Choice* udf =
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
// * This makes emacs happy -*-Mode: C++;-*-
|
||||
/****************************************************************************
|
||||
* Copyright (c) 1998-2004,2005 Free Software Foundation, Inc. *
|
||||
* Copyright (c) 1998-2011,2012 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 *
|
||||
@ -31,7 +31,7 @@
|
||||
* Author: Juergen Pfeifer, 1997 *
|
||||
****************************************************************************/
|
||||
|
||||
// $Id: cursesf.h,v 1.28 2005/08/13 18:08:24 tom Exp $
|
||||
// $Id: cursesf.h,v 1.31 2012/12/29 21:49:58 tom Exp $
|
||||
|
||||
#ifndef NCURSES_CURSESF_H_incl
|
||||
#define NCURSES_CURSESF_H_incl 1
|
||||
@ -61,7 +61,7 @@ class NCURSES_IMPEXP NCursesFieldType
|
||||
protected:
|
||||
FIELDTYPE* fieldtype;
|
||||
|
||||
inline void OnError(int err) const THROWS(NCursesFormException) {
|
||||
inline void OnError(int err) const THROW2(NCursesException const, NCursesFormException) {
|
||||
if (err!=E_OK)
|
||||
THROW(new NCursesFormException (err));
|
||||
}
|
||||
@ -109,7 +109,7 @@ protected:
|
||||
NCursesFieldType* ftype; // Associated field type
|
||||
|
||||
// Error handler
|
||||
inline void OnError (int err) const THROWS(NCursesFormException) {
|
||||
inline void OnError (int err) const THROW2(NCursesException const, NCursesFormException) {
|
||||
if (err != E_OK)
|
||||
THROW(new NCursesFormException (err));
|
||||
}
|
||||
@ -391,7 +391,7 @@ protected:
|
||||
bool with_frame,
|
||||
bool autoDeleteFields);
|
||||
|
||||
inline void OnError (int err) const THROWS(NCursesFormException) {
|
||||
inline void OnError (int err) const THROW2(NCursesException const, NCursesFormException) {
|
||||
if (err != E_OK)
|
||||
THROW(new NCursesFormException (err));
|
||||
}
|
||||
@ -677,7 +677,7 @@ protected:
|
||||
}
|
||||
|
||||
public:
|
||||
NCursesUserForm (NCursesFormField Fields[],
|
||||
NCursesUserForm (NCursesFormField* Fields[],
|
||||
const T* p_UserData = STATIC_CAST(T*)(0),
|
||||
bool with_frame=FALSE,
|
||||
bool autoDelete_Fields=FALSE)
|
||||
@ -686,7 +686,7 @@ public:
|
||||
set_user (const_cast<void *>(p_UserData));
|
||||
};
|
||||
|
||||
NCursesUserForm (NCursesFormField Fields[],
|
||||
NCursesUserForm (NCursesFormField* Fields[],
|
||||
int nlines,
|
||||
int ncols,
|
||||
int begin_y = 0,
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
// * this is for making emacs happy: -*-Mode: C++;-*-
|
||||
/****************************************************************************
|
||||
* Copyright (c) 1998-2003,2005 Free Software Foundation, Inc. *
|
||||
* Copyright (c) 1998-2005,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 *
|
||||
@ -35,7 +35,7 @@
|
||||
#include "cursesm.h"
|
||||
#include "cursesapp.h"
|
||||
|
||||
MODULE_ID("$Id: cursesm.cc,v 1.22 2005/04/02 20:39:05 tom Exp $")
|
||||
MODULE_ID("$Id: cursesm.cc,v 1.23 2011/09/17 22:11:32 tom Exp $")
|
||||
|
||||
NCursesMenuItem::~NCursesMenuItem()
|
||||
{
|
||||
@ -375,33 +375,39 @@ NCursesMenu::On_Menu_Termination()
|
||||
void
|
||||
NCursesMenu::On_Item_Init(NCursesMenuItem& item)
|
||||
{
|
||||
(void) item;
|
||||
}
|
||||
|
||||
void
|
||||
NCursesMenu::On_Item_Termination(NCursesMenuItem& item)
|
||||
{
|
||||
(void) item;
|
||||
}
|
||||
|
||||
void
|
||||
NCursesMenu::On_Request_Denied(int c) const
|
||||
{
|
||||
(void) c;
|
||||
::beep();
|
||||
}
|
||||
|
||||
void
|
||||
NCursesMenu::On_Not_Selectable(int c) const
|
||||
{
|
||||
(void) c;
|
||||
::beep();
|
||||
}
|
||||
|
||||
void
|
||||
NCursesMenu::On_No_Match(int c) const
|
||||
{
|
||||
(void) c;
|
||||
::beep();
|
||||
}
|
||||
|
||||
void
|
||||
NCursesMenu::On_Unknown_Command(int c) const
|
||||
{
|
||||
(void) c;
|
||||
::beep();
|
||||
}
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
// * This makes emacs happy -*-Mode: C++;-*-
|
||||
/****************************************************************************
|
||||
* Copyright (c) 1998-2003,2005 Free Software Foundation, Inc. *
|
||||
* Copyright (c) 1998-2011,2012 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 *
|
||||
@ -31,7 +31,7 @@
|
||||
* Author: Juergen Pfeifer, 1997 *
|
||||
****************************************************************************/
|
||||
|
||||
// $Id: cursesm.h,v 1.25 2005/08/13 18:10:36 tom Exp $
|
||||
// $Id: cursesm.h,v 1.29 2012/12/29 21:48:33 tom Exp $
|
||||
|
||||
#ifndef NCURSES_CURSESM_H_incl
|
||||
#define NCURSES_CURSESM_H_incl 1
|
||||
@ -53,7 +53,7 @@ class NCURSES_IMPEXP NCursesMenuItem
|
||||
protected:
|
||||
ITEM *item;
|
||||
|
||||
inline void OnError (int err) const THROWS(NCursesMenuException) {
|
||||
inline void OnError (int err) const THROW2(NCursesException const, NCursesMenuException) {
|
||||
if (err != E_OK)
|
||||
THROW(new NCursesMenuException (err));
|
||||
}
|
||||
@ -82,6 +82,7 @@ public:
|
||||
NCursesMenuItem(const NCursesMenuItem& rhs)
|
||||
: item(0)
|
||||
{
|
||||
(void) rhs;
|
||||
}
|
||||
|
||||
virtual ~NCursesMenuItem ();
|
||||
@ -252,7 +253,7 @@ protected:
|
||||
bool with_frame,
|
||||
bool autoDeleteItems);
|
||||
|
||||
inline void OnError (int err) const THROWS(NCursesMenuException) {
|
||||
inline void OnError (int err) const THROW2(NCursesException const, NCursesMenuException) {
|
||||
if (err != E_OK)
|
||||
THROW(new NCursesMenuException (this, err));
|
||||
}
|
||||
@ -635,7 +636,7 @@ protected:
|
||||
}
|
||||
|
||||
public:
|
||||
NCursesUserMenu (NCursesMenuItem Items[],
|
||||
NCursesUserMenu (NCursesMenuItem* Items[],
|
||||
const T* p_UserData = STATIC_CAST(T*)(0),
|
||||
bool with_frame=FALSE,
|
||||
bool autoDelete_Items=FALSE)
|
||||
@ -644,7 +645,7 @@ public:
|
||||
set_user (const_cast<void *>(p_UserData));
|
||||
};
|
||||
|
||||
NCursesUserMenu (NCursesMenuItem Items[],
|
||||
NCursesUserMenu (NCursesMenuItem* Items[],
|
||||
int nlines,
|
||||
int ncols,
|
||||
int begin_y = 0,
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
// * this is for making emacs happy: -*-Mode: C++;-*-
|
||||
/****************************************************************************
|
||||
* Copyright (c) 1998-2003,2007 Free Software Foundation, Inc. *
|
||||
* Copyright (c) 1998-2007,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 *
|
||||
@ -35,13 +35,15 @@
|
||||
#include "cursesapp.h"
|
||||
|
||||
#if CPP_HAS_TRY_CATCH && HAVE_IOSTREAM
|
||||
#pragma GCC diagnostic ignored "-Weffc++"
|
||||
#include <iostream>
|
||||
#pragma GCC diagnostic warning "-Weffc++"
|
||||
#else
|
||||
#undef CPP_HAS_TRY_CATCH
|
||||
#define CPP_HAS_TRY_CATCH 0
|
||||
#endif
|
||||
|
||||
MODULE_ID("$Id: cursesmain.cc,v 1.14 2007/04/07 17:10:11 tom Exp $")
|
||||
MODULE_ID("$Id: cursesmain.cc,v 1.15 2013/09/28 20:56:47 tom Exp $")
|
||||
|
||||
#if HAVE_LOCALE_H
|
||||
#include <locale.h>
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
// * This makes emacs happy -*-Mode: C++;-*-
|
||||
/****************************************************************************
|
||||
* Copyright (c) 1998-2007,2008 Free Software Foundation, Inc. *
|
||||
* Copyright (c) 1998-2008,2012 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 *
|
||||
@ -34,7 +34,7 @@
|
||||
#ifndef NCURSES_CURSESP_H_incl
|
||||
#define NCURSES_CURSESP_H_incl 1
|
||||
|
||||
// $Id: cursesp.h,v 1.29 2008/08/16 17:20:23 tom Exp $
|
||||
// $Id: cursesp.h,v 1.30 2012/12/29 21:50:55 tom Exp $
|
||||
|
||||
#include <cursesw.h>
|
||||
|
||||
@ -86,7 +86,7 @@ protected:
|
||||
return result;
|
||||
}
|
||||
|
||||
void OnError (int err) const THROWS(NCursesPanelException)
|
||||
void OnError (int err) const THROW2(NCursesException const, NCursesPanelException)
|
||||
{
|
||||
if (err==ERR)
|
||||
THROW(new NCursesPanelException (this, err));
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
// * this is for making emacs happy: -*-Mode: C++;-*-
|
||||
/****************************************************************************
|
||||
* Copyright (c) 1998-2007,2008 Free Software Foundation, Inc. *
|
||||
* Copyright (c) 1998-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 *
|
||||
@ -33,10 +33,9 @@
|
||||
|
||||
#include "internal.h"
|
||||
|
||||
#include <etip.h>
|
||||
#include <cursesw.h>
|
||||
|
||||
MODULE_ID("$Id: cursespad.cc,v 1.13 2008/08/04 18:59:22 tom Exp $")
|
||||
MODULE_ID("$Id: cursespad.cc,v 1.17 2013/03/30 19:45:36 tom Exp $")
|
||||
|
||||
NCursesPad::NCursesPad(int nlines, int ncols)
|
||||
: NCursesWindow(),
|
||||
@ -220,6 +219,7 @@ void NCursesPad::setSubWindow(NCursesWindow& sub)
|
||||
|
||||
void NCursesFramedPad::OnOperation(int pad_req)
|
||||
{
|
||||
(void) pad_req;
|
||||
NCursesWindow* W = Win();
|
||||
NCursesWindow* W2 = getWindow();
|
||||
|
||||
@ -228,25 +228,45 @@ void NCursesFramedPad::OnOperation(int pad_req)
|
||||
int Height = W->height();
|
||||
int i, row, col, h_len, v_len;
|
||||
|
||||
h_len = (Width*Width + width() - 1)/width();
|
||||
if (h_len==0)
|
||||
int my_width = width();
|
||||
|
||||
if (my_width != 0) {
|
||||
h_len = (Width*Width + my_width - 1) / my_width;
|
||||
if (h_len==0)
|
||||
h_len = 1;
|
||||
if (h_len > Width)
|
||||
h_len = Width;
|
||||
} else {
|
||||
h_len = 1;
|
||||
if (h_len > Width)
|
||||
h_len = Width;
|
||||
}
|
||||
|
||||
v_len = (Height*Height + height() - 1)/height();
|
||||
if (v_len==0)
|
||||
int my_height = height();
|
||||
|
||||
if (my_height != 0) {
|
||||
v_len = (Height*Height + my_height - 1) / my_height;
|
||||
if (v_len==0)
|
||||
v_len = 1;
|
||||
if (v_len > Height)
|
||||
v_len = Height;
|
||||
} else {
|
||||
v_len = 1;
|
||||
if (v_len > Height)
|
||||
v_len = Height;
|
||||
}
|
||||
|
||||
col = (min_col * Width + width() - 1) / width();
|
||||
if (col + h_len > Width)
|
||||
col = Width - h_len;
|
||||
if (my_width != 0) {
|
||||
col = (min_col * Width + my_width - 1) / my_width;
|
||||
if (col + h_len > Width)
|
||||
col = Width - h_len;
|
||||
} else {
|
||||
col = 0;
|
||||
}
|
||||
|
||||
row = (min_row * Height + height() - 1) / height();
|
||||
if (row + v_len > Height)
|
||||
row = Height - v_len;
|
||||
if (my_height != 0) {
|
||||
row = (min_row * Height + my_height - 1) / my_height;
|
||||
if (row + v_len > Height)
|
||||
row = Height - v_len;
|
||||
} else {
|
||||
row = 0;
|
||||
}
|
||||
|
||||
W2->vline(1,Width+1,Height);
|
||||
W2->attron(A_REVERSE);
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
// * this is for making emacs happy: -*-Mode: C++;-*-
|
||||
/****************************************************************************
|
||||
* Copyright (c) 2007-2008,2009 Free Software Foundation, Inc. *
|
||||
* Copyright (c) 2007-2012,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 *
|
||||
@ -42,7 +42,7 @@
|
||||
#include "internal.h"
|
||||
#include "cursesw.h"
|
||||
|
||||
MODULE_ID("$Id: cursesw.cc,v 1.51 2009/03/28 21:31:37 tom Exp $")
|
||||
MODULE_ID("$Id: cursesw.cc,v 1.54 2014/02/01 22:10:42 tom Exp $")
|
||||
|
||||
#define COLORS_NEED_INITIALIZATION -1
|
||||
#define COLORS_NOT_INITIALIZED 0
|
||||
@ -192,7 +192,6 @@ NCursesWindow::NCursesWindow()
|
||||
constructing();
|
||||
|
||||
w = static_cast<WINDOW *>(0);
|
||||
set_keyboard();
|
||||
}
|
||||
|
||||
NCursesWindow::NCursesWindow(int nlines, int ncols, int begin_y, int begin_x)
|
||||
@ -285,12 +284,14 @@ static RIPOFFINIT* prip = R_INIT;
|
||||
NCursesWindow::NCursesWindow(WINDOW *win, int ncols)
|
||||
: w(0), alloced(FALSE), par(0), subwins(0), sib(0)
|
||||
{
|
||||
(void) ncols;
|
||||
initialize();
|
||||
w = win;
|
||||
}
|
||||
|
||||
int _nc_xx_ripoff_init(WINDOW *w, int ncols)
|
||||
{
|
||||
(void) ncols;
|
||||
int res = ERR;
|
||||
|
||||
RIPOFFINIT init = *prip++;
|
||||
@ -400,16 +401,16 @@ NCursesWindow::useColors(void)
|
||||
}
|
||||
}
|
||||
|
||||
short
|
||||
NCURSES_PAIRS_T
|
||||
NCursesWindow::getPair() const
|
||||
{
|
||||
return static_cast<short>(PAIR_NUMBER(getattrs(w)));
|
||||
return static_cast<NCURSES_PAIRS_T>(PAIR_NUMBER(getattrs(w)));
|
||||
}
|
||||
|
||||
short
|
||||
NCURSES_COLOR_T
|
||||
NCursesWindow::getcolor(int getback) const
|
||||
{
|
||||
short fore, back;
|
||||
NCURSES_COLOR_T fore, back;
|
||||
|
||||
if (HaveColors()) {
|
||||
if (::pair_content(getPair(), &fore, &back) == ERR)
|
||||
@ -427,27 +428,27 @@ int NCursesWindow::NumberOfColors()
|
||||
return (HaveColors()) ? COLORS : 1;
|
||||
}
|
||||
|
||||
short
|
||||
NCURSES_PAIRS_T
|
||||
NCursesWindow::getcolor() const
|
||||
{
|
||||
return (HaveColors()) ? getPair() : 0;
|
||||
}
|
||||
|
||||
int
|
||||
NCursesWindow::setpalette(short fore, short back, short pair)
|
||||
NCursesWindow::setpalette(NCURSES_COLOR_T fore, NCURSES_COLOR_T back, NCURSES_PAIRS_T pair)
|
||||
{
|
||||
return (HaveColors()) ? ::init_pair(pair, fore, back) : OK;
|
||||
}
|
||||
|
||||
int
|
||||
NCursesWindow::setpalette(short fore, short back)
|
||||
NCursesWindow::setpalette(NCURSES_COLOR_T fore, NCURSES_COLOR_T back)
|
||||
{
|
||||
return setpalette(fore, back, getPair());
|
||||
}
|
||||
|
||||
|
||||
int
|
||||
NCursesWindow::setcolor(short pair)
|
||||
NCursesWindow::setcolor(NCURSES_PAIRS_T pair)
|
||||
{
|
||||
if (HaveColors()) {
|
||||
if ((pair < 1) || (pair > COLOR_PAIRS))
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
// * This makes emacs happy -*-Mode: C++;-*-
|
||||
// vile:cppmode
|
||||
/****************************************************************************
|
||||
* Copyright (c) 1998-2007,2008 Free Software Foundation, Inc. *
|
||||
* Copyright (c) 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 *
|
||||
@ -31,7 +31,7 @@
|
||||
#ifndef NCURSES_CURSESW_H_incl
|
||||
#define NCURSES_CURSESW_H_incl 1
|
||||
|
||||
// $Id: cursesw.h,v 1.48 2008/01/19 21:09:10 tom Exp $
|
||||
// $Id: cursesw.h,v 1.50 2014/02/01 22:17:37 tom Exp $
|
||||
|
||||
#include <etip.h>
|
||||
|
||||
@ -118,7 +118,7 @@ inline int UNDEF(box)(WINDOW *win, int v, int h) { return box(win, v, h); }
|
||||
#endif
|
||||
|
||||
#ifdef chgat
|
||||
inline int UNDEF(chgat)(int n, attr_t attr, short color, const void *opts) {
|
||||
inline int UNDEF(chgat)(int n, attr_t attr, NCURSES_PAIRS_T color, const void *opts) {
|
||||
return chgat(n, attr, color, opts); }
|
||||
#undef chgat
|
||||
#define chgat UNDEF(chgat)
|
||||
@ -151,7 +151,7 @@ inline int UNDEF(clrtoeol)() { return clrtoeol(); }
|
||||
#endif
|
||||
|
||||
#ifdef color_set
|
||||
inline chtype UNDEF(color_set)(short p, void* opts) { return color_set(p, opts); }
|
||||
inline chtype UNDEF(color_set)(NCURSES_PAIRS_T p, void* opts) { return color_set(p, opts); }
|
||||
#undef color_set
|
||||
#define color_set UNDEF(color_set)
|
||||
#endif
|
||||
@ -361,7 +361,7 @@ inline int UNDEF(mvaddstr)(int y, int x, const char * str)
|
||||
|
||||
#ifdef mvchgat
|
||||
inline int UNDEF(mvchgat)(int y, int x, int n,
|
||||
attr_t attr, short color, const void *opts) {
|
||||
attr_t attr, NCURSES_PAIRS_T color, const void *opts) {
|
||||
return mvchgat(y, x, n, attr, color, opts); }
|
||||
#undef mvchgat
|
||||
#define mvchgat UNDEF(mvchgat)
|
||||
@ -463,7 +463,7 @@ inline int UNDEF(mvwaddstr)(WINDOW *win, int y, int x, const char * str)
|
||||
|
||||
#ifdef mvwchgat
|
||||
inline int UNDEF(mvwchgat)(WINDOW *win, int y, int x, int n,
|
||||
attr_t attr, short color, const void *opts) {
|
||||
attr_t attr, NCURSES_PAIRS_T color, const void *opts) {
|
||||
return mvwchgat(win, y, x, n, attr, color, opts); }
|
||||
#undef mvwchgat
|
||||
#define mvwchgat UNDEF(mvwchgat)
|
||||
@ -763,10 +763,10 @@ private:
|
||||
|
||||
void set_keyboard();
|
||||
|
||||
short getcolor(int getback) const;
|
||||
short getPair() const;
|
||||
NCURSES_COLOR_T getcolor(int getback) const;
|
||||
NCURSES_PAIRS_T getPair() const;
|
||||
|
||||
static int setpalette(short fore, short back, short pair);
|
||||
static int setpalette(NCURSES_COLOR_T fore, NCURSES_COLOR_T back, NCURSES_PAIRS_T pair);
|
||||
static int colorInitialized;
|
||||
|
||||
// This private constructor is only used during the initialization
|
||||
@ -896,19 +896,19 @@ public:
|
||||
int maxy() const { return getmaxy(w) == ERR ? ERR : getmaxy(w)-1; }
|
||||
// Largest y coord in window
|
||||
|
||||
short getcolor() const;
|
||||
NCURSES_PAIRS_T getcolor() const;
|
||||
// Actual color pair
|
||||
|
||||
short foreground() const { return getcolor(0); }
|
||||
NCURSES_COLOR_T foreground() const { return getcolor(0); }
|
||||
// Actual foreground color
|
||||
|
||||
short background() const { return getcolor(1); }
|
||||
NCURSES_COLOR_T background() const { return getcolor(1); }
|
||||
// Actual background color
|
||||
|
||||
int setpalette(short fore, short back);
|
||||
int setpalette(NCURSES_COLOR_T fore, NCURSES_COLOR_T back);
|
||||
// Set color palette entry
|
||||
|
||||
int setcolor(short pair);
|
||||
int setcolor(NCURSES_PAIRS_T pair);
|
||||
// Set actually used palette entry
|
||||
|
||||
// -------------------------------------------------------------------------
|
||||
@ -1107,18 +1107,18 @@ public:
|
||||
chtype attrget() { return ::getattrs(w); }
|
||||
// Get the window attributes;
|
||||
|
||||
int color_set(short color_pair_number, void* opts=NULL) {
|
||||
int color_set(NCURSES_PAIRS_T color_pair_number, void* opts=NULL) {
|
||||
return ::wcolor_set(w, color_pair_number, opts); }
|
||||
// Set the window color attribute;
|
||||
|
||||
int chgat(int n, attr_t attr, short color, const void *opts=NULL) {
|
||||
int chgat(int n, attr_t attr, NCURSES_PAIRS_T color, const void *opts=NULL) {
|
||||
return ::wchgat(w, n, attr, color, opts); }
|
||||
// Change the attributes of the next n characters in the current line. If
|
||||
// n is negative or greater than the number of remaining characters in the
|
||||
// line, the attributes will be changed up to the end of the line.
|
||||
|
||||
int chgat(int y, int x,
|
||||
int n, attr_t attr, short color, const void *opts=NULL) {
|
||||
int n, attr_t attr, NCURSES_PAIRS_T color, const void *opts=NULL) {
|
||||
return ::mvwchgat(w, y, x, n, attr, color, opts); }
|
||||
// Move the cursor to the requested position and then perform chgat() as
|
||||
// described above.
|
||||
@ -1438,16 +1438,19 @@ protected:
|
||||
// The driver translates the keystroke c into an Pad_Request
|
||||
|
||||
virtual void OnUnknownOperation(int pad_req) {
|
||||
(void) pad_req;
|
||||
::beep();
|
||||
}
|
||||
// This is called if the driver returns an unknown op-code
|
||||
|
||||
virtual void OnNavigationError(int pad_req) {
|
||||
(void) pad_req;
|
||||
::beep();
|
||||
}
|
||||
// This is called if a navigation request couldn't be satisfied
|
||||
|
||||
virtual void OnOperation(int pad_req) {
|
||||
(void) pad_req;
|
||||
};
|
||||
// OnOperation is called if a Pad_Operation was executed and just before
|
||||
// the refresh() operation is done.
|
||||
@ -1542,11 +1545,15 @@ public:
|
||||
}
|
||||
|
||||
void setWindow(NCursesWindow& view, int v_grid = 1, int h_grid = 1) {
|
||||
(void) view;
|
||||
(void) v_grid;
|
||||
(void) h_grid;
|
||||
err_handler("Operation not allowed");
|
||||
}
|
||||
// Disable this call; the viewport is already defined
|
||||
|
||||
void setSubWindow(NCursesWindow& sub) {
|
||||
(void) sub;
|
||||
err_handler("Operation not allowed");
|
||||
}
|
||||
// Disable this call; the viewport subwindow is already defined
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
// * this is for making emacs happy: -*-Mode: C++;-*-
|
||||
/****************************************************************************
|
||||
* Copyright (c) 1998-2003,2005 Free Software Foundation, Inc. *
|
||||
* Copyright (c) 1998-2005,2012 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 *
|
||||
@ -35,14 +35,15 @@
|
||||
#include "cursslk.h"
|
||||
#include "cursesapp.h"
|
||||
|
||||
MODULE_ID("$Id: cursslk.cc,v 1.15 2005/08/06 22:12:36 tom Exp $")
|
||||
MODULE_ID("$Id: cursslk.cc,v 1.16 2012/02/23 10:41:56 tom Exp $")
|
||||
|
||||
Soft_Label_Key_Set::Soft_Label_Key&
|
||||
Soft_Label_Key_Set::Soft_Label_Key::operator=(char *text)
|
||||
{
|
||||
delete[] label;
|
||||
label = new char[1 + ::strlen(text)];
|
||||
(::strcpy)(label,text);
|
||||
size_t need = 1 + ::strlen(text);
|
||||
label = new char[need];
|
||||
::_nc_STRCPY(label,text,need);
|
||||
return *this;
|
||||
}
|
||||
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
// * This makes emacs happy -*-Mode: C++;-*-
|
||||
/****************************************************************************
|
||||
* Copyright (c) 1998-2007,2008 Free Software Foundation, Inc. *
|
||||
* Copyright (c) 1998-2011,2012 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 *
|
||||
@ -35,7 +35,7 @@
|
||||
* Demo code for NCursesMenu and NCursesForm written by
|
||||
* Juergen Pfeifer
|
||||
*
|
||||
* $Id: demo.cc,v 1.39 2008/12/07 02:07:34 juergen Exp $
|
||||
* $Id: demo.cc,v 1.41 2012/02/23 10:41:56 tom Exp $
|
||||
*/
|
||||
|
||||
#include "internal.h"
|
||||
@ -220,6 +220,7 @@ private:
|
||||
int chk;
|
||||
protected:
|
||||
bool field_check(NCursesFormField& f) {
|
||||
(void) f;
|
||||
return TRUE;
|
||||
}
|
||||
bool char_check(int c) {
|
||||
@ -319,7 +320,7 @@ public:
|
||||
for(int i=1; i <= S->labels(); i++) {
|
||||
char buf[8];
|
||||
assert(i < 100);
|
||||
::sprintf(buf, "Frm%02d", i);
|
||||
::_nc_SPRINTF(buf, _nc_SLIMIT(sizeof(buf)) "Frm%02d", i);
|
||||
(*S)[i] = buf; // Text
|
||||
(*S)[i] = Soft_Label_Key_Set::Soft_Label_Key::Left; // Justification
|
||||
}
|
||||
@ -539,7 +540,7 @@ void TestApplication::init_labels(Soft_Label_Key_Set& S) const
|
||||
for(int i=1; i <= S.labels(); i++) {
|
||||
char buf[8];
|
||||
assert(i < 100);
|
||||
::sprintf(buf, "Key%02d", i);
|
||||
::_nc_SPRINTF(buf, _nc_SLIMIT(sizeof(buf)) "Key%02d", i);
|
||||
S[i] = buf; // Text
|
||||
S[i] = Soft_Label_Key_Set::Soft_Label_Key::Left; // Justification
|
||||
}
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
// * This makes emacs happy -*-Mode: C++;-*-
|
||||
/****************************************************************************
|
||||
* Copyright (c) 1998-2007,2008 Free Software Foundation, Inc. *
|
||||
* Copyright (c) 1998-2011,2012 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 *
|
||||
@ -31,7 +31,7 @@
|
||||
* Author: Juergen Pfeifer, 1997 *
|
||||
****************************************************************************/
|
||||
|
||||
// $Id: etip.h.in,v 1.37 2008/08/30 19:27:32 tom Exp $
|
||||
// $Id: etip.h.in,v 1.39 2012/12/29 21:50:44 tom Exp $
|
||||
|
||||
#ifndef NCURSES_ETIP_H_incl
|
||||
#define NCURSES_ETIP_H_incl 1
|
||||
@ -184,7 +184,7 @@ public:
|
||||
|
||||
NCursesPanelException (const char *msg, int err) :
|
||||
NCursesException (msg, err),
|
||||
p (NULL)
|
||||
p (0)
|
||||
{};
|
||||
|
||||
NCursesPanelException (const NCursesPanel* panel,
|
||||
@ -196,7 +196,7 @@ public:
|
||||
|
||||
NCursesPanelException (int err) :
|
||||
NCursesException ("panel library error", err),
|
||||
p (NULL)
|
||||
p (0)
|
||||
{};
|
||||
|
||||
NCursesPanelException (const NCursesPanel* panel,
|
||||
@ -235,7 +235,7 @@ public:
|
||||
|
||||
NCursesMenuException (const char *msg, int err) :
|
||||
NCursesException (msg, err),
|
||||
m (NULL)
|
||||
m (0)
|
||||
{};
|
||||
|
||||
NCursesMenuException (const NCursesMenu* menu,
|
||||
@ -247,7 +247,7 @@ public:
|
||||
|
||||
NCursesMenuException (int err) :
|
||||
NCursesException ("menu library error", err),
|
||||
m (NULL)
|
||||
m (0)
|
||||
{};
|
||||
|
||||
NCursesMenuException (const NCursesMenu* menu,
|
||||
@ -286,7 +286,7 @@ public:
|
||||
|
||||
NCursesFormException (const char *msg, int err) :
|
||||
NCursesException (msg, err),
|
||||
f (NULL)
|
||||
f (0)
|
||||
{};
|
||||
|
||||
NCursesFormException (const NCursesForm* form,
|
||||
@ -298,7 +298,7 @@ public:
|
||||
|
||||
NCursesFormException (int err) :
|
||||
NCursesException ("form library error", err),
|
||||
f (NULL)
|
||||
f (0)
|
||||
{};
|
||||
|
||||
NCursesFormException (const NCursesForm* form,
|
||||
@ -367,11 +367,13 @@ inline void THROW(const NCursesException *e) {
|
||||
#define NCURSES_CPP_TRY /* nothing */
|
||||
#define NCURSES_CPP_CATCH(e) if (false)
|
||||
#define THROWS(s) /* nothing */
|
||||
#define THROW2(s,t) /* nothing */
|
||||
#elif CPP_HAS_TRY_CATCH
|
||||
throw *e;
|
||||
#define NCURSES_CPP_TRY try
|
||||
#define NCURSES_CPP_CATCH(e) catch(e)
|
||||
#define THROWS(s) throw(s)
|
||||
#define THROW2(s,t) throw(s,t)
|
||||
#endif
|
||||
}
|
||||
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
// * This makes emacs happy -*-Mode: C++;-*-
|
||||
/****************************************************************************
|
||||
* Copyright (c) 1998-2007,2008 Free Software Foundation, Inc. *
|
||||
* Copyright (c) 1998-2008,2012 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 *
|
||||
@ -31,7 +31,7 @@
|
||||
* Author: Juergen Pfeifer, 1997 *
|
||||
****************************************************************************/
|
||||
|
||||
// $Id: internal.h,v 1.17 2008/12/07 02:07:34 juergen Exp $
|
||||
// $Id: internal.h,v 1.18 2012/02/23 10:41:56 tom Exp $
|
||||
|
||||
#ifndef NCURSES_CPLUS_INTERNAL_H
|
||||
#define NCURSES_CPLUS_INTERNAL_H 1
|
||||
@ -62,4 +62,6 @@
|
||||
#define NULL 0
|
||||
#endif
|
||||
|
||||
#include <nc_string.h>
|
||||
|
||||
#endif /* NCURSES_CPLUS_INTERNAL_H */
|
||||
|
||||
21
c++/modules
21
c++/modules
@ -1,7 +1,7 @@
|
||||
# Program modules
|
||||
# $Id: modules,v 1.7 2006/12/24 00:53:08 tom Exp $
|
||||
# $Id: modules,v 1.11 2013/03/30 19:41:11 tom Exp $
|
||||
##############################################################################
|
||||
# Copyright (c) 1998,2006 Free Software Foundation, Inc. #
|
||||
# Copyright (c) 1998-2006,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"), #
|
||||
@ -32,14 +32,13 @@
|
||||
#
|
||||
|
||||
@ base
|
||||
cursesf c++ $(srcdir) $(cursesf_h) $(cursesapp_h)
|
||||
cursesm c++ $(srcdir) $(cursesm_h) $(cursesapp_h)
|
||||
cursesp c++ $(srcdir) $(cursesp_h)
|
||||
cursesw c++ $(srcdir) $(cursesw_h)
|
||||
cursespad c++ $(srcdir) $(cursesw_h)
|
||||
cursslk c++ $(srcdir) $(cursslk_h) $(cursesapp_h)
|
||||
cursesapp c++ $(srcdir) $(cursesapp_h)
|
||||
cursesmain c++ $(srcdir) $(cursesapp_h)
|
||||
demo c++ $(srcdir) $(cursesf_h) $(cursesm_h) $(cursesapp_h)
|
||||
cursesf c++ $(srcdir) $(internal_h) $(cursesf_h) $(cursesapp_h)
|
||||
cursesm c++ $(srcdir) $(internal_h) $(cursesm_h) $(cursesapp_h)
|
||||
cursesw c++ $(srcdir) $(internal_h) $(cursesw_h)
|
||||
cursespad c++ $(srcdir) $(internal_h) $(cursesw_h)
|
||||
cursesp c++ $(srcdir) $(internal_h) $(cursesp_h)
|
||||
cursslk c++ $(srcdir) $(internal_h) $(cursesapp_h)
|
||||
cursesapp c++ $(srcdir) $(internal_h) $(cursesapp_h)
|
||||
cursesmain c++ $(srcdir) $(internal_h) $(cursesapp_h) $(INCDIR)/nc_alloc.h
|
||||
|
||||
# vile:makemode
|
||||
|
||||
350
config.guess
vendored
350
config.guess
vendored
@ -1,14 +1,12 @@
|
||||
#! /bin/sh
|
||||
# Attempt to guess a canonical system name.
|
||||
# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
|
||||
# 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
|
||||
# Free Software Foundation, Inc.
|
||||
# Copyright 1992-2013 Free Software Foundation, Inc.
|
||||
|
||||
timestamp='2010-09-24'
|
||||
timestamp='2013-06-10'
|
||||
|
||||
# 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 2 of the License, or
|
||||
# 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
|
||||
@ -17,26 +15,22 @@ timestamp='2010-09-24'
|
||||
# General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License
|
||||
# along with this program; if not, write to the Free Software
|
||||
# Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
|
||||
# 02110-1301, USA.
|
||||
# along with this program; if not, see <http://www.gnu.org/licenses/>.
|
||||
#
|
||||
# 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.
|
||||
|
||||
|
||||
# Originally written by Per Bothner. Please send patches (context
|
||||
# diff format) to <config-patches@gnu.org> and include a ChangeLog
|
||||
# entry.
|
||||
# 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").
|
||||
#
|
||||
# This script attempts to guess a canonical system name similar to
|
||||
# config.sub. If it succeeds, it prints the system name on stdout, and
|
||||
# exits with 0. Otherwise, it exits with 1.
|
||||
# Originally written by Per Bothner.
|
||||
#
|
||||
# You can get the latest version of this script from:
|
||||
# http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.guess;hb=HEAD
|
||||
#
|
||||
# Please send patches with a ChangeLog entry to config-patches@gnu.org.
|
||||
|
||||
|
||||
me=`echo "$0" | sed -e 's,.*/,,'`
|
||||
|
||||
@ -56,9 +50,7 @@ version="\
|
||||
GNU config.guess ($timestamp)
|
||||
|
||||
Originally written by Per Bothner.
|
||||
Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
|
||||
2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free
|
||||
Software Foundation, Inc.
|
||||
Copyright 1992-2013 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."
|
||||
@ -92,7 +84,7 @@ if test $# != 0; then
|
||||
exit 1
|
||||
fi
|
||||
|
||||
trap 'exit 1' HUP INT TERM
|
||||
trap 'exit 1' 1 2 15
|
||||
|
||||
# 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
|
||||
@ -106,7 +98,7 @@ trap 'exit 1' HUP INT TERM
|
||||
|
||||
set_cc_for_build='
|
||||
trap "exitcode=\$?; (rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null) && exit \$exitcode" 0 ;
|
||||
trap "rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null; exit 1" HUP INT PIPE TERM ;
|
||||
trap "rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null; exit 1" 1 2 13 15 ;
|
||||
: ${TMPDIR=/tmp} ;
|
||||
{ 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) ; } ||
|
||||
@ -140,12 +132,33 @@ 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/*)
|
||||
# If the system lacks a compiler, then just pick glibc.
|
||||
# We could probably try harder.
|
||||
LIBC=gnu
|
||||
|
||||
eval $set_cc_for_build
|
||||
cat <<-EOF > $dummy.c
|
||||
#include <features.h>
|
||||
#if defined(__UCLIBC__)
|
||||
LIBC=uclibc
|
||||
#elif defined(__dietlibc__)
|
||||
LIBC=dietlibc
|
||||
#else
|
||||
LIBC=gnu
|
||||
#endif
|
||||
EOF
|
||||
eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep '^LIBC'`
|
||||
;;
|
||||
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 tupples: *-*-netbsdelf*, *-*-netbsdaout*,
|
||||
# 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
|
||||
@ -202,6 +215,10 @@ case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in
|
||||
# CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM is used.
|
||||
echo "${machine}-${os}${release}"
|
||||
exit ;;
|
||||
*:Bitrig:*:*)
|
||||
UNAME_MACHINE_ARCH=`arch | sed 's/Bitrig.//'`
|
||||
echo ${UNAME_MACHINE_ARCH}-unknown-bitrig${UNAME_RELEASE}
|
||||
exit ;;
|
||||
*:OpenBSD:*:*)
|
||||
UNAME_MACHINE_ARCH=`arch | sed 's/OpenBSD.//'`
|
||||
echo ${UNAME_MACHINE_ARCH}-unknown-openbsd${UNAME_RELEASE}
|
||||
@ -220,10 +237,10 @@ case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in
|
||||
exit ;;
|
||||
alpha:OSF1:*:*)
|
||||
case $UNAME_RELEASE in
|
||||
*4.0)
|
||||
*4.0)
|
||||
UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $3}'`
|
||||
;;
|
||||
*5.*)
|
||||
*5.*)
|
||||
UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $4}'`
|
||||
;;
|
||||
esac
|
||||
@ -270,7 +287,10 @@ case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in
|
||||
# A Xn.n version is an unreleased experimental baselevel.
|
||||
# 1.2 uses "1.2" for uname -r.
|
||||
echo ${UNAME_MACHINE}-dec-osf`echo ${UNAME_RELEASE} | sed -e 's/^[PVTX]//' | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'`
|
||||
exit ;;
|
||||
# Reset EXIT trap before exiting to avoid spurious non-zero exit code.
|
||||
exitcode=$?
|
||||
trap '' 0
|
||||
exit $exitcode ;;
|
||||
Alpha\ *:Windows_NT*:*)
|
||||
# How do we know it's Interix rather than the generic POSIX subsystem?
|
||||
# Should we change UNAME_MACHINE based on the output of uname instead
|
||||
@ -301,7 +321,7 @@ case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in
|
||||
arm:RISC*:1.[012]*:*|arm:riscix:1.[012]*:*)
|
||||
echo arm-acorn-riscix${UNAME_RELEASE}
|
||||
exit ;;
|
||||
arm:riscos:*:*|arm:RISCOS:*:*)
|
||||
arm*:riscos:*:*|arm*:RISCOS:*:*)
|
||||
echo arm-unknown-riscos
|
||||
exit ;;
|
||||
SR2?01:HI-UX/MPP:*:* | SR8000:HI-UX/MPP:*:*)
|
||||
@ -326,8 +346,8 @@ case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in
|
||||
sparc) echo sparc-icl-nx7; exit ;;
|
||||
esac ;;
|
||||
s390x:SunOS:*:*)
|
||||
echo ${UNAME_MACHINE}-ibm-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'`
|
||||
exit ;;
|
||||
echo ${UNAME_MACHINE}-ibm-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'`
|
||||
exit ;;
|
||||
sun4H:SunOS:5.*:*)
|
||||
echo sparc-hal-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'`
|
||||
exit ;;
|
||||
@ -495,7 +515,7 @@ EOF
|
||||
else
|
||||
echo i586-dg-dgux${UNAME_RELEASE}
|
||||
fi
|
||||
exit ;;
|
||||
exit ;;
|
||||
M88*:DolphinOS:*:*) # DolphinOS (SVR3)
|
||||
echo m88k-dolphin-sysv3
|
||||
exit ;;
|
||||
@ -597,50 +617,50 @@ EOF
|
||||
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" ;;
|
||||
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
|
||||
esac ;;
|
||||
esac
|
||||
fi
|
||||
if [ "${HP_ARCH}" = "" ]; then
|
||||
eval $set_cc_for_build
|
||||
sed 's/^ //' << EOF >$dummy.c
|
||||
sed 's/^ //' << EOF >$dummy.c
|
||||
|
||||
#define _HPUX_SOURCE
|
||||
#include <stdlib.h>
|
||||
#include <unistd.h>
|
||||
#define _HPUX_SOURCE
|
||||
#include <stdlib.h>
|
||||
#include <unistd.h>
|
||||
|
||||
int main ()
|
||||
{
|
||||
#if defined(_SC_KERNEL_BITS)
|
||||
long bits = sysconf(_SC_KERNEL_BITS);
|
||||
#endif
|
||||
long cpu = sysconf (_SC_CPU_VERSION);
|
||||
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);
|
||||
}
|
||||
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
|
||||
@ -789,21 +809,26 @@ EOF
|
||||
echo ${UNAME_MACHINE}-unknown-bsdi${UNAME_RELEASE}
|
||||
exit ;;
|
||||
*:FreeBSD:*:*)
|
||||
case ${UNAME_MACHINE} in
|
||||
pc98)
|
||||
echo i386-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;;
|
||||
UNAME_PROCESSOR=`/usr/bin/uname -p`
|
||||
case ${UNAME_PROCESSOR} in
|
||||
amd64)
|
||||
echo x86_64-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;;
|
||||
*)
|
||||
echo ${UNAME_MACHINE}-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;;
|
||||
echo ${UNAME_PROCESSOR}-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;;
|
||||
esac
|
||||
exit ;;
|
||||
i*:CYGWIN*:*)
|
||||
echo ${UNAME_MACHINE}-pc-cygwin
|
||||
exit ;;
|
||||
*:MINGW64*:*)
|
||||
echo ${UNAME_MACHINE}-pc-mingw64
|
||||
exit ;;
|
||||
*:MINGW*:*)
|
||||
echo ${UNAME_MACHINE}-pc-mingw32
|
||||
exit ;;
|
||||
i*:MSYS*:*)
|
||||
echo ${UNAME_MACHINE}-pc-msys
|
||||
exit ;;
|
||||
i*:windows32*:*)
|
||||
# uname -m includes "-pc" on this system.
|
||||
echo ${UNAME_MACHINE}-mingw32
|
||||
@ -820,8 +845,8 @@ EOF
|
||||
echo x86_64-unknown-interix${UNAME_RELEASE}
|
||||
exit ;;
|
||||
IA64)
|
||||
echo ia64-unknown-interix${UNAME_RELEASE}
|
||||
exit ;;
|
||||
echo ia64-unknown-interix${UNAME_RELEASE}
|
||||
exit ;;
|
||||
esac ;;
|
||||
[345]86:Windows_95:* | [345]86:Windows_98:* | [345]86:Windows_NT:*)
|
||||
echo i${UNAME_MACHINE}-pc-mks
|
||||
@ -849,70 +874,81 @@ EOF
|
||||
exit ;;
|
||||
*:GNU:*:*)
|
||||
# the GNU system
|
||||
echo `echo ${UNAME_MACHINE}|sed -e 's,[-/].*$,,'`-unknown-gnu`echo ${UNAME_RELEASE}|sed -e 's,/.*$,,'`
|
||||
echo `echo ${UNAME_MACHINE}|sed -e 's,[-/].*$,,'`-unknown-${LIBC}`echo ${UNAME_RELEASE}|sed -e 's,/.*$,,'`
|
||||
exit ;;
|
||||
*:GNU/*:*:*)
|
||||
# other systems with GNU libc and userland
|
||||
echo ${UNAME_MACHINE}-unknown-`echo ${UNAME_SYSTEM} | sed 's,^[^/]*/,,' | tr '[A-Z]' '[a-z]'``echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`-gnu
|
||||
echo ${UNAME_MACHINE}-unknown-`echo ${UNAME_SYSTEM} | sed 's,^[^/]*/,,' | tr '[A-Z]' '[a-z]'``echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`-${LIBC}
|
||||
exit ;;
|
||||
i*86:Minix:*:*)
|
||||
echo ${UNAME_MACHINE}-pc-minix
|
||||
exit ;;
|
||||
aarch64:Linux:*:*)
|
||||
echo ${UNAME_MACHINE}-unknown-linux-${LIBC}
|
||||
exit ;;
|
||||
aarch64_be:Linux:*:*)
|
||||
UNAME_MACHINE=aarch64_be
|
||||
echo ${UNAME_MACHINE}-unknown-linux-${LIBC}
|
||||
exit ;;
|
||||
alpha:Linux:*:*)
|
||||
case `sed -n '/^cpu model/s/^.*: \(.*\)/\1/p' < /proc/cpuinfo` 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 ;;
|
||||
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="libc1" ; else LIBC="" ; fi
|
||||
echo ${UNAME_MACHINE}-unknown-linux-gnu${LIBC}
|
||||
if test "$?" = 0 ; then LIBC="gnulibc1" ; fi
|
||||
echo ${UNAME_MACHINE}-unknown-linux-${LIBC}
|
||||
exit ;;
|
||||
arc:Linux:*:* | arceb:Linux:*:*)
|
||||
echo ${UNAME_MACHINE}-unknown-linux-${LIBC}
|
||||
exit ;;
|
||||
arm*:Linux:*:*)
|
||||
eval $set_cc_for_build
|
||||
if echo __ARM_EABI__ | $CC_FOR_BUILD -E - 2>/dev/null | \
|
||||
grep -q __ARM_EABI__
|
||||
if echo __ARM_EABI__ | $CC_FOR_BUILD -E - 2>/dev/null \
|
||||
| grep -q __ARM_EABI__
|
||||
then
|
||||
echo ${UNAME_MACHINE}-unknown-linux-gnu
|
||||
echo ${UNAME_MACHINE}-unknown-linux-${LIBC}
|
||||
else
|
||||
echo ${UNAME_MACHINE}-unknown-linux-gnueabi
|
||||
if echo __ARM_PCS_VFP | $CC_FOR_BUILD -E - 2>/dev/null \
|
||||
| grep -q __ARM_PCS_VFP
|
||||
then
|
||||
echo ${UNAME_MACHINE}-unknown-linux-${LIBC}eabi
|
||||
else
|
||||
echo ${UNAME_MACHINE}-unknown-linux-${LIBC}eabihf
|
||||
fi
|
||||
fi
|
||||
exit ;;
|
||||
avr32*:Linux:*:*)
|
||||
echo ${UNAME_MACHINE}-unknown-linux-gnu
|
||||
echo ${UNAME_MACHINE}-unknown-linux-${LIBC}
|
||||
exit ;;
|
||||
cris:Linux:*:*)
|
||||
echo cris-axis-linux-gnu
|
||||
echo ${UNAME_MACHINE}-axis-linux-${LIBC}
|
||||
exit ;;
|
||||
crisv32:Linux:*:*)
|
||||
echo crisv32-axis-linux-gnu
|
||||
echo ${UNAME_MACHINE}-axis-linux-${LIBC}
|
||||
exit ;;
|
||||
frv:Linux:*:*)
|
||||
echo frv-unknown-linux-gnu
|
||||
echo ${UNAME_MACHINE}-unknown-linux-${LIBC}
|
||||
exit ;;
|
||||
hexagon:Linux:*:*)
|
||||
echo ${UNAME_MACHINE}-unknown-linux-${LIBC}
|
||||
exit ;;
|
||||
i*86:Linux:*:*)
|
||||
LIBC=gnu
|
||||
eval $set_cc_for_build
|
||||
sed 's/^ //' << EOF >$dummy.c
|
||||
#ifdef __dietlibc__
|
||||
LIBC=dietlibc
|
||||
#endif
|
||||
EOF
|
||||
eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep '^LIBC'`
|
||||
echo "${UNAME_MACHINE}-pc-linux-${LIBC}"
|
||||
echo ${UNAME_MACHINE}-pc-linux-${LIBC}
|
||||
exit ;;
|
||||
ia64:Linux:*:*)
|
||||
echo ${UNAME_MACHINE}-unknown-linux-gnu
|
||||
echo ${UNAME_MACHINE}-unknown-linux-${LIBC}
|
||||
exit ;;
|
||||
m32r*:Linux:*:*)
|
||||
echo ${UNAME_MACHINE}-unknown-linux-gnu
|
||||
echo ${UNAME_MACHINE}-unknown-linux-${LIBC}
|
||||
exit ;;
|
||||
m68*:Linux:*:*)
|
||||
echo ${UNAME_MACHINE}-unknown-linux-gnu
|
||||
echo ${UNAME_MACHINE}-unknown-linux-${LIBC}
|
||||
exit ;;
|
||||
mips:Linux:*:* | mips64:Linux:*:*)
|
||||
eval $set_cc_for_build
|
||||
@ -931,54 +967,63 @@ EOF
|
||||
#endif
|
||||
EOF
|
||||
eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep '^CPU'`
|
||||
test x"${CPU}" != x && { echo "${CPU}-unknown-linux-gnu"; exit; }
|
||||
test x"${CPU}" != x && { echo "${CPU}-unknown-linux-${LIBC}"; exit; }
|
||||
;;
|
||||
or1k:Linux:*:*)
|
||||
echo ${UNAME_MACHINE}-unknown-linux-${LIBC}
|
||||
exit ;;
|
||||
or32:Linux:*:*)
|
||||
echo or32-unknown-linux-gnu
|
||||
exit ;;
|
||||
echo ${UNAME_MACHINE}-unknown-linux-${LIBC}
|
||||
exit ;;
|
||||
padre:Linux:*:*)
|
||||
echo sparc-unknown-linux-gnu
|
||||
echo sparc-unknown-linux-${LIBC}
|
||||
exit ;;
|
||||
parisc64:Linux:*:* | hppa64:Linux:*:*)
|
||||
echo hppa64-unknown-linux-gnu
|
||||
exit ;;
|
||||
echo hppa64-unknown-linux-${LIBC}
|
||||
exit ;;
|
||||
parisc:Linux:*:* | hppa:Linux:*:*)
|
||||
# Look for CPU level
|
||||
case `grep '^cpu[^a-z]*:' /proc/cpuinfo 2>/dev/null | cut -d' ' -f2` in
|
||||
PA7*) echo hppa1.1-unknown-linux-gnu ;;
|
||||
PA8*) echo hppa2.0-unknown-linux-gnu ;;
|
||||
*) echo hppa-unknown-linux-gnu ;;
|
||||
PA7*) echo hppa1.1-unknown-linux-${LIBC} ;;
|
||||
PA8*) echo hppa2.0-unknown-linux-${LIBC} ;;
|
||||
*) echo hppa-unknown-linux-${LIBC} ;;
|
||||
esac
|
||||
exit ;;
|
||||
ppc64:Linux:*:*)
|
||||
echo powerpc64-unknown-linux-gnu
|
||||
echo powerpc64-unknown-linux-${LIBC}
|
||||
exit ;;
|
||||
ppc:Linux:*:*)
|
||||
echo powerpc-unknown-linux-gnu
|
||||
echo powerpc-unknown-linux-${LIBC}
|
||||
exit ;;
|
||||
ppc64le:Linux:*:*)
|
||||
echo powerpc64le-unknown-linux-${LIBC}
|
||||
exit ;;
|
||||
ppcle:Linux:*:*)
|
||||
echo powerpcle-unknown-linux-${LIBC}
|
||||
exit ;;
|
||||
s390:Linux:*:* | s390x:Linux:*:*)
|
||||
echo ${UNAME_MACHINE}-ibm-linux
|
||||
echo ${UNAME_MACHINE}-ibm-linux-${LIBC}
|
||||
exit ;;
|
||||
sh64*:Linux:*:*)
|
||||
echo ${UNAME_MACHINE}-unknown-linux-gnu
|
||||
echo ${UNAME_MACHINE}-unknown-linux-${LIBC}
|
||||
exit ;;
|
||||
sh*:Linux:*:*)
|
||||
echo ${UNAME_MACHINE}-unknown-linux-gnu
|
||||
echo ${UNAME_MACHINE}-unknown-linux-${LIBC}
|
||||
exit ;;
|
||||
sparc:Linux:*:* | sparc64:Linux:*:*)
|
||||
echo ${UNAME_MACHINE}-unknown-linux-gnu
|
||||
echo ${UNAME_MACHINE}-unknown-linux-${LIBC}
|
||||
exit ;;
|
||||
tile*:Linux:*:*)
|
||||
echo ${UNAME_MACHINE}-tilera-linux-gnu
|
||||
echo ${UNAME_MACHINE}-unknown-linux-${LIBC}
|
||||
exit ;;
|
||||
vax:Linux:*:*)
|
||||
echo ${UNAME_MACHINE}-dec-linux-gnu
|
||||
echo ${UNAME_MACHINE}-dec-linux-${LIBC}
|
||||
exit ;;
|
||||
x86_64:Linux:*:*)
|
||||
echo x86_64-unknown-linux-gnu
|
||||
echo ${UNAME_MACHINE}-unknown-linux-${LIBC}
|
||||
exit ;;
|
||||
xtensa*:Linux:*:*)
|
||||
echo ${UNAME_MACHINE}-unknown-linux-gnu
|
||||
echo ${UNAME_MACHINE}-unknown-linux-${LIBC}
|
||||
exit ;;
|
||||
i*86:DYNIX/ptx:4*:*)
|
||||
# ptx 4.0 does uname -s correctly, with DYNIX/ptx in there.
|
||||
@ -1093,7 +1138,7 @@ EOF
|
||||
&& { 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; } ;;
|
||||
&& { echo i486-ncr-sysv4; exit; } ;;
|
||||
NCR*:*:4.2:* | MPRAS*:*:4.2:*)
|
||||
OS_REL='.3'
|
||||
test -r /etc/.relid \
|
||||
@ -1136,8 +1181,8 @@ EOF
|
||||
echo ns32k-sni-sysv
|
||||
fi
|
||||
exit ;;
|
||||
PENTIUM:*:4.0*:*) # Unisys `ClearPath HMP IX 4000' SVR4/MP effort
|
||||
# says <Richard.M.Bartel@ccMail.Census.GOV>
|
||||
PENTIUM:*:4.0*:*) # Unisys `ClearPath HMP IX 4000' SVR4/MP effort
|
||||
# says <Richard.M.Bartel@ccMail.Census.GOV>
|
||||
echo i586-unisys-sysv4
|
||||
exit ;;
|
||||
*:UNIX_System_V:4*:FTX*)
|
||||
@ -1165,9 +1210,9 @@ EOF
|
||||
exit ;;
|
||||
R[34]000:*System_V*:*:* | R4000:UNIX_SYSV:*:* | R*000:UNIX_SV:*:*)
|
||||
if [ -d /usr/nec ]; then
|
||||
echo mips-nec-sysv${UNAME_RELEASE}
|
||||
echo mips-nec-sysv${UNAME_RELEASE}
|
||||
else
|
||||
echo mips-unknown-sysv${UNAME_RELEASE}
|
||||
echo mips-unknown-sysv${UNAME_RELEASE}
|
||||
fi
|
||||
exit ;;
|
||||
BeBox:BeOS:*:*) # BeOS running on hardware made by Be, PPC only.
|
||||
@ -1182,6 +1227,9 @@ EOF
|
||||
BePC:Haiku:*:*) # Haiku running on Intel PC compatible.
|
||||
echo i586-pc-haiku
|
||||
exit ;;
|
||||
x86_64:Haiku:*:*)
|
||||
echo x86_64-unknown-haiku
|
||||
exit ;;
|
||||
SX-4:SUPER-UX:*:*)
|
||||
echo sx4-nec-superux${UNAME_RELEASE}
|
||||
exit ;;
|
||||
@ -1208,26 +1256,28 @@ EOF
|
||||
exit ;;
|
||||
*:Darwin:*:*)
|
||||
UNAME_PROCESSOR=`uname -p` || UNAME_PROCESSOR=unknown
|
||||
case $UNAME_PROCESSOR in
|
||||
i386)
|
||||
eval $set_cc_for_build
|
||||
if [ "$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
|
||||
UNAME_PROCESSOR="x86_64"
|
||||
fi
|
||||
fi ;;
|
||||
unknown) UNAME_PROCESSOR=powerpc ;;
|
||||
esac
|
||||
eval $set_cc_for_build
|
||||
if test "$UNAME_PROCESSOR" = unknown ; then
|
||||
UNAME_PROCESSOR=powerpc
|
||||
fi
|
||||
if [ "$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
|
||||
fi
|
||||
echo ${UNAME_PROCESSOR}-apple-darwin${UNAME_RELEASE}
|
||||
exit ;;
|
||||
*:procnto*:*:* | *:QNX:[0123456789]*:*)
|
||||
UNAME_PROCESSOR=`uname -p`
|
||||
if test "$UNAME_PROCESSOR" = "x86"; then
|
||||
UNAME_PROCESSOR=i386
|
||||
UNAME_MACHINE=pc
|
||||
UNAME_PROCESSOR=i386
|
||||
UNAME_MACHINE=pc
|
||||
fi
|
||||
echo ${UNAME_PROCESSOR}-${UNAME_MACHINE}-nto-qnx${UNAME_RELEASE}
|
||||
exit ;;
|
||||
@ -1237,7 +1287,7 @@ EOF
|
||||
NEO-?:NONSTOP_KERNEL:*:*)
|
||||
echo neo-tandem-nsk${UNAME_RELEASE}
|
||||
exit ;;
|
||||
NSE-?:NONSTOP_KERNEL:*:*)
|
||||
NSE-*:NONSTOP_KERNEL:*:*)
|
||||
echo nse-tandem-nsk${UNAME_RELEASE}
|
||||
exit ;;
|
||||
NSR-?:NONSTOP_KERNEL:*:*)
|
||||
@ -1306,11 +1356,11 @@ EOF
|
||||
i*86:AROS:*:*)
|
||||
echo ${UNAME_MACHINE}-pc-aros
|
||||
exit ;;
|
||||
x86_64:VMkernel:*:*)
|
||||
echo ${UNAME_MACHINE}-unknown-esx
|
||||
exit ;;
|
||||
esac
|
||||
|
||||
#echo '(No uname command or uname output not recognized.)' 1>&2
|
||||
#echo "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" 1>&2
|
||||
|
||||
eval $set_cc_for_build
|
||||
cat >$dummy.c <<EOF
|
||||
#ifdef _SEQUENT_
|
||||
@ -1328,11 +1378,11 @@ main ()
|
||||
#include <sys/param.h>
|
||||
printf ("m68k-sony-newsos%s\n",
|
||||
#ifdef NEWSOS4
|
||||
"4"
|
||||
"4"
|
||||
#else
|
||||
""
|
||||
""
|
||||
#endif
|
||||
); exit (0);
|
||||
); exit (0);
|
||||
#endif
|
||||
#endif
|
||||
|
||||
|
||||
214
config.sub
vendored
214
config.sub
vendored
@ -1,38 +1,31 @@
|
||||
#! /bin/sh
|
||||
# Configuration validation subroutine script.
|
||||
# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
|
||||
# 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
|
||||
# Free Software Foundation, Inc.
|
||||
# Copyright 1992-2013 Free Software Foundation, Inc.
|
||||
|
||||
timestamp='2010-09-11'
|
||||
timestamp='2013-10-01'
|
||||
|
||||
# This file is (in principle) common to ALL GNU software.
|
||||
# The presence of a machine in this file suggests that SOME GNU software
|
||||
# can handle that machine. It does not imply ALL GNU software can.
|
||||
#
|
||||
# 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 2 of the License, or
|
||||
# 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.
|
||||
# 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, write to the Free Software
|
||||
# Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
|
||||
# 02110-1301, USA.
|
||||
# along with this program; if not, see <http://www.gnu.org/licenses/>.
|
||||
#
|
||||
# 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.
|
||||
# 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 <config-patches@gnu.org>. Submit a context
|
||||
# diff and a properly formatted GNU ChangeLog entry.
|
||||
# Please send patches with a ChangeLog entry to config-patches@gnu.org.
|
||||
#
|
||||
# Configuration subroutine to validate and canonicalize a configuration type.
|
||||
# Supply the specified configuration type as an argument.
|
||||
@ -75,9 +68,7 @@ Report bugs and patches to <config-patches@gnu.org>."
|
||||
version="\
|
||||
GNU config.sub ($timestamp)
|
||||
|
||||
Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
|
||||
2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free
|
||||
Software Foundation, Inc.
|
||||
Copyright 1992-2013 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."
|
||||
@ -125,13 +116,17 @@ esac
|
||||
maybe_os=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\2/'`
|
||||
case $maybe_os in
|
||||
nto-qnx* | linux-gnu* | linux-android* | linux-dietlibc | linux-newlib* | \
|
||||
linux-uclibc* | uclinux-uclibc* | uclinux-gnu* | kfreebsd*-gnu* | \
|
||||
linux-musl* | linux-uclibc* | uclinux-uclibc* | uclinux-gnu* | kfreebsd*-gnu* | \
|
||||
knetbsd*-gnu* | netbsd*-gnu* | \
|
||||
kopensolaris*-gnu* | \
|
||||
storm-chaos* | os2-emx* | rtmk-nova*)
|
||||
os=-$maybe_os
|
||||
basic_machine=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\1/'`
|
||||
;;
|
||||
android-linux)
|
||||
os=-linux-android
|
||||
basic_machine=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\1/'`-unknown
|
||||
;;
|
||||
*)
|
||||
basic_machine=`echo $1 | sed 's/-[^-]*$//'`
|
||||
if [ $basic_machine != $1 ]
|
||||
@ -154,7 +149,7 @@ case $os in
|
||||
-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)
|
||||
-apple | -axis | -knuth | -cray | -microblaze*)
|
||||
os=
|
||||
basic_machine=$1
|
||||
;;
|
||||
@ -175,10 +170,10 @@ case $os in
|
||||
os=-chorusos
|
||||
basic_machine=$1
|
||||
;;
|
||||
-chorusrdb)
|
||||
os=-chorusrdb
|
||||
-chorusrdb)
|
||||
os=-chorusrdb
|
||||
basic_machine=$1
|
||||
;;
|
||||
;;
|
||||
-hiux*)
|
||||
os=-hiuxwe2
|
||||
;;
|
||||
@ -223,6 +218,12 @@ case $os in
|
||||
-isc*)
|
||||
basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
|
||||
;;
|
||||
-lynx*178)
|
||||
os=-lynxos178
|
||||
;;
|
||||
-lynx*5)
|
||||
os=-lynxos5
|
||||
;;
|
||||
-lynx*)
|
||||
os=-lynxos
|
||||
;;
|
||||
@ -247,20 +248,28 @@ case $basic_machine in
|
||||
# Some are omitted here because they have special meanings below.
|
||||
1750a | 580 \
|
||||
| a29k \
|
||||
| aarch64 | aarch64_be \
|
||||
| alpha | alphaev[4-8] | alphaev56 | alphaev6[78] | alphapca5[67] \
|
||||
| alpha64 | alpha64ev[4-8] | alpha64ev56 | alpha64ev6[78] | alpha64pca5[67] \
|
||||
| am33_2.0 \
|
||||
| arc | arm | arm[bl]e | arme[lb] | armv[2345] | armv[345][lb] | avr | avr32 \
|
||||
| arc | arceb \
|
||||
| arm | arm[bl]e | arme[lb] | armv[2-8] | armv[3-8][lb] | armv7[arm] \
|
||||
| avr | avr32 \
|
||||
| be32 | be64 \
|
||||
| bfin \
|
||||
| c4x | clipper \
|
||||
| c4x | c8051 | clipper \
|
||||
| d10v | d30v | dlx | dsp16xx \
|
||||
| epiphany \
|
||||
| fido | fr30 | frv \
|
||||
| h8300 | h8500 | hppa | hppa1.[01] | hppa2.0 | hppa2.0[nw] | hppa64 \
|
||||
| hexagon \
|
||||
| i370 | i860 | i960 | ia64 \
|
||||
| ip2k | iq2000 \
|
||||
| k1om \
|
||||
| le32 | le64 \
|
||||
| lm32 \
|
||||
| m32c | m32r | m32rle | m68000 | m68k | m88k \
|
||||
| maxq | mb | microblaze | mcore | mep | metag \
|
||||
| maxq | mb | microblaze | microblazeel | mcore | mep | metag \
|
||||
| mips | mipsbe | mipseb | mipsel | mipsle \
|
||||
| mips16 \
|
||||
| mips64 | mips64el \
|
||||
@ -278,30 +287,32 @@ case $basic_machine in
|
||||
| mipsisa64r2 | mipsisa64r2el \
|
||||
| mipsisa64sb1 | mipsisa64sb1el \
|
||||
| mipsisa64sr71k | mipsisa64sr71kel \
|
||||
| mipsr5900 | mipsr5900el \
|
||||
| mipstx39 | mipstx39el \
|
||||
| mn10200 | mn10300 \
|
||||
| moxie \
|
||||
| mt \
|
||||
| msp430 \
|
||||
| nds32 | nds32le | nds32be\
|
||||
| nios | nios2 \
|
||||
| nds32 | nds32le | nds32be \
|
||||
| nios | nios2 | nios2eb | nios2el \
|
||||
| ns16k | ns32k \
|
||||
| or32 \
|
||||
| open8 \
|
||||
| or1k | or32 \
|
||||
| pdp10 | pdp11 | pj | pjl \
|
||||
| powerpc | powerpc64 | powerpc64le | powerpcle | ppcbe \
|
||||
| powerpc | powerpc64 | powerpc64le | powerpcle \
|
||||
| pyramid \
|
||||
| rx \
|
||||
| rl78 | rx \
|
||||
| score \
|
||||
| sh | sh[1234] | sh[24]a | sh[24]aeb | sh[23]e | sh[34]eb | sheb | shbe | shle | sh[1234]le | sh3ele \
|
||||
| sh64 | sh64le \
|
||||
| sparc | sparc64 | sparc64b | sparc64v | sparc86x | sparclet | sparclite \
|
||||
| sparcv8 | sparcv9 | sparcv9b | sparcv9v \
|
||||
| spu | strongarm \
|
||||
| tahoe | thumb | tic4x | tic54x | tic55x | tic6x | tic80 | tron \
|
||||
| spu \
|
||||
| tahoe | tic4x | tic54x | tic55x | tic6x | tic80 | tron \
|
||||
| ubicom32 \
|
||||
| v850 | v850e \
|
||||
| v850 | v850e | v850e1 | v850e2 | v850es | v850e2v3 \
|
||||
| we32k \
|
||||
| x86 | xc16x | xscale | xscalee[bl] | xstormy16 | xtensa \
|
||||
| x86 | xc16x | xstormy16 | xtensa \
|
||||
| z8k | z80)
|
||||
basic_machine=$basic_machine-unknown
|
||||
;;
|
||||
@ -314,8 +325,7 @@ case $basic_machine in
|
||||
c6x)
|
||||
basic_machine=tic6x-unknown
|
||||
;;
|
||||
m6811 | m68hc11 | m6812 | m68hc12 | picochip)
|
||||
# Motorola 68HC11/12.
|
||||
m6811 | m68hc11 | m6812 | m68hc12 | m68hcs12x | nvptx | picochip)
|
||||
basic_machine=$basic_machine-unknown
|
||||
os=-none
|
||||
;;
|
||||
@ -325,12 +335,27 @@ case $basic_machine in
|
||||
basic_machine=mt-unknown
|
||||
;;
|
||||
|
||||
strongarm | thumb | xscale)
|
||||
basic_machine=arm-unknown
|
||||
;;
|
||||
xgate)
|
||||
basic_machine=$basic_machine-unknown
|
||||
os=-none
|
||||
;;
|
||||
xscaleeb)
|
||||
basic_machine=armeb-unknown
|
||||
;;
|
||||
|
||||
xscaleel)
|
||||
basic_machine=armel-unknown
|
||||
;;
|
||||
|
||||
# We use `pc' rather than `unknown'
|
||||
# because (1) that's what they normally are, and
|
||||
# (2) the word "unknown" tends to confuse beginning users.
|
||||
i*86 | x86_64)
|
||||
basic_machine=$basic_machine-pc
|
||||
;;
|
||||
basic_machine=$basic_machine-pc
|
||||
;;
|
||||
# Object if more than one company name word.
|
||||
*-*-*)
|
||||
echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2
|
||||
@ -339,25 +364,31 @@ case $basic_machine in
|
||||
# Recognize the basic CPU types with company name.
|
||||
580-* \
|
||||
| a29k-* \
|
||||
| aarch64-* | aarch64_be-* \
|
||||
| alpha-* | alphaev[4-8]-* | alphaev56-* | alphaev6[78]-* \
|
||||
| alpha64-* | alpha64ev[4-8]-* | alpha64ev56-* | alpha64ev6[78]-* \
|
||||
| alphapca5[67]-* | alpha64pca5[67]-* | arc-* \
|
||||
| alphapca5[67]-* | alpha64pca5[67]-* | arc-* | arceb-* \
|
||||
| arm-* | armbe-* | armle-* | armeb-* | armv*-* \
|
||||
| avr-* | avr32-* \
|
||||
| be32-* | be64-* \
|
||||
| bfin-* | bs2000-* \
|
||||
| c[123]* | c30-* | [cjt]90-* | c4x-* \
|
||||
| clipper-* | craynv-* | cydra-* \
|
||||
| c8051-* | clipper-* | craynv-* | cydra-* \
|
||||
| d10v-* | d30v-* | dlx-* \
|
||||
| elxsi-* \
|
||||
| f30[01]-* | f700-* | fido-* | fr30-* | frv-* | fx80-* \
|
||||
| h8300-* | h8500-* \
|
||||
| hppa-* | hppa1.[01]-* | hppa2.0-* | hppa2.0[nw]-* | hppa64-* \
|
||||
| hexagon-* \
|
||||
| i*86-* | i860-* | i960-* | ia64-* \
|
||||
| ip2k-* | iq2000-* \
|
||||
| k1om-* \
|
||||
| le32-* | le64-* \
|
||||
| lm32-* \
|
||||
| m32c-* | m32r-* | m32rle-* \
|
||||
| m68000-* | m680[012346]0-* | m68360-* | m683?2-* | m68k-* \
|
||||
| m88110-* | m88k-* | maxq-* | mcore-* | metag-* | microblaze-* \
|
||||
| m88110-* | m88k-* | maxq-* | mcore-* | metag-* \
|
||||
| microblaze-* | microblazeel-* \
|
||||
| mips-* | mipsbe-* | mipseb-* | mipsel-* | mipsle-* \
|
||||
| mips16-* \
|
||||
| mips64-* | mips64el-* \
|
||||
@ -375,31 +406,34 @@ case $basic_machine in
|
||||
| mipsisa64r2-* | mipsisa64r2el-* \
|
||||
| mipsisa64sb1-* | mipsisa64sb1el-* \
|
||||
| mipsisa64sr71k-* | mipsisa64sr71kel-* \
|
||||
| mipsr5900-* | mipsr5900el-* \
|
||||
| mipstx39-* | mipstx39el-* \
|
||||
| mmix-* \
|
||||
| mt-* \
|
||||
| msp430-* \
|
||||
| nds32-* | nds32le-* | nds32be-* \
|
||||
| nios-* | nios2-* \
|
||||
| nios-* | nios2-* | nios2eb-* | nios2el-* \
|
||||
| none-* | np1-* | ns16k-* | ns32k-* \
|
||||
| open8-* \
|
||||
| orion-* \
|
||||
| pdp10-* | pdp11-* | pj-* | pjl-* | pn-* | power-* \
|
||||
| powerpc-* | powerpc64-* | powerpc64le-* | powerpcle-* | ppcbe-* \
|
||||
| powerpc-* | powerpc64-* | powerpc64le-* | powerpcle-* \
|
||||
| pyramid-* \
|
||||
| romp-* | rs6000-* | rx-* \
|
||||
| rl78-* | romp-* | rs6000-* | rx-* \
|
||||
| sh-* | sh[1234]-* | sh[24]a-* | sh[24]aeb-* | sh[23]e-* | sh[34]eb-* | sheb-* | shbe-* \
|
||||
| shle-* | sh[1234]le-* | sh3ele-* | sh64-* | sh64le-* \
|
||||
| sparc-* | sparc64-* | sparc64b-* | sparc64v-* | sparc86x-* | sparclet-* \
|
||||
| sparclite-* \
|
||||
| sparcv8-* | sparcv9-* | sparcv9b-* | sparcv9v-* | strongarm-* | sv1-* | sx?-* \
|
||||
| tahoe-* | thumb-* \
|
||||
| sparcv8-* | sparcv9-* | sparcv9b-* | sparcv9v-* | sv1-* | sx?-* \
|
||||
| tahoe-* \
|
||||
| tic30-* | tic4x-* | tic54x-* | tic55x-* | tic6x-* | tic80-* \
|
||||
| tile-* | tilegx-* \
|
||||
| tile*-* \
|
||||
| tron-* \
|
||||
| ubicom32-* \
|
||||
| v850-* | v850e-* | vax-* \
|
||||
| v850-* | v850e-* | v850e1-* | v850es-* | v850e2-* | v850e2v3-* \
|
||||
| vax-* \
|
||||
| we32k-* \
|
||||
| x86-* | x86_64-* | xc16x-* | xps100-* | xscale-* | xscalee[bl]-* \
|
||||
| x86-* | x86_64-* | xc16x-* | xps100-* \
|
||||
| xstormy16-* | xtensa*-* \
|
||||
| ymp-* \
|
||||
| z8k-* | z80-*)
|
||||
@ -539,7 +573,7 @@ case $basic_machine in
|
||||
basic_machine=craynv-cray
|
||||
os=-unicosmp
|
||||
;;
|
||||
cr16)
|
||||
cr16 | cr16-*)
|
||||
basic_machine=cr16-unknown
|
||||
os=-elf
|
||||
;;
|
||||
@ -697,7 +731,6 @@ case $basic_machine in
|
||||
i370-ibm* | ibm*)
|
||||
basic_machine=i370-ibm
|
||||
;;
|
||||
# I'm not sure what "Sysv32" means. Should this be sysv3.2?
|
||||
i*86v32)
|
||||
basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'`
|
||||
os=-sysv32
|
||||
@ -755,11 +788,15 @@ case $basic_machine in
|
||||
basic_machine=ns32k-utek
|
||||
os=-sysv
|
||||
;;
|
||||
microblaze)
|
||||
microblaze*)
|
||||
basic_machine=microblaze-xilinx
|
||||
;;
|
||||
mingw64)
|
||||
basic_machine=x86_64-pc
|
||||
os=-mingw64
|
||||
;;
|
||||
mingw32)
|
||||
basic_machine=i386-pc
|
||||
basic_machine=i686-pc
|
||||
os=-mingw32
|
||||
;;
|
||||
mingw32ce)
|
||||
@ -794,10 +831,18 @@ case $basic_machine in
|
||||
ms1-*)
|
||||
basic_machine=`echo $basic_machine | sed -e 's/ms1-/mt-/'`
|
||||
;;
|
||||
msys)
|
||||
basic_machine=i686-pc
|
||||
os=-msys
|
||||
;;
|
||||
mvs)
|
||||
basic_machine=i370-ibm
|
||||
os=-mvs
|
||||
;;
|
||||
nacl)
|
||||
basic_machine=le32-unknown
|
||||
os=-nacl
|
||||
;;
|
||||
ncr3000)
|
||||
basic_machine=i486-ncr
|
||||
os=-sysv4
|
||||
@ -950,9 +995,10 @@ case $basic_machine in
|
||||
;;
|
||||
power) basic_machine=power-ibm
|
||||
;;
|
||||
ppc) basic_machine=powerpc-unknown
|
||||
ppc | ppcbe) basic_machine=powerpc-unknown
|
||||
;;
|
||||
ppc-*) basic_machine=powerpc-`echo $basic_machine | sed 's/^[^-]*-//'`
|
||||
ppc-* | ppcbe-*)
|
||||
basic_machine=powerpc-`echo $basic_machine | sed 's/^[^-]*-//'`
|
||||
;;
|
||||
ppcle | powerpclittle | ppc-le | powerpc-little)
|
||||
basic_machine=powerpcle-unknown
|
||||
@ -977,7 +1023,11 @@ case $basic_machine in
|
||||
basic_machine=i586-unknown
|
||||
os=-pw32
|
||||
;;
|
||||
rdos)
|
||||
rdos | rdos64)
|
||||
basic_machine=x86_64-pc
|
||||
os=-rdos
|
||||
;;
|
||||
rdos32)
|
||||
basic_machine=i386-pc
|
||||
os=-rdos
|
||||
;;
|
||||
@ -1046,6 +1096,9 @@ case $basic_machine in
|
||||
basic_machine=i860-stratus
|
||||
os=-sysv4
|
||||
;;
|
||||
strongarm-* | thumb-*)
|
||||
basic_machine=arm-`echo $basic_machine | sed 's/^[^-]*-//'`
|
||||
;;
|
||||
sun2)
|
||||
basic_machine=m68000-sun
|
||||
;;
|
||||
@ -1102,13 +1155,8 @@ case $basic_machine in
|
||||
basic_machine=t90-cray
|
||||
os=-unicos
|
||||
;;
|
||||
# This must be matched before tile*.
|
||||
tilegx*)
|
||||
basic_machine=tilegx-unknown
|
||||
os=-linux-gnu
|
||||
;;
|
||||
tile*)
|
||||
basic_machine=tile-unknown
|
||||
basic_machine=$basic_machine-unknown
|
||||
os=-linux-gnu
|
||||
;;
|
||||
tx39)
|
||||
@ -1178,6 +1226,9 @@ case $basic_machine in
|
||||
xps | xps100)
|
||||
basic_machine=xps100-honeywell
|
||||
;;
|
||||
xscale-* | xscalee[bl]-*)
|
||||
basic_machine=`echo $basic_machine | sed 's/^xscale/arm/'`
|
||||
;;
|
||||
ymp)
|
||||
basic_machine=ymp-cray
|
||||
os=-unicos
|
||||
@ -1303,21 +1354,21 @@ case $os in
|
||||
-gnu* | -bsd* | -mach* | -minix* | -genix* | -ultrix* | -irix* \
|
||||
| -*vms* | -sco* | -esix* | -isc* | -aix* | -cnk* | -sunos | -sunos[34]*\
|
||||
| -hpux* | -unos* | -osf* | -luna* | -dgux* | -auroraux* | -solaris* \
|
||||
| -sym* | -kopensolaris* \
|
||||
| -sym* | -kopensolaris* | -plan9* \
|
||||
| -amigaos* | -amigados* | -msdos* | -newsos* | -unicos* | -aof* \
|
||||
| -aos* | -aros* \
|
||||
| -nindy* | -vxsim* | -vxworks* | -ebmon* | -hms* | -mvs* \
|
||||
| -clix* | -riscos* | -uniplus* | -iris* | -rtu* | -xenix* \
|
||||
| -hiux* | -386bsd* | -knetbsd* | -mirbsd* | -netbsd* \
|
||||
| -openbsd* | -solidbsd* \
|
||||
| -bitrig* | -openbsd* | -solidbsd* \
|
||||
| -ekkobsd* | -kfreebsd* | -freebsd* | -riscix* | -lynxos* \
|
||||
| -bosx* | -nextstep* | -cxux* | -aout* | -elf* | -oabi* \
|
||||
| -ptx* | -coff* | -ecoff* | -winnt* | -domain* | -vsta* \
|
||||
| -udi* | -eabi* | -lites* | -ieee* | -go32* | -aux* \
|
||||
| -chorusos* | -chorusrdb* | -cegcc* \
|
||||
| -cygwin* | -pe* | -psos* | -moss* | -proelf* | -rtems* \
|
||||
| -mingw32* | -linux-gnu* | -linux-android* \
|
||||
| -linux-newlib* | -linux-uclibc* \
|
||||
| -cygwin* | -msys* | -pe* | -psos* | -moss* | -proelf* | -rtems* \
|
||||
| -mingw32* | -mingw64* | -linux-gnu* | -linux-android* \
|
||||
| -linux-newlib* | -linux-musl* | -linux-uclibc* \
|
||||
| -uxpv* | -beos* | -mpeix* | -udk* \
|
||||
| -interix* | -uwin* | -mks* | -rhapsody* | -darwin* | -opened* \
|
||||
| -openstep* | -oskit* | -conix* | -pw32* | -nonstopux* \
|
||||
@ -1449,9 +1500,6 @@ case $os in
|
||||
-aros*)
|
||||
os=-aros
|
||||
;;
|
||||
-kaos*)
|
||||
os=-kaos
|
||||
;;
|
||||
-zvmoe)
|
||||
os=-zvmoe
|
||||
;;
|
||||
@ -1500,6 +1548,12 @@ case $basic_machine in
|
||||
c4x-* | tic4x-*)
|
||||
os=-coff
|
||||
;;
|
||||
c8051-*)
|
||||
os=-elf
|
||||
;;
|
||||
hexagon-*)
|
||||
os=-elf
|
||||
;;
|
||||
tic54x-*)
|
||||
os=-coff
|
||||
;;
|
||||
@ -1527,9 +1581,6 @@ case $basic_machine in
|
||||
;;
|
||||
m68000-sun)
|
||||
os=-sunos3
|
||||
# This also exists in the configure program, but was not the
|
||||
# default.
|
||||
# os=-sunos4
|
||||
;;
|
||||
m68*-cisco)
|
||||
os=-aout
|
||||
@ -1543,6 +1594,9 @@ case $basic_machine in
|
||||
mips*-*)
|
||||
os=-elf
|
||||
;;
|
||||
or1k-*)
|
||||
os=-elf
|
||||
;;
|
||||
or32-*)
|
||||
os=-coff
|
||||
;;
|
||||
|
||||
631
configure.in
631
configure.in
File diff suppressed because it is too large
Load Diff
37
dist.mk
37
dist.mk
@ -1,5 +1,5 @@
|
||||
##############################################################################
|
||||
# Copyright (c) 1998-2010,2011 Free Software Foundation, Inc. #
|
||||
# Copyright (c) 1998-2013,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"), #
|
||||
@ -25,7 +25,7 @@
|
||||
# use or other dealings in this Software without prior written #
|
||||
# authorization. #
|
||||
##############################################################################
|
||||
# $Id: dist.mk,v 1.810 2011/04/04 22:42:20 tom Exp $
|
||||
# $Id: dist.mk,v 1.973 2014/02/22 16:55:12 tom Exp $
|
||||
# Makefile for creating ncurses distributions.
|
||||
#
|
||||
# This only needs to be used directly as a makefile by developers, but
|
||||
@ -37,20 +37,21 @@ SHELL = /bin/sh
|
||||
# These define the major/minor/patch versions of ncurses.
|
||||
NCURSES_MAJOR = 5
|
||||
NCURSES_MINOR = 9
|
||||
NCURSES_PATCH = 20110404
|
||||
NCURSES_PATCH = 20140222
|
||||
|
||||
# We don't append the patch to the version, since this only applies to releases
|
||||
VERSION = $(NCURSES_MAJOR).$(NCURSES_MINOR)
|
||||
|
||||
# The most recent html files were generated with lynx 2.8.6, using ncurses
|
||||
# configured with
|
||||
# The most recent html files were generated with lynx 2.8.6 (or later), using
|
||||
# ncurses configured with
|
||||
# --without-manpage-renames
|
||||
# on Debian/testing. The -scrollbar and -width options are used to make lynx
|
||||
# use 79 columns as it did in 2.8.5 and before.
|
||||
DUMP = lynx -dump -scrollbar=0 -width=79
|
||||
DUMP2 = $(DUMP) -nolist
|
||||
|
||||
GNATHTML= `type -p gnathtml || type -p gnathtml.pl`
|
||||
# gcc's file is "gnathtml.pl"
|
||||
GNATHTML= gnathtml
|
||||
|
||||
# man2html 3.0.1 is a Perl script which assumes that pages are fixed size.
|
||||
# Not all man programs agree with this assumption; some use half-spacing, which
|
||||
@ -98,7 +99,13 @@ doc/hackguide.doc: doc/html/hackguide.html
|
||||
MANPROG = tbl | nroff -mandoc -rLL=65n -rLT=71n -Tascii
|
||||
|
||||
manhtml:
|
||||
@rm -f doc/html/man/*.html
|
||||
@for f in doc/html/man/*.html; do \
|
||||
test -f $$f || continue; \
|
||||
case $$f in \
|
||||
*/index.html) ;; \
|
||||
*) rm -f $$f ;; \
|
||||
esac; \
|
||||
done
|
||||
@mkdir -p doc/html/man
|
||||
@rm -f subst.tmp ;
|
||||
@for f in man/*.[0-9]*; do \
|
||||
@ -126,7 +133,7 @@ manhtml:
|
||||
g=$${m}.html ;\
|
||||
if [ -f doc/html/$$g ]; then chmod +w doc/html/$$g; fi;\
|
||||
echo "Converting $$m to HTML" ;\
|
||||
echo '<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">' > doc/html/man/$$g ;\
|
||||
echo '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">' > doc/html/man/$$g ;\
|
||||
echo '<!-- ' >> doc/html/man/$$g ;\
|
||||
egrep '^.\\"[^#]' $$f | \
|
||||
sed -e 's/\$$/@/g' \
|
||||
@ -135,9 +142,15 @@ manhtml:
|
||||
-e 's/>/\>/g' \
|
||||
>> doc/html/man/$$g ;\
|
||||
echo '-->' >> doc/html/man/$$g ;\
|
||||
./edit_man.sh normal editing /usr/man man $$f | $(MANPROG) | tr '\255' '-' | $(MAN2HTML) -title "$$T" | \
|
||||
sed -f subst.sed |\
|
||||
sed -e 's/"curses.3x.html"/"ncurses.3x.html"/g' \
|
||||
./edit_man.sh normal editing /usr/man man $$f | \
|
||||
$(MANPROG) | \
|
||||
tr '\255' '-' | \
|
||||
$(MAN2HTML) \
|
||||
-title "$$T" \
|
||||
-aliases man/manhtml.aliases \
|
||||
-externs man/manhtml.externs | \
|
||||
sed -f subst.sed |\
|
||||
sed -e 's/"curses.3x.html"/"ncurses.3x.html"/g' \
|
||||
>> doc/html/man/$$g ;\
|
||||
done
|
||||
@rm -f subst.sed
|
||||
@ -149,7 +162,7 @@ manhtml:
|
||||
# .ali files contain cross referencing information required by gnathtml.
|
||||
adahtml:
|
||||
if [ ! -z "$(GNATHTML)" ]; then \
|
||||
(cd ./Ada95/gen ; make html) ;\
|
||||
(cd ./Ada95/gen ; make html GNATHTML=$(GNATHTML) ) ;\
|
||||
fi
|
||||
|
||||
# This only works on a clean source tree, of course.
|
||||
|
||||
@ -1,8 +1,7 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<!--
|
||||
$Id: Ada95.html,v 1.8 2010/12/04 16:42:54 tom Exp $
|
||||
$Id: Ada95.html,v 1.14 2013/05/18 21:34:34 tom Exp $
|
||||
****************************************************************************
|
||||
* Copyright (c) 1998-2004,2010 Free Software Foundation, Inc. *
|
||||
* Copyright (c) 1998-2010,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 *
|
||||
@ -29,156 +28,316 @@
|
||||
* authorization. *
|
||||
****************************************************************************
|
||||
-->
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>Ada95 Binding for ncurses</Title>
|
||||
<link rev=made href="mailto:bug-ncurses@gnu.org">
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<H1>Ada95 Binding for ncurses</H1>
|
||||
by Jürgen Pfeifer.
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
|
||||
<HR SIZE=3 NOSHADE>
|
||||
<H2>General Remarks</H2>
|
||||
<UL>
|
||||
<LI>This document describes Version 01.00 of the binding.</LI>
|
||||
<LI>The functionality is modeled to be compatible with the ncurses
|
||||
package, a clone of the SVr4 curses model.<BR>
|
||||
I did the development on an Intel box running the latest stable release of
|
||||
<A HREF="http://www.linux.org">Linux</A>, ncurses and the most recent released
|
||||
<A HREF="http://www.gnat.com">GNU Ada Translator</A>
|
||||
gnat versions. For any older versions of ncurses and gnat
|
||||
it is not guaranteed to work.</LI>
|
||||
<LI>You must have the m4 macroprocessor to build this package.
|
||||
If you don't have this program, you can get the FSF version
|
||||
<A HREF="ftp://ftp.gnu.org/pub/gnu/">here</A>.</LI>
|
||||
<LI>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 <A HREF="ada/table.html">table</A>.</LI>
|
||||
<LI>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 it's 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 <STRONG>bold</STRONG> of the record
|
||||
true. The binding also hides the structures like WINDOW, PANEL, MENU, FORM
|
||||
etc. ! It's a pure functional API.</LI>
|
||||
<LI>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.</LI>
|
||||
<LI>Support for wide characters is currently not in the binding, as it
|
||||
is not really in ncurses at this point in time.</LI>
|
||||
</UL>
|
||||
<html>
|
||||
<head>
|
||||
<meta name="generator" content=
|
||||
"HTML Tidy for Linux (vers 25 March 2009), see www.w3.org">
|
||||
|
||||
<H2>Limitations</H2>
|
||||
<UL>
|
||||
<LI>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.</LI>
|
||||
<LI>I provide no functions to switch on/off curses tracing options.
|
||||
Same suggestion as above.</LI>
|
||||
<LI>Although Ada95 is an OO Language, this binding doesn't provide
|
||||
an OO abstraction of the (n)curses functionality. As mentioned above
|
||||
it's 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.<BR>
|
||||
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.</LI>
|
||||
<LI>I currently do not support the link_fieldtype functionality of the
|
||||
forms subsystem.</LI>
|
||||
<LI>The *_IO packages are currently output only.</LI>
|
||||
</UL>
|
||||
<title>Ada95 Binding for ncurses</title>
|
||||
<link rev="made" href="mailto:bug-ncurses@gnu.org">
|
||||
<meta http-equiv="Content-Type" content=
|
||||
"text/html; charset=us-ascii">
|
||||
</head>
|
||||
|
||||
<H2>Hierarchy of packages</H2>
|
||||
<UL>
|
||||
<LI><A HREF="ada/terminal_interface__ads.htm">Terminal_Interface</A>
|
||||
<UL><LI><A HREF="ada/terminal_interface-curses__ads.htm">Curses</A>
|
||||
<UL><LI><A HREF="ada/terminal_interface-curses-mouse__ads.htm">Mouse</A>
|
||||
<LI><A HREF="ada/terminal_interface-curses-panels__ads.htm">Panels</A>
|
||||
<UL><LI><A HREF="ada/terminal_interface-curses-panels-user_data__ads.htm">User_Data</A>
|
||||
</UL>
|
||||
<LI><A HREF="ada/terminal_interface-curses-menus__ads.htm">Menus</A>
|
||||
<UL><LI><A HREF="ada/terminal_interface-curses-menus-menu_user_data__ads.htm">Menu_User_Data</A>
|
||||
<LI><A HREF="ada/terminal_interface-curses-menus-item_user_data__ads.htm">Item_User_Data</A>
|
||||
</UL>
|
||||
<LI><A HREF="ada/terminal_interface-curses-forms__ads.htm">Forms</A>
|
||||
<UL><LI><A HREF="ada/terminal_interface-curses-forms-form_user_data__ads.htm">Form_User_Data</A>
|
||||
<LI><A HREF="ada/terminal_interface-curses-forms-field_user_data__ads.htm">Field_User_Data</A>
|
||||
<LI><A HREF="ada/terminal_interface-curses-forms-field_types__ads.htm">Field_Types</A>
|
||||
<UL><LI><A HREF="ada/terminal_interface-curses-forms-field_types-alpha__ads.htm">Alpha</A>
|
||||
<LI><A HREF="ada/terminal_interface-curses-forms-field_types-alphanumeric__ads.htm">AlphaNumeric</A>
|
||||
<LI><A HREF="ada/terminal_interface-curses-forms-field_types-intfield__ads.htm">IntField</A>
|
||||
<LI><A HREF="ada/terminal_interface-curses-forms-field_types-numeric__ads.htm">Numeric</A>
|
||||
<LI><A HREF="ada/terminal_interface-curses-forms-field_types-regexp__ads.htm">RegExp</A>
|
||||
<LI><A HREF="ada/terminal_interface-curses-forms-field_types-ipv4_address__ads.htm">IPV4_Address</A>
|
||||
<LI><A HREF="ada/terminal_interface-curses-forms-field_types-enumeration__ads.htm">Enumeration</A>
|
||||
<UL><LI><A HREF="ada/terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm">Ada</A>
|
||||
</UL>
|
||||
<LI><A HREF="ada/terminal_interface-curses-forms-field_types-user__ads.htm">User</A>
|
||||
<UL><LI><A HREF="ada/terminal_interface-curses-forms-field_types-user-choice__ads.htm">Choice</A>
|
||||
</UL>
|
||||
</UL>
|
||||
</UL>
|
||||
<LI><A HREF="ada/terminal_interface-curses-text_io__ads.htm">Text_IO</A>
|
||||
<UL><LI><A HREF="ada/terminal_interface-curses-text_io-integer_io__ads.htm">Integer_IO</A>
|
||||
<LI><A HREF="ada/terminal_interface-curses-text_io-float_io__ads.htm">Float_IO</A>
|
||||
<LI><A HREF="ada/terminal_interface-curses-text_io-fixed_io__ads.htm">Fixed_IO</A>
|
||||
<LI><A HREF="ada/terminal_interface-curses-text_io-decimal_io__ads.htm">Decimal_IO</A>
|
||||
<LI><A HREF="ada/terminal_interface-curses-text_io-modular_io__ads.htm">Modular_IO</A>
|
||||
<LI><A HREF="ada/terminal_interface-curses-text_io-enumeration_io__ads.htm">Enumeration_IO</A>
|
||||
<LI><A HREF="ada/terminal_interface-curses-text_io-complex_io__ads.htm">Complex_IO</A>
|
||||
</UL>
|
||||
</UL>
|
||||
</UL>
|
||||
</UL>
|
||||
If you want to navigate through the html pages of the package specs, click <A HREF="ada/index.htm">here</A>.
|
||||
<H2>Implementation Details</H2>
|
||||
<H4>Behind the abstraction</H4>
|
||||
All the new types like <STRONG>Window</STRONG>, <STRONG>Panel</STRONG>,
|
||||
<STRONG>Menu</STRONG>, <STRONG>Form</STRONG> etc. are just
|
||||
opaque representations of the pointers to the corresponding
|
||||
low level (n)curses structures like
|
||||
<STRONG>WINDOW *</STRONG>, <STRONG>PANEL *</STRONG>,
|
||||
<STRONG>MENU *</STRONG> or <STRONG>FORM *</STRONG>.
|
||||
So you can safely pass them to C routines that expect a pointer
|
||||
to one of those structures.
|
||||
<H4>Extended ripoffline() usage</H4>
|
||||
The official documentation of (n)curses says, that the line parameter
|
||||
determines only whether or not exactly <STRONG>one</STRONG> 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 <STRONG>Rip_Off_Lines</STRONG>
|
||||
routine of the binding.
|
||||
<H4><A NAME="userpointer">How user defined field types work</A></H4>
|
||||
TBD
|
||||
<H4>Enumeration fields handling</H4>
|
||||
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.
|
||||
<H4><A NAME="compiler">Using other Ada compilers</A></H4>
|
||||
This should basically not be a problem.
|
||||
<H4>Port to other curses implementations</H4>
|
||||
Basically it should not be too hard to make all this run on a regular SVr4
|
||||
implementation of curses. The problems are probably these:<BR>
|
||||
<UL>
|
||||
<LI>ncurses has some additional features which are presented in this binding. You
|
||||
have two choices to deal with this:
|
||||
<UL>
|
||||
<LI>Emulate the feature in this binding</LI>
|
||||
<LI>Raise an exception for non implemented features</LI>
|
||||
</UL>
|
||||
Most likely you will follow a mixed approach. Some features are easy to simulate,
|
||||
others will be hard if not impossible.</LI>
|
||||
</UL>
|
||||
I'm quite sure I forgot something.
|
||||
</BODY>
|
||||
</HTML>
|
||||
<body>
|
||||
<h1>Ada95 Binding for ncurses</h1>
|
||||
|
||||
<p>by Jürgen Pfeifer.</p>
|
||||
<hr>
|
||||
|
||||
<h2>General Remarks</h2>
|
||||
|
||||
<ul>
|
||||
<li>This document describes Version 01.00 of the binding.</li>
|
||||
|
||||
<li>The functionality is modeled to be compatible with the
|
||||
ncurses package, a clone of the SVr4 curses model.<br>
|
||||
I did the development on an Intel box running the latest stable
|
||||
release of <a href="http://www.linux.org">Linux</a>, ncurses
|
||||
and the most recent released <a href="http://www.gnat.com">GNU
|
||||
Ada Translator</a> gnat versions. For any older versions of
|
||||
ncurses and gnat it is not guaranteed to work.</li>
|
||||
|
||||
<li>You must have the m4 macroprocessor to build this package.
|
||||
If you don't have this program, you can get the FSF version
|
||||
<a href="ftp://ftp.gnu.org/pub/gnu/">here</a>.</li>
|
||||
|
||||
<li>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 <a href=
|
||||
"ada/table.html">table</a>.</li>
|
||||
|
||||
<li>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 it's 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 <strong>bold</strong> of the record true.
|
||||
The binding also hides the structures like WINDOW, PANEL, MENU,
|
||||
FORM etc. ! It's a pure functional API.</li>
|
||||
|
||||
<li>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.</li>
|
||||
|
||||
<li>Support for wide characters is currently not in the
|
||||
binding, as it is not really in ncurses at this point in
|
||||
time.</li>
|
||||
</ul>
|
||||
|
||||
<h2>Limitations</h2>
|
||||
|
||||
<ul>
|
||||
<li>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.</li>
|
||||
|
||||
<li>I provide no functions to switch on/off curses tracing
|
||||
options. Same suggestion as above.</li>
|
||||
|
||||
<li>Although Ada95 is an OO Language, this binding doesn't
|
||||
provide an OO abstraction of the (n)curses functionality. As
|
||||
mentioned above it's 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.<br>
|
||||
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.</li>
|
||||
|
||||
<li>I currently do not support the link_fieldtype functionality
|
||||
of the forms subsystem.</li>
|
||||
|
||||
<li>The *_IO packages are currently output only.</li>
|
||||
</ul>
|
||||
|
||||
<h2>Hierarchy of packages</h2>
|
||||
|
||||
<ul>
|
||||
<li>
|
||||
<a href=
|
||||
"ada/terminal_interface__ads.htm">Terminal_Interface</a>
|
||||
|
||||
<ul>
|
||||
<li>
|
||||
<a href=
|
||||
"ada/terminal_interface-curses__ads.htm">Curses</a>
|
||||
|
||||
<ul>
|
||||
<li><a href=
|
||||
"ada/terminal_interface-curses-mouse__ads.htm">Mouse</a></li>
|
||||
|
||||
<li>
|
||||
<a href=
|
||||
"ada/terminal_interface-curses-panels__ads.htm">Panels</a>
|
||||
|
||||
<ul>
|
||||
<li><a href=
|
||||
"ada/terminal_interface-curses-panels-user_data__ads.htm">
|
||||
User_Data</a></li>
|
||||
</ul>
|
||||
</li>
|
||||
|
||||
<li>
|
||||
<a href=
|
||||
"ada/terminal_interface-curses-menus__ads.htm">Menus</a>
|
||||
|
||||
<ul>
|
||||
<li><a href=
|
||||
"ada/terminal_interface-curses-menus-menu_user_data__ads.htm">
|
||||
Menu_User_Data</a></li>
|
||||
|
||||
<li><a href=
|
||||
"ada/terminal_interface-curses-menus-item_user_data__ads.htm">
|
||||
Item_User_Data</a></li>
|
||||
</ul>
|
||||
</li>
|
||||
|
||||
<li>
|
||||
<a href=
|
||||
"ada/terminal_interface-curses-forms__ads.htm">Forms</a>
|
||||
|
||||
<ul>
|
||||
<li><a href=
|
||||
"ada/terminal_interface-curses-forms-form_user_data__ads.htm">
|
||||
Form_User_Data</a></li>
|
||||
|
||||
<li><a href=
|
||||
"ada/terminal_interface-curses-forms-field_user_data__ads.htm">
|
||||
Field_User_Data</a></li>
|
||||
|
||||
<li>
|
||||
<a href=
|
||||
"ada/terminal_interface-curses-forms-field_types__ads.htm">
|
||||
Field_Types</a>
|
||||
|
||||
<ul>
|
||||
<li><a href=
|
||||
"ada/terminal_interface-curses-forms-field_types-alpha__ads.htm">
|
||||
Alpha</a></li>
|
||||
|
||||
<li><a href=
|
||||
"ada/terminal_interface-curses-forms-field_types-alphanumeric__ads.htm">
|
||||
AlphaNumeric</a></li>
|
||||
|
||||
<li><a href=
|
||||
"ada/terminal_interface-curses-forms-field_types-intfield__ads.htm">
|
||||
IntField</a></li>
|
||||
|
||||
<li><a href=
|
||||
"ada/terminal_interface-curses-forms-field_types-numeric__ads.htm">
|
||||
Numeric</a></li>
|
||||
|
||||
<li><a href=
|
||||
"ada/terminal_interface-curses-forms-field_types-regexp__ads.htm">
|
||||
RegExp</a></li>
|
||||
|
||||
<li><a href=
|
||||
"ada/terminal_interface-curses-forms-field_types-ipv4_address__ads.htm">
|
||||
IPV4_Address</a></li>
|
||||
|
||||
<li>
|
||||
<a href=
|
||||
"ada/terminal_interface-curses-forms-field_types-enumeration__ads.htm">
|
||||
Enumeration</a>
|
||||
|
||||
<ul>
|
||||
<li><a href=
|
||||
"ada/terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm">
|
||||
Ada</a></li>
|
||||
</ul>
|
||||
</li>
|
||||
|
||||
<li>
|
||||
<a href=
|
||||
"ada/terminal_interface-curses-forms-field_types-user__ads.htm">
|
||||
User</a>
|
||||
|
||||
<ul>
|
||||
<li><a href=
|
||||
"ada/terminal_interface-curses-forms-field_types-user-choice__ads.htm">
|
||||
Choice</a></li>
|
||||
</ul>
|
||||
</li>
|
||||
</ul>
|
||||
</li>
|
||||
</ul>
|
||||
</li>
|
||||
|
||||
<li>
|
||||
<a href=
|
||||
"ada/terminal_interface-curses-text_io__ads.htm">Text_IO</a>
|
||||
|
||||
<ul>
|
||||
<li><a href=
|
||||
"ada/terminal_interface-curses-text_io-integer_io__ads.htm">
|
||||
Integer_IO</a></li>
|
||||
|
||||
<li><a href=
|
||||
"ada/terminal_interface-curses-text_io-float_io__ads.htm">
|
||||
Float_IO</a></li>
|
||||
|
||||
<li><a href=
|
||||
"ada/terminal_interface-curses-text_io-fixed_io__ads.htm">
|
||||
Fixed_IO</a></li>
|
||||
|
||||
<li><a href=
|
||||
"ada/terminal_interface-curses-text_io-decimal_io__ads.htm">
|
||||
Decimal_IO</a></li>
|
||||
|
||||
<li><a href=
|
||||
"ada/terminal_interface-curses-text_io-modular_io__ads.htm">
|
||||
Modular_IO</a></li>
|
||||
|
||||
<li><a href=
|
||||
"ada/terminal_interface-curses-text_io-enumeration_io__ads.htm">
|
||||
Enumeration_IO</a></li>
|
||||
|
||||
<li><a href=
|
||||
"ada/terminal_interface-curses-text_io-complex_io__ads.htm">
|
||||
Complex_IO</a></li>
|
||||
</ul>
|
||||
</li>
|
||||
</ul>
|
||||
</li>
|
||||
</ul>
|
||||
</li>
|
||||
</ul>
|
||||
|
||||
<p>If you want to navigate through the html pages of the package
|
||||
specs, click <a href="ada/index.htm">here</a>.</p>
|
||||
|
||||
<h2>Implementation Details</h2>
|
||||
|
||||
<h4>Behind the abstraction</h4>
|
||||
|
||||
<p>All the new types like <strong>Window</strong>,
|
||||
<strong>Panel</strong>, <strong>Menu</strong>,
|
||||
<strong>Form</strong> etc. are just opaque representations of the
|
||||
pointers to the corresponding low level (n)curses structures like
|
||||
<strong>WINDOW *</strong>, <strong>PANEL *</strong>, <strong>MENU
|
||||
*</strong> or <strong>FORM *</strong>. So you can safely pass
|
||||
them to C routines that expect a pointer to one of those
|
||||
structures.</p>
|
||||
|
||||
<h4>Extended ripoffline() usage</h4>
|
||||
|
||||
<p>The official documentation of (n)curses says, that the line
|
||||
parameter determines only whether or not exactly
|
||||
<strong>one</strong> 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
|
||||
<strong>Rip_Off_Lines</strong> routine of the binding.</p>
|
||||
|
||||
<h4><a name="userpointer" id="userpointer">How user defined field
|
||||
types work</a></h4>
|
||||
|
||||
<p>TBD</p>
|
||||
|
||||
<h4>Enumeration fields handling</h4>
|
||||
|
||||
<p>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.</p>
|
||||
|
||||
<h4><a name="compiler" id="compiler">Using other Ada
|
||||
compilers</a></h4>
|
||||
|
||||
<p>This should basically not be a problem.</p>
|
||||
|
||||
<h4>Port to other curses implementations</h4>
|
||||
|
||||
<p>Basically it should not be too hard to make all this run on a
|
||||
regular SVr4 implementation of curses. The problems are probably
|
||||
these:<br></p>
|
||||
|
||||
<ul>
|
||||
<li>ncurses has some additional features which are presented in
|
||||
this binding. You have two choices to deal with this:
|
||||
|
||||
<ul>
|
||||
<li>Emulate the feature in this binding</li>
|
||||
|
||||
<li>Raise an exception for non implemented features</li>
|
||||
</ul>
|
||||
|
||||
<p>Most likely you will follow a mixed approach. Some
|
||||
features are easy to simulate, others will be hard if not
|
||||
impossible.</p>
|
||||
</li>
|
||||
</ul>
|
||||
|
||||
<p>I'm quite sure I forgot something.</p>
|
||||
</body>
|
||||
</html>
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -1,5 +1,17 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE></TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE></TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<H2 ALIGN=CENTER>Files</H2>
|
||||
<A HREF="files/T.htm">[T]</A>
|
||||
|
||||
@ -1,5 +1,9 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>T</TITLE></HEAD>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>T</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<H2>Files - T</H2>
|
||||
<A HREF="../files.htm" TARGET="_self">[index]</A>
|
||||
|
||||
@ -1,5 +1,17 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE></TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE></TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<H2 ALIGN=CENTER>Functions/Procedures</H2>
|
||||
<A HREF="funcs/A.htm">[A]</A>
|
||||
|
||||
@ -1,24 +1,28 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>A</TITLE></HEAD>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>A</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<H2>Functions - A</H2>
|
||||
<A HREF="../funcs.htm" TARGET="_self">[index]</A>
|
||||
<UL COMPACT TYPE=DISC>
|
||||
<LI><A HREF="../terminal_interface-curses-panels__ads.htm#ref_129_13" TARGET="main">Above</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_525_14" TARGET="main">Add - terminal_interface-curses.ads:525</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_530_14" TARGET="main">Add - terminal_interface-curses.ads:530</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_536_14" TARGET="main">Add - terminal_interface-curses.ads:536</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_544_14" TARGET="main">Add - terminal_interface-curses.ads:544</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_655_14" TARGET="main">Add - terminal_interface-curses.ads:655</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_664_14" TARGET="main">Add - terminal_interface-curses.ads:664</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_679_14" TARGET="main">Add - terminal_interface-curses.ads:679</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_688_14" TARGET="main">Add - terminal_interface-curses.ads:688</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1309_14" TARGET="main">Add_Character_To_Pad_And_Echo_It - terminal_interface-curses.ads:1309</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1314_14" TARGET="main">Add_Character_To_Pad_And_Echo_It - terminal_interface-curses.ads:1314</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_553_14" TARGET="main">Add_With_Immediate_Echo - terminal_interface-curses.ads:553</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_559_14" TARGET="main">Add_With_Immediate_Echo - terminal_interface-curses.ads:559</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_524_14" TARGET="main">Add - terminal_interface-curses.ads:524</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_529_14" TARGET="main">Add - terminal_interface-curses.ads:529</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_535_14" TARGET="main">Add - terminal_interface-curses.ads:535</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_543_14" TARGET="main">Add - terminal_interface-curses.ads:543</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_654_14" TARGET="main">Add - terminal_interface-curses.ads:654</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_663_14" TARGET="main">Add - terminal_interface-curses.ads:663</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_678_14" TARGET="main">Add - terminal_interface-curses.ads:678</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_687_14" TARGET="main">Add - terminal_interface-curses.ads:687</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1308_14" TARGET="main">Add_Character_To_Pad_And_Echo_It - terminal_interface-curses.ads:1308</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1313_14" TARGET="main">Add_Character_To_Pad_And_Echo_It - terminal_interface-curses.ads:1313</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_552_14" TARGET="main">Add_With_Immediate_Echo - terminal_interface-curses.ads:552</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_558_14" TARGET="main">Add_With_Immediate_Echo - terminal_interface-curses.ads:558</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_959_16" TARGET="main">Ahead</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types-user__adb.htm#ref_50_16" TARGET="main">Allocate_Arg</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1018_14" TARGET="main">Allow_Scrolling</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1838_14" TARGET="main">Assume_Default_Colors</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1017_14" TARGET="main">Allow_Scrolling</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1837_14" TARGET="main">Assume_Default_Colors</A>
|
||||
</UL></BODY></HTML>
|
||||
|
||||
@ -1,21 +1,25 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>B</TITLE></HEAD>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>B</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<H2>Functions - B</H2>
|
||||
<A HREF="../funcs.htm" TARGET="_self">[index]</A>
|
||||
<UL COMPACT TYPE=DISC>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_458_14" TARGET="main">Background - terminal_interface-curses-forms.ads:458</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_463_14" TARGET="main">Background - terminal_interface-curses-forms.ads:463</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_455_14" TARGET="main">Background - terminal_interface-curses-menus.ads:455</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_460_14" TARGET="main">Background - terminal_interface-curses-menus.ads:460</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_456_14" TARGET="main">Background - terminal_interface-curses-forms.ads:456</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_461_14" TARGET="main">Background - terminal_interface-curses-forms.ads:461</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_453_14" TARGET="main">Background - terminal_interface-curses-menus.ads:453</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_458_14" TARGET="main">Background - terminal_interface-curses-menus.ads:458</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2052_16" TARGET="main">Baud</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1649_13" TARGET="main">Baudrate</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_872_14" TARGET="main">Beep</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1648_13" TARGET="main">Baudrate</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_871_14" TARGET="main">Beep</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_751_16" TARGET="main">Beeper</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_975_16" TARGET="main">Behind</A>
|
||||
<LI><A HREF="../terminal_interface-curses-panels__ads.htm#ref_134_13" TARGET="main">Below</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_706_14" TARGET="main">Border</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_705_14" TARGET="main">Border</A>
|
||||
<LI><A HREF="../terminal_interface-curses-panels__ads.htm#ref_77_14" TARGET="main">Bottom</A>
|
||||
<LI><A HREF="../terminal_interface-curses-panels__adb.htm#ref_65_16" TARGET="main">Bottompanel</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_722_14" TARGET="main">Box</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_721_14" TARGET="main">Box</A>
|
||||
</UL></BODY></HTML>
|
||||
|
||||
@ -1,50 +1,54 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>C</TITLE></HEAD>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>C</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<H2>Functions - C</H2>
|
||||
<A HREF="../funcs.htm" TARGET="_self">[index]</A>
|
||||
<UL COMPACT TYPE=DISC>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2213_16" TARGET="main">Canchangecolor</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1741_13" TARGET="main">Can_Change_Color</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1740_13" TARGET="main">Can_Change_Color</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_771_16" TARGET="main">Cbreak</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_386_13" TARGET="main">Changed</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_847_14" TARGET="main">Change_Attributes - terminal_interface-curses.ads:847</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_856_14" TARGET="main">Change_Attributes - terminal_interface-curses.ads:856</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1118_14" TARGET="main">Change_Background</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1154_14" TARGET="main">Change_Lines_Status</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_384_13" TARGET="main">Changed</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_846_14" TARGET="main">Change_Attributes - terminal_interface-curses.ads:846</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_855_14" TARGET="main">Change_Attributes - terminal_interface-curses.ads:855</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1117_14" TARGET="main">Change_Background</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1153_14" TARGET="main">Change_Lines_Status</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types__ads.htm#ref_185_13" TARGET="main">Char_Check_Router</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1082_14" TARGET="main">Clear</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1081_14" TARGET="main">Clear</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_968_16" TARGET="main">Clear_Ok</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_983_14" TARGET="main">Clear_On_Next_Update</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1535_14" TARGET="main">Clear_Soft_Label_Keys</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1096_14" TARGET="main">Clear_To_End_Of_Line</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1089_14" TARGET="main">Clear_To_End_Of_Screen</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_982_14" TARGET="main">Clear_On_Next_Update</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1534_14" TARGET="main">Clear_Soft_Label_Keys</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1095_14" TARGET="main">Clear_To_End_Of_Line</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1088_14" TARGET="main">Clear_To_End_Of_Screen</A>
|
||||
<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#ref_98_13" TARGET="main">Col - terminal_interface-curses-text_io.ads:98</A>
|
||||
<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#ref_99_13" TARGET="main">Col - terminal_interface-curses-text_io.ads:99</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2230_16" TARGET="main">Colorcontent</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1746_14" TARGET="main">Color_Content</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_417_13" TARGET="main">Columns</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1176_14" TARGET="main">Copy</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1745_14" TARGET="main">Color_Content</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_416_13" TARGET="main">Columns</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1175_14" TARGET="main">Copy</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_1269_16" TARGET="main">Copywin</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types__ads.htm#ref_167_13" TARGET="main">Copy_Arg</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_774_16" TARGET="main">Count - terminal_interface-curses-forms.adb:774</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_912_16" TARGET="main">Count - terminal_interface-curses-menus.adb:912</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_48_13" TARGET="main">Create - terminal_interface-curses-forms-field_types-enumeration-ada.ads:48</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_64_13" TARGET="main">Create - terminal_interface-curses-forms-field_types-enumeration.ads:64</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_297_13" TARGET="main">Create - terminal_interface-curses-forms.ads:297</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_627_13" TARGET="main">Create - terminal_interface-curses-forms.ads:627</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_195_13" TARGET="main">Create - terminal_interface-curses-menus.ads:195</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_642_13" TARGET="main">Create - terminal_interface-curses-menus.ads:642</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_295_13" TARGET="main">Create - terminal_interface-curses-forms.ads:295</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_625_13" TARGET="main">Create - terminal_interface-curses-forms.ads:625</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_193_13" TARGET="main">Create - terminal_interface-curses-menus.ads:193</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_640_13" TARGET="main">Create - terminal_interface-curses-menus.ads:640</A>
|
||||
<LI><A HREF="../terminal_interface-curses-panels__ads.htm#ref_67_13" TARGET="main">Create - terminal_interface-curses-panels.ads:67</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_571_13" TARGET="main">Create - terminal_interface-curses.ads:571</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_733_13" TARGET="main">Current - terminal_interface-curses-forms.ads:733</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_298_13" TARGET="main">Current - terminal_interface-curses-menus.ads:298</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_570_13" TARGET="main">Create - terminal_interface-curses.ads:570</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_731_13" TARGET="main">Current - terminal_interface-curses-forms.ads:731</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_296_13" TARGET="main">Current - terminal_interface-curses-menus.ads:296</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_1040_16" TARGET="main">Current_Fld</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_483_13" TARGET="main">Current_Window</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_482_13" TARGET="main">Current_Window</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_300_16" TARGET="main">Curr_Item</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2460_17" TARGET="main">curses_freeall</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1861_14" TARGET="main">Curses_Free_All</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1848_13" TARGET="main">Curses_Version</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1860_14" TARGET="main">Curses_Free_All</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1847_13" TARGET="main">Curses_Version</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2452_16" TARGET="main">curses_versionC</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2317_16" TARGET="main">Curs_Set</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2438_16" TARGET="main">C_Assume_Default_Colors</A>
|
||||
|
||||
@ -1,47 +1,51 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>D</TITLE></HEAD>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>D</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<H2>Functions - D</H2>
|
||||
<A HREF="../funcs.htm" TARGET="_self">[index]</A>
|
||||
<UL COMPACT TYPE=DISC>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_696_13" TARGET="main">Data_Ahead</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_701_13" TARGET="main">Data_Behind</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_104_13" TARGET="main">Default_Field_Options</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_129_13" TARGET="main">Default_Form_Options</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_172_13" TARGET="main">Default_Item_Options</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_148_13" TARGET="main">Default_Menu_Options</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1598_14" TARGET="main">Define_Key</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_694_13" TARGET="main">Data_Ahead</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_699_13" TARGET="main">Data_Behind</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_103_13" TARGET="main">Default_Field_Options</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_127_13" TARGET="main">Default_Form_Options</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_170_13" TARGET="main">Default_Item_Options</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_147_13" TARGET="main">Default_Menu_Options</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1597_14" TARGET="main">Define_Key</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2000_16" TARGET="main">Defkey</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2249_16" TARGET="main">Def_Prog_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2251_16" TARGET="main">Def_Shell_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2032_16" TARGET="main">Delayoutput</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1635_14" TARGET="main">Delay_Output</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_319_14" TARGET="main">Delete - terminal_interface-curses-forms.ads:319</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_638_14" TARGET="main">Delete - terminal_interface-curses-forms.ads:638</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_207_14" TARGET="main">Delete - terminal_interface-curses-menus.ads:207</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_649_14" TARGET="main">Delete - terminal_interface-curses-menus.ads:649</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1634_14" TARGET="main">Delay_Output</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_317_14" TARGET="main">Delete - terminal_interface-curses-forms.ads:317</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_636_14" TARGET="main">Delete - terminal_interface-curses-forms.ads:636</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_205_14" TARGET="main">Delete - terminal_interface-curses-menus.ads:205</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_647_14" TARGET="main">Delete - terminal_interface-curses-menus.ads:647</A>
|
||||
<LI><A HREF="../terminal_interface-curses-panels__ads.htm#ref_139_14" TARGET="main">Delete - terminal_interface-curses-panels.ads:139</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_590_14" TARGET="main">Delete - terminal_interface-curses.ads:590</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1336_14" TARGET="main">Delete_Character - terminal_interface-curses.ads:1336</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1341_14" TARGET="main">Delete_Character - terminal_interface-curses.ads:1341</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1214_14" TARGET="main">Delete_Line</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_589_14" TARGET="main">Delete - terminal_interface-curses.ads:589</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1335_14" TARGET="main">Delete_Character - terminal_interface-curses.ads:1335</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1340_14" TARGET="main">Delete_Character - terminal_interface-curses.ads:1340</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1213_14" TARGET="main">Delete_Line</A>
|
||||
<LI><A HREF="../terminal_interface-curses-panels__adb.htm#ref_156_16" TARGET="main">Del_Panel</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_606_13" TARGET="main">Derived_Window</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_605_13" TARGET="main">Derived_Window</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_298_16" TARGET="main">Derwin</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_126_16" TARGET="main">Descname - terminal_interface-curses-menus.adb:126</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_270_16" TARGET="main">Descname - terminal_interface-curses-menus.adb:270</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_278_16" TARGET="main">Descname - terminal_interface-curses-menus.adb:278</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_278_14" TARGET="main">Description - terminal_interface-curses-menus.ads:278</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_282_14" TARGET="main">Description - terminal_interface-curses-menus.ads:282</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_276_14" TARGET="main">Description - terminal_interface-curses-menus.ads:276</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_280_14" TARGET="main">Description - terminal_interface-curses-menus.ads:280</A>
|
||||
<LI><A HREF="../terminal_interface-curses-mouse__adb.htm#ref_131_14" TARGET="main">Dispatch_Event</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_1059_16" TARGET="main">Do_Update</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_715_13" TARGET="main">Driver - terminal_interface-curses-forms.ads:715</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_664_13" TARGET="main">Driver - terminal_interface-curses-menus.ads:664</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_713_13" TARGET="main">Driver - terminal_interface-curses-forms.ads:713</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_662_13" TARGET="main">Driver - terminal_interface-curses-menus.ads:662</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_973_16" TARGET="main">Driver - terminal_interface-curses-menus.adb:973</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_325_13" TARGET="main">Duplicate - terminal_interface-curses-forms.ads:325</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_616_13" TARGET="main">Duplicate - terminal_interface-curses.ads:616</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_323_13" TARGET="main">Duplicate - terminal_interface-curses-forms.ads:323</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_615_13" TARGET="main">Duplicate - terminal_interface-curses.ads:615</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_321_16" TARGET="main">Dupwin</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_151_16" TARGET="main">Dup_Field</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_497_14" TARGET="main">Dynamic_Info</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_495_14" TARGET="main">Dynamic_Info</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_559_16" TARGET="main">Dyn_Info</A>
|
||||
</UL></BODY></HTML>
|
||||
|
||||
@ -1,18 +1,22 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>E</TITLE></HEAD>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>E</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<H2>Functions - E</H2>
|
||||
<A HREF="../funcs.htm" TARGET="_self">[index]</A>
|
||||
<UL COMPACT TYPE=DISC>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_809_16" TARGET="main">Echo</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1588_14" TARGET="main">Enable_Key</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1587_14" TARGET="main">Enable_Key</A>
|
||||
<LI><A HREF="../terminal_interface-curses-mouse__ads.htm#ref_150_13" TARGET="main">Enclosed_In_Window</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_113_16" TARGET="main">Endwin</A>
|
||||
<LI><A HREF="../terminal_interface-curses-mouse__ads.htm#ref_124_14" TARGET="main">End_Mouse</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_499_14" TARGET="main">End_Screen</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_497_14" TARGET="main">End_Windows</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1076_14" TARGET="main">Erase</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_498_14" TARGET="main">End_Screen</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_496_14" TARGET="main">End_Windows</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1075_14" TARGET="main">Erase</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2060_16" TARGET="main">Erasechar</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1654_13" TARGET="main">Erase_Character</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1653_13" TARGET="main">Erase_Character</A>
|
||||
<LI><A HREF="../terminal_interface-curses-aux__ads.htm#ref_96_14" TARGET="main">Eti_Exception</A>
|
||||
</UL></BODY></HTML>
|
||||
|
||||
@ -1,16 +1,20 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>F</TITLE></HEAD>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>F</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<H2>Functions - F</H2>
|
||||
<A HREF="../funcs.htm" TARGET="_self">[index]</A>
|
||||
<UL COMPACT TYPE=DISC>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_605_13" TARGET="main">Fields</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_603_13" TARGET="main">Fields</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_468_16" TARGET="main">Field_Back - terminal_interface-curses-forms.adb:468</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_478_16" TARGET="main">Field_Back - terminal_interface-curses-forms.adb:478</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_255_16" TARGET="main">Field_Buffer - terminal_interface-curses-forms.adb:255</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_266_16" TARGET="main">Field_Buffer - terminal_interface-curses-forms.adb:266</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types__ads.htm#ref_177_13" TARGET="main">Field_Check_Router</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_611_13" TARGET="main">Field_Count</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_609_13" TARGET="main">Field_Count</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_424_16" TARGET="main">Field_Fore - terminal_interface-curses-forms.adb:424</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_434_16" TARGET="main">Field_Fore - terminal_interface-curses-forms.adb:434</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_213_16" TARGET="main">Field_Just</A>
|
||||
@ -23,17 +27,17 @@
|
||||
<LI><A HREF="../terminal_interface-curses-aux__ads.htm#ref_116_14" TARGET="main">Fill_String - terminal_interface-curses-aux.ads:116</A>
|
||||
<LI><A HREF="../terminal_interface-curses-aux__ads.htm#ref_121_13" TARGET="main">Fill_String - terminal_interface-curses-aux.ads:121</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_761_16" TARGET="main">Flash</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_877_14" TARGET="main">Flash_Screen</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_876_14" TARGET="main">Flash_Screen</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_528_16" TARGET="main">Fld_Info</A>
|
||||
<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#ref_65_14" TARGET="main">Flush - terminal_interface-curses-text_io.ads:65</A>
|
||||
<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#ref_66_14" TARGET="main">Flush - terminal_interface-curses-text_io.ads:66</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2042_16" TARGET="main">Flushinp</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1640_14" TARGET="main">Flush_Input</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_438_14" TARGET="main">Foreground - terminal_interface-curses-forms.ads:438</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_443_14" TARGET="main">Foreground - terminal_interface-curses-forms.ads:443</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_435_14" TARGET="main">Foreground - terminal_interface-curses-menus.ads:435</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_440_14" TARGET="main">Foreground - terminal_interface-curses-menus.ads:440</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_555_14" TARGET="main">Format</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1639_14" TARGET="main">Flush_Input</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_436_14" TARGET="main">Foreground - terminal_interface-curses-forms.ads:436</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_441_14" TARGET="main">Foreground - terminal_interface-curses-forms.ads:441</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_433_14" TARGET="main">Foreground - terminal_interface-curses-menus.ads:433</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_438_14" TARGET="main">Foreground - terminal_interface-curses-menus.ads:438</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_553_14" TARGET="main">Format</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_889_16" TARGET="main">Form_Opts</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_867_16" TARGET="main">Form_Opts_Off</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_864_16" TARGET="main">Form_Opts_On</A>
|
||||
@ -42,14 +46,14 @@
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_628_16" TARGET="main">Form_Sub</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-form_user_data__adb.htm#ref_73_16" TARGET="main">Form_Userptr</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_600_16" TARGET="main">Form_Win</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_140_14" TARGET="main">Free - terminal_interface-curses-forms.ads:140</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_184_14" TARGET="main">Free - terminal_interface-curses-menus.ads:184</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_138_14" TARGET="main">Free - terminal_interface-curses-forms.ads:138</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_182_14" TARGET="main">Free - terminal_interface-curses-menus.ads:182</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_825_16" TARGET="main">Free - terminal_interface-curses-forms.adb:825</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_958_16" TARGET="main">Free - terminal_interface-curses-menus.adb:958</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_131_16" TARGET="main">Freeitem</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types__ads.htm#ref_172_14" TARGET="main">Free_Arg</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_133_16" TARGET="main">Free_Field</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_996_16" TARGET="main">Frm_Driver</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_783_13" TARGET="main">Function_Key</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_788_13" TARGET="main">Function_Key_Code</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_782_13" TARGET="main">Function_Key</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_787_13" TARGET="main">Function_Key_Code</A>
|
||||
</UL></BODY></HTML>
|
||||
|
||||
@ -1,5 +1,9 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>G</TITLE></HEAD>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>G</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<H2>Functions - G</H2>
|
||||
<A HREF="../funcs.htm" TARGET="_self">[index]</A>
|
||||
@ -8,8 +12,8 @@
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types-user__ads.htm#ref_81_13" TARGET="main">Generic_Field_Check</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_80_13" TARGET="main">Generic_Next</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_87_13" TARGET="main">Generic_Prev</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1465_14" TARGET="main">Get - terminal_interface-curses.ads:1465</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1476_14" TARGET="main">Get - terminal_interface-curses.ads:1476</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1464_14" TARGET="main">Get - terminal_interface-curses.ads:1464</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1475_14" TARGET="main">Get - terminal_interface-curses.ads:1475</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_1370_16" TARGET="main">GetBegX</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_1367_16" TARGET="main">GetBegY</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_1388_16" TARGET="main">GetCurX</A>
|
||||
@ -21,59 +25,59 @@
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_1404_16" TARGET="main">GetParY</A>
|
||||
<LI><A HREF="../terminal_interface-curses-putwin__adb.htm#ref_65_16" TARGET="main">getwin</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types__adb.htm#ref_61_13" TARGET="main">Get_Arg</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1127_13" TARGET="main">Get_Background</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_366_14" TARGET="main">Get_Buffer - terminal_interface-curses-forms.ads:366</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_372_13" TARGET="main">Get_Buffer - terminal_interface-curses-forms.ads:372</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_828_13" TARGET="main">Get_Character_Attribute - terminal_interface-curses.ads:828</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_834_13" TARGET="main">Get_Character_Attribute - terminal_interface-curses.ads:834</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1246_14" TARGET="main">Get_Cursor_Position</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1126_13" TARGET="main">Get_Background</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_364_14" TARGET="main">Get_Buffer - terminal_interface-curses-forms.ads:364</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_370_13" TARGET="main">Get_Buffer - terminal_interface-curses-forms.ads:370</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_827_13" TARGET="main">Get_Character_Attribute - terminal_interface-curses.ads:827</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_833_13" TARGET="main">Get_Character_Attribute - terminal_interface-curses.ads:833</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1245_14" TARGET="main">Get_Cursor_Position</A>
|
||||
<LI><A HREF="../terminal_interface-curses-termcap__ads.htm#ref_59_13" TARGET="main">Get_Entry</A>
|
||||
<LI><A HREF="../terminal_interface-curses-mouse__ads.htm#ref_133_14" TARGET="main">Get_Event</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_1084_16" TARGET="main">Get_Fieldindex</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types__adb.htm#ref_58_13" TARGET="main">Get_Fieldtype</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_569_13" TARGET="main">Get_Field_Init_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_574_13" TARGET="main">Get_Field_Term_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_567_13" TARGET="main">Get_Field_Init_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_572_13" TARGET="main">Get_Field_Term_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-termcap__ads.htm#ref_63_13" TARGET="main">Get_Flag - terminal_interface-curses-termcap.ads:63</A>
|
||||
<LI><A HREF="../terminal_interface-curses-terminfo__ads.htm#ref_64_13" TARGET="main">Get_Flag - terminal_interface-curses-terminfo.ads:64</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_579_13" TARGET="main">Get_Form_Init_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_584_13" TARGET="main">Get_Form_Term_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_749_13" TARGET="main">Get_Index - terminal_interface-curses-forms.ads:749</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_314_13" TARGET="main">Get_Index - terminal_interface-curses-menus.ads:314</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_577_13" TARGET="main">Get_Form_Init_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_582_13" TARGET="main">Get_Form_Term_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_747_13" TARGET="main">Get_Index - terminal_interface-curses-forms.ads:747</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_312_13" TARGET="main">Get_Index - terminal_interface-curses-menus.ads:312</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_340_16" TARGET="main">Get_Itemindex</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_593_13" TARGET="main">Get_Item_Init_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_598_13" TARGET="main">Get_Item_Term_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_349_13" TARGET="main">Get_Justification</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_917_13" TARGET="main">Get_KeyPad_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_753_13" TARGET="main">Get_Keystroke</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_603_13" TARGET="main">Get_Menu_Init_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_591_13" TARGET="main">Get_Item_Init_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_596_13" TARGET="main">Get_Item_Term_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_347_13" TARGET="main">Get_Justification</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_916_13" TARGET="main">Get_KeyPad_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_752_13" TARGET="main">Get_Keystroke</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_601_13" TARGET="main">Get_Menu_Init_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_532_16" TARGET="main">Get_Menu_Mark - terminal_interface-curses-menus.adb:532</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_540_16" TARGET="main">Get_Menu_Mark - terminal_interface-curses-menus.adb:540</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_608_13" TARGET="main">Get_Menu_Term_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_606_13" TARGET="main">Get_Menu_Term_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-mouse__ads.htm#ref_129_13" TARGET="main">Get_Mouse</A>
|
||||
<LI><A HREF="../terminal_interface-curses-termcap__ads.htm#ref_67_14" TARGET="main">Get_Number - terminal_interface-curses-termcap.ads:67</A>
|
||||
<LI><A HREF="../terminal_interface-curses-terminfo__ads.htm#ref_68_13" TARGET="main">Get_Number - terminal_interface-curses-terminfo.ads:68</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_415_14" TARGET="main">Get_Options - terminal_interface-curses-forms.ads:415</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_420_13" TARGET="main">Get_Options - terminal_interface-curses-forms.ads:420</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_662_14" TARGET="main">Get_Options - terminal_interface-curses-forms.ads:662</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_667_13" TARGET="main">Get_Options - terminal_interface-curses-forms.ads:667</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_255_14" TARGET="main">Get_Options - terminal_interface-curses-menus.ads:255</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_260_13" TARGET="main">Get_Options - terminal_interface-curses-menus.ads:260</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_351_14" TARGET="main">Get_Options - terminal_interface-curses-menus.ads:351</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_356_13" TARGET="main">Get_Options - terminal_interface-curses-menus.ads:356</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1254_14" TARGET="main">Get_Origin_Relative_To_Parent</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_413_14" TARGET="main">Get_Options - terminal_interface-curses-forms.ads:413</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_418_13" TARGET="main">Get_Options - terminal_interface-curses-forms.ads:418</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_660_14" TARGET="main">Get_Options - terminal_interface-curses-forms.ads:660</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_665_13" TARGET="main">Get_Options - terminal_interface-curses-forms.ads:665</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_253_14" TARGET="main">Get_Options - terminal_interface-curses-menus.ads:253</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_258_13" TARGET="main">Get_Options - terminal_interface-curses-menus.ads:258</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_349_14" TARGET="main">Get_Options - terminal_interface-curses-menus.ads:349</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_354_13" TARGET="main">Get_Options - terminal_interface-curses-menus.ads:354</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1253_14" TARGET="main">Get_Origin_Relative_To_Parent</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_1070_16" TARGET="main">Get_Page</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_758_16" TARGET="main">Get_Pattern</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1230_14" TARGET="main">Get_Size</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1524_14" TARGET="main">Get_Soft_Label_Key - terminal_interface-curses.ads:1524</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1529_13" TARGET="main">Get_Soft_Label_Key - terminal_interface-curses.ads:1529</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1565_13" TARGET="main">Get_Soft_Label_Key_Attributes - terminal_interface-curses.ads:1565</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1569_13" TARGET="main">Get_Soft_Label_Key_Attributes - terminal_interface-curses.ads:1569</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1229_14" TARGET="main">Get_Size</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1523_14" TARGET="main">Get_Soft_Label_Key - terminal_interface-curses.ads:1523</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1528_13" TARGET="main">Get_Soft_Label_Key - terminal_interface-curses.ads:1528</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1564_13" TARGET="main">Get_Soft_Label_Key_Attributes - terminal_interface-curses.ads:1564</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1568_13" TARGET="main">Get_Soft_Label_Key_Attributes - terminal_interface-curses.ads:1568</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_713_16" TARGET="main">Get_Spacing</A>
|
||||
<LI><A HREF="../terminal_interface-curses-termcap__ads.htm#ref_73_14" TARGET="main">Get_String - terminal_interface-curses-termcap.ads:73</A>
|
||||
<LI><A HREF="../terminal_interface-curses-termcap__ads.htm#ref_76_13" TARGET="main">Get_String - terminal_interface-curses-termcap.ads:76</A>
|
||||
<LI><A HREF="../terminal_interface-curses-terminfo__ads.htm#ref_57_14" TARGET="main">Get_String - terminal_interface-curses-terminfo.ads:57</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_526_13" TARGET="main">Get_Sub_Window - terminal_interface-curses-forms.ads:526</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_382_13" TARGET="main">Get_Sub_Window - terminal_interface-curses-menus.ads:382</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_524_13" TARGET="main">Get_Sub_Window - terminal_interface-curses-forms.ads:524</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_380_13" TARGET="main">Get_Sub_Window - terminal_interface-curses-menus.ads:380</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types__ads.htm#ref_79_13" TARGET="main">Get_Type</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_user_data__ads.htm#ref_59_14" TARGET="main">Get_User_Data - terminal_interface-curses-forms-field_user_data.ads:59</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_user_data__ads.htm#ref_64_13" TARGET="main">Get_User_Data - terminal_interface-curses-forms-field_user_data.ads:64</A>
|
||||
@ -85,12 +89,12 @@
|
||||
<LI><A HREF="../terminal_interface-curses-menus-menu_user_data__ads.htm#ref_64_13" TARGET="main">Get_User_Data - terminal_interface-curses-menus-menu_user_data.ads:64</A>
|
||||
<LI><A HREF="../terminal_interface-curses-panels-user_data__ads.htm#ref_59_14" TARGET="main">Get_User_Data - terminal_interface-curses-panels-user_data.ads:59</A>
|
||||
<LI><A HREF="../terminal_interface-curses-panels-user_data__ads.htm#ref_64_13" TARGET="main">Get_User_Data - terminal_interface-curses-panels-user_data.ads:64</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_515_13" TARGET="main">Get_Window - terminal_interface-curses-forms.ads:515</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_371_13" TARGET="main">Get_Window - terminal_interface-curses-menus.ads:371</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_513_13" TARGET="main">Get_Window - terminal_interface-curses-forms.ads:513</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_369_13" TARGET="main">Get_Window - terminal_interface-curses-menus.ads:369</A>
|
||||
<LI><A HREF="../terminal_interface-curses-panels__ads.htm#ref_102_13" TARGET="main">Get_Window - terminal_interface-curses-panels.ads:102</A>
|
||||
<LI><A HREF="../terminal_interface-curses-putwin__ads.htm#ref_48_13" TARGET="main">Get_Window - terminal_interface-curses-putwin.ads:48</A>
|
||||
<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#ref_62_13" TARGET="main">Get_Window - terminal_interface-curses-text_io.ads:62</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1238_14" TARGET="main">Get_Window_Position</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_475_14" TARGET="main">Grey - terminal_interface-curses-menus.ads:475</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_480_14" TARGET="main">Grey - terminal_interface-curses-menus.ads:480</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1237_14" TARGET="main">Get_Window_Position</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_473_14" TARGET="main">Grey - terminal_interface-curses-menus.ads:473</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_478_14" TARGET="main">Grey - terminal_interface-curses-menus.ads:478</A>
|
||||
</UL></BODY></HTML>
|
||||
|
||||
@ -1,22 +1,26 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>H</TITLE></HEAD>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>H</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<H2>Functions - H</H2>
|
||||
<A HREF="../funcs.htm" TARGET="_self">[index]</A>
|
||||
<UL COMPACT TYPE=DISC>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_859_16" TARGET="main">Halfdelay</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_925_14" TARGET="main">Half_Delay</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_924_14" TARGET="main">Half_Delay</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2184_16" TARGET="main">Hascolors</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_547_16" TARGET="main">Haskey</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1728_13" TARGET="main">Has_Colors</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1727_13" TARGET="main">Has_Colors</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2076_16" TARGET="main">Has_Ic</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2088_16" TARGET="main">Has_Il</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1664_13" TARGET="main">Has_Insert_Character</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1669_13" TARGET="main">Has_Insert_Line</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_769_13" TARGET="main">Has_Key</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1663_13" TARGET="main">Has_Insert_Character</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1668_13" TARGET="main">Has_Insert_Line</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_768_13" TARGET="main">Has_Key</A>
|
||||
<LI><A HREF="../terminal_interface-curses-mouse__ads.htm#ref_94_13" TARGET="main">Has_Mouse</A>
|
||||
<LI><A HREF="../terminal_interface-curses-terminfo__ads.htm#ref_60_13" TARGET="main">Has_String</A>
|
||||
<LI><A HREF="../terminal_interface-curses-panels__ads.htm#ref_97_14" TARGET="main">Hide</A>
|
||||
<LI><A HREF="../terminal_interface-curses-panels__adb.htm#ref_95_16" TARGET="main">Hidepanel</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_730_14" TARGET="main">Horizontal_Line</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_729_14" TARGET="main">Horizontal_Line</A>
|
||||
</UL></BODY></HTML>
|
||||
|
||||
@ -1,45 +1,49 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>I</TITLE></HEAD>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>I</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<H2>Functions - I</H2>
|
||||
<A HREF="../funcs.htm" TARGET="_self">[index]</A>
|
||||
<UL COMPACT TYPE=DISC>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_992_17" TARGET="main">IDC_Ok</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_980_16" TARGET="main">IDL_Ok</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1011_14" TARGET="main">Immediate_Update_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1010_14" TARGET="main">Immediate_Update_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_1014_17" TARGET="main">Immedok</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_486_14" TARGET="main">Info</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_484_14" TARGET="main">Info</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2199_16" TARGET="main">Initcolor</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2144_16" TARGET="main">Initpair</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_100_16" TARGET="main">Initscr</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1733_14" TARGET="main">Init_Color</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1714_14" TARGET="main">Init_Pair</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_488_14" TARGET="main">Init_Screen</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1501_14" TARGET="main">Init_Soft_Label_Keys</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_491_14" TARGET="main">Init_Windows</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1373_14" TARGET="main">Insert - terminal_interface-curses.ads:1373</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1379_14" TARGET="main">Insert - terminal_interface-curses.ads:1379</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1391_14" TARGET="main">Insert - terminal_interface-curses.ads:1391</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1400_14" TARGET="main">Insert - terminal_interface-curses.ads:1400</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1206_14" TARGET="main">Insert_Delete_Lines</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1220_14" TARGET="main">Insert_Line</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1732_14" TARGET="main">Init_Color</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1713_14" TARGET="main">Init_Pair</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_487_14" TARGET="main">Init_Screen</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1500_14" TARGET="main">Init_Soft_Label_Keys</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_490_14" TARGET="main">Init_Windows</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1372_14" TARGET="main">Insert - terminal_interface-curses.ads:1372</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1378_14" TARGET="main">Insert - terminal_interface-curses.ads:1378</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1390_14" TARGET="main">Insert - terminal_interface-curses.ads:1390</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1399_14" TARGET="main">Insert - terminal_interface-curses.ads:1399</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1205_14" TARGET="main">Insert_Delete_Lines</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1219_14" TARGET="main">Insert_Line</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_871_16" TARGET="main">Intrflush</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_123_16" TARGET="main">Isendwin</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_504_13" TARGET="main">Is_End_Window</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_776_13" TARGET="main">Is_Function_Key</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_503_13" TARGET="main">Is_End_Window</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_775_13" TARGET="main">Is_Function_Key</A>
|
||||
<LI><A HREF="../terminal_interface-curses-panels__ads.htm#ref_124_13" TARGET="main">Is_Hidden</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_851_16" TARGET="main">Is_Keypad</A>
|
||||
<LI><A HREF="../terminal_interface-curses-terminfo__adb.htm#ref_50_13" TARGET="main">Is_MinusOne_Pointer</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_1119_16" TARGET="main">Is_New</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_767_13" TARGET="main">Is_New_Page</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_765_13" TARGET="main">Is_New_Page</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_1035_16" TARGET="main">Is_Scroll_Ok</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1162_13" TARGET="main">Is_Touched - terminal_interface-curses.ads:1162</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1167_13" TARGET="main">Is_Touched - terminal_interface-curses.ads:1167</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1161_13" TARGET="main">Is_Touched - terminal_interface-curses.ads:1161</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1166_13" TARGET="main">Is_Touched - terminal_interface-curses.ads:1166</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_128_16" TARGET="main">Itemname - terminal_interface-curses-menus.adb:128</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_253_16" TARGET="main">Itemname - terminal_interface-curses-menus.adb:253</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_261_16" TARGET="main">Itemname - terminal_interface-curses-menus.adb:261</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_627_13" TARGET="main">Items</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_633_13" TARGET="main">Item_Count</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_625_13" TARGET="main">Items</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_631_13" TARGET="main">Item_Count</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_860_16" TARGET="main">Item_Init</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_234_16" TARGET="main">Item_Opts</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_214_16" TARGET="main">Item_Opts_Off</A>
|
||||
|
||||
@ -1,5 +1,9 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>K</TITLE></HEAD>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>K</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<H2>Functions - K</H2>
|
||||
<A HREF="../funcs.htm" TARGET="_self">[index]</A>
|
||||
@ -7,8 +11,8 @@
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_64_16" TARGET="main">Keyname</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_1987_16" TARGET="main">Keyok</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_840_16" TARGET="main">Keypad</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1612_14" TARGET="main">Key_Name - terminal_interface-curses.ads:1612</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1618_13" TARGET="main">Key_Name - terminal_interface-curses.ads:1618</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1611_14" TARGET="main">Key_Name - terminal_interface-curses.ads:1611</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1617_13" TARGET="main">Key_Name - terminal_interface-curses.ads:1617</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2068_16" TARGET="main">Killchar</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1659_13" TARGET="main">Kill_Character</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1658_13" TARGET="main">Kill_Character</A>
|
||||
</UL></BODY></HTML>
|
||||
|
||||
@ -1,20 +1,24 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>L</TITLE></HEAD>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>L</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<H2>Functions - L</H2>
|
||||
<A HREF="../funcs.htm" TARGET="_self">[index]</A>
|
||||
<UL COMPACT TYPE=DISC>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1004_14" TARGET="main">Leave_Cursor_After_Update</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1003_14" TARGET="main">Leave_Cursor_After_Update</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_1002_16" TARGET="main">Leave_Ok</A>
|
||||
<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#ref_101_13" TARGET="main">Line - terminal_interface-curses-text_io.ads:101</A>
|
||||
<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#ref_102_13" TARGET="main">Line - terminal_interface-curses-text_io.ads:102</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_414_13" TARGET="main">Lines</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_413_13" TARGET="main">Lines</A>
|
||||
<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#ref_77_13" TARGET="main">Line_Length - terminal_interface-curses-text_io.ads:77</A>
|
||||
<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#ref_78_13" TARGET="main">Line_Length - terminal_interface-curses-text_io.ads:78</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_332_13" TARGET="main">Link</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_330_13" TARGET="main">Link</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_172_16" TARGET="main">Lnk_Field</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2110_16" TARGET="main">Longname - terminal_interface-curses.adb:2110</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2118_16" TARGET="main">Longname - terminal_interface-curses.adb:2118</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1679_14" TARGET="main">Long_Name - terminal_interface-curses.ads:1679</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1683_13" TARGET="main">Long_Name - terminal_interface-curses.ads:1683</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1678_14" TARGET="main">Long_Name - terminal_interface-curses.ads:1678</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1682_13" TARGET="main">Long_Name - terminal_interface-curses.ads:1682</A>
|
||||
</UL></BODY></HTML>
|
||||
|
||||
@ -1,12 +1,16 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>M</TITLE></HEAD>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>M</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<H2>Functions - M</H2>
|
||||
<A HREF="../funcs.htm" TARGET="_self">[index]</A>
|
||||
<UL COMPACT TYPE=DISC>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types__ads.htm#ref_162_13" TARGET="main">Make_Arg</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_413_14" TARGET="main">Mark - terminal_interface-curses-menus.ads:413</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_417_14" TARGET="main">Mark - terminal_interface-curses-menus.ads:417</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_411_14" TARGET="main">Mark - terminal_interface-curses-menus.ads:411</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_415_14" TARGET="main">Mark - terminal_interface-curses-menus.ads:415</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_608_16" TARGET="main">Menu_Back - terminal_interface-curses-menus.adb:608</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_618_16" TARGET="main">Menu_Back - terminal_interface-curses-menus.adb:618</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_787_16" TARGET="main">Menu_Fmt</A>
|
||||
@ -28,13 +32,13 @@
|
||||
<LI><A HREF="../terminal_interface-curses-mouse__adb.htm#ref_211_16" TARGET="main">Mouseinterval</A>
|
||||
<LI><A HREF="../terminal_interface-curses-mouse__adb.htm#ref_52_16" TARGET="main">Mouse_Avail</A>
|
||||
<LI><A HREF="../terminal_interface-curses-mouse__ads.htm#ref_157_13" TARGET="main">Mouse_Interval</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_616_14" TARGET="main">Move - terminal_interface-curses-forms.ads:616</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_614_14" TARGET="main">Move - terminal_interface-curses-forms.ads:614</A>
|
||||
<LI><A HREF="../terminal_interface-curses-panels__ads.htm#ref_117_14" TARGET="main">Move - terminal_interface-curses-panels.ads:117</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_786_16" TARGET="main">Move - terminal_interface-curses-forms.adb:786</A>
|
||||
<LI><A HREF="../terminal_interface-curses-panels__adb.htm#ref_132_16" TARGET="main">Move - terminal_interface-curses-panels.adb:132</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_513_14" TARGET="main">Move_Cursor</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_628_14" TARGET="main">Move_Derived_Window</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_621_14" TARGET="main">Move_Window</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_512_14" TARGET="main">Move_Cursor</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_627_14" TARGET="main">Move_Derived_Window</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_620_14" TARGET="main">Move_Window</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_350_16" TARGET="main">Mvderwin</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_176_16" TARGET="main">mvwaddch</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_1580_16" TARGET="main">Mvwdelch</A>
|
||||
|
||||
@ -1,13 +1,17 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>N</TITLE></HEAD>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>N</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<H2>Functions - N</H2>
|
||||
<A HREF="../funcs.htm" TARGET="_self">[index]</A>
|
||||
<UL COMPACT TYPE=DISC>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_269_14" TARGET="main">Name - terminal_interface-curses-menus.ads:269</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_272_14" TARGET="main">Name - terminal_interface-curses-menus.ads:272</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_267_14" TARGET="main">Name - terminal_interface-curses-menus.ads:267</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_270_14" TARGET="main">Name - terminal_interface-curses-menus.ads:270</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2330_16" TARGET="main">Napms</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1808_14" TARGET="main">Nap_Milli_Seconds</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1807_14" TARGET="main">Nap_Milli_Seconds</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_116_16" TARGET="main">Newfield</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_804_16" TARGET="main">NewForm</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_98_16" TARGET="main">Newitem</A>
|
||||
@ -18,7 +22,7 @@
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types__ads.htm#ref_222_13" TARGET="main">New_Fieldtype</A>
|
||||
<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#ref_86_14" TARGET="main">New_Line - terminal_interface-curses-text_io.ads:86</A>
|
||||
<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#ref_87_14" TARGET="main">New_Line - terminal_interface-curses-text_io.ads:87</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1269_13" TARGET="main">New_Pad</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1268_13" TARGET="main">New_Pad</A>
|
||||
<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#ref_89_14" TARGET="main">New_Page - terminal_interface-curses-text_io.ads:89</A>
|
||||
<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#ref_90_14" TARGET="main">New_Page - terminal_interface-curses-text_io.ads:90</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types__ads.htm#ref_193_13" TARGET="main">Next_Router</A>
|
||||
@ -30,6 +34,6 @@
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_792_16" TARGET="main">NoRaw</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_935_16" TARGET="main">Notimeout</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_885_17" TARGET="main">No_Qiflush</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_423_13" TARGET="main">Number_Of_Colors</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_426_13" TARGET="main">Number_Of_Color_Pairs</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_422_13" TARGET="main">Number_Of_Colors</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_425_13" TARGET="main">Number_Of_Color_Pairs</A>
|
||||
</UL></BODY></HTML>
|
||||
|
||||
@ -1,12 +1,16 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>O</TITLE></HEAD>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>O</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<H2>Functions - O</H2>
|
||||
<A HREF="../funcs.htm" TARGET="_self">[index]</A>
|
||||
<UL COMPACT TYPE=DISC>
|
||||
<LI><A HREF="../terminal_interface-curses-text_io-aux__adb.htm#ref_59_17" TARGET="main">Output</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1196_14" TARGET="main">Overlay - terminal_interface-curses.ads:1196</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1195_14" TARGET="main">Overlay - terminal_interface-curses.ads:1195</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_1310_16" TARGET="main">Overlay - terminal_interface-curses.adb:1310</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1190_14" TARGET="main">Overwrite - terminal_interface-curses.ads:1190</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1189_14" TARGET="main">Overwrite - terminal_interface-curses.ads:1189</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_1298_16" TARGET="main">Overwrite - terminal_interface-curses.adb:1298</A>
|
||||
</UL></BODY></HTML>
|
||||
|
||||
@ -1,32 +1,36 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>P</TITLE></HEAD>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>P</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<H2>Functions - P</H2>
|
||||
<A HREF="../funcs.htm" TARGET="_self">[index]</A>
|
||||
<UL COMPACT TYPE=DISC>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_476_14" TARGET="main">Pad_Character - terminal_interface-curses-forms.ads:476</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_494_14" TARGET="main">Pad_Character - terminal_interface-curses-menus.ads:494</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_744_13" TARGET="main">Page</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_474_14" TARGET="main">Pad_Character - terminal_interface-curses-forms.ads:474</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_492_14" TARGET="main">Pad_Character - terminal_interface-curses-menus.ads:492</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_742_13" TARGET="main">Page</A>
|
||||
<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#ref_80_13" TARGET="main">Page_Length - terminal_interface-curses-text_io.ads:80</A>
|
||||
<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#ref_81_13" TARGET="main">Page_Length - terminal_interface-curses-text_io.ads:81</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2167_16" TARGET="main">Paircontent</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1721_14" TARGET="main">Pair_Content</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1720_14" TARGET="main">Pair_Content</A>
|
||||
<LI><A HREF="../terminal_interface-curses-panels__adb.htm#ref_144_16" TARGET="main">Panel_Hidden</A>
|
||||
<LI><A HREF="../terminal_interface-curses-panels-user_data__adb.htm#ref_65_16" TARGET="main">Panel_Userptr</A>
|
||||
<LI><A HREF="../terminal_interface-curses-panels__adb.htm#ref_105_16" TARGET="main">Panel_Win</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_531_14" TARGET="main">Pattern</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_529_14" TARGET="main">Pattern</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_1531_16" TARGET="main">Pechochar</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1354_13" TARGET="main">Peek - terminal_interface-curses.ads:1354</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1360_13" TARGET="main">Peek - terminal_interface-curses.ads:1360</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1416_14" TARGET="main">Peek - terminal_interface-curses.ads:1416</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1425_14" TARGET="main">Peek - terminal_interface-curses.ads:1425</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1440_14" TARGET="main">Peek - terminal_interface-curses.ads:1440</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1449_14" TARGET="main">Peek - terminal_interface-curses.ads:1449</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1353_13" TARGET="main">Peek - terminal_interface-curses.ads:1353</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1359_13" TARGET="main">Peek - terminal_interface-curses.ads:1359</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1415_14" TARGET="main">Peek - terminal_interface-curses.ads:1415</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1424_14" TARGET="main">Peek - terminal_interface-curses.ads:1424</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1439_14" TARGET="main">Peek - terminal_interface-curses.ads:1439</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1448_14" TARGET="main">Peek - terminal_interface-curses.ads:1448</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_1506_16" TARGET="main">Pnoutrefresh</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_687_14" TARGET="main">Position_Cursor - terminal_interface-curses-forms.ads:687</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_398_14" TARGET="main">Position_Cursor - terminal_interface-curses-menus.ads:398</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_676_14" TARGET="main">Post - terminal_interface-curses-forms.ads:676</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_326_14" TARGET="main">Post - terminal_interface-curses-menus.ads:326</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_685_14" TARGET="main">Position_Cursor - terminal_interface-curses-forms.ads:685</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_396_14" TARGET="main">Position_Cursor - terminal_interface-curses-menus.ads:396</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_674_14" TARGET="main">Post - terminal_interface-curses-forms.ads:674</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_324_14" TARGET="main">Post - terminal_interface-curses-menus.ads:324</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_941_16" TARGET="main">Pos_Form_Cursor</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_499_16" TARGET="main">Pos_Menu_Cursor</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_1476_16" TARGET="main">Prefresh</A>
|
||||
|
||||
@ -1,5 +1,9 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>Q</TITLE></HEAD>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>Q</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<H2>Functions - Q</H2>
|
||||
<A HREF="../funcs.htm" TARGET="_self">[index]</A>
|
||||
|
||||
@ -1,39 +1,43 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>R</TITLE></HEAD>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>R</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<H2>Functions - R</H2>
|
||||
<A HREF="../funcs.htm" TARGET="_self">[index]</A>
|
||||
<UL COMPACT TYPE=DISC>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_790_16" TARGET="main">Raw</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_593_14" TARGET="main">Redefine - terminal_interface-curses-forms.ads:593</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_617_14" TARGET="main">Redefine - terminal_interface-curses-menus.ads:617</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1061_14" TARGET="main">Redraw - terminal_interface-curses.ads:1061</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1065_14" TARGET="main">Redraw - terminal_interface-curses.ads:1065</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_591_14" TARGET="main">Redefine - terminal_interface-curses-forms.ads:591</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_615_14" TARGET="main">Redefine - terminal_interface-curses-menus.ads:615</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1060_14" TARGET="main">Redraw - terminal_interface-curses.ads:1060</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1064_14" TARGET="main">Redraw - terminal_interface-curses.ads:1064</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_1090_16" TARGET="main">Redrawwin</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1047_14" TARGET="main">Refresh - terminal_interface-curses.ads:1047</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1285_14" TARGET="main">Refresh - terminal_interface-curses.ads:1285</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1514_14" TARGET="main">Refresh_Soft_Label_Keys</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1519_14" TARGET="main">Refresh_Soft_Label_Keys_Without_Update</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1054_14" TARGET="main">Refresh_Without_Update - terminal_interface-curses.ads:1054</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1297_14" TARGET="main">Refresh_Without_Update - terminal_interface-curses.ads:1297</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1046_14" TARGET="main">Refresh - terminal_interface-curses.ads:1046</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1284_14" TARGET="main">Refresh - terminal_interface-curses.ads:1284</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1513_14" TARGET="main">Refresh_Soft_Label_Keys</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1518_14" TARGET="main">Refresh_Soft_Label_Keys_Without_Update</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1053_14" TARGET="main">Refresh_Without_Update - terminal_interface-curses.ads:1053</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1296_14" TARGET="main">Refresh_Without_Update - terminal_interface-curses.ads:1296</A>
|
||||
<LI><A HREF="../terminal_interface-curses-mouse__ads.htm#ref_97_14" TARGET="main">Register_Reportable_Event</A>
|
||||
<LI><A HREF="../terminal_interface-curses-mouse__ads.htm#ref_106_14" TARGET="main">Register_Reportable_Events</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_77_14" TARGET="main">Release</A>
|
||||
<LI><A HREF="../terminal_interface-curses-panels__ads.htm#ref_111_14" TARGET="main">Replace</A>
|
||||
<LI><A HREF="../terminal_interface-curses-panels__adb.htm#ref_119_16" TARGET="main">Replace_Pan</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_280_14" TARGET="main">Request_Name - terminal_interface-curses-forms.ads:280</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_283_14" TARGET="main">Request_Name - terminal_interface-curses-forms.ads:283</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_278_14" TARGET="main">Request_Name - terminal_interface-curses-forms.ads:278</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_281_14" TARGET="main">Request_Name - terminal_interface-curses-forms.ads:281</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_106_14" TARGET="main">Request_Name - terminal_interface-curses-menus.ads:106</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_109_14" TARGET="main">Request_Name - terminal_interface-curses-menus.ads:109</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_80_16" TARGET="main">Request_Name - terminal_interface-curses-menus.adb:80</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_88_16" TARGET="main">Request_Name - terminal_interface-curses-menus.adb:88</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2295_16" TARGET="main">Resetty</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1767_14" TARGET="main">Reset_Curses_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1766_14" TARGET="main">Reset_Curses_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2267_16" TARGET="main">Reset_Prog_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2269_16" TARGET="main">Reset_Shell_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1778_14" TARGET="main">Reset_Terminal_State</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1913_14" TARGET="main">Resize</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1540_14" TARGET="main">Restore_Soft_Label_Keys</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1777_14" TARGET="main">Reset_Terminal_State</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1912_14" TARGET="main">Resize</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1539_14" TARGET="main">Restore_Soft_Label_Keys</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2306_16" TARGET="main">Ripoffline</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1791_14" TARGET="main">Rip_Off_Lines</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1790_14" TARGET="main">Rip_Off_Lines</A>
|
||||
</UL></BODY></HTML>
|
||||
|
||||
@ -1,54 +1,58 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>S</TITLE></HEAD>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>S</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<H2>Functions - S</H2>
|
||||
<A HREF="../funcs.htm" TARGET="_self">[index]</A>
|
||||
<UL COMPACT TYPE=DISC>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2285_16" TARGET="main">Savetty</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1761_14" TARGET="main">Save_Curses_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1773_14" TARGET="main">Save_Terminal_State</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_531_14" TARGET="main">Scale - terminal_interface-curses-forms.ads:531</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_387_14" TARGET="main">Scale - terminal_interface-curses-menus.ads:387</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1869_14" TARGET="main">Screen_Dump_To_File</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1877_14" TARGET="main">Screen_Init_From_File</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1873_14" TARGET="main">Screen_Restore_From_File</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1881_14" TARGET="main">Screen_Set_File</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1324_14" TARGET="main">Scroll</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1024_13" TARGET="main">Scrolling_Allowed</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1760_14" TARGET="main">Save_Curses_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1772_14" TARGET="main">Save_Terminal_State</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_529_14" TARGET="main">Scale - terminal_interface-curses-forms.ads:529</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_385_14" TARGET="main">Scale - terminal_interface-curses-menus.ads:385</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1868_14" TARGET="main">Screen_Dump_To_File</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1876_14" TARGET="main">Screen_Init_From_File</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1872_14" TARGET="main">Screen_Restore_From_File</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1880_14" TARGET="main">Screen_Set_File</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1323_14" TARGET="main">Scroll</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1023_13" TARGET="main">Scrolling_Allowed</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_1024_16" TARGET="main">Scrollok</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2490_16" TARGET="main">scr_dump</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2516_16" TARGET="main">scr_init</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2503_16" TARGET="main">scr_restore</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2529_16" TARGET="main">scr_set</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_450_14" TARGET="main">Set_Background - terminal_interface-curses-forms.ads:450</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_447_14" TARGET="main">Set_Background - terminal_interface-curses-menus.ads:447</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1110_14" TARGET="main">Set_Background - terminal_interface-curses.ads:1110</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_358_14" TARGET="main">Set_Buffer</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_888_14" TARGET="main">Set_Cbreak_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_819_14" TARGET="main">Set_Character_Attributes</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_448_14" TARGET="main">Set_Background - terminal_interface-curses-forms.ads:448</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_445_14" TARGET="main">Set_Background - terminal_interface-curses-menus.ads:445</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1109_14" TARGET="main">Set_Background - terminal_interface-curses.ads:1109</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_356_14" TARGET="main">Set_Buffer</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_887_14" TARGET="main">Set_Cbreak_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_818_14" TARGET="main">Set_Character_Attributes</A>
|
||||
<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#ref_92_14" TARGET="main">Set_Col - terminal_interface-curses-text_io.ads:92</A>
|
||||
<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#ref_93_14" TARGET="main">Set_Col - terminal_interface-curses-text_io.ads:93</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_840_14" TARGET="main">Set_Color</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_727_14" TARGET="main">Set_Current - terminal_interface-curses-forms.ads:727</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_292_14" TARGET="main">Set_Current - terminal_interface-curses-menus.ads:292</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_839_14" TARGET="main">Set_Color</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_725_14" TARGET="main">Set_Current - terminal_interface-curses-forms.ads:725</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_290_14" TARGET="main">Set_Current - terminal_interface-curses-menus.ads:290</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_1026_16" TARGET="main">Set_Current_Fld</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_287_16" TARGET="main">Set_Curr_Item</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1803_14" TARGET="main">Set_Cursor_Visibility</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_900_14" TARGET="main">Set_Echo_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_966_14" TARGET="main">Set_Escape_Timer_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_599_14" TARGET="main">Set_Fields</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1802_14" TARGET="main">Set_Cursor_Visibility</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_899_14" TARGET="main">Set_Echo_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_965_14" TARGET="main">Set_Escape_Timer_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_597_14" TARGET="main">Set_Fields</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types__ads.htm#ref_227_13" TARGET="main">Set_Fieldtype_Arg</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types__ads.htm#ref_234_13" TARGET="main">Set_Fieldtype_Choice</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_448_16" TARGET="main">Set_Field_Back</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_404_16" TARGET="main">Set_Field_Fore</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_665_16" TARGET="main">Set_Field_Init</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_545_14" TARGET="main">Set_Field_Init_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_543_14" TARGET="main">Set_Field_Init_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_196_16" TARGET="main">Set_Field_Just</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_310_16" TARGET="main">Set_Field_Max</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_330_16" TARGET="main">Set_Field_Opts</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_490_16" TARGET="main">Set_Field_Pad</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_681_16" TARGET="main">Set_Field_Term</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_551_14" TARGET="main">Set_Field_Term_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_549_14" TARGET="main">Set_Field_Term_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types-alpha__ads.htm#ref_49_14" TARGET="main">Set_Field_Type - terminal_interface-curses-forms-field_types-alpha.ads:49</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#ref_50_14" TARGET="main">Set_Field_Type - terminal_interface-curses-forms-field_types-alphanumeric.ads:50</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_84_14" TARGET="main">Set_Field_Type - terminal_interface-curses-forms-field_types-enumeration.ads:84</A>
|
||||
@ -68,89 +72,89 @@
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types-numeric__adb.htm#ref_52_16" TARGET="main">Set_Fld_Type - terminal_interface-curses-forms-field_types-numeric.adb:52</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types-user__adb.htm#ref_53_16" TARGET="main">Set_Fld_Type - terminal_interface-curses-forms-field_types-user.adb:53</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types__adb.htm#ref_134_16" TARGET="main">Set_Fld_Type - terminal_interface-curses-forms-field_types.adb:134</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_930_14" TARGET="main">Set_Flush_On_Interrupt_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_430_14" TARGET="main">Set_Foreground - terminal_interface-curses-forms.ads:430</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_427_14" TARGET="main">Set_Foreground - terminal_interface-curses-menus.ads:427</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_541_14" TARGET="main">Set_Format</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_929_14" TARGET="main">Set_Flush_On_Interrupt_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_428_14" TARGET="main">Set_Foreground - terminal_interface-curses-forms.ads:428</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_425_14" TARGET="main">Set_Foreground - terminal_interface-curses-menus.ads:425</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_539_14" TARGET="main">Set_Format</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_697_16" TARGET="main">Set_Form_Init</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_557_14" TARGET="main">Set_Form_Init_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_555_14" TARGET="main">Set_Form_Init_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_845_16" TARGET="main">Set_Form_Opts</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_613_16" TARGET="main">Set_Form_Sub</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_713_16" TARGET="main">Set_Form_Term</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_563_14" TARGET="main">Set_Form_Term_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_561_14" TARGET="main">Set_Form_Term_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-form_user_data__adb.htm#ref_58_16" TARGET="main">Set_Form_Userptr</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_585_16" TARGET="main">Set_Form_Win</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_733_16" TARGET="main">Set_Frm_Fields</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_1056_16" TARGET="main">Set_Frm_Page</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types-regexp__adb.htm#ref_51_16" TARGET="main">Set_Ftyp</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_467_14" TARGET="main">Set_Grey</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_622_14" TARGET="main">Set_Items - terminal_interface-curses-menus.ads:622</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_465_14" TARGET="main">Set_Grey</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_620_14" TARGET="main">Set_Items - terminal_interface-curses-menus.ads:620</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_893_16" TARGET="main">Set_Items - terminal_interface-curses-menus.adb:893</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_805_16" TARGET="main">Set_Item_Init</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_569_14" TARGET="main">Set_Item_Init_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_567_14" TARGET="main">Set_Item_Init_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_194_16" TARGET="main">Set_Item_Opts</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_819_16" TARGET="main">Set_Item_Term</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_575_14" TARGET="main">Set_Item_Term_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_573_14" TARGET="main">Set_Item_Term_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus-item_user_data__adb.htm#ref_51_16" TARGET="main">Set_Item_Userptr</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_155_16" TARGET="main">Set_Item_Val</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_343_14" TARGET="main">Set_Justification</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_912_14" TARGET="main">Set_KeyPad_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_341_14" TARGET="main">Set_Justification</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_911_14" TARGET="main">Set_KeyPad_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#ref_95_14" TARGET="main">Set_Line - terminal_interface-curses-text_io.ads:95</A>
|
||||
<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#ref_96_14" TARGET="main">Set_Line - terminal_interface-curses-text_io.ads:96</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_407_14" TARGET="main">Set_Mark - terminal_interface-curses-menus.ads:407</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_405_14" TARGET="main">Set_Mark - terminal_interface-curses-menus.ads:405</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_514_16" TARGET="main">Set_Mark - terminal_interface-curses-menus.adb:514</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_391_14" TARGET="main">Set_Maximum_Size</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_389_14" TARGET="main">Set_Maximum_Size</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_591_16" TARGET="main">Set_Menu_Back</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_768_16" TARGET="main">Set_Menu_Fmt</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_552_16" TARGET="main">Set_Menu_Fore</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_629_16" TARGET="main">Set_Menu_Grey</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_833_16" TARGET="main">Set_Menu_Init</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_581_14" TARGET="main">Set_Menu_Init_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_579_14" TARGET="main">Set_Menu_Init_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_374_16" TARGET="main">Set_Menu_Opts</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_667_16" TARGET="main">Set_Menu_Pad</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_457_16" TARGET="main">Set_Menu_Sub</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_847_16" TARGET="main">Set_Menu_Term</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_587_14" TARGET="main">Set_Menu_Term_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_585_14" TARGET="main">Set_Menu_Term_Hook</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus-menu_user_data__adb.htm#ref_50_16" TARGET="main">Set_Menu_Userptr</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_433_16" TARGET="main">Set_Menu_Win</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_906_14" TARGET="main">Set_Meta_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_761_14" TARGET="main">Set_New_Page</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_977_14" TARGET="main">Set_NL_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_945_14" TARGET="main">Set_NoDelay_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_401_14" TARGET="main">Set_Options - terminal_interface-curses-forms.ads:401</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_648_14" TARGET="main">Set_Options - terminal_interface-curses-forms.ads:648</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_240_14" TARGET="main">Set_Options - terminal_interface-curses-menus.ads:240</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_337_14" TARGET="main">Set_Options - terminal_interface-curses-menus.ads:337</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_470_14" TARGET="main">Set_Pad_Character - terminal_interface-curses-forms.ads:470</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_488_14" TARGET="main">Set_Pad_Character - terminal_interface-curses-menus.ads:488</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_738_14" TARGET="main">Set_Page - terminal_interface-curses-forms.ads:738</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_905_14" TARGET="main">Set_Meta_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_759_14" TARGET="main">Set_New_Page</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_976_14" TARGET="main">Set_NL_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_944_14" TARGET="main">Set_NoDelay_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_399_14" TARGET="main">Set_Options - terminal_interface-curses-forms.ads:399</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_646_14" TARGET="main">Set_Options - terminal_interface-curses-forms.ads:646</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_238_14" TARGET="main">Set_Options - terminal_interface-curses-menus.ads:238</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_335_14" TARGET="main">Set_Options - terminal_interface-curses-menus.ads:335</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_468_14" TARGET="main">Set_Pad_Character - terminal_interface-curses-forms.ads:468</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_486_14" TARGET="main">Set_Pad_Character - terminal_interface-curses-menus.ads:486</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_736_14" TARGET="main">Set_Page - terminal_interface-curses-forms.ads:736</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__adb.htm#ref_1105_16" TARGET="main">Set_Page - terminal_interface-curses-forms.adb:1105</A>
|
||||
<LI><A HREF="../terminal_interface-curses-panels-user_data__adb.htm#ref_54_16" TARGET="main">Set_Panel_Userptr</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_524_13" TARGET="main">Set_Pattern - terminal_interface-curses-menus.ads:524</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_522_13" TARGET="main">Set_Pattern - terminal_interface-curses-menus.ads:522</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_736_16" TARGET="main">Set_Pattern - terminal_interface-curses-menus.adb:736</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_937_14" TARGET="main">Set_Queue_Interrupt_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_894_14" TARGET="main">Set_Raw_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1029_14" TARGET="main">Set_Scroll_Region</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1507_14" TARGET="main">Set_Soft_Label_Key</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1558_14" TARGET="main">Set_Soft_Label_Key_Attributes</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1574_14" TARGET="main">Set_Soft_Label_Key_Color</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_504_14" TARGET="main">Set_Spacing - terminal_interface-curses-menus.ads:504</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_936_14" TARGET="main">Set_Queue_Interrupt_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_893_14" TARGET="main">Set_Raw_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1028_14" TARGET="main">Set_Scroll_Region</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1506_14" TARGET="main">Set_Soft_Label_Key</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1557_14" TARGET="main">Set_Soft_Label_Key_Attributes</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1573_14" TARGET="main">Set_Soft_Label_Key_Color</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_502_14" TARGET="main">Set_Spacing - terminal_interface-curses-menus.ads:502</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_693_16" TARGET="main">Set_Spacing - terminal_interface-curses-menus.adb:693</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_380_14" TARGET="main">Set_Status</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_520_14" TARGET="main">Set_Sub_Window - terminal_interface-curses-forms.ads:520</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_376_14" TARGET="main">Set_Sub_Window - terminal_interface-curses-menus.ads:376</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_645_14" TARGET="main">Set_Synch_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_954_14" TARGET="main">Set_Timeout_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_378_14" TARGET="main">Set_Status</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_518_14" TARGET="main">Set_Sub_Window - terminal_interface-curses-forms.ads:518</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_374_14" TARGET="main">Set_Sub_Window - terminal_interface-curses-menus.ads:374</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_644_14" TARGET="main">Set_Synch_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_953_14" TARGET="main">Set_Timeout_Mode</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_314_16" TARGET="main">Set_Toprow</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_303_14" TARGET="main">Set_Top_Row</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_301_14" TARGET="main">Set_Top_Row</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_user_data__ads.htm#ref_53_14" TARGET="main">Set_User_Data - terminal_interface-curses-forms-field_user_data.ads:53</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-form_user_data__ads.htm#ref_53_14" TARGET="main">Set_User_Data - terminal_interface-curses-forms-form_user_data.ads:53</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus-item_user_data__ads.htm#ref_58_14" TARGET="main">Set_User_Data - terminal_interface-curses-menus-item_user_data.ads:58</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus-menu_user_data__ads.htm#ref_53_14" TARGET="main">Set_User_Data - terminal_interface-curses-menus-menu_user_data.ads:53</A>
|
||||
<LI><A HREF="../terminal_interface-curses-panels-user_data__ads.htm#ref_53_14" TARGET="main">Set_User_Data - terminal_interface-curses-panels-user_data.ads:53</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_216_14" TARGET="main">Set_Value</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_509_14" TARGET="main">Set_Window - terminal_interface-curses-forms.ads:509</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_365_14" TARGET="main">Set_Window - terminal_interface-curses-menus.ads:365</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_214_14" TARGET="main">Set_Value</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_507_14" TARGET="main">Set_Window - terminal_interface-curses-forms.ads:507</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_363_14" TARGET="main">Set_Window - terminal_interface-curses-menus.ads:363</A>
|
||||
<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#ref_59_14" TARGET="main">Set_Window - terminal_interface-curses-text_io.ads:59</A>
|
||||
<LI><A HREF="../terminal_interface-curses-panels__ads.htm#ref_87_14" TARGET="main">Show</A>
|
||||
<LI><A HREF="../terminal_interface-curses-panels__adb.htm#ref_85_16" TARGET="main">Showpanel</A>
|
||||
@ -169,23 +173,23 @@
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_1895_16" TARGET="main">Slk_Restore</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_1831_16" TARGET="main">Slk_Set</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_1905_16" TARGET="main">Slk_Touch</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_512_14" TARGET="main">Spacing</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_478_13" TARGET="main">Standard_Window</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_802_14" TARGET="main">Standout</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1709_14" TARGET="main">Start_Color</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_510_14" TARGET="main">Spacing</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_477_13" TARGET="main">Standard_Window</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_801_14" TARGET="main">Standout</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1708_14" TARGET="main">Start_Color</A>
|
||||
<LI><A HREF="../terminal_interface-curses-mouse__ads.htm#ref_119_13" TARGET="main">Start_Mouse</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_1446_16" TARGET="main">Subpad</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_270_16" TARGET="main">Subwin</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1275_13" TARGET="main">Sub_Pad</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_596_13" TARGET="main">Sub_Window</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1674_13" TARGET="main">Supported_Attributes</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_808_14" TARGET="main">Switch_Character_Attribute</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_407_14" TARGET="main">Switch_Options - terminal_interface-curses-forms.ads:407</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_654_14" TARGET="main">Switch_Options - terminal_interface-curses-forms.ads:654</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_246_14" TARGET="main">Switch_Options - terminal_interface-curses-menus.ads:246</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_343_14" TARGET="main">Switch_Options - terminal_interface-curses-menus.ads:343</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1550_14" TARGET="main">Switch_Soft_Label_Key_Attributes</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_640_14" TARGET="main">Synchronize_Downwards</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_635_14" TARGET="main">Synchronize_Upwards</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1274_13" TARGET="main">Sub_Pad</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_595_13" TARGET="main">Sub_Window</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1673_13" TARGET="main">Supported_Attributes</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_807_14" TARGET="main">Switch_Character_Attribute</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_405_14" TARGET="main">Switch_Options - terminal_interface-curses-forms.ads:405</A>
|
||||
<LI><A HREF="../terminal_interface-curses-forms__ads.htm#ref_652_14" TARGET="main">Switch_Options - terminal_interface-curses-forms.ads:652</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_244_14" TARGET="main">Switch_Options - terminal_interface-curses-menus.ads:244</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_341_14" TARGET="main">Switch_Options - terminal_interface-curses-menus.ads:341</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1549_14" TARGET="main">Switch_Soft_Label_Key_Attributes</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_639_14" TARGET="main">Synchronize_Downwards</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_634_14" TARGET="main">Synchronize_Upwards</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_363_16" TARGET="main">Syncok</A>
|
||||
</UL></BODY></HTML>
|
||||
|
||||
@ -1,13 +1,17 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>T</TITLE></HEAD>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>T</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<H2>Functions - T</H2>
|
||||
<A HREF="../funcs.htm" TARGET="_self">[index]</A>
|
||||
<UL COMPACT TYPE=DISC>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_420_13" TARGET="main">Tab_Size</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_419_13" TARGET="main">Tab_Size</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2100_16" TARGET="main">Termattrs</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1689_14" TARGET="main">Terminal_Name - terminal_interface-curses.ads:1689</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1693_13" TARGET="main">Terminal_Name - terminal_interface-curses.ads:1693</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1688_14" TARGET="main">Terminal_Name - terminal_interface-curses.ads:1688</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1692_13" TARGET="main">Terminal_Name - terminal_interface-curses.ads:1692</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2126_16" TARGET="main">Termname - terminal_interface-curses.adb:2126</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2134_16" TARGET="main">Termname - terminal_interface-curses.adb:2134</A>
|
||||
<LI><A HREF="../terminal_interface-curses-termcap__adb.htm#ref_51_16" TARGET="main">tgetent</A>
|
||||
@ -24,13 +28,15 @@
|
||||
<LI><A HREF="../terminal_interface-curses-panels__ads.htm#ref_82_14" TARGET="main">Top</A>
|
||||
<LI><A HREF="../terminal_interface-curses-panels__adb.htm#ref_75_16" TARGET="main">Toppanel</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__adb.htm#ref_327_16" TARGET="main">Toprow</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_309_13" TARGET="main">Top_Row</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1143_14" TARGET="main">Touch - terminal_interface-curses.ads:1143</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1147_14" TARGET="main">Touch - terminal_interface-curses.ads:1147</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1545_14" TARGET="main">Touch_Soft_Label_Keys</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_307_13" TARGET="main">Top_Row</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1142_14" TARGET="main">Touch - terminal_interface-curses.ads:1142</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1146_14" TARGET="main">Touch - terminal_interface-curses.ads:1146</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1544_14" TARGET="main">Touch_Soft_Label_Keys</A>
|
||||
<LI><A HREF="../terminal_interface-curses-terminfo__adb.htm#ref_140_16" TARGET="main">tputs</A>
|
||||
<LI><A HREF="../terminal_interface-curses-trace__ads.htm#ref_106_14" TARGET="main">Trace_On</A>
|
||||
<LI><A HREF="../terminal_interface-curses-trace__ads.htm#ref_110_14" TARGET="main">Trace_Put</A>
|
||||
<LI><A HREF="../terminal_interface-curses-trace__adb.htm#ref_54_17" TARGET="main">traceC</A>
|
||||
<LI><A HREF="../terminal_interface-curses-trace__adb.htm#ref_65_17" TARGET="main">tracef</A>
|
||||
<LI><A HREF="../terminal_interface-curses-trace__ads.htm#ref_105_14" TARGET="main">Trace_On</A>
|
||||
<LI><A HREF="../terminal_interface-curses-trace__ads.htm#ref_109_14" TARGET="main">Trace_Put</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2403_16" TARGET="main">Transform</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1816_14" TARGET="main">Transform_Coordinates</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1815_14" TARGET="main">Transform_Coordinates</A>
|
||||
</UL></BODY></HTML>
|
||||
|
||||
@ -1,23 +1,27 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>U</TITLE></HEAD>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>U</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<H2>Functions - U</H2>
|
||||
<A HREF="../funcs.htm" TARGET="_self">[index]</A>
|
||||
<UL COMPACT TYPE=DISC>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2016_16" TARGET="main">Unctrl - terminal_interface-curses.adb:2016</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2024_16" TARGET="main">Unctrl - terminal_interface-curses.adb:2024</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_764_14" TARGET="main">Undo_Keystroke</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_763_14" TARGET="main">Undo_Keystroke</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_537_16" TARGET="main">Ungetch</A>
|
||||
<LI><A HREF="../terminal_interface-curses-mouse__adb.htm#ref_186_16" TARGET="main">Ungetmouse</A>
|
||||
<LI><A HREF="../terminal_interface-curses-mouse__ads.htm#ref_145_14" TARGET="main">Unget_Mouse</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1138_14" TARGET="main">Untouch</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1624_14" TARGET="main">Un_Control - terminal_interface-curses.ads:1624</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1629_13" TARGET="main">Un_Control - terminal_interface-curses.ads:1629</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1137_14" TARGET="main">Untouch</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1623_14" TARGET="main">Un_Control - terminal_interface-curses.ads:1623</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1628_13" TARGET="main">Un_Control - terminal_interface-curses.ads:1628</A>
|
||||
<LI><A HREF="../terminal_interface-curses-panels__ads.htm#ref_92_14" TARGET="main">Update_Panels</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1042_14" TARGET="main">Update_Screen</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1833_14" TARGET="main">Use_Default_Colors</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1853_13" TARGET="main">Use_Extended_Names</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1041_14" TARGET="main">Update_Screen</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1832_14" TARGET="main">Use_Default_Colors</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_1852_13" TARGET="main">Use_Extended_Names</A>
|
||||
<LI><A HREF="../terminal_interface-curses__adb.htm#ref_2475_16" TARGET="main">use_extended_namesC</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_997_14" TARGET="main">Use_Insert_Delete_Character</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_990_14" TARGET="main">Use_Insert_Delete_Line</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_996_14" TARGET="main">Use_Insert_Delete_Character</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_989_14" TARGET="main">Use_Insert_Delete_Line</A>
|
||||
</UL></BODY></HTML>
|
||||
|
||||
@ -1,11 +1,15 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>V</TITLE></HEAD>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>V</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<H2>Functions - V</H2>
|
||||
<A HREF="../funcs.htm" TARGET="_self">[index]</A>
|
||||
<UL COMPACT TYPE=DISC>
|
||||
<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_53_13" TARGET="main">Value - terminal_interface-curses-forms-field_types-enumeration-ada.ads:53</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_222_13" TARGET="main">Value - terminal_interface-curses-menus.ads:222</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_739_14" TARGET="main">Vertical_Line</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_231_13" TARGET="main">Visible</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_220_13" TARGET="main">Value - terminal_interface-curses-menus.ads:220</A>
|
||||
<LI><A HREF="../terminal_interface-curses__ads.htm#ref_738_14" TARGET="main">Vertical_Line</A>
|
||||
<LI><A HREF="../terminal_interface-curses-menus__ads.htm#ref_229_13" TARGET="main">Visible</A>
|
||||
</UL></BODY></HTML>
|
||||
|
||||
@ -1,5 +1,9 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>W</TITLE></HEAD>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>W</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<H2>Functions - W</H2>
|
||||
<A HREF="../funcs.htm" TARGET="_self">[index]</A>
|
||||
|
||||
@ -1,6 +1,9 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN">
|
||||
<HTML>
|
||||
<HEAD><TITLE>Source Browser</TITLE></HEAD>
|
||||
<HEAD>
|
||||
<TITLE>Source Browser</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
</HEAD>
|
||||
<FRAMESET COLS="250,*">
|
||||
<NOFRAMES>
|
||||
<H2 ALIGN=CENTER>Files</H2>
|
||||
|
||||
@ -1,5 +1,17 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE></TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE></TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<P ALIGN=right><A HREF="main.htm" TARGET="_top">[No frame version is here]</A><P><H2 ALIGN=CENTER>Files</H2>
|
||||
<A HREF="files/T.htm">[T]</A>
|
||||
|
||||
@ -1,58 +1,70 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-aux.adb</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-aux.adb</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-aux.adb </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-aux.adb </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Aux --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- B O D Y --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.11 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<FONT COLOR=red><A NAME="ref_41_40" HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A></FONT> <b>is</b>
|
||||
<FONT COLOR=green><EM>--</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Some helpers</EM></FONT>
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_44_14" HREF="terminal_interface-curses-aux__ads.htm#ref_116_14">Fill_String</A></FONT> (<FONT COLOR=red><A NAME="ref_44_27" HREF="terminal_interface-curses-aux__ads.htm#ref_116_27">Cp</A></FONT> : chars_ptr;
|
||||
<FONT COLOR=red><A NAME="ref_45_27" HREF="terminal_interface-curses-aux__ads.htm#ref_117_27">Str</A></FONT> : <b>out</b> String)
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Aux --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- B O D Y --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.11 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<span class="symbol"><A NAME="ref_41_40" HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A></span> <b>is</b>
|
||||
<span class="comment"><EM>--</EM></span>
|
||||
<span class="comment"><EM>-- Some helpers</EM></span>
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_44_14" HREF="terminal_interface-curses-aux__ads.htm#ref_116_14">Fill_String</A></span> (<span class="symbol"><A NAME="ref_44_27" HREF="terminal_interface-curses-aux__ads.htm#ref_116_27">Cp</A></span> : chars_ptr;
|
||||
<span class="symbol"><A NAME="ref_45_27" HREF="terminal_interface-curses-aux__ads.htm#ref_117_27">Str</A></span> : <b>out</b> String)
|
||||
<b>is</b>
|
||||
<FONT COLOR=green><EM>-- Fill the string with the characters referenced by the</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- chars_ptr.</EM></FONT>
|
||||
<FONT COLOR=green><EM>--</EM></FONT>
|
||||
<FONT COLOR=red><A NAME="ref_50_7">Len</A></FONT> : Natural;
|
||||
<span class="comment"><EM>-- Fill the string with the characters referenced by the</EM></span>
|
||||
<span class="comment"><EM>-- chars_ptr.</EM></span>
|
||||
<span class="comment"><EM>--</EM></span>
|
||||
<span class="symbol"><A NAME="ref_50_7">Len</A></span> : Natural;
|
||||
<b>begin</b>
|
||||
<b>if</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_116_27">Cp</A> /= Null_Ptr <b>then</b>
|
||||
<A HREF="terminal_interface-curses-aux__adb.htm#ref_50_7">Len</A> := Natural (Strlen (<A HREF="terminal_interface-curses-aux__ads.htm#ref_116_27">Cp</A>));
|
||||
@ -60,7 +72,7 @@
|
||||
<b>raise</b> Constraint_Error;
|
||||
<b>end</b> <b>if</b>;
|
||||
<b>declare</b>
|
||||
<FONT COLOR=red><A NAME="ref_58_13">S</A></FONT> : String (1 .. <A HREF="terminal_interface-curses-aux__adb.htm#ref_50_7">Len</A>);
|
||||
<span class="symbol"><A NAME="ref_58_13">S</A></span> : String (1 .. <A HREF="terminal_interface-curses-aux__adb.htm#ref_50_7">Len</A>);
|
||||
<b>begin</b>
|
||||
<A HREF="terminal_interface-curses-aux__adb.htm#ref_58_13">S</A> := Value (<A HREF="terminal_interface-curses-aux__ads.htm#ref_116_27">Cp</A>);
|
||||
<A HREF="terminal_interface-curses-aux__ads.htm#ref_117_27">Str</A> (<A HREF="terminal_interface-curses-aux__ads.htm#ref_117_27">Str</A>'First .. (<A HREF="terminal_interface-curses-aux__ads.htm#ref_117_27">Str</A>'First + <A HREF="terminal_interface-curses-aux__adb.htm#ref_50_7">Len</A> - 1)) := <A HREF="terminal_interface-curses-aux__adb.htm#ref_58_13">S</A> (<A HREF="terminal_interface-curses-aux__adb.htm#ref_58_13">S</A>'<b>Range</b>);
|
||||
@ -75,9 +87,9 @@
|
||||
|
||||
<b>end</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_116_14">Fill_String</A>;
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_73_13" HREF="terminal_interface-curses-aux__ads.htm#ref_121_13">Fill_String</A></FONT> (<FONT COLOR=red><A NAME="ref_73_26" HREF="terminal_interface-curses-aux__ads.htm#ref_121_26">Cp</A></FONT> : chars_ptr) <b>return</b> String
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_73_13" HREF="terminal_interface-curses-aux__ads.htm#ref_121_13">Fill_String</A></span> (<span class="symbol"><A NAME="ref_73_26" HREF="terminal_interface-curses-aux__ads.htm#ref_121_26">Cp</A></span> : chars_ptr) <b>return</b> String
|
||||
<b>is</b>
|
||||
<FONT COLOR=red><A NAME="ref_75_7">Len</A></FONT> : Natural;
|
||||
<span class="symbol"><A NAME="ref_75_7">Len</A></span> : Natural;
|
||||
<b>begin</b>
|
||||
<b>if</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_121_26">Cp</A> /= Null_Ptr <b>then</b>
|
||||
<A HREF="terminal_interface-curses-aux__adb.htm#ref_75_7">Len</A> := Natural (Strlen (<A HREF="terminal_interface-curses-aux__ads.htm#ref_121_26">Cp</A>));
|
||||
@ -85,7 +97,7 @@
|
||||
<b>return</b> "";
|
||||
<b>else</b>
|
||||
<b>declare</b>
|
||||
<FONT COLOR=red><A NAME="ref_83_16">S</A></FONT> : String (1 .. <A HREF="terminal_interface-curses-aux__adb.htm#ref_75_7">Len</A>);
|
||||
<span class="symbol"><A NAME="ref_83_16">S</A></span> : String (1 .. <A HREF="terminal_interface-curses-aux__adb.htm#ref_75_7">Len</A>);
|
||||
<b>begin</b>
|
||||
<A HREF="terminal_interface-curses-aux__ads.htm#ref_116_14">Fill_String</A> (<A HREF="terminal_interface-curses-aux__ads.htm#ref_121_26">Cp</A>, <A HREF="terminal_interface-curses-aux__adb.htm#ref_83_16">S</A>);
|
||||
<b>return</b> <A HREF="terminal_interface-curses-aux__adb.htm#ref_83_16">S</A>;
|
||||
@ -96,25 +108,25 @@
|
||||
<b>end</b> <b>if</b>;
|
||||
<b>end</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_121_13">Fill_String</A>;
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_94_14" HREF="terminal_interface-curses-aux__ads.htm#ref_96_14">Eti_Exception</A></FONT> (<FONT COLOR=red><A NAME="ref_94_29" HREF="terminal_interface-curses-aux__ads.htm#ref_96_29">Code</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>)
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_94_14" HREF="terminal_interface-curses-aux__ads.htm#ref_96_14">Eti_Exception</A></span> (<span class="symbol"><A NAME="ref_94_29" HREF="terminal_interface-curses-aux__ads.htm#ref_96_29">Code</A></span> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>)
|
||||
<b>is</b>
|
||||
<b>begin</b>
|
||||
<b>case</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_96_29">Code</A> <b>is</b>
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_80_4">E_Ok</A> => <b>null</b>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_81_4">E_System_Error</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_391_4">Eti_System_Error</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_82_4">E_Bad_Argument</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_392_4">Eti_Bad_Argument</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_83_4">E_Posted</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_393_4">Eti_Posted</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_84_4">E_Connected</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_394_4">Eti_Connected</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_85_4">E_Bad_State</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_395_4">Eti_Bad_State</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_86_4">E_No_Room</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_396_4">Eti_No_Room</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_87_4">E_Not_Posted</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_397_4">Eti_Not_Posted</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_88_4">E_Unknown_Command</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_398_4">Eti_Unknown_Command</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_89_4">E_No_Match</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_399_4">Eti_No_Match</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_90_4">E_Not_Selectable</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_400_4">Eti_Not_Selectable</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_91_4">E_Not_Connected</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_401_4">Eti_Not_Connected</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_92_4">E_Request_Denied</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_402_4">Eti_Request_Denied</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_93_4">E_Invalid_Field</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_403_4">Eti_Invalid_Field</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_94_4">E_Current</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_404_4">Eti_Current</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_81_4">E_System_Error</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_390_4">Eti_System_Error</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_82_4">E_Bad_Argument</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_391_4">Eti_Bad_Argument</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_83_4">E_Posted</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_392_4">Eti_Posted</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_84_4">E_Connected</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_393_4">Eti_Connected</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_85_4">E_Bad_State</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_394_4">Eti_Bad_State</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_86_4">E_No_Room</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_395_4">Eti_No_Room</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_87_4">E_Not_Posted</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_396_4">Eti_Not_Posted</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_88_4">E_Unknown_Command</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_397_4">Eti_Unknown_Command</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_89_4">E_No_Match</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_398_4">Eti_No_Match</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_90_4">E_Not_Selectable</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_399_4">Eti_Not_Selectable</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_91_4">E_Not_Connected</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_400_4">Eti_Not_Connected</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_92_4">E_Request_Denied</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_401_4">Eti_Request_Denied</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_93_4">E_Invalid_Field</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_402_4">Eti_Invalid_Field</A>;
|
||||
<b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_94_4">E_Current</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#ref_403_4">Eti_Current</A>;
|
||||
<b>end</b> <b>case</b>;
|
||||
<b>end</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_96_14">Eti_Exception</A>;
|
||||
|
||||
|
||||
@ -1,130 +1,142 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-aux.ads</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-aux.ads</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-aux.ads </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-aux.ads </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Aux --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- S P E C --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.18 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- curses binding.</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- This module is generated. Please don't change it manually!</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Run the generator instead.</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Aux --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- S P E C --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.18 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- curses binding.</EM></span>
|
||||
<span class="comment"><EM>-- This module is generated. Please don't change it manually!</EM></span>
|
||||
<span class="comment"><EM>-- Run the generator instead.</EM></span>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<b>with</b> System;
|
||||
<b>with</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C;
|
||||
<b>with</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.Strings; <b>use</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.Strings;
|
||||
<b>with</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C;
|
||||
<b>with</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C.Strings; <b>use</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C.Strings;
|
||||
<b>with</b> <A HREF="unchconv__ads.htm#ref_20_10">Unchecked_Conversion</A>;
|
||||
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<FONT COLOR=red><A NAME="ref_50_35" HREF="terminal_interface-curses-aux__adb.htm#ref_41_40">Aux</A></FONT> <b>is</b>
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<span class="symbol"><A NAME="ref_50_35" HREF="terminal_interface-curses-aux__adb.htm#ref_41_40">Aux</A></span> <b>is</b>
|
||||
<b>pragma</b> Preelaborate (<A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>);
|
||||
|
||||
<b>use</b> <b>type</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.int;
|
||||
<b>use</b> <b>type</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C.int;
|
||||
|
||||
<b>subtype</b> <FONT COLOR=red><A NAME="ref_55_12">C_Int</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.int;
|
||||
<b>subtype</b> <FONT COLOR=red><A NAME="ref_56_12">C_Short</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.short;
|
||||
<b>subtype</b> <FONT COLOR=red><A NAME="ref_57_12">C_Long_Int</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.long;
|
||||
<b>subtype</b> <FONT COLOR=red><A NAME="ref_58_12">C_Size_T</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.size_t;
|
||||
<b>subtype</b> <FONT COLOR=red><A NAME="ref_59_12">C_UInt</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.unsigned;
|
||||
<b>subtype</b> <FONT COLOR=red><A NAME="ref_60_12">C_ULong</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.unsigned_long;
|
||||
<b>subtype</b> <FONT COLOR=red><A NAME="ref_61_12">C_Char_Ptr</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.Strings.chars_ptr;
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_62_12">C_Void_Ptr</A></FONT> <b>is</b> <b>new</b> System.Address;
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_63_12">C_Chtype</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_60_12">C_ULong</A>;
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_64_12">C_AttrType</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_60_12">C_ULong</A>;
|
||||
<b>subtype</b> <span class="symbol"><A NAME="ref_55_12">C_Int</A></span> <b>is</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C.int;
|
||||
<b>subtype</b> <span class="symbol"><A NAME="ref_56_12">C_Short</A></span> <b>is</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C.short;
|
||||
<b>subtype</b> <span class="symbol"><A NAME="ref_57_12">C_Long_Int</A></span> <b>is</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C.long;
|
||||
<b>subtype</b> <span class="symbol"><A NAME="ref_58_12">C_Size_T</A></span> <b>is</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C.size_t;
|
||||
<b>subtype</b> <span class="symbol"><A NAME="ref_59_12">C_UInt</A></span> <b>is</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C.unsigned;
|
||||
<b>subtype</b> <span class="symbol"><A NAME="ref_60_12">C_ULong</A></span> <b>is</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C.unsigned_long;
|
||||
<b>subtype</b> <span class="symbol"><A NAME="ref_61_12">C_Char_Ptr</A></span> <b>is</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C.Strings.chars_ptr;
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_62_12">C_Void_Ptr</A></span> <b>is</b> <b>new</b> System.Address;
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_63_12">C_Chtype</A></span> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_59_12">C_UInt</A>;
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_64_12">C_AttrType</A></span> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_59_12">C_UInt</A>;
|
||||
|
||||
<FONT COLOR=green><EM>-- This is how those constants are defined in ncurses. I see them also</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- exactly like this in all ETI implementations I ever tested. So it</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- could be that this is quite general, but please check with your curses.</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- This is critical, because curses sometime mixes Boolean returns with</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- returning an error status.</EM></FONT>
|
||||
<FONT COLOR=red><A NAME="ref_71_4">Curses_Ok</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> := 0;
|
||||
<FONT COLOR=red><A NAME="ref_72_4">Curses_Err</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> := -1;
|
||||
<span class="comment"><EM>-- This is how those constants are defined in ncurses. I see them also</EM></span>
|
||||
<span class="comment"><EM>-- exactly like this in all ETI implementations I ever tested. So it</EM></span>
|
||||
<span class="comment"><EM>-- could be that this is quite general, but please check with your curses.</EM></span>
|
||||
<span class="comment"><EM>-- This is critical, because curses sometime mixes Boolean returns with</EM></span>
|
||||
<span class="comment"><EM>-- returning an error status.</EM></span>
|
||||
<span class="symbol"><A NAME="ref_71_4">Curses_Ok</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> := 0;
|
||||
<span class="symbol"><A NAME="ref_72_4">Curses_Err</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> := -1;
|
||||
|
||||
<FONT COLOR=red><A NAME="ref_74_4">Curses_True</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> := 1;
|
||||
<FONT COLOR=red><A NAME="ref_75_4">Curses_False</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> := 0;
|
||||
<span class="symbol"><A NAME="ref_74_4">Curses_True</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> := 1;
|
||||
<span class="symbol"><A NAME="ref_75_4">Curses_False</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> := 0;
|
||||
|
||||
<FONT COLOR=green><EM>-- Eti_Error: type for error codes returned by the menu and form subsystem</EM></FONT>
|
||||
<b>subtype</b> <FONT COLOR=red><A NAME="ref_78_12">Eti_Error</A></FONT> <b>is</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> <b>range</b> -14 .. 0;
|
||||
<span class="comment"><EM>-- Eti_Error: type for error codes returned by the menu and form subsystem</EM></span>
|
||||
<b>subtype</b> <span class="symbol"><A NAME="ref_78_12">Eti_Error</A></span> <b>is</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A> <b>range</b> -14 .. 0;
|
||||
|
||||
<FONT COLOR=red><A NAME="ref_80_4">E_Ok</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := 0;
|
||||
<FONT COLOR=red><A NAME="ref_81_4">E_System_Error</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -1;
|
||||
<FONT COLOR=red><A NAME="ref_82_4">E_Bad_Argument</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -2;
|
||||
<FONT COLOR=red><A NAME="ref_83_4">E_Posted</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -3;
|
||||
<FONT COLOR=red><A NAME="ref_84_4">E_Connected</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -4;
|
||||
<FONT COLOR=red><A NAME="ref_85_4">E_Bad_State</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -5;
|
||||
<FONT COLOR=red><A NAME="ref_86_4">E_No_Room</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -6;
|
||||
<FONT COLOR=red><A NAME="ref_87_4">E_Not_Posted</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -7;
|
||||
<FONT COLOR=red><A NAME="ref_88_4">E_Unknown_Command</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -8;
|
||||
<FONT COLOR=red><A NAME="ref_89_4">E_No_Match</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -9;
|
||||
<FONT COLOR=red><A NAME="ref_90_4">E_Not_Selectable</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -10;
|
||||
<FONT COLOR=red><A NAME="ref_91_4">E_Not_Connected</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -11;
|
||||
<FONT COLOR=red><A NAME="ref_92_4">E_Request_Denied</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -12;
|
||||
<FONT COLOR=red><A NAME="ref_93_4">E_Invalid_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -13;
|
||||
<FONT COLOR=red><A NAME="ref_94_4">E_Current</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -14;
|
||||
<span class="symbol"><A NAME="ref_80_4">E_Ok</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := 0;
|
||||
<span class="symbol"><A NAME="ref_81_4">E_System_Error</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -1;
|
||||
<span class="symbol"><A NAME="ref_82_4">E_Bad_Argument</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -2;
|
||||
<span class="symbol"><A NAME="ref_83_4">E_Posted</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -3;
|
||||
<span class="symbol"><A NAME="ref_84_4">E_Connected</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -4;
|
||||
<span class="symbol"><A NAME="ref_85_4">E_Bad_State</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -5;
|
||||
<span class="symbol"><A NAME="ref_86_4">E_No_Room</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -6;
|
||||
<span class="symbol"><A NAME="ref_87_4">E_Not_Posted</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -7;
|
||||
<span class="symbol"><A NAME="ref_88_4">E_Unknown_Command</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -8;
|
||||
<span class="symbol"><A NAME="ref_89_4">E_No_Match</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -9;
|
||||
<span class="symbol"><A NAME="ref_90_4">E_Not_Selectable</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -10;
|
||||
<span class="symbol"><A NAME="ref_91_4">E_Not_Connected</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -11;
|
||||
<span class="symbol"><A NAME="ref_92_4">E_Request_Denied</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -12;
|
||||
<span class="symbol"><A NAME="ref_93_4">E_Invalid_Field</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -13;
|
||||
<span class="symbol"><A NAME="ref_94_4">E_Current</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := -14;
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_96_14" HREF="terminal_interface-curses-aux__adb.htm#ref_94_14">Eti_Exception</A></FONT> (<FONT COLOR=red><A NAME="ref_96_29" HREF="terminal_interface-curses-aux__adb.htm#ref_94_29">Code</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>);
|
||||
<FONT COLOR=green><EM>-- Dispatch the error code and raise the appropriate exception</EM></FONT>
|
||||
<FONT COLOR=green><EM>--</EM></FONT>
|
||||
<FONT COLOR=green><EM>--</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Some helpers</EM></FONT>
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_96_14" HREF="terminal_interface-curses-aux__adb.htm#ref_94_14">Eti_Exception</A></span> (<span class="symbol"><A NAME="ref_96_29" HREF="terminal_interface-curses-aux__adb.htm#ref_94_29">Code</A></span> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>);
|
||||
<span class="comment"><EM>-- Dispatch the error code and raise the appropriate exception</EM></span>
|
||||
<span class="comment"><EM>--</EM></span>
|
||||
<span class="comment"><EM>--</EM></span>
|
||||
<span class="comment"><EM>-- Some helpers</EM></span>
|
||||
<b>function</b> Chtype_To_AttrChar <b>is</b> <b>new</b>
|
||||
<A HREF="unchconv__ads.htm#ref_20_10">Unchecked_Conversion</A> (<A HREF="unchconv__ads.htm#ref_17_9">Source</A> => <A HREF="terminal_interface-curses-aux__ads.htm#ref_63_12">C_Chtype</A>,
|
||||
<A HREF="unchconv__ads.htm#ref_18_9">Target</A> => <A HREF="terminal_interface-curses__ads.htm#ref_354_9">Attributed_Character</A>);
|
||||
<A HREF="unchconv__ads.htm#ref_18_9">Target</A> => <A HREF="terminal_interface-curses__ads.htm#ref_353_9">Attributed_Character</A>);
|
||||
<b>function</b> AttrChar_To_Chtype <b>is</b> <b>new</b>
|
||||
<A HREF="unchconv__ads.htm#ref_20_10">Unchecked_Conversion</A> (<A HREF="unchconv__ads.htm#ref_17_9">Source</A> => <A HREF="terminal_interface-curses__ads.htm#ref_354_9">Attributed_Character</A>,
|
||||
<A HREF="unchconv__ads.htm#ref_20_10">Unchecked_Conversion</A> (<A HREF="unchconv__ads.htm#ref_17_9">Source</A> => <A HREF="terminal_interface-curses__ads.htm#ref_353_9">Attributed_Character</A>,
|
||||
<A HREF="unchconv__ads.htm#ref_18_9">Target</A> => <A HREF="terminal_interface-curses-aux__ads.htm#ref_63_12">C_Chtype</A>);
|
||||
|
||||
<b>function</b> AttrChar_To_AttrType <b>is</b> <b>new</b>
|
||||
<A HREF="unchconv__ads.htm#ref_20_10">Unchecked_Conversion</A> (<A HREF="unchconv__ads.htm#ref_17_9">Source</A> => <A HREF="terminal_interface-curses__ads.htm#ref_354_9">Attributed_Character</A>,
|
||||
<A HREF="unchconv__ads.htm#ref_20_10">Unchecked_Conversion</A> (<A HREF="unchconv__ads.htm#ref_17_9">Source</A> => <A HREF="terminal_interface-curses__ads.htm#ref_353_9">Attributed_Character</A>,
|
||||
<A HREF="unchconv__ads.htm#ref_18_9">Target</A> => <A HREF="terminal_interface-curses-aux__ads.htm#ref_64_12">C_AttrType</A>);
|
||||
|
||||
<b>function</b> AttrType_To_AttrChar <b>is</b> <b>new</b>
|
||||
<A HREF="unchconv__ads.htm#ref_20_10">Unchecked_Conversion</A> (<A HREF="unchconv__ads.htm#ref_17_9">Source</A> => <A HREF="terminal_interface-curses-aux__ads.htm#ref_64_12">C_AttrType</A>,
|
||||
<A HREF="unchconv__ads.htm#ref_18_9">Target</A> => <A HREF="terminal_interface-curses__ads.htm#ref_354_9">Attributed_Character</A>);
|
||||
<A HREF="unchconv__ads.htm#ref_18_9">Target</A> => <A HREF="terminal_interface-curses__ads.htm#ref_353_9">Attributed_Character</A>);
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_116_14" HREF="terminal_interface-curses-aux__adb.htm#ref_44_14">Fill_String</A></FONT> (<FONT COLOR=red><A NAME="ref_116_27" HREF="terminal_interface-curses-aux__adb.htm#ref_44_27">Cp</A></FONT> : chars_ptr;
|
||||
<FONT COLOR=red><A NAME="ref_117_27" HREF="terminal_interface-curses-aux__adb.htm#ref_45_27">Str</A></FONT> : <b>out</b> String);
|
||||
<FONT COLOR=green><EM>-- Fill the Str parameter with the string denoted by the chars_ptr</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- C-Style string.</EM></FONT>
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_116_14" HREF="terminal_interface-curses-aux__adb.htm#ref_44_14">Fill_String</A></span> (<span class="symbol"><A NAME="ref_116_27" HREF="terminal_interface-curses-aux__adb.htm#ref_44_27">Cp</A></span> : chars_ptr;
|
||||
<span class="symbol"><A NAME="ref_117_27" HREF="terminal_interface-curses-aux__adb.htm#ref_45_27">Str</A></span> : <b>out</b> String);
|
||||
<span class="comment"><EM>-- Fill the Str parameter with the string denoted by the chars_ptr</EM></span>
|
||||
<span class="comment"><EM>-- C-Style string.</EM></span>
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_121_13" HREF="terminal_interface-curses-aux__adb.htm#ref_73_13">Fill_String</A></FONT> (<FONT COLOR=red><A NAME="ref_121_26" HREF="terminal_interface-curses-aux__adb.htm#ref_73_26">Cp</A></FONT> : chars_ptr) <b>return</b> String;
|
||||
<FONT COLOR=green><EM>-- Same but as function.</EM></FONT>
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_121_13" HREF="terminal_interface-curses-aux__adb.htm#ref_73_13">Fill_String</A></span> (<span class="symbol"><A NAME="ref_121_26" HREF="terminal_interface-curses-aux__adb.htm#ref_73_26">Cp</A></span> : chars_ptr) <b>return</b> String;
|
||||
<span class="comment"><EM>-- Same but as function.</EM></span>
|
||||
|
||||
<b>end</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>;
|
||||
</PRE></BODY></HTML>
|
||||
|
||||
@ -1,61 +1,73 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-alpha.adb</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-forms-field_types-alpha.adb</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-alpha.adb </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-forms-field_types-alpha.adb </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Alpha --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- B O D Y --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.11 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Date: 2011/03/19 00:45:37 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Alpha --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- B O D Y --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.11 @</EM></span>
|
||||
<span class="comment"><EM>-- @Date: 2011/03/19 00:45:37 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<b>with</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>;
|
||||
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<FONT COLOR=red><A NAME="ref_44_58" HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#ref_41_53">Alpha</A></FONT> <b>is</b>
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<span class="symbol"><A NAME="ref_44_58" HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#ref_41_53">Alpha</A></span> <b>is</b>
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_46_14" HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#ref_49_14">Set_Field_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_46_30" HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#ref_49_30">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_47_30" HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#ref_50_30">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#ref_44_9">Alpha_Field</A>)
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_46_14" HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#ref_49_14">Set_Field_Type</A></span> (<span class="symbol"><A NAME="ref_46_30" HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#ref_49_30">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_47_30" HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#ref_50_30">Typ</A></span> : <A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#ref_44_9">Alpha_Field</A>)
|
||||
<b>is</b>
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_49_16">Set_Fld_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_49_30" HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#ref_49_16">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#ref_49_30">Fld</A>;
|
||||
<FONT COLOR=red><A NAME="ref_50_30" HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#ref_49_16">Arg1</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_49_16">Set_Fld_Type</A></span> (<span class="symbol"><A NAME="ref_49_30" HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#ref_49_16">F</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#ref_49_30">Fld</A>;
|
||||
<span class="symbol"><A NAME="ref_50_30" HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#ref_49_16">Arg1</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<b>pragma</b> Import (C, Set_Fld_Type, "set_field_type_alpha");
|
||||
|
||||
<FONT COLOR=red><A NAME="ref_53_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;
|
||||
<span class="symbol"><A NAME="ref_53_7">Res</A></span> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;
|
||||
<b>begin</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#ref_53_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#ref_49_16">Set_Fld_Type</A> (<A HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#ref_50_30">Arg1</A> => <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A> (<A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#ref_50_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#ref_46_9">Minimum_Field_Width</A>));
|
||||
<b>if</b> <A HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#ref_53_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#ref_80_4">E_Ok</A> <b>then</b>
|
||||
|
||||
@ -1,58 +1,70 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-alpha.ads</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-forms-field_types-alpha.ads</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-alpha.ads </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-forms-field_types-alpha.ads </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Alpha --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- S P E C --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.12 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<FONT COLOR=red><A NAME="ref_41_53" HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#ref_44_58">Alpha</A></FONT> <b>is</b>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Alpha --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- S P E C --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.12 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<span class="symbol"><A NAME="ref_41_53" HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#ref_44_58">Alpha</A></span> <b>is</b>
|
||||
<b>pragma</b> Preelaborate (<A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#ref_41_53">Alpha</A>);
|
||||
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_44_9">Alpha_Field</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A>
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_44_9">Alpha_Field</A></span> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A>
|
||||
<b>with</b> <b>record</b>
|
||||
<FONT COLOR=red><A NAME="ref_46_9">Minimum_Field_Width</A></FONT> : Natural := 0;
|
||||
<span class="symbol"><A NAME="ref_46_9">Minimum_Field_Width</A></span> : Natural := 0;
|
||||
<b>end</b> <b>record</b>;
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_49_14" HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#ref_46_14">Set_Field_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_49_30" HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#ref_46_30">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_50_30" HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#ref_47_30">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#ref_44_9">Alpha_Field</A>);
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_49_14" HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#ref_46_14">Set_Field_Type</A></span> (<span class="symbol"><A NAME="ref_49_30" HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#ref_46_30">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_50_30" HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#ref_47_30">Typ</A></span> : <A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#ref_44_9">Alpha_Field</A>);
|
||||
<b>pragma</b> Inline (Set_Field_Type);
|
||||
|
||||
<b>end</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#ref_41_53">Alpha</A>;
|
||||
|
||||
@ -1,61 +1,73 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-alphanumeric.adb</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-forms-field_types-alphanumeric.adb</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-alphanumeric.adb </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-forms-field_types-alphanumeric.adb </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.AlphaNumeric --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- B O D Y --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.11 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Date: 2011/03/19 00:45:37 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Forms.Field_Types.AlphaNumeric --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- B O D Y --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.11 @</EM></span>
|
||||
<span class="comment"><EM>-- @Date: 2011/03/19 00:45:37 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<b>with</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>;
|
||||
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<FONT COLOR=red><A NAME="ref_44_58" HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#ref_41_53">AlphaNumeric</A></FONT> <b>is</b>
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<span class="symbol"><A NAME="ref_44_58" HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#ref_41_53">AlphaNumeric</A></span> <b>is</b>
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_46_14" HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#ref_50_14">Set_Field_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_46_30" HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#ref_50_30">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_47_30" HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#ref_51_30">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#ref_45_9">AlphaNumeric_Field</A>)
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_46_14" HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#ref_50_14">Set_Field_Type</A></span> (<span class="symbol"><A NAME="ref_46_30" HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#ref_50_30">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_47_30" HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#ref_51_30">Typ</A></span> : <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#ref_45_9">AlphaNumeric_Field</A>)
|
||||
<b>is</b>
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_49_16">Set_Fld_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_49_30" HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#ref_49_16">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#ref_50_30">Fld</A>;
|
||||
<FONT COLOR=red><A NAME="ref_50_30" HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#ref_49_16">Arg1</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_49_16">Set_Fld_Type</A></span> (<span class="symbol"><A NAME="ref_49_30" HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#ref_49_16">F</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#ref_50_30">Fld</A>;
|
||||
<span class="symbol"><A NAME="ref_50_30" HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#ref_49_16">Arg1</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<b>pragma</b> Import (C, Set_Fld_Type, "set_field_type_alnum");
|
||||
|
||||
<FONT COLOR=red><A NAME="ref_53_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;
|
||||
<span class="symbol"><A NAME="ref_53_7">Res</A></span> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;
|
||||
<b>begin</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#ref_53_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#ref_49_16">Set_Fld_Type</A> (<A HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#ref_50_30">Arg1</A> => <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A> (<A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#ref_51_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#ref_47_9">Minimum_Field_Width</A>));
|
||||
<b>if</b> <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#ref_53_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#ref_80_4">E_Ok</A> <b>then</b>
|
||||
|
||||
@ -1,59 +1,71 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-alphanumeric.ads</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-forms-field_types-alphanumeric.ads</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-alphanumeric.ads </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-forms-field_types-alphanumeric.ads </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.AlphaNumeric --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- S P E C --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.12 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<FONT COLOR=red><A NAME="ref_41_53" HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#ref_44_58">AlphaNumeric</A></FONT> <b>is</b>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Forms.Field_Types.AlphaNumeric --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- S P E C --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.12 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<span class="symbol"><A NAME="ref_41_53" HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#ref_44_58">AlphaNumeric</A></span> <b>is</b>
|
||||
<b>pragma</b> Preelaborate
|
||||
(<A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#ref_41_53">AlphaNumeric</A>);
|
||||
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_45_9">AlphaNumeric_Field</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A>
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_45_9">AlphaNumeric_Field</A></span> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A>
|
||||
<b>with</b> <b>record</b>
|
||||
<FONT COLOR=red><A NAME="ref_47_9">Minimum_Field_Width</A></FONT> : Natural := 0;
|
||||
<span class="symbol"><A NAME="ref_47_9">Minimum_Field_Width</A></span> : Natural := 0;
|
||||
<b>end</b> <b>record</b>;
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_50_14" HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#ref_46_14">Set_Field_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_50_30" HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#ref_46_30">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_51_30" HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#ref_47_30">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#ref_45_9">AlphaNumeric_Field</A>);
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_50_14" HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#ref_46_14">Set_Field_Type</A></span> (<span class="symbol"><A NAME="ref_50_30" HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#ref_46_30">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_51_30" HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#ref_47_30">Typ</A></span> : <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#ref_45_9">AlphaNumeric_Field</A>);
|
||||
<b>pragma</b> Inline (Set_Field_Type);
|
||||
|
||||
<b>end</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#ref_41_53">AlphaNumeric</A>;
|
||||
|
||||
@ -1,68 +1,80 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-enumeration-ada.adb</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-forms-field_types-enumeration-ada.adb</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-enumeration-ada.adb </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-forms-field_types-enumeration-ada.adb </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Enumeration.Ada --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- B O D Y --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2004,2011 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.11 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Date: 2011/03/22 23:36:20 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Enumeration.Ada --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- B O D Y --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2004,2011 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.11 @</EM></span>
|
||||
<span class="comment"><EM>-- @Date: 2011/03/22 23:36:20 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<b>with</b> Ada.Characters.Handling; <b>use</b> Ada.Characters.Handling;
|
||||
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_43_53">Enumeration</A>.<FONT COLOR=red><A NAME="ref_44_70" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_44_65">Ada</A></FONT> <b>is</b>
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_43_53">Enumeration</A>.<span class="symbol"><A NAME="ref_44_70" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_44_65">Ada</A></span> <b>is</b>
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_46_13" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_48_13">Create</A></FONT> (<FONT COLOR=red><A NAME="ref_46_21" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_48_21">Set</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_50_9">Type_Set</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_50_46">Mixed_Case</A>;
|
||||
<FONT COLOR=red><A NAME="ref_47_21" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_49_21">Case_Sensitive</A></FONT> : Boolean := False;
|
||||
<FONT COLOR=red><A NAME="ref_48_21" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_50_21">Must_Be_Unique</A></FONT> : Boolean := False)
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_46_13" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_48_13">Create</A></span> (<span class="symbol"><A NAME="ref_46_21" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_48_21">Set</A></span> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_50_9">Type_Set</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_50_46">Mixed_Case</A>;
|
||||
<span class="symbol"><A NAME="ref_47_21" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_49_21">Case_Sensitive</A></span> : Boolean := False;
|
||||
<span class="symbol"><A NAME="ref_48_21" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_50_21">Must_Be_Unique</A></span> : Boolean := False)
|
||||
<b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_62_9">Enumeration_Field</A>
|
||||
<b>is</b>
|
||||
<FONT COLOR=red><A NAME="ref_51_7">I</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_55_9">Enumeration_Info</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_42_9">T</A>'Pos (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_42_9">T</A>'Last) - <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_42_9">T</A>'Pos (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_42_9">T</A>'First) + 1);
|
||||
<FONT COLOR=red><A NAME="ref_52_7">J</A></FONT> : Positive := 1;
|
||||
<span class="symbol"><A NAME="ref_51_7">I</A></span> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_55_9">Enumeration_Info</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_42_9">T</A>'Pos (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_42_9">T</A>'Last) - <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_42_9">T</A>'Pos (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_42_9">T</A>'First) + 1);
|
||||
<span class="symbol"><A NAME="ref_52_7">J</A></span> : Positive := 1;
|
||||
<b>begin</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#ref_51_7">I</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_58_10">Case_Sensitive</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_49_21">Case_Sensitive</A>;
|
||||
<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#ref_51_7">I</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_59_10">Match_Must_Be_Unique</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_50_21">Must_Be_Unique</A>;
|
||||
|
||||
<b>for</b> <FONT COLOR=red><A NAME="ref_57_11">E</A></FONT> <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_42_9">T</A>'<b>Range</b> <b>loop</b>
|
||||
<b>for</b> <span class="symbol"><A NAME="ref_57_11">E</A></span> <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_42_9">T</A>'<b>Range</b> <b>loop</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#ref_51_7">I</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_57_10">Names</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#ref_52_7">J</A>) := <b>new</b> String'(<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_42_9">T</A>'Image (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#ref_57_11">E</A>));
|
||||
<FONT COLOR=green><EM>-- The Image attribute defaults to upper case, so we have to handle</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- only the other ones...</EM></FONT>
|
||||
<span class="comment"><EM>-- The Image attribute defaults to upper case, so we have to handle</EM></span>
|
||||
<span class="comment"><EM>-- only the other ones...</EM></span>
|
||||
<b>if</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_48_21">Set</A> /= <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_50_34">Upper_Case</A> <b>then</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#ref_51_7">I</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_57_10">Names</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#ref_52_7">J</A>).<b>all</b> := To_Lower (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#ref_51_7">I</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_57_10">Names</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#ref_52_7">J</A>).<b>all</b>);
|
||||
<b>if</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_48_21">Set</A> = <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_50_46">Mixed_Case</A> <b>then</b>
|
||||
@ -76,11 +88,11 @@
|
||||
<b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_64_13">Create</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#ref_51_7">I</A>, True);
|
||||
<b>end</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_48_13">Create</A>;
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_74_13" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_53_13">Value</A></FONT> (<FONT COLOR=red><A NAME="ref_74_20" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_53_20">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_75_20" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_54_20">Buf</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_133_9">Buffer_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#ref_133_9">Buffer_Number</A>'First) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_42_9">T</A>
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_74_13" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_53_13">Value</A></span> (<span class="symbol"><A NAME="ref_74_20" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_53_20">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_75_20" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_54_20">Buf</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_131_9">Buffer_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#ref_131_9">Buffer_Number</A>'First) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_42_9">T</A>
|
||||
<b>is</b>
|
||||
<b>begin</b>
|
||||
<b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_42_9">T</A>'Value (<A HREF="terminal_interface-curses-forms__ads.htm#ref_372_13">Get_Buffer</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_53_20">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_54_20">Buf</A>));
|
||||
<b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_42_9">T</A>'Value (<A HREF="terminal_interface-curses-forms__ads.htm#ref_370_13">Get_Buffer</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_53_20">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_54_20">Buf</A>));
|
||||
<b>end</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_53_13">Value</A>;
|
||||
|
||||
<b>end</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_43_53">Enumeration</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_44_65">Ada</A>;
|
||||
|
||||
@ -1,65 +1,77 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-enumeration-ada.ads</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-forms-field_types-enumeration-ada.ads</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-enumeration-ada.ads </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-forms-field_types-enumeration-ada.ads </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Enumeration.Ada --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- S P E C --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.10 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Enumeration.Ada --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- S P E C --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.10 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<b>generic</b>
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_42_9" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_44_65">T</A></FONT> <b>is</b> (<>);
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_42_9" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_44_65">T</A></span> <b>is</b> (<>);
|
||||
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_43_53">Enumeration</A>.<FONT COLOR=red><A NAME="ref_44_65" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#ref_44_70">Ada</A></FONT> <b>is</b>
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_43_53">Enumeration</A>.<span class="symbol"><A NAME="ref_44_65" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#ref_44_70">Ada</A></span> <b>is</b>
|
||||
<b>pragma</b> Preelaborate
|
||||
(<A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_43_53">Enumeration</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_44_65">Ada</A>);
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_48_13" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#ref_46_13">Create</A></FONT> (<FONT COLOR=red><A NAME="ref_48_21" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#ref_46_21">Set</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_50_9">Type_Set</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_50_46">Mixed_Case</A>;
|
||||
<FONT COLOR=red><A NAME="ref_49_21" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#ref_47_21">Case_Sensitive</A></FONT> : Boolean := False;
|
||||
<FONT COLOR=red><A NAME="ref_50_21" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#ref_48_21">Must_Be_Unique</A></FONT> : Boolean := False)
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_48_13" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#ref_46_13">Create</A></span> (<span class="symbol"><A NAME="ref_48_21" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#ref_46_21">Set</A></span> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_50_9">Type_Set</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_50_46">Mixed_Case</A>;
|
||||
<span class="symbol"><A NAME="ref_49_21" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#ref_47_21">Case_Sensitive</A></span> : Boolean := False;
|
||||
<span class="symbol"><A NAME="ref_50_21" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#ref_48_21">Must_Be_Unique</A></span> : Boolean := False)
|
||||
<b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_62_9">Enumeration_Field</A>;
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_53_13" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#ref_74_13">Value</A></FONT> (<FONT COLOR=red><A NAME="ref_53_20" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#ref_74_20">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_54_20" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#ref_75_20">Buf</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_133_9">Buffer_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#ref_133_9">Buffer_Number</A>'First) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_42_9">T</A>;
|
||||
<FONT COLOR=green><EM>-- Translate the content of the fields buffer - indicated by the</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- buffer number - into an enumeration value. If the buffer is empty</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- or the content is invalid, a Constraint_Error is raises.</EM></FONT>
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_53_13" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#ref_74_13">Value</A></span> (<span class="symbol"><A NAME="ref_53_20" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#ref_74_20">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_54_20" HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#ref_75_20">Buf</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_131_9">Buffer_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#ref_131_9">Buffer_Number</A>'First) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_42_9">T</A>;
|
||||
<span class="comment"><EM>-- Translate the content of the fields buffer - indicated by the</EM></span>
|
||||
<span class="comment"><EM>-- buffer number - into an enumeration value. If the buffer is empty</EM></span>
|
||||
<span class="comment"><EM>-- or the content is invalid, a Constraint_Error is raises.</EM></span>
|
||||
|
||||
<b>end</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_43_53">Enumeration</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#ref_44_65">Ada</A>;
|
||||
</PRE></BODY></HTML>
|
||||
|
||||
@ -1,72 +1,84 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-enumeration.adb</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-forms-field_types-enumeration.adb</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-enumeration.adb </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-forms-field_types-enumeration.adb </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Enumeration --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- B O D Y --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.10 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Enumeration --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- B O D Y --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.10 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<b>with</b> Ada.Unchecked_Deallocation;
|
||||
<b>with</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C; <b>use</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C;
|
||||
<b>with</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.Strings; <b>use</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.Strings;
|
||||
<b>with</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C; <b>use</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C;
|
||||
<b>with</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C.Strings; <b>use</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C.Strings;
|
||||
<b>with</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>;
|
||||
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<FONT COLOR=red><A NAME="ref_46_58" HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_43_53">Enumeration</A></FONT> <b>is</b>
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<span class="symbol"><A NAME="ref_46_58" HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_43_53">Enumeration</A></span> <b>is</b>
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_48_13" HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_64_13">Create</A></FONT> (<FONT COLOR=red><A NAME="ref_48_21" HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_64_21">Info</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_55_9">Enumeration_Info</A>;
|
||||
<FONT COLOR=red><A NAME="ref_49_21" HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_65_21">Auto_Release_Names</A></FONT> : Boolean := False)
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_48_13" HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_64_13">Create</A></span> (<span class="symbol"><A NAME="ref_48_21" HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_64_21">Info</A></span> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_55_9">Enumeration_Info</A>;
|
||||
<span class="symbol"><A NAME="ref_49_21" HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_65_21">Auto_Release_Names</A></span> : Boolean := False)
|
||||
<b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_62_9">Enumeration_Field</A>
|
||||
<b>is</b>
|
||||
<b>procedure</b> Release_String <b>is</b>
|
||||
<b>new</b> Ada.Unchecked_Deallocation (String,
|
||||
<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_47_9">String_Access</A>);
|
||||
<FONT COLOR=red><A NAME="ref_55_7">E</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_62_9">Enumeration_Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_56_7">L</A></FONT> : <b>constant</b> size_t := 1 + size_t (<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_64_21">Info</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_55_27">C</A>);
|
||||
<FONT COLOR=red><A NAME="ref_57_7">S</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_47_9">String_Access</A>;
|
||||
<span class="symbol"><A NAME="ref_55_7">E</A></span> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_62_9">Enumeration_Field</A>;
|
||||
<span class="symbol"><A NAME="ref_56_7">L</A></span> : <b>constant</b> size_t := 1 + size_t (<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_64_21">Info</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_55_27">C</A>);
|
||||
<span class="symbol"><A NAME="ref_57_7">S</A></span> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_47_9">String_Access</A>;
|
||||
<b>begin</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_55_7">E</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_93_10">Case_Sensitive</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_64_21">Info</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_58_10">Case_Sensitive</A>;
|
||||
<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_55_7">E</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_94_10">Match_Must_Be_Unique</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_64_21">Info</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_59_10">Match_Must_Be_Unique</A>;
|
||||
<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_55_7">E</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_95_10">Arr</A> := <b>new</b> chars_ptr_array (size_t (1) .. <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_56_7">L</A>);
|
||||
<b>for</b> <FONT COLOR=red><A NAME="ref_62_11">I</A></FONT> <b>in</b> 1 .. Positive (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_56_7">L</A> - 1) <b>loop</b>
|
||||
<b>for</b> <span class="symbol"><A NAME="ref_62_11">I</A></span> <b>in</b> 1 .. Positive (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_56_7">L</A> - 1) <b>loop</b>
|
||||
<b>if</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_64_21">Info</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_57_10">Names</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_62_11">I</A>) = <b>null</b> <b>then</b>
|
||||
<b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_290_4">Form_Exception</A>;
|
||||
<b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_288_4">Form_Exception</A>;
|
||||
<b>end</b> <b>if</b>;
|
||||
<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_55_7">E</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_95_10">Arr</A>.<b>all</b> (size_t (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_62_11">I</A>)) := New_String (<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_64_21">Info</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_57_10">Names</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_62_11">I</A>).<b>all</b>);
|
||||
<b>if</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_65_21">Auto_Release_Names</A> <b>then</b>
|
||||
@ -78,10 +90,10 @@
|
||||
<b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_55_7">E</A>;
|
||||
<b>end</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_64_13">Create</A>;
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_76_14" HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_77_14">Release</A></FONT> (<FONT COLOR=red><A NAME="ref_76_23" HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_77_23">Enum</A></FONT> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_62_9">Enumeration_Field</A>)
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_76_14" HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_77_14">Release</A></span> (<span class="symbol"><A NAME="ref_76_23" HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_77_23">Enum</A></span> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_62_9">Enumeration_Field</A>)
|
||||
<b>is</b>
|
||||
<FONT COLOR=red><A NAME="ref_78_7">I</A></FONT> : size_t := 0;
|
||||
<FONT COLOR=red><A NAME="ref_79_7">P</A></FONT> : chars_ptr;
|
||||
<span class="symbol"><A NAME="ref_78_7">I</A></span> : size_t := 0;
|
||||
<span class="symbol"><A NAME="ref_79_7">P</A></span> : chars_ptr;
|
||||
<b>begin</b>
|
||||
<b>loop</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_79_7">P</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_77_23">Enum</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_95_10">Arr</A>.<b>all</b> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_78_7">I</A>);
|
||||
@ -93,19 +105,19 @@
|
||||
<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_77_23">Enum</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_95_10">Arr</A> := <b>null</b>;
|
||||
<b>end</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_77_14">Release</A>;
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_91_14" HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_84_14">Set_Field_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_91_30" HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_84_30">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_92_30" HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_85_30">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_62_9">Enumeration_Field</A>)
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_91_14" HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_84_14">Set_Field_Type</A></span> (<span class="symbol"><A NAME="ref_91_30" HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_84_30">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_92_30" HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_85_30">Typ</A></span> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_62_9">Enumeration_Field</A>)
|
||||
<b>is</b>
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_94_16">Set_Fld_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_94_30" HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_94_16">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_84_30">Fld</A>;
|
||||
<FONT COLOR=red><A NAME="ref_95_30" HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_94_16">Arg1</A></FONT> : chars_ptr_array;
|
||||
<FONT COLOR=red><A NAME="ref_96_30" HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_94_16">Arg2</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<FONT COLOR=red><A NAME="ref_97_30" HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_94_16">Arg3</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_94_16">Set_Fld_Type</A></span> (<span class="symbol"><A NAME="ref_94_30" HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_94_16">F</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_84_30">Fld</A>;
|
||||
<span class="symbol"><A NAME="ref_95_30" HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_94_16">Arg1</A></span> : chars_ptr_array;
|
||||
<span class="symbol"><A NAME="ref_96_30" HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_94_16">Arg2</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<span class="symbol"><A NAME="ref_97_30" HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_94_16">Arg3</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<b>pragma</b> Import (C, Set_Fld_Type, "set_field_type_enum");
|
||||
|
||||
<FONT COLOR=red><A NAME="ref_100_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;
|
||||
<span class="symbol"><A NAME="ref_100_7">Res</A></span> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;
|
||||
<b>begin</b>
|
||||
<b>if</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_85_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_95_10">Arr</A> = <b>null</b> <b>then</b>
|
||||
<b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_290_4">Form_Exception</A>;
|
||||
<b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_288_4">Form_Exception</A>;
|
||||
<b>end</b> <b>if</b>;
|
||||
<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_100_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_94_16">Set_Fld_Type</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_95_30">Arg1</A> => <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_85_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_95_10">Arr</A>.<b>all</b>,
|
||||
<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_96_30">Arg2</A> => <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A> (Boolean'Pos (<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_85_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_93_10">Case_Sensitive</A>)),
|
||||
|
||||
@ -1,103 +1,115 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-enumeration.ads</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-forms-field_types-enumeration.ads</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-enumeration.ads </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-forms-field_types-enumeration.ads </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Enumeration --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- S P E C --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.12 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<b>with</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.Strings;
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Enumeration --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- S P E C --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.12 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<b>with</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C.Strings;
|
||||
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<FONT COLOR=red><A NAME="ref_43_53" HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_46_58">Enumeration</A></FONT> <b>is</b>
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<span class="symbol"><A NAME="ref_43_53" HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_46_58">Enumeration</A></span> <b>is</b>
|
||||
<b>pragma</b> Preelaborate
|
||||
(<A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_43_53">Enumeration</A>);
|
||||
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_47_9">String_Access</A></FONT> <b>is</b> <b>access</b> String;
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_47_9">String_Access</A></span> <b>is</b> <b>access</b> String;
|
||||
|
||||
<FONT COLOR=green><EM>-- Type_Set is used by the child package Ada</EM></FONT>
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_50_9">Type_Set</A></FONT> <b>is</b> (<FONT COLOR=red><A NAME="ref_50_22">Lower_Case</A></FONT>, <FONT COLOR=red><A NAME="ref_50_34">Upper_Case</A></FONT>, <FONT COLOR=red><A NAME="ref_50_46">Mixed_Case</A></FONT>);
|
||||
<span class="comment"><EM>-- Type_Set is used by the child package Ada</EM></span>
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_50_9">Type_Set</A></span> <b>is</b> (<span class="symbol"><A NAME="ref_50_22">Lower_Case</A></span>, <span class="symbol"><A NAME="ref_50_34">Upper_Case</A></span>, <span class="symbol"><A NAME="ref_50_46">Mixed_Case</A></span>);
|
||||
|
||||
<b>type</b> Enum_Array <b>is</b> <b>array</b> (Positive <b>range</b> <>)
|
||||
<b>of</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_47_9">String_Access</A>;
|
||||
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_55_9">Enumeration_Info</A></FONT> (<FONT COLOR=red><A NAME="ref_55_27" HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_55_9">C</A></FONT> : Positive) <b>is</b>
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_55_9">Enumeration_Info</A></span> (<span class="symbol"><A NAME="ref_55_27" HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_55_9">C</A></span> : Positive) <b>is</b>
|
||||
<b>record</b>
|
||||
<FONT COLOR=red><A NAME="ref_57_10">Names</A></FONT> : Enum_Array (1 .. <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_55_27">C</A>);
|
||||
<FONT COLOR=red><A NAME="ref_58_10">Case_Sensitive</A></FONT> : Boolean := False;
|
||||
<FONT COLOR=red><A NAME="ref_59_10">Match_Must_Be_Unique</A></FONT> : Boolean := False;
|
||||
<span class="symbol"><A NAME="ref_57_10">Names</A></span> : Enum_Array (1 .. <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_55_27">C</A>);
|
||||
<span class="symbol"><A NAME="ref_58_10">Case_Sensitive</A></span> : Boolean := False;
|
||||
<span class="symbol"><A NAME="ref_59_10">Match_Must_Be_Unique</A></span> : Boolean := False;
|
||||
<b>end</b> <b>record</b>;
|
||||
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_62_9">Enumeration_Field</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A> <b>with</b> <b>private</b>;
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_62_9">Enumeration_Field</A></span> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A> <b>with</b> <b>private</b>;
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_64_13" HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_48_13">Create</A></FONT> (<FONT COLOR=red><A NAME="ref_64_21" HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_48_21">Info</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_55_9">Enumeration_Info</A>;
|
||||
<FONT COLOR=red><A NAME="ref_65_21" HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_49_21">Auto_Release_Names</A></FONT> : Boolean := False)
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_64_13" HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_48_13">Create</A></span> (<span class="symbol"><A NAME="ref_64_21" HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_48_21">Info</A></span> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_55_9">Enumeration_Info</A>;
|
||||
<span class="symbol"><A NAME="ref_65_21" HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_49_21">Auto_Release_Names</A></span> : Boolean := False)
|
||||
<b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_62_9">Enumeration_Field</A>;
|
||||
<FONT COLOR=green><EM>-- Make an fieldtype from the info. Enumerations are special, because</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- they normally don't copy the enum values into a private store, so</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- we have to care for the lifetime of the info we provide.</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The Auto_Release_Names flag may be used to automatically releases</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- the strings in the Names array of the Enumeration_Info.</EM></FONT>
|
||||
<span class="comment"><EM>-- Make an fieldtype from the info. Enumerations are special, because</EM></span>
|
||||
<span class="comment"><EM>-- they normally don't copy the enum values into a private store, so</EM></span>
|
||||
<span class="comment"><EM>-- we have to care for the lifetime of the info we provide.</EM></span>
|
||||
<span class="comment"><EM>-- The Auto_Release_Names flag may be used to automatically releases</EM></span>
|
||||
<span class="comment"><EM>-- the strings in the Names array of the Enumeration_Info.</EM></span>
|
||||
|
||||
<b>function</b> Make_Enumeration_Type (<FONT COLOR=red><A NAME="ref_73_36">Info</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_55_9">Enumeration_Info</A>;
|
||||
<FONT COLOR=red><A NAME="ref_74_36">Auto_Release_Names</A></FONT> : Boolean := False)
|
||||
<b>function</b> Make_Enumeration_Type (<span class="symbol"><A NAME="ref_73_36">Info</A></span> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_55_9">Enumeration_Info</A>;
|
||||
<span class="symbol"><A NAME="ref_74_36">Auto_Release_Names</A></span> : Boolean := False)
|
||||
<b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_62_9">Enumeration_Field</A> <b>renames</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_64_13">Create</A>;
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_77_14" HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_76_14">Release</A></FONT> (<FONT COLOR=red><A NAME="ref_77_23" HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_76_23">Enum</A></FONT> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_62_9">Enumeration_Field</A>);
|
||||
<FONT COLOR=green><EM>-- But we may want to release the field to release the memory allocated</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- by it internally. After that the Enumeration field is no longer usable.</EM></FONT>
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_77_14" HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_76_14">Release</A></span> (<span class="symbol"><A NAME="ref_77_23" HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_76_23">Enum</A></span> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_62_9">Enumeration_Field</A>);
|
||||
<span class="comment"><EM>-- But we may want to release the field to release the memory allocated</EM></span>
|
||||
<span class="comment"><EM>-- by it internally. After that the Enumeration field is no longer usable.</EM></span>
|
||||
|
||||
<FONT COLOR=green><EM>-- The next type defintions are all ncurses extensions. They are typically</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- not available in other curses implementations.</EM></FONT>
|
||||
<span class="comment"><EM>-- The next type defintions are all ncurses extensions. They are typically</EM></span>
|
||||
<span class="comment"><EM>-- not available in other curses implementations.</EM></span>
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_84_14" HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_91_14">Set_Field_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_84_30" HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_91_30">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_85_30" HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_92_30">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_62_9">Enumeration_Field</A>);
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_84_14" HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_91_14">Set_Field_Type</A></span> (<span class="symbol"><A NAME="ref_84_30" HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_91_30">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_85_30" HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#ref_92_30">Typ</A></span> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_62_9">Enumeration_Field</A>);
|
||||
<b>pragma</b> Inline (Set_Field_Type);
|
||||
|
||||
<b>private</b>
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_89_9">CPA_Access</A></FONT> <b>is</b> <b>access</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.Strings.chars_ptr_array;
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_89_9">CPA_Access</A></span> <b>is</b> <b>access</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C.Strings.chars_ptr_array;
|
||||
|
||||
<b>type</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_62_9">Enumeration_Field</A> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A> <b>with</b>
|
||||
<b>record</b>
|
||||
<FONT COLOR=red><A NAME="ref_93_10">Case_Sensitive</A></FONT> : Boolean := False;
|
||||
<FONT COLOR=red><A NAME="ref_94_10">Match_Must_Be_Unique</A></FONT> : Boolean := False;
|
||||
<FONT COLOR=red><A NAME="ref_95_10">Arr</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_89_9">CPA_Access</A> := <b>null</b>;
|
||||
<span class="symbol"><A NAME="ref_93_10">Case_Sensitive</A></span> : Boolean := False;
|
||||
<span class="symbol"><A NAME="ref_94_10">Match_Must_Be_Unique</A></span> : Boolean := False;
|
||||
<span class="symbol"><A NAME="ref_95_10">Arr</A></span> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_89_9">CPA_Access</A> := <b>null</b>;
|
||||
<b>end</b> <b>record</b>;
|
||||
|
||||
<b>end</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#ref_43_53">Enumeration</A>;
|
||||
|
||||
@ -1,63 +1,75 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-intfield.adb</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-forms-field_types-intfield.adb</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-intfield.adb </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-forms-field_types-intfield.adb </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.IntField --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- B O D Y --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.11 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Date: 2011/03/19 00:45:37 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Forms.Field_Types.IntField --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- B O D Y --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.11 @</EM></span>
|
||||
<span class="comment"><EM>-- @Date: 2011/03/19 00:45:37 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<b>with</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>;
|
||||
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<FONT COLOR=red><A NAME="ref_44_58" HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#ref_41_53">IntField</A></FONT> <b>is</b>
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<span class="symbol"><A NAME="ref_44_58" HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#ref_41_53">IntField</A></span> <b>is</b>
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_46_14" HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#ref_51_14">Set_Field_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_46_30" HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#ref_51_30">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_47_30" HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#ref_52_30">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#ref_44_9">Integer_Field</A>)
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_46_14" HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#ref_51_14">Set_Field_Type</A></span> (<span class="symbol"><A NAME="ref_46_30" HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#ref_51_30">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_47_30" HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#ref_52_30">Typ</A></span> : <A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#ref_44_9">Integer_Field</A>)
|
||||
<b>is</b>
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_49_16">Set_Fld_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_49_30" HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#ref_49_16">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#ref_51_30">Fld</A>;
|
||||
<FONT COLOR=red><A NAME="ref_50_30" HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#ref_49_16">Arg1</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<FONT COLOR=red><A NAME="ref_51_30" HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#ref_49_16">Arg2</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_57_12">C_Long_Int</A>;
|
||||
<FONT COLOR=red><A NAME="ref_52_30" HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#ref_49_16">Arg3</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_57_12">C_Long_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_49_16">Set_Fld_Type</A></span> (<span class="symbol"><A NAME="ref_49_30" HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#ref_49_16">F</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#ref_51_30">Fld</A>;
|
||||
<span class="symbol"><A NAME="ref_50_30" HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#ref_49_16">Arg1</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<span class="symbol"><A NAME="ref_51_30" HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#ref_49_16">Arg2</A></span> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_57_12">C_Long_Int</A>;
|
||||
<span class="symbol"><A NAME="ref_52_30" HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#ref_49_16">Arg3</A></span> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_57_12">C_Long_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<b>pragma</b> Import (C, Set_Fld_Type, "set_field_type_integer");
|
||||
|
||||
<FONT COLOR=red><A NAME="ref_55_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;
|
||||
<span class="symbol"><A NAME="ref_55_7">Res</A></span> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;
|
||||
<b>begin</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#ref_55_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#ref_49_16">Set_Fld_Type</A> (<A HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#ref_50_30">Arg1</A> => <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A> (<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#ref_52_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#ref_46_10">Precision</A>),
|
||||
<A HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#ref_51_30">Arg2</A> => <A HREF="terminal_interface-curses-aux__ads.htm#ref_57_12">C_Long_Int</A> (<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#ref_52_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#ref_47_10">Lower_Limit</A>),
|
||||
|
||||
@ -1,60 +1,72 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-intfield.ads</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-forms-field_types-intfield.ads</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-intfield.ads </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-forms-field_types-intfield.ads </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.IntField --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- S P E C --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.12 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<FONT COLOR=red><A NAME="ref_41_53" HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#ref_44_58">IntField</A></FONT> <b>is</b>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Forms.Field_Types.IntField --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- S P E C --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.12 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<span class="symbol"><A NAME="ref_41_53" HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#ref_44_58">IntField</A></span> <b>is</b>
|
||||
<b>pragma</b> Preelaborate (<A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#ref_41_53">IntField</A>);
|
||||
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_44_9">Integer_Field</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A> <b>with</b>
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_44_9">Integer_Field</A></span> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A> <b>with</b>
|
||||
<b>record</b>
|
||||
<FONT COLOR=red><A NAME="ref_46_10">Precision</A></FONT> : Natural;
|
||||
<FONT COLOR=red><A NAME="ref_47_10">Lower_Limit</A></FONT> : Integer;
|
||||
<FONT COLOR=red><A NAME="ref_48_10">Upper_Limit</A></FONT> : Integer;
|
||||
<span class="symbol"><A NAME="ref_46_10">Precision</A></span> : Natural;
|
||||
<span class="symbol"><A NAME="ref_47_10">Lower_Limit</A></span> : Integer;
|
||||
<span class="symbol"><A NAME="ref_48_10">Upper_Limit</A></span> : Integer;
|
||||
<b>end</b> <b>record</b>;
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_51_14" HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#ref_46_14">Set_Field_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_51_30" HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#ref_46_30">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_52_30" HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#ref_47_30">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#ref_44_9">Integer_Field</A>);
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_51_14" HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#ref_46_14">Set_Field_Type</A></span> (<span class="symbol"><A NAME="ref_51_30" HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#ref_46_30">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_52_30" HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#ref_47_30">Typ</A></span> : <A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#ref_44_9">Integer_Field</A>);
|
||||
<b>pragma</b> Inline (Set_Field_Type);
|
||||
|
||||
<b>end</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#ref_41_53">IntField</A>;
|
||||
|
||||
@ -1,61 +1,73 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-ipv4_address.adb</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-forms-field_types-ipv4_address.adb</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-ipv4_address.adb </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-forms-field_types-ipv4_address.adb </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.IPV4_Address --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- B O D Y --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.11 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Date: 2011/03/19 00:45:37 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Forms.Field_Types.IPV4_Address --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- B O D Y --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.11 @</EM></span>
|
||||
<span class="comment"><EM>-- @Date: 2011/03/19 00:45:37 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<b>with</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>;
|
||||
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<FONT COLOR=red><A NAME="ref_44_58" HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#ref_41_53">IPV4_Address</A></FONT> <b>is</b>
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<span class="symbol"><A NAME="ref_44_58" HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#ref_41_53">IPV4_Address</A></span> <b>is</b>
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_46_14" HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#ref_47_14">Set_Field_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_46_30" HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#ref_47_30">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_47_30" HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#ref_48_30">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#ref_45_9">Internet_V4_Address_Field</A>)
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_46_14" HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#ref_47_14">Set_Field_Type</A></span> (<span class="symbol"><A NAME="ref_46_30" HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#ref_47_30">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_47_30" HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#ref_48_30">Typ</A></span> : <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#ref_45_9">Internet_V4_Address_Field</A>)
|
||||
<b>is</b>
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_49_16">Set_Fld_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_49_30" HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#ref_49_16">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#ref_47_30">Fld</A>)
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_49_16">Set_Fld_Type</A></span> (<span class="symbol"><A NAME="ref_49_30" HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#ref_49_16">F</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#ref_47_30">Fld</A>)
|
||||
<b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<b>pragma</b> Import (C, Set_Fld_Type, "set_field_type_ipv4");
|
||||
|
||||
<FONT COLOR=red><A NAME="ref_53_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;
|
||||
<span class="symbol"><A NAME="ref_53_7">Res</A></span> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;
|
||||
<b>begin</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#ref_53_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#ref_49_16">Set_Fld_Type</A>;
|
||||
<b>if</b> <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#ref_53_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#ref_80_4">E_Ok</A> <b>then</b>
|
||||
|
||||
@ -1,56 +1,68 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-ipv4_address.ads</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-forms-field_types-ipv4_address.ads</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-ipv4_address.ads </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-forms-field_types-ipv4_address.ads </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.IPV4_Address --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- S P E C --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.12 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<FONT COLOR=red><A NAME="ref_41_53" HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#ref_44_58">IPV4_Address</A></FONT> <b>is</b>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Forms.Field_Types.IPV4_Address --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- S P E C --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.12 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<span class="symbol"><A NAME="ref_41_53" HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#ref_44_58">IPV4_Address</A></span> <b>is</b>
|
||||
<b>pragma</b> Preelaborate
|
||||
(<A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#ref_41_53">IPV4_Address</A>);
|
||||
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_45_9">Internet_V4_Address_Field</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A> <b>with</b> <b>null</b> <b>record</b>;
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_45_9">Internet_V4_Address_Field</A></span> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A> <b>with</b> <b>null</b> <b>record</b>;
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_47_14" HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#ref_46_14">Set_Field_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_47_30" HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#ref_46_30">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_48_30" HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#ref_47_30">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#ref_45_9">Internet_V4_Address_Field</A>);
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_47_14" HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#ref_46_14">Set_Field_Type</A></span> (<span class="symbol"><A NAME="ref_47_30" HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#ref_46_30">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_48_30" HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#ref_47_30">Typ</A></span> : <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#ref_45_9">Internet_V4_Address_Field</A>);
|
||||
<b>pragma</b> Inline (Set_Field_Type);
|
||||
|
||||
<b>end</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#ref_41_53">IPV4_Address</A>;
|
||||
|
||||
@ -1,66 +1,78 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-numeric.adb</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-forms-field_types-numeric.adb</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-numeric.adb </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-forms-field_types-numeric.adb </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Numeric --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- B O D Y --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.12 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Date: 2011/03/19 00:45:37 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<b>with</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C;
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Numeric --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- B O D Y --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.12 @</EM></span>
|
||||
<span class="comment"><EM>-- @Date: 2011/03/19 00:45:37 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<b>with</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C;
|
||||
<b>with</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>;
|
||||
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<FONT COLOR=red><A NAME="ref_45_58" HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#ref_41_53">Numeric</A></FONT> <b>is</b>
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<span class="symbol"><A NAME="ref_45_58" HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#ref_41_53">Numeric</A></span> <b>is</b>
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_47_14" HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#ref_51_14">Set_Field_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_47_30" HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#ref_51_30">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_48_30" HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#ref_52_30">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#ref_44_9">Numeric_Field</A>)
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_47_14" HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#ref_51_14">Set_Field_Type</A></span> (<span class="symbol"><A NAME="ref_47_30" HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#ref_51_30">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_48_30" HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#ref_52_30">Typ</A></span> : <A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#ref_44_9">Numeric_Field</A>)
|
||||
<b>is</b>
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_50_12">Double</A></FONT> <b>is</b> <b>new</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.double;
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_50_12">Double</A></span> <b>is</b> <b>new</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C.double;
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_52_16">Set_Fld_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_52_30" HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#ref_52_16">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#ref_51_30">Fld</A>;
|
||||
<FONT COLOR=red><A NAME="ref_53_30" HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#ref_52_16">Arg1</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<FONT COLOR=red><A NAME="ref_54_30" HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#ref_52_16">Arg2</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#ref_50_12">Double</A>;
|
||||
<FONT COLOR=red><A NAME="ref_55_30" HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#ref_52_16">Arg3</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#ref_50_12">Double</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_52_16">Set_Fld_Type</A></span> (<span class="symbol"><A NAME="ref_52_30" HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#ref_52_16">F</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#ref_51_30">Fld</A>;
|
||||
<span class="symbol"><A NAME="ref_53_30" HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#ref_52_16">Arg1</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<span class="symbol"><A NAME="ref_54_30" HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#ref_52_16">Arg2</A></span> : <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#ref_50_12">Double</A>;
|
||||
<span class="symbol"><A NAME="ref_55_30" HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#ref_52_16">Arg3</A></span> : <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#ref_50_12">Double</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<b>pragma</b> Import (C, Set_Fld_Type, "set_field_type_numeric");
|
||||
|
||||
<FONT COLOR=red><A NAME="ref_58_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;
|
||||
<span class="symbol"><A NAME="ref_58_7">Res</A></span> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;
|
||||
<b>begin</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#ref_58_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#ref_52_16">Set_Fld_Type</A> (<A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#ref_53_30">Arg1</A> => <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A> (<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#ref_52_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#ref_46_10">Precision</A>),
|
||||
<A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#ref_54_30">Arg2</A> => <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#ref_50_12">Double</A> (<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#ref_52_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#ref_47_10">Lower_Limit</A>),
|
||||
|
||||
@ -1,60 +1,72 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-numeric.ads</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-forms-field_types-numeric.ads</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-numeric.ads </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-forms-field_types-numeric.ads </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Numeric --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- S P E C --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.12 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<FONT COLOR=red><A NAME="ref_41_53" HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#ref_45_58">Numeric</A></FONT> <b>is</b>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Numeric --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- S P E C --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.12 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<span class="symbol"><A NAME="ref_41_53" HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#ref_45_58">Numeric</A></span> <b>is</b>
|
||||
<b>pragma</b> Preelaborate (<A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#ref_41_53">Numeric</A>);
|
||||
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_44_9">Numeric_Field</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A> <b>with</b>
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_44_9">Numeric_Field</A></span> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A> <b>with</b>
|
||||
<b>record</b>
|
||||
<FONT COLOR=red><A NAME="ref_46_10">Precision</A></FONT> : Natural;
|
||||
<FONT COLOR=red><A NAME="ref_47_10">Lower_Limit</A></FONT> : Float;
|
||||
<FONT COLOR=red><A NAME="ref_48_10">Upper_Limit</A></FONT> : Float;
|
||||
<span class="symbol"><A NAME="ref_46_10">Precision</A></span> : Natural;
|
||||
<span class="symbol"><A NAME="ref_47_10">Lower_Limit</A></span> : Float;
|
||||
<span class="symbol"><A NAME="ref_48_10">Upper_Limit</A></span> : Float;
|
||||
<b>end</b> <b>record</b>;
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_51_14" HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#ref_47_14">Set_Field_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_51_30" HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#ref_47_30">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_52_30" HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#ref_48_30">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#ref_44_9">Numeric_Field</A>);
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_51_14" HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#ref_47_14">Set_Field_Type</A></span> (<span class="symbol"><A NAME="ref_51_30" HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#ref_47_30">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_52_30" HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#ref_48_30">Typ</A></span> : <A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#ref_44_9">Numeric_Field</A>);
|
||||
<b>pragma</b> Inline (Set_Field_Type);
|
||||
|
||||
<b>end</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#ref_41_53">Numeric</A>;
|
||||
|
||||
@ -1,65 +1,77 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-regexp.adb</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-forms-field_types-regexp.adb</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-regexp.adb </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-forms-field_types-regexp.adb </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.RegExp --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- B O D Y --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.10 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<b>with</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C; <b>use</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C;
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Forms.Field_Types.RegExp --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- B O D Y --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.10 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<b>with</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C; <b>use</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C;
|
||||
<b>with</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>;
|
||||
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<FONT COLOR=red><A NAME="ref_44_58" HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#ref_41_53">RegExp</A></FONT> <b>is</b>
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<span class="symbol"><A NAME="ref_44_58" HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#ref_41_53">RegExp</A></span> <b>is</b>
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_46_14" HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#ref_51_14">Set_Field_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_46_30" HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#ref_51_30">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_47_30" HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#ref_52_30">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#ref_46_9">Regular_Expression_Field</A>)
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_46_14" HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#ref_51_14">Set_Field_Type</A></span> (<span class="symbol"><A NAME="ref_46_30" HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#ref_51_30">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_47_30" HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#ref_52_30">Typ</A></span> : <A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#ref_46_9">Regular_Expression_Field</A>)
|
||||
<b>is</b>
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_49_12">Char_Ptr</A></FONT> <b>is</b> <b>access</b> <b>all</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.char;
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_49_12">Char_Ptr</A></span> <b>is</b> <b>access</b> <b>all</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C.char;
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_51_16">Set_Ftyp</A></FONT> (<FONT COLOR=red><A NAME="ref_51_26" HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#ref_51_16">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#ref_51_30">Fld</A>;
|
||||
<FONT COLOR=red><A NAME="ref_52_26" HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#ref_51_16">Arg1</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#ref_49_12">Char_Ptr</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_51_16">Set_Ftyp</A></span> (<span class="symbol"><A NAME="ref_51_26" HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#ref_51_16">F</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#ref_51_30">Fld</A>;
|
||||
<span class="symbol"><A NAME="ref_52_26" HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#ref_51_16">Arg1</A></span> : <A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#ref_49_12">Char_Ptr</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<b>pragma</b> Import (C, Set_Ftyp, "set_field_type_regexp");
|
||||
|
||||
<FONT COLOR=red><A NAME="ref_55_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#ref_52_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#ref_48_10">Regular_Expression</A>.<b>all</b>'Length);
|
||||
<FONT COLOR=red><A NAME="ref_56_7">Len</A></FONT> : size_t;
|
||||
<FONT COLOR=red><A NAME="ref_57_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;
|
||||
<span class="symbol"><A NAME="ref_55_7">Txt</A></span> : char_array (0 .. <A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#ref_52_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#ref_48_10">Regular_Expression</A>.<b>all</b>'Length);
|
||||
<span class="symbol"><A NAME="ref_56_7">Len</A></span> : size_t;
|
||||
<span class="symbol"><A NAME="ref_57_7">Res</A></span> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;
|
||||
<b>begin</b>
|
||||
To_C (<A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#ref_52_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#ref_48_10">Regular_Expression</A>.<b>all</b>, <A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#ref_55_7">Txt</A>, <A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#ref_56_7">Len</A>);
|
||||
<A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#ref_57_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#ref_51_16">Set_Ftyp</A> (<A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#ref_52_26">Arg1</A> => <A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#ref_55_7">Txt</A> (<A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#ref_55_7">Txt</A>'First)'<b>Access</b>);
|
||||
|
||||
@ -1,60 +1,72 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-regexp.ads</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-forms-field_types-regexp.ads</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-regexp.ads </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-forms-field_types-regexp.ads </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.RegExp --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- S P E C --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.12 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<FONT COLOR=red><A NAME="ref_41_53" HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#ref_44_58">RegExp</A></FONT> <b>is</b>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Forms.Field_Types.RegExp --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- S P E C --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.12 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<span class="symbol"><A NAME="ref_41_53" HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#ref_44_58">RegExp</A></span> <b>is</b>
|
||||
<b>pragma</b> Preelaborate (<A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#ref_41_53">RegExp</A>);
|
||||
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_44_9">String_Access</A></FONT> <b>is</b> <b>access</b> String;
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_44_9">String_Access</A></span> <b>is</b> <b>access</b> String;
|
||||
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_46_9">Regular_Expression_Field</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A> <b>with</b>
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_46_9">Regular_Expression_Field</A></span> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A> <b>with</b>
|
||||
<b>record</b>
|
||||
<FONT COLOR=red><A NAME="ref_48_10">Regular_Expression</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#ref_44_9">String_Access</A>;
|
||||
<span class="symbol"><A NAME="ref_48_10">Regular_Expression</A></span> : <A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#ref_44_9">String_Access</A>;
|
||||
<b>end</b> <b>record</b>;
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_51_14" HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#ref_46_14">Set_Field_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_51_30" HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#ref_46_30">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_52_30" HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#ref_47_30">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#ref_46_9">Regular_Expression_Field</A>);
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_51_14" HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#ref_46_14">Set_Field_Type</A></span> (<span class="symbol"><A NAME="ref_51_30" HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#ref_46_30">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_52_30" HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#ref_47_30">Typ</A></span> : <A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#ref_46_9">Regular_Expression_Field</A>);
|
||||
<b>pragma</b> Inline (Set_Field_Type);
|
||||
|
||||
<b>end</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#ref_41_53">RegExp</A>;
|
||||
|
||||
@ -1,93 +1,105 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-user-choice.adb</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-forms-field_types-user-choice.adb</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-user-choice.adb </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-forms-field_types-user-choice.adb </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.User.Choice --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- B O D Y --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2008,2011 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.17 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Date: 2011/03/22 10:53:37 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Forms.Field_Types.User.Choice --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- B O D Y --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2008,2011 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.17 @</EM></span>
|
||||
<span class="comment"><EM>-- @Date: 2011/03/22 10:53:37 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<b>with</b> System.Address_To_Access_Conversions;
|
||||
<b>with</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>;
|
||||
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_44_53">User</A>.<FONT COLOR=red><A NAME="ref_45_63" HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_44_58">Choice</A></FONT> <b>is</b>
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_44_53">User</A>.<span class="symbol"><A NAME="ref_45_63" HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_44_58">Choice</A></span> <b>is</b>
|
||||
|
||||
<b>package</b> Argument_Conversions <b>is</b>
|
||||
<b>new</b> System.Address_To_Access_Conversions (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_211_9">Argument</A>);
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_50_13" HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_80_13">Generic_Next</A></FONT> (<FONT COLOR=red><A NAME="ref_50_27" HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_80_27">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_51_27" HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_81_27">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1926_9">Curses_Bool</A>
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_50_13" HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_80_13">Generic_Next</A></span> (<span class="symbol"><A NAME="ref_50_27" HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_80_27">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_51_27" HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_81_27">Usr</A></span> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1925_9">Curses_Bool</A>
|
||||
<b>is</b>
|
||||
<FONT COLOR=red><A NAME="ref_53_7">Result</A></FONT> : Boolean;
|
||||
<FONT COLOR=red><A NAME="ref_54_7">Udf</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_57_9">User_Defined_Field_Type_With_Choice_Access</A> :=
|
||||
<span class="symbol"><A NAME="ref_53_7">Result</A></span> : Boolean;
|
||||
<span class="symbol"><A NAME="ref_54_7">Udf</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_57_9">User_Defined_Field_Type_With_Choice_Access</A> :=
|
||||
<A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_57_9">User_Defined_Field_Type_With_Choice_Access</A>
|
||||
(<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A> (Argument_Conversions.To_Pointer (<A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_81_27">Usr</A>)).<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_212_7">Typ</A>);
|
||||
<b>begin</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_53_7">Result</A> := <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_60_13">Next</A> (<A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_80_27">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_54_7">Udf</A>.<b>all</b>);
|
||||
<b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1926_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_53_7">Result</A>));
|
||||
<b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1925_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_53_7">Result</A>));
|
||||
<b>end</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_80_13">Generic_Next</A>;
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_62_13" HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_87_13">Generic_Prev</A></FONT> (<FONT COLOR=red><A NAME="ref_62_27" HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_87_27">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_63_27" HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_88_27">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1926_9">Curses_Bool</A>
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_62_13" HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_87_13">Generic_Prev</A></span> (<span class="symbol"><A NAME="ref_62_27" HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_87_27">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_63_27" HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_88_27">Usr</A></span> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1925_9">Curses_Bool</A>
|
||||
<b>is</b>
|
||||
<FONT COLOR=red><A NAME="ref_65_7">Result</A></FONT> : Boolean;
|
||||
<FONT COLOR=red><A NAME="ref_66_7">Udf</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_57_9">User_Defined_Field_Type_With_Choice_Access</A> :=
|
||||
<span class="symbol"><A NAME="ref_65_7">Result</A></span> : Boolean;
|
||||
<span class="symbol"><A NAME="ref_66_7">Udf</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_57_9">User_Defined_Field_Type_With_Choice_Access</A> :=
|
||||
<A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_57_9">User_Defined_Field_Type_With_Choice_Access</A>
|
||||
(<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A> (Argument_Conversions.To_Pointer (<A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_88_27">Usr</A>)).<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_212_7">Typ</A>);
|
||||
<b>begin</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_65_7">Result</A> := <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_67_13">Previous</A> (<A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_87_27">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_66_7">Udf</A>.<b>all</b>);
|
||||
<b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1926_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_65_7">Result</A>));
|
||||
<b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1925_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_65_7">Result</A>));
|
||||
<b>end</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_87_13">Generic_Prev</A>;
|
||||
|
||||
<FONT COLOR=green><EM>-- -----------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>--</EM></FONT>
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_76_13" HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_78_13">C_Generic_Choice</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>
|
||||
<span class="comment"><EM>-- -----------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>--</EM></span>
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_76_13" HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_78_13">C_Generic_Choice</A></span> <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>
|
||||
<b>is</b>
|
||||
<FONT COLOR=red><A NAME="ref_78_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;
|
||||
<FONT COLOR=red><A NAME="ref_79_7">T</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>;
|
||||
<span class="symbol"><A NAME="ref_78_7">Res</A></span> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;
|
||||
<span class="symbol"><A NAME="ref_79_7">T</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>;
|
||||
<b>begin</b>
|
||||
<b>if</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_142_4">M_Generic_Choice</A> = <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_134_4">Null_Field_Type</A> <b>then</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_79_7">T</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_222_13">New_Fieldtype</A> (<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_81_13">Generic_Field_Check</A>'<b>Access</b>,
|
||||
<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_88_13">Generic_Char_Check</A>'<b>Access</b>);
|
||||
<b>if</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_79_7">T</A> = <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_134_4">Null_Field_Type</A> <b>then</b>
|
||||
<b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_290_4">Form_Exception</A>;
|
||||
<b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_288_4">Form_Exception</A>;
|
||||
<b>else</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_78_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_227_13">Set_Fieldtype_Arg</A> (<A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_79_7">T</A>,
|
||||
<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_162_13">Make_Arg</A>'<b>Access</b>,
|
||||
|
||||
@ -1,100 +1,112 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-user-choice.ads</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-forms-field_types-user-choice.ads</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-user-choice.ads </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-forms-field_types-user-choice.ads </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.User.Choice --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- S P E C --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2008,2011 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.14 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Date: 2011/03/19 12:27:47 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<b>with</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C;
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Forms.Field_Types.User.Choice --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- S P E C --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2008,2011 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.14 @</EM></span>
|
||||
<span class="comment"><EM>-- @Date: 2011/03/19 12:27:47 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<b>with</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C;
|
||||
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_44_53">User</A>.<FONT COLOR=red><A NAME="ref_44_58" HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_45_63">Choice</A></FONT> <b>is</b>
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_44_53">User</A>.<span class="symbol"><A NAME="ref_44_58" HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_45_63">Choice</A></span> <b>is</b>
|
||||
<b>pragma</b> Preelaborate
|
||||
(<A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_44_53">User</A>.<A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_44_58">Choice</A>);
|
||||
|
||||
<b>subtype</b> <FONT COLOR=red><A NAME="ref_48_12">C_Int</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.int;
|
||||
<b>subtype</b> <span class="symbol"><A NAME="ref_48_12">C_Int</A></span> <b>is</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C.int;
|
||||
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_50_9">User_Defined_Field_Type_With_Choice</A></FONT> <b>is</b> <b>abstract</b> <b>new</b>
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_50_9">User_Defined_Field_Type_With_Choice</A></span> <b>is</b> <b>abstract</b> <b>new</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_48_9">User_Defined_Field_Type</A> <b>with</b> <b>null</b> <b>record</b>;
|
||||
<FONT COLOR=green><EM>-- This is the root of the mechanism we use to create field types in</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Ada95 that allow the prev/next mechanism. You should your own type</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- derive from this one and implement the Field_Check, Character_Check</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Next and Previous functions for your own type.</EM></FONT>
|
||||
<span class="comment"><EM>-- This is the root of the mechanism we use to create field types in</EM></span>
|
||||
<span class="comment"><EM>-- Ada95 that allow the prev/next mechanism. You should your own type</EM></span>
|
||||
<span class="comment"><EM>-- derive from this one and implement the Field_Check, Character_Check</EM></span>
|
||||
<span class="comment"><EM>-- Next and Previous functions for your own type.</EM></span>
|
||||
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_57_9">User_Defined_Field_Type_With_Choice_Access</A></FONT> <b>is</b> <b>access</b> <b>all</b>
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_57_9">User_Defined_Field_Type_With_Choice_Access</A></span> <b>is</b> <b>access</b> <b>all</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_50_9">User_Defined_Field_Type_With_Choice</A>'Class;
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_60_13">Next</A></FONT>
|
||||
(<FONT COLOR=red><A NAME="ref_61_7" HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_60_13">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_62_7" HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_60_13">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_50_9">User_Defined_Field_Type_With_Choice</A>) <b>return</b> Boolean
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_60_13">Next</A></span>
|
||||
(<span class="symbol"><A NAME="ref_61_7" HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_60_13">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_62_7" HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_60_13">Typ</A></span> : <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_50_9">User_Defined_Field_Type_With_Choice</A>) <b>return</b> Boolean
|
||||
<b>is</b> <b>abstract</b>;
|
||||
<FONT COLOR=green><EM>-- If True is returned, the function successfully generated a next</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- value into the fields buffer.</EM></FONT>
|
||||
<span class="comment"><EM>-- If True is returned, the function successfully generated a next</EM></span>
|
||||
<span class="comment"><EM>-- value into the fields buffer.</EM></span>
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_67_13">Previous</A></FONT>
|
||||
(<FONT COLOR=red><A NAME="ref_68_7" HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_67_13">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_69_7" HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_67_13">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_50_9">User_Defined_Field_Type_With_Choice</A>) <b>return</b> Boolean
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_67_13">Previous</A></span>
|
||||
(<span class="symbol"><A NAME="ref_68_7" HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_67_13">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_69_7" HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_67_13">Typ</A></span> : <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_50_9">User_Defined_Field_Type_With_Choice</A>) <b>return</b> Boolean
|
||||
<b>is</b> <b>abstract</b>;
|
||||
<FONT COLOR=green><EM>-- If True is returned, the function successfully generated a previous</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- value into the fields buffer.</EM></FONT>
|
||||
<span class="comment"><EM>-- If True is returned, the function successfully generated a previous</EM></span>
|
||||
<span class="comment"><EM>-- value into the fields buffer.</EM></span>
|
||||
|
||||
<FONT COLOR=green><EM>-- +----------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- | Private Part.</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<span class="comment"><EM>-- +----------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- | Private Part.</EM></span>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<b>private</b>
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_78_13" HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_76_13">C_Generic_Choice</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>;
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_78_13" HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_76_13">C_Generic_Choice</A></span> <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>;
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_80_13" HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_50_13">Generic_Next</A></FONT> (<FONT COLOR=red><A NAME="ref_80_27" HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_50_27">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_81_27" HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_51_27">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1926_9">Curses_Bool</A>;
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_80_13" HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_50_13">Generic_Next</A></span> (<span class="symbol"><A NAME="ref_80_27" HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_50_27">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_81_27" HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_51_27">Usr</A></span> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1925_9">Curses_Bool</A>;
|
||||
<b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_80_13">Generic_Next</A>);
|
||||
<FONT COLOR=green><EM>-- This is the generic next Choice_Function for the low-level fieldtype</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- representing all the User_Defined_Field_Type derivatives. It routes</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- the call to the Next implementation for the type.</EM></FONT>
|
||||
<span class="comment"><EM>-- This is the generic next Choice_Function for the low-level fieldtype</EM></span>
|
||||
<span class="comment"><EM>-- representing all the User_Defined_Field_Type derivatives. It routes</EM></span>
|
||||
<span class="comment"><EM>-- the call to the Next implementation for the type.</EM></span>
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_87_13" HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_62_13">Generic_Prev</A></FONT> (<FONT COLOR=red><A NAME="ref_87_27" HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_62_27">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_88_27" HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_63_27">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1926_9">Curses_Bool</A>;
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_87_13" HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_62_13">Generic_Prev</A></span> (<span class="symbol"><A NAME="ref_87_27" HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_62_27">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_88_27" HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#ref_63_27">Usr</A></span> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1925_9">Curses_Bool</A>;
|
||||
<b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_87_13">Generic_Prev</A>);
|
||||
<FONT COLOR=green><EM>-- This is the generic prev Choice_Function for the low-level fieldtype</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- representing all the User_Defined_Field_Type derivatives. It routes</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- the call to the Previous implementation for the type.</EM></FONT>
|
||||
<span class="comment"><EM>-- This is the generic prev Choice_Function for the low-level fieldtype</EM></span>
|
||||
<span class="comment"><EM>-- representing all the User_Defined_Field_Type derivatives. It routes</EM></span>
|
||||
<span class="comment"><EM>-- the call to the Previous implementation for the type.</EM></span>
|
||||
|
||||
<b>end</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_44_53">User</A>.<A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#ref_44_58">Choice</A>;
|
||||
</PRE></BODY></HTML>
|
||||
|
||||
@ -1,72 +1,84 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-user.adb</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-forms-field_types-user.adb</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-user.adb </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-forms-field_types-user.adb </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.User --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- B O D Y --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.21 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Date: 2011/03/23 00:44:58 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Forms.Field_Types.User --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- B O D Y --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.21 @</EM></span>
|
||||
<span class="comment"><EM>-- @Date: 2011/03/23 00:44:58 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<b>with</b> System.Address_To_Access_Conversions;
|
||||
<b>with</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>;
|
||||
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<FONT COLOR=red><A NAME="ref_45_58" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_44_53">User</A></FONT> <b>is</b>
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<span class="symbol"><A NAME="ref_45_58" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_44_53">User</A></span> <b>is</b>
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_47_14" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_70_14">Set_Field_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_47_30" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_70_30">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_48_30" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_71_30">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_48_9">User_Defined_Field_Type</A>)
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_47_14" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_70_14">Set_Field_Type</A></span> (<span class="symbol"><A NAME="ref_47_30" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_70_30">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_48_30" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_71_30">Typ</A></span> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_48_9">User_Defined_Field_Type</A>)
|
||||
<b>is</b>
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_50_16" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_61_16">Allocate_Arg</A></FONT> (<FONT COLOR=red><A NAME="ref_50_30" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_61_30">T</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_48_9">User_Defined_Field_Type</A>'Class)
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_50_16" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_61_16">Allocate_Arg</A></span> (<span class="symbol"><A NAME="ref_50_30" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_61_30">T</A></span> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_48_9">User_Defined_Field_Type</A>'Class)
|
||||
<b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A>;
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_53_16">Set_Fld_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_53_30" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_53_16">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_70_30">Fld</A>;
|
||||
<FONT COLOR=red><A NAME="ref_54_30" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_53_16">Cft</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A> := <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_79_13">C_Generic_Type</A>;
|
||||
<FONT COLOR=red><A NAME="ref_55_30" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_53_16">Arg1</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A>)
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_53_16">Set_Fld_Type</A></span> (<span class="symbol"><A NAME="ref_53_30" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_53_16">F</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_70_30">Fld</A>;
|
||||
<span class="symbol"><A NAME="ref_54_30" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_53_16">Cft</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A> := <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_79_13">C_Generic_Type</A>;
|
||||
<span class="symbol"><A NAME="ref_55_30" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_53_16">Arg1</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A>)
|
||||
<b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_46_12">C_Int</A>;
|
||||
<b>pragma</b> Import (C, Set_Fld_Type, "set_field_type_user");
|
||||
|
||||
<FONT COLOR=red><A NAME="ref_59_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;
|
||||
<span class="symbol"><A NAME="ref_59_7">Res</A></span> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_61_16" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_50_16">Allocate_Arg</A></FONT> (<FONT COLOR=red><A NAME="ref_61_30" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_50_30">T</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_48_9">User_Defined_Field_Type</A>'Class)
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_61_16" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_50_16">Allocate_Arg</A></span> (<span class="symbol"><A NAME="ref_61_30" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_50_30">T</A></span> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_48_9">User_Defined_Field_Type</A>'Class)
|
||||
<b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A>
|
||||
<b>is</b>
|
||||
<FONT COLOR=red><A NAME="ref_64_10">Ptr</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_63_9">Field_Type_Access</A>
|
||||
<span class="symbol"><A NAME="ref_64_10">Ptr</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_63_9">Field_Type_Access</A>
|
||||
:= <b>new</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_48_9">User_Defined_Field_Type</A>'Class'(<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_50_30">T</A>);
|
||||
<b>begin</b>
|
||||
<b>return</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_211_9">Argument</A>'(<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_213_7">Usr</A> => System.Null_Address,
|
||||
@ -84,42 +96,42 @@
|
||||
<b>package</b> Argument_Conversions <b>is</b>
|
||||
<b>new</b> System.Address_To_Access_Conversions (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_211_9">Argument</A>);
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_82_13" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_81_13">Generic_Field_Check</A></FONT> (<FONT COLOR=red><A NAME="ref_82_34" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_81_34">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_83_34" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_82_34">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1926_9">Curses_Bool</A>
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_82_13" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_81_13">Generic_Field_Check</A></span> (<span class="symbol"><A NAME="ref_82_34" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_81_34">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_83_34" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_82_34">Usr</A></span> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1925_9">Curses_Bool</A>
|
||||
<b>is</b>
|
||||
<FONT COLOR=red><A NAME="ref_85_7">Result</A></FONT> : Boolean;
|
||||
<FONT COLOR=red><A NAME="ref_86_7">Udf</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_53_9">User_Defined_Field_Type_Access</A> :=
|
||||
<span class="symbol"><A NAME="ref_85_7">Result</A></span> : Boolean;
|
||||
<span class="symbol"><A NAME="ref_86_7">Udf</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_53_9">User_Defined_Field_Type_Access</A> :=
|
||||
<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_53_9">User_Defined_Field_Type_Access</A>
|
||||
(<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A> (Argument_Conversions.To_Pointer (<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_82_34">Usr</A>)).<b>all</b>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_212_7">Typ</A>);
|
||||
<b>begin</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_85_7">Result</A> := <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_56_13">Field_Check</A> (<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_81_34">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_86_7">Udf</A>.<b>all</b>);
|
||||
<b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1926_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_85_7">Result</A>));
|
||||
<b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1925_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_85_7">Result</A>));
|
||||
<b>end</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_81_13">Generic_Field_Check</A>;
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_94_13" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_88_13">Generic_Char_Check</A></FONT> (<FONT COLOR=red><A NAME="ref_94_33" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_88_33">Ch</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_46_12">C_Int</A>;
|
||||
<FONT COLOR=red><A NAME="ref_95_33" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_89_33">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1926_9">Curses_Bool</A>
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_94_13" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_88_13">Generic_Char_Check</A></span> (<span class="symbol"><A NAME="ref_94_33" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_88_33">Ch</A></span> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_46_12">C_Int</A>;
|
||||
<span class="symbol"><A NAME="ref_95_33" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_89_33">Usr</A></span> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1925_9">Curses_Bool</A>
|
||||
<b>is</b>
|
||||
<FONT COLOR=red><A NAME="ref_97_7">Result</A></FONT> : Boolean;
|
||||
<FONT COLOR=red><A NAME="ref_98_7">Udf</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_53_9">User_Defined_Field_Type_Access</A> :=
|
||||
<span class="symbol"><A NAME="ref_97_7">Result</A></span> : Boolean;
|
||||
<span class="symbol"><A NAME="ref_98_7">Udf</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_53_9">User_Defined_Field_Type_Access</A> :=
|
||||
<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_53_9">User_Defined_Field_Type_Access</A>
|
||||
(<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A> (Argument_Conversions.To_Pointer (<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_89_33">Usr</A>)).<b>all</b>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_212_7">Typ</A>);
|
||||
<b>begin</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_97_7">Result</A> := <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_63_13">Character_Check</A> (Character'Val (<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_88_33">Ch</A>), <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_98_7">Udf</A>.<b>all</b>);
|
||||
<b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1926_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_97_7">Result</A>));
|
||||
<b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1925_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_97_7">Result</A>));
|
||||
<b>end</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_88_13">Generic_Char_Check</A>;
|
||||
|
||||
<FONT COLOR=green><EM>-- -----------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>--</EM></FONT>
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_108_13" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_79_13">C_Generic_Type</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>
|
||||
<span class="comment"><EM>-- -----------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>--</EM></span>
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_108_13" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_79_13">C_Generic_Type</A></span> <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>
|
||||
<b>is</b>
|
||||
<FONT COLOR=red><A NAME="ref_110_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;
|
||||
<FONT COLOR=red><A NAME="ref_111_7">T</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>;
|
||||
<span class="symbol"><A NAME="ref_110_7">Res</A></span> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;
|
||||
<span class="symbol"><A NAME="ref_111_7">T</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>;
|
||||
<b>begin</b>
|
||||
<b>if</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_141_4">M_Generic_Type</A> = <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_134_4">Null_Field_Type</A> <b>then</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_111_7">T</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_222_13">New_Fieldtype</A> (<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_81_13">Generic_Field_Check</A>'<b>Access</b>,
|
||||
<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_88_13">Generic_Char_Check</A>'<b>Access</b>);
|
||||
<b>if</b> <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_111_7">T</A> = <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_134_4">Null_Field_Type</A> <b>then</b>
|
||||
<b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_290_4">Form_Exception</A>;
|
||||
<b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_288_4">Form_Exception</A>;
|
||||
<b>else</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_110_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_227_13">Set_Fieldtype_Arg</A> (<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_111_7">T</A>,
|
||||
<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_162_13">Make_Arg</A>'<b>Access</b>,
|
||||
|
||||
@ -1,101 +1,113 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-user.ads</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-forms-field_types-user.ads</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-user.ads </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-forms-field_types-user.ads </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.User --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- S P E C --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.15 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Date: 2011/03/19 12:27:21 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<b>with</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C;
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Forms.Field_Types.User --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- S P E C --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.15 @</EM></span>
|
||||
<span class="comment"><EM>-- @Date: 2011/03/19 12:27:21 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<b>with</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C;
|
||||
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<FONT COLOR=red><A NAME="ref_44_53" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_45_58">User</A></FONT> <b>is</b>
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<span class="symbol"><A NAME="ref_44_53" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_45_58">User</A></span> <b>is</b>
|
||||
<b>pragma</b> Preelaborate (<A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_44_53">User</A>);
|
||||
<b>subtype</b> <FONT COLOR=red><A NAME="ref_46_12">C_Int</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.int;
|
||||
<b>subtype</b> <span class="symbol"><A NAME="ref_46_12">C_Int</A></span> <b>is</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C.int;
|
||||
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_48_9">User_Defined_Field_Type</A></FONT> <b>is</b> <b>abstract</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A> <b>with</b> <b>null</b> <b>record</b>;
|
||||
<FONT COLOR=green><EM>-- This is the root of the mechanism we use to create field types in</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Ada95. You should your own type derive from this one and implement</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- the Field_Check and Character_Check functions for your own type.</EM></FONT>
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_48_9">User_Defined_Field_Type</A></span> <b>is</b> <b>abstract</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A> <b>with</b> <b>null</b> <b>record</b>;
|
||||
<span class="comment"><EM>-- This is the root of the mechanism we use to create field types in</EM></span>
|
||||
<span class="comment"><EM>-- Ada95. You should your own type derive from this one and implement</EM></span>
|
||||
<span class="comment"><EM>-- the Field_Check and Character_Check functions for your own type.</EM></span>
|
||||
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_53_9">User_Defined_Field_Type_Access</A></FONT> <b>is</b> <b>access</b> <b>all</b>
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_53_9">User_Defined_Field_Type_Access</A></span> <b>is</b> <b>access</b> <b>all</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_48_9">User_Defined_Field_Type</A>'Class;
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_56_13">Field_Check</A></FONT>
|
||||
(<FONT COLOR=red><A NAME="ref_57_7" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_56_13">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_58_7" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_56_13">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_48_9">User_Defined_Field_Type</A>) <b>return</b> Boolean
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_56_13">Field_Check</A></span>
|
||||
(<span class="symbol"><A NAME="ref_57_7" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_56_13">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_58_7" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_56_13">Typ</A></span> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_48_9">User_Defined_Field_Type</A>) <b>return</b> Boolean
|
||||
<b>is</b> <b>abstract</b>;
|
||||
<FONT COLOR=green><EM>-- If True is returned, the field is considered valid, otherwise it is</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- invalid.</EM></FONT>
|
||||
<span class="comment"><EM>-- If True is returned, the field is considered valid, otherwise it is</EM></span>
|
||||
<span class="comment"><EM>-- invalid.</EM></span>
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_63_13">Character_Check</A></FONT>
|
||||
(<FONT COLOR=red><A NAME="ref_64_7" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_63_13">Ch</A></FONT> : Character;
|
||||
<FONT COLOR=red><A NAME="ref_65_7" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_63_13">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_48_9">User_Defined_Field_Type</A>) <b>return</b> Boolean
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_63_13">Character_Check</A></span>
|
||||
(<span class="symbol"><A NAME="ref_64_7" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_63_13">Ch</A></span> : Character;
|
||||
<span class="symbol"><A NAME="ref_65_7" HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_63_13">Typ</A></span> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_48_9">User_Defined_Field_Type</A>) <b>return</b> Boolean
|
||||
<b>is</b> <b>abstract</b>;
|
||||
<FONT COLOR=green><EM>-- If True is returned, the character is considered as valid for the</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- field, otherwise as invalid.</EM></FONT>
|
||||
<span class="comment"><EM>-- If True is returned, the character is considered as valid for the</EM></span>
|
||||
<span class="comment"><EM>-- field, otherwise as invalid.</EM></span>
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_70_14" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_47_14">Set_Field_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_70_30" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_47_30">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_71_30" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_48_30">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_48_9">User_Defined_Field_Type</A>);
|
||||
<FONT COLOR=green><EM>-- This should work for all types derived from User_Defined_Field_Type.</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- No need to reimplement it for your derived type.</EM></FONT>
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_70_14" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_47_14">Set_Field_Type</A></span> (<span class="symbol"><A NAME="ref_70_30" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_47_30">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_71_30" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_48_30">Typ</A></span> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_48_9">User_Defined_Field_Type</A>);
|
||||
<span class="comment"><EM>-- This should work for all types derived from User_Defined_Field_Type.</EM></span>
|
||||
<span class="comment"><EM>-- No need to reimplement it for your derived type.</EM></span>
|
||||
|
||||
<FONT COLOR=green><EM>-- +----------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- | Private Part.</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- | Used by the Choice child package.</EM></FONT>
|
||||
<span class="comment"><EM>-- +----------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- | Private Part.</EM></span>
|
||||
<span class="comment"><EM>-- | Used by the Choice child package.</EM></span>
|
||||
<b>private</b>
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_79_13" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_108_13">C_Generic_Type</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>;
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_79_13" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_108_13">C_Generic_Type</A></span> <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>;
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_81_13" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_82_13">Generic_Field_Check</A></FONT> (<FONT COLOR=red><A NAME="ref_81_34" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_82_34">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_82_34" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_83_34">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1926_9">Curses_Bool</A>;
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_81_13" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_82_13">Generic_Field_Check</A></span> (<span class="symbol"><A NAME="ref_81_34" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_82_34">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_82_34" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_83_34">Usr</A></span> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1925_9">Curses_Bool</A>;
|
||||
<b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_81_13">Generic_Field_Check</A>);
|
||||
<FONT COLOR=green><EM>-- This is the generic Field_Check_Function for the low-level fieldtype</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- representing all the User_Defined_Field_Type derivatives. It routes</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- the call to the Field_Check implementation for the type.</EM></FONT>
|
||||
<span class="comment"><EM>-- This is the generic Field_Check_Function for the low-level fieldtype</EM></span>
|
||||
<span class="comment"><EM>-- representing all the User_Defined_Field_Type derivatives. It routes</EM></span>
|
||||
<span class="comment"><EM>-- the call to the Field_Check implementation for the type.</EM></span>
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_88_13" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_94_13">Generic_Char_Check</A></FONT> (<FONT COLOR=red><A NAME="ref_88_33" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_94_33">Ch</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_46_12">C_Int</A>;
|
||||
<FONT COLOR=red><A NAME="ref_89_33" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_95_33">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1926_9">Curses_Bool</A>;
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_88_13" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_94_13">Generic_Char_Check</A></span> (<span class="symbol"><A NAME="ref_88_33" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_94_33">Ch</A></span> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_46_12">C_Int</A>;
|
||||
<span class="symbol"><A NAME="ref_89_33" HREF="terminal_interface-curses-forms-field_types-user__adb.htm#ref_95_33">Usr</A></span> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1925_9">Curses_Bool</A>;
|
||||
<b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_88_13">Generic_Char_Check</A>);
|
||||
<FONT COLOR=green><EM>-- This is the generic Char_Check_Function for the low-level fieldtype</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- representing all the User_Defined_Field_Type derivatives. It routes</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- the call to the Character_Check implementation for the type.</EM></FONT>
|
||||
<span class="comment"><EM>-- This is the generic Char_Check_Function for the low-level fieldtype</EM></span>
|
||||
<span class="comment"><EM>-- representing all the User_Defined_Field_Type derivatives. It routes</EM></span>
|
||||
<span class="comment"><EM>-- the call to the Character_Check implementation for the type.</EM></span>
|
||||
|
||||
<b>end</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#ref_44_53">User</A>;
|
||||
</PRE></BODY></HTML>
|
||||
|
||||
@ -1,81 +1,93 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types.adb</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-forms-field_types.adb</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types.adb </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-forms-field_types.adb </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- B O D Y --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.25 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Date: 2011/03/22 23:22:27 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Forms.Field_Types --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- B O D Y --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.25 @</EM></span>
|
||||
<span class="comment"><EM>-- @Date: 2011/03/22 23:22:27 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<b>with</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>;
|
||||
<b>with</b> Ada.Unchecked_Deallocation;
|
||||
<b>with</b> System.Address_To_Access_Conversions;
|
||||
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- | man page form_fieldtype.3x</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<FONT COLOR=red><A NAME="ref_51_46" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A></FONT> <b>is</b>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<span class="comment"><EM>-- |=====================================================================</EM></span>
|
||||
<span class="comment"><EM>-- | man page form_fieldtype.3x</EM></span>
|
||||
<span class="comment"><EM>-- |=====================================================================</EM></span>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<span class="symbol"><A NAME="ref_51_46" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A></span> <b>is</b>
|
||||
|
||||
<b>use</b> <b>type</b> System.Address;
|
||||
|
||||
<b>package</b> Argument_Conversions <b>is</b>
|
||||
<b>new</b> System.Address_To_Access_Conversions (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_211_9">Argument</A>);
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_58_13">Get_Fieldtype</A></FONT> (<FONT COLOR=red><A NAME="ref_58_28" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_58_13">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>;
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_58_13">Get_Fieldtype</A></span> (<span class="symbol"><A NAME="ref_58_28" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_58_13">F</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>;
|
||||
<b>pragma</b> Import (C, Get_Fieldtype, "field_type");
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_61_13">Get_Arg</A></FONT> (<FONT COLOR=red><A NAME="ref_61_22" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_61_13">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) <b>return</b> System.Address;
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_61_13">Get_Arg</A></span> (<span class="symbol"><A NAME="ref_61_22" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_61_13">F</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) <b>return</b> System.Address;
|
||||
<b>pragma</b> Import (C, Get_Arg, "field_arg");
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- | man page form_field_validation.3x</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_70_13" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_79_13">Get_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_70_23" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_79_23">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_63_9">Field_Type_Access</A>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<span class="comment"><EM>-- |=====================================================================</EM></span>
|
||||
<span class="comment"><EM>-- | man page form_field_validation.3x</EM></span>
|
||||
<span class="comment"><EM>-- |=====================================================================</EM></span>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_70_13" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_79_13">Get_Type</A></span> (<span class="symbol"><A NAME="ref_70_23" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_79_23">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_63_9">Field_Type_Access</A>
|
||||
<b>is</b>
|
||||
<FONT COLOR=red><A NAME="ref_72_7">Low_Level</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A> := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_58_13">Get_Fieldtype</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_79_23">Fld</A>);
|
||||
<FONT COLOR=red><A NAME="ref_73_7">Arg</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A>;
|
||||
<span class="symbol"><A NAME="ref_72_7">Low_Level</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A> := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_58_13">Get_Fieldtype</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_79_23">Fld</A>);
|
||||
<span class="symbol"><A NAME="ref_73_7">Arg</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A>;
|
||||
<b>begin</b>
|
||||
<b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_72_7">Low_Level</A> = <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_134_4">Null_Field_Type</A> <b>then</b>
|
||||
<b>return</b> <b>null</b>;
|
||||
@ -87,32 +99,32 @@
|
||||
<A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_73_7">Arg</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A>
|
||||
(Argument_Conversions.To_Pointer (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_61_13">Get_Arg</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_79_23">Fld</A>)));
|
||||
<b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_73_7">Arg</A> = <b>null</b> <b>then</b>
|
||||
<b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_290_4">Form_Exception</A>;
|
||||
<b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_288_4">Form_Exception</A>;
|
||||
<b>else</b>
|
||||
<b>return</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_73_7">Arg</A>.<b>all</b>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_212_7">Typ</A>;
|
||||
<b>end</b> <b>if</b>;
|
||||
<b>else</b>
|
||||
<b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_290_4">Form_Exception</A>;
|
||||
<b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_288_4">Form_Exception</A>;
|
||||
<b>end</b> <b>if</b>;
|
||||
<b>end</b> <b>if</b>;
|
||||
<b>end</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_79_13">Get_Type</A>;
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_95_13" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_167_13">Copy_Arg</A></FONT> (<FONT COLOR=red><A NAME="ref_95_23" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_167_23">Usr</A></FONT> : System.Address) <b>return</b> System.Address
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_95_13" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_167_13">Copy_Arg</A></span> (<span class="symbol"><A NAME="ref_95_23" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_167_23">Usr</A></span> : System.Address) <b>return</b> System.Address
|
||||
<b>is</b>
|
||||
<b>begin</b>
|
||||
<b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_167_23">Usr</A>;
|
||||
<b>end</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_167_13">Copy_Arg</A>;
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_101_14" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_172_14">Free_Arg</A></FONT> (<FONT COLOR=red><A NAME="ref_101_24" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_172_24">Usr</A></FONT> : System.Address)
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_101_14" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_172_14">Free_Arg</A></span> (<span class="symbol"><A NAME="ref_101_24" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_172_24">Usr</A></span> : System.Address)
|
||||
<b>is</b>
|
||||
<b>procedure</b> Free_Type <b>is</b> <b>new</b> Ada.Unchecked_Deallocation
|
||||
(<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A>'Class, <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_63_9">Field_Type_Access</A>);
|
||||
<b>procedure</b> Freeargs <b>is</b> <b>new</b> Ada.Unchecked_Deallocation
|
||||
(<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_211_9">Argument</A>, <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A>);
|
||||
|
||||
<FONT COLOR=red><A NAME="ref_108_7">To_Be_Free</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A>
|
||||
<span class="symbol"><A NAME="ref_108_7">To_Be_Free</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A>
|
||||
:= <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A> (Argument_Conversions.To_Pointer (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_172_24">Usr</A>));
|
||||
<FONT COLOR=red><A NAME="ref_110_7">Low_Level</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>;
|
||||
<span class="symbol"><A NAME="ref_110_7">Low_Level</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>;
|
||||
<b>begin</b>
|
||||
<b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_108_7">To_Be_Free</A> /= <b>null</b> <b>then</b>
|
||||
<b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_108_7">To_Be_Free</A>.<b>all</b>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_213_7">Usr</A> /= System.Null_Address <b>then</b>
|
||||
@ -128,23 +140,23 @@
|
||||
<b>end</b> <b>if</b>;
|
||||
<b>end</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_172_14">Free_Arg</A>;
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_126_14" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_151_14">Wrap_Builtin</A></FONT> (<FONT COLOR=red><A NAME="ref_126_28" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_151_28">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_127_28" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_152_28">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A>'Class;
|
||||
<FONT COLOR=red><A NAME="ref_128_28" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_153_28">Cft</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_148_13">C_Builtin_Router</A>)
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_126_14" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_151_14">Wrap_Builtin</A></span> (<span class="symbol"><A NAME="ref_126_28" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_151_28">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_127_28" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_152_28">Typ</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A>'Class;
|
||||
<span class="symbol"><A NAME="ref_128_28" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_153_28">Cft</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_148_13">C_Builtin_Router</A>)
|
||||
<b>is</b>
|
||||
<FONT COLOR=red><A NAME="ref_130_7">Usr_Arg</A></FONT> : <b>constant</b> System.Address := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_61_13">Get_Arg</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_151_28">Fld</A>);
|
||||
<FONT COLOR=red><A NAME="ref_131_7">Low_Level</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A> := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_58_13">Get_Fieldtype</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_151_28">Fld</A>);
|
||||
<FONT COLOR=red><A NAME="ref_132_7">Arg</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A>;
|
||||
<FONT COLOR=red><A NAME="ref_133_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_134_16">Set_Fld_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_134_30" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_134_16">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_151_28">Fld</A>;
|
||||
<FONT COLOR=red><A NAME="ref_135_30" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_134_16">Cf</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_153_28">Cft</A>;
|
||||
<FONT COLOR=red><A NAME="ref_136_30" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_134_16">Arg1</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<span class="symbol"><A NAME="ref_130_7">Usr_Arg</A></span> : <b>constant</b> System.Address := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_61_13">Get_Arg</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_151_28">Fld</A>);
|
||||
<span class="symbol"><A NAME="ref_131_7">Low_Level</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A> := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_58_13">Get_Fieldtype</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_151_28">Fld</A>);
|
||||
<span class="symbol"><A NAME="ref_132_7">Arg</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A>;
|
||||
<span class="symbol"><A NAME="ref_133_7">Res</A></span> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_134_16">Set_Fld_Type</A></span> (<span class="symbol"><A NAME="ref_134_30" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_134_16">F</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_151_28">Fld</A>;
|
||||
<span class="symbol"><A NAME="ref_135_30" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_134_16">Cf</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_153_28">Cft</A>;
|
||||
<span class="symbol"><A NAME="ref_136_30" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_134_16">Arg1</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<b>pragma</b> Import (C, Set_Fld_Type, "set_field_type_user");
|
||||
|
||||
<b>begin</b>
|
||||
<b>pragma</b> Assert (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_131_7">Low_Level</A> /= <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_134_4">Null_Field_Type</A>);
|
||||
<b>if</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_153_28">Cft</A> /= <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_148_13">C_Builtin_Router</A> <b>and</b> <b>then</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_153_28">Cft</A> /= <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_149_13">C_Choice_Router</A> <b>then</b>
|
||||
<b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_290_4">Form_Exception</A>;
|
||||
<b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_288_4">Form_Exception</A>;
|
||||
<b>else</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_132_7">Arg</A> := <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_211_9">Argument</A>'(<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_213_7">Usr</A> => System.Null_Address,
|
||||
<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_212_7">Typ</A> => <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A>'Class'(<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_152_28">Typ</A>),
|
||||
@ -164,10 +176,10 @@
|
||||
<b>end</b> <b>if</b>;
|
||||
<b>end</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_151_14">Wrap_Builtin</A>;
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_162_13" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_177_13">Field_Check_Router</A></FONT> (<FONT COLOR=red><A NAME="ref_162_33" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_177_33">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_163_33" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_178_33">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1926_9">Curses_Bool</A>
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_162_13" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_177_13">Field_Check_Router</A></span> (<span class="symbol"><A NAME="ref_162_33" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_177_33">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_163_33" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_178_33">Usr</A></span> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1925_9">Curses_Bool</A>
|
||||
<b>is</b>
|
||||
<FONT COLOR=red><A NAME="ref_165_7">Arg</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A>
|
||||
<span class="symbol"><A NAME="ref_165_7">Arg</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A>
|
||||
:= <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A> (Argument_Conversions.To_Pointer (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_178_33">Usr</A>));
|
||||
<b>begin</b>
|
||||
<b>pragma</b> Assert (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_165_7">Arg</A> /= <b>null</b> <b>and</b> <b>then</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_165_7">Arg</A>.<b>all</b>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_214_7">Cft</A> /= <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_134_4">Null_Field_Type</A>
|
||||
@ -179,10 +191,10 @@
|
||||
<b>end</b> <b>if</b>;
|
||||
<b>end</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_177_13">Field_Check_Router</A>;
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_177_13" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_185_13">Char_Check_Router</A></FONT> (<FONT COLOR=red><A NAME="ref_177_32" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_185_32">Ch</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<FONT COLOR=red><A NAME="ref_178_32" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_186_32">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1926_9">Curses_Bool</A>
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_177_13" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_185_13">Char_Check_Router</A></span> (<span class="symbol"><A NAME="ref_177_32" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_185_32">Ch</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<span class="symbol"><A NAME="ref_178_32" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_186_32">Usr</A></span> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1925_9">Curses_Bool</A>
|
||||
<b>is</b>
|
||||
<FONT COLOR=red><A NAME="ref_180_7">Arg</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A>
|
||||
<span class="symbol"><A NAME="ref_180_7">Arg</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A>
|
||||
:= <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A> (Argument_Conversions.To_Pointer (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_186_32">Usr</A>));
|
||||
<b>begin</b>
|
||||
<b>pragma</b> Assert (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_180_7">Arg</A> /= <b>null</b> <b>and</b> <b>then</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_180_7">Arg</A>.<b>all</b>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_214_7">Cft</A> /= <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_134_4">Null_Field_Type</A>
|
||||
@ -194,10 +206,10 @@
|
||||
<b>end</b> <b>if</b>;
|
||||
<b>end</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_185_13">Char_Check_Router</A>;
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_192_13" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_193_13">Next_Router</A></FONT> (<FONT COLOR=red><A NAME="ref_192_26" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_193_26">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_193_26" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_194_26">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1926_9">Curses_Bool</A>
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_192_13" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_193_13">Next_Router</A></span> (<span class="symbol"><A NAME="ref_192_26" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_193_26">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_193_26" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_194_26">Usr</A></span> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1925_9">Curses_Bool</A>
|
||||
<b>is</b>
|
||||
<FONT COLOR=red><A NAME="ref_195_7">Arg</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A>
|
||||
<span class="symbol"><A NAME="ref_195_7">Arg</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A>
|
||||
:= <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A> (Argument_Conversions.To_Pointer (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_194_26">Usr</A>));
|
||||
<b>begin</b>
|
||||
<b>pragma</b> Assert (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_195_7">Arg</A> /= <b>null</b> <b>and</b> <b>then</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_195_7">Arg</A>.<b>all</b>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_214_7">Cft</A> /= <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_134_4">Null_Field_Type</A>
|
||||
@ -209,10 +221,10 @@
|
||||
<b>end</b> <b>if</b>;
|
||||
<b>end</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_193_13">Next_Router</A>;
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_207_13" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_201_13">Prev_Router</A></FONT> (<FONT COLOR=red><A NAME="ref_207_26" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_201_26">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_208_26" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_202_26">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1926_9">Curses_Bool</A>
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_207_13" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_201_13">Prev_Router</A></span> (<span class="symbol"><A NAME="ref_207_26" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_201_26">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_208_26" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_202_26">Usr</A></span> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1925_9">Curses_Bool</A>
|
||||
<b>is</b>
|
||||
<FONT COLOR=red><A NAME="ref_210_7">Arg</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A> :=
|
||||
<span class="symbol"><A NAME="ref_210_7">Arg</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A> :=
|
||||
<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_216_9">Argument_Access</A> (Argument_Conversions.To_Pointer (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_202_26">Usr</A>));
|
||||
<b>begin</b>
|
||||
<b>pragma</b> Assert (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_210_7">Arg</A> /= <b>null</b> <b>and</b> <b>then</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_210_7">Arg</A>.<b>all</b>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_214_7">Cft</A> /= <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_134_4">Null_Field_Type</A>
|
||||
@ -224,18 +236,18 @@
|
||||
<b>end</b> <b>if</b>;
|
||||
<b>end</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_201_13">Prev_Router</A>;
|
||||
|
||||
<FONT COLOR=green><EM>-- -----------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>--</EM></FONT>
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_224_13" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_148_13">C_Builtin_Router</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>
|
||||
<span class="comment"><EM>-- -----------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>--</EM></span>
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_224_13" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_148_13">C_Builtin_Router</A></span> <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>
|
||||
<b>is</b>
|
||||
<FONT COLOR=red><A NAME="ref_226_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;
|
||||
<FONT COLOR=red><A NAME="ref_227_7">T</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>;
|
||||
<span class="symbol"><A NAME="ref_226_7">Res</A></span> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;
|
||||
<span class="symbol"><A NAME="ref_227_7">T</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>;
|
||||
<b>begin</b>
|
||||
<b>if</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_143_4">M_Builtin_Router</A> = <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_134_4">Null_Field_Type</A> <b>then</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_227_7">T</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_222_13">New_Fieldtype</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_177_13">Field_Check_Router</A>'<b>Access</b>,
|
||||
<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_185_13">Char_Check_Router</A>'<b>Access</b>);
|
||||
<b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_227_7">T</A> = <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_134_4">Null_Field_Type</A> <b>then</b>
|
||||
<b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_290_4">Form_Exception</A>;
|
||||
<b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_288_4">Form_Exception</A>;
|
||||
<b>else</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_226_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_227_13">Set_Fieldtype_Arg</A> (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_227_7">T</A>,
|
||||
<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_162_13">Make_Arg</A>'<b>Access</b>,
|
||||
@ -251,18 +263,18 @@
|
||||
<b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_143_4">M_Builtin_Router</A>;
|
||||
<b>end</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_148_13">C_Builtin_Router</A>;
|
||||
|
||||
<FONT COLOR=green><EM>-- -----------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>--</EM></FONT>
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_251_13" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_149_13">C_Choice_Router</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>
|
||||
<span class="comment"><EM>-- -----------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>--</EM></span>
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_251_13" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_149_13">C_Choice_Router</A></span> <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>
|
||||
<b>is</b>
|
||||
<FONT COLOR=red><A NAME="ref_253_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;
|
||||
<FONT COLOR=red><A NAME="ref_254_7">T</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>;
|
||||
<span class="symbol"><A NAME="ref_253_7">Res</A></span> : <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A>;
|
||||
<span class="symbol"><A NAME="ref_254_7">T</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>;
|
||||
<b>begin</b>
|
||||
<b>if</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_144_4">M_Choice_Router</A> = <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_134_4">Null_Field_Type</A> <b>then</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_254_7">T</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_222_13">New_Fieldtype</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_177_13">Field_Check_Router</A>'<b>Access</b>,
|
||||
<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_185_13">Char_Check_Router</A>'<b>Access</b>);
|
||||
<b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_254_7">T</A> = <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_134_4">Null_Field_Type</A> <b>then</b>
|
||||
<b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_290_4">Form_Exception</A>;
|
||||
<b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_288_4">Form_Exception</A>;
|
||||
<b>else</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_253_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_227_13">Set_Fieldtype_Arg</A> (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_254_7">T</A>,
|
||||
<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_162_13">Make_Arg</A>'<b>Access</b>,
|
||||
|
||||
@ -1,243 +1,255 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types.ads</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-forms-field_types.ads</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types.ads </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-forms-field_types.ads </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- S P E C --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.16 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<b>with</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C;
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Forms.Field_Types --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- S P E C --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.17 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<b>with</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C;
|
||||
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<FONT COLOR=red><A NAME="ref_43_41" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_51_46">Field_Types</A></FONT> <b>is</b>
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<span class="symbol"><A NAME="ref_43_41" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_51_46">Field_Types</A></span> <b>is</b>
|
||||
<b>pragma</b> Preelaborate (<A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_43_41">Field_Types</A>);
|
||||
<b>use</b> <b>type</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.int;
|
||||
<b>subtype</b> <FONT COLOR=red><A NAME="ref_46_12">C_Int</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.int;
|
||||
<b>use</b> <b>type</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C.int;
|
||||
<b>subtype</b> <span class="symbol"><A NAME="ref_46_12">C_Int</A></span> <b>is</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C.int;
|
||||
|
||||
<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_fieldtype.3x.html">form_fieldtype.3x</A></EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
|
||||
<span class="comment"><EM>-- |=====================================================================</EM></span>
|
||||
<span class="comment"><EM>-- | Man page <A HREF="../man/form_fieldtype.3x.html">form_fieldtype.3x</A></EM></span>
|
||||
<span class="comment"><EM>-- |=====================================================================</EM></span>
|
||||
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_52_9">Field_Type</A></FONT> <b>is</b> <b>abstract</b> <b>tagged</b> <b>null</b> <b>record</b>;
|
||||
<FONT COLOR=green><EM>-- Abstract base type for all field types. A concrete field type</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- is an extension that adds some data elements describing formats or</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- boundary values for the type and validation routines.</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- For the builtin low-level fieldtypes, the validation routines are</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- already defined by the low-level C library.</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The builtin types like Alpha or AlphaNumeric etc. are defined in</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- child packages of this package. You may use one of them as example</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- how to create you own child packages for low-level field types that</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- you may have already written in C.</EM></FONT>
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_52_9">Field_Type</A></span> <b>is</b> <b>abstract</b> <b>tagged</b> <b>null</b> <b>record</b>;
|
||||
<span class="comment"><EM>-- Abstract base type for all field types. A concrete field type</EM></span>
|
||||
<span class="comment"><EM>-- is an extension that adds some data elements describing formats or</EM></span>
|
||||
<span class="comment"><EM>-- boundary values for the type and validation routines.</EM></span>
|
||||
<span class="comment"><EM>-- For the builtin low-level fieldtypes, the validation routines are</EM></span>
|
||||
<span class="comment"><EM>-- already defined by the low-level C library.</EM></span>
|
||||
<span class="comment"><EM>-- The builtin types like Alpha or AlphaNumeric etc. are defined in</EM></span>
|
||||
<span class="comment"><EM>-- child packages of this package. You may use one of them as example</EM></span>
|
||||
<span class="comment"><EM>-- how to create you own child packages for low-level field types that</EM></span>
|
||||
<span class="comment"><EM>-- you may have already written in C.</EM></span>
|
||||
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_63_9">Field_Type_Access</A></FONT> <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A>'Class;
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_63_9">Field_Type_Access</A></span> <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A>'Class;
|
||||
|
||||
<FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT>
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_66_14">Set_Field_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_66_30" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_66_14">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_67_30" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_66_14">Fld_Type</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A>) <b>is</b> <b>abstract</b>;
|
||||
<FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_fieldtype.3x.html">set_field_type()</A></EM></FONT>
|
||||
<FONT COLOR=green><EM>-- But: we hide the vararg mechanism of the C interface. You always</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- have to pass a single Field_Type parameter.</EM></FONT>
|
||||
<span class="comment"><EM>-- #1A NAME="AFU_1"#2|</EM></span>
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_66_14">Set_Field_Type</A></span> (<span class="symbol"><A NAME="ref_66_30" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_66_14">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_67_30" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_66_14">Fld_Type</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A>) <b>is</b> <b>abstract</b>;
|
||||
<span class="comment"><EM>-- AKA: <A HREF="../man/form_fieldtype.3x.html">set_field_type()</A></EM></span>
|
||||
<span class="comment"><EM>-- But: we hide the vararg mechanism of the C interface. You always</EM></span>
|
||||
<span class="comment"><EM>-- have to pass a single Field_Type parameter.</EM></span>
|
||||
|
||||
<FONT COLOR=green><EM>-- ---------------------------------------------------------------------</EM></FONT>
|
||||
<span class="comment"><EM>-- ---------------------------------------------------------------------</EM></span>
|
||||
|
||||
<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_validation.3x.html">form_field_validation.3x</A></EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
|
||||
<span class="comment"><EM>-- |=====================================================================</EM></span>
|
||||
<span class="comment"><EM>-- | Man page <A HREF="../man/form_field_validation.3x.html">form_field_validation.3x</A></EM></span>
|
||||
<span class="comment"><EM>-- |=====================================================================</EM></span>
|
||||
|
||||
<FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT>
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_79_13" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_70_13">Get_Type</A></FONT> (<FONT COLOR=red><A NAME="ref_79_23" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_70_23">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_63_9">Field_Type_Access</A>;
|
||||
<FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_validation.3x.html">field_type()</A></EM></FONT>
|
||||
<FONT COLOR=green><EM>-- AKA: field_arg()</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- In Ada95 we can combine these. If you try to retrieve the field type</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- that is not defined as extension of the abstract tagged type above,</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- you will raise a Form_Exception.</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- This is not inlined</EM></FONT>
|
||||
<span class="comment"><EM>-- #1A NAME="AFU_2"#2|</EM></span>
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_79_13" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_70_13">Get_Type</A></span> (<span class="symbol"><A NAME="ref_79_23" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_70_23">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_63_9">Field_Type_Access</A>;
|
||||
<span class="comment"><EM>-- AKA: <A HREF="../man/form_field_validation.3x.html">field_type()</A></EM></span>
|
||||
<span class="comment"><EM>-- AKA: field_arg()</EM></span>
|
||||
<span class="comment"><EM>-- In Ada95 we can combine these. If you try to retrieve the field type</EM></span>
|
||||
<span class="comment"><EM>-- that is not defined as extension of the abstract tagged type above,</EM></span>
|
||||
<span class="comment"><EM>-- you will raise a Form_Exception.</EM></span>
|
||||
<span class="comment"><EM>-- This is not inlined</EM></span>
|
||||
|
||||
<FONT COLOR=green><EM>-- +----------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- | Private Part.</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- | Most of this is used by the implementations of the child packages.</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<span class="comment"><EM>-- +----------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- | Private Part.</EM></span>
|
||||
<span class="comment"><EM>-- | Most of this is used by the implementations of the child packages.</EM></span>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<b>private</b>
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_92_9">Makearg_Function</A></FONT> <b>is</b> <b>access</b>
|
||||
<b>function</b> (<FONT COLOR=red><A NAME="ref_93_16">Args</A></FONT> : System.Address) <b>return</b> System.Address;
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_92_9">Makearg_Function</A></span> <b>is</b> <b>access</b>
|
||||
<b>function</b> (<span class="symbol"><A NAME="ref_93_16">Args</A></span> : System.Address) <b>return</b> System.Address;
|
||||
<b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_92_9">Makearg_Function</A>);
|
||||
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_96_9">Copyarg_Function</A></FONT> <b>is</b> <b>access</b>
|
||||
<b>function</b> (<FONT COLOR=red><A NAME="ref_97_16">Usr</A></FONT> : System.Address) <b>return</b> System.Address;
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_96_9">Copyarg_Function</A></span> <b>is</b> <b>access</b>
|
||||
<b>function</b> (<span class="symbol"><A NAME="ref_97_16">Usr</A></span> : System.Address) <b>return</b> System.Address;
|
||||
<b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_96_9">Copyarg_Function</A>);
|
||||
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_100_9">Freearg_Function</A></FONT> <b>is</b> <b>access</b>
|
||||
<b>procedure</b> (<FONT COLOR=red><A NAME="ref_101_17">Usr</A></FONT> : System.Address);
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_100_9">Freearg_Function</A></span> <b>is</b> <b>access</b>
|
||||
<b>procedure</b> (<span class="symbol"><A NAME="ref_101_17">Usr</A></span> : System.Address);
|
||||
<b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_100_9">Freearg_Function</A>);
|
||||
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_104_9">Field_Check_Function</A></FONT> <b>is</b> <b>access</b>
|
||||
<b>function</b> (<FONT COLOR=red><A NAME="ref_105_16">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>; <FONT COLOR=red><A NAME="ref_105_29">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1926_9">Curses_Bool</A>;
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_104_9">Field_Check_Function</A></span> <b>is</b> <b>access</b>
|
||||
<b>function</b> (<span class="symbol"><A NAME="ref_105_16">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>; <span class="symbol"><A NAME="ref_105_29">Usr</A></span> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1925_9">Curses_Bool</A>;
|
||||
<b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_104_9">Field_Check_Function</A>);
|
||||
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_108_9">Char_Check_Function</A></FONT> <b>is</b> <b>access</b>
|
||||
<b>function</b> (<FONT COLOR=red><A NAME="ref_109_16">Ch</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>; <FONT COLOR=red><A NAME="ref_109_28">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1926_9">Curses_Bool</A>;
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_108_9">Char_Check_Function</A></span> <b>is</b> <b>access</b>
|
||||
<b>function</b> (<span class="symbol"><A NAME="ref_109_16">Ch</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>; <span class="symbol"><A NAME="ref_109_28">Usr</A></span> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1925_9">Curses_Bool</A>;
|
||||
<b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_108_9">Char_Check_Function</A>);
|
||||
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_112_9">Choice_Function</A></FONT> <b>is</b> <b>access</b>
|
||||
<b>function</b> (<FONT COLOR=red><A NAME="ref_113_16">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>; <FONT COLOR=red><A NAME="ref_113_29">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1926_9">Curses_Bool</A>;
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_112_9">Choice_Function</A></span> <b>is</b> <b>access</b>
|
||||
<b>function</b> (<span class="symbol"><A NAME="ref_113_16">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>; <span class="symbol"><A NAME="ref_113_29">Usr</A></span> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1925_9">Curses_Bool</A>;
|
||||
<b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_112_9">Choice_Function</A>);
|
||||
|
||||
<FONT COLOR=green><EM>-- +----------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- | This must be in sync with the FIELDTYPE structure in form.h</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_119_9">Low_Level_Field_Type</A></FONT> <b>is</b>
|
||||
<span class="comment"><EM>-- +----------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- | This must be in sync with the FIELDTYPE structure in form.h</EM></span>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_119_9">Low_Level_Field_Type</A></span> <b>is</b>
|
||||
<b>record</b>
|
||||
<FONT COLOR=red><A NAME="ref_121_10">Status</A></FONT> : <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.unsigned_short;
|
||||
<FONT COLOR=red><A NAME="ref_122_10">Ref_Count</A></FONT> : <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.long;
|
||||
<FONT COLOR=red><A NAME="ref_123_10">Left</A></FONT>, <FONT COLOR=red><A NAME="ref_123_16">Right</A></FONT> : System.Address;
|
||||
<FONT COLOR=red><A NAME="ref_124_10">Makearg</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_92_9">Makearg_Function</A>;
|
||||
<FONT COLOR=red><A NAME="ref_125_10">Copyarg</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_96_9">Copyarg_Function</A>;
|
||||
<FONT COLOR=red><A NAME="ref_126_10">Freearg</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_100_9">Freearg_Function</A>;
|
||||
<FONT COLOR=red><A NAME="ref_127_10">Fcheck</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_104_9">Field_Check_Function</A>;
|
||||
<FONT COLOR=red><A NAME="ref_128_10">Ccheck</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_108_9">Char_Check_Function</A>;
|
||||
<FONT COLOR=red><A NAME="ref_129_10">Next</A></FONT>, <FONT COLOR=red><A NAME="ref_129_16">Prev</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_112_9">Choice_Function</A>;
|
||||
<span class="symbol"><A NAME="ref_121_10">Status</A></span> : <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C.unsigned_short;
|
||||
<span class="symbol"><A NAME="ref_122_10">Ref_Count</A></span> : <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C.long;
|
||||
<span class="symbol"><A NAME="ref_123_10">Left</A></span>, <span class="symbol"><A NAME="ref_123_16">Right</A></span> : System.Address;
|
||||
<span class="symbol"><A NAME="ref_124_10">Makearg</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_92_9">Makearg_Function</A>;
|
||||
<span class="symbol"><A NAME="ref_125_10">Copyarg</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_96_9">Copyarg_Function</A>;
|
||||
<span class="symbol"><A NAME="ref_126_10">Freearg</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_100_9">Freearg_Function</A>;
|
||||
<span class="symbol"><A NAME="ref_127_10">Fcheck</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_104_9">Field_Check_Function</A>;
|
||||
<span class="symbol"><A NAME="ref_128_10">Ccheck</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_108_9">Char_Check_Function</A>;
|
||||
<span class="symbol"><A NAME="ref_129_10">Next</A></span>, <span class="symbol"><A NAME="ref_129_16">Prev</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_112_9">Choice_Function</A>;
|
||||
<b>end</b> <b>record</b>;
|
||||
<b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_119_9">Low_Level_Field_Type</A>);
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_132_9">C_Field_Type</A></FONT> <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_119_9">Low_Level_Field_Type</A>;
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_132_9">C_Field_Type</A></span> <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_119_9">Low_Level_Field_Type</A>;
|
||||
|
||||
<FONT COLOR=red><A NAME="ref_134_4">Null_Field_Type</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A> := <b>null</b>;
|
||||
<span class="symbol"><A NAME="ref_134_4">Null_Field_Type</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A> := <b>null</b>;
|
||||
|
||||
<FONT COLOR=green><EM>-- +----------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- | This four low-level fieldtypes are the ones associated with</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- | fieldtypes handled by this binding. Any other low-level fieldtype</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- | will result in a Form_Exception is function Get_Type.</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<FONT COLOR=red><A NAME="ref_141_4">M_Generic_Type</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A> := <b>null</b>;
|
||||
<FONT COLOR=red><A NAME="ref_142_4">M_Generic_Choice</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A> := <b>null</b>;
|
||||
<FONT COLOR=red><A NAME="ref_143_4">M_Builtin_Router</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A> := <b>null</b>;
|
||||
<FONT COLOR=red><A NAME="ref_144_4">M_Choice_Router</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A> := <b>null</b>;
|
||||
<span class="comment"><EM>-- +----------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- | This four low-level fieldtypes are the ones associated with</EM></span>
|
||||
<span class="comment"><EM>-- | fieldtypes handled by this binding. Any other low-level fieldtype</EM></span>
|
||||
<span class="comment"><EM>-- | will result in a Form_Exception is function Get_Type.</EM></span>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<span class="symbol"><A NAME="ref_141_4">M_Generic_Type</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A> := <b>null</b>;
|
||||
<span class="symbol"><A NAME="ref_142_4">M_Generic_Choice</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A> := <b>null</b>;
|
||||
<span class="symbol"><A NAME="ref_143_4">M_Builtin_Router</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A> := <b>null</b>;
|
||||
<span class="symbol"><A NAME="ref_144_4">M_Choice_Router</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A> := <b>null</b>;
|
||||
|
||||
<FONT COLOR=green><EM>-- Two wrapper functions to access those low-level fieldtypes defined</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in this package.</EM></FONT>
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_148_13" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_224_13">C_Builtin_Router</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>;
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_149_13" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_251_13">C_Choice_Router</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>;
|
||||
<span class="comment"><EM>-- Two wrapper functions to access those low-level fieldtypes defined</EM></span>
|
||||
<span class="comment"><EM>-- in this package.</EM></span>
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_148_13" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_224_13">C_Builtin_Router</A></span> <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>;
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_149_13" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_251_13">C_Choice_Router</A></span> <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>;
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_151_14" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_126_14">Wrap_Builtin</A></FONT> (<FONT COLOR=red><A NAME="ref_151_28" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_126_28">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_152_28" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_127_28">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A>'Class;
|
||||
<FONT COLOR=red><A NAME="ref_153_28" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_128_28">Cft</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_148_13">C_Builtin_Router</A>);
|
||||
<FONT COLOR=green><EM>-- This procedure has to be called by the Set_Field_Type implementation</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- for builtin low-level fieldtypes to replace it by an Ada95</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- conformant Field_Type object.</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The parameter Cft must be C_Builtin_Router for regular low-level</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- fieldtypes (like TYP_ALPHA or TYP_ALNUM) and C_Choice_Router for</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- low-level fieldtypes witch choice functions (like TYP_ENUM).</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Any other value will raise a Form_Exception.</EM></FONT>
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_151_14" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_126_14">Wrap_Builtin</A></span> (<span class="symbol"><A NAME="ref_151_28" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_126_28">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_152_28" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_127_28">Typ</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_52_9">Field_Type</A>'Class;
|
||||
<span class="symbol"><A NAME="ref_153_28" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_128_28">Cft</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_148_13">C_Builtin_Router</A>);
|
||||
<span class="comment"><EM>-- This procedure has to be called by the Set_Field_Type implementation</EM></span>
|
||||
<span class="comment"><EM>-- for builtin low-level fieldtypes to replace it by an Ada95</EM></span>
|
||||
<span class="comment"><EM>-- conformant Field_Type object.</EM></span>
|
||||
<span class="comment"><EM>-- The parameter Cft must be C_Builtin_Router for regular low-level</EM></span>
|
||||
<span class="comment"><EM>-- fieldtypes (like TYP_ALPHA or TYP_ALNUM) and C_Choice_Router for</EM></span>
|
||||
<span class="comment"><EM>-- low-level fieldtypes witch choice functions (like TYP_ENUM).</EM></span>
|
||||
<span class="comment"><EM>-- Any other value will raise a Form_Exception.</EM></span>
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_162_13">Make_Arg</A></FONT> (<FONT COLOR=red><A NAME="ref_162_23" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_162_13">Args</A></FONT> : System.Address) <b>return</b> System.Address;
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_162_13">Make_Arg</A></span> (<span class="symbol"><A NAME="ref_162_23" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_162_13">Args</A></span> : System.Address) <b>return</b> System.Address;
|
||||
<b>pragma</b> Import (C, Make_Arg, "void_star_make_arg");
|
||||
<FONT COLOR=green><EM>-- This is the Makearg_Function for the internal low-level types</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- introduced by this binding.</EM></FONT>
|
||||
<span class="comment"><EM>-- This is the Makearg_Function for the internal low-level types</EM></span>
|
||||
<span class="comment"><EM>-- introduced by this binding.</EM></span>
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_167_13" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_95_13">Copy_Arg</A></FONT> (<FONT COLOR=red><A NAME="ref_167_23" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_95_23">Usr</A></FONT> : System.Address) <b>return</b> System.Address;
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_167_13" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_95_13">Copy_Arg</A></span> (<span class="symbol"><A NAME="ref_167_23" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_95_23">Usr</A></span> : System.Address) <b>return</b> System.Address;
|
||||
<b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_167_13">Copy_Arg</A>);
|
||||
<FONT COLOR=green><EM>-- This is the Copyarg_Function for the internal low-level types</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- introduced by this binding.</EM></FONT>
|
||||
<span class="comment"><EM>-- This is the Copyarg_Function for the internal low-level types</EM></span>
|
||||
<span class="comment"><EM>-- introduced by this binding.</EM></span>
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_172_14" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_101_14">Free_Arg</A></FONT> (<FONT COLOR=red><A NAME="ref_172_24" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_101_24">Usr</A></FONT> : System.Address);
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_172_14" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_101_14">Free_Arg</A></span> (<span class="symbol"><A NAME="ref_172_24" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_101_24">Usr</A></span> : System.Address);
|
||||
<b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_172_14">Free_Arg</A>);
|
||||
<FONT COLOR=green><EM>-- This is the Freearg_Function for the internal low-level types</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- introduced by this binding.</EM></FONT>
|
||||
<span class="comment"><EM>-- This is the Freearg_Function for the internal low-level types</EM></span>
|
||||
<span class="comment"><EM>-- introduced by this binding.</EM></span>
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_177_13" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_162_13">Field_Check_Router</A></FONT> (<FONT COLOR=red><A NAME="ref_177_33" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_162_33">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_178_33" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_163_33">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1926_9">Curses_Bool</A>;
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_177_13" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_162_13">Field_Check_Router</A></span> (<span class="symbol"><A NAME="ref_177_33" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_162_33">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_178_33" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_163_33">Usr</A></span> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1925_9">Curses_Bool</A>;
|
||||
<b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_177_13">Field_Check_Router</A>);
|
||||
<FONT COLOR=green><EM>-- This is the Field_Check_Function for the internal low-level types</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- introduced to wrap the low-level types by a Field_Type derived</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- type. It routes the call to the corresponding low-level validation</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- function.</EM></FONT>
|
||||
<span class="comment"><EM>-- This is the Field_Check_Function for the internal low-level types</EM></span>
|
||||
<span class="comment"><EM>-- introduced to wrap the low-level types by a Field_Type derived</EM></span>
|
||||
<span class="comment"><EM>-- type. It routes the call to the corresponding low-level validation</EM></span>
|
||||
<span class="comment"><EM>-- function.</EM></span>
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_185_13" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_177_13">Char_Check_Router</A></FONT> (<FONT COLOR=red><A NAME="ref_185_32" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_177_32">Ch</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<FONT COLOR=red><A NAME="ref_186_32" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_178_32">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1926_9">Curses_Bool</A>;
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_185_13" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_177_13">Char_Check_Router</A></span> (<span class="symbol"><A NAME="ref_185_32" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_177_32">Ch</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<span class="symbol"><A NAME="ref_186_32" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_178_32">Usr</A></span> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1925_9">Curses_Bool</A>;
|
||||
<b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_185_13">Char_Check_Router</A>);
|
||||
<FONT COLOR=green><EM>-- This is the Char_Check_Function for the internal low-level types</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- introduced to wrap the low-level types by a Field_Type derived</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- type. It routes the call to the corresponding low-level validation</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- function.</EM></FONT>
|
||||
<span class="comment"><EM>-- This is the Char_Check_Function for the internal low-level types</EM></span>
|
||||
<span class="comment"><EM>-- introduced to wrap the low-level types by a Field_Type derived</EM></span>
|
||||
<span class="comment"><EM>-- type. It routes the call to the corresponding low-level validation</EM></span>
|
||||
<span class="comment"><EM>-- function.</EM></span>
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_193_13" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_192_13">Next_Router</A></FONT> (<FONT COLOR=red><A NAME="ref_193_26" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_192_26">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_194_26" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_193_26">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1926_9">Curses_Bool</A>;
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_193_13" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_192_13">Next_Router</A></span> (<span class="symbol"><A NAME="ref_193_26" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_192_26">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_194_26" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_193_26">Usr</A></span> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1925_9">Curses_Bool</A>;
|
||||
<b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_193_13">Next_Router</A>);
|
||||
<FONT COLOR=green><EM>-- This is the Choice_Function for the internal low-level types</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- introduced to wrap the low-level types by a Field_Type derived</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- type. It routes the call to the corresponding low-level next_choice</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- function.</EM></FONT>
|
||||
<span class="comment"><EM>-- This is the Choice_Function for the internal low-level types</EM></span>
|
||||
<span class="comment"><EM>-- introduced to wrap the low-level types by a Field_Type derived</EM></span>
|
||||
<span class="comment"><EM>-- type. It routes the call to the corresponding low-level next_choice</EM></span>
|
||||
<span class="comment"><EM>-- function.</EM></span>
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_201_13" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_207_13">Prev_Router</A></FONT> (<FONT COLOR=red><A NAME="ref_201_26" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_207_26">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_202_26" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_208_26">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1926_9">Curses_Bool</A>;
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_201_13" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_207_13">Prev_Router</A></span> (<span class="symbol"><A NAME="ref_201_26" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_207_26">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_202_26" HREF="terminal_interface-curses-forms-field_types__adb.htm#ref_208_26">Usr</A></span> : System.Address) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_1925_9">Curses_Bool</A>;
|
||||
<b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_201_13">Prev_Router</A>);
|
||||
<FONT COLOR=green><EM>-- This is the Choice_Function for the internal low-level types</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- introduced to wrap the low-level types by a Field_Type derived</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- type. It routes the call to the corresponding low-level prev_choice</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- function.</EM></FONT>
|
||||
<span class="comment"><EM>-- This is the Choice_Function for the internal low-level types</EM></span>
|
||||
<span class="comment"><EM>-- introduced to wrap the low-level types by a Field_Type derived</EM></span>
|
||||
<span class="comment"><EM>-- type. It routes the call to the corresponding low-level prev_choice</EM></span>
|
||||
<span class="comment"><EM>-- function.</EM></span>
|
||||
|
||||
<FONT COLOR=green><EM>-- This is the Argument structure maintained by all low-level field types</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- introduced by this binding.</EM></FONT>
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_211_9">Argument</A></FONT> <b>is</b> <b>record</b>
|
||||
<FONT COLOR=red><A NAME="ref_212_7">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_63_9">Field_Type_Access</A>; <FONT COLOR=green><EM>-- the Field_Type creating this record</EM></FONT>
|
||||
<FONT COLOR=red><A NAME="ref_213_7">Usr</A></FONT> : System.Address; <FONT COLOR=green><EM>-- original arg for builtin low-level types</EM></FONT>
|
||||
<FONT COLOR=red><A NAME="ref_214_7">Cft</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>; <FONT COLOR=green><EM>-- the original low-level type</EM></FONT>
|
||||
<span class="comment"><EM>-- This is the Argument structure maintained by all low-level field types</EM></span>
|
||||
<span class="comment"><EM>-- introduced by this binding.</EM></span>
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_211_9">Argument</A></span> <b>is</b> <b>record</b>
|
||||
<span class="symbol"><A NAME="ref_212_7">Typ</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_63_9">Field_Type_Access</A>; <span class="comment"><EM>-- the Field_Type creating this record</EM></span>
|
||||
<span class="symbol"><A NAME="ref_213_7">Usr</A></span> : System.Address; <span class="comment"><EM>-- original arg for builtin low-level types</EM></span>
|
||||
<span class="symbol"><A NAME="ref_214_7">Cft</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>; <span class="comment"><EM>-- the original low-level type</EM></span>
|
||||
<b>end</b> <b>record</b>;
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_216_9">Argument_Access</A></FONT> <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_211_9">Argument</A>;
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_216_9">Argument_Access</A></span> <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_211_9">Argument</A>;
|
||||
|
||||
<FONT COLOR=green><EM>-- +----------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- | Some Imports of libform routines to deal with low-level fieldtypes.</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_222_13">New_Fieldtype</A></FONT> (<FONT COLOR=red><A NAME="ref_222_28" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_222_13">Fcheck</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_104_9">Field_Check_Function</A>;
|
||||
<FONT COLOR=red><A NAME="ref_223_28" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_222_13">Ccheck</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_108_9">Char_Check_Function</A>)
|
||||
<span class="comment"><EM>-- +----------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<span class="comment"><EM>-- | Some Imports of libform routines to deal with low-level fieldtypes.</EM></span>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_222_13">New_Fieldtype</A></span> (<span class="symbol"><A NAME="ref_222_28" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_222_13">Fcheck</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_104_9">Field_Check_Function</A>;
|
||||
<span class="symbol"><A NAME="ref_223_28" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_222_13">Ccheck</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_108_9">Char_Check_Function</A>)
|
||||
<b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>;
|
||||
<b>pragma</b> Import (C, New_Fieldtype, "new_fieldtype");
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_227_13">Set_Fieldtype_Arg</A></FONT> (<FONT COLOR=red><A NAME="ref_227_32" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_227_13">Cft</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>;
|
||||
<FONT COLOR=red><A NAME="ref_228_32" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_227_13">Mak</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_92_9">Makearg_Function</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_162_13">Make_Arg</A>'<b>Access</b>;
|
||||
<FONT COLOR=red><A NAME="ref_229_32" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_227_13">Cop</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_96_9">Copyarg_Function</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_167_13">Copy_Arg</A>'<b>Access</b>;
|
||||
<FONT COLOR=red><A NAME="ref_230_32" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_227_13">Fre</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_100_9">Freearg_Function</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_172_14">Free_Arg</A>'<b>Access</b>)
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_227_13">Set_Fieldtype_Arg</A></span> (<span class="symbol"><A NAME="ref_227_32" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_227_13">Cft</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>;
|
||||
<span class="symbol"><A NAME="ref_228_32" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_227_13">Mak</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_92_9">Makearg_Function</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_162_13">Make_Arg</A>'<b>Access</b>;
|
||||
<span class="symbol"><A NAME="ref_229_32" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_227_13">Cop</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_96_9">Copyarg_Function</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_167_13">Copy_Arg</A>'<b>Access</b>;
|
||||
<span class="symbol"><A NAME="ref_230_32" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_227_13">Fre</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_100_9">Freearg_Function</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_172_14">Free_Arg</A>'<b>Access</b>)
|
||||
<b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<b>pragma</b> Import (C, Set_Fieldtype_Arg, "set_fieldtype_arg");
|
||||
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_234_13">Set_Fieldtype_Choice</A></FONT> (<FONT COLOR=red><A NAME="ref_234_35" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_234_13">Cft</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>;
|
||||
<FONT COLOR=red><A NAME="ref_235_35" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_234_13">Next</A></FONT>, <FONT COLOR=red><A NAME="ref_235_41" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_234_13">Prev</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_112_9">Choice_Function</A>)
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_234_13">Set_Fieldtype_Choice</A></span> (<span class="symbol"><A NAME="ref_234_35" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_234_13">Cft</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_132_9">C_Field_Type</A>;
|
||||
<span class="symbol"><A NAME="ref_235_35" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_234_13">Next</A></span>, <span class="symbol"><A NAME="ref_235_41" HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_234_13">Prev</A></span> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_112_9">Choice_Function</A>)
|
||||
<b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#ref_46_12">C_Int</A>;
|
||||
<b>pragma</b> Import (C, Set_Fieldtype_Choice, "set_fieldtype_choice");
|
||||
|
||||
|
||||
@ -1,87 +1,99 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_user_data.adb</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-forms-field_user_data.adb</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_user_data.adb </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-forms-field_user_data.adb </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_User_Data --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- B O D Y --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.13 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Forms.Field_User_Data --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- B O D Y --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.13 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<b>with</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>;
|
||||
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- | man page form_field_userptr.3x</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<FONT COLOR=red><A NAME="ref_48_46" HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_45_41">Field_User_Data</A></FONT> <b>is</b>
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<b>use</b> <b>type</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.int;
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<span class="comment"><EM>-- |=====================================================================</EM></span>
|
||||
<span class="comment"><EM>-- | man page form_field_userptr.3x</EM></span>
|
||||
<span class="comment"><EM>-- |=====================================================================</EM></span>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<span class="symbol"><A NAME="ref_48_46" HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_45_41">Field_User_Data</A></span> <b>is</b>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<b>use</b> <b>type</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C.int;
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_54_14" HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_53_14">Set_User_Data</A></FONT> (<FONT COLOR=red><A NAME="ref_54_29" HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_53_29">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_55_29" HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_54_29">Data</A></FONT> : <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_44_9">User_Access</A>)
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_54_14" HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_53_14">Set_User_Data</A></span> (<span class="symbol"><A NAME="ref_54_29" HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_53_29">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_55_29" HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_54_29">Data</A></span> : <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_44_9">User_Access</A>)
|
||||
<b>is</b>
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_57_16">Set_Field_Userptr</A></FONT> (<FONT COLOR=red><A NAME="ref_57_35" HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_57_16">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_58_35" HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_57_16">Usr</A></FONT> : <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_44_9">User_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_57_16">Set_Field_Userptr</A></span> (<span class="symbol"><A NAME="ref_57_35" HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_57_16">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_58_35" HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_57_16">Usr</A></span> : <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_44_9">User_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;
|
||||
<b>pragma</b> Import (C, Set_Field_Userptr, "set_field_userptr");
|
||||
|
||||
<FONT COLOR=red><A NAME="ref_61_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_57_16">Set_Field_Userptr</A> (<A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_53_29">Fld</A>, <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_54_29">Data</A>);
|
||||
<span class="symbol"><A NAME="ref_61_7">Res</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_57_16">Set_Field_Userptr</A> (<A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_53_29">Fld</A>, <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_54_29">Data</A>);
|
||||
<b>begin</b>
|
||||
<b>if</b> <A HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_61_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#ref_80_4">E_Ok</A> <b>then</b>
|
||||
<A HREF="terminal_interface-curses-aux__ads.htm#ref_96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_61_7">Res</A>);
|
||||
<b>end</b> <b>if</b>;
|
||||
<b>end</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_53_14">Set_User_Data</A>;
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_70_13" HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_64_13">Get_User_Data</A></FONT> (<FONT COLOR=red><A NAME="ref_70_28" HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_64_28">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_44_9">User_Access</A>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_70_13" HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_64_13">Get_User_Data</A></span> (<span class="symbol"><A NAME="ref_70_28" HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_64_28">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_44_9">User_Access</A>
|
||||
<b>is</b>
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_72_16">Field_Userptr</A></FONT> (<FONT COLOR=red><A NAME="ref_72_31" HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_72_16">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_44_9">User_Access</A>;
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_72_16">Field_Userptr</A></span> (<span class="symbol"><A NAME="ref_72_31" HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_72_16">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_44_9">User_Access</A>;
|
||||
<b>pragma</b> Import (C, Field_Userptr, "field_userptr");
|
||||
<b>begin</b>
|
||||
<b>return</b> <A HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_72_16">Field_Userptr</A> (<A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_64_28">Fld</A>);
|
||||
<b>end</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_64_13">Get_User_Data</A>;
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_78_14" HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_59_14">Get_User_Data</A></FONT> (<FONT COLOR=red><A NAME="ref_78_29" HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_59_29">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_79_29" HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_60_29">Data</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_44_9">User_Access</A>)
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_78_14" HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_59_14">Get_User_Data</A></span> (<span class="symbol"><A NAME="ref_78_29" HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_59_29">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_79_29" HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_60_29">Data</A></span> : <b>out</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_44_9">User_Access</A>)
|
||||
<b>is</b>
|
||||
<b>begin</b>
|
||||
<A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_60_29">Data</A> := <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_64_13">Get_User_Data</A> (<A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_59_29">Fld</A>);
|
||||
|
||||
@ -1,74 +1,86 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_user_data.ads</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-forms-field_user_data.ads</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_user_data.ads </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-forms-field_user_data.ads </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_User_Data --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- S P E C --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.16 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Forms.Field_User_Data --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- S P E C --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.16 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
|
||||
<b>generic</b>
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_43_9" HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_45_41">User</A></FONT> <b>is</b> <b>limited</b> <b>private</b>;
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_44_9" HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_45_41">User_Access</A></FONT> <b>is</b> <b>access</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_43_9">User</A>;
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<FONT COLOR=red><A NAME="ref_45_41" HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_48_46">Field_User_Data</A></FONT> <b>is</b>
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_43_9" HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_45_41">User</A></span> <b>is</b> <b>limited</b> <b>private</b>;
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_44_9" HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_45_41">User_Access</A></span> <b>is</b> <b>access</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_43_9">User</A>;
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<span class="symbol"><A NAME="ref_45_41" HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_48_46">Field_User_Data</A></span> <b>is</b>
|
||||
<b>pragma</b> Preelaborate (<A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_45_41">Field_User_Data</A>);
|
||||
|
||||
<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_userptr.3x.html">form_field_userptr.3x</A></EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
|
||||
<span class="comment"><EM>-- |=====================================================================</EM></span>
|
||||
<span class="comment"><EM>-- | Man page <A HREF="../man/form_field_userptr.3x.html">form_field_userptr.3x</A></EM></span>
|
||||
<span class="comment"><EM>-- |=====================================================================</EM></span>
|
||||
|
||||
<FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT>
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_53_14" HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_54_14">Set_User_Data</A></FONT> (<FONT COLOR=red><A NAME="ref_53_29" HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_54_29">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_54_29" HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_55_29">Data</A></FONT> : <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_44_9">User_Access</A>);
|
||||
<FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_userptr.3x.html">set_field_userptr</A></EM></FONT>
|
||||
<span class="comment"><EM>-- #1A NAME="AFU_1"#2|</EM></span>
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_53_14" HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_54_14">Set_User_Data</A></span> (<span class="symbol"><A NAME="ref_53_29" HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_54_29">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_54_29" HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_55_29">Data</A></span> : <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_44_9">User_Access</A>);
|
||||
<span class="comment"><EM>-- AKA: <A HREF="../man/form_field_userptr.3x.html">set_field_userptr</A></EM></span>
|
||||
<b>pragma</b> Inline (<A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_53_14">Set_User_Data</A>);
|
||||
|
||||
<FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT>
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_59_14" HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_78_14">Get_User_Data</A></FONT> (<FONT COLOR=red><A NAME="ref_59_29" HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_78_29">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<FONT COLOR=red><A NAME="ref_60_29" HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_79_29">Data</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_44_9">User_Access</A>);
|
||||
<FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_userptr.3x.html">field_userptr</A></EM></FONT>
|
||||
<span class="comment"><EM>-- #1A NAME="AFU_2"#2|</EM></span>
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_59_14" HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_78_14">Get_User_Data</A></span> (<span class="symbol"><A NAME="ref_59_29" HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_78_29">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
|
||||
<span class="symbol"><A NAME="ref_60_29" HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_79_29">Data</A></span> : <b>out</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_44_9">User_Access</A>);
|
||||
<span class="comment"><EM>-- AKA: <A HREF="../man/form_field_userptr.3x.html">field_userptr</A></EM></span>
|
||||
|
||||
<FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT>
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_64_13" HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_70_13">Get_User_Data</A></FONT> (<FONT COLOR=red><A NAME="ref_64_28" HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_70_28">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_44_9">User_Access</A>;
|
||||
<FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_userptr.3x.html">field_userptr</A></EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Sama as function</EM></FONT>
|
||||
<span class="comment"><EM>-- #1A NAME="AFU_3"#2|</EM></span>
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_64_13" HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_70_13">Get_User_Data</A></span> (<span class="symbol"><A NAME="ref_64_28" HREF="terminal_interface-curses-forms-field_user_data__adb.htm#ref_70_28">Fld</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_44_9">User_Access</A>;
|
||||
<span class="comment"><EM>-- AKA: <A HREF="../man/form_field_userptr.3x.html">field_userptr</A></EM></span>
|
||||
<span class="comment"><EM>-- Sama as function</EM></span>
|
||||
<b>pragma</b> Inline (Get_User_Data);
|
||||
|
||||
<b>end</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#ref_45_41">Field_User_Data</A>;
|
||||
|
||||
@ -1,88 +1,100 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-forms-form_user_data.adb</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-forms-form_user_data.adb</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-form_user_data.adb </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-forms-form_user_data.adb </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Form_User_Data --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- B O D Y --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.13 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- | man page form__userptr.3x</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Forms.Form_User_Data --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- B O D Y --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.13 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<span class="comment"><EM>-- |=====================================================================</EM></span>
|
||||
<span class="comment"><EM>-- | man page form__userptr.3x</EM></span>
|
||||
<span class="comment"><EM>-- |=====================================================================</EM></span>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<b>with</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#ref_50_35">Aux</A>;
|
||||
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<FONT COLOR=red><A NAME="ref_48_46" HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_45_41">Form_User_Data</A></FONT> <b>is</b>
|
||||
<b>package</b> <b>body</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<span class="symbol"><A NAME="ref_48_46" HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_45_41">Form_User_Data</A></span> <b>is</b>
|
||||
|
||||
<b>use</b> <b>type</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.int;
|
||||
<b>use</b> <b>type</b> <A HREF="interfac__ads.htm#ref_36_9">Interfaces</A>.C.int;
|
||||
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_55_14" HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_53_14">Set_User_Data</A></FONT> (<FONT COLOR=red><A NAME="ref_55_29" HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_53_29">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;
|
||||
<FONT COLOR=red><A NAME="ref_56_29" HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_54_29">Data</A></FONT> : <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_44_9">User_Access</A>)
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_55_14" HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_53_14">Set_User_Data</A></span> (<span class="symbol"><A NAME="ref_55_29" HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_53_29">Frm</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;
|
||||
<span class="symbol"><A NAME="ref_56_29" HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_54_29">Data</A></span> : <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_44_9">User_Access</A>)
|
||||
<b>is</b>
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_58_16">Set_Form_Userptr</A></FONT> (<FONT COLOR=red><A NAME="ref_58_34" HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_58_16">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;
|
||||
<FONT COLOR=red><A NAME="ref_59_34" HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_58_16">Data</A></FONT> : <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_44_9">User_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_58_16">Set_Form_Userptr</A></span> (<span class="symbol"><A NAME="ref_58_34" HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_58_16">Frm</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;
|
||||
<span class="symbol"><A NAME="ref_59_34" HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_58_16">Data</A></span> : <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_44_9">User_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int</A>;
|
||||
<b>pragma</b> Import (C, Set_Form_Userptr, "set_form_userptr");
|
||||
|
||||
<FONT COLOR=red><A NAME="ref_62_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_58_16">Set_Form_Userptr</A> (<A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_53_29">Frm</A>, <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_54_29">Data</A>);
|
||||
<span class="symbol"><A NAME="ref_62_7">Res</A></span> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#ref_78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_58_16">Set_Form_Userptr</A> (<A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_53_29">Frm</A>, <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_54_29">Data</A>);
|
||||
<b>begin</b>
|
||||
<b>if</b> <A HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_62_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#ref_80_4">E_Ok</A> <b>then</b>
|
||||
<A HREF="terminal_interface-curses-aux__ads.htm#ref_96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_62_7">Res</A>);
|
||||
<b>end</b> <b>if</b>;
|
||||
<b>end</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_53_14">Set_User_Data</A>;
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |</EM></FONT>
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_71_13" HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_64_13">Get_User_Data</A></FONT> (<FONT COLOR=red><A NAME="ref_71_28" HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_64_28">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_44_9">User_Access</A>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<span class="comment"><EM>-- |</EM></span>
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_71_13" HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_64_13">Get_User_Data</A></span> (<span class="symbol"><A NAME="ref_71_28" HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_64_28">Frm</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_44_9">User_Access</A>
|
||||
<b>is</b>
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_73_16">Form_Userptr</A></FONT> (<FONT COLOR=red><A NAME="ref_73_30" HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_73_16">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_44_9">User_Access</A>;
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_73_16">Form_Userptr</A></span> (<span class="symbol"><A NAME="ref_73_30" HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_73_16">Frm</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_44_9">User_Access</A>;
|
||||
<b>pragma</b> Import (C, Form_Userptr, "form_userptr");
|
||||
<b>begin</b>
|
||||
<b>return</b> <A HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_73_16">Form_Userptr</A> (<A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_64_28">Frm</A>);
|
||||
<b>end</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_64_13">Get_User_Data</A>;
|
||||
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_79_14" HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_59_14">Get_User_Data</A></FONT> (<FONT COLOR=red><A NAME="ref_79_29" HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_59_29">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;
|
||||
<FONT COLOR=red><A NAME="ref_80_29" HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_60_29">Data</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_44_9">User_Access</A>)
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_79_14" HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_59_14">Get_User_Data</A></span> (<span class="symbol"><A NAME="ref_79_29" HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_59_29">Frm</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;
|
||||
<span class="symbol"><A NAME="ref_80_29" HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_60_29">Data</A></span> : <b>out</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_44_9">User_Access</A>)
|
||||
<b>is</b>
|
||||
<b>begin</b>
|
||||
<A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_60_29">Data</A> := <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_64_13">Get_User_Data</A> (<A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_59_29">Frm</A>);
|
||||
|
||||
@ -1,74 +1,86 @@
|
||||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<HTML><HEAD><TITLE>terminal_interface-curses-forms-form_user_data.ads</TITLE></HEAD>
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<TITLE>terminal_interface-curses-forms-form_user_data.ads</TITLE>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||||
<style type="text/css">
|
||||
*.comment {
|
||||
color: green;
|
||||
}
|
||||
*.symbol {
|
||||
color: red;
|
||||
}
|
||||
</style>
|
||||
</HEAD>
|
||||
<BODY>
|
||||
<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-form_user_data.ads </H1></DIV><HR>
|
||||
<HR><DIV style="text-align:center"><H1> File : terminal_interface-curses-forms-form_user_data.ads </H1></DIV><HR>
|
||||
<PRE>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Form_User_Data --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- S P E C --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- @Revision: 1.15 @</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
|
||||
<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Terminal_Interface.Curses.Forms.Form_User_Data --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- S P E C --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></span>
|
||||
<span class="comment"><EM>-- copy of this software and associated documentation files (the --</EM></span>
|
||||
<span class="comment"><EM>-- "Software"), to deal in the Software without restriction, including --</EM></span>
|
||||
<span class="comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></span>
|
||||
<span class="comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></span>
|
||||
<span class="comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></span>
|
||||
<span class="comment"><EM>-- furnished to do so, subject to the following conditions: --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- The above copyright notice and this permission notice shall be included --</EM></span>
|
||||
<span class="comment"><EM>-- in all copies or substantial portions of the Software. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></span>
|
||||
<span class="comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></span>
|
||||
<span class="comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></span>
|
||||
<span class="comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></span>
|
||||
<span class="comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></span>
|
||||
<span class="comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></span>
|
||||
<span class="comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></span>
|
||||
<span class="comment"><EM>-- --</EM></span>
|
||||
<span class="comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></span>
|
||||
<span class="comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></span>
|
||||
<span class="comment"><EM>-- sale, use or other dealings in this Software without prior written --</EM></span>
|
||||
<span class="comment"><EM>-- authorization. --</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
<span class="comment"><EM>-- Author: Juergen Pfeifer, 1996</EM></span>
|
||||
<span class="comment"><EM>-- Version Control:</EM></span>
|
||||
<span class="comment"><EM>-- @Revision: 1.15 @</EM></span>
|
||||
<span class="comment"><EM>-- Binding Version 01.00</EM></span>
|
||||
<span class="comment"><EM>------------------------------------------------------------------------------</EM></span>
|
||||
|
||||
<b>generic</b>
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_43_9" HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_45_41">User</A></FONT> <b>is</b> <b>limited</b> <b>private</b>;
|
||||
<b>type</b> <FONT COLOR=red><A NAME="ref_44_9" HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_45_41">User_Access</A></FONT> <b>is</b> <b>access</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_43_9">User</A>;
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<FONT COLOR=red><A NAME="ref_45_41" HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_48_46">Form_User_Data</A></FONT> <b>is</b>
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_43_9" HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_45_41">User</A></span> <b>is</b> <b>limited</b> <b>private</b>;
|
||||
<b>type</b> <span class="symbol"><A NAME="ref_44_9" HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_45_41">User_Access</A></span> <b>is</b> <b>access</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_43_9">User</A>;
|
||||
<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<span class="symbol"><A NAME="ref_45_41" HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_48_46">Form_User_Data</A></span> <b>is</b>
|
||||
<b>pragma</b> Preelaborate (<A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_45_41">Form_User_Data</A>);
|
||||
|
||||
<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
|
||||
<FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_userptr.3x.html">form_userptr.3x</A></EM></FONT>
|
||||
<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
|
||||
<span class="comment"><EM>-- |=====================================================================</EM></span>
|
||||
<span class="comment"><EM>-- | Man page <A HREF="../man/form_userptr.3x.html">form_userptr.3x</A></EM></span>
|
||||
<span class="comment"><EM>-- |=====================================================================</EM></span>
|
||||
|
||||
<FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT>
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_53_14" HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_55_14">Set_User_Data</A></FONT> (<FONT COLOR=red><A NAME="ref_53_29" HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_55_29">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;
|
||||
<FONT COLOR=red><A NAME="ref_54_29" HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_56_29">Data</A></FONT> : <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_44_9">User_Access</A>);
|
||||
<FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_userptr.3x.html">set_form_userptr</A></EM></FONT>
|
||||
<span class="comment"><EM>-- #1A NAME="AFU_1"#2|</EM></span>
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_53_14" HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_55_14">Set_User_Data</A></span> (<span class="symbol"><A NAME="ref_53_29" HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_55_29">Frm</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;
|
||||
<span class="symbol"><A NAME="ref_54_29" HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_56_29">Data</A></span> : <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_44_9">User_Access</A>);
|
||||
<span class="comment"><EM>-- AKA: <A HREF="../man/form_userptr.3x.html">set_form_userptr</A></EM></span>
|
||||
<b>pragma</b> Inline (<A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_53_14">Set_User_Data</A>);
|
||||
|
||||
<FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT>
|
||||
<b>procedure</b> <FONT COLOR=red><A NAME="ref_59_14" HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_79_14">Get_User_Data</A></FONT> (<FONT COLOR=red><A NAME="ref_59_29" HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_79_29">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;
|
||||
<FONT COLOR=red><A NAME="ref_60_29" HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_80_29">Data</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_44_9">User_Access</A>);
|
||||
<FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_userptr.3x.html">form_userptr</A></EM></FONT>
|
||||
<span class="comment"><EM>-- #1A NAME="AFU_2"#2|</EM></span>
|
||||
<b>procedure</b> <span class="symbol"><A NAME="ref_59_14" HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_79_14">Get_User_Data</A></span> (<span class="symbol"><A NAME="ref_59_29" HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_79_29">Frm</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>;
|
||||
<span class="symbol"><A NAME="ref_60_29" HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_80_29">Data</A></span> : <b>out</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_44_9">User_Access</A>);
|
||||
<span class="comment"><EM>-- AKA: <A HREF="../man/form_userptr.3x.html">form_userptr</A></EM></span>
|
||||
|
||||
<FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT>
|
||||
<b>function</b> <FONT COLOR=red><A NAME="ref_64_13" HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_71_13">Get_User_Data</A></FONT> (<FONT COLOR=red><A NAME="ref_64_28" HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_71_28">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_44_9">User_Access</A>;
|
||||
<FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_userptr.3x.html">form_userptr</A></EM></FONT>
|
||||
<FONT COLOR=green><EM>-- Same as function</EM></FONT>
|
||||
<span class="comment"><EM>-- #1A NAME="AFU_3"#2|</EM></span>
|
||||
<b>function</b> <span class="symbol"><A NAME="ref_64_13" HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_71_13">Get_User_Data</A></span> (<span class="symbol"><A NAME="ref_64_28" HREF="terminal_interface-curses-forms-form_user_data__adb.htm#ref_71_28">Frm</A></span> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_57_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_44_9">User_Access</A>;
|
||||
<span class="comment"><EM>-- AKA: <A HREF="../man/form_userptr.3x.html">form_userptr</A></EM></span>
|
||||
<span class="comment"><EM>-- Same as function</EM></span>
|
||||
<b>pragma</b> Inline (Get_User_Data);
|
||||
|
||||
<b>end</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#ref_49_35">Forms</A>.<A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#ref_45_41">Form_User_Data</A>;
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
Some files were not shown because too many files have changed in this diff Show More
Loading…
x
Reference in New Issue
Block a user