On Fri, 2015-06-05 at 18:19 -0700, Bruce Korb wrote:
> export AUTOGEN_TRACE=everything AUTOGEN_TRACE_OUT='>>/tmp/ag-log.txt'
Log is attached.
===AutoGen starts - 13485: autogen 'ocpasswd-args.def'
Guile Library Version 2.0.11
eval from file agInit.c line 80:
(debug-enable 'backtrace)
Definition Load:
prog_name[0] (text) from ocpasswd-args.def/2 at 0xba2b60
prog_title[0] (text) from ocpasswd-args.def/3 at 0xba1be8
prog_desc[0] (text) from ocpasswd-args.def/4 at 0xba1c30
disable_save[0] (text) from ocpasswd-args.def/5 at 0xba1c78
no_xlate[0] (text) from ocpasswd-args.def/6 at 0xba1cc0
gnu_usage[0] (text) from ocpasswd-args.def/7 at 0xba1d08
config_header[0] (text) from ocpasswd-args.def/8 at 0xba1d50
long_opts[0] (text) from ocpasswd-args.def/9 at 0xba1d98
no_misuse_usage[0] (text) from ocpasswd-args.def/10 at 0xba1de0
short_usage[0] (text) from ocpasswd-args.def/11 at 0xba1e28
explain[0] (text) from ocpasswd-args.def/12 at 0xba1e70
reorder_args[0] (text) from ocpasswd-args.def/13 at 0xba1eb8
argument[0] (text) from ocpasswd-args.def/14 at 0xba1f00
version[0] (text) from version.inc/1 at 0xba1f48
detail[0] (text) from ocpasswd-args.def/17 at 0xba1f90
copyright[0] (block) from ocpasswd-args.def/20 at 0xba1fd8
date[0] (text) from ocpasswd-args.def/21 at 0xba2020
owner[0] (text) from ocpasswd-args.def/22 at 0xba2068
author[0] (text) from ocpasswd-args.def/23 at 0xba20b0
eaddr[0] (text) from ocpasswd-args.def/24 at 0xba20f8
type[0] (text) from ocpasswd-args.def/25 at 0xba2140
flag[0] (block) from ocpasswd-args.def/28 at 0xba2188
name[0] (text) from ocpasswd-args.def/29 at 0xba21d0
value[0] (text) from ocpasswd-args.def/30 at 0xba2218
arg_type[0] (text) from ocpasswd-args.def/31 at 0xba2260
descrip[0] (text) from ocpasswd-args.def/32 at 0xba22a8
doc[0] (text) from ocpasswd-args.def/33 at 0xba22f0
flag[1] (block) from ocpasswd-args.def/36 at 0xba2338
name[0] (text) from ocpasswd-args.def/37 at 0xba2380
value[0] (text) from ocpasswd-args.def/38 at 0xba23c8
arg_type[0] (text) from ocpasswd-args.def/39 at 0xba2410
descrip[0] (text) from ocpasswd-args.def/40 at 0xba2458
doc[0] (text) from ocpasswd-args.def/41 at 0xba24a0
flag[2] (block) from ocpasswd-args.def/44 at 0xba24e8
name[0] (text) from ocpasswd-args.def/45 at 0xba2530
value[0] (text) from ocpasswd-args.def/46 at 0xba2578
descrip[0] (text) from ocpasswd-args.def/47 at 0xba25c0
doc[0] (text) from ocpasswd-args.def/48 at 0xba2608
flag[3] (block) from ocpasswd-args.def/51 at 0xba2650
name[0] (text) from ocpasswd-args.def/52 at 0xba2698
value[0] (text) from ocpasswd-args.def/53 at 0xba26e0
descrip[0] (text) from ocpasswd-args.def/54 at 0xba2728
doc[0] (text) from ocpasswd-args.def/55 at 0xba2770
flag[4] (block) from ocpasswd-args.def/58 at 0xba27b8
name[0] (text) from ocpasswd-args.def/59 at 0xba2800
value[0] (text) from ocpasswd-args.def/60 at 0xba2848
descrip[0] (text) from ocpasswd-args.def/61 at 0xba2890
doc[0] (text) from ocpasswd-args.def/62 at 0xba28d8
help_value[0] (text) from ocpasswd-args.def/65 at 0xba2920
doc_section[0] (block) from ocpasswd-args.def/68 at 0xba2968
ds_type[0] (text) from ocpasswd-args.def/69 at 0xba29b0
ds_format[0] (text) from ocpasswd-args.def/70 at 0xba29f8
ds_text[0] (text) from ocpasswd-args.def/71 at 0xba2a40
doc_section[1] (block) from ocpasswd-args.def/84 at 0xba2a88
ds_type[0] (text) from ocpasswd-args.def/85 at 0xba2ad0
ds_format[0] (text) from ocpasswd-args.def/86 at 0xba2b18
ds_text[0] (text) from ocpasswd-args.def/87 at 0xba3ee0
doc_section[2] (block) from ocpasswd-args.def/105 at 0xba2f68
ds_type[0] (text) from ocpasswd-args.def/106 at 0xba2fb0
ds_format[0] (text) from ocpasswd-args.def/107 at 0xba2ff8
ds_text[0] (text) from ocpasswd-args.def/108 at 0xba3040
marker '[=' loaded
marker '=][=' loaded
Starting h template
open_output_file 'ocpasswd-args.h' mode wb+
EXPR ( E) in /usr/share/autogen/options.tpl at line 32
ed 's@/autogen@/columns@'`
eval from file /usr/share/autogen/options.tpl line 32:
(shell "CLexe=`echo ${AGexe} | sed 's@/autogen@/columns@'`
test -x \"${CLexe}\" || CLexe=`which columns`")
(dne " * " "/* ")
Server shell is pid 13486
S
Server First Start
erver shell /bin/bash
s*t a*r t*s
* LOG ENTRY 1 * * * *
cd /home/nmav/cvs/ocserv/src
exec 8>&2 2>/dev/null
if test -n "${ZSH_VERSION+set}" && (emulate sh) 1>&2
then
emulate sh
NULLCMD=:
else case `set -o` in *posix*) set -o posix ;; esac
fi
trap_exit() {
case "$1" in
0 | 10 | 15 )
exec 1>&- 2>&-
test -d "${tmp_dir}" && rm -rf "${tmp_dir}"
;;
* )
exec 1>&8
echo "trapped on signal ${1}"
test -d "${tmp_dir}" && \
echo "temp directory has been retained: ${tmp_dir}"
esac
}
die() {
echo "Killing AutoGen ${AG_pid}"
echo "FAILURE REASON: $*"
kill -15 ${AG_pid}
sleep 1
kill -1 ${AG_pid}
sleep 1
kill -2 ${AG_pid}
sleep 1
kill -9 ${AG_pid}
exit 1
} >&8
mk_tmp_dir() {
test -d "${tmp_dir}" && return 0
tmp_dir=`
t=\`mktemp -d ${TMPDIR}/.ag-XXXXXX\`
test -d "${t}" || {
t=${TMPDIR}/.ag-$$
rm -rf ${t}
mkdir ${t} || die cannot mkdir ${t}
}
chmod 700 ${t} || die cannot chmod 700 ${t}
echo ${t}
` 2>/dev/null
}
for f in 0 1 2 5 6 7 10 13 14 15
do trap "trap_exit ${f}" $f ; done
test -n "${CDPATH}" && {
CDPATH=''
unset CDPATH
}
( unalias cd ) && unalias cd
( set +v ) && set +v
test -z "${TMPDIR}" && TMPDIR=/tmp
tmp_dir=''
export AG_pid TMPDIR
AG_pid="13485"
AGexe='/usr/bin/autogen'
exec 2>&8
echo
echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 1
= = = RESULT 1 bytes:
ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 1
= = = = = = = = = = = = = = =
(result discarded)
Server traps set
* * * * LOG ENTRY 2 * * * *
cd /home/nmav/cvs/ocserv/src
set -x
trap
echo server setup done
echo
echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 2
>ag> trap
>ag> echo server setup done
>ag> echo
>ag> echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 2
= = = RESULT 338 bytes:
trap -- 'trap_exit 0' EXIT
trap -- 'trap_exit 1' HUP
trap -- 'trap_exit 2' INT
trap -- 'trap_exit 5' TRAP
trap -- 'trap_exit 6' ABRT
trap -- 'trap_exit 7' BUS
trap -- 'trap_exit 10' USR1
trap -- 'trap_exit 13' PIPE
trap -- 'trap_exit 14' ALRM
trap -- 'trap_exit 15' TERM
trap -- '' TTIN
trap -- '' TTOU
trap -- '' WINCH
server setup doneShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 2
= = = = = = = = = = = = = = =
(result discarded)
Trap state:
trap -- 'trap_exit 0' EXIT
trap -- 'trap_exit 1' HUP
trap -- 'trap_exit 2' INT
trap -- 'trap_exit 5' TRAP
trap -- 'trap_exit 6' ABRT
trap -- 'trap_exit 7' BUS
trap -- 'trap_exit 10' USR1
trap -- 'trap_exit 13' PIPE
trap -- 'trap_exit 14' ALRM
trap -- 'trap_exit 15' TERM
trap -- '' TTIN
trap -- '' TTOU
trap -- '' WINCH
server setup done
* * * * LOG ENTRY 3 * * * *
cd /home/nmav/cvs/ocserv/src
CLexe=`echo ${AGexe} | sed 's@/autogen@/columns@'`
test -x "${CLexe}" || CLexe=`which columns`
echo
echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 3
>ag> cd /home/nmav/cvs/ocserv/src
>>ag> echo /usr/bin/autogen
>>ag> sed s@/autogen@/columns@
>ag> CLexe=/usr/bin/columns
>ag> test -x /usr/bin/columns
>ag> echo
>ag> echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 3
= = = RESULT 1 bytes:
ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 3
= = = = = = = = = = = = = = =
CASE ( 2) in /usr/share/autogen/options.tpl at line 38
(suffix)
eval from file /usr/share/autogen/options.tpl line 38:
(suffix)
CASE string `h' COMPARE_FULL matched `h'
from /usr/share/autogen/options.tpl line 40
INCLUDE (11) in /usr/share/autogen/options.tpl at line 42
optlib.tlib
marker '[=' loaded
marker '=][=' loaded
Defining macro init-and-validate from /usr/share/autogen/optlib.tlib
Defining macro save-name-morphs from /usr/share/autogen/optlib.tlib
Defining macro set-defines from /usr/share/autogen/optlib.tlib
Defining macro option-copyright from /usr/share/autogen/optlib.tlib
Defining macro emit-help-text from /usr/share/autogen/optlib.tlib
Defining macro emit-keyword-enum from /usr/share/autogen/optlib.tlib
Defining macro emit-member-mask from /usr/share/autogen/optlib.tlib
Defining macro emit-value-defines from /usr/share/autogen/optlib.tlib
Defining macro set-option-define from /usr/share/autogen/optlib.tlib
Defining macro option-defines from /usr/share/autogen/optlib.tlib
Defining macro emit-alias-option from /usr/share/autogen/optlib.tlib
Defining macro emit-nondoc-option from /usr/share/autogen/optlib.tlib
Defining macro emit-opt-strs from /usr/share/autogen/optlib.tlib
Defining macro help-strs from /usr/share/autogen/optlib.tlib
Defining macro emit-opt-desc from /usr/share/autogen/optlib.tlib
Template /usr/share/autogen/optlib.tlib included
from /usr/share/autogen/optlib.tlib line 42
INCLUDE (11) in /usr/share/autogen/optlib.tlib at line 25
tpl-config.tlib
marker '[=' loaded
marker '=]' loaded
Template /usr/lib/x86_64-linux-gnu/autogen/tpl-config.tlib included
from /usr/lib/x86_64-linux-gnu/autogen/tpl-config.tlib line 25
EXPR ( E) in /usr/lib/x86_64-linux-gnu/autogen/tpl-config.tlib at line 28
")
eval from file /usr/lib/x86_64-linux-gnu/autogen/tpl-config.tlib line 28:
(define ao-version "41:1:16")
(define ao-template-ver "167937")
(define inst-prefix
(shell "prefix=\"/usr\"
echo \"${prefix}\""))
(define exec-prefix
(shell "exec_prefix=\"${prefix}\"
echo \"${exec_prefix}\""))
(define inst-bin-dir
(shell "bindir=\"${exec_prefix}/bin\"
echo \"${bindir}\""))
(define libs
(shell "LIBS=\"-lm -ldl \"
echo \"${LIBS}\""))
(define inc-dir
(shell "includedir=\"${prefix}/include\"
echo \"${includedir}\""))
(define lib-dir
(shell "libdir=\"${prefix}/lib/x86_64-linux-gnu\"
echo \"${libdir}\""))
(define package
(shell "PACKAGE_TARNAME=\"autogen\"
echo \"${PACKAGE_TARNAME}\""))
(define data-root-dir
(shell "datarootdir=\"${prefix}/share\"
echo \"${datarootdir}\""))
(define data-dir
(shell "datadir=\"${datarootdir}\"
echo \"${datadir}\""))
(define grep-prog
(shell "GREP=\"/bin/grep\"
echo \"${GREP}\""))
(define egrep-prog
(shell "EGREP=\"/bin/grep -E\"
echo \"${EGREP}\""))
(define fgrep-prog
(shell "FGREP=\"/bin/grep -F\"
echo \"${FGREP}\""))
(define pkgdatadir (shell "echo \"${datadir}/${package}\""))
(setenv "SHELL" "/bin/bash")
(define extension-defines
"")
* * * * LOG ENTRY 4 * * * *
cd /home/nmav/cvs/ocserv/src
prefix="/usr"
echo "${prefix}"
echo
echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 4
>ag> cd /home/nmav/cvs/ocserv/src
>ag> prefix=/usr
>ag> echo /usr
>ag> echo
>ag> echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 4
= = = RESULT 5 bytes:
/usrShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 4
= = = = = = = = = = = = = = =
* * * * LOG ENTRY 5 * * * *
cd /home/nmav/cvs/ocserv/src
exec_prefix="${prefix}"
echo "${exec_prefix}"
echo
echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 5
>ag> cd /home/nmav/cvs/ocserv/src
>ag> exec_prefix=/usr
>ag> echo /usr
>ag> echo
>ag> echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 5
= = = RESULT 5 bytes:
/usrShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 5
= = = = = = = = = = = = = = =
* * * * LOG ENTRY 6 * * * *
cd /home/nmav/cvs/ocserv/src
bindir="${exec_prefix}/bin"
echo "${bindir}"
echo
echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 6
>ag> cd /home/nmav/cvs/ocserv/src
>ag> bindir=/usr/bin
>ag> echo /usr/bin
>ag> echo
>ag> echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 6
= = = RESULT 9 bytes:
/usr/binShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 6
= = = = = = = = = = = = = = =
* * * * LOG ENTRY 7 * * * *
cd /home/nmav/cvs/ocserv/src
LIBS="-lm -ldl "
echo "${LIBS}"
echo
echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 7
>ag> cd /home/nmav/cvs/ocserv/src
>ag> LIBS='-lm -ldl '
>ag> echo '-lm -ldl '
>ag> echo
>ag> echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 7
= = = RESULT 9 bytes:
-lm -ldlShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 7
= = = = = = = = = = = = = = =
* * * * LOG ENTRY 8 * * * *
cd /home/nmav/cvs/ocserv/src
includedir="${prefix}/include"
echo "${includedir}"
echo
echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 8
>ag> cd /home/nmav/cvs/ocserv/src
>ag> includedir=/usr/include
>ag> echo /usr/include
>ag> echo
>ag> echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 8
= = = RESULT 13 bytes:
/usr/includeShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 8
= = = = = = = = = = = = = = =
* * * * LOG ENTRY 9 * * * *
cd /home/nmav/cvs/ocserv/src
libdir="${prefix}/lib/x86_64-linux-gnu"
echo "${libdir}"
echo
echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 9
>ag> cd /home/nmav/cvs/ocserv/src
>ag> libdir=/usr/lib/x86_64-linux-gnu
>ag> echo /usr/lib/x86_64-linux-gnu
>ag> echo
>ag> echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 9
= = = RESULT 26 bytes:
/usr/lib/x86_64-linux-gnuShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 9
= = = = = = = = = = = = = = =
* * * * LOG ENTRY 10 * * * *
cd /home/nmav/cvs/ocserv/src
PACKAGE_TARNAME="autogen"
echo "${PACKAGE_TARNAME}"
echo
echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 10
>ag> cd /home/nmav/cvs/ocserv/src
>ag> PACKAGE_TARNAME=autogen
>ag> echo autogen
>ag> echo
>ag> echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 10
= = = RESULT 8 bytes:
autogenShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 10
= = = = = = = = = = = = = = =
* * * * LOG ENTRY 11 * * * *
cd /home/nmav/cvs/ocserv/src
datarootdir="${prefix}/share"
echo "${datarootdir}"
echo
echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 11
>ag> cd /home/nmav/cvs/ocserv/src
>ag> datarootdir=/usr/share
>ag> echo /usr/share
>ag> echo
>ag> echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 11
= = = RESULT 11 bytes:
/usr/shareShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 11
= = = = = = = = = = = = = = =
* * * * LOG ENTRY 12 * * * *
cd /home/nmav/cvs/ocserv/src
datadir="${datarootdir}"
echo "${datadir}"
echo
echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 12
>ag> cd /home/nmav/cvs/ocserv/src
>ag> datadir=/usr/share
>ag> echo /usr/share
>ag> echo
>ag> echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 12
= = = RESULT 11 bytes:
/usr/shareShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 12
= = = = = = = = = = = = = = =
* * * * LOG ENTRY 13 * * * *
cd /home/nmav/cvs/ocserv/src
GREP="/bin/grep"
echo "${GREP}"
echo
echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 13
>ag> cd /home/nmav/cvs/ocserv/src
>ag> GREP=/bin/grep
>ag> echo /bin/grep
>ag> echo
>ag> echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 13
= = = RESULT 10 bytes:
/bin/grepShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 13
= = = = = = = = = = = = = = =
* * * * LOG ENTRY 14 * * * *
cd /home/nmav/cvs/ocserv/src
EGREP="/bin/grep -E"
echo "${EGREP}"
echo
echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 14
>ag> cd /home/nmav/cvs/ocserv/src
>ag> EGREP='/bin/grep -E'
>ag> echo '/bin/grep -E'
>ag> echo
>ag> echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 14
= = = RESULT 13 bytes:
/bin/grep -EShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 14
= = = = = = = = = = = = = = =
* * * * LOG ENTRY 15 * * * *
cd /home/nmav/cvs/ocserv/src
FGREP="/bin/grep -F"
echo "${FGREP}"
echo
echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 15
>ag> cd /home/nmav/cvs/ocserv/src
>ag> FGREP='/bin/grep -F'
>ag> echo '/bin/grep -F'
>ag> echo
>ag> echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 15
= = = RESULT 13 bytes:
/bin/grep -FShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 15
= = = = = = = = = = = = = = =
* * * * LOG ENTRY 16 * * * *
cd /home/nmav/cvs/ocserv/src
echo "${datadir}/${package}"
echo
echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 16
>ag> cd /home/nmav/cvs/ocserv/src
>ag> echo /usr/share/
>ag> echo
>ag> echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 16
= = = RESULT 12 bytes:
/usr/share/ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 16
= = = = = = = = = = = = = = =
INVOKE (12) in /usr/share/autogen/options.tpl at line 43
init-and-validate
Template macro init-and-validate invoked with 0 args
from /usr/share/autogen/options.tpl line 43
EXPR ( E) in /usr/share/autogen/optlib.tlib at line 29
(if (not (exist? "flag.name"))
eval from file /usr/share/autogen/optlib.tlib line 29:
(if (not (exist? "flag.name"))
(error "No options have been defined" ))
(if (> (count "flag") 100)
(error (sprintf "%d options are too many - limit of 100"
(count "flag")) ))
(if (not (and (exist? "prog-name") (exist? "prog-title")))
(error "prog-name and prog-title are required"))
(define prog-name (get "prog-name"))
(if (> (string-length prog-name) 16)
(error (sprintf "prog-name limited to 16 characters: %s"
prog-name)) )
(make-tmp-dir)
(define have-proc #f)
(define proc-name "")
(define test-name "")
(define tmp-text "")
(define is-extern #t)
(define is-lib-cb #f)
(define have-cb-procs (make-hash-table 31))
(define is-ext-cb-proc (make-hash-table 31))
(define is-lib-cb-proc (make-hash-table 31))
(define cb-proc-name (make-hash-table 31))
(define test-proc-name (make-hash-table 31))
(define disable-name (make-hash-table 31))
(define disable-prefix (make-hash-table 31))
(define ifdef-ed (make-hash-table 31))
(define tmp-ct 0)
(define extract-fmt "\n/* extracted from %s near line %d */\n")
(define make-callback-procs #f)
(define omit-nls-code (~ (get "no-xlate") "(any|no)thing"))
(define xlate-desc-p (and (not omit-nls-code) (not (exist? "full-usage"))))
(define alt-value-idx 4096)
(define get-value-idx (lambda() (begin
(set! alt-value-idx (+ 1 alt-value-idx))
(sprintf "0x%X" alt-value-idx ))))
(define have-noret-funcs
(or (exist? "usage-message") (exist? "die-code")) )
(define need-stacking (lambda()
(if (not (exist? "max"))
#f
(> (string->number (get "max")) 1)
) ) )
(define get-text (lambda (nm) (shell
"{ sed 's/@[a-z]*{\\([^}]*\\)}/\\1/g' | "
"${CLexe} --fill -I0 -W72\n}<<\\_EODesc_\n"
(get nm) "\n_EODesc_" )))
(define do-ifdefs (or (exist? "flag.ifdef") (exist? "flag.ifndef")))
;; IF long options are disallowed
;; AND at least one flag character (value) is supplied
;; THEN every option must have a 'value' attribute
;;
(define flag-options-only
(and (not (exist? "long-opts")) (exist? "flag.value")))
(if (exist? "vendor-opt") (begin
;; except the 'vendor-opt' attribute allows long options that do
;; not have flag values, but it conflicts with 'long-opts' and requires
;; at least one 'flag.value'
;;
(if (or (exist? "long-opts") (not (exist? "flag.value")))
(error "'vendor-opt' and 'long-opts' conflict. flag values required")
(set! flag-options-only #f))
(if (exist? "library")
(error "'vendor-opt' conflicts with 'library'"))
) )
(if (and (exist? "reorder-args") (not (exist? "argument")) )
(error
"Reordering arguments requires operands (the 'argument' attribute)"))
(if (and flag-options-only (exist? "flag.disable"))
(error "options can be disabled only with a long option name"))
(if (exist? "flag.extract-code")
(shellf "f=%s.c ; test -s $f && mv -f $f $f.save"
(base-name)))
(if (and (exist? "usage") (exist? "gnu-usage"))
(error "'usage' and 'gnu-usage' conflict." ))
(if (> (count "flag.default") 1)
(error "Too many default options"))
(if (exist? "library") (begin
(if (not (exist? "flag[0].documentation")) (error
"The first option of a library must be a documentation option"))
(if (not (exist? "flag[0].lib-name"))
(error "The first option of a library must specify 'lib-name'"))
(if (< 1 (count "flag.lib-name"))
(error "a library must only have one 'flag.lib-name'"))
) )
(if (exist? "main") (begin
(if (> (count "main") 1)
(error "too many main procedures"))
(if (not (exist? "main.main-type"))
(error "main procedure does not have a type") ) ))
;; Establish a number of variations on the spelling of the
;; program name. Use these Scheme defined values throughout.
;;
(define pname (get-c-name "prog-name"))
(define pname-cap (string-capitalize pname))
(define pname-up (string-upcase pname))
(define pname-down (string-downcase pname))
(define number-opt-index -1)
(define default-opt-index -1)
(define guarded-test-main (or (exist? "test-main")
(string? (getenv "TEST_MAIN"))))
(if guarded-test-main
(warn "'test-main' is obsolete and should not be used any more. Use
'main'."))
(define main-guard (string-append "TEST_" pname-up "_OPTS" ))
(define make-main-proc
(if (exist? "main")
(~~ (get "main[].main-type" "") "shell-process|shell-parser|main")
guarded-test-main ) )
(if (not make-main-proc) (set! guarded-test-main #f))
(define descriptor "")
(define opt-name "")
(define tmp-val "")
(define added-hdr "")
(define flg-name "")
(define UP-name "")
(define cap-name "")
(define low-name "")
(define enum-pfx "")
(define set-flag-names (lambda () (begin
(set! flg-name (get "name"))
(set! UP-name (get-up-name "name"))
(set! cap-name (string-capitalize UP-name ))
(set! low-name (string-downcase UP-name ))
(set! enum-pfx (if (exist? ".prefix-enum")
(string-append (get-up-name "prefix-enum") "_")
(string-append UP-prefix UP-name "_") ))
) ) )
(define UP-prefix "")
(define lc-prefix "")
(define Cap-prefix "")
(define OPT-pfx "OPT_")
(define INDEX-pfx "INDEX_OPT_")
(define VALUE-pfx "VALUE_OPT_")
(if (exist? "prefix")
(begin
(set! UP-prefix (string-append (get-up-name "prefix") "_"))
(set! lc-prefix (string-downcase UP-prefix))
(set! Cap-prefix (string-capitalize UP-prefix))
(set! OPT-pfx (string-append UP-prefix "OPT_"))
(set! INDEX-pfx (string-append "INDEX_" OPT-pfx))
(set! VALUE-pfx (string-append "VALUE_" OPT-pfx))
) )
(define cap-c-name (lambda (ag-name)
(string-capitalize! (get-c-name ag-name)) ))
(define index-name (lambda (i-name)
(string-append INDEX-pfx (get-up-name i-name)) ))
(define optname-from "A-Z_^")
(define optname-to "a-z--")
(if (exist? "preserve-case")
(begin
(set! optname-from "_^")
(set! optname-to "--")
) )
(define version-text (string-append prog-name
(if (exist? "package")
(string-append " (" (get "package") ")")
"" )
(if (exist? "version")
(string-append " " (get "version"))
"" ) ))
(if (exist? "flag.value")
(shellf "
list=`echo '%s' | sort`
ulst=`echo \"${list}\" | sort -u`
test `echo \"${ulst}\" | wc -l` -ne %d && {
echo \"${list}\" > ${tmp_dir}/sort
echo \"${ulst}\" > ${tmp_dir}/uniq
df=`diff ${tmp_dir}/sort ${tmp_dir}/uniq | sed -n 's/< *//p'`
die 'duplicate option value characters:' ${df}
}"
(join "\n" (stack "flag.value"))
(count "flag.value") ) )
(define temp-idx 0)
(define no-flag-ct 0)
(define lib-opt-ptr "")
(define max-name-len 10)
* * * * LOG ENTRY 17 * * * *
cd /home/nmav/cvs/ocserv/src
mk_tmp_dir ; echo ${tmp_dir}/ag-XXXXXX
echo
echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 17
>ag> cd /home/nmav/cvs/ocserv/src
>ag> mk_tmp_dir
>mk_tmp_dir> test -d ''
>>>mk_tmp_dir> mktemp -d /tmp/.ag-XXXXXX
>>mk_tmp_dir> t=/tmp/.ag-QGM83s
>>mk_tmp_dir> test -d /tmp/.ag-QGM83s
>>mk_tmp_dir> chmod 700 /tmp/.ag-QGM83s
>>mk_tmp_dir> echo /tmp/.ag-QGM83s
>mk_tmp_dir> tmp_dir=/tmp/.ag-QGM83s
>ag> echo /tmp/.ag-QGM83s/ag-XXXXXX
>ag> echo
>ag> echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 17
= = = RESULT 26 bytes:
/tmp/.ag-QGM83s/ag-XXXXXXShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 17
= = = = = = = = = = = = = = =
eval from file expOutput.c line 583:
(set! tmp-dir "/tmp/.ag-QGM83s")
(add-cleanup "test \"${VERBOSE:-false}\" = true || rm -rf /tmp/.ag-QGM83s")
* * * * LOG ENTRY 18 * * * *
cd /home/nmav/cvs/ocserv/src
list=`echo 'c
g
d
l
u' | sort`
ulst=`echo "${list}" | sort -u`
test `echo "${ulst}" | wc -l` -ne 5 && {
echo "${list}" > ${tmp_dir}/sort
echo "${ulst}" > ${tmp_dir}/uniq
df=`diff ${tmp_dir}/sort ${tmp_dir}/uniq | sed -n 's/< *//p'`
die 'duplicate option value characters:' ${df}
}
echo
echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 18
>ag> cd /home/nmav/cvs/ocserv/src
>>ag> echo 'c
g
d
l
u'
>>ag> sort
>ag> list='c
d
g
l
u'
>>ag> echo 'c
d
g
l
u'
>>ag> sort -u
>ag> ulst='c
d
g
l
u'
>>ag> echo 'c
d
g
l
u'
>>ag> wc -l
>ag> test 5 -ne 5
>ag> echo
>ag> echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 18
= = = RESULT 1 bytes:
ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 18
= = = = = = = = = = = = = = =
FOR ( F) in /usr/share/autogen/optlib.tlib at line 238
FOR flag loop in /usr/share/autogen/optlib.tlib on line 238 begins:
- FOR-each flag[0] it#0: Nxt 1, first=yes, last=no
EXPR ( E) in /usr/share/autogen/optlib.tlib at line 240
(set! tmp-ct (len "name"))
eval from file /usr/share/autogen/optlib.tlib line 240:
(set! tmp-ct (len "name"))
(if (> tmp-ct 32)
(error (sprintf "Option %d name exceeds 32 characters: %s"
(for-index) (get "name")) ))
(if (> tmp-ct max-name-len)
(set! max-name-len tmp-ct))
(if (exist? "value")
(if (< 1 (count "value"))
(error (sprintf "Option %s has too many `value's" (get "name"))))
(set! no-flag-ct (+ 1 no-flag-ct))
)
(if (and flag-options-only
(not (exist? "documentation"))
(not (exist? "value")))
(error (sprintf "Option %s needs a `value' attribute" (get "name"))))
(set! tmp-val
(+ (if (exist? "call-proc") 1 0)
(if (exist? "extract-code") 1 0)
(if (exist? "flag-proc") 1 0)
(if (exist? "unstack-arg") 1 0)
(if (exist? "stack-arg") 1 0) ))
;; IF there is one of the above callback proc types AND there is an
;; option argument of type non-string, THEN oops. Conflict.
;;
(if (and (> tmp-val 0) (exist? "arg-type")
(not (=* (get "arg-type") "str")) )
(error (sprintf
"Option %s has a %s argument and a callback procedure"
(get "name") (get "arg-type") )
) )
;; Count up the ways a callback procedure was specified. Must be 0 or 1
;;
(if (< 1 (+ (if (exist? "arg-range") 1 0)
(if (~* (get "arg-type") "key|set") 1 0) tmp-val))
(error (sprintf "Option %s has multiple callback specifications"
(get "name")) ))
(if (< 1 (+ (count "ifdef") (count "ifndef") ))
(error (sprintf "Option %s has multiple 'ifdef-es'" (get "name") )) )
(if (and (exist? "stack-arg") (not (exist? "arg-type")))
(error (sprintf "Option %s has stacked args, but no arg-type"
(get "name"))))
(if (and (exist? "min") (exist? "must-set"))
(error (sprintf "Option %s has both 'min' and 'must-set' attributes"
(get "name"))))
(if (and (exist? "omitted-usage")
(not (exist? "ifdef"))
(not (exist? "ifndef")) )
(error (string-append "Option " (get "name") " has 'omitted-usage' "
"but neither 'ifdef' nor 'ifndef'" )) )
(if (and (exist? "equivalence")
(exist? "aliases"))
(error (string-append "Option " (get "name") " has both "
"'equivalence' and 'aliases'" )) )
(if (exist? "lib-name")
(set! lib-opt-ptr (string->c-name! (string-append
(get "lib-name") "_" (get "name") "_optDesc_p"))) )
- FOR-each flag[1] it#1: Nxt 2, first=no, last=no
EXPR ( E) in /usr/share/autogen/optlib.tlib at line 240
(set! tmp-ct (len "name"))
eval from file /usr/share/autogen/optlib.tlib line 240:
(set! tmp-ct (len "name"))
(if (> tmp-ct 32)
(error (sprintf "Option %d name exceeds 32 characters: %s"
(for-index) (get "name")) ))
(if (> tmp-ct max-name-len)
(set! max-name-len tmp-ct))
(if (exist? "value")
(if (< 1 (count "value"))
(error (sprintf "Option %s has too many `value's" (get "name"))))
(set! no-flag-ct (+ 1 no-flag-ct))
)
(if (and flag-options-only
(not (exist? "documentation"))
(not (exist? "value")))
(error (sprintf "Option %s needs a `value' attribute" (get "name"))))
(set! tmp-val
(+ (if (exist? "call-proc") 1 0)
(if (exist? "extract-code") 1 0)
(if (exist? "flag-proc") 1 0)
(if (exist? "unstack-arg") 1 0)
(if (exist? "stack-arg") 1 0) ))
;; IF there is one of the above callback proc types AND there is an
;; option argument of type non-string, THEN oops. Conflict.
;;
(if (and (> tmp-val 0) (exist? "arg-type")
(not (=* (get "arg-type") "str")) )
(error (sprintf
"Option %s has a %s argument and a callback procedure"
(get "name") (get "arg-type") )
) )
;; Count up the ways a callback procedure was specified. Must be 0 or 1
;;
(if (< 1 (+ (if (exist? "arg-range") 1 0)
(if (~* (get "arg-type") "key|set") 1 0) tmp-val))
(error (sprintf "Option %s has multiple callback specifications"
(get "name")) ))
(if (< 1 (+ (count "ifdef") (count "ifndef") ))
(error (sprintf "Option %s has multiple 'ifdef-es'" (get "name") )) )
(if (and (exist? "stack-arg") (not (exist? "arg-type")))
(error (sprintf "Option %s has stacked args, but no arg-type"
(get "name"))))
(if (and (exist? "min") (exist? "must-set"))
(error (sprintf "Option %s has both 'min' and 'must-set' attributes"
(get "name"))))
(if (and (exist? "omitted-usage")
(not (exist? "ifdef"))
(not (exist? "ifndef")) )
(error (string-append "Option " (get "name") " has 'omitted-usage' "
"but neither 'ifdef' nor 'ifndef'" )) )
(if (and (exist? "equivalence")
(exist? "aliases"))
(error (string-append "Option " (get "name") " has both "
"'equivalence' and 'aliases'" )) )
(if (exist? "lib-name")
(set! lib-opt-ptr (string->c-name! (string-append
(get "lib-name") "_" (get "name") "_optDesc_p"))) )
- FOR-each flag[2] it#2: Nxt 3, first=no, last=no
EXPR ( E) in /usr/share/autogen/optlib.tlib at line 240
(set! tmp-ct (len "name"))
eval from file /usr/share/autogen/optlib.tlib line 240:
(set! tmp-ct (len "name"))
(if (> tmp-ct 32)
(error (sprintf "Option %d name exceeds 32 characters: %s"
(for-index) (get "name")) ))
(if (> tmp-ct max-name-len)
(set! max-name-len tmp-ct))
(if (exist? "value")
(if (< 1 (count "value"))
(error (sprintf "Option %s has too many `value's" (get "name"))))
(set! no-flag-ct (+ 1 no-flag-ct))
)
(if (and flag-options-only
(not (exist? "documentation"))
(not (exist? "value")))
(error (sprintf "Option %s needs a `value' attribute" (get "name"))))
(set! tmp-val
(+ (if (exist? "call-proc") 1 0)
(if (exist? "extract-code") 1 0)
(if (exist? "flag-proc") 1 0)
(if (exist? "unstack-arg") 1 0)
(if (exist? "stack-arg") 1 0) ))
;; IF there is one of the above callback proc types AND there is an
;; option argument of type non-string, THEN oops. Conflict.
;;
(if (and (> tmp-val 0) (exist? "arg-type")
(not (=* (get "arg-type") "str")) )
(error (sprintf
"Option %s has a %s argument and a callback procedure"
(get "name") (get "arg-type") )
) )
;; Count up the ways a callback procedure was specified. Must be 0 or 1
;;
(if (< 1 (+ (if (exist? "arg-range") 1 0)
(if (~* (get "arg-type") "key|set") 1 0) tmp-val))
(error (sprintf "Option %s has multiple callback specifications"
(get "name")) ))
(if (< 1 (+ (count "ifdef") (count "ifndef") ))
(error (sprintf "Option %s has multiple 'ifdef-es'" (get "name") )) )
(if (and (exist? "stack-arg") (not (exist? "arg-type")))
(error (sprintf "Option %s has stacked args, but no arg-type"
(get "name"))))
(if (and (exist? "min") (exist? "must-set"))
(error (sprintf "Option %s has both 'min' and 'must-set' attributes"
(get "name"))))
(if (and (exist? "omitted-usage")
(not (exist? "ifdef"))
(not (exist? "ifndef")) )
(error (string-append "Option " (get "name") " has 'omitted-usage' "
"but neither 'ifdef' nor 'ifndef'" )) )
(if (and (exist? "equivalence")
(exist? "aliases"))
(error (string-append "Option " (get "name") " has both "
"'equivalence' and 'aliases'" )) )
(if (exist? "lib-name")
(set! lib-opt-ptr (string->c-name! (string-append
(get "lib-name") "_" (get "name") "_optDesc_p"))) )
'get arg-type' retrieved in no value at all line 12207568
- FOR-each flag[3] it#3: Nxt 4, first=no, last=no
EXPR ( E) in /usr/share/autogen/optlib.tlib at line 240
(set! tmp-ct (len "name"))
eval from file /usr/share/autogen/optlib.tlib line 240:
(set! tmp-ct (len "name"))
(if (> tmp-ct 32)
(error (sprintf "Option %d name exceeds 32 characters: %s"
(for-index) (get "name")) ))
(if (> tmp-ct max-name-len)
(set! max-name-len tmp-ct))
(if (exist? "value")
(if (< 1 (count "value"))
(error (sprintf "Option %s has too many `value's" (get "name"))))
(set! no-flag-ct (+ 1 no-flag-ct))
)
(if (and flag-options-only
(not (exist? "documentation"))
(not (exist? "value")))
(error (sprintf "Option %s needs a `value' attribute" (get "name"))))
(set! tmp-val
(+ (if (exist? "call-proc") 1 0)
(if (exist? "extract-code") 1 0)
(if (exist? "flag-proc") 1 0)
(if (exist? "unstack-arg") 1 0)
(if (exist? "stack-arg") 1 0) ))
;; IF there is one of the above callback proc types AND there is an
;; option argument of type non-string, THEN oops. Conflict.
;;
(if (and (> tmp-val 0) (exist? "arg-type")
(not (=* (get "arg-type") "str")) )
(error (sprintf
"Option %s has a %s argument and a callback procedure"
(get "name") (get "arg-type") )
) )
;; Count up the ways a callback procedure was specified. Must be 0 or 1
;;
(if (< 1 (+ (if (exist? "arg-range") 1 0)
(if (~* (get "arg-type") "key|set") 1 0) tmp-val))
(error (sprintf "Option %s has multiple callback specifications"
(get "name")) ))
(if (< 1 (+ (count "ifdef") (count "ifndef") ))
(error (sprintf "Option %s has multiple 'ifdef-es'" (get "name") )) )
(if (and (exist? "stack-arg") (not (exist? "arg-type")))
(error (sprintf "Option %s has stacked args, but no arg-type"
(get "name"))))
(if (and (exist? "min") (exist? "must-set"))
(error (sprintf "Option %s has both 'min' and 'must-set' attributes"
(get "name"))))
(if (and (exist? "omitted-usage")
(not (exist? "ifdef"))
(not (exist? "ifndef")) )
(error (string-append "Option " (get "name") " has 'omitted-usage' "
"but neither 'ifdef' nor 'ifndef'" )) )
(if (and (exist? "equivalence")
(exist? "aliases"))
(error (string-append "Option " (get "name") " has both "
"'equivalence' and 'aliases'" )) )
(if (exist? "lib-name")
(set! lib-opt-ptr (string->c-name! (string-append
(get "lib-name") "_" (get "name") "_optDesc_p"))) )
'get arg-type' retrieved in no value at all line 12207568
- FOR-each flag[4] it#4: Nxt 5, first=no, last=yes
EXPR ( E) in /usr/share/autogen/optlib.tlib at line 240
(set! tmp-ct (len "name"))
eval from file /usr/share/autogen/optlib.tlib line 240:
(set! tmp-ct (len "name"))
(if (> tmp-ct 32)
(error (sprintf "Option %d name exceeds 32 characters: %s"
(for-index) (get "name")) ))
(if (> tmp-ct max-name-len)
(set! max-name-len tmp-ct))
(if (exist? "value")
(if (< 1 (count "value"))
(error (sprintf "Option %s has too many `value's" (get "name"))))
(set! no-flag-ct (+ 1 no-flag-ct))
)
(if (and flag-options-only
(not (exist? "documentation"))
(not (exist? "value")))
(error (sprintf "Option %s needs a `value' attribute" (get "name"))))
(set! tmp-val
(+ (if (exist? "call-proc") 1 0)
(if (exist? "extract-code") 1 0)
(if (exist? "flag-proc") 1 0)
(if (exist? "unstack-arg") 1 0)
(if (exist? "stack-arg") 1 0) ))
;; IF there is one of the above callback proc types AND there is an
;; option argument of type non-string, THEN oops. Conflict.
;;
(if (and (> tmp-val 0) (exist? "arg-type")
(not (=* (get "arg-type") "str")) )
(error (sprintf
"Option %s has a %s argument and a callback procedure"
(get "name") (get "arg-type") )
) )
;; Count up the ways a callback procedure was specified. Must be 0 or 1
;;
(if (< 1 (+ (if (exist? "arg-range") 1 0)
(if (~* (get "arg-type") "key|set") 1 0) tmp-val))
(error (sprintf "Option %s has multiple callback specifications"
(get "name")) ))
(if (< 1 (+ (count "ifdef") (count "ifndef") ))
(error (sprintf "Option %s has multiple 'ifdef-es'" (get "name") )) )
(if (and (exist? "stack-arg") (not (exist? "arg-type")))
(error (sprintf "Option %s has stacked args, but no arg-type"
(get "name"))))
(if (and (exist? "min") (exist? "must-set"))
(error (sprintf "Option %s has both 'min' and 'must-set' attributes"
(get "name"))))
(if (and (exist? "omitted-usage")
(not (exist? "ifdef"))
(not (exist? "ifndef")) )
(error (string-append "Option " (get "name") " has 'omitted-usage' "
"but neither 'ifdef' nor 'ifndef'" )) )
(if (and (exist? "equivalence")
(exist? "aliases"))
(error (string-append "Option " (get "name") " has both "
"'equivalence' and 'aliases'" )) )
(if (exist? "lib-name")
(set! lib-opt-ptr (string->c-name! (string-append
(get "lib-name") "_" (get "name") "_optDesc_p"))) )
'get arg-type' retrieved in no value at all line 12207568
FOR flag repeated 5 times
from /usr/share/autogen/optlib.tlib line 238
EXPR ( E) in /usr/share/autogen/optlib.tlib at line 312
= no-flag-ct 0))
eval from file /usr/share/autogen/optlib.tlib line 312:
(if (and (exist? "vendor-opt") (= no-flag-ct 0))
(error "'vendor-opt' requires that there be options without flag values"))
(define opt-strs (string-append pname "_opt_strs"))
(string-table-new opt-strs)
(out-push-new) (out-suspend "home-list")
(if (not omit-nls-code) (begin
(out-push-new)
(out-suspend "xget")
) )
(define field-name-fmt (string-append
"\n /* referenced via " pname "Options.%s */\n"))
(define put-xget (lambda (nm st) (begin
(out-resume "xget")
(ag-fprintf 0 field-name-fmt nm)
(mk-gettextable st)
(out-suspend "xget")
) ) )
ag_scm_out_push_new -- temp file in-mem file
ag_scm_out_suspend in-mem file as 'ocpasswd_opt_strs'
ag_scm_out_push_new -- temp file in-mem file
ag_scm_out_suspend in-mem file as 'home-list'
ag_scm_out_push_new -- temp file in-mem file
ag_scm_out_suspend in-mem file as 'xget'
INVOKE (12) in /usr/share/autogen/options.tpl at line 44
option-copyright
Template macro option-copyright invoked with 0 args
from /usr/share/autogen/options.tpl line 44
Text (15) in /usr/share/autogen/optlib.tlib at line 552
EXPR ( E) in /usr/share/autogen/optlib.tlib at line 554
(. ao-version)
eval from file /usr/share/autogen/optlib.tlib line 554:
(. ao-version)
Text (15) in /usr/share/autogen/optlib.tlib at line 554
templates.
EXPR ( E) in /usr/share/autogen/optlib.tlib at line 557
ource")
eval from file /usr/share/autogen/optlib.tlib line 557:
(if (= "h" (suffix)) "header" "source")
Text (15) in /usr/share/autogen/optlib.tlib at line 557
file is not encumbered
Unknown (16) in /usr/share/autogen/optlib.tlib at line 559
remapped to 'Expr' (16) in /usr/share/autogen/optlib.tlib at line 559
based on prog-name
Text (15) in /usr/share/autogen/optlib.tlib at line 559
toOpts is
IF (10) in /usr/share/autogen/optlib.tlib at line 565
(exist? "copyright")
eval from file /usr/share/autogen/optlib.tlib line 565:
(exist? "copyright")
IF expression `(exist? "copyright")' on line 565 yielded true
from /usr/share/autogen/optlib.tlib line 565
Text (15) in /usr/share/autogen/optlib.tlib at line 565
Unknown (16) in /usr/share/autogen/optlib.tlib at line 567
remapped to 'Expr' (16) in /usr/share/autogen/optlib.tlib at line 567
based on prog-name
Text (15) in /usr/share/autogen/optlib.tlib at line 567
nsed
CASE ( 2) in /usr/share/autogen/optlib.tlib at line 571
CASE no match: `gplv2' COMPARE_FULL vs. `'
CASE no match: `gplv2' EQUIVALENT_FULL vs. `note'
CASE string `gplv2' MATCH_ALWAYS matched `'
from /usr/share/autogen/optlib.tlib line 579
EXPR ( E) in /usr/share/autogen/optlib.tlib at line 579
pe") prog-name " * "
eval from file /usr/share/autogen/optlib.tlib line 579:
(license-full (get "copyright.type") prog-name " * "
(get "copyright.owner") (get "copyright.date"))
Text (15) in /usr/share/autogen/optlib.tlib at line 582
IF (10) in /usr/share/autogen/optlib.tlib at line 586
(exist? "addtogroup")
eval from file /usr/share/autogen/optlib.tlib line 586:
(exist? "addtogroup")
IF `(exist? "addtogroup")' macro selected no clause
from /usr/share/autogen/optlib.tlib line 586
INCLUDE (11) in /usr/share/autogen/options.tpl at line 45
opthead.tlib
marker '[=' loaded
marker '=]' loaded
Defining macro emit-program-externs from /usr/share/autogen/opthead.tlib
Defining macro emit-exit-codes from /usr/share/autogen/opthead.tlib
Defining macro emit-opt-values from /usr/share/autogen/opthead.tlib
Defining macro emit-option-guards from /usr/share/autogen/opthead.tlib
Defining macro set-std-value from /usr/share/autogen/opthead.tlib
Defining macro join-or-expand from /usr/share/autogen/opthead.tlib
Defining macro nls-header-code from /usr/share/autogen/opthead.tlib
Template /usr/share/autogen/opthead.tlib included
from /usr/share/autogen/opthead.tlib line 45
Text (15) in /usr/share/autogen/opthead.tlib at line 24
/**
Unknown (16) in /usr/share/autogen/opthead.tlib at line 26
remapped to 'Expr' (16) in /usr/share/autogen/opthead.tlib at line 26
based on prog-name
Text (15) in /usr/share/autogen/opthead.tlib at line 26
program.
EXPR ( E) in /usr/share/autogen/opthead.tlib at line 31
ts"))
eval from file /usr/share/autogen/opthead.tlib line 31:
(emit (make-header-guard "autoopts"))
(if (exist? "config-header")
(ag-fprintf 0 "\n#include \"%s\"" (get "config-header")) )
(emit "\n#include <autoopts/options.h>\n")
(if have-noret-funcs (begin
(emit "#include <stdarg.h>\n")
(if (exist? "no-return")
(emit "#include <stdnoreturn.h>\n"))
) )
(define option-ct 0)
(define index-sep-str "")
(set! max-name-len (+ max-name-len 2))
(define index-fmt (sprintf "%%s\n %s%%-%ds=%%3d" INDEX-pfx max-name-len))
(define add-opt-index (lambda (opt-nm) (begin
(ag-fprintf 0 index-fmt index-sep-str opt-nm option-ct)
(set! option-ct (+ option-ct 1))
(set! index-sep-str ",")
) ) )
eval from file expOutput.c line 934:
(define header-file "ocpasswd-args.h") (define header-guard
"AUTOOPTS_OCPASSWD_ARGS_H_GUARD")
IF (10) in /usr/share/autogen/opthead.tlib at line 55
(not (exist? "library"))
eval from file /usr/share/autogen/opthead.tlib line 55:
(not (exist? "library"))
IF expression `(not (exist? "library"))' on line 55 yielded true
from /usr/share/autogen/opthead.tlib line 55
Text (15) in /usr/share/autogen/opthead.tlib at line 55
EXPR ( E) in /usr/share/autogen/opthead.tlib at line 63
(. ao-template-ver)
eval from file /usr/share/autogen/opthead.tlib line 63:
(. ao-template-ver)
Text (15) in /usr/share/autogen/opthead.tlib at line 63
Text (15) in /usr/share/autogen/opthead.tlib at line 69
Unknown (16) in /usr/share/autogen/opthead.tlib at line 71
remapped to 'Expr' (16) in /usr/share/autogen/opthead.tlib at line 71
based on prog-name
Text (15) in /usr/share/autogen/opthead.tlib at line 71
FOR ( F) in /usr/share/autogen/opthead.tlib at line 74
FOR flag loop in /usr/share/autogen/opthead.tlib on line 74 begins:
- FOR-each flag[0] it#0: Nxt 1, first=yes, last=no
EXPR ( E) in /usr/share/autogen/opthead.tlib at line 75
(if (exist? "documentation")
eval from file /usr/share/autogen/opthead.tlib line 75:
(if (exist? "documentation")
(set! option-ct (+ option-ct 1))
(add-opt-index (get-up-name "name"))
)
- FOR-each flag[1] it#1: Nxt 2, first=no, last=no
EXPR ( E) in /usr/share/autogen/opthead.tlib at line 75
(if (exist? "documentation")
eval from file /usr/share/autogen/opthead.tlib line 75:
(if (exist? "documentation")
(set! option-ct (+ option-ct 1))
(add-opt-index (get-up-name "name"))
)
- FOR-each flag[2] it#2: Nxt 3, first=no, last=no
EXPR ( E) in /usr/share/autogen/opthead.tlib at line 75
(if (exist? "documentation")
eval from file /usr/share/autogen/opthead.tlib line 75:
(if (exist? "documentation")
(set! option-ct (+ option-ct 1))
(add-opt-index (get-up-name "name"))
)
- FOR-each flag[3] it#3: Nxt 4, first=no, last=no
EXPR ( E) in /usr/share/autogen/opthead.tlib at line 75
(if (exist? "documentation")
eval from file /usr/share/autogen/opthead.tlib line 75:
(if (exist? "documentation")
(set! option-ct (+ option-ct 1))
(add-opt-index (get-up-name "name"))
)
- FOR-each flag[4] it#4: Nxt 5, first=no, last=yes
EXPR ( E) in /usr/share/autogen/opthead.tlib at line 75
(if (exist? "documentation")
eval from file /usr/share/autogen/opthead.tlib line 75:
(if (exist? "documentation")
(set! option-ct (+ option-ct 1))
(add-opt-index (get-up-name "name"))
)
FOR flag repeated 5 times
from /usr/share/autogen/opthead.tlib line 74
IF (10) in /usr/share/autogen/opthead.tlib at line 82
(exist? "library")
eval from file /usr/share/autogen/opthead.tlib line 82:
(exist? "library")
IF expression `ELSE clause' on line 85 yielded true
from /usr/share/autogen/opthead.tlib line 82
EXPR ( E) in /usr/share/autogen/opthead.tlib at line 87
(add-opt-index "RESET_OPTION"))
eval from file /usr/share/autogen/opthead.tlib line 87:
(if (exist? "resettable") (add-opt-index "RESET_OPTION"))
(if (exist? "version") (add-opt-index "VERSION"))
(add-opt-index "HELP")
(if (not (exist? "no-libopts")) (add-opt-index "MORE_HELP"))
(if (exist? "usage-opt") (add-opt-index "USAGE"))
(if (exist? "vendor-opt") (add-opt-index "VENDOR_OPT"))
(if (exist? "homerc") (begin
(if (not (exist? "disable-save")) (add-opt-index "SAVE_OPTS"))
(add-opt-index "LOAD_OPTS")
) )
Text (15) in /usr/share/autogen/opthead.tlib at line 98
EXPR ( E) in /usr/share/autogen/opthead.tlib at line 99
(. Cap-prefix)
eval from file /usr/share/autogen/opthead.tlib line 99:
(. Cap-prefix)
Text (15) in /usr/share/autogen/opthead.tlib at line 99
OptIndex;
Unknown (16) in /usr/share/autogen/opthead.tlib at line 100
remapped to 'Expr' (16) in /usr/share/autogen/opthead.tlib at line 100
based on prog-name
Text (15) in /usr/share/autogen/opthead.tlib at line 100
*/
EXPR ( E) in /usr/share/autogen/opthead.tlib at line 101
(. UP-prefix)
eval from file /usr/share/autogen/opthead.tlib line 101:
(. UP-prefix)
Text (15) in /usr/share/autogen/opthead.tlib at line 101
OPTION_CT
EXPR ( E) in /usr/share/autogen/opthead.tlib at line 101
(. option-ct)
eval from file /usr/share/autogen/opthead.tlib line 101:
(. option-ct)
IF (10) in /usr/share/autogen/opthead.tlib at line 102
(exist? "version")
eval from file /usr/share/autogen/opthead.tlib line 102:
(exist? "version")
IF expression `(exist? "version")' on line 102 yielded true
from /usr/share/autogen/opthead.tlib line 102
Text (15) in /usr/share/autogen/opthead.tlib at line 102
Unknown (16) in /usr/share/autogen/opthead.tlib at line 103
remapped to 'Expr' (16) in /usr/share/autogen/opthead.tlib at line 103
based on prog-name
Text (15) in /usr/share/autogen/opthead.tlib at line 103
version */
EXPR ( E) in /usr/share/autogen/opthead.tlib at line 104
(. pname-up)
eval from file /usr/share/autogen/opthead.tlib line 104:
(. pname-up)
Text (15) in /usr/share/autogen/opthead.tlib at line 104
_VERSION
EXPR ( E) in /usr/share/autogen/opthead.tlib at line 104
(c-string (get "version"))
eval from file /usr/share/autogen/opthead.tlib line 104:
(c-string (get "version"))
Text (15) in /usr/share/autogen/opthead.tlib at line 104
Unknown (16) in /usr/share/autogen/opthead.tlib at line 105
remapped to 'Expr' (16) in /usr/share/autogen/opthead.tlib at line 105
based on prog-name
Text (15) in /usr/share/autogen/opthead.tlib at line 105
version text */
EXPR ( E) in /usr/share/autogen/opthead.tlib at line 106
(. pname-up)
eval from file /usr/share/autogen/opthead.tlib line 106:
(. pname-up)
Text (15) in /usr/share/autogen/opthead.tlib at line 106
_FULL_VERSION
EXPR ( E) in /usr/share/autogen/opthead.tlib at line 106
(c-string version-text)
eval from file /usr/share/autogen/opthead.tlib line 106:
(c-string version-text)
Text (15) in /usr/share/autogen/opthead.tlib at line 107
EXPR ( E) in /usr/share/autogen/opthead.tlib at line 111
(. Cap-prefix)
eval from file /usr/share/autogen/opthead.tlib line 111:
(. Cap-prefix)
Text (15) in /usr/share/autogen/opthead.tlib at line 111
OptIndex enumeration above).
EXPR ( E) in /usr/share/autogen/opthead.tlib at line 112
(. UP-prefix)
eval from file /usr/share/autogen/opthead.tlib line 112:
(. UP-prefix)
Text (15) in /usr/share/autogen/opthead.tlib at line 112
OPT(
EXPR ( E) in /usr/share/autogen/opthead.tlib at line 112
(get-up-name "flag[].name")
eval from file /usr/share/autogen/opthead.tlib line 112:
(get-up-name "flag[].name")
Text (15) in /usr/share/autogen/opthead.tlib at line 112
)
IF (10) in /usr/share/autogen/opthead.tlib at line 115
(exist? "library")
eval from file /usr/share/autogen/opthead.tlib line 115:
(exist? "library")
IF `(exist? "library")' macro selected no clause
from /usr/share/autogen/opthead.tlib line 115
CASE ( 2) in /usr/share/autogen/opthead.tlib at line 123
CASE string `' MATCH_NONEXISTENCE matched `'
from /usr/share/autogen/opthead.tlib line 124
EXPR ( E) in /usr/share/autogen/opthead.tlib at line 125
INDEX-pfx "## n]"))
eval from file /usr/share/autogen/opthead.tlib line 125:
(set! tmp-val (string-append "[" INDEX-pfx "## n]"))
EXPR ( E) in /usr/share/autogen/opthead.tlib at line 141
(if (exist? "library")
eval from file /usr/share/autogen/opthead.tlib line 141:
(if (exist? "library")
(set! tmp-val (string-append "(" lib-opt-ptr tmp-val ")"))
(set! tmp-val (string-append "(" pname "Options.pOptDesc" tmp-val ")")) )
(ag-fprintf 0 "\n#define %8sDESC(n) " UP-prefix)
(emit tmp-val)
(out-push-new)
ag_scm_out_push_new -- temp file in-mem file
Text (15) in /usr/share/autogen/opthead.tlib at line 149
EXPR ( E) in /usr/share/autogen/opthead.tlib at line 180
gth UP-prefix) 1) UP-prefix ""))
eval from file /usr/share/autogen/opthead.tlib line 180:
(set! tmp-val (if (> (string-length UP-prefix) 1) UP-prefix ""))
(string-substitute (out-pop #t) "<P>" tmp-val)
ag_scm_out_pop in-mem file #t
out_close 'in-mem file'
INVOKE (12) in /usr/share/autogen/opthead.tlib at line 185
emit-exit-codes
Template macro emit-exit-codes invoked with 0 args
from /usr/share/autogen/opthead.tlib line 185
Text (15) in /usr/share/autogen/opthead.tlib at line 329
Unknown (16) in /usr/share/autogen/opthead.tlib at line 332
remapped to 'Expr' (16) in /usr/share/autogen/opthead.tlib at line 332
based on prog-name
Text (15) in /usr/share/autogen/opthead.tlib at line 332
exit codes
EXPR ( E) in /usr/share/autogen/opthead.tlib at line 336
(define exit-name-len 15)
eval from file /usr/share/autogen/opthead.tlib line 336:
(define exit-name-len 15)
FOR ( F) in /usr/share/autogen/opthead.tlib at line 338
FOR loop skipped - no definition for `exit-name'
from /usr/share/autogen/opthead.tlib line 338
EXPR ( E) in /usr/share/autogen/opthead.tlib at line 350
(set! tmp-val "")
eval from file /usr/share/autogen/opthead.tlib line 350:
(set! tmp-val "")
(define no-mem-func #f)
(define need-ex-noinput (exist? "homerc"))
(define noinput-err-name "")
(define need-ex-software #t)
(define need-ex-usage #t)
(define usage-err-name "")
(define exit-code-fmt (sprintf
"\n %s_EXIT_%%-%us = %%d" pname-up exit-name-len ))
(define succ-exit-code (string-append pname-up "_EXIT_SUCCESS"))
(if (exist? "exit-name[0]")
(set! succ-exit-code (string-append
pname-up "_EXIT_" (get-up-name "exit-name[0]") ))
(set! tmp-val (sprintf exit-code-fmt "SUCCESS" 0))
)
(define fail-exit-code (string-append pname-up "_EXIT_FAILURE"))
(if (exist? "exit-name[1]")
(set! fail-exit-code (string-append
pname-up "_EXIT_" (get-up-name "exit-name[1]") ))
(set! tmp-val (string-append tmp-val
(if (> (string-length tmp-val) 1) "," "")
(sprintf exit-code-fmt "FAILURE" 1) ))
)
(define nomem-exit-code fail-exit-code)
(set! exit-code-fmt (string-append "," exit-code-fmt))
tmp-val
FOR ( F) in /usr/share/autogen/opthead.tlib at line 384
FOR loop skipped - no definition for `exit-name'
from /usr/share/autogen/opthead.tlib line 384
EXPR ( E) in /usr/share/autogen/opthead.tlib at line 402
(if need-ex-usage (begin
eval from file /usr/share/autogen/opthead.tlib line 402:
(if need-ex-usage (begin
(set! usage-err-name (string-append pname-up "_EXIT_USAGE_ERROR"))
(ag-fprintf 0 exit-code-fmt "USAGE_ERROR" 64) ))
(if need-ex-noinput (begin
(set! tmp-val (string-append pname-up "_EXIT_NO_CONFIG_INPUT"))
(ag-fprintf 0 exit-code-fmt "NO_CONFIG_INPUT" 66)))
(define file-fail-exit-code
(if (exist? "file-fail-code")
(string-append pname-up "_EXIT_" (get-up-name "file-fail-code"))
(if need-ex-noinput
(string-append pname-up "_EXIT_NO_CONFIG_INPUT")
fail-exit-code )))
(if need-ex-software (begin
(set! need-ex-software (string-append pname-up "_EXIT_LIBOPTS_FAILURE"))
(ag-fprintf 0 exit-code-fmt "LIBOPTS_FAILURE" 70)))
Text (15) in /usr/share/autogen/opthead.tlib at line 420
EXPR ( E) in /usr/share/autogen/opthead.tlib at line 421
(. pname-down)
eval from file /usr/share/autogen/opthead.tlib line 421:
(. pname-down)
Text (15) in /usr/share/autogen/opthead.tlib at line 421
_exit_code_t;
INVOKE (12) in /usr/share/autogen/opthead.tlib at line 186
emit-option-guards
Template macro emit-option-guards invoked with 0 args
from /usr/share/autogen/opthead.tlib line 186
CASE ( 2) in /usr/share/autogen/opthead.tlib at line 537
CASE string `' MATCH_NONEXISTENCE matched `'
from /usr/share/autogen/opthead.tlib line 538
Text (15) in /usr/share/autogen/opthead.tlib at line 188
FOR ( F) in /usr/share/autogen/opthead.tlib at line 194
FOR flag loop in /usr/share/autogen/opthead.tlib on line 194 begins:
- FOR-each flag[0] it#0: Nxt 1, first=yes, last=no
EXPR ( E) in /usr/share/autogen/opthead.tlib at line 195
(define flag-index (for-index))
eval from file /usr/share/autogen/opthead.tlib line 195:
(define flag-index (for-index))
INVOKE (12) in /usr/share/autogen/opthead.tlib at line 197
save-name-morphs
Template macro save-name-morphs invoked with 0 args
from /usr/share/autogen/opthead.tlib line 197
IF (10) in /usr/share/autogen/optlib.tlib at line 349
(set-flag-names)
eval from file /usr/share/autogen/optlib.tlib line 349:
(set-flag-names)
(hash-create-handle! ifdef-ed flg-name
(and do-ifdefs (or (exist? "ifdef") (exist? "ifndef"))) )
(set! proc-name (string-append "doOpt" cap-name))
(set! is-lib-cb #f)
(exist? "call-proc")
eval from file /usr/share/autogen/optlib.tlib line 367:
(or (exist? "extract-code")
(exist? "flag-code")
(exist? "aliases")
(exist? "arg-range"))
eval from file /usr/share/autogen/optlib.tlib line 380:
(exist? "flag-proc")
eval from file /usr/share/autogen/optlib.tlib line 388:
(exist? "stack-arg")
eval from file /usr/share/autogen/optlib.tlib line 401:
(exist? "unstack-arg")
IF expression `ELSE clause' on line 410 yielded true
from /usr/share/autogen/optlib.tlib line 349
CASE ( 2) in /usr/share/autogen/optlib.tlib at line 412
CASE no match: `file' EQUIVALENT_START vs. `bool'
CASE no match: `file' EQUIVALENT_START vs. `num'
CASE no match: `file' EQUIVALENT_FULL vs. `time-date'
CASE no match: `file' EQUIVALENT_START vs. `time'
CASE string `file' MATCH_START matched `key|set|fil'
from /usr/share/autogen/optlib.tlib line 441
EXPR ( E) in /usr/share/autogen/optlib.tlib at line 442
(set! test-name proc-name)
eval from file /usr/share/autogen/optlib.tlib line 442:
(set! test-name proc-name)
(set! is-extern #f)
(set! have-proc #t)
EXPR ( E) in /usr/share/autogen/optlib.tlib at line 459
(if (not guarded-test-main)
eval from file /usr/share/autogen/optlib.tlib line 459:
(if (not guarded-test-main)
(set! test-name proc-name))
(if have-proc
(begin
(hash-create-handle! have-cb-procs flg-name #t)
(hash-create-handle! cb-proc-name flg-name proc-name)
(hash-create-handle! test-proc-name flg-name test-name)
(hash-create-handle! is-ext-cb-proc flg-name is-extern)
(hash-create-handle! is-lib-cb-proc flg-name is-lib-cb)
(set! make-callback-procs #t)
)
(begin
(hash-create-handle! have-cb-procs flg-name #f)
(hash-create-handle! cb-proc-name flg-name "NULL")
(hash-create-handle! test-proc-name flg-name "NULL")
)
)
(if (exist? "default")
(set! default-opt-index (. flag-index)) )
IF (10) in /usr/share/autogen/opthead.tlib at line 199
OPT-pfx UP-name))
eval from file /usr/share/autogen/opthead.tlib line 199:
(set! opt-name (string-append OPT-pfx UP-name))
(set! descriptor (string-append UP-prefix "DESC(" UP-name ")" ))
(exist? "documentation")
IF expression `ELSE clause' on line 213 yielded true
from /usr/share/autogen/opthead.tlib line 199
INVOKE (12) in /usr/share/autogen/opthead.tlib at line 214
option-defines
Template macro option-defines invoked with 0 args
from /usr/share/autogen/opthead.tlib line 214
Text (15) in /usr/share/autogen/optlib.tlib at line 760
EXPR ( E) in /usr/share/autogen/optlib.tlib at line 762
d UP-prefix "DESC("
eval from file /usr/share/autogen/optlib.tlib line 762:
(define value-desc (string-append UP-prefix "DESC("
(if (exist? "equivalence")
(get-up-name "equivalence")
UP-name) ")" ))
(sprintf "%-18s" opt-name)
Text (15) in /usr/share/autogen/optlib.tlib at line 766
CASE ( 2) in /usr/share/autogen/optlib.tlib at line 768
CASE no match: `c' MATCH_NONEXISTENCE vs. `'
CASE no match: `c' COMPARE_FULL vs. `''
CASE no match: `c' COMPARE_FULL vs. `\'
Compiling '[ -~]' with bits 0x1
CASE no match: `c' MATCH_FULL vs. `[ -~]'
CASE no match: `c' EQUIVALENT_START vs. `num'
CASE string `c' MATCH_ALWAYS matched `'
from /usr/share/autogen/optlib.tlib line 780
EXPR ( E) in /usr/share/autogen/optlib.tlib at line 780
(error (sprintf
eval from file /usr/share/autogen/optlib.tlib line 780:
(error (sprintf
"Error: value for opt %s is `%s'\nmust be single char or 'NUMBER'"
(get "name") (get "value")))
out_close 'ocpasswd-args.h'
done_check done
eval from file autogen.c line 158:
(if (> (string-length shell-cleanup) 0) (shellf "( (%s) & >/dev/null 2>&1 )"
shell-cleanup) )
* * * * LOG ENTRY 19 * * * *
cd /home/nmav/cvs/ocserv/src
( (
test "${VERBOSE:-false}" = true || rm -rf /tmp/.ag-QGM83s
) & >/dev/null 2>&1 )
echo
echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 19
>ag> cd /home/nmav/cvs/ocserv/src
>ag> test false = true
>ag> rm -rf /tmp/.ag-QGM83s
>ag> echo
>ag> echo ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 19
= = = RESULT 1 bytes:
ShElL-OuTpUt-HaS-bEeN-cOmPlEtEd - 19
= = = = = = = = = = = = = = =
>>ag> trap_exit 15
>>trap_exit> case "$1" in
>>trap_exit> exec
close_server_shell in 9 state
exit_cleanup waited done
===AutoGen ends - 13485
